From 3dc039da2c39e643e45bd760308a887d567225c2 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 15 Dec 2004 23:02:42 +0000
Subject: [PATCH]   * fixed compilation for targets where comp=int64

---
 fcl/db/dsparams.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/fcl/db/dsparams.inc b/fcl/db/dsparams.inc
index c8fa86bb4c..20010405a8 100644
--- a/fcl/db/dsparams.inc
+++ b/fcl/db/dsparams.inc
@@ -687,7 +687,7 @@ begin
     ftMemo     : AsMemo:=StrPas(Buffer);
     ftTime     : AsTime:=FromTimeStamp(PInteger(Buffer)^,DateDelta);
     ftDate     : Asdate:=FromTimeStamp(0,PInteger(Buffer)^);
-    ftDateTime : AsDateTime:=TimeStampToDateTime(MSecsToTimeStamp(PDouble(Buffer)^));
+    ftDateTime : AsDateTime:=TimeStampToDateTime(MSecsToTimeStamp(trunc(PDouble(Buffer)^)));
     ftCursor   : FValue:=0;
     ftBlob,
     ftGraphic..ftTypedBinary,
@@ -700,7 +700,10 @@ end;
 
 {
   $Log$
-  Revision 1.1  2004-12-13 20:19:49  michael
+  Revision 1.2  2004-12-15 23:02:42  florian
+    * fixed compilation for targets where comp=int64
+
+  Revision 1.1  2004/12/13 20:19:49  michael
   + Initial implementation of params
 
 }
\ No newline at end of file