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

2008-10-07 19:33 UTC+0200 Maurilio Longo (maurilio.longo@libero.it)

Browse Source 
* harbour/source/rtl/seconds.c
    ! fixed little typo after latest commit.
This commit is contained in:
Maurilio Longo
2008-10-07 17:35:02 +00:00
parent d98434208b
commit b22a5b9d5c
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-07 19:33 UTC+0200 Maurilio Longo (maurilio.longo@libero.it)
* harbour/source/rtl/seconds.c
! fixed little typo after latest commit.
2008-10-07 18:42 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/seconds.c
* Some cleanup after latest change.

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

@@ -313,9 +313,9 @@ HB_EXPORT double hb_secondsCPU( int n )
if( s_timer_interval == 0 )
DosQuerySysInfo( QSV_TIMER_INTERVAL, QSV_TIMER_INTERVAL, ( PVOID ) &s_timer_interval, sizeof( ULONG ) );
QSGREC ** pBuf = hb_xalloc( BUFSIZE );
pBuf = hb_xalloc( BUFSIZE );
if( pBuff )
if( pBuf )
{
APIRET rc = DosQuerySysState( QS_PROCESS, 0L, _getpid(), 0L, pBuf, BUFSIZE );
@@ -331,7 +331,7 @@ HB_EXPORT double hb_secondsCPU( int n )
{
if( n & 1 )
d += pTrec->usertime;
if( n & 2 )
d += pTrec->systime;
}
@@ -342,6 +342,7 @@ HB_EXPORT double hb_secondsCPU( int n )
hb_xfree( pBuf );
}
else
#endif
{
/* TODO: this code is only for DOS and other platforms which cannot