Changeset 6331 for branches

Timestamp:

Apr 22, 2007, 3:47:25 AM (18 years ago)

Author:

Gary Byers

Message:

ref-global.l

File:

• branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp (modified) (1 diff)

branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp

@@ -210 +210 @@
   `(movq (@ (+ x8664::nil-value ,(x8664::%kernel-global global))) (% ,reg)))
 
+(defx86lapmacro ref-global.l (global reg)
+  `(movl (@ (+ x8664::nil-value ,(x8664::%kernel-global global))) (%l ,reg)))
+
 (defx86lapmacro set-global (reg global)
   `(movq (% ,reg) (@ (+ x8664::nil-value ,(x8664::%kernel-global global)))))