Fix ARM %prepare-primitive

2007-11-05 13:39:34 -05:00 · 2007-11-05 13:39:34 -05:00 · 0b4219e2f0
parent 7cdfb02781
commit 0b4219e2f0
1 changed files with 1 additions and 1 deletions
--- 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