OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(conformsTo:): Change implementati to allways use class to do lookup.

Browse Source 
From-SVN: r8030
This commit is contained in:
Kresten Krab Thorup 1994-09-07 15:28:04 +00:00
parent decab89ee4
commit ad4f2e420b
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gcc/objc/Object.m
View File

@ -194,12 +194,17 @@ extern int errno;
// Indicates if the receiving class or instance conforms to the given protocol
// not usually overridden by subclasses
- (BOOL) conformsTo: (Protocol*)aProtocol
//
// Modified 9/5/94 to always search the class object's protocol list, rather
// than the meta class.
+ (BOOL) conformsTo: (Protocol*)aProtocol
{
int i;
struct objc_protocol_list* proto_list;
id parent;
for (proto_list = isa->protocols;
for (proto_list = ((Class*)self)->protocols;
proto_list; proto_list = proto_list->next)
{
for (i=0; i < proto_list->count; i++)
@ -209,12 +214,17 @@ extern int errno;
}
}
if ([self superClass])
return [[self superClass] conformsTo: aProtocol];
if (parent = [self superClass])
return [parent conformsTo: aProtocol];
else
return NO;
}
- (BOOL) conformsTo: (Protocol*)aProtocol
{
return [[self class] conformsTo:aProtocol];
}
- (IMP)methodFor:(SEL)aSel
{
return (method_get_imp(object_is_instance(self)