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