From 61051869c3369b916ea65571d7eec681dd85b1ac Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 5 Dec 2001 13:04:17 +0000
Subject: [PATCH] hb_evalBlock0() and hb_evalBlock1() functions added

---
 harbour/source/vm/eval.c | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/harbour/source/vm/eval.c b/harbour/source/vm/eval.c
index a61cbee2ed..aa6002b475 100644
--- a/harbour/source/vm/eval.c
+++ b/harbour/source/vm/eval.c
@@ -301,3 +301,24 @@ PHB_ITEM hb_itemDoC( char * szFunc, ULONG ulPCount, ... )
    return pResult;
 }
 
+/*
+ * Notice that these two functions place the result at hb_stack.Return,
+ * that you may access its value using a _par...( -1 ).
+ */
+
+/* undocumented Clipper _cEval0() */
+void hb_evalBlock0( PHB_ITEM pCodeBlock )
+{
+   hb_vmPushSymbol( &hb_symEval );
+   hb_vmPush( pCodeBlock );
+   hb_vmFunction( 0 );
+}
+
+/* undocumented Clipper _cEval1() */
+void hb_evalBlock1( PHB_ITEM pCodeBlock, PHB_ITEM pParam )
+{
+   hb_vmPushSymbol( &hb_symEval );
+   hb_vmPush( pCodeBlock );
+   hb_vmPush( pParam );
+   hb_vmFunction( 1 );
+}