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)))