paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 01:40:19 +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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/> <MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="compileserver"/> <Title Value="compileserver"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>

14
utils/pas2js/httpcompiler.pp
View File

@ -9,11 +9,13 @@ uses
{$ifdef unix}baseunix,{$endif} {$ifdef unix}baseunix,{$endif}
sysutils, classes, fpjson, contnrs, syncobjs, fpmimetypes, custhttpapp, inifiles, sysutils, classes, fpjson, contnrs, syncobjs, fpmimetypes, custhttpapp, inifiles,
fpwebproxy, webutil, fpwebfile, httproute, httpdefs, dirwatch, Pas2JSFSCompiler, fpwebproxy, webutil, fpwebfile, httproute, httpdefs, dirwatch, Pas2JSFSCompiler,
Pas2JSCompilerCfg; Pas2JSCompilerCfg, ssockets;
Const Const
nErrTooManyThreads = -1; nErrTooManyThreads = -1;
nExitCodeSocketError = 1;
Type Type
TDirWatcher = Class; TDirWatcher = Class;
THTTPCompilerApplication = Class; THTTPCompilerApplication = Class;
@ -813,7 +815,15 @@ begin
TSimpleFileModule.RegisterDefaultRoute; TSimpleFileModule.RegisterDefaultRoute;
if InterfaceAddress<>'' then if InterfaceAddress<>'' then
HTTPHandler.Address:=InterfaceAddress; 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;
end. end.