2014-11-15 01:14:47 -05:00
|
|
|
USING: accessors compiler.cfg compiler.cfg.build-stack-frame
|
|
|
|
|
compiler.cfg.stack-frame kernel namespaces tools.test ;
|
|
|
|
|
IN: compiler.cfg.stack-frame.tests
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
112
|
|
|
|
|
! 112 37 +
|
|
|
|
|
149
|
|
|
|
|
} [
|
|
|
|
|
T{ stack-frame
|
|
|
|
|
{ params 91 }
|
|
|
|
|
{ allot-area-align 8 }
|
|
|
|
|
{ allot-area-size 10 }
|
|
|
|
|
{ spill-area-align 8 }
|
|
|
|
|
{ spill-area-size 16 }
|
2014-12-12 20:14:39 -05:00
|
|
|
} finalize-stack-frame
|
2014-11-15 01:14:47 -05:00
|
|
|
[ spill-area-base>> ]
|
|
|
|
|
[ stack-frame set 37 spill-offset ] bi
|
|
|
|
|
] unit-test
|
