From f9c4dc1d8fa3adc4bba9c8aa8a56129b14dae5d9 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 13 Apr 2021 13:19:08 +0000
Subject: [PATCH] Debugger, GDBMI: fix stacklist, display unit, if available.
 Issue #0038708

git-svn-id: trunk@64983 -
---
 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 8b63ec6b3a..903baa9f1d 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -7941,7 +7941,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 := '';