* made THandle platform dependent and unique type

rtl/go32v2/sysutils.pp

@@ -24,6 +24,9 @@ interface
 uses
   go32,dos;
 
+type
+  THandle = type Longint;
+
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -751,7 +754,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.13  2003-03-29 18:21:42  hajny
+  Revision 1.14  2003-04-01 15:57:41  peter
+    * made THandle platform dependent and unique type
+
+  Revision 1.13  2003/03/29 18:21:42  hajny
     * DirectoryExists declaration changed to that one from fixes branch
 
   Revision 1.12  2003/03/28 19:06:59  peter

rtl/objpas/filutilh.inc

@@ -14,9 +14,6 @@
 
  **********************************************************************}
 
-Type
-  THandle = Longint;
-
 Type
   TSearchRec = Record
     Time : Longint;
@@ -85,7 +82,10 @@ Function FileSearch (Const Name, DirList : String) : String;
 
 {
   $Log$
-  Revision 1.9  2003-03-29 18:21:41  hajny
+  Revision 1.10  2003-04-01 15:57:41  peter
+    * made THandle platform dependent and unique type
+
+  Revision 1.9  2003/03/29 18:21:41  hajny
     * DirectoryExists declaration changed to that one from fixes branch
 
   Revision 1.8  2003/03/28 19:06:59  peter

rtl/os2/sysutils.pp

@@ -25,6 +25,9 @@ interface
 uses
  Dos;
 
+type
+  THandle = type Longint;
+
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -983,7 +986,10 @@ end.
 
 {
   $Log$
-  Revision 1.26  2003-03-31 02:18:39  yuri
+  Revision 1.27  2003-04-01 15:57:41  peter
+    * made THandle platform dependent and unique type
+
+  Revision 1.26  2003/03/31 02:18:39  yuri
   FileClose bug fixed (again ;))
 
   Revision 1.25  2003/03/29 19:14:16  yuri

rtl/posix/sysutils.pp

@@ -21,7 +21,8 @@ interface
 { force ansistrings }
 {$H+}
 
-
+type
+  THandle = type Longint;
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -547,7 +548,10 @@ Finalization
 end.
 {
     $Log$
-    Revision 1.5  2003-03-29 15:36:58  hajny
+    Revision 1.6  2003-04-01 15:57:41  peter
+      * made THandle platform dependent and unique type
+
+    Revision 1.5  2003/03/29 15:36:58  hajny
       * DirectoryExists merged from the fixes branch
 
     Revision 1.4  2003/03/29 15:16:26  hajny

rtl/unix/sysutils.pp

@@ -24,6 +24,9 @@ interface
 uses
   Unix,errors;
 
+type
+  THandle = type Longint;
+
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -491,7 +494,10 @@ end.
 {
 
   $Log$
-  Revision 1.17  2003-03-30 10:38:00  armin
+  Revision 1.18  2003-04-01 15:57:41  peter
+    * made THandle platform dependent and unique type
+
+  Revision 1.17  2003/03/30 10:38:00  armin
   * corrected typo in DirectoryExists
 
   Revision 1.16  2003/03/29 18:21:42  hajny

rtl/win32/sysutils.pp

@@ -30,6 +30,8 @@ uses
 {$i sysutilh.inc}
 
 type
+  THandle = Windows.Handle;
+
   TSystemTime = Windows.TSystemTime;
 
   EWin32Error = class(Exception)
@@ -191,7 +193,7 @@ var
   Handle: THandle;
   FindData: TWin32FindData;
 begin
-  Handle := FindFirstFile(Pchar(FileName), @FindData);
+  Handle := FindFirstFile(Pchar(Directory), @FindData);
   Result:=(Handle <> INVALID_HANDLE_VALUE) and
           ((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY);
   If Result then
@@ -683,7 +685,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.21  2003-03-29 18:21:42  hajny
+  Revision 1.22  2003-04-01 15:57:41  peter
+    * made THandle platform dependent and unique type
+
+  Revision 1.21  2003/03/29 18:21:42  hajny
     * DirectoryExists declaration changed to that one from fixes branch
 
   Revision 1.20  2003/03/28 19:06:59  peter