version 1.90, 2006/03/11 23:05:09
|
version 1.96, 2007/01/21 23:22:29
|
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 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 54
|
Line 54
|
#include "fnmatch.h" |
#include "fnmatch.h" |
#endif |
#endif |
#else |
#else |
#include "systypes.h" |
/* #include <systypes.h> */ |
#endif |
#endif |
|
|
#if defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) /* what else? */ |
#if defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) /* what else? */ |
Line 98 extern int gforth_memcmp(const char * s1
|
Line 98 extern int gforth_memcmp(const char * s1
|
|
|
#define NEWLINE '\n' |
#define NEWLINE '\n' |
|
|
|
/* These two flags control whether divisions are checked by software. |
|
The CHECK_DIVISION_SW is for those cases where the event is a |
|
division by zero or overflow on the C level, and might be reported |
|
by hardware; we might check forr that in autoconf and set the |
|
switch appropriately, but currently don't. The CHECK_DIVISION flag |
|
is for the other cases. */ |
|
#ifdef GFORTH_DEBUGGING |
|
#define CHECK_DIVISION_SW 1 |
|
#define CHECK_DIVISION 1 |
|
#else |
|
#define CHECK_DIVISION_SW 0 |
|
#define CHECK_DIVISION 0 |
|
#endif |
|
|
/* conversion on fetch */ |
/* conversion on fetch */ |
|
|
#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) |
#define vm_Cell2f(_cell,_x) ((_x)=(Bool)(_cell)) |