paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:09:31 +02: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.
---------------------------------------------------------------------}
Procedure MaybeSkipTimeWarp(OldDate: TDateTime; out NewDate: TDateTime);
Procedure MaybeSkipTimeWarp(OldDate: TDateTime; var NewDate: TDateTime);
begin
if (OldDate>0) and (NewDate<0) then
NewDate:=NewDate-0.5