Browse Source

* previous fix also applies to go32v2 mode

pierre 23 years ago
parent
commit
4537143bb6
2 changed files with 2 additions and 10 deletions
  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);
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
 {$ifdef NetDrive}
-    if (DosError=66)
-{$ifdef win32}
-       or (DosError=123)
-{$endif win32}
-       then
+    if (DosError=66) or (DosError=123) then
       begin
       begin
       {$ifdef fpc}
       {$ifdef fpc}
         FindClose(SR);
         FindClose(SR);

+ 1 - 5
fvision/stddlg.pas

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