aCallStack properly set when using trace mode (K_F10)

2003-04-28 19:00:39 +00:00
parent 1944a0715e
commit e0de33a6e2
1 changed files with 3 additions and 0 deletions
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -113,6 +113,9 @@ procedure __dbgEntry( uParam1, uParam2, uParam3 )  // debugger entry point
                 else
                    ASize( s_oDebugger:aCallStack, Len( s_oDebugger:aCallStack ) + 1 )
                    AIns( s_oDebugger:aCallStack, 1 )
+                    // same as aCallStack[ 1 ] = { cProcName, {} }
+                    s_oDebugger:aCallStack[ 1 ] = { SubStr( cModuleName,;
+                                                  RAt( ":", cModuleName ) + 1 ), {} }
                 endif
                 s_oDebugger:LoadVars()
              endif