From 186d580b7d2661743fe0082a97c458d2321bf16f Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 21 May 2001 18:51:11 +0000
Subject: [PATCH] Renamed sparc-boot1.lisp to boot4.lisp, with appropriate
 changes so boot4.lisp only has effect for sparc.

---
 bootfiles/18c/boot4.lisp       | 14 ++++++++++++++
 bootfiles/18c/sparc-boot1.lisp |  9 ---------
 2 files changed, 14 insertions(+), 9 deletions(-)
 create mode 100644 bootfiles/18c/boot4.lisp
 delete mode 100644 bootfiles/18c/sparc-boot1.lisp

diff --git a/bootfiles/18c/boot4.lisp b/bootfiles/18c/boot4.lisp
new file mode 100644
index 000000000..f4d06c4d8
--- /dev/null
+++ b/bootfiles/18c/boot4.lisp
@@ -0,0 +1,14 @@
+(in-package "VM")
+
+;; Add some new constants for the Sparc backend.
+#+sparc
+(progn
+  (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")
+  )
diff --git a/bootfiles/18c/sparc-boot1.lisp b/bootfiles/18c/sparc-boot1.lisp
deleted file mode 100644
index 699818088..000000000
--- a/bootfiles/18c/sparc-boot1.lisp
+++ /dev/null
@@ -1,9 +0,0 @@
-(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