fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See ChangeLog entry 2001-12-05 21:20 UTC-0500 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2001-12-06 02:24:12 +00:00
parent f12479d03a
commit f4f88de546
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-12-05 21:20 UTC-0500 David G. Holm <dholm@jsd-llc.com>
* source/rtl/seconds.c
! Bug fix for FreeBSD 4.4 port, which has microsecond time.
2001-12-05 20:00 UTC-0500 David G. Holm <dholm@jsd-llc.com>
* source/rtl/seconds.c
@@ -2655,6 +2660,7 @@
* source/pp/pragma.c
* contrib/dot/pp_harb.ch
* tests/inline_c.prg

8
harbour/source/rtl/seconds.c
View File

@@ -82,7 +82,7 @@ double hb_dateSeconds( void )
#if defined(HB_OS_BSD)
gettimeofday( &tv, &tz );
seconds = tv.tv_sec;
fraction = tv.tv_usec;
fraction = tv.tv_usec / 1000U;
#else
ftime( &tb );
seconds = tb.time;
@@ -94,7 +94,7 @@ double hb_dateSeconds( void )
return ( oTime->tm_hour * 3600 ) +
( oTime->tm_min * 60 ) +
oTime->tm_sec +
( ( double ) fraction / 1000 );
( ( double ) fraction / 1000.0 );
}
HB_FUNC( SECONDS )
@@ -115,3 +115,7 @@ HB_FUNC( HB_CLOCKS2SECS )