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

Improved HB_P_SENDSHORT for execution speed

Browse Source
This commit is contained in:
Antonio Linares
2002-01-21 13:35:12 +00:00
parent d169827a3d
commit 84808da032
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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