`((let ((vop ,vop))
(when vop
(note-this-location vop :internal-error)))
- (inst break ,kind)
+ (inst break 0 ,kind)
(with-adjustable-vector (,vector)
(write-var-integer (error-number-or-lose ',code) ,vector)
,@(mapcar #'(lambda (tn)
"Cause a continuable error. If the error is continued, execution resumes at
LABEL."
`(progn
- (inst b ,label)
- ,@(emit-error-break vop cerror-trap error-code values)))
+ (without-scheduling ()
+ (inst b ,label)
+ ,@(emit-error-break vop cerror-trap error-code values))))
(defmacro generate-error-code (vop error-code &rest values)
"Generate-Error-Code Error-code Value*
(let ((label (gen-label)))
(inst bgez ,flag-tn label)
(inst addu alloc-tn (1- ,extra))
- (inst break 16)
+ (inst break 0 16)
(emit-label label)))))
\f
;;;; memory accessor vop generators