Changeset 13761


Ignore:
Timestamp:
Jun 1, 2010, 11:20:44 AM (9 years ago)
Author:
gb
Message:

Ensure that the entryoint of newly-created functions goes to
.SPfix-nfn-entrypoint.

File:
1 edited

Legend:

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

    r13741 r13761  
    115115          (setf (uvref constants-vector (+ 2 k)) imm)))
    116116      (setf (uvref constants-vector (1- constants-size)) bits ; lfun-bits
    117             (uvref constants-vector 1) code-vector)
     117            (uvref constants-vector 1) code-vector
     118            (uvref constants-vector 0) (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift)))
    118119      #+arm-target (%make-code-executable code-vector)
    119120      constants-vector)))
Note: See TracChangeset for help on using the changeset viewer.