Fix fixnum range.

diff --git a/src/compiler/base/fasdump.scm b/src/compiler/base/fasdump.scm
index 700c49d4bf9a5abbf0300aaeaf5ba406de8128b6..895fafb40e85511f01622915a749845dd8f2c05e 100644 (file)
--- 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 dcfe2b257d551a4ed3f69efa8a6332cbf37ac5c6..13e09b5eed72ea5ac4960295bd1e621e463bd4ff 100644 (file)
--- 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))