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

20000502-19:28 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-05-02 17:25:09 +00:00
parent ae1fa35c88
commit 4e4af6c94e
2 changed files with 23 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
20000502-19:28 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/vm/hvm.c
% hb_vmFunction() and hb_vmSendFunc() "inlined".
Note that hb_vmFunction() is still there since it's used from one
places in classes.c.
20000502-19:12 GMT+1 Victor Szakats <info@szelvesz.hu>
* makefile.vc

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

@@ -131,7 +131,6 @@ static void hb_vmSFrame( PHB_SYMB pSym ); /* sets the statics frame for a
static void hb_vmStatics( PHB_SYMB pSym, USHORT uiStatics ); /* increases the the global statics array to hold a PRG statics */
static void hb_vmEndBlock( void ); /* copies the last codeblock pushed value into the return value */
static void hb_vmRetValue( void ); /* pops the latest stack value into stack.Return */
static void hb_vmSendFunc( USHORT uiParams );
static void hb_vmDebuggerShowLine( USHORT uiLine ); /* makes the debugger shows a specific source code line */
static void hb_vmDebuggerEndProc( void ); /* notifies the debugger for an endproc */
@@ -552,22 +551,34 @@ void hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
break;
case HB_P_FUNCTION:
hb_vmFunction( pCode[ w + 1 ] + ( pCode[ w + 2 ] * 256 ) );
hb_itemClear( &hb_stack.Return );
hb_vmDo( pCode[ w + 1 ] + ( pCode[ w + 2 ] * 256 ) );
hb_itemCopy( hb_stack.pPos, &hb_stack.Return );
hb_stackPush();
w += 3;
break;
case HB_P_FUNCTIONSHORT:
hb_vmFunction( pCode[ w + 1 ] );
hb_itemClear( &hb_stack.Return );
hb_vmDo( pCode[ w + 1 ] );
hb_itemCopy( hb_stack.pPos, &hb_stack.Return );
hb_stackPush();
w += 2;
break;
case HB_P_SEND:
hb_vmSendFunc( pCode[ w + 1 ] + ( pCode[ w + 2 ] * 256 ) );
hb_itemClear( &hb_stack.Return );
hb_vmSend( pCode[ w + 1 ] + ( pCode[ w + 2 ] * 256 ) );
hb_itemCopy( hb_stack.pPos, &hb_stack.Return );
hb_stackPush();
w += 3;
break;
case HB_P_SENDSHORT:
hb_vmSendFunc( pCode[ w + 1 ] );
hb_itemClear( &hb_stack.Return );
hb_vmSend( pCode[ w + 1 ] );
hb_itemCopy( hb_stack.pPos, &hb_stack.Return );
hb_stackPush();
w += 2;
break;
@@ -3005,16 +3016,6 @@ void hb_vmFunction( USHORT uiParams )
hb_stackPush();
}
static void hb_vmSendFunc( USHORT uiParams )
{
HB_TRACE(HB_TR_DEBUG, ("hb_vmSendFunc(%hu)", uiParams));
hb_itemClear( &hb_stack.Return );
hb_vmSend( uiParams );
hb_itemCopy( hb_stack.pPos, &hb_stack.Return );
hb_stackPush();
}
static void hb_vmLocalName( USHORT uiLocal, char * szLocalName ) /* locals and parameters index and name information for the debugger */
{
HB_TRACE(HB_TR_DEBUG, ("hb_vmLocalName(%hu, %s)", uiLocal, szLocalName));