From d91165a32be27d612b43d29240a14a6c0cec7585 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 2 Nov 2007 04:12:41 -0500 Subject: [PATCH] Fix dispatch on ARM --- core/cpu/arm/architecture/architecture.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/cpu/arm/architecture/architecture.factor b/core/cpu/arm/architecture/architecture.factor index cadfcfda14..4e2a363db3 100755 --- 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 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# -- ) [