Changeset 13806


Ignore:
Timestamp:
Jun 11, 2010, 7:02:32 AM (9 years ago)
Author:
gb
Message:

Some float->fixnum things.

File:
1 edited

Legend:

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

    r13789 r13806  
    8888
    8989;;; Caller guarantees that result fits in a fixnum.
    90 #+notyet
    9190(defarmlapfunction %truncate-double-float->fixnum ((arg arg_z))
    92   (get-double-float fp0 arg)
    93   (fctiwz fp0 fp0)
    94   (stwu tsp -16 tsp)
    95   (stw tsp 4 tsp)
    96   (stfd fp0 8 tsp)
    97   (lwz imm0 (+ 8 4) tsp)
    98   (lwz tsp 0 tsp)
    99   (box-fixnum arg_z imm0) 
    100   (blr))
    101 
    102 
    103 
    104 #+notyet
     91  (get-double-float d0 arg)
     92  (ftosizd s2 d0)
     93  (fmrs imm0 s2)
     94  (box-fixnum arg_z imm0)
     95  (bx lr))
     96
     97
     98
    10599(defarmlapfunction %truncate-short-float->fixnum ((arg arg_z))
    106   (get-single-float fp0 arg)
    107   (fctiwz fp0 fp0)
    108   (stwu tsp -16 tsp)
    109   (stw tsp 4 tsp)
    110   (stfd fp0 8 tsp)
    111   (lwz imm0 (+ 8 4) tsp)
    112   (lwz tsp 0 tsp)
    113   (box-fixnum arg_z imm0) 
    114   (blr))
     100  (get-single-float s0 arg imm0)
     101  (ftosizs s2 s0)
     102  (fmrs imm0 s2)
     103  (box-fixnum arg_z imm0)
     104  (bx lr))
    115105
    116106
Note: See TracChangeset for help on using the changeset viewer.