Index: /branches/ia32/level-0/X86/X8632/x8632-float.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-float.lisp	(revision 8213)
+++ /branches/ia32/level-0/X86/X8632/x8632-float.lisp	(revision 8214)
@@ -252,5 +252,5 @@
   (single-value-return))
 
-(defx86lapfunction %int-to-dfloat ((int arg_y) (dfloat arg_z))
+(defx8632lapfunction %int-to-dfloat ((int arg_y) (dfloat arg_z))
   (int-to-double int imm0 fp1)
   (put-double-float fp1 arg_z)
@@ -275,5 +275,5 @@
 ;;; on the safe side, mask the arg with X86::MXCSR-WRITE-MASK,
 ;;; so that only known control and status bits are written to.
-(defx86lapfunction %set-mxcsr ((val arg_z))
+(defx8632lapfunction %set-mxcsr ((val arg_z))
   (unbox-fixnum val imm0)
   (andl ($ x86::mxcsr-write-mask) (% imm0))
@@ -282,11 +282,4 @@
   (single-value-return))
 
-;;; Return the MXCSR value in effect after the last ff-call.
-(defx8632lapfunction %get-post-ffi-mxcsr ()
-  (xor (% arg_z) (% arg_z))
-  (movl (@ (% :rcontext) x8664::tcr.ffi-exception) (%l imm0))
-  (movl (%l arg_z) (@ (% :rcontext) x8664::tcr.ffi-exception))
-  (box-fixnum imm0 arg_z)
-  (single-value-return))
 
 ;;; Get the bits that contain exception masks and rounding mode.
@@ -312,8 +305,8 @@
 
 ;;; Return the MXCSR value in effect after the last ff-call.
-(defx86lapfunction %get-post-ffi-mxcsr ()
+(defx8632lapfunction %get-post-ffi-mxcsr ()
   (xor (% arg_z) (% arg_z))
-  (movl (@ (% :rcontext) x8664::tcr.ffi-exception) (%l imm0))
-  (movl (%l arg_z) (@ (% :rcontext) x8664::tcr.ffi-exception))
+  (movl (@ (% :rcontext) x8632::tcr.ffi-exception) (%l imm0))
+  (movl (%l arg_z) (@ (% :rcontext) x8632::tcr.ffi-exception))
   (box-fixnum imm0 arg_z)
   (single-value-return))