From 49091a7c9690b4a8bb2433f0029944852ffd56dc Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 16 Nov 2001 16:32:00 +0000
Subject: [PATCH] Added new function __VMVARSLEN()

---
 harbour/source/vm/hvm.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index 3372a845c1..6ded4105b3 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -4690,6 +4690,15 @@ HB_FUNC( __VMVARSLIST )
    hb_itemRelease( pStatics );
 }
 
+/* $Doc$
+ * $FuncName$     <nStatics> __vmVarSLen()
+ * $Description$  Return the statics array length.
+ * $End$ */
+HB_FUNC( __VMVARSLEN )
+{
+   hb_retnl( s_aStatics.item.asArray.value->ulLen );
+}
+
 /* $Doc$
  * $FuncName$     <xStat> __vmVarSGet(<nStatic>)
  * $Description$  Return a specified statics
@@ -4751,4 +4760,4 @@ HB_FUNC( __TRACEPRGCALLS )
    hb_bTracePrgCalls = hb_parl( 1 );
 
    hb_retl( bOldValue );
-}
+}
\ No newline at end of file