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

20000801-19:28 GMT+2 Maurilio Longo <maurilio.longo@libero.it>

Browse Source
This commit is contained in:
Maurilio Longo
2000-08-01 17:27:48 +00:00
parent 39596ad2dd
commit 4001919af0
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -1,21 +1,25 @@
20000801-19:28 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/common/hbver.c
! fixed sprintf() warnings for OS/2 and removed revision number since it is always 0.
2000-08-01 18:20 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*include/hbapi.h
* modified HB_MACRO structure
*source/macro/macro.l
* optimized support for array index
* optimized support for array index
*source/compiler/harbour.c
*source/compiler/harbour.y
*fixed some unreleased memory blocks reported by CodeGuard
*source/compiler/hbident.c
*changed size of hash table to 509
*source/macro/Makefile
* removed CR characters
NOTE:
All sources HAVE TO be rebuild !!!

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

@@ -159,10 +159,9 @@ char * hb_verPlatform( void )
APIRET rc = DosQuerySysInfo( 1L, QSV_MAX, ( void * ) aulQSV, sizeof( ULONG ) * QSV_MAX );
if( rc == 0 )
sprintf( pszPlatform, "OS/2 %d.%02d%c",
sprintf( pszPlatform, "OS/2 %ld.%02ld",
aulQSV[ QSV_VERSION_MAJOR ] / 10,
aulQSV[ QSV_VERSION_MINOR ],
( aulQSV[ QSV_VERSION_REVISION ] > 0 && aulQSV[ QSV_VERSION_REVISION ] < 26 ) ? '@' + aulQSV[ QSV_VERSION_REVISION ] : 0 );
aulQSV[ QSV_VERSION_MINOR ]);
else
sprintf( pszPlatform, "OS/2" );
}