2001-08-05 22:58 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

harbour/ChangeLog

@@ -1,3 +1,7 @@
+2001-08-05 22:58 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/vm/memvars.c
+    + Two functions added: hb_memvarGetVarHandle() and hb_memvarGetValueByHandle()
+
 2001-08-05 14:20 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
 
     *include/hbcomp.h

harbour/source/vm/memvars.c

@@ -1577,3 +1577,21 @@ void hb_memvarsIsMemvarRef( void )
       }
    }
 }
+
+HB_HANDLE hb_memvarGetVarHandle( char *szName )
+{
+   PHB_DYNS pDyn;
+
+   if( ( pDyn = hb_dynsymFind( szName ) ) != NULL )
+      return  pDyn->hMemvar;
+   else
+      return 0; /* invalid handle */
+}  
+
+PHB_ITEM hb_memvarGetValueByHandle( HB_HANDLE hMemvar )
+{
+   if( hMemvar && hMemvar < s_globalTableSize )
+      return  &s_globalTable[ hMemvar ].item;
+   else
+      return NULL;
+}