version 1.84, 2005/08/21 22:09:14
|
version 1.87, 2005/12/31 15:46:13
|
Line 1
|
Line 1
|
/* Gforth virtual machine (aka inner interpreter) |
/* Gforth virtual machine (aka inner interpreter) |
|
|
Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 241 extern int gforth_memcmp(const char * s1
|
Line 241 extern int gforth_memcmp(const char * s1
|
} |
} |
#endif |
#endif |
|
|
#ifdef HAS_FFCALL |
#if defined(HAS_FFCALL) || defined(HAS_LIBFFI) |
#define SAVE_REGS IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp; |
#define SAVE_REGS IF_fpTOS(fp[0]=fpTOS); SP=sp; FP=fp; RP=rp; LP=lp; |
#define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_fpTOS(fpTOS=fp[0]); |
#define REST_REGS sp=SP; fp=FP; rp=RP; lp=LP; IF_fpTOS(fpTOS=fp[0]); |
#endif |
#endif |
Line 259 extern int gforth_memcmp(const char * s1
|
Line 259 extern int gforth_memcmp(const char * s1
|
#define VARIANT(v) (v) |
#define VARIANT(v) (v) |
#define JUMP(target) goto I_noop |
#define JUMP(target) goto I_noop |
#define LABEL(name) H_##name: SKIP16; I_##name: |
#define LABEL(name) H_##name: SKIP16; I_##name: |
#define IN_ENGINE2 |
|
|
|
#elif ENGINE==3 |
#elif ENGINE==3 |
/* variant with different immediate arguments for finding out |
/* variant with different immediate arguments for finding out |