From 0b4219e2f068ed45ff626a23ec428bb2469d6d93 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 5 Nov 2007 13:39:34 -0500 Subject: [PATCH] Fix ARM %prepare-primitive --- core/cpu/arm/architecture/architecture.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/cpu/arm/architecture/architecture.factor b/core/cpu/arm/architecture/architecture.factor index 0784b3af60..4e693bbe34 100755 --- a/core/cpu/arm/architecture/architecture.factor +++ b/core/cpu/arm/architecture/architecture.factor @@ -113,7 +113,7 @@ M: arm-backend %jump-label ( label -- ) B ; : %prepare-primitive ( -- ) #! Save stack pointer to stack_chain->callstack_top, load XT - R1 SP MOV ; + R1 SP 4 SUB ; M: arm-backend %call-primitive ( word -- ) %prepare-primitive