Changeset 8214

Timestamp:

Jan 17, 2008, 10:03:26 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Replace two bogus definintions of %GET-POST-FFI-MXCSR with a single one
that actually has a prayer of working.

Also change defx86lapfunction to defx8632lapfunction in a couple of places.

File:

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

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

@@ -252 +252 @@
   (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 +275 @@
 ;;; 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 +282 @@
   (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 +305 @@
 
 ;;; 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))