From a0e57c3106c76d6f40dc91acc8da404122d82152 Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Thu, 24 Apr 2014 13:17:02 -0400 Subject: [PATCH] code/debug-int: Enable as much of FIND-ESCAPED-FRAME as we can for ARM. * We need this for backtraces across a signal frame to work, which is used for INTERNAL-ERROR. The bit that we can't really deal with yet is for when the frame is an assembly-routine frame, but that's a very small number of cases at this time. --- src/code/debug-int.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 97af7a699..2888b9e7b 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -911,7 +911,7 @@ (values code pc-offset context))))))))) ;; -#!-(or x86 x86-64 arm) +#!-(or x86 x86-64) (defun find-escaped-frame (frame-pointer) (declare (type system-area-pointer frame-pointer)) (/noshow0 "entering FIND-ESCAPED-FRAME") @@ -934,6 +934,7 @@ (- (get-lisp-obj-address code) sb!vm:other-pointer-lowtag) code-header-len))) + #!-arm ;; FIXME: This is wrong for ARM. (let ((code-size (* (code-header-ref code sb!vm:code-code-size-slot) sb!vm:n-word-bytes))) -- 2.11.4.GIT