gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-30 08:21:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Extended GSDebugAllocation code by adding a peak counter and a couple of

Browse source 
new functions


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@8290 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
nico 2000-12-11 23:28:08 +00:00
parent a72da12ebb
commit e9693ba54f
1 changed files with 61 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

61
Source/NSDebug.m
View file

@ -48,6 +48,7 @@ typedef struct {
int count;
int lastc;
int total;
int peak;
} table_entry;
static int num_classes = 0;
@ -117,6 +118,10 @@ GSDebugAllocationAdd(Class c)
[uniqueLock lock];
the_table[i].count++;
the_table[i].total++;
if (the_table[i].count > the_table[i].peak)
{
the_table[i].peak = the_table[i].count;
}
if (uniqueLock != nil)
[uniqueLock unlock];
return;
@ -149,6 +154,7 @@ GSDebugAllocationAdd(Class c)
the_table[num_classes].count = 1;
the_table[num_classes].lastc = 0;
the_table[num_classes].total = 1;
the_table[num_classes].peak = 1;
num_classes++;
if (uniqueLock != nil)
[uniqueLock unlock];
@ -170,6 +176,61 @@ GSDebugAllocationCount(Class c)
return 0;
}
int
GSDebugAllocationTotal(Class c)
{
int i;
for (i = 0; i < num_classes; i++)
{
if (the_table[i].class == c)
{
return the_table[i].total;
}
}
return 0;
}
int
GSDebugAllocationPeak(Class c)
{
int i;
for (i = 0; i < num_classes; i++)
{
if (the_table[i].class == c)
{
return the_table[i].peak;
}
}
return 0;
}
Class *
GSDebugAllocationClassList()
{
Class *ans;
size_t siz;
int i;
if (uniqueLock != nil)
[uniqueLock lock];
siz = sizeof(Class) * (num_classes + 1);
ans = NSZoneMalloc(NSDefaultMallocZone(), siz);
for (i = 0; i < num_classes; i++)
{
ans[i] = the_table[i].class;
}
ans[num_classes] = NULL;
if (uniqueLock != nil)
[uniqueLock unlock];
return ans;
}
/*
* This function returns a string listing all those classes for which
* either objects are currently allocated (difference == 0), or there