Added new function __VMVARSLEN()

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 );
-}
+}