git.gag.com Git - fw/sdcc/blob - device/lib/_fs2slong.c

   1 #include <limits.h>
   2
   3 unsigned long __fs2ulong (float a1);
   4
   5 /* convert float to signed long */
   6 signed long __fs2slong (float f) {
   7
   8   if (!f)
   9     return 0;
  10
  11   if (f<0) {
  12     if (f<=LONG_MIN)
  13       return LONG_MIN;
  14     return -__fs2ulong(-f);
  15   } else {
  16     if (f>=LONG_MAX)
  17       return LONG_MAX;
  18     return __fs2ulong(f);
  19   }
  20 }