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 themdb4
parent
b5333ec7aa
commit
bc8525bf5b
|
@ -1,5 +1,6 @@
|
||||||
USING: compiler.cfg.build-stack-frame compiler.cfg.stack-frame
|
USING: accessors compiler.cfg compiler.cfg.build-stack-frame
|
||||||
cpu.x86 math slots.syntax tools.test ;
|
compiler.cfg.stack-frame cpu.x86 kernel math namespaces slots.syntax
|
||||||
|
tools.test ;
|
||||||
IN: compiler.cfg.build-stack-frame.tests
|
IN: compiler.cfg.build-stack-frame.tests
|
||||||
|
|
||||||
{
|
{
|
||||||
|
@ -22,3 +23,8 @@ IN: compiler.cfg.build-stack-frame.tests
|
||||||
! on all other platforms.
|
! on all other platforms.
|
||||||
reserved-stack-space -
|
reserved-stack-space -
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
{ f } [
|
||||||
|
t frame-required? set
|
||||||
|
f f <basic-block> <cfg> dup build-stack-frame stack-frame>>
|
||||||
|
] unit-test
|
||||||
|
|
|
@ -74,6 +74,7 @@ M: insn compute-stack-frame* drop ;
|
||||||
bi ;
|
bi ;
|
||||||
|
|
||||||
: build-stack-frame ( cfg -- )
|
: build-stack-frame ( cfg -- )
|
||||||
|
f frame-required? set
|
||||||
0 param-area-size set
|
0 param-area-size set
|
||||||
0 allot-area-size set
|
0 allot-area-size set
|
||||||
cell allot-area-align set
|
cell allot-area-align set
|
||||||
|
|
Loading…
Reference in New Issue