Fix dispatch on ARM

release
Slava Pestov 2007-11-02 04:12:41 -05:00
parent ee9fafd183
commit d91165a32b
1 changed files with 2 additions and 1 deletions

View File

@ -117,7 +117,8 @@ M: arm-backend %jump-t ( label -- )
#! Load jump table target address into reg.
"scratch" operand PC "n" operand 1 <LSR> ADD
"scratch" operand 0 <+> LDR
rc-indirect-arm rel-dispatch ;
rc-indirect-arm rel-dispatch
"scratch" operand dup compiled-header-size ADD ;
M: arm-backend %call-dispatch ( word-table# -- )
[