From 30750db018d881430afdec099a9431c0dfcf20c2 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 2 Feb 2001 13:21:02 +0000
Subject: [PATCH] hb_vmLocalName() implemented (for Debugger)

---
 harbour/source/vm/hvm.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index 47403e28ba..b96b1205b4 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -3058,8 +3058,16 @@ static void hb_vmLocalName( USHORT uiLocal, char * szLocalName ) /* locals and p
 {
    HB_TRACE(HB_TR_DEBUG, ("hb_vmLocalName(%hu, %s)", uiLocal, szLocalName));
 
-   HB_SYMBOL_UNUSED( uiLocal );
-   HB_SYMBOL_UNUSED( szLocalName );
+   s_bDebugging = TRUE;
+   s_bDebugShowLines = FALSE;
+   hb_vmPushSymbol( hb_dynsymFind( "__DBGENTRY" )->pSymbol );
+   hb_vmPushNil();
+   hb_vmPushLongConst( uiLocal );
+   hb_vmPushString( szLocalName, strlen( szLocalName ) );
+   s_bDebuggerIsWorking = TRUE;
+   hb_vmDo( 2 );
+   s_bDebuggerIsWorking = FALSE;
+   s_bDebugShowLines = TRUE;
 }
 
 static void hb_vmModuleName( char * szModuleName ) /* PRG and function name information for the debugger */