mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 04:59:29 +01:00
26 lines
363 B
ObjectPascal
26 lines
363 B
ObjectPascal
unit sfpu128;
|
|
{$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.
|