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-09 08:18:44 +00:00
parent 1969cff6cd
commit 80ed9154f1
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-08-08 12:11 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
* source/common/hbver.c
! fixed a couple of new warning from last change ;-)
2000-08-09 09:25 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.l
@@ -26,13 +30,13 @@
*source/compiler/hbgenerr.c
* added error: CASE or OTHERWISE does not match DO CASE"
if CASE or OTHERWISE is used outside of DO CASE/ENDCASE
*source/compiler/harbour.l
* cleaned or fixed many rules
* fixed support for [] string delimiters
* fixed support for DO fun WITH (expr)
* see changes in harbour.y
*source/compiler/harbour.y
*moved here rules for:
| OPTIONAL
@@ -52,7 +56,7 @@
fill yyval.string member)
The generated code is much smaller and faster.
NOTE:
NOTE:
Ron, this breaks harbour.slx rules !!!
2000-08-08 12:11 GMT+2 Maurilio Longo <maurilio.longo@libero.it>

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

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