Differences From 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]
To Artifact [5baad6528e]:
- File
src/runtime/lookup.m
— part of check-in
[0c332aa2d2]
at
2013-12-27 02:07:14
on branch trunk
— Rework forwarding API and ABI.
It matches the Apple API and ABI now and the forwarding handler itself
determines whether it should forward or not.This moves handling of +[resolve{Class,Instance}Method:] to the runtime
and allows adding new kinds of forwarding without changing the runtime.Also fixes a potential stack problem in the forwarding for MIPS. (user: js, size: 4453) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
19 20 21 22 23 24 25 | #include <stdio.h> #include <stdlib.h> #import "runtime.h" #import "runtime-private.h" #import "macros.h" | | | | < | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | #include <stdio.h> #include <stdlib.h> #import "runtime.h" #import "runtime-private.h" #import "macros.h" static void *forward_handler = NULL; static void *forward_handler_stret = NULL; static IMP common_method_not_found(id obj, SEL sel, IMP (*lookup)(id, SEL), void *forward) { 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); |
︙ | ︙ | |||
50 51 52 53 54 55 56 | * 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); } | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | | | | | | > > > > > > > | | | | | | | | | 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 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | * 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); } /* Try resolveClassMethod:/resolveInstanceMethod: */ if (class_isMetaClass(object_getClass(obj))) { Class cls = object_getClass(obj); if (class_respondsToSelector(cls, @selector(resolveClassMethod:)) && [obj resolveClassMethod: sel]) { if (!class_respondsToSelector(cls, sel)) OBJC_ERROR("[%s resolveClassMethod: %s] " "returned true without adding the method!", class_getName(obj), sel_getName(sel)); return lookup(obj, sel); } } else { Class cls = object_getClass(obj); Class metacls = object_getClass(cls); if (class_respondsToSelector(metacls, @selector(resolveInstanceMethod:)) && [cls resolveInstanceMethod: sel]) { if (!class_respondsToSelector(cls, sel)) OBJC_ERROR("[%s resolveInstanceMethod: %s] " "returned true without adding the method!", class_getName(object_getClass(obj)), sel_getName(sel)); return lookup(obj, sel); } } if (forward != NULL) return forward; OBJC_ERROR("Selector %c[%s] is not implemented for class %s!", (is_class ? '+' : '-'), sel_getName(sel), object_getClassName(obj)); } IMP objc_method_not_found(id obj, SEL sel) { return common_method_not_found(obj, sel, objc_msg_lookup, forward_handler); } IMP objc_method_not_found_stret(id obj, SEL sel) { return common_method_not_found(obj, sel, objc_msg_lookup_stret, forward_handler_stret); } void objc_setForwardHandler(void *forward, void *forward_stret) { forward_handler = forward; forward_handler_stret = forward_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)(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(obj, sel); return imp; } IMP objc_msg_lookup(id obj, SEL sel) { return common_lookup(obj, sel, objc_method_not_found); } IMP objc_msg_lookup_stret(id obj, SEL sel) { return common_lookup(obj, sel, objc_method_not_found_stret); } static OF_INLINE IMP common_lookup_super(struct objc_super *super, SEL sel, IMP (*not_found)(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(super->self, sel); return imp; } IMP objc_msg_lookup_super(struct objc_super *super, SEL sel) { return common_lookup_super(super, sel, objc_method_not_found); } IMP objc_msg_lookup_super_stret(struct objc_super *super, SEL sel) { return common_lookup_super(super, sel, objc_method_not_found_stret); } #endif |