Commit 30689c50 authored by dtc's avatar dtc
Browse files

Remove uses of the dword-reg SC for temporaries.

parent f19779c5
......@@ -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)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment