diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index e8a0bf99e7f6e74ea3a4c0b4624113fa6142944c..8628ed6ec0dae452ca350488a4a350c990a57d55 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.42 2003/08/22 13:20:03 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.43 2003/08/27 16:45:56 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -210,7 +210,7 @@ (export '(halt-trap pending-interrupt-trap error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap - after-breakpoint-trap pseudo-atomic-trap + after-breakpoint-trap allocation-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)) diff --git a/lisp/sparc-arch.c b/lisp/sparc-arch.c index f887aecd941d7c0f29cd945db61cb8f7a8965efa..b63770eb730d46e27cf79db5d3ee99c88c33d4ea 100644 --- a/lisp/sparc-arch.c +++ b/lisp/sparc-arch.c @@ -1,6 +1,6 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.13 2003/08/22 13:20:03 toy Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.14 2003/08/27 16:45:56 toy Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -242,7 +242,7 @@ boolean allocation_trap_p(struct sigcontext *context) pc = SC_PC(context); - if (trap_inst_p(pc, &trapno) && (trapno == 31)) + if (trap_inst_p(pc, &trapno) && (trapno == trap_Allocation)) { /* Got the trap. Is it preceeded by an OR instruction? */ or_inst = pc[-1];