Changeset 7985

Timestamp:

Jan 2, 2008, 3:06:55 AM (13 years ago)

Author:

rme

Message:

Forgot (single-value-return) in a couple of places; correct other
minor errors.

File:

• branches/ia32/level-0/X86/X8632/x8632-float.lisp (modified) (7 diffs)

branches/ia32/level-0/X86/X8632/x8632-float.lisp

@@ -22 +22 @@
   (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 +73 @@
   (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 +129 @@
     (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 +205 @@
   (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 +222 @@
   (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 +232 @@
   (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 +276 @@
 (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))