Skip to content
Snippets Groups Projects
Commit f308ea57 authored by toy's avatar toy
Browse files

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.
parent 87f8a109
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
/*
$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];
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment