mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
26 lines
364 B
ObjectPascal
26 lines
364 B
ObjectPascal
unit sfpux80;
|
|
{$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.
|