factor/basis/compiler/cfg/cfg-tests.factor

USING: accessors combinators compiler.cfg kernel layouts tools.test ;
IN: compiler.cfg.tests

{
    "word"
    "label"
    0
    t
} [
    "word" "label" <basic-block> <cfg>
    {
        [ word>> ]
        [ label>> ]
        [ spill-area-size>> ]
        [ spill-area-align>> cell = ]
    } cleave
] unit-test
compiler.cfg.linear-scan.allocation.state: set spill-area-size/align when the cfg tuple is created 2015-04-12 23:27:09 -04:00			`USING: accessors combinators compiler.cfg kernel layouts tools.test ;`
compiler.cfg.*: refactoring to remove the initial-basic-block word 2015-03-24 12:38:42 -04:00			`IN: compiler.cfg.tests`

			`{`
			`"word"`
			`"label"`
compiler.cfg.linear-scan.allocation.state: set spill-area-size/align when the cfg tuple is created 2015-04-12 23:27:09 -04:00			`0`
			`t`
compiler.cfg.*: refactoring to remove the initial-basic-block word 2015-03-24 12:38:42 -04:00			`} [`
			`"word" "label" <basic-block> <cfg>`
compiler.cfg.linear-scan.allocation.state: set spill-area-size/align when the cfg tuple is created 2015-04-12 23:27:09 -04:00			`{`
			`[ word>> ]`
			`[ label>> ]`
			`[ spill-area-size>> ]`
			`[ spill-area-align>> cell = ]`
			`} cleave`
compiler.cfg.*: refactoring to remove the initial-basic-block word 2015-03-24 12:38:42 -04:00			`] unit-test`