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>> ]
        [
            stack-frame>>
            [ spill-area-size>> ]
            [ spill-area-align>> cell = ] bi
        ]
    } 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>> ]`
compiler.cfg.*: refactoring which removes spill-area-size and spill-area-align from cfg This makes the code for building the stack frame simpler. 2015-11-02 12:40:13 -05:00			`[`
			`stack-frame>>`
			`[ spill-area-size>> ]`
			`[ spill-area-align>> cell = ] bi`
			`]`
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			`} cleave`
compiler.cfg.*: refactoring to remove the initial-basic-block word 2015-03-24 12:38:42 -04:00			`] unit-test`