Skip to content
Snippets Groups Projects
Commit 303f4f4b authored by wlott's avatar wlott
Browse files

Oops, have to pass the entire sigcontext into internal-error-arguments,

'cause it might depend on more than just the PC.
parent 71899872
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.13 1990/11/26 18:43:31 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.14 1990/11/26 18:46:38 wlott Exp $
;;;
;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code).
......@@ -454,8 +454,7 @@
(regs (mach:sigcontext-regs (alien-value sc)) mach:int-array t))
(multiple-value-bind
(error-number arguments)
(vm:internal-error-arguments
(alien-access (mach:sigcontext-pc (alien-value sc))))
(vm:internal-error-arguments (alien-value sc))
(let ((fp (int-sap (di::escape-register (alien-value sc)
vm::cfp-offset)))
(name (find-interrupted-name))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment