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

* Compatibilty mode for DateTime fields

Browse Source
This commit is contained in:
Tomas Hajny 2002-09-22 18:44:13 +00:00
parent 7403f31f07
commit ba31bf5cfa
1 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/os2/doscalls.pas
View File

@ -1763,7 +1763,9 @@ function DosQueryMuxWaitSem(Handle:longint;var CSemRec:longint;
type TDateTime=packed record type TDateTime=packed record
Hour, case byte of
1:
(Hour,
Minute, Minute,
Second, Second,
Sec100, Sec100,
@ -1771,7 +1773,17 @@ type TDateTime=packed record
Month: byte; Month: byte;
Year: word; Year: word;
TimeZone: smallint; TimeZone: smallint;
WeekDay:byte; WeekDay: byte);
2: (* For compatibility *)
(Hours,
Minutes,
Seconds,
Hundredths,
_Day,
_Month: byte;
_Year: word;
_TimeZone: smallint;
_WeekDay: byte);
end; end;
PDateTime=^TDateTime; PDateTime=^TDateTime;
@ -4204,7 +4216,10 @@ external 'DOSCALLS' index 582;
end. end.
{ {
$Log$ $Log$
Revision 1.12 2002-09-07 16:01:24 peter Revision 1.13 2002-09-22 18:44:13 hajny
* Compatibilty mode for DateTime fields
Revision 1.12 2002/09/07 16:01:24 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.11 2002/07/07 18:03:22 hajny Revision 1.11 2002/07/07 18:03:22 hajny