Changeset 8214


Ignore:
Timestamp:
Jan 18, 2008, 6:03:26 AM (12 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-float.lisp

    r7988 r8214  
    252252  (single-value-return))
    253253
    254 (defx86lapfunction %int-to-dfloat ((int arg_y) (dfloat arg_z))
     254(defx8632lapfunction %int-to-dfloat ((int arg_y) (dfloat arg_z))
    255255  (int-to-double int imm0 fp1)
    256256  (put-double-float fp1 arg_z)
     
    275275;;; on the safe side, mask the arg with X86::MXCSR-WRITE-MASK,
    276276;;; so that only known control and status bits are written to.
    277 (defx86lapfunction %set-mxcsr ((val arg_z))
     277(defx8632lapfunction %set-mxcsr ((val arg_z))
    278278  (unbox-fixnum val imm0)
    279279  (andl ($ x86::mxcsr-write-mask) (% imm0))
     
    282282  (single-value-return))
    283283
    284 ;;; Return the MXCSR value in effect after the last ff-call.
    285 (defx8632lapfunction %get-post-ffi-mxcsr ()
    286   (xor (% arg_z) (% arg_z))
    287   (movl (@ (% :rcontext) x8664::tcr.ffi-exception) (%l imm0))
    288   (movl (%l arg_z) (@ (% :rcontext) x8664::tcr.ffi-exception))
    289   (box-fixnum imm0 arg_z)
    290   (single-value-return))
    291284
    292285;;; Get the bits that contain exception masks and rounding mode.
     
    312305
    313306;;; Return the MXCSR value in effect after the last ff-call.
    314 (defx86lapfunction %get-post-ffi-mxcsr ()
     307(defx8632lapfunction %get-post-ffi-mxcsr ()
    315308  (xor (% arg_z) (% arg_z))
    316   (movl (@ (% :rcontext) x8664::tcr.ffi-exception) (%l imm0))
    317   (movl (%l arg_z) (@ (% :rcontext) x8664::tcr.ffi-exception))
     309  (movl (@ (% :rcontext) x8632::tcr.ffi-exception) (%l imm0))
     310  (movl (%l arg_z) (@ (% :rcontext) x8632::tcr.ffi-exception))
    318311  (box-fixnum imm0 arg_z)
    319312  (single-value-return))
Note: See TracChangeset for help on using the changeset viewer.