Explorar o código

MaybeSkipTimeWrap function: Change NewDate var_type to var to suppress warnings

git-svn-id: trunk@14091 -
pierre %!s(int64=16) %!d(string=hai) anos
pai
achega
2b879fcb54
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/objpas/dateutil.inc

+ 1 - 1
rtl/objpas/dateutil.inc

@@ -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