Fix ARM %prepare-primitive
parent
7cdfb02781
commit
0b4219e2f0
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue