Changeset 8426

Timestamp:

Feb 5, 2008, 1:56:13 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Use temp1 for nargs. Update %kernel-global and kernel-global for
X8632.

File:

• branches/ia32/compiler/X86/X8632/x8632-arch.lisp (modified) (4 diffs)

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

@@ -114 +114 @@
 (defx86reg imm0.w ax)
 (defx86reg imm0.b al)
-(defx86reg nargs.w ax)
-(defx86reg nargs eax)
 
 (defx86reg temp0 ecx)
@@ -125 +123 @@
 (defx86reg temp1.w dx)
 (defx86reg temp1.b dl)
+(defx86reg nargs edx)
 
 (defx86reg arg_z ebx)
@@ -641 +640 @@
   (let* ((pos (position sym x86::*x86-kernel-globals* :test #'string=)))
     (if pos
-      (- (+ symbol.size fulltag-misc (* (1+ pos) word-size-in-bytes)))
+      (- (+ fulltag-cons (* (1+ pos) node-size)))
       (error "Unknown kernel global : ~s ." sym))))
 
@@ -647 +646 @@
   (let* ((pos (position sym x86::*x86-kernel-globals* :test #'string=)))
     (if pos
-      (- (+ symbol.size fulltag-misc (* (1+ pos) word-size-in-bytes)))
+      (- (+ fulltag-cons (* (1+ pos) node-size)))
       (error "Unknown kernel global : ~s ." sym))))