paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 11:51:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation on ARM fixed

Browse Source
This commit is contained in:
florian 2005-01-04 16:47:05 +00:00
parent 28a1c72885
commit bde79cc3ff
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/math.pp
View File

@ -123,7 +123,12 @@ interface
{$define OverflowCheckWasOn}
{$Q-}
{$endif opt Q+}
{$ifdef CPUARM}
{ the ARM linux emulator doesn't like 0.0/0.0 }
NaN = ln(-1.0);
{$else CPUARM}
NaN = 0.0/0.0;
{$endif CPUARM}
Infinity = 1.0/0.0;
{$ifdef RangeCheckWasOn}
{$R+}
@ -1344,7 +1349,10 @@ end;
end.
{
$Log$
Revision 1.26 2004-12-05 16:52:34 jonas
Revision 1.27 2005-01-04 16:47:05 florian
* compilation on ARM fixed
Revision 1.26 2004/12/05 16:52:34 jonas
* also invalid argument if trying to calculate 0^0 with intpower()
Revision 1.25 2004/12/05 16:43:57 jonas