From 54497be1c1cf082ee72050677f62e80f3e180ed9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 22 Mar 1991 14:01:43 +0000
Subject: [PATCH] Changed random defconstants back to a defenum now that Rob
 fixed the compilation order problem.  Added defenum for trace-table entry
 values.

---
 compiler/sparc/parms.lisp | 33 +++++++++++++++++++++------------
 1 file changed, 21 insertions(+), 12 deletions(-)

diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp
index b19d1018f..e66a9c485 100644
--- a/compiler/sparc/parms.lisp
+++ b/compiler/sparc/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.6 1991/03/19 18:48:28 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.7 1991/03/22 14:01:43 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the SPARC.  This file is separate from other stuff so 
@@ -138,17 +138,26 @@
 ;;;; Other random constants.
 
 (export '(halt-trap pending-interrupt-trap error-trap cerror-trap
-	  breakpoint-trap object-not-list-trap object-not-structure-trap))
-
-(defconstant halt-trap 8)
-(defconstant pending-interrupt-trap 9)
-(defconstant error-trap 10)
-(defconstant cerror-trap 11)
-(defconstant breakpoint-trap 12)
-
-
-(defconstant object-not-list-trap 16)
-(defconstant object-not-structure-trap 17)
+	  breakpoint-trap object-not-list-trap object-not-structure-trap
+	  trace-table-normal trace-table-call-site
+	  trace-table-function-prologue trace-table-function-epilogue))
+
+(defenum (:suffix -trap :start 8)
+  halt
+  pending-interrupt
+  error
+  cerror
+  breakpoint)
+
+(defenum (:prefix object-not- :suffix -trap :start 16)
+  list
+  structure)
+
+(defenum (:prefix trace-table-)
+  normal
+  call-site
+  function-prologue
+  function-epilogue)
 
 
 
-- 
GitLab