From d0eac29ab930b23aa0f6e8b0c4ada8d5aa14701a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 16 Oct 2003 15:43:13 +0000
Subject: [PATCH]   * THandle is platform dependent

---
 rtl/emx/system.pas    |  7 ++++++-
 rtl/go32v2/system.pp  |  7 ++++++-
 rtl/inc/systemh.inc   | 11 ++++-------
 rtl/macos/system.pp   | 12 +++++++++++-
 rtl/os2/system.pas    |  8 +++++++-
 rtl/unix/sysunixh.inc | 12 +++++++++++-
 rtl/watcom/system.pp  |  8 +++++++-
 rtl/win32/system.pp   | 12 +++++++++++-
 8 files changed, 63 insertions(+), 14 deletions(-)

diff --git a/rtl/emx/system.pas b/rtl/emx/system.pas
index a09aa9055f..764e95014e 100644
--- a/rtl/emx/system.pas
+++ b/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
diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index e1b5cbb1ff..3ad34be696 100644
--- a/rtl/go32v2/system.pp
+++ b/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
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 67af123a63..f79bc016a9 100644
--- a/rtl/inc/systemh.inc
+++ b/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
 
diff --git a/rtl/macos/system.pp b/rtl/macos/system.pp
index af30c2144d..756fa6cd10 100644
--- a/rtl/macos/system.pp
+++ b/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
diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas
index bb8b5ce194..7b4eac7fbb 100644
--- a/rtl/os2/system.pas
+++ b/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
diff --git a/rtl/unix/sysunixh.inc b/rtl/unix/sysunixh.inc
index fe175dc2df..28070e48c9 100644
--- a/rtl/unix/sysunixh.inc
+++ b/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
diff --git a/rtl/watcom/system.pp b/rtl/watcom/system.pp
index 29c0183276..7e41268e61 100644
--- a/rtl/watcom/system.pp
+++ b/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
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 9f03dceb1b..ebd857bb10 100644
--- a/rtl/win32/system.pp
+++ b/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