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

2009-11-25 16:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/src/vm/hvm.c
    % minor improvement
This commit is contained in:
Przemyslaw Czerpak
2009-11-25 15:56:57 +00:00
parent b6090bac2f
commit 8a7b3ea723
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-25 16:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/hvm.c
% minor improvement
2009-11-25 11:11 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* config/os2/gcc.mk
! Fixed (after recent cleanup of CFLAGS usage) to add -Zomf

13
harbour/src/vm/hvm.c
View File

@@ -10725,22 +10725,23 @@ static void hb_vmArrayItemPush( ULONG ulIndex )
}
else if( HB_IS_HASH( pArray ) )
{
PHB_ITEM pValue;
PHB_ITEM pValue, pIndex;
hb_vmPushNumInt( ulIndex );
pValue = hb_hashGetItemPtr( pArray, hb_stackItemFromTop( -1 ), HB_HASH_AUTOADD_ACCESS );
pIndex = hb_stackItemFromTop( -1 );
pValue = hb_hashGetItemPtr( pArray, pIndex, HB_HASH_AUTOADD_ACCESS );
if( pValue )
{
hb_itemCopy( hb_stackItemFromTop( -1 ), pValue );
hb_itemMove( pArray, hb_stackItemFromTop( -1 ) );
hb_itemCopy( pIndex, pValue );
hb_itemMove( pArray, pIndex );
hb_stackDec();
}
else if( hb_objOperatorCall( HB_OO_OP_ARRAYINDEX, pArray, pArray,
hb_stackItemFromTop( -1 ), NULL ) )
pIndex, NULL ) )
hb_stackPop();
else
hb_errRT_BASE( EG_BOUND, 1132, NULL, hb_langDGetErrorDesc( EG_ARRACCESS ), 2, pArray, hb_stackItemFromTop( -1 ) );
hb_errRT_BASE( EG_BOUND, 1132, NULL, hb_langDGetErrorDesc( EG_ARRACCESS ), 2, pArray, pIndex );
}
else
{