From 4dc4f03bc58bcb3eb8c2646c44d95a75522ceb00 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Thu, 9 Oct 2003 19:01:22 +0000 Subject: [PATCH] Added constants pseudo-atomic-value and pseudo-atomic-interrupted-value for use in the code. --- compiler/sparc/parms.lisp | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index e7a08feab..36ff10733 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.44 2003/09/26 15:37:11 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.45 2003/10/09 19:01:22 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -329,8 +329,13 @@ (defparameter *assembly-unit-length* 8) +(export '(pseudo-atomic-trap allocation-trap + pseudo-atomic-value pseudo-atomic-interrupted-mask)) ;;;; Pseudo-atomic trap number. ;;;; +;;;; This is the trap number to use when a pseudo-atomic section has +;;;; been interrupted. +;;;; ;;;; 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 @@ -344,3 +349,16 @@ ;;;; This is the trap number to use when we need to allocate memory. ;;;; This must match the C runtime code (defconstant allocation-trap 31) + +;;;; Pseudo-atomic flag +;;;; +;;;; This value is added to alloc-tn to indicate a pseudo-atomic +;;;; section. +(defconstant pseudo-atomic-value (ash 1 (1- vm:lowtag-bits))) + +;;;; Pseudo-atomic-interrupted-mask +;;;; +;;;; This is a mask used to check if a pseudo-atomic section was +;;;; interrupted. On sparc, this is indicated by least-significant +;;;; bit of alloc-tn being 1. +(defconstant pseudo-atomic-interrupted-value 1) -- GitLab