gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-04-23 00:41:02 +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@29873 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-MacDonald 2010-03-08 08:09:49 +00:00
parent 3132d54a5d
commit ef0c9453f8
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
Source/Additions/GSObjCRuntime.m
View file

@ -505,11 +505,16 @@ GSObjCAddMethods(Class cls, Method *list, BOOL replace)
/* This will override a superclass method but will not replace a
* method which already exists in the class itsself.
*/
if (NO == class_addMethod(cls, n, i, t) && YES == replace)
if (YES == class_addMethod(cls, n, i, t))
{
BDBGPrintf(" added %s\n", 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));
}
}
}
@ -805,17 +810,24 @@ GSObjCAddClassBehavior(Class receiver, Class behavior)
/* Add instance methods */
methods = class_copyMethodList(behavior, &count);
if (methods != NULL)
if (methods == NULL)
{
BDBGPrintf(" none.\n");
}
else
{
GSObjCAddMethods (receiver, methods, NO);
free(methods);
}
/* Add class methods */
BDBGPrintf("Adding class methods from %s\n",
class_getName(object_getClass(behavior)));
BDBGPrintf(" class methods from %s\n", class_getName(behavior));
methods = class_copyMethodList(object_getClass(behavior), &count);
if (methods != NULL)
if (methods == NULL)
{
BDBGPrintf(" none.\n");
}
else
{
GSObjCAddMethods (object_getClass(receiver), methods, NO);
free(methods);