From e8cd34190b9bed7f187bb26217a1dcad546100b8 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 2 Feb 2001 15:46:24 +0000 Subject: [PATCH] New function __vmVarLSet() added (used by the debugger) --- harbour/source/vm/debug.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/harbour/source/vm/debug.c b/harbour/source/vm/debug.c index 8126ae2231..f1af8735dd 100644 --- 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) ); +}