diff --git a/code/debug-int.lisp b/code/debug-int.lisp index a4c899396fc43c5d0003b7fa277a3e6d3c1e9f79..db9216582289f49eddd79a23f89f0088bc6da856 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.63 1993/11/07 23:42:49 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.64 1993/11/08 00:22:25 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3628,6 +3628,7 @@ ;; 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. (error "BREAKPOINT-DO-DISPLACED-INST returned?")))) (defun invoke-breakpoint-hooks (breakpoints component offset) @@ -3739,6 +3740,7 @@ new-lra (logandc2 (+ vm:code-constants-offset bogus-lra-constants 1) 1)) + (vm:sanctify-for-execution code-object) (values new-lra code-object (system:sap- trap-loc src-start))))))