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

Augmented emit-error-break to not call note-this-location if the vop is

NIL.  This way, we can use internal errors inside of assembly-routines,
which don't have a vop to pass in.
parent d5d98cb6
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/compiler/mips/macros.lisp,v 1.35 1990/07/03 06:35:44 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.36 1990/07/05 22:21:26 wlott Exp $
;;; ;;;
;;; This file contains various useful macros for generating MIPS code. ;;; This file contains various useful macros for generating MIPS code.
;;; ;;;
...@@ -452,7 +452,9 @@ ...@@ -452,7 +452,9 @@
(eval-when (compile load eval) (eval-when (compile load eval)
(defun emit-error-break (vop kind code values) (defun emit-error-break (vop kind code values)
`((note-this-location ,vop :internal-error) `((let ((vop ,vop))
(when vop
(note-this-location vop :internal-error)))
(inst break ,kind) (inst break ,kind)
(inst byte (error-number-or-lose ',code)) (inst byte (error-number-or-lose ',code))
,@(mapcar #'(lambda (tn) ,@(mapcar #'(lambda (tn)
......
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