From 6d4dfb5595938c8434c5e5d6bcea311d3c5486a5 Mon Sep 17 00:00:00 2001 From: nickysn Date: Mon, 21 Mar 2016 21:09:27 +0000 Subject: [PATCH] * fixed compilation of sysutils on i8086-msdos after r33290 git-svn-id: trunk@33312 - --- rtl/msdos/sysutils.pp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/rtl/msdos/sysutils.pp b/rtl/msdos/sysutils.pp index 5252ad2ea2..d622c4cbf8 100644 --- a/rtl/msdos/sysutils.pp +++ b/rtl/msdos/sysutils.pp @@ -48,6 +48,8 @@ implementation {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *) {$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 } {$i sysutils.inc} @@ -842,10 +844,10 @@ end; {$endif} -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; begin dos.exec_ansistring(path,comline); @@ -864,11 +866,11 @@ 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; + CommandLine: RawByteString; I: integer; begin