From f308ea57596b6b58ca12fac1de649d9377c3921c Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 27 Aug 2003 16:45:56 +0000 Subject: [PATCH] sparc/parms.lisp: o Export ALLOCATION-TRAP so genesis will put a #define for trap_Allocation in internals.h lisp/sparc-arch.c: o Use trap_Allocation instead of a hard-wired 31. --- compiler/sparc/parms.lisp | 4 ++-- lisp/sparc-arch.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index e8a0bf99e..8628ed6ec 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 f887aecd9..b63770eb7 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]; -- GitLab