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