From 1fcd37809ba1b2795e01d1e2cba7313ebf4ea038 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 3 Aug 2010 11:42:40 +0000
Subject: [PATCH]  * Fix compilation for go32v2

git-svn-id: trunk@15700 -
---
 tests/utils/redir.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/utils/redir.pp b/tests/utils/redir.pp
index 3c0a1eff4a..bb6973b133 100644
--- a/tests/utils/redir.pp
+++ b/tests/utils/redir.pp
@@ -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;