version 1.114, 2011/11/13 00:45:21
|
version 1.118, 2012/03/23 20:49:44
|
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,2005,2006,2007,2008,2010 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2010,2011 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 89
|
Line 89
|
|
|
#ifdef MEMCMP_AS_SUBROUTINE |
#ifdef MEMCMP_AS_SUBROUTINE |
extern int gforth_memcmp(const char * s1, const char * s2, size_t n); |
extern int gforth_memcmp(const char * s1, const char * s2, size_t n); |
|
extern Char *gforth_memmove(Char * dest, const Char* src, Cell n); |
|
extern Char *gforth_memset(Char * s, Cell c, UCell n); |
|
extern Char *gforth_memcpy(Char * dest, const Char* src, Cell n); |
#define memcmp(s1,s2,n) gforth_memcmp(s1,s2,n) |
#define memcmp(s1,s2,n) gforth_memcmp(s1,s2,n) |
|
#define memmove(a,b,c) gforth_memmove(a,b,c) |
|
#define memset(a,b,c) gforth_memset(a,b,c) |
|
#define memcpy(a,b,c) gforth_memcpy(a,b,c) |
#endif |
#endif |
|
|
#define NEWLINE '\n' |
#define NEWLINE '\n' |
Line 263 extern int gforth_memcmp(const char * s1
|
Line 269 extern int gforth_memcmp(const char * s1
|
#endif |
#endif |
|
|
#ifdef STANDALONE |
#ifdef STANDALONE |
jmp_buf throw_jmp_buf; |
jmp_buf * throw_jmp_handler; |
|
|
void throw(int code) |
void throw(int code) |
{ |
{ |
longjmp(throw_jmp_buf,code); /* !! or use siglongjmp ? */ |
longjmp(*throw_jmp_handler,code); /* !! or use siglongjmp ? */ |
} |
} |
#endif |
#endif |
|
|
Line 424 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 430 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
#endif |
#endif |
} |
} |
|
|
#if !(defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING)) |
#ifdef USE_TOS |
sp += STACK_CACHE_DEFAULT-1; |
sp += STACK_CACHE_DEFAULT-1; |
/* some of those registers are dead, but its simpler to initialize them all */ spTOS = sp[0]; |
/* some of those registers are dead, but its simpler to initialize them all */ spTOS = sp[0]; |
spb = sp[-1]; |
spb = sp[-1]; |