sfpu128.pp 363 B

12345678910111213141516171819202122232425
  1. unit sfpu128;
  2. {$mode objfpc}
  3. { Overflow checking must be disabled,
  4. since some operations expect overflow!
  5. }
  6. {$Q-}
  7. {$goto on}
  8. { define FPC_SOFTFLOAT_FLOATX80}
  9. {$define FPC_SOFTFLOAT_FLOAT128}
  10. {$define fpc_softfpu_interface}
  11. interface
  12. {$i softfpu.pp}
  13. {$undef fpc_softfpu_interface}
  14. {$define fpc_softfpu_implementation}
  15. implementation
  16. {$i softfpu.pp}
  17. end.