Changeset 13761

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:

• branches/arm/compiler/ARM/arm-lap.lisp (modified) (1 diff)

branches/arm/compiler/ARM/arm-lap.lisp

@@ -115 +115 @@
           (setf (uvref constants-vector (+ 2 k)) imm)))
       (setf (uvref constants-vector (1- constants-size)) bits ; lfun-bits
-            (uvref constants-vector 1) code-vector)
+            (uvref constants-vector 1) code-vector
+            (uvref constants-vector 0) (ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift)))
       #+arm-target (%make-code-executable code-vector)
       constants-vector)))