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

improved HB_P_SEND for execution speed

Browse Source
This commit is contained in:
Antonio Linares
2002-01-21 13:05:13 +00:00
parent 2005903d38
commit c5bbae5a06
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -604,11 +604,20 @@ void HB_EXPORT hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
break;
case HB_P_SEND:
hb_itemClear( &hb_stack.Return );
if( ( &hb_stack.Return )->type )
hb_itemClear( &hb_stack.Return );
hb_vmSend( pCode[ w + 1 ] + ( pCode[ w + 2 ] * 256 ) );
hb_itemCopy( hb_stackTopItem(), &hb_stack.Return );
hb_stackPush();
w += 3;
if( pCode[ 3 ] == HB_P_POP )
w++;
else
{
hb_itemCopy( hb_stackTopItem(), &hb_stack.Return );
hb_stackPush();
}
break;
case HB_P_SENDSHORT: