From 4f07cd2ec7ce1bfbdab86f02eb2bc70099f1d26a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 13 Apr 2021 13:22:17 +0000
Subject: [PATCH] Merged revision(s) 64983 #f9c4dc1d8f from trunk: Debugger,
 GDBMI: fix stacklist, display unit, if available. Issue #0038708 ........

git-svn-id: branches/fixes_2_0@64984 -
---
 components/lazdebuggergdbmi/gdbmidebugger.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 5818bc3ee4..e75d272e9a 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -7068,7 +7068,9 @@ func="_$CODETEMPLATESDLG$_Ld98"
 func="??"
     *)
 
-    j := pos('$', func);
+    j := 0;
+    if (filename = '') and (fullname = '') then
+      j := pos('$', func);
     if j > 1 then begin
       un := '';
       cl := '';