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

2003-05-06 15:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-05-06 11:31:57 +00:00
parent 09aea7b646
commit e438b1cf1e
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-05-06 15:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rtl/is.c
! Bug fixed: ISUPPER, ISLOWER and ISALPHA with chr(0) argument
returned TRUE.
Patch provided by Przemyslaw Czerpak
2003-05-06 12:55 UTC+0200 Przemyslaw Czerpak <druzus@polbox.com>
* source/rtl/set.c
! Fixed very serious bug in set(_SET_ALTFILE, "") and

6
harbour/source/rtl/is.c
View File

@@ -67,7 +67,7 @@ HB_FUNC( ISALPHA )
{
if( isalpha( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars &&
else if( s_cdpage->nChars && szString[0] &&
( strchr( s_cdpage->CharsUpper,* szString ) || strchr( s_cdpage->CharsLower,* szString ) ) )
hb_retl( TRUE );
else
@@ -99,7 +99,7 @@ HB_FUNC( ISUPPER )
{
if( isupper( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars && strchr( s_cdpage->CharsUpper,* szString ) )
else if( s_cdpage->nChars && szString[0] && strchr( s_cdpage->CharsUpper,* szString ) )
hb_retl( TRUE );
else
hb_retl( FALSE );
@@ -118,7 +118,7 @@ HB_FUNC( ISLOWER )
{
if( islower( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars && strchr( s_cdpage->CharsLower,* szString ) )
else if( s_cdpage->nChars && szString[0] && strchr( s_cdpage->CharsLower,* szString ) )
hb_retl( TRUE );
else
hb_retl( FALSE );