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

See ChangeLog entry 2001-06-04 16:15 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2001-06-04 20:19:14 +00:00
parent e8e761df94
commit f8df859e21
6 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
2001-06-04 16:15 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* contrib/libnf/proper.c
* include/hbdefs.h
* samples\pe\editorlo.c
* source/compiler/genc.c
* source/rtl/gtapi.c
! TRUE must never be declared as anything other than !0 and boolean
results must never be compared to any constant other than 0 when
overriding an implicit boolean test.
2001-06-04 16:55 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/pp/pplib.c
* __PreProcess() works now.

4
harbour/contrib/libnf/proper.c
View File

@@ -92,8 +92,8 @@ HB_FUNC(FT_PROPER )
cStr = hb_parc(1);
for( i = 0; i < iLen + 1; i++ ) {
if( _ftIsAlpha( cStr[i] ) == TRUE ) {
if( fCap == TRUE )
if( _ftIsAlpha( cStr[i] ) != 0 ) {
if( fCap != 0 )
cStr[i] = _ftToUpper( cStr[i] );
else cStr[i] = _ftToLower( cStr[i] );
}

2
harbour/include/hbdefs.h
View File

@@ -141,7 +141,7 @@
#undef FALSE
#define FALSE 0
#undef TRUE
#define TRUE 1
#define TRUE !0
#endif /* HB_DONT_DEFINE_BASIC_TYPES */

2
harbour/samples/pe/editorlo.c
View File

@@ -26,7 +26,7 @@
#define CLIPPER void pascal
#define FALSE 0
#define TRUE 1
#define TRUE !0
#endif
#define CLIPPER_ACTION(action) void pascal action( void )

2
harbour/source/compiler/genc.c
View File

@@ -1633,7 +1633,7 @@ static HB_GENC_FUNC( hb_p_statics )
i = 0;
while( ( chr = pVar->szName[ i++ ] ) == TRUE )
while( ( chr = pVar->szName[ i++ ] ) != 0 )
{
if( chr == '\'' || chr == '\\')
fprintf( cargo->yyc, " \'\\%c\',", chr );

2
harbour/source/rtl/gtapi.c
View File

@@ -440,7 +440,7 @@ USHORT hb_gtColorToN( char * szColorString )
HB_TRACE(HB_TR_DEBUG, ("hb_gtColorToN(%s)", szColorString));
while( ( c = *szColorString++ ) == TRUE )
while( ( c = *szColorString++ ) != 0 )
{
c = toupper( c );