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

2000-08-08 12:11 GMT+2 Maurilio Longo <maurilio.longo@libero.it>

Browse Source
This commit is contained in:
Maurilio Longo
2000-08-08 10:15:44 +00:00
parent c06672fe89
commit 47251f48db
2 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2000-08-08 12:11 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/common/hbver.c
! fixed Operating System/2 version report (broken since it wasn't taking into account that from OS/2 3.x version
number is inside QSV_VERSION_MINOR and that QSV_ constants need to be decremented by one to
access correct values inside array.
2000-08-08 02:00 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.c
* Corrected display of errors statistics to use \r so that error count doen't appear connected to the last reported

15
harbour/source/common/hbver.c
View File

@@ -156,12 +156,19 @@ char * hb_verPlatform( void )
{
unsigned long aulQSV[ QSV_MAX ] = { 0 };
APIRET rc = DosQuerySysInfo( 1L, QSV_MAX, ( void * ) aulQSV, sizeof( ULONG ) * QSV_MAX );
APIRET rc;
rc = DosQuerySysInfo( 1L, QSV_MAX, ( void * ) aulQSV, sizeof( ULONG ) * QSV_MAX );
if( rc == 0 )
sprintf( pszPlatform, "OS/2 %ld.%02ld",
aulQSV[ QSV_VERSION_MAJOR ] / 10,
aulQSV[ QSV_VERSION_MINOR ] );
/* is this OS/2 2.x ? */
if (aulQSV[ QSV_VERSION_MINOR -1 ] < 30)
sprintf( pszPlatform, "OS/2 %d.%02d",
aulQSV[ QSV_VERSION_MAJOR -1 ] / 10,
aulQSV[ QSV_VERSION_MINOR -1 ] );
else
sprintf( pszPlatform, "OS/2 %2.2f",
(float) aulQSV[ QSV_VERSION_MINOR -1 ] / 10);
else
sprintf( pszPlatform, "OS/2" );
}