paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-25 10:58:34 +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 type TDateTime=packed record
Hour, case byte of
Minute, 1:
Second, (Hour,
Sec100, Minute,
Day, Second,
Month:byte; Sec100,
Year:word; Day,
TimeZone:smallint; Month: byte;
WeekDay:byte; Year: word;
TimeZone: smallint;
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