paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with the gdb/mi debugger, when trying to step/run a program with

Browse Source 
the gdb window open

git-svn-id: trunk@29782 -
This commit is contained in:
nickysn 2015-02-21 23:37:24 +00:00
parent 6c99493181
commit a1afce8a69
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/fpdebug.pas
View File

@ -972,9 +972,6 @@ begin
{$endif SUPPORT_REMOTE} {$endif SUPPORT_REMOTE}
{ Switch to user screen to get correct handles } { Switch to user screen to get correct handles }
UserScreen; UserScreen;
{ Don't try to print GDB messages while in User Screen mode }
If assigned(GDBWindow) then
GDBWindow^.Editor^.Lock;
{$ifdef SUPPORT_REMOTE} {$ifdef SUPPORT_REMOTE}
if isRemoteDebugging then if isRemoteDebugging then
begin begin
@ -996,8 +993,6 @@ begin
SetDir(StartupDir); SetDir(StartupDir);
end; end;
DebuggerScreen; DebuggerScreen;
If assigned(GDBWindow) then
GDBWindow^.Editor^.UnLock;
IDEApp.SetCmdState([cmResetDebugger,cmUntilReturn],true); IDEApp.SetCmdState([cmResetDebugger,cmUntilReturn],true);
IDEApp.UpdateRunMenu(true); IDEApp.UpdateRunMenu(true);
UpdateDebugViews; UpdateDebugViews;
@ -1556,6 +1551,8 @@ begin
end; end;
ChangeDebuggeeWindowTitleTo(Stopped_State); ChangeDebuggeeWindowTitleTo(Stopped_State);
{$endif Windows} {$endif Windows}
If assigned(GDBWindow) then
GDBWindow^.Editor^.UnLock;
end; end;
@ -1595,6 +1592,9 @@ begin
end; end;
ChangeDebuggeeWindowTitleTo(Running_State); ChangeDebuggeeWindowTitleTo(Running_State);
{$endif Windows} {$endif Windows}
{ Don't try to print GDB messages while in User Screen mode }
If assigned(GDBWindow) then
GDBWindow^.Editor^.Lock;
end; end;
{$endif NODEBUG} {$endif NODEBUG}