mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 22:50:38 +01:00
* compilation fix for MS Windows targets
git-svn-id: trunk@28896 -
This commit is contained in:
parent
0b71f6286c
commit
0c063005dd
@ -284,7 +284,6 @@ implementation
|
|||||||
{$ELSE OS2}
|
{$ELSE OS2}
|
||||||
{$I dbf_wnix.inc}
|
{$I dbf_wnix.inc}
|
||||||
{$ENDIF OS2}
|
{$ENDIF OS2}
|
||||||
{$endif}
|
|
||||||
|
|
||||||
procedure DateTimeToSystemTime(const DateTime: System.TDateTime; var SystemTime: TSystemTime);
|
procedure DateTimeToSystemTime(const DateTime: System.TDateTime; var SystemTime: TSystemTime);
|
||||||
begin
|
begin
|
||||||
@ -313,4 +312,6 @@ begin
|
|||||||
DateTimeToSystemTime(NOW, lpSystemTime);
|
DateTimeToSystemTime(NOW, lpSystemTime);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{$endif}
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user