Changeset 11239


Ignore:
Timestamp:
Oct 27, 2008, 6:58:01 PM (11 years ago)
Author:
rme
Message:

Undo changes to this file from earlier commit (r11237).
(Not ready for this stuff yet. Accidentally committed
the wrong file.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-float.lisp

    r11237 r11239  
    312312  (single-value-return))
    313313
    314 ;;; Return the x87 status word in effect after the last ff-call.
    315 ;;; It's kept in the high half of the ffi-exception slot in the
    316 ;;; TCR.
    317 (defx8632lapfunction %get-post-ffi-x87-status ()
    318   (xor (% arg_z) (% arg_z))
    319   (movzwl (:rcontext (+ 2 x8632::tcr.ffi-exception)) (% imm0))
    320   (movl (% arg_z) (:rcontext x8632::tcr.ffi-exception))
    321   (box-fixnum imm0 arg_z)
    322   (single-value-return))
    323 
    324314;;; The next several defuns are copied verbatim from x8664-float.lisp.
    325315;;; It will probably be desirable to factor this code out into a new
     
    335325  (logior (%get-mxcsr-control)
    336326          (logand x86::mxcsr-status-mask (the fixnum (%get-post-ffi-mxcsr)))))
    337 
    338 (defun %ffi-exception-status-x87 ()
    339   (logior (%get-mxcsr-control)
    340           (logand x86::mxcsr-status-mask (the fixnum (%get-post-ffi-x87-status)))))
    341327
    342328;;; See if the binary double-float operation OP set any enabled
Note: See TracChangeset for help on using the changeset viewer.