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

improved hb_vmPushSymbol() for execution speed and some minor fixes

Browse Source
This commit is contained in:
Antonio Linares
2002-01-21 13:53:28 +00:00
parent a2a307669d
commit 211423d04b
1 changed files with 7 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2652,7 +2652,7 @@ static void hb_vmArrayPop( void )
PHB_ITEM pArray;
ULONG ulIndex;
HB_TRACE(HB_TR_DEBUG, ("hb_vmArrayPut()"));
HB_TRACE(HB_TR_DEBUG, ("hb_vmArrayPop()"));
pValue = hb_stackItemFromTop( -3 );
pArray = hb_stackItemFromTop( -2 );
@@ -2988,14 +2988,7 @@ void hb_vmDo( USHORT uiParams )
PHB_BASEARRAY pSelfBase = NULL;
if( pSym == &( hb_symEval ) && HB_IS_BLOCK( pSelf ) )
if( strncmp( pSym->szName, "EVAL", 4 ) == 0 )
{
printf("%s\n",pSym->szName);
pSym = &hb_symEval;
pFunc = pSym->pFunPtr; /* __EVAL method = function */
}
else
pFunc = pSym->pFunPtr; /* __EVAL method = function */
pFunc = pSym->pFunPtr; /* __EVAL method = function */
else
{
pFunc = hb_objGetMethod( pSelf, pSym );
@@ -3778,11 +3771,13 @@ void hb_vmPushString( char * szText, ULONG length )
void hb_vmPushSymbol( PHB_SYMB pSym )
{
PHB_ITEM pStackTopItem = hb_stackTopItem();
HB_TRACE(HB_TR_DEBUG, ("hb_vmPushSymbol(%p)", pSym));
( hb_stackTopItem() )->type = HB_IT_SYMBOL;
( hb_stackTopItem() )->item.asSymbol.value = pSym;
( hb_stackTopItem() )->item.asSymbol.stackbase = hb_stackTopOffset();
pStackTopItem->type = HB_IT_SYMBOL;
pStackTopItem->item.asSymbol.value = pSym;
pStackTopItem->item.asSymbol.stackbase = hb_stackTopOffset();
hb_stackPush();
}