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

* Correct exception handling

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-16 14:01:52 +01:00
parent 98404eab49
commit eb1905a607
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/fpdoc.pp
View File

@ -423,7 +423,8 @@ end;
Procedure TFPDocApplication.DoRun;
begin
ExceptionExitCode:=1;
Terminate;
ExceptionExitCode:=1;
try
{$IFDEF Unix}
gettext.TranslateResourceStrings('/usr/local/share/locale/%s/LC_MESSAGES/fpdoc.mo');
@ -441,7 +442,6 @@ begin
else
FCreator.CreateDocumentation(FPackage,FDryRun);
WriteLn(SDone);
Terminate;
except
ExitCode:=1;
Raise;
@ -451,7 +451,7 @@ end;
constructor TFPDocApplication.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
StopOnException:=false;
// StopOnException:=false;
FCreator:=TFPDocCreator.Create(Self);
FCreator.OnLog:=@OutputLog;
OnException:= @ExceptProc;