gforth/engine/engine.c - diff

Return to engine.c CVS log

Up to [gforth] / gforth / engine

version 1.20, 2000/07/27 10:40:42	version 1.21, 2000/08/08 12:37:05
Line 39	Line 39
#include <unistd.h>	#include <unistd.h>
#include <pwd.h>	#include <pwd.h>
#include <dirent.h>	#include <dirent.h>
	#include <sys/resource.h>
#ifdef HAVE_FNMATCH_H	#ifdef HAVE_FNMATCH_H
#include <fnmatch.h>	#include <fnmatch.h>
#else	#else
Line 169 char tilde_cstr(Char from, UCell size,	Line 170 char tilde_cstr(Char from, UCell size,
}	}
#endif	#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<d1.lo);
	return d2;
	#endif
	}

#define NEWLINE '\n'	#define NEWLINE '\n'

#ifndef HAVE_RINT	#ifndef HAVE_RINT