From cab531dfbc5f6e278c20808fa4b4c257d34fb972 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 11 Dec 2018 22:01:18 +0000 Subject: [PATCH] Fix fixnum range. --- src/compiler/base/fasdump.scm | 4 ++-- tests/compiler/test-fasdump.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.25.1