version 1.115, 2011/11/16 20:36:13
|
version 1.119, 2012/07/15 12:03:07
|
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 202 extern int gforth_memcmp(const char * s1
|
Line 208 extern int gforth_memcmp(const char * s1
|
#ifndef FTOSREG |
#ifndef FTOSREG |
#define FTOSREG |
#define FTOSREG |
#endif |
#endif |
|
#ifndef OPREG |
|
#define OPREG |
|
#endif |
|
|
#ifndef CPU_DEP1 |
#ifndef CPU_DEP1 |
# define CPU_DEP1 0 |
# define CPU_DEP1 0 |
Line 263 extern int gforth_memcmp(const char * s1
|
Line 272 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 331 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
Line 340 Label *gforth_engine(Xt *ip0, Cell *sp0,
|
register Address lp LPREG = lp0; |
register Address lp LPREG = lp0; |
register Xt cfa CFAREG; |
register Xt cfa CFAREG; |
register Label real_ca CAREG; |
register Label real_ca CAREG; |
|
#ifdef HAS_OBJECTS |
|
register Char * op OPREG = NULL; |
|
#endif |
#ifdef MORE_VARS |
#ifdef MORE_VARS |
MORE_VARS |
MORE_VARS |
#endif |
#endif |