--- gforth/engine/engine.c 1999/06/17 15:32:14 1.13 +++ gforth/engine/engine.c 2000/09/23 15:47:07 1.23 @@ -1,6 +1,6 @@ /* Gforth virtual machine (aka inner interpreter) - Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. + Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. This file is part of Gforth. @@ -16,7 +16,7 @@ You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software - Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. */ #include "config.h" @@ -38,6 +38,13 @@ #include #include #include +#include +#include +#ifdef HAVE_FNMATCH_H +#include +#else +#include "fnmatch.h" +#endif #else #include "systypes.h" #endif @@ -80,6 +87,11 @@ int emitcounter; #endif #define NULLC '\0' +#ifdef MEMCMP_AS_SUBROUTINE +extern int gforth_memcmp(const char * s1, const char * s2, size_t n); +#define memcmp(s1,s2,n) gforth_memcmp(s1,s2,n) +#endif + #ifdef HAS_FILE char *cstr(Char *from, UCell size, int clear) /* return a C-string corresponding to the Forth string ( FROM SIZE ). @@ -158,6 +170,19 @@ char *tilde_cstr(Char *from, UCell size, } #endif +DCell timeval2us(struct timeval *tvp) +{ +#ifndef BUGGY_LONG_LONG + return (tvp->tv_sec*(DCell)1000000)+tvp->tv_usec; +#else + DCell d2; + DCell d1=mmul(tvp->tv_sec,1000000); + d2.lo = d1.lo+tvp->tv_usec; + d2.hi = d1.hi + (d2.lo=MAX_SYMBOLS) { fprintf(stderr,"gforth-ditc: more than %d primitives\n",MAX_SYMBOLS); exit(1); + } + symbols[i] = &routines[i]; } - symbols[i] = &routines[i]; - } #endif /* defined(DOUBLY_INDIRECT) */ - return symbols; -} + return symbols; + } IF_TOS(TOS = sp[0]); IF_FTOS(FTOS = fp[0]);