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

slots: add initial value for integer-array-capacity, fixes part of #1571

locals-and-roots
Björn Lindqvist 2016-03-21 18:10:39 +01:00
parent 2c1739deb0
commit 85c3ccbb98
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/classes/tuple/tuple-tests.factor
View File

@ -701,6 +701,16 @@ TUPLE: boa-coercer-test { x array-capacity } ;
{ T{ boa-coercer-test f 0 } } [ T{ boa-coercer-test } ] unit-test
TUPLE: boa-iac { x integer-array-capacity initial: 77 } ;
{ fixnum bignum 77 } [
30 boa-iac boa x>> class-of
10 >bignum boa-iac boa x>> class-of
boa-iac new x>>
] unit-test
[ -99 boa-iac boa ] [ bad-slot-value? ] must-fail-with
! Make sure that tuple reshaping updates code heap roots
TUPLE: code-heap-ref ;

1
core/slots/slots.factor
View File

@ -203,6 +203,7 @@ M: anonymous-intersection initial-value*
{ [ dup "initial-value" word-prop ] [ dup "initial-value" word-prop t ] }
{ [ \ f bootstrap-word over class<= ] [ f t ] }
{ [ \ array-capacity bootstrap-word over class<= ] [ 0 t ] }
{ [ \ integer-array-capacity bootstrap-word over class<= ] [ 0 t ] }
{ [ bignum bootstrap-word over class<= ] [ 0 >bignum t ] }
{ [ float bootstrap-word over class<= ] [ 0.0 t ] }
{ [ string bootstrap-word over class<= ] [ "" t ] }