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

Improve debug

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@29874 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
rfm 2010-03-08 09:27:48 +00:00
parent d796b77628
commit 424814815e
5 changed files with 62 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Source/Additions/GSObjCRuntime.m
View file

@ -477,24 +477,36 @@ GSObjCAddClasses(NSArray *classes)
static int behavior_debug = 0;
static BOOL behavior_debug = NO;
void
BOOL
GSObjCBehaviorDebug(int i)
{
behavior_debug = i;
BOOL old = behavior_debug;
if (i == YES)
{
behavior_debug = YES;
}
else if (i == NO)
{
behavior_debug = NO;
}
return old;
}
void
GSObjCAddMethods(Class cls, Method *list, BOOL replace)
{
unsigned int index = 0;
char c;
Method m;
if (cls == 0 || list == 0)
{
return;
}
c = class_isMetaClass(cls) ? '+' : '-';
while ((m = list[index++]) != NULL)
{
@ -507,15 +519,19 @@ GSObjCAddMethods(Class cls, Method *list, BOOL replace)
*/
if (YES == class_addMethod(cls, n, i, t))
{
BDBGPrintf(" added %s\n", sel_getName(n));
BDBGPrintf(" added %c%s\n", c, sel_getName(n));
}
else if (YES == replace)
{
/* If we want to replace an existing implemetation ...
*/
method_setImplementation(class_getInstanceMethod(cls, n), i);
BDBGPrintf(" replaced %s\n", sel_getName(n));
BDBGPrintf(" replaced %c%s\n", c, sel_getName(n));
}
else
{
BDBGPrintf(" skipped %c%s\n", c, sel_getName(n));
}
}
}
@ -806,13 +822,13 @@ GSObjCAddClassBehavior(Class receiver, Class behavior)
}
BDBGPrintf("Adding behavior to class %s\n", class_getName(receiver));
BDBGPrintf(" instance methods from %s\n", class_getName(behavior));
/* Add instance methods */
methods = class_copyMethodList(behavior, &count);
BDBGPrintf(" instance methods from %s %u\n", class_getName(behavior), count);
if (methods == NULL)
{
BDBGPrintf(" none.\n");
BDBGPrintf(" none.\n");
}
else
{
@ -821,11 +837,11 @@ GSObjCAddClassBehavior(Class receiver, Class behavior)
}
/* Add class methods */
BDBGPrintf(" class methods from %s\n", class_getName(behavior));
methods = class_copyMethodList(object_getClass(behavior), &count);
BDBGPrintf(" class methods from %s %u\n", class_getName(behavior), count);
if (methods == NULL)
{
BDBGPrintf(" none.\n");
BDBGPrintf(" none.\n");
}
else
{
@ -868,21 +884,28 @@ GSObjCAddClassOverride(Class receiver, Class override)
}
BDBGPrintf("Adding override to class %s\n", class_getName(receiver));
BDBGPrintf(" instance methods from %s\n", class_getName(override));
/* Add instance methods */
methods = class_copyMethodList(override, &count);
if (methods != NULL)
BDBGPrintf(" instance methods from %s %u\n", class_getName(override), count);
if (methods == NULL)
{
BDBGPrintf(" none.\n");
}
else
{
GSObjCAddMethods (receiver, methods, YES);
free(methods);
}
/* Add class methods */
BDBGPrintf("Adding class methods from %s\n",
class_getName(object_getClass(override)));
methods = class_copyMethodList(object_getClass(override), &count);
if (methods != NULL)
BDBGPrintf(" class methods from %s %u\n", class_getName(override), count);
if (methods == NULL)
{
BDBGPrintf(" none.\n");
}
else
{
GSObjCAddMethods (object_getClass(receiver), methods, YES);
free(methods);

5
Source/NSObject.m
View file

@ -995,7 +995,6 @@ objc_create_block_classes_as_subclasses_of(Class super) __attribute__((weak));
fedisableexcept(FE_INVALID);
#endif
#ifdef HAVE_LOCALE_H
GSSetLocaleC(LC_ALL, ""); // Set up locale from environment.
#endif
@ -1003,6 +1002,10 @@ objc_create_block_classes_as_subclasses_of(Class super) __attribute__((weak));
// Create the global lock
gnustep_global_lock = [NSRecursiveLock new];
// Behavior debugging
GSObjCBehaviorDebug(GSPrivateEnvironmentFlag("GNUSTEP_BEHAVIOR_DEBUG",
GSObjCBehaviorDebug(-1)));
// Zombie management stuff.
zombieMap = NSCreateMapTable(NSNonOwnedPointerMapKeyCallBacks,
NSNonOwnedPointerMapValueCallBacks, 0);