paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

MaybeSkipTimeWrap function: Change NewDate var_type to var to suppress warnings

Browse Source 
git-svn-id: trunk@14091 -
This commit is contained in:
pierre 2009-11-07 00:30:32 +00:00
parent d12c36ee32
commit 2b879fcb54
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/dateutil.inc
View File

@ -1410,7 +1410,7 @@ end;
Increment/decrement functions. Increment/decrement functions.
---------------------------------------------------------------------} ---------------------------------------------------------------------}
Procedure MaybeSkipTimeWarp(OldDate: TDateTime; out NewDate: TDateTime); Procedure MaybeSkipTimeWarp(OldDate: TDateTime; var NewDate: TDateTime);
begin begin
if (OldDate>0) and (NewDate<0) then if (OldDate>0) and (NewDate<0) then
NewDate:=NewDate-0.5 NewDate:=NewDate-0.5