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

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

3
core/cpu/arm/architecture/architecture.factor
View File

@ -117,7 +117,8 @@ M: arm-backend %jump-t ( label -- )
#! Load jump table target address into reg. #! Load jump table target address into reg.
"scratch" operand PC "n" operand 1 <LSR> ADD "scratch" operand PC "n" operand 1 <LSR> ADD
"scratch" operand 0 <+> LDR "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# -- ) M: arm-backend %call-dispatch ( word-table# -- )
[ [