[q-lang-cvs] q/modules/clib clib.c,1.86,1.87

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

Update of /cvsroot/q-lang/q/modules/clib
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv2239

Modified Files:
	clib.c 
Log Message:
bugfix: timeout is specified in seconds, not milliseconds

Index: clib.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/clib/clib.c,v
retrieving revision 1.86
retrieving revision 1.87
diff -C2 -d -r1.86 -r1.87
*** clib.c	22 Feb 2008 07:47:51 -0000	1.86
--- clib.c	22 Feb 2008 08:12:38 -0000	1.87
***************
*** 5784,5788 ****
        unsigned long secs;
        unsigned long nsecs;
!       fp = modf(t/1e3, &ip);
        if (ip > LONG_MAX) { ip = (double)LONG_MAX; fp = 0.0; }
        secs = (unsigned long)ip;
--- 5784,5788 ----
        unsigned long secs;
        unsigned long nsecs;
!       fp = modf(t, &ip);
        if (ip > LONG_MAX) { ip = (double)LONG_MAX; fp = 0.0; }
        secs = (unsigned long)ip;
***************
*** 5897,5901 ****
        unsigned long secs;
        unsigned long nsecs;
!       fp = modf(t/1e3, &ip);
        if (ip > LONG_MAX) { ip = (double)LONG_MAX; fp = 0.0; }
        secs = (unsigned long)ip;
--- 5897,5901 ----
        unsigned long secs;
        unsigned long nsecs;
!       fp = modf(t, &ip);
        if (ip > LONG_MAX) { ip = (double)LONG_MAX; fp = 0.0; }
        secs = (unsigned long)ip;