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

   1 float
   2 __ulong2fs (unsigned long a );
   3
   4 /* convert signed long to float */
   5 float __slong2fs (signed long sl)
   6 {
   7   if (sl<0)
   8     return -__ulong2fs(-sl);
   9   else
  10     return __ulong2fs(sl);
  11 }