From 98dd9e26ea5aaa4d26c18b0e82f23cf44579c8fd Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 2 Feb 2001 13:35:55 +0000
Subject: [PATCH] Support for hb_vmLocalName()

---
 harbour/source/debug/debugger.prg | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index c121494cfb..8e6900a7e4 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -84,8 +84,9 @@ procedure __dbgEntry( uParam1, uParam2 )  // debugger entry point
 
       case ValType( uParam1 ) == "N"   // called from hvm.c hb_vmDebuggerShowLines()
            if s_oDebugger != nil
-              if PCount() == 2 // called from hvm.c hb_vmDebuggerLocalName()
-                 AAdd( s_oDebugger:aVars, { uParam2, "Local", uParam1 } )
+              if PCount() == 2 // called from hvm.c hb_vmLocalName()
+                 AAdd( s_oDebugger:aVars, { uParam2, uParam1, "Local" } )
+                 Alert( uParam1 )
                  if s_oDebugger:oBrwVars != nil
                     s_oDebugger:oBrwVars:RefreshAll()
                  endif
@@ -604,14 +605,14 @@ return nil
 static function GetVarInfo( aVar )
 
    do case
+      case aVar[ 3 ] == "Local"
+           return aVar[ 1 ] + " <" + aVar[ 3 ] + ", " + ;
+                  ValType( __vmVarLGet( 8, aVar[ 2 ] ) ) + ;
+                  ">: " + ValToStr( __vmVarLGet( 8, aVar[ 2 ] ) )
+
       case aVar[ 3 ] == "Public" .or. aVar[ 3 ] == "Private"
            return aVar[ 1 ] + " <" + aVar[ 3 ] + ", " + ValType( aVar[ 2 ] ) + ;
                   ">: " + ValToStr( aVar[ 2 ] )
-
-      case aVar[ 3 ] == "Local"
-           return aVar[ 1 ] + " <" + aVar[ 2 ] + ", " + ;
-                  ValType( __vmVarLGet( 7, aVar[ 3 ] ) ) + ;
-                  ">: " + ValToStr( __vmVarLGet( 7, aVar[ 3 ] ) )
    endcase
 
 return ""
@@ -696,7 +697,7 @@ METHOD GotoLine( nLine ) CLASS TDebugger
    ::oBrwText:GotoLine( nLine )
 
    if ::oBrwVars != nil
-      ::LoadVars()
+      // ::LoadVars()
       ::oBrwVars:RefreshAll()
       ::oBrwVars:ForceStable()
    endif
@@ -856,7 +857,7 @@ static procedure SetsUp( oBrw )
    if nRow != oBrw:Cargo
       oBrw:aReDraw[ nRow ] := .f.
       oBrw:Up()
-   endif 
+   endif
    oBrw:ForceStable()
    myColors(oBrw,{1,2})
 return
@@ -930,4 +931,4 @@ static function myColors( oBrowse, aColColors )
    next
 
    oBrowse:colpos := nColPos
-return Nil
+return Nil
\ No newline at end of file