mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 06:28:04 +02:00
28 lines
414 B
ObjectPascal
28 lines
414 B
ObjectPascal
{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit sfpu128;
|
|
{$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.
|