paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 21:21:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpAsync: Exception within main loop are now caught correctly, so that

Browse Source 
external applications can handle them and restart the main loop

git-svn-id: trunk@713 -
This commit is contained in:
sg 2005-07-20 14:44:09 +00:00
parent 8d5a5299ab
commit e0488e169b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/inc/fpasync.pp
View File

@ -1,7 +1,7 @@
{
fpAsync: Asynchronous event management for Free Pascal
Copyright (C) 2001-2003 by
Copyright (C) 2001-2005 by
Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org
See the file COPYING.FPC, included in this distribution,
@ -548,18 +548,18 @@ begin
LastEndOfLine := i + 1;
if Assigned(FOnLine) then
begin
begin
FBuffer := RealBuffer + LastEndOfLine;
FBytesInBuffer := CurBytesInBuffer - LastEndOfLine;
InCallback := True;
try
InCallback := True;
try
FOnLine(line);
finally
InCallback := False;
end;
finally
InCallback := False;
end;
// Check if <this> has been destroyed by FOnLine:
if DoStopAndFree then
exit;
exit;
end;
end;
Inc(i);