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

ChangeLog 20000502-14:55 GMT+1

Browse Source
This commit is contained in:
Ryszard Glab
2000-05-02 12:47:25 +00:00
parent b84589f8c4
commit fcac8dc38e
2 changed files with 25 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
20000502-14:55 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/vm/hvm.c
* fixed bug during accessing a constant arrays caused by
the optimization - { 1, 2, 3 }[ n ]
20000502-14:25 GMT+1 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.c

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

@@ -2390,21 +2390,27 @@ static void hb_vmArrayPush( void )
{
if( ulIndex > 0 && ulIndex <= pArray->item.asArray.value->ulLen )
{
hb_arrayGet( pArray, ulIndex, pArray );
hb_stackPop();
if( pArray->item.asArray.value->uiHolders > 1 )
{
/* this is a temporary copy of an array - we can overwrite
* it with no problem
*/
hb_arrayGet( pArray, ulIndex, pArray );
hb_stackPop();
}
else
{
/* this is a constant array { 1, 2, 3 } - we cannot use
* the optimization here
*/
HB_ITEM item;
/* Looks like this without optimization:
hb_arrayGet( pArray, ulIndex, &item );
hb_stackPop();
HB_ITEM item;
hb_arrayGet( pArray, ulIndex, &item );
hb_stackPop();
hb_stackPop();
hb_itemCopy( hb_stack.pPos, &item );
hb_itemClear( &item );
hb_stackPush();
*/
hb_itemCopy( hb_stack.pPos - 1, &item );
hb_itemClear( &item );
}
}
else
hb_errRT_BASE( EG_BOUND, 1132, NULL, hb_langDGetErrorDesc( EG_ARRACCESS ) );