Changeset 13806
- Timestamp:
- Jun 11, 2010, 7:02:32 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/level-0/ARM/arm-numbers.lisp
r13789 r13806 88 88 89 89 ;;; Caller guarantees that result fits in a fixnum. 90 #+notyet91 90 (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 105 99 (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)) 115 105 116 106
Note: See TracChangeset
for help on using the changeset viewer.