diff options
author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-06 12:45:03 +0000 |
---|---|---|
committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-06 12:45:03 +0000 |
commit | 08095718024a13dede4de859a7f0ca6b61a17624 (patch) | |
tree | d25bfe6f233689a638a9f4adc3bcadd5be16bcd9 | |
parent | 88fc1abdb70b4a1ed19946a1e02799d9ddd71de6 (diff) | |
download | fpc-08095718024a13dede4de859a7f0ca6b61a17624.tar.gz |
* disable range/overflow checking when calculating with Nan
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9649 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/objpas/dateutil.inc | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/rtl/objpas/dateutil.inc b/rtl/objpas/dateutil.inc index d935774963..f5457a7fa5 100644 --- a/rtl/objpas/dateutil.inc +++ b/rtl/objpas/dateutil.inc @@ -1976,7 +1976,16 @@ end; Julian and Modified Julian Date conversion support ---------------------------------------------------------------------} -{$warnings off} +{$ifopt R+} +{$define RangeCheckWasOn} +{$R-} +{$endif opt R+} + +{$ifopt Q+} +{$define OverflowCheckWasOn} +{$Q-} +{$endif opt Q+} + Function DateTimeToJulianDate(const AValue: TDateTime): Double; begin DateTimeToJulianDate := AValue - JulianEpoch; @@ -2015,7 +2024,16 @@ Function TryModifiedJulianDateToDateTime(const AValue: Double; var ADateTime: TD begin NotYetImplemented('TryModifiedJulianDateToDateTime'); end; -{$warnings on} + +{$ifdef RangeCheckWasOn} +{$R+} +{$undef RangeCheckWasOn} +{$endif} + +{$ifdef OverflowCheckWasOn} +{$Q+} +{$undef OverflowCheckWasOn} +{$endif} { --------------------------------------------------------------------- Unix timestamp support. @@ -2064,7 +2082,7 @@ end; Function MacTimeStampToUnix(const AValue: Int64): Int64; const - Epoch=24107 * 24 * 3600; + Epoch=24107 * 24 * 3600; begin Result:=AValue - Epoch; end; |