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

* small fixes for sparc

Browse Source
This commit is contained in:
peter 2003-09-01 20:46:59 +00:00
parent 1302e8e34c
commit 4056cd843a
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/objpas/math.pp
View File

@ -35,31 +35,35 @@ interface
uses
sysutils;
const { Ranges of the IEEE floating point types, including denormals }
{ Ranges of the IEEE floating point types, including denormals }
{$ifdef FPC_HAS_TYPE_SINGLE}
const
MinSingle = 1.5e-45;
MaxSingle = 3.4e+38;
{$endif FPC_HAS_TYPE_SINGLE}
{$ifdef FPC_HAS_TYPE_DOUBLE}
const
MinDouble = 5.0e-324;
MaxDouble = 1.7e+308;
{$endif FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_EXTENDED}
const
MinExtended = 3.4e-4932;
MaxExtended = 1.1e+4932;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_COMP}
const
MinComp = -9.223372036854775807e+18;
MaxComp = 9.223372036854775807e+18;
{$endif FPC_HAS_TYPE_COMP}
type
{ the original delphi functions use extended as argument, }
{ but I would prefer double, because 8 bytes is a very }
{ natural size for the processor }
{ WARNING : changing float type will }
{ break all assembler code PM }
{$ifdef FPC_HAS_TYPE_FLOAT128}
type
float = float128;
const
@ -67,6 +71,7 @@ interface
MaxFloat = MaxFloat128;
{$else FPC_HAS_TYPE_FLOAT128}
{$ifdef FPC_HAS_TYPE_EXTENDED}
type
float = extended;
const
@ -74,6 +79,7 @@ interface
MaxFloat = MaxExtended;
{$else FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE}
type
float = double;
const
@ -81,13 +87,14 @@ interface
MaxFloat = MaxDouble;
{$else FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_SINGLE}
type
float = single;
const
MinFloat = MinSingle;
MaxFloat = MaxSingle;
{$else FPC_HAS_TYPE_SINGLE}
{$error At least one floating point type must be supported}
{$fatal At least one floating point type must be supported}
{$endif FPC_HAS_TYPE_SINGLE}
{$endif FPC_HAS_TYPE_DOUBLE}
{$endif FPC_HAS_TYPE_EXTENDED}
@ -999,7 +1006,10 @@ end;
end.
{
$Log$
Revision 1.11 2003-04-24 09:38:12 florian
Revision 1.12 2003-09-01 20:46:59 peter
* small fixes for sparc
Revision 1.11 2003/04/24 09:38:12 florian
* min/max must check the compiler capabilities
Revision 1.10 2003/04/24 09:21:59 florian

8
rtl/objpas/syspch.inc
View File

@ -30,6 +30,9 @@ type
{ Processor dependent part, shared withs strings unit }
{$i strings.inc }
{ Read generic string functions that are not implemented for the processor }
{$i genstr.inc}
{ Processor independent part, shared with strings unit }
{$i stringsi.inc }
@ -117,7 +120,10 @@ end ;
{
$Log$
Revision 1.6 2002-09-07 16:01:22 peter
Revision 1.7 2003-09-01 20:46:59 peter
* small fixes for sparc
Revision 1.6 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
Revision 1.5 2002/08/01 16:53:14 jonas