paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 20:56:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

from patch #20657 removes some compiler warnings

Browse Source 
git-svn-id: trunk@33437 -
This commit is contained in:
sekelsenmat 2011-11-09 15:23:10 +00:00
parent 3a74265653
commit eca7c0b024
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazutf8sysutils.pas
View File

@ -46,7 +46,7 @@ Const
D1 = 146097; D1 = 146097;
D2 =1721119; D2 =1721119;
Procedure JulianToGregorian(JulianDN:LongInt;Var Year,Month,Day:Word); Procedure JulianToGregorian(JulianDN:LongInt;out Year,Month,Day:Word);
Var Var
YYear,XYear,Temp,TempMonth : LongInt; YYear,XYear,Temp,TempMonth : LongInt;
Begin Begin
@ -69,7 +69,7 @@ end;
Procedure EpochToLocal(epoch:longint;var year,month,day,hour,minute,second:Word); Procedure EpochToLocal(epoch:longint;out year,month,day,hour,minute,second:Word);
{ {
Transforms Epoch time into local time (hour, minute,seconds) Transforms Epoch time into local time (hour, minute,seconds)
} }