Changeset 7771


Ignore:
Timestamp:
Nov 28, 2007, 10:30:08 PM (12 years ago)
Author:
rme
Message:

Use 32-bit ccl::%get-kernel-global-ptr arch macro.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-arch.lisp

    r7426 r7771  
    10831083                            name)))))
    10841084
     1085(defx8632archmacro ccl::%get-kernel-global-ptr (name dest)
     1086  `(ccl::%setf-macptr
     1087    ,dest
     1088    (ccl::%fixnum-ref-macptr 0 (+ x8632::nil-value
     1089                                  ,(%kernel-global
     1090                                    (if (ccl::quoted-form-p name)
     1091                                      (cadr name)
     1092                                      name))))))
     1093
    10851094(defx8632archmacro ccl::%target-kernel-global (name)
    10861095  `(x8632::%kernel-global ,name))
Note: See TracChangeset for help on using the changeset viewer.