Skip to content
Snippets Groups Projects
Commit 0a709583 authored by wlott's avatar wlott
Browse files

#+new-compiler'ed stuff that only works in the new compiler. Changed

frame-escaped to compiled-frame-escaped.
parent cc1c7137
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.9 1990/08/14 16:34:25 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.10 1990/09/06 19:41:49 wlott Exp $
;;; ;;;
;;; Functions and macros to define and deal with internal errors (i.e. ;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code). ;;; problems that can be signaled from assembler code).
...@@ -106,6 +106,7 @@ ...@@ -106,6 +106,7 @@
`(%deferr ',name `(%deferr ',name
,(meta-error-number name) ,(meta-error-number name)
,description ,description
#+new-compiler
#'(lambda (name ,fp ,sigcontext ,sc-offsets) #'(lambda (name ,fp ,sigcontext ,sc-offsets)
(declare (ignorable name ,fp ,sigcontext ,sc-offsets)) (declare (ignorable name ,fp ,sigcontext ,sc-offsets))
(macrolet ((set-value (var value) (macrolet ((set-value (var value)
...@@ -138,7 +139,7 @@ ...@@ -138,7 +139,7 @@
) ; Eval-When (Compile Eval) ) ; Eval-When (Compile Eval)
(defun %deferr (name number description function) (defun %deferr (name number description #+new-compiler function)
(when (>= number (length *internal-errors*)) (when (>= number (length *internal-errors*))
(setf *internal-errors* (setf *internal-errors*
(replace (make-array (+ number 10) :initial-element nil) (replace (make-array (+ number 10) :initial-element nil)
...@@ -146,7 +147,7 @@ ...@@ -146,7 +147,7 @@
(setf (svref *internal-errors* number) (setf (svref *internal-errors* number)
(make-error-info :name name (make-error-info :name name
:description description :description description
:function function)) #+new-compiler :function #+new-compiler function))
name) name)
...@@ -425,8 +426,9 @@ ...@@ -425,8 +426,9 @@
(let ((*finding-name* t)) (let ((*finding-name* t))
(do ((frame (di:top-frame) (di:frame-down frame))) (do ((frame (di:top-frame) (di:frame-down frame)))
((or (null frame) ((or (null frame)
(di::frame-escaped frame)) (and (di::compiled-frame-p frame)
(if frame (di::compiled-frame-escaped frame)))
(if (di::compiled-frame-p frame)
(di:debug-function-name (di:debug-function-name
(di:frame-debug-function frame)) (di:frame-debug-function frame))
"<error finding name>")))) "<error finding name>"))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment