paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 06:40:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TSystemTime fpc compatibility parameters added as variant record

Browse Source
This commit is contained in:
peter 2002-10-02 21:03:04 +00:00
parent a6bdf6703d
commit 80b078b37f
1 changed files with 26 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rtl/win32/wininc/struct.inc
View File

@ -3513,14 +3513,28 @@
PINPUTRECORD = ^INPUT_RECORD; PINPUTRECORD = ^INPUT_RECORD;
SYSTEMTIME = record SYSTEMTIME = record
wYear : WORD; case integer of
wMonth : WORD; 1 : (
wDayOfWeek : WORD; wYear : WORD;
wDay : WORD; wMonth : WORD;
wHour : WORD; wDayOfWeek : WORD;
wMinute : WORD; wDay : WORD;
wSecond : WORD; wHour : WORD;
wMilliseconds : WORD; wMinute : WORD;
wSecond : WORD;
wMilliseconds : WORD;
);
{ Compatibility for FPC }
2 : (
Year : WORD;
Month : WORD;
DayOfWeek : WORD;
Day : WORD;
Hour : WORD;
Minute : WORD;
Second : WORD;
Millisecond : WORD;
);
end; end;
LPSYSTEMTIME = ^SYSTEMTIME; LPSYSTEMTIME = ^SYSTEMTIME;
_SYSTEMTIME = SYSTEMTIME; _SYSTEMTIME = SYSTEMTIME;
@ -7013,7 +7027,10 @@ type
{ {
$Log$ $Log$
Revision 1.15 2002-09-15 17:53:45 peter Revision 1.16 2002-10-02 21:03:04 peter
* TSystemTime fpc compatibility parameters added as variant record
Revision 1.15 2002/09/15 17:53:45 peter
* Remove Float type, use Single instead * Remove Float type, use Single instead
Revision 1.14 2002/09/07 16:01:32 peter Revision 1.14 2002/09/07 16:01:32 peter