From 250dfe2bfc7e79b5aae2269ff0bb78b5ece856df Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sun, 5 Dec 2004 20:11:08 +0000 Subject: [PATCH] 0.8.17.21: * contrib/sb-aclrepl/tests.lisp: Port forward changes from sbcl-amd64 to test bignums when sb-vm::n-word-bits is 64. --- contrib/sb-aclrepl/tests.lisp | 26 ++++++++++++++++++++------ version.lisp-expr | 2 +- 2 files changed, 21 insertions(+), 7 deletions(-) diff --git a/contrib/sb-aclrepl/tests.lisp b/contrib/sb-aclrepl/tests.lisp index ac725ed..2bf3397 100644 --- a/contrib/sb-aclrepl/tests.lisp +++ b/contrib/sb-aclrepl/tests.lisp @@ -187,9 +187,16 @@ (def-elements-tests *complex* 2 #(1 2) #((0 . "real") (1 . "imag"))) (def-elements-tests *ratio* 2 #(22 7) #((0 . "numerator") (1 . "denominator"))) -(def-elements-tests *bignum* 2 - #(2112454933 287445236) - #((0 . :HEX32) (1 . :HEX32))) +(case sb-vm::n-word-bits + (32 + (def-elements-tests *bignum* 2 + #(2112454933 287445236) + #((0 . :HEX32) (1 . :HEX32)))) + (64 + (def-elements-tests *bignum* 1 + #(1234567890123456789) + #((0 . :HEX64))))) + (def-elements-tests *vector* 20 #(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19) #(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)) @@ -315,10 +322,17 @@ 2 REALLY-LONG-STRUCT-SLOT-NAME -> a simple-string (4) \"defg\"" nil 2) -(def-display-test *bignum* -"bignum 1234567890123456789 with 2 32-bit words +(case sb-vm::n-word-bits + (32 + (def-display-test *bignum* + "bignum 1234567890123456789 with 2 32-bit words 0-> #x7DE98115 - 1-> #x112210F4") + 1-> #x112210F4")) + (64 + (def-display-test *bignum* + "bignum 1234567890123456789 with 1 64-bit word + 0-> #x112210F47DE98115" + ))) (def-display-test *vector* "a simple T vector (20) diff --git a/version.lisp-expr b/version.lisp-expr index 032a97d..7e2536e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.17.20" +"0.8.17.21" -- 1.7.10.4