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

2002-11-05 19:01 UTC-0300 Walter Negro <anegro@overnet.com.ar>

Browse Source 
* source/rtl/is.c
    ! Fix call to isdigit() and isalpha(), islower() and isupper(),
      forcing unsigned char.
      For the correct working with DJGPP compiler.
This commit is contained in:
Walter Negro
2002-11-05 22:03:58 +00:00
parent d75e4f63dc
commit e9ab44e2fb
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,7 +65,7 @@ HB_FUNC( ISALPHA )
if( szString != NULL )
{
if( isalpha( ( int ) * szString ) )
if( isalpha( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars &&
( strchr( s_cdpage->CharsUpper,* szString ) || strchr( s_cdpage->CharsLower,* szString ) ) )
@@ -84,7 +84,7 @@ HB_FUNC( ISDIGIT )
char * szString = hb_parc( 1 );
if( szString != NULL )
hb_retl( isdigit( ( int ) * szString ) );
hb_retl( isdigit( ( unsigned char ) * szString ) );
else
hb_retl( FALSE );
}
@@ -97,7 +97,7 @@ HB_FUNC( ISUPPER )
if( szString != NULL )
{
if( isupper( ( int ) * szString ) )
if( isupper( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars && strchr( s_cdpage->CharsUpper,* szString ) )
hb_retl( TRUE );
@@ -116,7 +116,7 @@ HB_FUNC( ISLOWER )
if( szString != NULL )
{
if( islower( ( int ) * szString ) )
if( islower( ( unsigned char ) * szString ) )
hb_retl( TRUE );
else if( s_cdpage->nChars && strchr( s_cdpage->CharsLower,* szString ) )
hb_retl( TRUE );