Changeset 8357

Timestamp:

Jan 29, 2008, 2:09:03 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Make nargs 32 bits; define subtagmask; define default-node-regs-mask;
remove save0-save3 from definition of TCR (we don't have any non-volatile
caller-saved regs on 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 ax)
-(defx86reg nargs.l eax)
+(defx86reg nargs.w ax)
+(defx86reg nargs eax)
 
 (defx86reg temp0 ecx)
@@ -180 +180 @@
 (defconstant nfixnumtagbits 2)
 (defconstant num-subtag-bits 8)
+(defconstant subtagmask 255)
 (defconstant fixnumshift 2)
 (defconstant fixnum-shift 2)
@@ -201 +202 @@
 (defconstant target-most-negative-fixnum (ash -1 (1- (- nbits-in-word nfixnumtagbits))))
 (defconstant target-most-positive-fixnum (1- (ash 1 (1- (- nbits-in-word nfixnumtagbits)))))
+
+;;; bits correspond to reg encoding used in instructions
+;;;  7   6   5   4   3   2   1   0
+;;; edi esi ebp esp ebx edx ecx eax
+
+(defconstant default-node-regs-mask #b11001110)
 
 ;;; 2-bit "lisptag" values
@@ -432 +439 @@
   foreign-sp
   db-link                               ; value of dynamic-binding link on thread entry.
-  save-save3                            ; saved nvrs (probably won't have any)
-  save-save2
-  save-save1
-  save-save0
   xframe                                ; exception-frame link
   pc                                    ; tra of catch exit/unwind cleanup