paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 00:28:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation after UnicodeString ExecuteProcess related changes

Browse Source 
git-svn-id: trunk@33899 -
This commit is contained in:
Tomas Hajny 2016-06-03 23:57:51 +00:00
parent 3732ad18d1
commit 293d9be6b6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/sysutils.pp
View File

@ -31,6 +31,8 @@ interface
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
{ OS has an ansistring/single byte environment variable API }
{$define SYSUTILS_HAS_ANSISTR_ENVVAR_IMPL}
{ OS has an ansistring/single byte API for executing other processes }
{$DEFINE EXECUTEPROCUNI}
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -756,11 +758,11 @@ begin
SysTimerTick := L;
end;
function ExecuteProcess (const Path: AnsiString; const ComLine: AnsiString;Flags:TExecuteFlags=[]):
integer;
function ExecuteProcess (const Path: RawByteString;
const ComLine: RawByteString;Flags:TExecuteFlags=[]): integer;
var
E: EOSError;
CommandLine: ansistring;
CommandLine: RawByteString;
Args0, Args: DosCalls.PByteArray;
ObjNameBuf: PChar;
ArgSize: word;
@ -932,8 +934,8 @@ begin
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;
var
CommandLine: AnsiString;