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

Amicommon: Fixed compilation after r33290

Browse Source 
git-svn-id: trunk@33292 -
This commit is contained in:
marcus 2016-03-20 06:45:00 +00:00
parent 02dbec2085
commit b396d34364
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/amicommon/sysutils.pp
View File

@ -34,6 +34,9 @@ interface
{$DEFINE HAS_SLEEP} {$DEFINE HAS_SLEEP}
{$DEFINE HAS_OSERROR} {$DEFINE HAS_OSERROR}
{OS has only 1 byte version for ExecuteProcess}
{$define executeprocuni}
{ used OS file system APIs use ansistring } { used OS file system APIs use ansistring }
{$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL} {$define SYSUTILS_HAS_ANSISTR_FILEUTIL_IMPL}
{ OS has an ansistring/single byte environment variable API } { OS has an ansistring/single byte environment variable API }
@ -849,7 +852,7 @@ var
begin begin
DosError:= 0; DosError:= 0;
convPath:=PathConv((ToSingleByteFileSystemEncodedFileName(Path)); convPath:=PathConv(ToSingleByteFileSystemEncodedFileName(Path));
tmpPath:=convPath+' '+ToSingleByteFileSystemEncodedFileName(ComLine); tmpPath:=convPath+' '+ToSingleByteFileSystemEncodedFileName(ComLine);
{ Here we must first check if the command we wish to execute } { Here we must first check if the command we wish to execute }