* repeat inline in the body

git-svn-id: trunk@5257 -

rtl/objpas/sysutils/dati.inc

@@ -832,7 +832,7 @@ begin
     result:=defvalue;
 end;
 
-procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime);
+procedure ReplaceTime(var dati:TDateTime; NewTime : TDateTime);inline;
 
 begin
   dati:=trunc(dati)+frac(newtime);