paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 19:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* return defined values for GetDate and GetTime for the embedded targets

Browse Source 
git-svn-id: trunk@34921 -
This commit is contained in:
florian 2016-11-19 21:55:40 +00:00
parent 0520d246d0
commit 9a4c7e2244
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/embedded/dos.pp
View File

@ -124,6 +124,10 @@ end;
procedure GetDate(Var Year, Month, MDay, WDay: Word); procedure GetDate(Var Year, Month, MDay, WDay: Word);
begin begin
Year := 0;
Month := 0;
MDay := 0;
WDay := 0;
end; end;
procedure SetDate(Year, Month, Day: Word); procedure SetDate(Year, Month, Day: Word);
@ -132,6 +136,10 @@ end;
procedure GetTime(Var Hour, Minute, Second, Sec100: Word); procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
begin begin
Hour := 0;
Minute := 0;
Second := 0;
Sec100 := 0;
end; end;
Procedure SetTime(Hour, Minute, Second, Sec100: Word); Procedure SetTime(Hour, Minute, Second, Sec100: Word);