Ver Fonte

Merged revisions 10781 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r10781 | hajny | 2008-04-24 08:17:40 -0700 | 1 line

* fix by Giulio Bernardi for DosExitCode always 0 under Go32v2
........

git-svn-id: branches/fixes_2_2@10782 -

Tomas Hajny há 17 anos atrás
pai
commit
5374eb5ff4
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      rtl/go32v2/dos.pp

+ 1 - 1
rtl/go32v2/dos.pp

@@ -275,7 +275,7 @@ begin
   dosregs.ax:=$4b00;
   msdos(dosregs);
   LoadDosError;
-  if DosError<>0 then
+  if DosError=0 then
    begin
      dosregs.ax:=$4d00;
      msdos(dosregs);