home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / GCC / GERLIB_DEV08B.LHA / gerlib / gnulib / normal / fixsfsi.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-12-12  |  385 b   |  24 lines
  1. #include "common.h"
  2. #ifdef IEEE_SINGBAS
  3. #include <inline/mathieeesingbas.h>
  4. #else
  5. #include <inline/mathffp.h>
  6. #include <inline/mathtrans.h>
  7. #endif
  8.  
  9. SItype
  10. __fixsfsi (a)
  11.      FLOAT a;
  12. {
  13. #ifdef IEEE_SINGBAS
  14.   return IEEESPFix(a);
  15. #else
  16. #if 1
  17.   return SPFix( SPFieee(a));
  18. #else
  19.   /* don't know.. */
  20.   return SPFix( SPAdd (SPFieee(a), SPFieee( *(long *)(float[]){0.5}) ));
  21. #endif
  22. #endif
  23. }
  24.