diff --git a/assembly/x86/alloc.lisp b/assembly/x86/alloc.lisp index e5d16bc9da023d363ca4384d86662b99500a283d..edb8503956f34a63421ec10c6056390864533f3e 100644 --- a/assembly/x86/alloc.lisp +++ b/assembly/x86/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/alloc.lisp,v 1.4 1997/11/19 02:57:16 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/alloc.lisp,v 1.5 1998/02/19 19:37:25 dtc Rel $") ;;; ;;; ********************************************************************** ;;; @@ -25,8 +25,8 @@ #+assembler ; we don't want a vop for this one. (define-assembly-routine (move-from-signed) - ((:temp eax dword-reg eax-offset) - (:temp ebx dword-reg ebx-offset)) + ((:temp eax unsigned-reg eax-offset) + (:temp ebx unsigned-reg ebx-offset)) (inst mov ebx eax) (inst shl ebx 1) (inst jmp :o bignum) @@ -43,8 +43,8 @@ #+assembler ; we don't want a vop for this one either. (define-assembly-routine (move-from-unsigned) - ((:temp eax dword-reg eax-offset) - (:temp ebx dword-reg ebx-offset)) + ((:temp eax unsigned-reg eax-offset) + (:temp ebx unsigned-reg ebx-offset)) (inst test eax #xe0000000) (inst jmp :nz bignum) diff --git a/assembly/x86/arith.lisp b/assembly/x86/arith.lisp index c8e7bc7ef7a56a65ad9a4bd48cbed4321da07b5c..c8d6d6a1eac3db6bb93187767c3b64c11f951de4 100644 --- a/assembly/x86/arith.lisp +++ b/assembly/x86/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.9 1997/12/11 17:41:26 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.10 1998/02/19 19:37:26 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -37,9 +37,9 @@ (:res res (descriptor-reg any-reg) edx-offset) - (:temp eax dword-reg eax-offset) - (:temp ebx dword-reg ebx-offset) - (:temp ecx dword-reg ecx-offset)) + (:temp eax unsigned-reg eax-offset) + (:temp ebx unsigned-reg ebx-offset) + (:temp ecx unsigned-reg ecx-offset)) (declare (ignorable ebx)) (inst test x 3) ; fixnum? @@ -138,8 +138,8 @@ ((:arg x (descriptor-reg any-reg) edx-offset) (:res res (descriptor-reg any-reg) edx-offset) - (:temp eax dword-reg eax-offset) - (:temp ecx dword-reg ecx-offset)) + (:temp eax unsigned-reg eax-offset) + (:temp ecx unsigned-reg ecx-offset)) (inst test x 3) (inst jmp :z FIXNUM) @@ -182,8 +182,8 @@ (:res res descriptor-reg edx-offset) - (:temp eax dword-reg eax-offset) - (:temp ecx dword-reg ecx-offset)) + (:temp eax unsigned-reg eax-offset) + (:temp ecx unsigned-reg ecx-offset)) (inst test x 3) (inst jmp :nz DO-STATIC-FN) (inst test y 3) @@ -227,8 +227,8 @@ (:res res descriptor-reg edx-offset) - (:temp eax dword-reg eax-offset) - (:temp ecx dword-reg ecx-offset)) + (:temp eax unsigned-reg eax-offset) + (:temp ecx unsigned-reg ecx-offset)) (inst cmp x y) (inst jmp :e RETURN-T) (inst test x 3) @@ -266,8 +266,8 @@ (:res res descriptor-reg edx-offset) - (:temp eax dword-reg eax-offset) - (:temp ecx dword-reg ecx-offset) + (:temp eax unsigned-reg eax-offset) + (:temp ecx unsigned-reg ecx-offset) ) (inst test x 3) ; descriptor? (inst jmp :nz DO-STATIC-FN) ; yes do it here @@ -316,10 +316,10 @@ #+assembler ; we don't want a vop for this one. (define-assembly-routine (random-mt19937-update) - ((:temp state dword-reg eax-offset) - (:temp k dword-reg ebx-offset) - (:temp y dword-reg ecx-offset) - (:temp tmp dword-reg edx-offset)) + ((:temp state unsigned-reg eax-offset) + (:temp k unsigned-reg ebx-offset) + (:temp y unsigned-reg ecx-offset) + (:temp tmp unsigned-reg edx-offset)) ;; Save the temporary registers. (inst push k) diff --git a/assembly/x86/array.lisp b/assembly/x86/array.lisp index 01cabe71be51734df14e01b1ebf0210b39f6849f..563165d65aa6fccc36913274acdc8d69094c4aef 100644 --- a/assembly/x86/array.lisp +++ b/assembly/x86/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/array.lisp,v 1.6 1997/12/05 06:53:13 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/array.lisp,v 1.7 1998/02/19 19:37:27 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -56,9 +56,9 @@ (:res result any-reg edx-offset) (:temp length any-reg edi-offset) - (:temp esi dword-reg esi-offset) - (:temp ecx dword-reg ecx-offset) - (:temp eax dword-reg eax-offset)) + (:temp esi unsigned-reg esi-offset) + (:temp ecx unsigned-reg ecx-offset) + (:temp eax unsigned-reg eax-offset)) (declare (ignore result esi ecx eax)) (loadw length string vector-length-slot other-pointer-type) (inst jmp (make-fixup 'sxhash-simple-substring :assembly-routine))) @@ -72,9 +72,9 @@ (:arg length any-reg edi-offset) (:res result any-reg edx-offset) - (:temp esi dword-reg esi-offset) - (:temp ecx dword-reg ecx-offset) - (:temp eax dword-reg eax-offset)) + (:temp esi unsigned-reg esi-offset) + (:temp ecx unsigned-reg ecx-offset) + (:temp eax unsigned-reg eax-offset)) ;; Compute a pointer to where we are going to be extracting the bits. (inst lea esi (make-ea :byte :base string :disp (- (* vector-data-offset word-bytes) diff --git a/assembly/x86/assem-rtns.lisp b/assembly/x86/assem-rtns.lisp index 002c54c143dcee5f0aa0ce9b46f69595df5fed37..47fe9c3e1976587de37f2cf02cb87b857f7c66ff 100644 --- a/assembly/x86/assem-rtns.lisp +++ b/assembly/x86/assem-rtns.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/assem-rtns.lisp,v 1.4 1997/12/05 06:53:14 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/assem-rtns.lisp,v 1.5 1998/02/19 19:37:29 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -32,14 +32,14 @@ (define-assembly-routine (return-multiple (:return-style :none)) (;; These four are really arguments. - (:temp eax dword-reg eax-offset) - (:temp ebx dword-reg ebx-offset) - (:temp ecx dword-reg ecx-offset) - (:temp esi dword-reg esi-offset) + (:temp eax unsigned-reg eax-offset) + (:temp ebx unsigned-reg ebx-offset) + (:temp ecx unsigned-reg ecx-offset) + (:temp esi unsigned-reg esi-offset) ;; These we need as temporaries. - (:temp edx dword-reg edx-offset) - (:temp edi dword-reg edi-offset)) + (:temp edx unsigned-reg edx-offset) + (:temp edi unsigned-reg edi-offset)) ;; Pick off the cases where everything fits in register args. (inst jecxz zero-values) @@ -128,12 +128,12 @@ (tail-call-variable (:return-style :none)) - ((:temp eax dword-reg eax-offset) - (:temp ebx dword-reg ebx-offset) - (:temp ecx dword-reg ecx-offset) - (:temp edx dword-reg edx-offset) - (:temp edi dword-reg edi-offset) - (:temp esi dword-reg esi-offset)) + ((:temp eax unsigned-reg eax-offset) + (:temp ebx unsigned-reg ebx-offset) + (:temp ecx unsigned-reg ecx-offset) + (:temp edx unsigned-reg edx-offset) + (:temp edi unsigned-reg edi-offset) + (:temp esi unsigned-reg esi-offset)) ;; Calculate NARGS (as a fixnum) (move ecx esi) @@ -239,7 +239,7 @@ ((:arg block (any-reg descriptor-reg) eax-offset) (:arg start (any-reg descriptor-reg) ebx-offset) (:arg count (any-reg descriptor-reg) ecx-offset) - (:temp uwp dword-reg esi-offset)) + (:temp uwp unsigned-reg esi-offset)) (declare (ignore start count)) (let ((error (generate-error-code nil invalid-unwind-error)))