paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +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 uses
sysutils; 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} {$ifdef FPC_HAS_TYPE_SINGLE}
const
MinSingle = 1.5e-45; MinSingle = 1.5e-45;
MaxSingle = 3.4e+38; MaxSingle = 3.4e+38;
{$endif FPC_HAS_TYPE_SINGLE} {$endif FPC_HAS_TYPE_SINGLE}
{$ifdef FPC_HAS_TYPE_DOUBLE} {$ifdef FPC_HAS_TYPE_DOUBLE}
const
MinDouble = 5.0e-324; MinDouble = 5.0e-324;
MaxDouble = 1.7e+308; MaxDouble = 1.7e+308;
{$endif FPC_HAS_TYPE_DOUBLE} {$endif FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
const
MinExtended = 3.4e-4932; MinExtended = 3.4e-4932;
MaxExtended = 1.1e+4932; MaxExtended = 1.1e+4932;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_COMP} {$ifdef FPC_HAS_TYPE_COMP}
const
MinComp = -9.223372036854775807e+18; MinComp = -9.223372036854775807e+18;
MaxComp = 9.223372036854775807e+18; MaxComp = 9.223372036854775807e+18;
{$endif FPC_HAS_TYPE_COMP} {$endif FPC_HAS_TYPE_COMP}
type
{ the original delphi functions use extended as argument, } { the original delphi functions use extended as argument, }
{ but I would prefer double, because 8 bytes is a very } { but I would prefer double, because 8 bytes is a very }
{ natural size for the processor } { natural size for the processor }
{ WARNING : changing float type will } { WARNING : changing float type will }
{ break all assembler code PM } { break all assembler code PM }
{$ifdef FPC_HAS_TYPE_FLOAT128} {$ifdef FPC_HAS_TYPE_FLOAT128}
type
float = float128; float = float128;
const const
@ -67,6 +71,7 @@ interface
MaxFloat = MaxFloat128; MaxFloat = MaxFloat128;
{$else FPC_HAS_TYPE_FLOAT128} {$else FPC_HAS_TYPE_FLOAT128}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
type
float = extended; float = extended;
const const
@ -74,6 +79,7 @@ interface
MaxFloat = MaxExtended; MaxFloat = MaxExtended;
{$else FPC_HAS_TYPE_EXTENDED} {$else FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE} {$ifdef FPC_HAS_TYPE_DOUBLE}
type
float = double; float = double;
const const
@ -81,13 +87,14 @@ interface
MaxFloat = MaxDouble; MaxFloat = MaxDouble;
{$else FPC_HAS_TYPE_DOUBLE} {$else FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_SINGLE} {$ifdef FPC_HAS_TYPE_SINGLE}
type
float = single; float = single;
const const
MinFloat = MinSingle; MinFloat = MinSingle;
MaxFloat = MaxSingle; MaxFloat = MaxSingle;
{$else FPC_HAS_TYPE_SINGLE} {$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_SINGLE}
{$endif FPC_HAS_TYPE_DOUBLE} {$endif FPC_HAS_TYPE_DOUBLE}
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
@ -999,7 +1006,10 @@ end;
end. end.
{ {
$Log$ $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 * min/max must check the compiler capabilities
Revision 1.10 2003/04/24 09:21:59 florian 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 } { Processor dependent part, shared withs strings unit }
{$i strings.inc } {$i strings.inc }
{ Read generic string functions that are not implemented for the processor }
{$i genstr.inc}
{ Processor independent part, shared with strings unit } { Processor independent part, shared with strings unit }
{$i stringsi.inc } {$i stringsi.inc }
@ -117,7 +120,10 @@ end ;
{ {
$Log$ $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 * old logs removed and tabs fixed
Revision 1.5 2002/08/01 16:53:14 jonas Revision 1.5 2002/08/01 16:53:14 jonas