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

pas2js: compileserver exitcode 1 on ESocketError

Browse Source
This commit is contained in:
mattias 2022-01-10 16:35:46 +01:00
parent 6cc82086a9
commit 52e30aa332
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/pas2js/compileserver.lpi
View File

@ -1,15 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="compileserver"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>

14
utils/pas2js/httpcompiler.pp
View File

@ -9,11 +9,13 @@ uses
{$ifdef unix}baseunix,{$endif}
sysutils, classes, fpjson, contnrs, syncobjs, fpmimetypes, custhttpapp, inifiles,
fpwebproxy, webutil, fpwebfile, httproute, httpdefs, dirwatch, Pas2JSFSCompiler,
Pas2JSCompilerCfg;
Pas2JSCompilerCfg, ssockets;
Const
nErrTooManyThreads = -1;
nExitCodeSocketError = 1;
Type
TDirWatcher = Class;
THTTPCompilerApplication = Class;
@ -813,7 +815,15 @@ begin
TSimpleFileModule.RegisterDefaultRoute;
if InterfaceAddress<>'' then
HTTPHandler.Address:=InterfaceAddress;
inherited;
try
inherited DoRun;
except
on E: ESocketError do begin
Log(etError,E.ClassName+': '+E.Message);
ExitCode:=nExitCodeSocketError;
Terminate;
end;
end;
end;
end.