From 39c69e59f764c1d825e2867eb80fae52ae59896e Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 10 Mar 2009 07:12:33 +0000 Subject: [PATCH] debugger: show lines with breakpoints in the call stack dialog git-svn-id: trunk@18941 - --- debugger/callstackdlg.pp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp index 1704f6a34c..7ec74a6773 100644 --- a/debugger/callstackdlg.pp +++ b/debugger/callstackdlg.pp @@ -161,10 +161,14 @@ end; procedure TCallStackDlg.UpdateView; - function HasBreakPoint(Entry: TCallStackEntry): Boolean; + function HasBreakPoint(Entry: TCallStackEntry): Boolean; inline; + var + FileName: String; begin - // TODO: find how to check whether breakpoint is set to this line - Result := False; + FileName := Entry.Source; + Result := DebugBoss.GetFullFilename(FileName, False); + if Result then + Result := DebugBoss.BreakPoints.Find(FileName, Entry.Line) <> nil end; var