gnustep/libs-ec
0
0
Fork 0
mirror of https://github.com/gnustep/libs-ec.git synced 2025-05-30 00:40:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update recordng/tracing

Browse source
This commit is contained in:
rfm 2024-06-18 12:29:17 +01:00
parent 0aa5ab38db
commit 54c8257e8f
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
EcProcess.m
View file

@ -5215,7 +5215,7 @@ With the single parameter 'no',\n\
With the single parameter 'default',\n\
the gathering of memory usage statistics reverts to the default setting.\n\
With two parameters ('class' and a class name),\n\
new instances of the class are recorded.\n\
new instances of the class are recorded/traced.\n\
With two parameters ('list' and a class),\n\
recorded instances of the class are reported.\n\
With two parameters ('alarm' and a severity name),\n\
@ -5472,23 +5472,25 @@ With two parameters ('maximum' and a number),\n\
{
if ([op caseInsensitiveCompare: @"class"] == NSOrderedSame)
{
GSDebugAllocationRecordObjects(c, YES);
[self cmdPrintf: @"Recording instances of '%@'.\n", arg];
GSDebugAllocationRecordAndTrace(c,
YES, (NSObject*(*)(id))1);
[self cmdPrintf: @"Tracking instances of '%@'.\n", arg];
}
else if ([op caseInsensitiveCompare: @"list"]
== NSOrderedSame)
{
NSArray *array;
NSUInteger count;
NSUInteger index;
NSMapTable *map;
NSEnumerator *e;
NSObject *k;
array = GSDebugAllocationListRecordedObjects(c);
[self cmdPrintf: @"Current instances of '%@':\n", arg];
count = [array count];
for (index = 0; index < count; index++)
map = GSDebugAllocationTaggedObjects(c);
[self cmdPrintf: @"Tracked instances of '%@':\n", arg];
e = [map keyEnumerator];
while ((k = [e nextObject]) != nil)
{
[self cmdPrintf: @"%6lu %@\n",
(unsigned long)index, [array objectAtIndex: index]];
NSObject *v = [map objectForKey: k];
[self cmdPrintf: @"%@ allocated at %@\n", k, v];
}
}
else