paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 03:02:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disable range/overflow checking when calculating with Nan

Browse Source 
git-svn-id: trunk@9649 -
This commit is contained in:
peter 2008-01-06 12:45:03 +00:00
parent 2092bb5229
commit f6384b9361
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/objpas/dateutil.inc
View File

@ -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;