Fix bug with bootstrapping bignums on a 32-bit system for a 64-bit system
parent
2ec46c8483
commit
ed4b7607bd
2
Makefile
2
Makefile
|
@ -125,7 +125,7 @@ solaris solaris-x86:
|
|||
|
||||
windows:
|
||||
$(MAKE) $(BINARY) \
|
||||
CFLAGS="$(DEFAULT_CFLAGS) -DFFI -DWIN32" \
|
||||
CFLAGS="$(DEFAULT_CFLAGS) -DWIN32" \
|
||||
LIBS="$(DEFAULT_LIBS)" WIN32=y
|
||||
|
||||
f: $(OBJS)
|
||||
|
|
|
@ -10,6 +10,8 @@
|
|||
- OS X stuff:
|
||||
- set resource path to bundle path
|
||||
- link in freetype statically
|
||||
- when generating a 32-bit image on a 64-bit system, large numbers which should
|
||||
be bignums become fixnums
|
||||
|
||||
+ io:
|
||||
|
||||
|
|
|
@ -112,7 +112,7 @@ M: fixnum ' ( n -- tagged ) fixnum-tag immediate ;
|
|||
|
||||
( Bignums )
|
||||
|
||||
: bignum-bits cell-bits 2 - ;
|
||||
: bignum-bits bootstrap-cell-bits 2 - ;
|
||||
|
||||
: bignum-radix bignum-bits 1 swap shift 1- ;
|
||||
|
||||
|
|
|
@ -8,6 +8,7 @@ USING: namespaces math ;
|
|||
: bootstrap-cells bootstrap-cell * ; inline
|
||||
|
||||
: cell-bits 8 cells ; inline
|
||||
: bootstrap-cell-bits 8 cells ; inline
|
||||
|
||||
IN: math
|
||||
|
||||
|
|
|
@ -0,0 +1,4 @@
|
|||
IN: temporary
|
||||
USING: kernel math sequences test ;
|
||||
|
||||
[ t ] [ 100 [ drop 20 random-int 0 20 between? ] all? ] unit-test
|
|
@ -83,7 +83,7 @@ SYMBOL: failures
|
|||
"words" "prettyprint" "random" "stream" "math/bitops"
|
||||
"math/math-combinators" "math/rational" "math/float"
|
||||
"math/complex" "math/irrational"
|
||||
"math/integer" "threads" "parsing-word"
|
||||
"math/integer" "math/random" "threads" "parsing-word"
|
||||
"inference" "interpreter" "alien"
|
||||
"gadgets/line-editor" "gadgets/rectangles"
|
||||
"gadgets/frames" "memory"
|
||||
|
|
Loading…
Reference in New Issue