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