compiler.cfg.build-stack-frame: the frame-required? variable needs to be

reset so that stack frames aren't included in words that doesn't need them
db4
Björn Lindqvist 2015-07-21 09:03:33 +02:00
parent b5333ec7aa
commit bc8525bf5b
2 changed files with 9 additions and 2 deletions

View File

@ -1,5 +1,6 @@
USING: compiler.cfg.build-stack-frame compiler.cfg.stack-frame
cpu.x86 math slots.syntax tools.test ;
USING: accessors compiler.cfg compiler.cfg.build-stack-frame
compiler.cfg.stack-frame cpu.x86 kernel math namespaces slots.syntax
tools.test ;
IN: compiler.cfg.build-stack-frame.tests
{
@ -22,3 +23,8 @@ IN: compiler.cfg.build-stack-frame.tests
! on all other platforms.
reserved-stack-space -
] unit-test
{ f } [
t frame-required? set
f f <basic-block> <cfg> dup build-stack-frame stack-frame>>
] unit-test

View File

@ -74,6 +74,7 @@ M: insn compute-stack-frame* drop ;
bi ;
: build-stack-frame ( cfg -- )
f frame-required? set
0 param-area-size set
0 allot-area-size set
cell allot-area-align set