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

* fixed compilation of sysutils on i8086-msdos after r33290

Browse Source 
git-svn-id: trunk@33312 -
This commit is contained in:
nickysn 2016-03-21 21:09:27 +00:00
parent a9fe42b5f0
commit 6d4dfb5595
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/msdos/sysutils.pp
View File

@ -48,6 +48,8 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *) {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *) {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
{ Include platform independent implementation part } { Include platform independent implementation part }
{$i sysutils.inc} {$i sysutils.inc}
@ -842,10 +844,10 @@ end;
{$endif} {$endif}
function ExecuteProcess(Const Path: AnsiString; Const ComLine: AnsiString;Flags:TExecuteFlags=[]):integer; function ExecuteProcess(Const Path: RawByteString; Const ComLine: RawByteString;Flags:TExecuteFlags=[]):integer;
var var
e : EOSError; e : EOSError;
CommandLine: AnsiString; CommandLine: RawByteString;
begin begin
dos.exec_ansistring(path,comline); dos.exec_ansistring(path,comline);
@ -864,11 +866,11 @@ begin
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;
var var
CommandLine: AnsiString; CommandLine: RawByteString;
I: integer; I: integer;
begin begin