gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.259, 2011/11/21 01:37:12	version 1.262, 2011/12/02 22:06:13
Line 2035 dsystem = DZERO;	Line 2035 dsystem = DZERO;

ntime ( -- dtime ) gforth	ntime ( -- dtime ) gforth
""Report the current time in nanoseconds since some epoch.""	""Report the current time in nanoseconds since some epoch.""
struct timespec t;	struct timespec time1;
clock_gettime(CLOCK_REALTIME,&t);	#ifdef HAVE_CLOCK_GETTIME
dtime = timespec2ns(&t);	clock_gettime(CLOCK_REALTIME,&time1);
	#else
	struct timeval time2;
	gettimeofday(&time2,NULL);
	time1.tv_sec = time2.tv_sec;
	time1.tv_nsec = time2.tv_usec*1000;
	#endif
	dtime = timespec2ns(&time1);

\+	\+