Greetings!

Gabriel Dos Reis <g...@cs.tamu.edu> writes:

> Camm Maguire <c...@maguirefamily.org> writes:
>
> | Greetings!
> | 
> | Gabriel Dos Reis <g...@cs.tamu.edu> writes:
> | 
> | > Camm Maguire <c...@maguirefamily.org> writes:
> | >
> | > | Greetings, and thanks!  Should be fixed now.  Please let me know if
> | > | problems persist.
> | >
> | > Everything builds fine this time around.  Hurray!
> | >
> | 
> | Great!
> | 
> | 1) Any microsecond clock function on windows like gettiemofday()?
>
> There are GetSystemTime and GetLocalTime to be called with a pointer to
> a SYSTEMTIME structure.  See
>
>    http://msdn.microsoft.com/en-us/library/ms724390%28VS.85%29.aspx
>    http://msdn.microsoft.com/en-us/library/ms724950%28v=VS.85%29.aspx
>
>

Thanks, but I need microseconds.  Anyone object to:

DEFUN_NEW("GETTIMEOFDAY",object,fSgettimeofday,SI,0,0,NONE,OO,OO,OO,OO,(void),"Return
 time with maximum resolution") {
#ifdef __MINGW32__
  /* static struct timeb t0; */
  /* static unsigned u; */
  /* struct timeb t;  */
  /* ftime(&t); */
  /* if (t.time!=t0.time || t.millitm!=t0.millitm) {t0=t;u=0;} */
  /* u++; */
  /* return 
make_longfloat(((longfloat)t.time+1.0e-3*t.millitm+1.0e-6*(u%1000)));  */
  LARGE_INTEGER uu;
  QueryPerformanceCounter(&uu);
  return make_longfloat((longfloat)uu.QuadPart*1.0e-6);
#endif  


Take care,

> | 2) One other mingw32 save-system fix coming (prevents unnecessary
> | image file growth).  Will let you knwo when it is in.  Should not
> | affect your test results.
>
> OK, thanks!
>
> -- Gaby
>
>
>
>

-- 
Camm Maguire                                        c...@maguirefamily.org
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah

------------------------------------------------------------------------------
Achieve Improved Network Security with IP and DNS Reputation.
Defend against bad network traffic, including botnets, malware, 
phishing sites, and compromised hosts - saving your company time, 
money, and embarrassment.   Learn More! 
http://p.sf.net/sfu/hpdev2dev-nov
_______________________________________________
open-axiom-devel mailing list
open-axiom-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open-axiom-devel

Reply via email to