paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 21:38:31 +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

35
rtl/os2/doscalls.pas
View File

@ -1763,15 +1763,27 @@ function DosQueryMuxWaitSem(Handle:longint;var CSemRec:longint;
type TDateTime=packed record
Hour,
Minute,
Second,
Sec100,
Day,
Month:byte;
Year:word;
TimeZone:smallint;
WeekDay:byte;
case byte of
1:
(Hour,
Minute,
Second,
Sec100,
Day,
Month: byte;
Year: word;
TimeZone: smallint;
WeekDay: byte);
2: (* For compatibility *)
(Hours,
Minutes,
Seconds,
Hundredths,
_Day,
_Month: byte;
_Year: word;
_TimeZone: smallint;
_WeekDay: byte);
end;
PDateTime=^TDateTime;
@ -4204,7 +4216,10 @@ external 'DOSCALLS' index 582;
end.
{
$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
Revision 1.11 2002/07/07 18:03:22 hajny