18 lines
334 B
C
18 lines
334 B
C
|
#define FACTOR_CPU_STRING "arm"
|
||
|
|
|
||
|
|
register CELL ds asm("r5");
|
||
|
|
register CELL rs asm("r6");
|
||
|
|
register void **primitives asm("r7");
|
||
|
|
|
||
|
|
void *native_stack_pointer(void);
|
||
|
|
|
||
|
|
typedef CELL F_COMPILED_FRAME;
|
||
|
|
|
||
|
|
#define PREVIOUS_FRAME(frame) (frame + 1)
|
||
|
|
#define RETURN_ADDRESS(frame) (*(frame))
|
||
|
|
|
||
|
|
INLINE void execute(F_WORD* word)
|
||
|
|
{
|
||
|
|
word->xt(word);
|
||
|
|
}
|