Differences From Artifact [7a62dc26ba]:
- File
src/runtime/lookup.m
— part of check-in
[c5ef582958]
at
2013-03-04 17:20:15
on branch trunk
— Replace BOOL with bool.
The only places where BOOL is left are those where they are required by
the ABI. (user: js, size: 2524) [annotate] [blame] [check-ins using]
To Artifact [1c3a42c0f8]:
- File
src/runtime/lookup.m
— part of check-in
[9713ad857d]
at
2013-07-26 15:21:45
on branch trunk
— Add support for objc_msg_lookup_stret.
The assembly implementations of the lookup and forwarding still need to
be adjusted. Those just alias to the non-stret version for now so that
linking works, meaning the behaviour is still the same as without
support for objc_msg_lookup_stret for now. (user: js, size: 3487) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
20 21 22 23 24 25 26 27 | #include <stdlib.h> #import "runtime.h" #import "runtime-private.h" #import "macros.h" IMP (*objc_forward_handler)(id, SEL) = NULL; | > | | > | | | | > > > > > > > > > > > > > > | | | > > > > > > > > > > > > | > | > > > > > > > > > > > > | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 |
#include <stdlib.h>
#import "runtime.h"
#import "runtime-private.h"
#import "macros.h"
IMP (*objc_forward_handler)(id, SEL) = NULL;
IMP (*objc_forward_handler_stret)(id, SEL) = NULL;
static IMP
common_not_found_handler(id obj, SEL sel, IMP (*lookup)(id, SEL),
IMP (*forward_handler)(id, SEL))
{
bool is_class = object_getClass(obj)->info & OBJC_CLASS_INFO_METACLASS;
if (!(object_getClass(obj)->info & OBJC_CLASS_INFO_INITIALIZED)) {
Class cls = (is_class ? (Class)obj : object_getClass(obj));
objc_initialize_class(cls);
if (!(cls->info & OBJC_CLASS_INFO_SETUP)) {
if (is_class)
return lookup(nil, sel);
else
OBJC_ERROR("Could not dispatch message for "
"incomplete class %s!", cls->name);
}
/*
* We don't need to handle the case that super was called.
* The reason for this is that a call to super is not possible
* before a message to the class has been sent and it thus has
* been initialized together with its superclasses.
*/
return lookup(obj, sel);
}
if (forward_handler != NULL)
return forward_handler(obj, sel);
OBJC_ERROR("Selector %c[%s] is not implemented for class %s!",
(is_class ? '+' : '-'), sel_getName(sel), object_getClassName(obj));
}
IMP
objc_not_found_handler(id obj, SEL sel)
{
return common_not_found_handler(obj, sel, objc_msg_lookup,
objc_forward_handler);
}
IMP
objc_not_found_handler_stret(id obj, SEL sel)
{
return common_not_found_handler(obj, sel, objc_msg_lookup_stret,
objc_forward_handler_stret);
}
bool
class_respondsToSelector(Class cls, SEL sel)
{
if (cls == Nil)
return false;
return (objc_sparsearray_get(cls->dtable, (uint32_t)sel->uid) != NULL);
}
#ifndef OF_ASM_LOOKUP
static id
nil_method(id self, SEL _cmd)
{
return nil;
}
static OF_INLINE IMP
common_lookup(id obj, SEL sel, IMP (*not_found_handler)(id, SEL))
{
IMP imp;
if (obj == nil)
return (IMP)nil_method;
imp = objc_sparsearray_get(object_getClass(obj)->dtable,
(uint32_t)sel->uid);
if (imp == NULL)
return not_found_handler(obj, sel);
return imp;
}
IMP
objc_msg_lookup(id obj, SEL sel)
{
return common_lookup(obj, sel, objc_not_found_handler);
}
IMP
objc_msg_lookup_stret(id obj, SEL sel)
{
return common_lookup(obj, sel, objc_not_found_handler_stret);
}
static OF_INLINE IMP
common_lookup_super(struct objc_super *super, SEL sel,
IMP (*not_found_handler)(id, SEL))
{
IMP imp;
if (super->self == nil)
return (IMP)nil_method;
imp = objc_sparsearray_get(super->cls->dtable, (uint32_t)sel->uid);
if (imp == NULL)
return not_found_handler(super->self, sel);
return imp;
}
IMP
objc_msg_lookup_super(struct objc_super *super, SEL sel)
{
return common_lookup_super(super, sel, objc_not_found_handler);
}
IMP
objc_msg_lookup_super_stret(struct objc_super *super, SEL sel)
{
return common_lookup_super(super, sel, objc_not_found_handler_stret);
}
#endif
|