New function __vmVarLSet() added (used by the debugger)

2001-02-02 15:46:24 +00:00
parent 40732053c7
commit e8cd34190b
1 changed files with 10 additions and 0 deletions
--- a/harbour/source/vm/debug.c
+++ b/harbour/source/vm/debug.c
@@ -190,3 +190,13 @@ HB_FUNC( __VMVARLGET )
   hb_itemReturn( *(pBase + 1 + hb_parni( 2 )) );
 }

+HB_FUNC( __VMVARLSET )
+{
+   int iLevel = hb_parni( 1 ) + 1;
+   PHB_ITEM * pBase = hb_stack.pBase;
+
+   while( ( iLevel-- > 0 ) && pBase != hb_stack.pItems )
+      pBase = hb_stack.pItems + ( *pBase )->item.asSymbol.stackbase;
+
+   hb_itemCopy( *(pBase + 1 + hb_parni( 2 )), *(hb_stack.pBase + 4) );
+}