paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 08:47:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed one change too many from {ifdef macos} into {ifdef usedos}

Browse Source 
git-svn-id: trunk@12363 -
This commit is contained in:
Jonas Maebe 2008-12-14 18:01:16 +00:00
parent 3a56f2403c
commit f104ec1346
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/utils/redir.pp
View File

@ -1051,7 +1051,11 @@ end;
{$ifndef usedos}
Sysutils.ExecuteProcess(ProgName,Comline)
{$else}
{$ifdef macos}
Dos.Exec(''''+ProgName+'''',Comline) {Quotes needed !}
{$else}
Dos.Exec(ProgName,Comline)
{$endif}
{$endif}
else
DosError:=2;