From d317f014e07f22df4ad3484b16ac08b1cce67f2f Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Mon, 18 Jul 1994 17:33:33 +0000 Subject: [PATCH] Took out the error on returning from arch-do-displaced-inst under irix. --- code/debug-int.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 72ed41218..b2480e512 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.66 1994/06/22 13:21:40 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.67 1994/07/18 17:33:33 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3657,7 +3657,8 @@ ;; to the C code. (breakpoint-do-displaced-inst signal-context (breakpoint-data-instruction data)) - #-hpux ; Under HPUX we can't sigreturn so bp-do-disp-i has to return. + ; Under HPUX we can't sigreturn so bp-do-disp-i has to return. + #-(or hpux irix) (error "BREAKPOINT-DO-DISPLACED-INST returned?")))) (defun invoke-breakpoint-hooks (breakpoints component offset) -- GitLab