Quellcode durchsuchen

* another correction to FSearch fix - mistyping

Tomas Hajny vor 26 Jahren
Ursprung
Commit
2040a216bb
1 geänderte Dateien mit 5 neuen und 2 gelöschten Zeilen
  1. 5 2
      rtl/os2/dos.pas

+ 5 - 2
rtl/os2/dos.pas

@@ -211,7 +211,7 @@ begin
                  New (FStat);
                  ND := NewDir + Path;
                  Handle := $FFFFFFFF;
-                 RC := DosFindFirst (ND, Handle, $39, FStat, SizeOf (FStat^),
+                 RC := DosFindFirst (ND, Handle, $37, FStat, SizeOf (FStat^),
                                                             Count, ilStandard);
                  DosFindClose (Handle);
                  Dispose (FStat);
@@ -1000,7 +1000,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.14  1999-09-13 17:35:15  hajny
+  Revision 1.15  1999-09-13 17:56:26  hajny
+    * another correction to FSearch fix - mistyping
+
+  Revision 1.14  1999/09/13 17:35:15  hajny
     * little addition/correction to FSearch fix
 
   Revision 1.13  1999/09/09 09:20:43  hajny