From e2d9db659b26f3c5b76460f89c2e0acd22e6dc44 Mon Sep 17 00:00:00 2001
From: Luis Krause <kaddath@gmail.com>
Date: Fri, 6 Feb 2004 02:48:38 +0000
Subject: [PATCH] 2004-02-05 18:49 UTC-0800 Luis Krause Mantilla

---
 harbour/ChangeLog         | 11 +++++++++--
 harbour/source/vm/debug.c | 24 +++++++++++++++++++++---
 2 files changed, 30 insertions(+), 5 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bc9ad46cfa..e9c8b56a7e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,13 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2004-02-05 18:49 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
+   * source/vm/debug.c
+     + add wrappers (some 3rd-party-libs still use these ones) for:
+       __VMSTKGLIST()
+       __VMSTKGCOUNT()
+     Thanks Andi!
+
 2004-01-30 15:30 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
    * source/pp/ppcore.c
       * fixed compilation of &(exp) in normal stringify 
@@ -27,14 +34,14 @@
 
 2004-01-29 18:45 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
    * source/vm/debug.c
-     + add wrappers (some 3rd-party-libs still use these ones) for :
+     + add wrappers (some 3rd-party-libs still use these ones) for:
        __VMSTKLCOUNT()
        __VMPARLLIST()
        __VMSTKLLIST()
        __VMVARLGET()
        __VMVARLSET()
    * source/vm/hvm.c
-     + add wrappers (some 3rd-party-libs still use these ones) for :
+     + add wrappers (some 3rd-party-libs still use these ones) for:
        __VMVARSLIST()
        __VMVARSLEN()
        __VMVARSGET()
diff --git a/harbour/source/vm/debug.c b/harbour/source/vm/debug.c
index 7286acb6f1..25ff136eea 100644
--- a/harbour/source/vm/debug.c
+++ b/harbour/source/vm/debug.c
@@ -97,13 +97,17 @@ static USHORT hb_stackLenGlobal( void )
    return uiCount;
 }
 
+/* $Doc$
+ * $FuncName$     <nVars> hb_dbg_vmStkGCount()
+ * $Description$  Returns the length of the global stack
+ * $End$ */
 HB_FUNC( HB_DBG_VMSTKGCOUNT )
 {
    hb_retni( hb_stackLenGlobal() );
 }
 
 /* $Doc$
- * $FuncName$     <aStack> __vmStkGList()
+ * $FuncName$     <aStack> hb_dbg_vmStkGList()
  * $Description$  Returns the global stack
  * $End$ */
 HB_FUNC( HB_DBG_VMSTKGLIST )
@@ -142,6 +146,10 @@ static USHORT hb_stackLen( int iLevel )
    return uiCount;
 }
 
+/* $Doc$
+ * $FuncName$     <nVars> hb_dbg_vmStkLCount( <nProcLevel> )
+ * $Description$  Returns params plus locals amount of the nProcLevel function
+ * $End$ */
 HB_FUNC( HB_DBG_VMSTKLCOUNT )
 {
    int iLevel = hb_parni( 1 ) + 1;
@@ -150,7 +158,7 @@ HB_FUNC( HB_DBG_VMSTKLCOUNT )
 }
 
 /* $Doc$
- * $FuncName$     <aStack> __vmStkLList()
+ * $FuncName$     <aStack> hb_dbg_vmStkLList()
  * $Description$  Returns the stack of the calling function
  *                "[<symbol>]"  Means symbol.
  *
@@ -178,7 +186,7 @@ HB_FUNC( HB_DBG_VMSTKLLIST )
 }
 
 /* $Doc$
- * $FuncName$     <aParam> __vmParLGet()
+ * $FuncName$     <aParam> hb_dbg_vmParLGet()
  * $Description$  Returns the passed parameters of the calling function
  * $End$ */
                /* TODO : put bLocals / bParams      */
@@ -276,3 +284,13 @@ HB_FUNC( __VMVARLSET )
 {
    HB_FUNCNAME(HB_DBG_VMVARLSET)();
 }
+
+HB_FUNC( __VMSTKGLIST )
+{
+   HB_FUNCNAME(HB_DBG_VMSTKGLIST)();
+}
+
+HB_FUNC( __VMSTKGCOUNT )
+{
+   HB_FUNCNAME(HB_DBG_VMSTKGCOUNT)();
+}