浏览代码

* fixed compilation

git-svn-id: trunk@5113 -
Jonas Maebe 19 年之前
父节点
当前提交
07d2ecb78b
共有 3 个文件被更改,包括 18 次插入3 次删除
  1. 6 1
      compiler/systems/t_amiga.pas
  2. 6 1
      compiler/systems/t_macos.pas
  3. 6 1
      compiler/systems/t_morph.pas

+ 6 - 1
compiler/systems/t_amiga.pas

@@ -28,7 +28,12 @@ interface
 
 uses
   link,
-  cutils,cclasses,
+  cutils,cclasses,cfileutils,
+{$IFNDEF USE_FAKE_SYSUTILS}
+      SysUtils,
+{$ELSE}
+      fksysutl,
+{$ENDIF}
   globtype,globals,systems,verbose,script,fmodule,i_amiga;
 
 

+ 6 - 1
compiler/systems/t_macos.pas

@@ -45,7 +45,12 @@ interface
 implementation
 
     uses
-       cutils,cclasses,
+       cutils,cclasses,cfileutils,
+{$IFNDEF USE_FAKE_SYSUTILS}
+      SysUtils,
+{$ELSE}
+      fksysutl,
+{$ENDIF}
        globtype,globals,systems,verbose,script,fmodule,i_macos,
        ogbase,
        symconst;

+ 6 - 1
compiler/systems/t_morph.pas

@@ -31,7 +31,12 @@ implementation
 
     uses
        link,
-       cutils,cclasses,
+       cutils,cclasses,cfileutils,
+{$IFNDEF USE_FAKE_SYSUTILS}
+      SysUtils,
+{$ELSE}
+      fksysutl,
+{$ENDIF}
        globtype,globals,systems,verbose,script,fmodule,i_morph;
 
     type