paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:49:12 +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 committed by Pierre Muller
parent 975e35ddaf
commit 5999be1f90
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 uses
{$ifdef unix}baseunix,{$endif} {$ifdef unix}baseunix,{$endif}
{$IF FPC_FULLVERSION > 30300}
strutils,
{$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, ssockets; Pas2JSCompilerCfg, ssockets;
@ -156,8 +159,6 @@ Type
Implementation Implementation
uses strutils;
{ TMySimpleFileModule } { TMySimpleFileModule }
procedure TMySimpleFileModule.SendFile(const AFileName: String; AResponse: TResponse); procedure TMySimpleFileModule.SendFile(const AFileName: String; AResponse: TResponse);
@ -869,10 +870,14 @@ begin
{$IF FPC_FULLVERSION > 30300} {$IF FPC_FULLVERSION > 30300}
TFPWebFileLocationAPIModule.RegisterFileLocationAPI(ExtractWord(1,FAPI,[',']),ExtractWord(2,FAPI,[','])); TFPWebFileLocationAPIModule.RegisterFileLocationAPI(ExtractWord(1,FAPI,[',']),ExtractWord(2,FAPI,[',']));
{$ELSE} {$ELSE}
Log(etError,'API support missing, Compile with fpc 3.3.1+'); Log(etError,'API support missing, compile with fpc 3.3.1+');
{$ENDIF} {$ENDIF}
if FCrossOriginIsolation then if FCrossOriginIsolation then
{$IF FPC_FULLVERSION > 30300}
TSimpleFileModule.DefaultSimpleFileModuleClass:=TMySimpleFileModule; TSimpleFileModule.DefaultSimpleFileModuleClass:=TMySimpleFileModule;
{$ELSE}
Log(etError,'CrossOriginIsolation support missing, compile with fpc 3.3.1+');
{$ENDIF}
TSimpleFileModule.RegisterDefaultRoute; TSimpleFileModule.RegisterDefaultRoute;
if InterfaceAddress<>'' then if InterfaceAddress<>'' then
HTTPHandler.Address:=InterfaceAddress; HTTPHandler.Address:=InterfaceAddress;