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

":=" operator overloading support for locals and statics variables

Browse Source
This commit is contained in:
Antonio Linares
2002-11-12 11:58:06 +00:00
parent 7f47828b1d
commit 2f5f0062d1
1 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4404,6 +4404,18 @@ static void hb_vmPopLocal( SHORT iLocal )
/* local variable or local parameter */
PHB_ITEM pLocal = hb_stackItemFromBase( iLocal );
if( HB_IS_OBJECT( pLocal ) && hb_objHasMsg( pLocal, "__OpAssign" ) )
{
HB_ITEM item;
hb_itemInit( &item );
hb_itemCopy( &item, hb_stackTopItem() );
hb_vmOperatorCall( pLocal, &item, "__OPASSIGN" );
hb_itemClear( &item );
hb_stackPush();
return;
}
if( HB_IS_BYREF( pLocal ) )
hb_itemCopy( hb_itemUnRef( pLocal ), hb_stackTopItem() );
else
@@ -4428,6 +4440,18 @@ static void hb_vmPopStatic( USHORT uiStatic )
hb_stackTopItem()->type &= ~HB_IT_MEMOFLAG;
pStatic = s_aStatics.item.asArray.value->pItems + hb_stack.iStatics + uiStatic - 1;
if( HB_IS_OBJECT( pStatic ) && hb_objHasMsg( pStatic, "__OpAssign" ) )
{
HB_ITEM item;
hb_itemInit( &item );
hb_itemCopy( &item, hb_stackTopItem() );
hb_vmOperatorCall( pStatic, &item, "__OPASSIGN" );
hb_itemClear( &item );
hb_stackPush();
return;
}
if( HB_IS_BYREF( pStatic ) )
hb_itemCopy( hb_itemUnRef( pStatic ), ( hb_stackTopItem() ) );
else