Browse Source

Fix RTL compilation of wii OS (with -Sfresources only)

git-svn-id: trunk@36869 -
pierre 8 years ago
parent
commit
2ccf7682b5
1 changed files with 5 additions and 3 deletions
  1. 5 3
      rtl/wii/sysutils.pp

+ 5 - 3
rtl/wii/sysutils.pp

@@ -37,6 +37,8 @@ interface
 { OS has an ansistring/single byte environment variable API }
 { OS has an ansistring/single byte environment variable API }
 {$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
 {$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
 
 
+{$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
+
 { Include platform independent interface part }
 { Include platform independent interface part }
 {$i sysutilh.inc}
 {$i sysutilh.inc}
 
 
@@ -267,13 +269,13 @@ begin
   result := '';
   result := '';
 end;
 end;
 
 
-function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess (const Path: RawByteString; const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
 begin
 begin
   result := -1;
   result := -1;
 end;
 end;
 
 
-function ExecuteProcess (const Path: AnsiString;
-                                  const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess (const Path: RawByteString;
+                                  const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
 begin
 begin
   result := -1;
   result := -1;
 end;
 end;