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

Fixing test failures

db4
Slava Pestov 2009-11-11 02:40:24 -06:00
parent 2afd7ce244
commit 41c17f0429
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/cfg.factor
View File

@ -4,6 +4,7 @@ USING: kernel math vectors arrays accessors namespaces ;
IN: compiler.cfg IN: compiler.cfg
TUPLE: basic-block < identity-tuple TUPLE: basic-block < identity-tuple
id
number number
{ instructions vector } { instructions vector }
{ successors vector } { successors vector }
@ -11,10 +12,13 @@ number
: <basic-block> ( -- bb ) : <basic-block> ( -- bb )
basic-block new basic-block new
\ basic-block counter >>id
V{ } clone >>instructions V{ } clone >>instructions
V{ } clone >>successors V{ } clone >>successors
V{ } clone >>predecessors ; V{ } clone >>predecessors ;
M: basic-block hashcode* nip id>> ;
TUPLE: cfg { entry basic-block } word label TUPLE: cfg { entry basic-block } word label
spill-area-size reps spill-area-size reps
post-order linear-order post-order linear-order

8
basis/compiler/tests/intrinsics.factor
View File

@ -585,16 +585,16 @@ TUPLE: alien-accessor-regression { b byte-array } { i fixnum } ;
swap [ swap [
{ tuple } declare 1 slot { tuple } declare 1 slot
] [ ] [
0 slot 1 slot
] if ; ] if ;
[ t ] [ f B{ } mutable-value-bug-1 byte-array type-number = ] unit-test [ 0 ] [ f { } mutable-value-bug-1 ] unit-test
: mutable-value-bug-2 ( a b -- c ) : mutable-value-bug-2 ( a b -- c )
swap [ swap [
0 slot 1 slot
] [ ] [
{ tuple } declare 1 slot { tuple } declare 1 slot
] if ; ] if ;
[ t ] [ t B{ } mutable-value-bug-2 byte-array type-number = ] unit-test [ 0 ] [ t { } mutable-value-bug-2 ] unit-test