Changeset 7771

Timestamp:

Nov 28, 2007, 2:30:08 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

• branches/ia32/compiler/X86/X8632/x8632-arch.lisp (modified) (1 diff)

branches/ia32/compiler/X86/X8632/x8632-arch.lisp

@@ -1083 +1083 @@
                             name)))))
 
+(defx8632archmacro ccl::%get-kernel-global-ptr (name dest)
+  `(ccl::%setf-macptr
+    ,dest
+    (ccl::%fixnum-ref-macptr 0 (+ x8632::nil-value
+                                  ,(%kernel-global
+                                    (if (ccl::quoted-form-p name)
+                                      (cadr name)
+                                      name))))))
+
 (defx8632archmacro ccl::%target-kernel-global (name)
   `(x8632::%kernel-global ,name))