Fix ARM %prepare-primitive

release
Slava Pestov 2007-11-05 13:39:34 -05:00
parent 7cdfb02781
commit 0b4219e2f0
1 changed files with 1 additions and 1 deletions

View File

@ -113,7 +113,7 @@ M: arm-backend %jump-label ( label -- ) B ;
: %prepare-primitive ( -- ) : %prepare-primitive ( -- )
#! Save stack pointer to stack_chain->callstack_top, load XT #! Save stack pointer to stack_chain->callstack_top, load XT
R1 SP MOV ; R1 SP 4 SUB ;
M: arm-backend %call-primitive ( word -- ) M: arm-backend %call-primitive ( word -- )
%prepare-primitive %prepare-primitive