Pārlūkot izejas kodu

Merged from trunk:
------------------------------------------------------------------------
r15700 | pierre | 2010-08-03 13:42:40 +0200 (Tue, 03 Aug 2010) | 1 line

* Fix compilation for go32v2
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@15701 -

pierre 15 gadi atpakaļ
vecāks
revīzija
9dd0ff1e5e
2 mainītis faili ar 4 papildinājumiem un 4 dzēšanām
  1. 1 1
      rtl/win32/Makefile.fpc
  2. 3 3
      tests/utils/redir.pp

+ 1 - 1
rtl/win32/Makefile.fpc

@@ -20,7 +20,7 @@ implicitunits=sysinitpas sysinitcyg sysinitgprof \
       video mouse keyboard fmtbcd \
       winsysut sharemem exeinfo fpintres
 
-# shared=$(DLLS)
+shared=$(DLLS)
 
 rsts=math varutils typinfo variants classes dateutils sysconst
 

+ 3 - 3
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;