From 5a9ad64ec1b116cc6714e695912718adadfdb99a Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 18 May 2001 18:06:40 +0000
Subject: [PATCH] Boostrap for sparc.

---
 bootfiles/18c/sparc-boot1.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 bootfiles/18c/sparc-boot1.lisp

diff --git a/bootfiles/18c/sparc-boot1.lisp b/bootfiles/18c/sparc-boot1.lisp
new file mode 100644
index 000000000..699818088
--- /dev/null
+++ b/bootfiles/18c/sparc-boot1.lisp
@@ -0,0 +1,9 @@
+(in-package "VM")
+(defconstant fixnum-tag-bits (1- lowtag-bits)
+  "Number of tag bits used for a fixnum")
+
+(defconstant fixnum-tag-mask (1- (ash 1 fixnum-tag-bits))
+  "Mask to get the fixnum tag")
+
+(defconstant positive-fixnum-bits (- word-bits fixnum-tag-bits 1)
+  "Maximum number of bits in a positive fixnum")
-- 
GitLab