Fix bug with bootstrapping bignums on a 32-bit system for a 64-bit system

slava 2006-03-20 01:22:57 +00:00
parent 2ec46c8483
commit ed4b7607bd
6 changed files with 10 additions and 3 deletions

View File

@ -125,7 +125,7 @@ solaris solaris-x86:
windows: windows:
$(MAKE) $(BINARY) \ $(MAKE) $(BINARY) \
CFLAGS="$(DEFAULT_CFLAGS) -DFFI -DWIN32" \ CFLAGS="$(DEFAULT_CFLAGS) -DWIN32" \
LIBS="$(DEFAULT_LIBS)" WIN32=y LIBS="$(DEFAULT_LIBS)" WIN32=y
f: $(OBJS) f: $(OBJS)

View File

@ -10,6 +10,8 @@
- OS X stuff: - OS X stuff:
- set resource path to bundle path - set resource path to bundle path
- link in freetype statically - link in freetype statically
- when generating a 32-bit image on a 64-bit system, large numbers which should
be bignums become fixnums
+ io: + io:

View File

@ -112,7 +112,7 @@ M: fixnum ' ( n -- tagged ) fixnum-tag immediate ;
( Bignums ) ( Bignums )
: bignum-bits cell-bits 2 - ; : bignum-bits bootstrap-cell-bits 2 - ;
: bignum-radix bignum-bits 1 swap shift 1- ; : bignum-radix bignum-bits 1 swap shift 1- ;

View File

@ -8,6 +8,7 @@ USING: namespaces math ;
: bootstrap-cells bootstrap-cell * ; inline : bootstrap-cells bootstrap-cell * ; inline
: cell-bits 8 cells ; inline : cell-bits 8 cells ; inline
: bootstrap-cell-bits 8 cells ; inline
IN: math IN: math

View File

@ -0,0 +1,4 @@
IN: temporary
USING: kernel math sequences test ;
[ t ] [ 100 [ drop 20 random-int 0 20 between? ] all? ] unit-test

View File

@ -83,7 +83,7 @@ SYMBOL: failures
"words" "prettyprint" "random" "stream" "math/bitops" "words" "prettyprint" "random" "stream" "math/bitops"
"math/math-combinators" "math/rational" "math/float" "math/math-combinators" "math/rational" "math/float"
"math/complex" "math/irrational" "math/complex" "math/irrational"
"math/integer" "threads" "parsing-word" "math/integer" "math/random" "threads" "parsing-word"
"inference" "interpreter" "alien" "inference" "interpreter" "alien"
"gadgets/line-editor" "gadgets/rectangles" "gadgets/line-editor" "gadgets/rectangles"
"gadgets/frames" "memory" "gadgets/frames" "memory"