gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Gcl-devel] Re: open-axiom builds on mingw32


From: Camm Maguire
Subject: Re: [Gcl-devel] Re: open-axiom builds on mingw32
Date: Wed, 03 Nov 2010 14:50:20 -0400
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux)

Greetings!

Gabriel Dos Reis <address@hidden> writes:

> Camm Maguire <address@hidden> writes:
>
> | Greetings!
> | 
> | Gabriel Dos Reis <address@hidden> writes:
> | 
> | > Camm Maguire <address@hidden> 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                                        address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah



reply via email to

[Prev in Thread] Current Thread [Next in Thread]