Changeset 15488


Ignore:
Timestamp:
Oct 29, 2012, 11:31:18 AM (7 years ago)
Author:
gb
Message:

CONSTANT-REF prototype for ARM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/ARM/arm-utils.lisp

    r15093 r15488  
    529529  (bx lr))
    530530
    531 
     531(defarmlapfunction constant-ref ()
     532  (:arglist (&rest ignore))
     533  (cmp nargs '3)
     534  (ldr arg_z (:@ nfn 'constant))
     535  (bxls lr)
     536  (sub imm0 nargs '3)
     537  (add vsp vsp imm0)
     538  (bx lr))
    532539
    533540;;; end
Note: See TracChangeset for help on using the changeset viewer.