Changeset 13859


Ignore:
Timestamp:
Jun 19, 2010, 10:54:04 AM (9 years ago)
Author:
gb
Message:

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

Location:
branches/arm/compiler/ARM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-arch.lisp

    r13832 r13859  
    12951295  area.succ)
    12961296
     1297;;; We generally don't want much code to see the function's entrypoint.
    12971298(defarmarchmacro ccl::nth-immediate (f i)
    1298   `(ccl::%svref ,f ,i))
     1299  `(ccl::%svref ,f (the fixnum (+ (the fixnum ,i) 1))))
    12991300
    13001301(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))
    13021303
    13031304(defarmarchmacro ccl::symptr->symvector (s)
  • branches/arm/compiler/ARM/arm-lapmacros.lisp

    r13808 r13859  
    300300 `(ldr ,dest (:@ ,vector (:$ (+ (* 4 ,index) arm::misc-data-offset)))))
    301301
     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
    302306;;; This evals its args in the wrong order.
    303307;;; Can't imagine any code will care.
Note: See TracChangeset for help on using the changeset viewer.