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/strcase.c
    ! Fix call to toupper() and tolower(), forcing unsigned char.
      For the correct working with DJGPP compiler.
This commit is contained in:
Walter Negro
2002-11-05 22:02:03 +00:00
parent 80b8f1d866
commit d75e4f63dc
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/source/rtl/strcase.c
View File

@@ -71,7 +71,7 @@ char * hb_strLower( char * szText, ULONG ulLen )
szText[ i ] = (char) s_cdpage->s_lower[szText[i]&255];
else
for( i = 0; i < ulLen; i++ )
szText[ i ] = tolower( szText[ i ] );
szText[ i ] = tolower( (unsigned char) szText[ i ] );
return szText;
}
@@ -88,7 +88,7 @@ char * hb_strUpper( char * szText, ULONG ulLen )
szText[ i ] = (char) s_cdpage->s_upper[szText[i]&255];
else
for( i = 0; i < ulLen; i++ )
szText[ i ] = toupper( szText[ i ] );
szText[ i ] = toupper( (unsigned char) szText[ i ] );
return szText;
}
@@ -104,7 +104,7 @@ char * hb_strncpyUpper( char * pDest, const char * pSource, ULONG ulLen )
{
/* some compilers impliment toupper as a macro, and this has side effects! */
/* *pDest++ = toupper( *pSource++ ); */
pDest[ ulLen ] = toupper( pSource[ ulLen ] );
pDest[ ulLen ] = toupper( (unsigned char) pSource[ ulLen ] );
}
return pDest;
@@ -126,7 +126,7 @@ char * hb_strncpyUpperTrim( char * pDest, const char * pSource, ULONG ulLen )
{
/* some compilers impliment toupper as a macro, and this has side effects! */
/* *pDest++ = toupper( *pSource++ ); */
pDest[ ulLen ] = toupper( pSource[ ulLen ] );
pDest[ ulLen ] = toupper( (unsigned char) pSource[ ulLen ] );
}
return pDest;
@@ -163,4 +163,4 @@ HB_FUNC( UPPER )
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1102, NULL, "UPPER", 1, hb_paramError( 1 ) );
}
}