Changeset 13808
- Timestamp:
- Jun 11, 2010, 7:06:38 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/compiler/ARM/arm-lapmacros.lisp
r13762 r13808 164 164 (defarmlapmacro header-length (dest vheader) 165 165 `(progn 166 ( mov ,dest '-1)167 ( and ,dest ,dest (:lsr ,vheader(:$ (- arm::num-subtag-bits arm::fixnumshift))))))166 (bic ,dest ,vheader (:$ arm::subtag-mask)) 167 (mov ,dest (:lsr ,dest (:$ (- arm::num-subtag-bits arm::fixnumshift)))))) 168 168 169 169 … … 254 254 (defarmlapmacro get-double-float (dest node) 255 255 `(progn 256 (ldrd d imm0 imm1(:@ ,node (:$ arm::double-float.value)))256 (ldrd imm0 (:@ ,node (:$ arm::double-float.value))) 257 257 (fmdrr ,dest imm0 imm1))) 258 258 … … 266 266 `(progn 267 267 (fmrrd imm0 imm1 ,src) 268 (strd d imm0 imm1(:@ ,node (:$ arm::double-float.value)))))268 (strd imm0 (:@ ,node (:$ arm::double-float.value))))) 269 269 270 270
Note: See TracChangeset
for help on using the changeset viewer.