Browse Source

* Allow to work with unicodertl

Michael VAN CANNEYT 2 years ago
parent
commit
3b9906ed38
2 changed files with 8 additions and 3 deletions
  1. 6 1
      packages/fpmkunit/fpmake.pp
  2. 2 2
      packages/fpmkunit/src/fpmkunit.pp

+ 6 - 1
packages/fpmkunit/fpmake.pp

@@ -2,7 +2,12 @@
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 program fpmake;
 program fpmake;
 
 
-uses fpmkunit;
+uses
+  {$ifdef unix}
+  cwstring,
+  cthreads,
+  {$endif}
+  fpmkunit;
 
 
 Var
 Var
   P : TPackage;
   P : TPackage;

+ 2 - 2
packages/fpmkunit/src/fpmkunit.pp

@@ -2965,7 +2965,7 @@ end;
   If ReadStdErr is True, return stderr output if stdout is empty
   If ReadStdErr is True, return stderr output if stdout is empty
   If EmptyIfStdErr, return empty string if stderr output is not empty }
   If EmptyIfStdErr, return empty string if stderr output is not empty }
 
 
-function GetCompilerInfo(const ACompiler:string; Args : TStrings; ReadStdErr: boolean;EmptyIfStdErr : boolean):string;
+function GetCompilerInfo(const ACompiler:string; Args : TStrings; ReadStdErr: boolean;EmptyIfStdErr : boolean):ansistring;
 
 
 const
 const
   BufSize = 1024;
   BufSize = 1024;
@@ -3009,7 +3009,7 @@ end;
 
 
 // Convenience function
 // Convenience function
 
 
-function GetCompilerInfo(const ACompiler:string; aOptions : Array of String; ReadStdErr: boolean;EmptyIfStdErr : boolean):string;
+function GetCompilerInfo(const ACompiler:string; aOptions : Array of String; ReadStdErr: boolean;EmptyIfStdErr : boolean):ansistring;
 
 
 Var
 Var
   Args : TStrings;
   Args : TStrings;