Fix dispatch on ARM

2007-11-02 04:12:41 -05:00 · 2007-11-02 04:12:41 -05:00 · d91165a32b
parent ee9fafd183
commit d91165a32b
1 changed files with 2 additions and 1 deletions
--- a/core/cpu/arm/architecture/architecture.factor
+++ b/core/cpu/arm/architecture/architecture.factor
@ -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# -- )
    [