paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: fixed crash in callstack (when stop debugging while waiting for stack info)

Browse Source 
git-svn-id: trunk@42643 -
This commit is contained in:
martin 2013-09-06 15:03:24 +00:00
parent f3358d8050
commit aaa03b60ab
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/callstackdlg.pp
View File

@ -300,6 +300,9 @@ begin
MaxCnt := FViewStart + FViewLimit + 1;
if CStack <> nil then CStack.CountLimited(MaxCnt); // trigger the update-notification, if executed immediately
FInUpdateView := False;
// TODO: must make CStack ref-counted
if CStack <> GetSelectedCallstack then exit; // Something changed, maybe debugger stopped
if (CStack = nil) or ((Snap <> nil) and (CStack.CountLimited(MaxCnt) = 0)) then begin
lvCallStack.Items.Clear;
@ -346,6 +349,8 @@ begin
FInUpdateView := True;
CStack.PrepareRange(First, Count);
// TODO: must make CStack ref-counted
if CStack <> GetSelectedCallstack then exit; // Something changed, maybe debugger stopped
FInUpdateView := False;
for n := 0 to Count - 1 do
begin

2
debugger/debugger.pp
View File

@ -5354,7 +5354,7 @@ begin
FPreparing := True;
while ACount > 0 do begin
Entries[AIndex];
Entries[AIndex]; // Request unknown entries: will set LowesUnknown / HighesUnknown
inc(AIndex);
dec(ACount);
end;