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

2003-10-23 10:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-10-23 06:29:27 +00:00
parent f1d4483ed5
commit fb54d97e28
2 changed files with 15 additions and 15 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 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-10-23 10:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rtl/strcase.c
! hb_strncpyUpper() and hb_strncpyUpperTrim() fixed.
2003-10-22 9:49 UTC-0800 Luis Krause Mantilla <lkrausem@shaw.ca>
* makefile.bc
* $(OBJ_DIR)\msgsrwin.obj added to LANG.LIB dependencies section.

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

@@ -103,7 +103,7 @@ char * hb_strncpyUpper( char * pDest, const char * pSource, ULONG ulLen )
pDest[ ulLen ] ='\0';
/* some compilers impliment toupper as a macro, and this has side effects! */
/* some compilers implements toupper as a macro, and this has side effects! */
/* *pDest++ = toupper( *pSource++ ); */
while( ulLen && (*pDest++ = toupper( *pSource )))
{
@@ -111,15 +111,13 @@ char * hb_strncpyUpper( char * pDest, const char * pSource, ULONG ulLen )
pSource++;
}
if( ulLen )
{
while (--ulLen)
{
*pDest++ = '\0';
}
}
while( ulLen > 0 )
{
*pDest++ = '\0';
ulLen--;
}
return pBuf;
return pBuf;
}
/* This function copies and converts szText to upper case AND Trims it
@@ -138,7 +136,7 @@ char * hb_strncpyUpperTrim( char * pDest, const char * pSource, ULONG ulLen )
ulSLen--;
}
/* some compilers impliment toupper as a macro, and this has side effects! */
/* some compilers implements toupper as a macro, and this has side effects! */
/* *pDest++ = toupper( *pSource++ ); */
while( ulLen && ulSLen && (*pDest++ = toupper( *pSource )))
{
@@ -147,12 +145,10 @@ char * hb_strncpyUpperTrim( char * pDest, const char * pSource, ULONG ulLen )
pSource++;
}
if( ulLen )
while( ulLen > 0 )
{
while (--ulLen)
{
*pDest++ = '\0';
}
*pDest++ = '\0';
ulLen--;
}
return pBuf;