Changeset 14588 for branches


Ignore:
Timestamp:
Jan 21, 2011, 7:05:29 PM (9 years ago)
Author:
rme
Message:

In %get-/%set-mxcsr, just use tcr.unboxed0.

File:
1 edited

Legend:

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

    r13067 r14588  
    281281;;; Return the MXCSR as a fixnum
    282282(defx8632lapfunction %get-mxcsr ()
    283   (stmxcsr (:rcontext x8632::tcr.scratch-mxcsr))
    284   (movl (:rcontext x8632::tcr.scratch-mxcsr) (% imm0))
     283  (stmxcsr (:rcontext x8632::tcr.unboxed0))
     284  (movl (:rcontext x8632::tcr.unboxed0) (% imm0))
    285285  (box-fixnum imm0 arg_z)
    286286  (single-value-return))
     
    292292  (unbox-fixnum val imm0)
    293293  (andl ($ x86::mxcsr-write-mask) (% imm0))
    294   (movl (% imm0) (:rcontext x8632::tcr.scratch-mxcsr))
    295   (ldmxcsr (:rcontext x8632::tcr.scratch-mxcsr))
     294  (movl (% imm0) (:rcontext x8632::tcr.unboxed0))
     295  (ldmxcsr (:rcontext x8632::tcr.unboxed0))
    296296  (single-value-return))
    297297
Note: See TracChangeset for help on using the changeset viewer.