From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Dec 2018 22:01:18 +0000 (+0000)
Subject: Fix fixnum range.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~35
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cab531dfbc5f6e278c20808fa4b4c257d34fb972;p=mit-scheme.git

Fix fixnum range.
---

diff --git a/src/compiler/base/fasdump.scm b/src/compiler/base/fasdump.scm
index 700c49d4b..895fafb40 100644
--- a/src/compiler/base/fasdump.scm
+++ b/src/compiler/base/fasdump.scm
@@ -66,8 +66,8 @@ USA.
    'FLOAT-ALIGN-WORDS   (/ 8 bytes-per-word) ;XXX may want stricter
    'BITS-PER-BIGNUM-DIGIT       (- (* 8 bytes-per-word) 2)
    'WORDS-PER-BIGNUM-DIGIT      1
-   'GREATEST-FIXNUM     (bit-mask (* bytes-per-word 8) 0)
-   'LEAST-FIXNUM        (- -1 (bit-mask (* bytes-per-word 8) 0))
+   'GREATEST-FIXNUM     (bit-mask (- (* bytes-per-word 8) 7) 0)
+   'LEAST-FIXNUM        (- -1 (bit-mask (- (* bytes-per-word 8) 7) 0))
    'WRITE-WORD          write-word
    'WRITE-UNTAGGED-WORD write-untagged-word
    'WRITE-BIGNUM-DIGIT  write-bignum-digit
diff --git a/tests/compiler/test-fasdump.scm b/tests/compiler/test-fasdump.scm
index dcfe2b257..13e09b5ee 100644
--- a/tests/compiler/test-fasdump.scm
+++ b/tests/compiler/test-fasdump.scm
@@ -274,8 +274,8 @@ USA.
     (1000000000000000)
     (10000000000000000)
     (100000000000000000)
-    (1000000000000000000 ,expect-failure)
-    (10000000000000000000 ,expect-failure)
+    (1000000000000000000)
+    (10000000000000000000)
     (100000000000000000000)
     (,(expt 2 100))
     (,(expt 3 100))