Ignore:
Timestamp:
Jul 3, 2010, 4:49:22 AM (10 years ago)
Author:
gb
Message:

Add/fix things.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-numbers.lisp

    r13903 r13913  
    107107
    108108;;; DOES round to even
    109 #+notyet
     109
    110110(defarmlapfunction %round-nearest-double-float->fixnum ((arg arg_z))
    111   (get-double-float fp0 arg)
    112   (fctiw fp0 fp0)
    113   (stwu tsp -16 tsp)
    114   (stw tsp 4 tsp)
    115   (stfd fp0 8 tsp)
    116   (lwz imm0 (+ 8 4) tsp)
    117   (lwz tsp 0 tsp)
    118   (box-fixnum arg_z imm0) 
    119   (blr))
    120 
    121 
    122 
    123 #+notyet
     111  (get-double-float d0 arg)
     112  (ftosid s2 d0)
     113  (fmrs imm0 s2)
     114  (box-fixnum arg_z imm0)
     115  (bx lr))
     116
     117
     118
    124119(defarmlapfunction %round-nearest-short-float->fixnum ((arg arg_z))
    125   (get-single-float fp0 arg)
    126   (fctiw fp0 fp0)
    127   (stwu tsp -16 tsp)
    128   (stw tsp 4 tsp)
    129   (stfd fp0 8 tsp)
    130   (lwz imm0 (+ 8 4) tsp)
    131   (lwz tsp 0 tsp)
    132   (box-fixnum arg_z imm0) 
    133   (blr))
     120  (get-single-float s0 arg imm0)
     121  (ftosis s2 s0)
     122  (fmrs imm0 s2)
     123  (box-fixnum arg_z imm0)
     124  (bx lr))
    134125
    135126
Note: See TracChangeset for help on using the changeset viewer.