Index: /branches/ia32/level-0/X86/X8632/x8632-def.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 8373)
+++ /branches/ia32/level-0/X86/X8632/x8632-def.lisp	(revision 8374)
@@ -91,5 +91,5 @@
   (:arglist (fixnum &optional offset))
   (check-nargs 1 2)
-  (cmpw ($ x8632::fixnumone) (% nargs))
+  (cmpl ($ x8632::fixnumone) (% nargs))
   (jne @2-args)
   (movl (% offset) (% fixnum))
@@ -103,5 +103,5 @@
   (:arglist (fixnum &optional offset))
   (check-nargs 1 2)
-  (cmpw ($ x8632::fixnumone) (% nargs))
+  (cmpl ($ x8632::fixnumone) (% nargs))
   (jne @2-args)
   (movl (% offset) (% fixnum))
@@ -116,5 +116,5 @@
   (check-nargs 2 3)
   (movl (@ fixnum (% esp)) (% temp0))
-  (cmpw ($ '2) (% nargs))
+  (cmpl ($ '2) (% nargs))
   (jne @3-args)
   (movl (% offset) (% temp0))
@@ -132,5 +132,5 @@
   (movl (@ fixnum (% esp)) (% temp0))
   (save-simple-frame)
-  (cmpw ($ '2) (% nargs))
+  (cmpl ($ '2) (% nargs))
   (jne @3-args)
   (movl (% offset) (% temp0))
@@ -391,5 +391,5 @@
   (movl (@ x8632::lisp-frame.return-address (% ebp)) (% temp0))
   (movl (@ 0 (% ebp)) (% ebp))
-  (rcmpw (% nargs) ($ '2))
+  (rcmpl (% nargs) ($ '2))
   (jbe @pop-regs)
   ;; More than 2 args; some must have been pushed by caller,
@@ -399,5 +399,5 @@
   (jmp @popped)
   @pop-regs
-  (rcmpw (% nargs) ($ '1))
+  (rcmpl (% nargs) ($ '1))
   (jb @discard)
   (ja @pop2)
@@ -431,5 +431,5 @@
    (movl (% arg_z) (% temp0))           ; last
    (movl (% arg_y) (% arg_z))           ; butlast
-   (subw ($ '2) (% nargs))              ; remove count for butlast & last
+   (subl ($ '2) (% nargs))              ; remove count for butlast & last
    (movd (% imm0) (% mm0))		;save nargs (aka imm0) for later
    ;; Do .SPspreadargz inline here
@@ -457,5 +457,5 @@
    (movl (% temp0) (% arg_z))
    (pop (% arg_y))
-   (addw ($ '1) (% nargs))
+   (addl ($ '1) (% nargs))
    (load-constant funcall temp0)
    (pushl (@ (% :rcontext) x8632::tcr.save0))	;return address
Index: /branches/ia32/level-0/X86/X8632/x8632-utils.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-utils.lisp	(revision 8373)
+++ /branches/ia32/level-0/X86/X8632/x8632-utils.lisp	(revision 8374)
@@ -127,5 +127,4 @@
 ;;; N.B. nargs is the same register as imm0
 (defx8632lapfunction true ()
-  (movzwl (% nargs) (% imm0))
   (subl ($ '2) (% imm0))
   (leal (@ '2 (% esp) (% imm0)) (% imm0))
@@ -135,5 +134,4 @@
 
 (defx8632lapfunction false ()
-  (movzwl (% nargs) (% imm0))
   (subl ($ '2) (% imm0))
   (leal (@ '2 (% esp) (% imm0)) (% imm0))