Index: /branches/ia32/level-0/X86/X8632/x8632-float.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-float.lisp	(revision 7984)
+++ /branches/ia32/level-0/X86/X8632/x8632-float.lisp	(revision 7985)
@@ -22,5 +22,5 @@
   (shl ($ (- 20 x8632::fixnumshift)) (% exp))
   (orl (% exp) (% imm0))		;insert biased exponent
-  (movl (% imm0) (% x8632::double-float.val-high (% arg_z)))
+  (movl (% imm0) (@ x8632::double-float.val-high (% arg_z)))
   (movl (@ hi (% esp)) (% arg_y))
   (andl ($ (ash (1- (ash 1 24)) x8632::fixnumshift)) (% arg_y))
@@ -73,5 +73,5 @@
   (movl (@ x8632::single-float.value (% src)) (% imm0))
   (btcl ($ 31) (% imm0))
-  (movl (% imm0) (@ x8632::single-float.value (% res))
+  (movl (% imm0) (@ x8632::single-float.value (% res)))
   (single-value-return))
 
@@ -129,8 +129,8 @@
     (unbox-fixnum lo imm1)
     (orl (% imm0) (% imm1))
-    (movl (% imm1) (@ misc-data-offset (% big))) ;low 32 bits
+    (movl (% imm1) (@ x8632::misc-data-offset (% big))) ;low 32 bits
     (movl (% temp1) (% imm0))
     (sarl ($ (+ 4 x8632::fixnumshift)) (% imm0))
-    (movl (% imm0) (@ (+ 4 misc-data-offset) (% big)))) ;high 21 bits
+    (movl (% imm0) (@ (+ 4 x8632::misc-data-offset) (% big)))) ;high 21 bits
   (mark-as-node temp0)
   (single-value-return 3))
@@ -205,5 +205,6 @@
   (shll ($ 1) (% imm0))
   (shrl ($ (1+ (- ieee-double-float-exponent-offset 32))) (% imm0))
-  (box-fixnum imm0 arg_z))
+  (box-fixnum imm0 arg_z)
+  (single-value-return))
 
 (defx8632lapfunction set-%double-float-exp ((dfloat arg_y) (exp arg_z))
@@ -221,5 +222,6 @@
   (shll ($ 1) (% imm0))
   (shrl ($ (1+ ieee-single-float-exponent-offset)) (% imm0))
-  (box-fixnum imm0 arg_z))
+  (box-fixnum imm0 arg_z)
+  (single-value-return))
 
 (defx8632lapfunction set-%short-float-exp ((sfloat arg_y) (exp arg_z))
@@ -230,5 +232,6 @@
   (andl ($ #x807fffff) (% imm0))
   (orl (% temp0) (% imm0))
-  (movl (% imm0) (@ x8632::single-float.value (% sfloat))))
+  (movl (% imm0) (@ x8632::single-float.value (% sfloat)))
+  (single-value-return))
 
 (defx8632lapfunction %short-float->double-float ((src arg_y) (result arg_z))
@@ -273,5 +276,5 @@
 (defx86lapfunction %set-mxcsr ((val arg_z))
   (unbox-fixnum arg_z imm0)
-  (andl ($ #.x86::mxcsr-write-mask) (% imm0))
+  (andl ($ x86::mxcsr-write-mask) (% imm0))
   (movl (% imm0) (@ (% :rcontext) x8632::tcr.scratch-mxcsr))
   (ldmxcsr (@ (% :rcontext) x8632::tcr.scratch-mxcsr))