Fix PPC backend

release
Slava Pestov 2007-10-05 15:25:01 -04:00
parent 1d0ebde8dc
commit 08d65db2e5
1 changed files with 2 additions and 2 deletions

View File

@ -41,9 +41,9 @@ TUPLE: ppc-backend ;
: factor-area-size 4 cells ;
: xt-save ( n -- i ) cell - ;
: next-save ( n -- i ) cell - ;
: next-save ( n -- i ) 2 cells - ;
: xt-save ( n -- i ) 2 cells - ;
M: ppc-backend stack-frame ( n -- i )
local@ factor-area-size + 4 cells align ;