* fixed TimeStampToMSecs as suggested by Vinzent Hoefler in bug report 3915

git-svn-id: trunk@67 -

rtl/objpas/sysutils/dati.inc

@@ -89,7 +89,7 @@ end ;
 
 function TimeStampToMSecs(const TimeStamp: TTimeStamp): comp;
 begin
-  result := TimeStamp.Time + timestamp.date*msecsperday;
+  result := TimeStamp.Time + comp(timestamp.date)*msecsperday;
 end ;
 
 Function TryEncodeDate(Year,Month,Day : Word; Var Date : TDateTime) : Boolean;