From 2ac16d265fccde4d91076f058d4d85957ef0faf9 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 2 Oct 2002 21:04:06 +0000
Subject: [PATCH]   * For win32 use the tsystemtime from the windows unit, that
 is changed     to a variant record with compatibile field names

---
 rtl/objpas/datih.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/datih.inc b/rtl/objpas/datih.inc
index 3807893d02..a7ac0afd5b 100644
--- a/rtl/objpas/datih.inc
+++ b/rtl/objpas/datih.inc
@@ -64,10 +64,13 @@ const
    }
 
 type
+{$ifndef win32}
+   { Win32 reuses the struct from the Windows unit }
    TSystemTime = record
       Year, Month, Day: word;
       Hour, Minute, Second, MilliSecond: word;
    end ;
+{$endif win32}
 
    TTimeStamp = record
       Time: integer;   { Number of milliseconds since midnight }
@@ -106,7 +109,11 @@ Procedure GetLocalTime(var SystemTime: TSystemTime);
 
 {
   $Log$
-  Revision 1.5  2002-09-07 16:01:22  peter
+  Revision 1.6  2002-10-02 21:04:06  peter
+    * For win32 use the tsystemtime from the windows unit, that is changed
+      to a variant record with compatibile field names
+
+  Revision 1.5  2002/09/07 16:01:22  peter
     * old logs removed and tabs fixed
 
 }