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

Fix 32-bit bootstrap

db4
Slava Pestov 2008-11-06 01:58:07 -06:00
parent 5bbaa006b8
commit 29279f305e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/bootstrap/image/image.factor
View File

@ -374,10 +374,12 @@ M: tombstone '
[ emit-tuple ] cache-object ; [ emit-tuple ] cache-object ;
! Arrays ! Arrays
M: array ' : emit-array ( array -- offset )
[ ' ] map array type-number object tag-number [ ' ] map array type-number object tag-number
[ [ length emit-fixnum ] [ emit-seq ] bi ] emit-object ; [ [ length emit-fixnum ] [ emit-seq ] bi ] emit-object ;
M: array ' emit-array ;
! This is a hack. We need to detect arrays which are tuple ! This is a hack. We need to detect arrays which are tuple
! layout arrays so that they can be internalized, but making ! layout arrays so that they can be internalized, but making
! them a built-in type is not worth it. ! them a built-in type is not worth it.
@ -389,7 +391,11 @@ PREDICATE: tuple-layout-array < array
tri and and tri and and
] [ drop f ] if ; ] [ drop f ] if ;
M: tuple-layout-array ' [ call-next-method ] cache-object ; M: tuple-layout-array '
[
[ dup integer? [ <fake-bignum> ] when ] map
emit-array
] cache-object ;
! Quotations ! Quotations