* THandle is platform dependent

rtl/emx/system.pas

@@ -32,6 +32,8 @@ interface
 {$I heaph.inc}
 
 {Platform specific information}
+type
+  THandle = Longint;
 const
  LineEnding = #13#10;
 { LFNSupport is defined separately below!!! }
@@ -1246,7 +1248,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.14  2003-10-12 18:07:30  hajny
+  Revision 1.15  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.14  2003/10/12 18:07:30  hajny
     * wrong use of Intel syntax
 
   Revision 1.13  2003/10/12 17:59:40  hajny

rtl/go32v2/system.pp

@@ -39,6 +39,8 @@ interface
 
 
 {Platform specific information}
+type
+  THandle = Longint;
 const
  LineEnding = #13#10;
 { LFNSupport is a variable here, defined below!!! }
@@ -1511,7 +1513,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.26  2003-10-03 21:46:25  peter
+  Revision 1.27  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.26  2003/10/03 21:46:25  peter
     * stdcall fixes
 
   Revision 1.25  2003/09/29 18:39:59  hajny

rtl/inc/systemh.inc

@@ -265,12 +265,6 @@ Type
 
 { procedure type }
   TProcedure  = Procedure;
-  
-{$ifdef CPU64}
-  THandle = QWord;
-{$else CPU64}
-  THandle = DWord;
-{$endif CPU64}
 
 const
 { Maximum value of the biggest signed and unsigned integer type available}
@@ -699,7 +693,10 @@ const
 
 {
   $Log$
-  Revision 1.74  2003-10-08 16:24:47  florian
+  Revision 1.75  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.74  2003/10/08 16:24:47  florian
     * fixed some variant issues
     * improved type declarations
 

rtl/macos/system.pp

@@ -21,6 +21,13 @@ interface
 {$I systemh.inc}
 
 {Platform specific information}
+type
+{$ifdef CPU64}
+  THandle = Int64;
+{$else CPU64}
+  THandle = Longint;
+{$endif CPU64}
+
 const
  LineEnding = #13;
  LFNSupport = true;
@@ -807,7 +814,10 @@ end.
 
 {
   $Log$
-  Revision 1.7  2003-09-27 11:52:35  peter
+  Revision 1.8  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.7  2003/09/27 11:52:35  peter
     * sbrk returns pointer
 
   Revision 1.6  2003/09/12 12:45:15  olle

rtl/os2/system.pas

@@ -49,6 +49,9 @@ type
 {$I heaph.inc}
 
 {Platform specific information}
+type
+  THandle = Longint;
+
 const
  LineEnding = #13#10;
 { LFNSupport is defined separately below!!! }
@@ -1162,7 +1165,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.46  2003-10-14 21:10:06  hajny
+  Revision 1.47  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.46  2003/10/14 21:10:06  hajny
     * another longint2cardinal fix
 
   Revision 1.45  2003/10/13 21:17:31  hajny

rtl/unix/sysunixh.inc

@@ -28,6 +28,13 @@ const
 {$endif}
 
 {Platform specific information}
+type
+{$ifdef CPU64}
+  THandle = Int64;
+{$else CPU64}
+  THandle = Longint;
+{$endif CPU64}
+
 const
  LineEnding = #10;
  LFNSupport = true;
@@ -55,7 +62,10 @@ var
 
 {
   $Log$
-  Revision 1.16  2002-10-15 19:30:15  peter
+  Revision 1.17  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.16  2002/10/15 19:30:15  peter
     * remove threadh.inc include
 
   Revision 1.15  2002/09/07 16:01:28  peter

rtl/watcom/system.pp

@@ -32,6 +32,9 @@ INTERFACE
 {$include heaph.inc}
 
 {Platform specific information}
+type
+  THandle = Longint;
+
 const
  LineEnding = #13#10;
 { LFNSupport is a variable here, defined below!!! }
@@ -1139,7 +1142,10 @@ END.
 
 {
   $Log$
-  Revision 1.5  2003-10-03 21:59:28  peter
+  Revision 1.6  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.5  2003/10/03 21:59:28  peter
     * stdcall fixes
 
   Revision 1.4  2003/09/29 18:52:36  hajny

rtl/win32/system.pp

@@ -32,6 +32,13 @@ interface
 {$I systemh.inc}
 
 {Platform specific information}
+type
+{$ifdef CPU64}
+  THandle = QWord;
+{$else CPU64}
+  THandle = DWord;
+{$endif CPU64}
+
 const
  LineEnding = #13#10;
  LFNSupport = true;
@@ -1532,7 +1539,10 @@ end.
 
 {
   $Log$
-  Revision 1.45  2003-10-06 23:52:53  florian
+  Revision 1.46  2003-10-16 15:43:13  peter
+    * THandle is platform dependent
+
+  Revision 1.45  2003/10/06 23:52:53  florian
     * some data types cleaned up
 
   Revision 1.44  2003/09/27 11:52:36  peter