Changeset 6450 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 12:38:27 PM (13 years ago)
Author:
gb
Message:

%GET-KERNEL-GLOBAL-PTR: actually works ...

Location:
branches/x8664-call/ccl/compiler/PPC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/PPC/PPC32/ppc32-arch.lisp

    r5981 r6450  
    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)
  • branches/x8664-call/ccl/compiler/PPC/PPC64/ppc64-arch.lisp

    r5981 r6450  
    932932  `(ccl::%setf-macptr
    933933    ,dest
    934     (ccl::%fixnum-ref-natural 0 (+ ppc64::nil-value
     934    (ccl::%fixnum-ref-macptr 0 (+ ppc64::nil-value
    935935                                 ,(%kernel-global
    936936                                   (if (ccl::quoted-form-p name)
Note: See TracChangeset for help on using the changeset viewer.