From 605ee59e81dda04955139e899cf90a7aa23c32a3 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 18 Sep 2004 11:12:09 +0000
Subject: [PATCH]   * handle type changed to thandle in do_isdevice

---
 rtl/emx/system.pas   | 7 +++++--
 rtl/go32v2/system.pp | 7 +++++--
 rtl/os2/system.pas   | 7 +++++--
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/rtl/emx/system.pas b/rtl/emx/system.pas
index 184e8f88f2..894acea5ba 100644
--- a/rtl/emx/system.pas
+++ b/rtl/emx/system.pas
@@ -705,7 +705,7 @@ begin
 end;
 
 {$ASMMODE INTEL}
-function do_isdevice (Handle: longint): boolean; assembler;
+function do_isdevice (Handle: THandle): boolean; assembler;
 (*
 var HT, Attr: longint;
 begin
@@ -1333,7 +1333,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.27  2004-09-03 19:25:41  olle
+  Revision 1.28  2004-09-18 11:12:49  hajny
+    * handle type changed to thandle in do_isdevice
+
+  Revision 1.27  2004/09/03 19:25:41  olle
     + added maxExitCode to all System.pp
     * constrained error code to be below maxExitCode in RunError et. al.
 
diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index 8f7fb6644f..c087d00cd9 100644
--- a/rtl/go32v2/system.pp
+++ b/rtl/go32v2/system.pp
@@ -1370,7 +1370,7 @@ begin
 end;
 
 
-function do_isdevice(handle:longint):boolean;
+function do_isdevice(handle:THandle):boolean;
 var
   regs : trealregs;
 begin
@@ -1623,7 +1623,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.38  2004-09-03 19:25:49  olle
+  Revision 1.39  2004-09-18 11:17:17  hajny
+    * handle type changed to thandle in do_isdevice
+
+  Revision 1.38  2004/09/03 19:25:49  olle
     + added maxExitCode to all System.pp
     * constrained error code to be below maxExitCode in RunError et. al.
 
diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas
index 74ddd624de..7bbd5616df 100644
--- a/rtl/os2/system.pas
+++ b/rtl/os2/system.pas
@@ -906,7 +906,7 @@ begin
 {$endif}
 end;
 
-function do_isdevice (Handle: longint): boolean;
+function do_isdevice (Handle: THandle): boolean;
 var
   HT, Attr: cardinal;
 begin
@@ -1621,7 +1621,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.73  2004-09-11 19:43:11  hajny
+  Revision 1.74  2004-09-18 11:12:09  hajny
+    * handle type changed to thandle in do_isdevice
+
+  Revision 1.73  2004/09/11 19:43:11  hajny
     * missing MaxExitCode added
 
   Revision 1.72  2004/07/18 15:20:38  hajny