steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bignum inline allocator

db4
Slava Pestov 2008-10-09 17:03:30 -05:00
parent 2438c78c6c
commit e5a55dafad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cpu/x86/allot/allot.factor
View File

@ -71,7 +71,7 @@ M: x86 %gc ( -- )
! Allocate a bignum ! Allocate a bignum
dst 4 cells bignum bignum temp %allot dst 4 cells bignum bignum temp %allot
! Write length ! Write length
dst 1 bignum@ 2 MOV dst 1 bignum@ 2 tag-fixnum MOV
! Test sign ! Test sign
src 0 CMP src 0 CMP
"positive" get JGE "positive" get JGE