Changeset 565

Timestamp:

Feb 23, 2004, 5:40:39 PM (21 years ago)

Author:

Gary Byers

Message:

method lookup: ensure class is initialized, via fairly obscure means.

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (1 diff)

trunk/ccl/examples/objc-runtime.lisp

@@ -1513 +1513 @@
 
 (defun class-get-instance-method (class sel)
-  #+apple-objc (#_class_getInstanceMethod class sel)
+  #+apple-objc (progn
+                 (unless (logtest #$CLS_INITIALIZED (pref (pref class :objc_class.isa)  :objc_class.info))
+                   ;; Do this for effect; ignore the :<IMP> it returns.
+                   ;; (It should cause the CLS_NEED_BIND flag to turn itself
+                   ;; off after the class has been initialized; we need
+                   ;; the class and all superclasses to have been initialized,
+                   ;; so that we can find category methods via
+                   ;; #_class_getInstanceMethod.
+                   (external-call "__class_lookupMethodAndLoadCache"
+                                  :id class
+                                  :<SEL> sel
+                                  :address))
+                 (#_class_getInstanceMethod class sel))
   #+gnu-objc (#_class_get_instance_method class sel))