From 7aa1e88a5d75cb7fd3b5b8a1f750c2f46d9bb0a9 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 13 Aug 2000 17:55:14 +0000
Subject: [PATCH] + Added some delphi compatibility types

---
 rtl/inc/system.inc  |  9 ++++-----
 rtl/inc/systemh.inc | 25 ++++++++++++++++++++++++-
 2 files changed, 28 insertions(+), 6 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 56c0bdaf73..b0bd64977c 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -32,10 +32,6 @@ Procedure HandleErrorFrame (Errno : longint;frame : longint); forward;
 type
   FileFunc = Procedure(var t : TextRec);
 
-  PByte    = ^Byte;
-  PWord    = ^word;
-  PDWord   = ^DWord;
-  PLongint = ^Longint;
 
 const
 { Random / Randomize constants }
@@ -639,7 +635,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2000-08-09 19:31:18  marco
+  Revision 1.5  2000-08-13 17:55:14  michael
+  + Added some delphi compatibility types
+
+  Revision 1.4  2000/08/09 19:31:18  marco
    * fixes for val(int64 or qword) to ansistring
 
   Revision 1.3  2000/07/14 10:33:10  michael
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index f3d07e144d..4dede6fec4 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -84,6 +84,7 @@ Type
 { Zero - terminated strings }
   PChar       = ^Char;
   PPChar      = ^PChar;
+
 { Delphi types }
   TAnsiChar   = Char;
   AnsiChar    = TAnsiChar;
@@ -91,6 +92,25 @@ Type
   PQWord      = ^QWord;
   PInt64      = ^Int64;
 
+  currency            = int64;
+  HRESULT             = Longint; 
+  TDateTime           = Double;
+  Error               = Longint;  
+
+  PSmallInt           = ^Smallint;
+  PInteger            = ^Longint;
+  PSingle             = ^Single;  
+  PDouble             = ^Double;
+  PCurrency           = ^Currency; 
+  PDate               = ^TDateTime;
+  PPWideChar          = ^PWideChar;
+  PError              = ^Error;
+  PWordBool           = ^WordBool;
+  PByte               = ^Byte;
+  PWord    = ^word;
+  PDWord   = ^DWord;
+  PLongint = ^Longint;
+
 {$ifdef HASWIDECHAR}
   PWideChar   = ^WideChar;
 {$endif HASWIDECHAR}
@@ -456,7 +476,10 @@ const
 
 {
   $Log$
-  Revision 1.4  2000-08-08 22:11:45  sg
+  Revision 1.5  2000-08-13 17:55:15  michael
+  + Added some delphi compatibility types
+
+  Revision 1.4  2000/08/08 22:11:45  sg
   * Added declarations for WideString utility functions
 
   Revision 1.3  2000/07/14 10:33:10  michael