fix typo in fixnum<< generator
parent
98b5593fd1
commit
44826cb0d7
|
@ -1,7 +1,7 @@
|
||||||
+ 0.80:
|
+ 0.80:
|
||||||
|
|
||||||
- -with combinators are ackward
|
- does parsing cons excessive amounts of bignums with c-streams
|
||||||
|
- -with combinators are awkward
|
||||||
- cleanups:
|
- cleanups:
|
||||||
alien/compiler
|
alien/compiler
|
||||||
inference/shuffle
|
inference/shuffle
|
||||||
|
|
|
@ -79,10 +79,10 @@ parse-command-line
|
||||||
"Building cross-reference database..." print
|
"Building cross-reference database..." print
|
||||||
recrossref
|
recrossref
|
||||||
|
|
||||||
all-words [ compiled? ] subset length
|
[ compiled? ] word-subset length
|
||||||
number>string write " compiled words" print
|
number>string write " compiled words" print
|
||||||
|
|
||||||
all-words [ symbol? ] subset length
|
[ symbol? ] word-subset length
|
||||||
number>string write " symbol words" print
|
number>string write " symbol words" print
|
||||||
|
|
||||||
all-words length
|
all-words length
|
||||||
|
|
|
@ -118,9 +118,9 @@ M: %fixnum<< generate-node
|
||||||
! there is going to be an overflow, make a bignum
|
! there is going to be an overflow, make a bignum
|
||||||
1 input-operand tag-bits SAR
|
1 input-operand tag-bits SAR
|
||||||
"s48_long_to_bignum" f
|
"s48_long_to_bignum" f
|
||||||
1 input-operand 0 input 2array compile-c-call*
|
|
||||||
"s48_bignum_arithmetic_shift" f
|
|
||||||
1 input-operand 1array compile-c-call*
|
1 input-operand 1array compile-c-call*
|
||||||
|
"s48_bignum_arithmetic_shift" f
|
||||||
|
1 input-operand 0 input 2array compile-c-call*
|
||||||
! tag the result
|
! tag the result
|
||||||
1 input-operand bignum-tag OR
|
1 input-operand bignum-tag OR
|
||||||
"end" get JMP
|
"end" get JMP
|
||||||
|
|
Loading…
Reference in New Issue