From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 20 Apr 2019 19:30:40 +0000 (+0000)
Subject: Make this run on ucode without nonnegative-fixnum-length/mask.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6865fa1714987f4dfbfd57dd40e9b1c490dcef9b;p=mit-scheme.git

Make this run on ucode without nonnegative-fixnum-length/mask.
---

diff --git a/src/runtime/microcode-tables.scm b/src/runtime/microcode-tables.scm
index f71807ad8..bfb482310 100644
--- a/src/runtime/microcode-tables.scm
+++ b/src/runtime/microcode-tables.scm
@@ -203,9 +203,14 @@ USA.
   (set! microcode-id/floating-exponent-max
         (microcode-identification-item 'flonum-exponent-max))
   (set! microcode-id/nonnegative-fixnum-length
-	(microcode-identification-item 'nonnegative-fixnum-length))
+	(or (microcode-identification-item 'nonnegative-fixnum-length #f)
+	    (let loop ((i 1) (n 0))
+	      (if (fix:fixnum? i)
+		  (loop (* i 2) (+ n 1))
+		  n))))
   (set! microcode-id/nonnegative-fixnum-mask
-	(microcode-identification-item 'nonnegative-fixnum-mask))
+	(or (microcode-identification-item 'nonnegative-fixnum-mask #f)
+	    (fix:not (fix:lsh -1 microcode-id/nonnegative-fixnum-length))))
   (set! microcode-id/operating-system-name
 	(microcode-identification-item 'os-name-string))
   (set! microcode-id/operating-system