From 2659c320783716642955938142d237d591668954 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 5 Nov 2006 21:47:29 +0000 Subject: [PATCH] * repeat inline in the body git-svn-id: trunk@5257 - --- rtl/objpas/sysutils/dati.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc index 7a4f93598a..54861262bf 100644 --- a/rtl/objpas/sysutils/dati.inc +++ b/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);