Aritmetic Owerflow, for example MSecsToTimeStamp(63250588800000) //1.5.2005 Repaired bad typecasting.
Index: objpas/sysutils/dati.inc =================================================================== --- objpas/sysutils/dati.inc (revision 10368) +++ objpas/sysutils/dati.inc (working copy) @@ -75,7 +75,7 @@ function MSecsToTimeStamp(MSecs: comp): TTimeStamp; begin result.Date := Trunc(msecs / msecsperday); - msecs:= comp(msecs-result.date*msecsperday); + msecs:= msecs-comp(result.date)*msecsperday; result.Time := Round(MSecs); end ; -- Ing. Petr Kristan . EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice tel: +420 466335223 Czech Republic (Eastern Europe) fax: +420 466510709 _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
