paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 03:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid infinite recursion if symbols and gdb window are displayed while running debuggee

Browse Source 
git-svn-id: trunk@27284 -
This commit is contained in:
pierre 2014-03-25 17:07:07 +00:00
parent 5c1f404631
commit cdac1d23cd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpsymbol.pas
View File

@ -551,11 +551,12 @@ begin
DisposeStr(St); DisposeStr(St);
if assigned(Expr) then if assigned(Expr) then
begin begin
{ avoid infinite recursion here }
GDBI:=Debugger^.RunCount;
p:=Debugger^.GetValue(Expr^); p:=Debugger^.GetValue(Expr^);
St:=NewStr(GetPChar(p)); St:=NewStr(GetPChar(p));
if assigned(p) then if assigned(p) then
StrDispose(p); StrDispose(p);
GDBI:=Debugger^.RunCount;
end; end;
{$endif ndef NODEBUG} {$endif ndef NODEBUG}
{$endif BROWSERCOL} {$endif BROWSERCOL}