Diff for /gforth/prim between versions 1.261 and 1.262

version 1.261, 2011/12/02 21:59:09 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.""
 #ifdef HAVE_CLOCK_GETTIME  
 struct timespec time1;  struct timespec time1;
   #ifdef HAVE_CLOCK_GETTIME
 clock_gettime(CLOCK_REALTIME,&time1);  clock_gettime(CLOCK_REALTIME,&time1);
 dtime = timespec2ns(&time1);  
 #else  #else
 struct timeval time1;  struct timeval time2;
 gettimeofday(&time1,NULL);  gettimeofday(&time2,NULL);
 dtime = timeval2us(&time1) * 1000LL;  time1.tv_sec = time2.tv_sec;
   time1.tv_nsec = time2.tv_usec*1000;
 #endif  #endif
   dtime = timespec2ns(&time1);
   
 \+  \+
   

Removed from v.1.261  
changed lines
  Added in v.1.262


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>