From 6b6fa964354e71fd73d0d74ae11676e0500697a3 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 5 Feb 2001 09:44:28 +0000
Subject: [PATCH] statics variables support (not finished yet!)

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

diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 89d88979c1..459f582515 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -69,7 +69,7 @@ procedure AltD( nAction )
 
 return
 
-procedure __dbgEntry( uParam1, uParam2 )  // debugger entry point
+procedure __dbgEntry( uParam1, uParam2, uParam3 )  // debugger entry point
 
    do case
       case ValType( uParam1 ) == "C"   // called from hvm.c hb_vmModuleName()
@@ -84,8 +84,12 @@ 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_vmLocalName()
-                 AAdd( s_oDebugger:aVars, { uParam2, uParam1, "Local", ProcName( 1 ) } )
+              if PCount() == 3 // called from hvm.c hb_vmLocalName() and hb_vmStaticName()
+                 if uParam3 == 1 // static variable
+                    AAdd( s_oDebugger:aVars, { uParam2, uParam1, "Static", ProcName( 1 ) } )
+                 else            // local variable
+                    AAdd( s_oDebugger:aVars, { uParam2, uParam1, "Local", ProcName( 1 ) } )
+                 endif
                  if s_oDebugger:oBrwVars != nil
                     s_oDebugger:oBrwVars:RefreshAll()
                  endif
@@ -686,6 +690,10 @@ static function GetVarInfo( aVar )
       case aVar[ 3 ] == "Public" .or. aVar[ 3 ] == "Private"
            return aVar[ 1 ] + " <" + aVar[ 3 ] + ", " + ValType( aVar[ 2 ] ) + ;
                   ">: " + ValToStr( aVar[ 2 ] )
+
+      case aVar[ 3 ] == "Static"
+           return aVar[ 1 ] + " <" + aVar[ 3 ] + ", " + ValType( aVar[ 2 ] ) + ;
+                  ">: " + ValToStr( aVar[ 2 ] )
    endcase
 
 return ""