Selaa lähdekoodia

* previous fix also applies to go32v2 mode

pierre 23 vuotta sitten
vanhempi
commit
4537143bb6
2 muutettua tiedostoa jossa 2 lisäystä ja 10 poistoa
  1. 1 5
      fv/stddlg.pas
  2. 1 5
      fvision/stddlg.pas

+ 1 - 5
fv/stddlg.pas

@@ -2519,11 +2519,7 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if (DosError=66)
-{$ifdef win32}
-       or (DosError=123)
-{$endif win32}
-       then
+    if (DosError=66) or (DosError=123) then
       begin
       {$ifdef fpc}
         FindClose(SR);

+ 1 - 5
fvision/stddlg.pas

@@ -2519,11 +2519,7 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if (DosError=66)
-{$ifdef win32}
-       or (DosError=123)
-{$endif win32}
-       then
+    if (DosError=66) or (DosError=123) then
       begin
       {$ifdef fpc}
         FindClose(SR);