Browse Source

* wince has to reuse also TSystemTime from the Windows unit inside the sysutils unit

git-svn-id: trunk@3472 -
florian 19 years ago
parent
commit
0bbbfd23e5
2 changed files with 4 additions and 2 deletions
  1. 2 2
      rtl/objpas/sysutils/datih.inc
  2. 2 0
      rtl/wince/sysutils.pp

+ 2 - 2
rtl/objpas/sysutils/datih.inc

@@ -78,13 +78,13 @@ const
    }
 
 type
-{$if not(defined(win32)) and not(defined(win64)) }
+{$ifndef windows}
    { Win32 reuses the struct from the Windows unit }
    TSystemTime = record
       Year, Month, Day: word;
       Hour, Minute, Second, MilliSecond: word;
    end ;
-{$endif win32}
+{$endif windows}
 
    TTimeStamp = record
       Time: integer;   { Number of milliseconds since midnight }

+ 2 - 0
rtl/wince/sysutils.pp

@@ -33,6 +33,8 @@ uses
 {$i sysutilh.inc}
 
 type
+  TSystemTime = Windows.TSystemTime;
+  
   EWinCEError = class(Exception)
   public
     ErrorCode : DWORD;