From 045bbbd97fa138cc8c2701750b1634544c12e4c6 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Oct 1992 13:17:01 +0000 Subject: [PATCH] Added handle-function-end-breakpoint and removed *allocation-pointer* and *binding-stack-pointer* from the static symbols. --- compiler/hppa/parms.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/compiler/hppa/parms.lisp b/compiler/hppa/parms.lisp index 32111708f..27c95b920 100644 --- a/compiler/hppa/parms.lisp +++ b/compiler/hppa/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/parms.lisp,v 1.1 1992/07/13 03:48:29 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/parms.lisp,v 1.2 1992/10/13 13:17:01 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -187,16 +187,13 @@ lisp::maybe-gc kernel::internal-error di::handle-breakpoint + di::handle-function-end-breakpoint lisp::fdefinition-object ;; Free Pointers. lisp::*read-only-space-free-pointer* lisp::*static-space-free-pointer* lisp::*initial-dynamic-space-free-pointer* - lisp::*allocation-pointer* - - ;; The binding stack. - lisp::*binding-stack-pointer* ;; Things needed for non-local-exit. lisp::*current-catch-block* -- GitLab