소스 검색

pas2js: fixed compileserver compile with fpc 3.2.2

mattias 2 년 전
부모
커밋
93a47ddada
1개의 변경된 파일8개의 추가작업 그리고 3개의 파일을 삭제
  1. 8 3
      utils/pas2js/httpcompiler.pp

+ 8 - 3
utils/pas2js/httpcompiler.pp

@@ -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;