Changeset 6456


Ignore:
Timestamp:
May 9, 2007, 7:24:36 AM (15 years ago)
Author:
gb
Message:

Make %GET-KERNEL-GLOBAL-PTR actually work.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp

    r5981 r6456  
    866866  `(ccl::%setf-macptr
    867867    ,dest
    868     (ccl::%fixnum-ref-natural 0 (+ ppc32::nil-value
    869                                  ,(%kernel-global
    870                                    (if (ccl::quoted-form-p name)
    871                                      (cadr name)
    872                                      name))))))
     868    (ccl::%fixnum-ref-macptr 0 (+ ppc32::nil-value
     869                                                ,(%kernel-global
     870                                                  (if (ccl::quoted-form-p name)
     871                                                    (cadr name)
     872                                                    name))))))
    873873
    874874(defppc32archmacro ccl::%target-kernel-global (name)
Note: See TracChangeset for help on using the changeset viewer.