From c779e6427dda0ba867e6e62921fe7a149dff5cbd Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 15 Dec 2001 08:49:06 +0000
Subject: [PATCH] HB_DLLDO() removed and placed at dynlibhb.c as HB_LIBDO()

---
 harbour/source/vm/eval.c | 26 --------------------------
 1 file changed, 26 deletions(-)

diff --git a/harbour/source/vm/eval.c b/harbour/source/vm/eval.c
index eb74ea1a2f..e8af3a33d5 100644
--- a/harbour/source/vm/eval.c
+++ b/harbour/source/vm/eval.c
@@ -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 );
-   }
 }
\ No newline at end of file