fenvh.inc 2.0 KB

123456789101112131415161718192021222324252627
  1. function feclearexcept(__excepts:longint):longint;cdecl;external clib name 'feclearexcept';
  2. function fegetexceptflag(__flagp:Pfexcept_t; __excepts:longint):longint;cdecl;external clib name 'fegetexceptflag';
  3. function feraiseexcept(__excepts:longint):longint;cdecl;external clib name 'feraiseexcept';
  4. function fesetexceptflag(__flagp:Pfexcept_t; __excepts:longint):longint;cdecl;external clib name 'fesetexceptflag';
  5. function fetestexcept(__excepts:longint):longint;cdecl;external clib name 'fetestexcept';
  6. function fegetround:longint;cdecl;external clib name 'fegetround';
  7. function fesetround(__rounding_direction:longint):longint;cdecl;external clib name 'fesetround';
  8. function fegetenv(__envp:Pfenv_t):longint;cdecl;external clib name 'fegetenv';
  9. function feholdexcept(__envp:Pfenv_t):longint;cdecl;external clib name 'feholdexcept';
  10. function fesetenv(__envp:Pfenv_t):longint;cdecl;external clib name 'fesetenv';
  11. function feupdateenv(__envp:Pfenv_t):longint;cdecl;external clib name 'feupdateenv';
  12. function feenableexcept(__excepts:longint):longint;cdecl;external clib name 'feenableexcept';
  13. function fedisableexcept(__excepts:longint):longint;cdecl;external clib name 'fedisableexcept';
  14. function fegetexcept:longint;cdecl;external clib name 'fegetexcept';
  15. { ---------------------------------------------------------------------
  16. Borland compatibility types
  17. ---------------------------------------------------------------------}
  18. // Type
  19. function fegetexceptflag(var __flagp:fexcept_t; __excepts:longint):longint;cdecl;external clib name 'fegetexceptflag';
  20. function fesetexceptflag(const __flagp:fexcept_t; __excepts:longint):longint;cdecl;external clib name 'fesetexceptflag';
  21. function fegetenv(var __envp:fenv_t):longint;cdecl;external clib name 'fegetenv';
  22. function feholdexcept(var __envp:fenv_t):longint;cdecl;external clib name 'feholdexcept';
  23. function fesetenv(const __envp:fenv_t):longint;cdecl;external clib name 'fesetenv';
  24. function feupdateenv(var __envp:fenv_t):longint;cdecl;external clib name 'feupdateenv';