Changeset 13859
- Timestamp:
- Jun 19, 2010, 10:54:04 AM (9 years ago)
- Location:
- branches/arm/compiler/ARM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/compiler/ARM/arm-arch.lisp
r13832 r13859 1295 1295 area.succ) 1296 1296 1297 ;;; We generally don't want much code to see the function's entrypoint. 1297 1298 (defarmarchmacro ccl::nth-immediate (f i) 1298 `(ccl::%svref ,f ,i))1299 `(ccl::%svref ,f (the fixnum (+ (the fixnum ,i) 1)))) 1299 1300 1300 1301 (defarmarchmacro ccl::set-nth-immediate (f i new) 1301 `(setf (ccl::%svref ,f ,i) ,new))1302 `(setf (ccl::%svref ,f (the fixnum (+ (the fixnum ,i) 1))) ,new)) 1302 1303 1303 1304 (defarmarchmacro ccl::symptr->symvector (s) -
branches/arm/compiler/ARM/arm-lapmacros.lisp
r13808 r13859 300 300 `(ldr ,dest (:@ ,vector (:$ (+ (* 4 ,index) arm::misc-data-offset))))) 301 301 302 ;;; Immediate indices (for e.g. gfs) don't account for the entrypoint. 303 (defarmlapmacro nth-immediate (dest index vector) 304 `(svref ,dest (1+ ,index) ,vector)) 305 302 306 ;;; This evals its args in the wrong order. 303 307 ;;; Can't imagine any code will care.
Note: See TracChangeset
for help on using the changeset viewer.