[Openmcl-cvs-notifications] r14767 - /trunk/source/level-1/arm-trap-support.lisp

[gb at clozure.com]

Author: gb
Date: Sun May  1 07:26:15 2011
New Revision: 14767

Log:
RETURN-ADDRESS-OFFSET: ARM code vectors are in the 1st element of
the function object, not element 0.

Modified:
    trunk/source/level-1/arm-trap-support.lisp

Modified: trunk/source/level-1/arm-trap-support.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/arm-trap-support.lisp (original)
+++ trunk/source/level-1/arm-trap-support.lisp Sun May  1 07:26:15 2011
@@ -125,7 +125,7 @@
   (with-macptrs ((regs (pref xp #+linuxarm-target :ucontext.uc_mcontext
                                 #+darwinarm-target :ucontext_t.uc_mcontext=
.__ss)))
     (if (functionp fn)
-      (or (%code-vector-pc (uvref fn 0) (%inc-ptr regs machine-state-offse=
t))
+      (or (%code-vector-pc (uvref fn 1) (%inc-ptr regs machine-state-offse=
t))
            (%get-ptr regs machine-state-offset))
       (%get-ptr regs machine-state-offset))))
 =