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:
|
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)
|
||||||
|
|
|
@ -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:
|
||||||
|
|
||||||
|
|
|
@ -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- ;
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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"
|
"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"
|
||||||
|
|
Loading…
Reference in New Issue