Home | History | Annotate | Download | only in callgrind 
      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-2013, 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