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: + 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

View File

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

View File

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