* THandle in sysutils common using System.THandle

rtl/amiga/system.pas

@@ -33,6 +33,9 @@ unit {$ifdef VER1_0}sysamiga{$else}{$ifdef VER0_99}sysamiga{$ELSE}system{$endif}
 
     {$I systemh.inc}
 
+type
+ THandle = longint;
+
     {$I heaph.inc}
 
 {Platform specific information}
@@ -1827,7 +1830,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2003-09-29 18:52:36  hajny
+  Revision 1.9  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.8  2003/09/29 18:52:36  hajny
     * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
 
   Revision 1.7  2003/09/27 11:52:35  peter

rtl/atari/system.pas

@@ -30,6 +30,9 @@ unit {$ifdef VER1_0}sysatari{$else}{$ifdef VER0_99}sysatari{$ELSE}system{$endif}
 
     {$I systemh.inc}
 
+type
+ THandle = longint;
+
     {$I heaph.inc}
 
 {Platform specific information}
@@ -759,7 +762,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2003-09-29 18:52:36  hajny
+  Revision 1.9  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.8  2003/09/29 18:52:36  hajny
     * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
 
   Revision 1.7  2003/09/27 11:52:35  peter

rtl/beos/system.pp

@@ -27,6 +27,9 @@ interface
 
 {$I systemh.inc}
 
+type
+ THandle = longint;
+
 { include heap support headers }
 
 {$I heaph.inc}
@@ -535,7 +538,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.9  2003-09-27 11:52:35  peter
+  Revision 1.10  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.9  2003/09/27 11:52:35  peter
     * sbrk returns pointer
 
   Revision 1.8  2003/01/08 22:32:28  marco

rtl/go32v2/sysutils.pp

@@ -24,9 +24,6 @@ interface
 uses
   go32,dos;
 
-type
-  THandle = type Longint;
-
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -754,7 +751,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.16  2003-06-03 07:54:27  michael
+  Revision 1.17  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.16  2003/06/03 07:54:27  michael
   + Patch from Peter for millisecond timing
 
   Revision 1.15  2003/04/02 15:18:28  peter

rtl/inc/objects.pp

@@ -153,11 +153,6 @@ TYPE
 {---------------------------------------------------------------------------}
 type
    FNameStr = String;
-{$ifdef win32}
-   THandle = Windows.THandle;
-{$else}
-   THandle = longint;
-{$endif}
 const
    MaxReadBytes = $7fffffff;
    invalidhandle = -1;
@@ -2927,7 +2922,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.22  2003-09-16 15:57:33  peter
+  Revision 1.23  2003-10-25 23:43:59  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.22  2003/09/16 15:57:33  peter
     * sparc register typo
 
   Revision 1.21  2003/08/21 22:17:13  olle

rtl/netware/system.pp

@@ -32,6 +32,9 @@ interface
 
 {$I systemh.inc}
 
+type
+ THandle = cardinal;
+
 {Platform specific information}
 const
  LineEnding = #13#10;
@@ -812,7 +815,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.19  2003-10-17 22:12:02  olle
+  Revision 1.20  2003-10-25 23:43:59  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.19  2003/10/17 22:12:02  olle
     * changed i386 to cpui386
 
   Revision 1.18  2003/09/27 11:52:35  peter

rtl/netware/sysutils.pp

@@ -35,9 +35,6 @@ TYPE
     Magic : WORD;                    { to avoid abends with uninitialized TSearchRec }
   END;
 
-type
-  THandle = Cardinal;
-
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -500,7 +497,10 @@ end.
 {
 
   $Log$
-  Revision 1.11  2003-04-12 13:21:27  armin
+  Revision 1.12  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.11  2003/04/12 13:21:27  armin
   * added THandle
 
   Revision 1.10  2003/03/30 12:35:43  armin

rtl/netware/winsock.pp

@@ -65,7 +65,6 @@ unit winsock;
        LPINT   = ^integer;
        LPDWORD = ^dword;
        {$ifdef netware}
-       THandle = longint;  {win32 system unit defines THandle and overlapped}
        OVERLAPPED = record
           Internal    : DWORD;
           InternalHigh: DWORD;
@@ -2431,7 +2430,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.2  2003-03-30 12:35:43  armin
+  Revision 1.3  2003-10-25 23:42:35  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.2  2003/03/30 12:35:43  armin
   * removed uses netware from winsock, DirectoryExists implemented
 
   Revision 1.1  2003/03/25 18:17:54  armin

rtl/objpas/sysutils/sysutilh.inc

@@ -15,8 +15,6 @@
 
 
   { Read date & Time function declarations }
-(* This must be placed before other functions, because TDateTime from DosCalls
-   would be used under OS/2 instead of that one from datih.inc otherwise. *)
   {$i osutilsh.inc}
 
   {$i datih.inc}
@@ -27,6 +25,14 @@
 type
    { some helpful data types }
 
+{$IFDEF VER1_0}
+(* System type alias cannot be used under version *)
+(* 1.0 because of different names of System unit. *)
+   THandle = longint;
+{$ELSE VER1_0}
+   THandle = System.THandle;
+{$ENDIF VER1_0}
+
    tprocedure = procedure;
 
    tfilename = string;
@@ -213,7 +219,10 @@ Type
 
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2003-10-25 23:43:59  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.20  2003/09/06 20:49:54  marco

rtl/posix/sysutils.pp

@@ -21,12 +21,6 @@ interface
 { force ansistrings }
 {$H+}
 
-type
-{$ifdef VER1_0}
-  THandle = type Longint;
-{$else VER1_0}
-  THandle = System.THandle;
-{$endif VER1_0}
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -552,7 +546,10 @@ Finalization
 end.
 {
     $Log$
-    Revision 1.7  2003-10-09 20:13:19  florian
+    Revision 1.8  2003-10-25 23:43:59  hajny
+      * THandle in sysutils common using System.THandle
+
+    Revision 1.7  2003/10/09 20:13:19  florian
       * more type alias updates as suggested by DarekM
 
     Revision 1.6  2003/04/01 15:57:41  peter

rtl/unix/sysutils.pp

@@ -24,9 +24,6 @@ interface
 uses
   Unix,errors;
 
-type
-  THandle = type Longint;
-
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -493,7 +490,10 @@ end.
 {
 
   $Log$
-  Revision 1.23  2003-10-07 08:28:49  marco
+  Revision 1.24  2003-10-25 23:43:59  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.23  2003/10/07 08:28:49  marco
    * fix from Vincent to casetables
 
   Revision 1.22  2003/09/27 12:51:33  peter

rtl/win32/sysutils.pp

@@ -38,8 +38,6 @@ uses
 {$i sysutilh.inc}
 
 type
-  THandle = Windows.Handle;
-
   TSystemTime = Windows.TSystemTime;
 
   EWin32Error = class(Exception)
@@ -712,7 +710,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.24  2003-09-17 15:06:36  peter
+  Revision 1.25  2003-10-25 23:44:33  hajny
+    * THandle in sysutils common using System.THandle
+
+  Revision 1.24  2003/09/17 15:06:36  peter
     * stdcall patch
 
   Revision 1.23  2003/09/06 22:23:35  marco