소스 검색

Make SysUtils' TSystemTime declaration on non-Windows platforms compatible with the Win32 and Delphi declarations

Zoë Peterson 9 달 전
부모
커밋
208806f27f
1개의 변경된 파일7개의 추가작업 그리고 3개의 파일을 삭제
  1. 7 3
      rtl/objpas/sysutils/datih.inc

+ 7 - 3
rtl/objpas/sysutils/datih.inc

@@ -100,9 +100,13 @@ type
 
 {$IFNDEF HAS_SYSTEMTIME}
    TSystemTime = record
-      Year, Month, Day, DayOfWeek: word;
-      Hour, Minute, Second, MilliSecond: word;
-   end ;
+     case integer of
+       0: (Year, Month, Day, DayOfWeek: word;
+           Hour, Minute, Second, MilliSecond: word);
+       // Win32 compatibility
+       1: (wYear, wMonth, wDay, wDayOfWeek: word;
+           wHour, wMinute, wSecond, wMilliseconds: word);
+   end;
 {$ENDIF}
 
    TTimeStamp = record