From bb86e622ed3f5f6a6883f5489fce1105aac4a540 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 3 Oct 2001 14:03:47 +0000 Subject: [PATCH] Export pseudo-atomic-trap so genesis will put it in internals.h for C usage. --- compiler/sparc/parms.lisp | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 122d07dae..adec6f276 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.32 2001/05/18 18:05:39 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.33 2001/10/03 14:03:47 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -188,7 +188,7 @@ (export '(halt-trap pending-interrupt-trap error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap - after-breakpoint-trap + after-breakpoint-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)) @@ -202,6 +202,7 @@ function-end-breakpoint after-breakpoint) +;; Make sure this starts AFTER the last element of the above enum! (defenum (:prefix object-not- :suffix -trap :start 16) list instance) @@ -274,5 +275,12 @@ (defparameter *assembly-unit-length* 8) -;;;; Pseudo-atomic trap number +;;;; Pseudo-atomic trap number. +;;;; +;;;; This should be any valid trap number. According to the Sparc +;;;; Compliance Definition 2.4.1, only traps 16-31 are allowed for +;;;; user applications. All others are reserved. It's ok if this +;;;; number matches any of the other trap enums above because those +;;;; are only used in an illtrap instruction, not the trap +;;;; instruction. This needs to be coordinated with the C code. (defconstant pseudo-atomic-trap 16) -- GitLab