paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 18:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: fixed compileserver compile with fpc 3.2.2

Browse Source
This commit is contained in:
mattias 2023-02-14 22:38:42 +01:00
parent 513c8983e0
commit 93a47ddada
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/pas2js/httpcompiler.pp
View File

@ -7,6 +7,9 @@ interface
uses
{$ifdef unix}baseunix,{$endif}
{$IF FPC_FULLVERSION > 30300}
strutils,
{$ENDIF}
sysutils, classes, fpjson, contnrs, syncobjs, fpmimetypes, custhttpapp, inifiles,
fpwebproxy, webutil, fpwebfile, httproute, httpdefs, dirwatch, Pas2JSFSCompiler,
Pas2JSCompilerCfg, ssockets;
@ -156,8 +159,6 @@ Type
Implementation
uses strutils;
{ TMySimpleFileModule }
procedure TMySimpleFileModule.SendFile(const AFileName: String; AResponse: TResponse);
@ -869,10 +870,14 @@ begin
{$IF FPC_FULLVERSION > 30300}
TFPWebFileLocationAPIModule.RegisterFileLocationAPI(ExtractWord(1,FAPI,[',']),ExtractWord(2,FAPI,[',']));
{$ELSE}
Log(etError,'API support missing, Compile with fpc 3.3.1+');
Log(etError,'API support missing, compile with fpc 3.3.1+');
{$ENDIF}
if FCrossOriginIsolation then
{$IF FPC_FULLVERSION > 30300}
TSimpleFileModule.DefaultSimpleFileModuleClass:=TMySimpleFileModule;
{$ELSE}
Log(etError,'CrossOriginIsolation support missing, compile with fpc 3.3.1+');
{$ENDIF}
TSimpleFileModule.RegisterDefaultRoute;
if InterfaceAddress<>'' then
HTTPHandler.Address:=InterfaceAddress;