paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@36869 -
This commit is contained in:
pierre 2017-08-11 15:44:07 +00:00
parent a1c879d093
commit 2ccf7682b5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wii/sysutils.pp
View File

@ -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; function ExecuteProcess (const Path: RawByteString;
const ComLine: array of AnsiString;Flags:TExecuteFlags=[]): integer; const ComLine: array of RawByteString;Flags:TExecuteFlags=[]): integer;
begin begin
result := -1; result := -1;
end; end;