paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 07:41:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed raising exceptions / rev 24601 #fe2c9e2b46

Browse Source 
git-svn-id: trunk@24604 -
This commit is contained in:
martin 2010-04-12 16:53:26 +00:00
parent 0d9ddd4c01
commit 7f9ad32c3b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/outputfilter.pas
View File

@ -318,6 +318,7 @@ var
ExceptionMsg: String;
begin
Result:=true;
FHasRaisedException := False;
if FState = ofsRunning then RaiseGDBException('OutputFilter already running');
Clear;