fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support for hb_vmLocalName()

Browse Source
This commit is contained in:
Antonio Linares
2001-02-02 13:35:55 +00:00
parent 30750db018
commit 98dd9e26ea
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
harbour/source/debug/debugger.prg
View File

@@ -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