Changeset 14108
- Timestamp:
- Aug 2, 2010, 5:41:14 PM (9 years ago)
- Location:
- branches/arm
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/compiler/ARM/arm-lapmacros.lisp
r14097 r14108 344 344 `(str ,new-value (:@ ,vector (:$ (+ (* 4 ,index) arm::misc-data-offset))))) 345 345 346 ;;; Load the low 32 bits of the integer constant VAL into REG, using movw/movt. 347 (defarmlapmacro lri (reg val) 348 (let* ((high (ldb (byte 16 16) val)) 349 (low (ldb (byte 16 0) val))) 350 `(progn 351 (movw ,reg (:$ ,low)) 352 ,@(unless (zerop high) 353 `((movt ,reg (:$ ,high))))))) 354 346 355 (defarmlapmacro load-subprim (reg spname) 347 356 `(mov ,reg (:$ ,(subprim-name->offset spname)))) -
branches/arm/level-0/ARM/arm-numbers.lisp
r14104 r14108 247 247 (add imm0 imm2 (:lsr imm0 (:$ 1))) 248 248 249 (l dr imm2 (:= @m2))249 (lri imm2 2147462579) 250 250 (cmp imm0 imm2) 251 251 (subhi imm0 imm0 imm2) … … 260 260 (add imm1 imm2 (:lsr imm1 (:$ 1))) 261 261 262 (l dr imm2 (:= @m2))262 (lri imm2 2147462579) 263 263 (cmp imm1 imm2) 264 264 (subhi imm1 imm1 imm2) … … 286 286 (bic imm2 imm2 (:$ #xe0000000)) ;avoid negative fixnums 287 287 (box-fixnum arg_z imm2) 288 (bx lr)) 289 290 (:data) 291 @m2 292 (:word 2147462579)) 288 (bx lr))) 293 289 294 290 ; End of arm-numbers.lisp -
branches/arm/level-1/l1-init.lisp
r13897 r14108 266 266 (defparameter *save-definitions* nil) 267 267 (defparameter *save-local-symbols* t) 268 (defparameter *save-source-locations* #+arm-target nil #-arm-targetT268 (defparameter *save-source-locations* T 269 269 "Controls whether source location information is saved, both for definitions (names) and 270 270 in function objects.
Note: See TracChangeset
for help on using the changeset viewer.