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

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

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-03-24 12:47:25 +00:00
parent 25392ebe4c
commit 2e9acdf20a
3 changed files with 17 additions and 1 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-03-24 15:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbcmd.c
! bug fixed with improper using of hb_strUpper() - reported by Lorenzo Fiorini
* source/rtl/cdpapi.c
! fix, provided by Przemyslaw Czerpak
2003-03-22 11:25 UTC+0100 Antonio Linares <alinares@fivetechsoft.com>
* source/compiler/harbour.y
* fix on recent If() changes

7
harbour/source/rdd/dbcmd.c
View File

@@ -3601,7 +3601,9 @@ static LPAREANODE GetTheOtherArea( char *szDriver, char * szFileName, BOOL creat
if( pFields )
{
USHORT i;
int iLen;
char *ptr;
char *szFieldName = hb_xgrab( ((AREAP) s_pCurrArea->pArea)->uiMaxFieldNameLength );
uiFields = ( USHORT ) hb_arrayLen( pFields );
for ( i=0; i<uiFields; i++ )
@@ -3612,10 +3614,13 @@ static LPAREANODE GetTheOtherArea( char *szDriver, char * szFileName, BOOL creat
ptr ++;
else
ptr = (char *)pField->item.asString.value;
iLen = strlen( ptr );
hb_strncpyUpper( szFieldName, ptr, iLen );
if( ( uiCount = hb_rddFieldIndex( (AREAP) s_pCurrArea->pArea,
hb_strUpper( ptr,strlen(ptr)) ) ) != 0 )
szFieldName ) ) != 0 )
AddField( pFieldArray, pItem, pData, uiCount );
}
hb_xfree( szFieldName );
}
else
for( uiCount = 1; uiCount <= uiFields; uiCount++ )

5
harbour/source/rtl/cdpapi.c
View File

@@ -118,6 +118,11 @@ BOOL hb_cdpRegister( PHB_CODEPAGE cdpage )
cdpage->s_upper[i] = toupper( (BYTE) i&255 );
cdpage->s_lower[i] = tolower( (BYTE) i&255 );
}
if( strpbrk(cdpage->CharsUpper, "~.") != NULL )
{
ptrUpper = cdpage->CharsUpper = strdup(cdpage->CharsUpper);
ptrLower = cdpage->CharsLower = strdup(cdpage->CharsLower);
}
for( i=1; *ptrUpper; i++,ptrUpper++,ptrLower++ )
{
if( *ptrUpper == '~' )