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

hb_strUpper() call for pcode strings bug fixed

Browse Source
This commit is contained in:
Antonio Linares
2002-02-09 10:02:03 +00:00
parent 482f6db155
commit fdeb5f55ec
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/vm/hvm.c
View File

@@ -4010,7 +4010,11 @@ static void hb_vmPushAliasedVar( PHB_SYMB pSym )
if( HB_IS_STRING( pAlias ) )
{
char * szAlias = hb_strUpper( pAlias->item.asString.value, pAlias->item.asString.length );
/* We make a copy of the string as it may be a pcode string! */
char * szAlias = ( char * ) hb_xgrab( pAlias->item.asString.length + 1 );
hb_xmemcpy( szAlias, pAlias->item.asString.value, pAlias->item.asString.length + 1 );
hb_strUpper( szAlias, pAlias->item.asString.length );
if( szAlias[ 0 ] == 'M' && szAlias[ 1 ] == '\0' )
{ /* M->variable */
@@ -4040,7 +4044,7 @@ static void hb_vmPushAliasedVar( PHB_SYMB pSym )
}
}
}
hb_xfree( ( void * ) szAlias );
}
else
hb_vmPushAliasedField( pSym );