From 03157ca3b9a556bb858cd371aedb74e6122243b4 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Tue, 2 Dec 2003 17:40:42 +0000 Subject: [PATCH] Don't export or define DYNAMIC-SPACE-OVERFLOW-WARNING or DYNAMIC-SPACE-OVERFLOW-ERROR if the :heap-overflow-check is not defined. (This was breaking sparc/non-gencgc builds.) --- compiler/sparc/parms.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 9c3605dcf..58fe42162 100644 --- a/compiler/sparc/parms.lisp +++ b/compiler/sparc/parms.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.48 2003/10/27 18:33:10 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.49 2003/12/02 17:40:42 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -208,13 +208,15 @@ (export '(halt-trap pending-interrupt-trap error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap after-breakpoint-trap allocation-trap - dynamic-space-overflow-error-trap - dynamic-space-overflow-warning-trap pseudo-atomic-trap object-not-list-trap object-not-instance-trap trace-table-normal trace-table-call-site trace-table-function-prologue trace-table-function-epilogue)) +#+heap-overflow-check +(export '(dynamic-space-overflow-error-trap + dynamic-space-overflow-warning-trap)) + (defenum (:suffix -trap :start 8) halt pending-interrupt @@ -223,7 +225,9 @@ breakpoint function-end-breakpoint after-breakpoint + #+heap-overflow-check dynamic-space-overflow-warning + #+heap-overflow-check dynamic-space-overflow-error ) -- GitLab