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

2007-11-13 22:59 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/strcase.c
    * casting
This commit is contained in:
Przemyslaw Czerpak
2007-11-13 21:59:45 +00:00
parent 78267f6fb6
commit f183c8fc32
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-11-13 22:59 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/strcase.c
* casting
2007-11-13 22:22 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/cdpapi.c
! fixed bad typo in my last modification

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

@@ -67,11 +67,11 @@ char * hb_strLower( char * szText, ULONG ulLen )
#ifndef HB_CDP_SUPPORT_OFF
if( hb_cdp_page->nChars )
for( i = 0; i < ulLen; i++ )
szText[ i ] = (char) hb_cdp_page->s_lower[szText[i]&255];
szText[ i ] = ( char ) hb_cdp_page->s_lower[ ( UCHAR ) szText[ i ] ];
else
#endif
for( i = 0; i < ulLen; i++ )
szText[ i ] = tolower( (unsigned char) szText[ i ] );
szText[ i ] = ( char ) tolower( ( UCHAR ) szText[ i ] );
return szText;
}
@@ -86,11 +86,11 @@ char * hb_strUpper( char * szText, ULONG ulLen )
#ifndef HB_CDP_SUPPORT_OFF
if( hb_cdp_page->nChars )
for( i = 0; i < ulLen; i++ )
szText[ i ] = (char) hb_cdp_page->s_upper[szText[i]&255];
szText[ i ] = ( char ) hb_cdp_page->s_upper[ ( UCHAR ) szText[ i ] ];
else
#endif
for( i = 0; i < ulLen; i++ )
szText[ i ] = toupper( (unsigned char) szText[ i ] );
szText[ i ] = ( char ) toupper( ( UCHAR ) szText[ i ] );
return szText;
}