瀏覽代碼

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;