[q-lang-cvs] q/src sys.c,1.3,1.4

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/q/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv5741/src

Modified Files:
	sys.c 
Log Message:
add support for highres timers

Index: sys.c
===================================================================
RCS file: /cvsroot/q-lang/q/src/sys.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sys.c	22 Feb 2008 11:55:51 -0000	1.3
--- sys.c	22 Feb 2008 12:55:29 -0000	1.4
***************
*** 166,169 ****
--- 166,194 ----
  }
  
+ #ifdef HAVE_CLOCK_GETTIME
+ 
+ double systime(void)
+ {
+   struct timespec tv;
+   int res = clock_gettime(CLOCK_REALTIME, &tv);
+   if (res)
+     return 0.0;
+   else
+     return ((double)tv.tv_sec)+((double)tv.tv_nsec)*1e-9;
+ }
+ 
+ #else
+ 
+ #ifdef HAVE_GETTIMEOFDAY
+ 
+ double systime(void)
+ {
+   struct timeval tv;
+   gettimeofday(&tv, NULL);
+   return ((double)tv.tv_sec)+((double)tv.tv_usec)*1e-6;
+ }
+ 
+ #else
+ 
  #ifdef HAVE_FTIME
  
***************
*** 186,189 ****
--- 211,218 ----
  #endif
  
+ #endif
+ 
+ #endif
+ 
  #ifndef _WIN32