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

* Fix compilation for go32v2

Browse Source 
git-svn-id: trunk@15700 -
This commit is contained in:
pierre 2010-08-03 11:42:40 +00:00
parent ea72abc6a5
commit 1fcd37809b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/utils/redir.pp
View File

@ -1002,7 +1002,7 @@ end;
end;
{$else}
DosError:=0;
Exec (Getenv('COMSPEC'),'/C '+FixPath(progname)+' '+Comline)
Exec (Getenv('COMSPEC'),'/C '+FixPath(progname)+' '+Comline);
IOStatus:=DosError;
ExecuteResult:=DosExitCode;
{$endif}
@ -1021,9 +1021,9 @@ end;
{$else}
doserror:=0;
{$ifdef macos}
Dos.Exec(''''+ProgName+'''',Comline) {Quotes needed !}
Dos.Exec(''''+ProgName+'''',Comline); {Quotes needed !}
{$else}
Dos.Exec(ProgName,Comline)
Dos.Exec(ProgName,Comline);
{$endif}
IOStatus:=DosError;
ExecuteResult:=DosExitCode;