compiler.cfg.stack-analysis: change how inc-d/inc-r work

db4
Slava Pestov 2009-05-23 15:47:08 -05:00
parent 96975474b0
commit 145f1dbeef
1 changed files with 2 additions and 2 deletions

View File

@ -101,11 +101,11 @@ M: neutral-insn visit , ;
: adjust-d ( n -- ) state get [ + ] change-d-height drop ;
M: ##inc-d visit n>> adjust-d ;
M: ##inc-d visit [ , ] [ n>> adjust-d ] bi ;
: adjust-r ( n -- ) state get [ + ] change-r-height drop ;
M: ##inc-r visit n>> adjust-r ;
M: ##inc-r visit [ , ] [ n>> adjust-r ] bi ;
: eliminate-peek ( dst src -- )
! the requested stack location is already in 'src'