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