fix typo in fixnum<< generator

cvs
Slava Pestov 2005-12-11 01:00:28 +00:00
parent 98b5593fd1
commit 44826cb0d7
3 changed files with 6 additions and 6 deletions

View File

@ -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

View File

@ -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

View File

@ -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