1 /*--------------------------------------------------------------------*/ 2 /*--- Callgrind ---*/ 3 /*--- ct_costs.c ---*/ 4 /*--------------------------------------------------------------------*/ 5 6 /* 7 This file is part of Callgrind, a Valgrind tool for call tracing. 8 9 Copyright (C) 2002-2010, Josef Weidendorfer (Josef.Weidendorfer (at) gmx.de) 10 11 This program is free software; you can redistribute it and/or 12 modify it under the terms of the GNU General Public License as 13 published by the Free Software Foundation; either version 2 of the 14 License, or (at your option) any later version. 15 16 This program is distributed in the hope that it will be useful, but 17 WITHOUT ANY WARRANTY; without even the implied warranty of 18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 General Public License for more details. 20 21 You should have received a copy of the GNU General Public License 22 along with this program; if not, write to the Free Software 23 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 24 02111-1307, USA. 25 26 The GNU General Public License is contained in the file COPYING. 27 */ 28 29 #include "global.h" 30 31 #include <pub_tool_mallocfree.h> 32 33 #define COSTCHUNK_SIZE 100000 34 35 UInt CLG_(costarray_entries) = 0; 36 UInt CLG_(costarray_chunks) = 0; 37 static CostChunk* cost_chunk_base = 0; 38 static CostChunk* cost_chunk_current = 0; 39 40 ULong* CLG_(get_costarray)(Int size) 41 { 42 ULong* ptr; 43 44 if (!cost_chunk_current || 45 (cost_chunk_current->size - cost_chunk_current->used < size)) { 46 CostChunk* cc = (CostChunk*) CLG_MALLOC("cl.costs.gc.1", 47 sizeof(CostChunk) + 48 COSTCHUNK_SIZE * sizeof(ULong)); 49 cc->size = COSTCHUNK_SIZE; 50 cc->used = 0; 51 cc->next = 0; 52 53 if (cost_chunk_current) 54 cost_chunk_current->next = cc; 55 cost_chunk_current = cc; 56 57 if (!cost_chunk_base) cost_chunk_base = cc; 58 59 CLG_(costarray_chunks)++; 60 } 61 62 ptr = &(cost_chunk_current->data[cost_chunk_current->used]); 63 cost_chunk_current->used += size; 64 65 CLG_(costarray_entries) += size; 66 67 return ptr; 68 } 69 70 void CLG_(free_costarrays)() 71 { 72 CostChunk* cc = cost_chunk_base, *cc_next; 73 while(cc) { 74 cc_next = cc->next; 75 VG_(free)(cc); 76 cc = cc_next; 77 } 78 cost_chunk_base = 0; 79 cost_chunk_current = 0; 80 } 81