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

Added NIL for the vop in all the error macros.

parent 5a9b8108
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/assembly/mips/assem-rtns.lisp,v 1.17 1990/06/17 20:18:20 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.18 1990/07/06 20:49:30 wlott Exp $
;;; ;;;
;;; ;;;
(in-package "C") (in-package "C")
...@@ -36,11 +36,11 @@ ...@@ -36,11 +36,11 @@
(dotimes (i (1- vm:function-header-code-offset)) (dotimes (i (1- vm:function-header-code-offset))
(inst word 0)) (inst word 0))
;; Cause the error. ;; Cause the error.
(cerror-call continue undefined-symbol-error cname) (cerror-call nil continue undefined-symbol-error cname)
continue continue
(let ((not-sym (generate-cerror-code object-not-symbol-error cname))) (let ((not-sym (generate-cerror-code nil object-not-symbol-error cname)))
(test-simple-type cname temp not-sym t vm:symbol-header-type)) (test-simple-type cname temp not-sym t vm:symbol-header-type))
(loadw lexenv cname vm:symbol-function-slot vm:other-pointer-type) (loadw lexenv cname vm:symbol-function-slot vm:other-pointer-type)
...@@ -66,7 +66,7 @@ ...@@ -66,7 +66,7 @@
(:temp target-uwp any-reg nl2-offset)) (:temp target-uwp any-reg nl2-offset))
(declare (ignore start count)) (declare (ignore start count))
(let ((error (generate-error-code invalid-unwind-error))) (let ((error (generate-error-code nil invalid-unwind-error)))
(inst beq block zero-tn error)) (inst beq block zero-tn error))
(load-symbol-value cur-uwp lisp::*current-unwind-protect-block*) (load-symbol-value cur-uwp lisp::*current-unwind-protect-block*)
...@@ -104,7 +104,7 @@ ...@@ -104,7 +104,7 @@
loop loop
(let ((error (generate-error-code unseen-throw-tag-error target))) (let ((error (generate-error-code nil unseen-throw-tag-error target)))
(inst beq catch zero-tn error) (inst beq catch zero-tn error)
(inst nop)) (inst nop))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment