2
0

sfpu128.pp 414 B

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