From e0de33a6e236f6d9c8f8106c816c2c36b8f5e0c7 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 28 Apr 2003 19:00:39 +0000
Subject: [PATCH] aCallStack properly set when using trace mode (K_F10)

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

diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index 8749e59a48..91abf8c8c4 100644
--- 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