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
|
||||
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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue