paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure TSystemTime is seen by fpdoc

Browse Source 
git-svn-id: trunk@31035 -
This commit is contained in:
michael 2015-06-13 16:36:37 +00:00
parent bb7e0f645f
commit 633c8c7118
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/datih.inc
View File

@ -92,11 +92,15 @@ type
{ windows isn't defined in 2.0.2 (FK) } { windows isn't defined in 2.0.2 (FK) }
{$if not(defined(windows)) and not(defined(win32))} {$if not(defined(windows)) and not(defined(win32))}
{ Win32 reuses the struct from the Windows unit } { Win32 reuses the struct from the Windows unit }
{$DEFINE HAS_SYSTEMTIME}
{$endif windows}
{$IFNDEF HAS_SYSTEMTIME}
TSystemTime = record TSystemTime = record
Year, Month, Day, DayOfWeek: word; Year, Month, Day, DayOfWeek: word;
Hour, Minute, Second, MilliSecond: word; Hour, Minute, Second, MilliSecond: word;
end ; end ;
{$endif windows} {$ENDIF}
TTimeStamp = record TTimeStamp = record
Time: longint; { Number of milliseconds since midnight } Time: longint; { Number of milliseconds since midnight }