From 51219f6cad78c1366a166fc5bae626328a4dfad2 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 1 Apr 2003 15:36:31 +0000
Subject: [PATCH]   * make HResult unique type

---
 rtl/inc/systemh.inc | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 76a1ca4708..b9b9103898 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -176,9 +176,9 @@ Type
 {$ifndef HASCURRENCY}
   Currency            = Int64;
 {$endif HASCURRENCY}
-  HRESULT             = Longint;
-  TDateTime           = Double;
-  Error               = Longint;
+  HRESULT             = type Longint;
+  TDateTime           = type Double;
+  Error               = type Longint;
 
   PSingle             = ^Single;
   PDouble             = ^Double;
@@ -665,7 +665,10 @@ const
 
 {
   $Log$
-  Revision 1.64  2003-03-17 14:30:11  peter
+  Revision 1.65  2003-04-01 15:36:31  peter
+    * make HResult unique type
+
+  Revision 1.64  2003/03/17 14:30:11  peter
     * changed address parameter/return values to pointer instead
       of longint