steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/cpu/x86/architecture/architecture.factor
View File

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