Fix bignum inline allocator

2008-10-09 17:03:30 -05:00 · 2008-10-09 17:03:30 -05:00 · e5a55dafad
parent 2438c78c6c
commit e5a55dafad
1 changed files with 1 additions and 1 deletions
--- a/basis/cpu/x86/allot/allot.factor
+++ b/basis/cpu/x86/allot/allot.factor
@ -71,7 +71,7 @@ M: x86 %gc ( -- )
        ! Allocate a bignum
        dst 4 cells bignum bignum temp %allot
        ! Write length
-        dst 1 bignum@ 2 MOV
+        dst 1 bignum@ 2 tag-fixnum MOV
        ! Test sign
        src 0 CMP
        "positive" get JGE