HB_DLLDO() removed and placed at dynlibhb.c as HB_LIBDO()

This commit is contained in:
Antonio Linares
2001-12-15 08:49:06 +00:00
parent 0fe2e9f9bc
commit c779e6427d

View File

@@ -342,30 +342,4 @@ void hb_evalBlock( PHB_ITEM pCodeBlock, ... )
va_end( args );
hb_vmFunction( uiParams );
}
/* Executes a Harbour pcode dynamically loaded DLL function or procedure
* Syntax: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>]
*/
HB_FUNC( HB_DLLDO )
{
PHB_DYNS pDynSym = hb_dynsymFind( hb_strupr( hb_parc( 1 ) ) );
if( pDynSym )
{
USHORT uiPCount = hb_pcount();
USHORT uiParam;
hb_vmPushSymbol( pDynSym->pSymbol );
hb_vmPushNil();
/* same logic here as from HB_FUNC( EVAL ) */
for( uiParam = 2; uiParam <= uiPCount; uiParam++ )
{
hb_vmPush( hb_stackItemFromBase( uiParam ) );
}
hb_vmDo( uiPCount - 1 );
}
}