mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:28:38 +02:00
28 lines
415 B
ObjectPascal
28 lines
415 B
ObjectPascal
{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit sfpux80;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
{$mode objfpc}
|
|
|
|
{ Overflow checking must be disabled,
|
|
since some operations expect overflow!
|
|
}
|
|
{$Q-}
|
|
{$goto on}
|
|
|
|
|
|
{$define FPC_SOFTFLOAT_FLOATX80}
|
|
{ $define FPC_SOFTFLOAT_FLOAT128}
|
|
|
|
|
|
{$define fpc_softfpu_interface}
|
|
interface
|
|
{$i softfpu.pp}
|
|
|
|
{$undef fpc_softfpu_interface}
|
|
{$define fpc_softfpu_implementation}
|
|
implementation
|
|
|
|
{$i softfpu.pp}
|
|
|
|
end.
|