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