Another cpu.x86 fix

db4
Slava 2008-01-17 17:19:10 -05:00
parent b88d219ff6
commit b0944cb3f8
1 changed files with 2 additions and 0 deletions
core/cpu/x86/architecture

View File

@ -100,12 +100,14 @@ M: x86-backend %call-dispatch ( word-table# -- )
[ 5 (%dispatch) CALL <label> dup JMP ] H{
{ +input+ { { f "n" } } }
{ +scratch+ { { f "offset" } } }
{ +clobber+ { "n" } }
} with-template ;
M: x86-backend %jump-dispatch ( -- )
[ %epilogue-later 0 (%dispatch) JMP ] H{
{ +input+ { { f "n" } } }
{ +scratch+ { { f "offset" } } }
{ +clobber+ { "n" } }
} with-template ;
M: x86-backend %dispatch-label ( word -- )