Ignore:
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.

File:
1 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)
Note: See TracChangeset for help on using the changeset viewer.