Changeset 13859

Timestamp:

Jun 19, 2010, 10:54:04 AM (11 years ago)

Author:

gb

Message:

NTH-IMMEDIATE: add 1 to skip function entrypoint.
Define an NTH-IMMEDIATE lapmacro.

Location:

branches/arm/compiler/ARM

Files:

• arm-arch.lisp (modified) (1 diff)
• arm-lapmacros.lisp (modified) (1 diff)

branches/arm/compiler/ARM/arm-arch.lisp

@@ -1295 +1295 @@
   area.succ)
 
+;;; We generally don't want much code to see the function's entrypoint.
 (defarmarchmacro ccl::nth-immediate (f i)
-  `(ccl::%svref ,f ,i))
+  `(ccl::%svref ,f (the fixnum (+ (the fixnum ,i) 1))))
 
 (defarmarchmacro ccl::set-nth-immediate (f i new)
-  `(setf (ccl::%svref ,f ,i) ,new))
+  `(setf (ccl::%svref ,f (the fixnum (+ (the fixnum ,i) 1))) ,new))
 
 (defarmarchmacro ccl::symptr->symvector (s)

branches/arm/compiler/ARM/arm-lapmacros.lisp

@@ -300 +300 @@
  `(ldr ,dest (:@ ,vector (:$ (+ (* 4 ,index) arm::misc-data-offset)))))
 
+;;; Immediate indices (for e.g. gfs) don't account for the entrypoint.
+(defarmlapmacro nth-immediate (dest index vector)
+  `(svref ,dest (1+ ,index) ,vector))
+
 ;;; This evals its args in the wrong order.
 ;;; Can't imagine any code will care.