Changeset 232

Timestamp:

Jan 6, 2004, 7:20:00 PM (21 years ago)

Author:

Gary Byers

Message:

Assume that elaboration will call #'%SLOT-ID-REF-MISSING,
#'%SLOT-ID-SET-MISSING as constant functions (not as symbols.)

File:

• trunk/ccl/level-0/PPC/ppc-clos.lisp (modified) (3 diffs)

trunk/ccl/level-0/PPC/ppc-clos.lisp

@@ -80 +80 @@
   (bctr)
   @missing                              ; (%slot-id-ref-missing instance id)
-  (lwz nfn ppc32::symbol.fcell fname)
   (lwz nfn '%slot-id-ref-missing nfn)
   (set-nargs 2)
@@ -142 +141 @@
   (bctr)
   @missing                              ; (%slot-id-set-missing instance id new-value)
-  (lwz fname '%slot-id-set-missing nfn)
+  (lwz nfn '%slot-id-ref-missing nfn)
   (set-nargs 3)
-  (lwz nfn ppc32::symbol.fcell fname)
   (lwz temp0 ppc32::misc-data-offset nfn)
   (mtctr temp0)
@@ -174 +172 @@
   (bctr)
   @missing                              ; (%slot-id-set-missing instance id new-value)
-  (lwz fname '%slot-id-set-missing nfn)
+  (lwz nfn '%slot-id-ref-missing nfn)
   (set-nargs 3)
-  (lwz nfn ppc32::symbol.fcell fname)
   (lwz temp0 ppc32::misc-data-offset nfn)
   (mtctr temp0)