home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnuc / gnulib / rcs / fixunsdfsi.c,v < prev    next >
Encoding:
Text File  |  1992-07-04  |  397 b   |  38 lines
  1. head    1.1;
  2. access;
  3. symbols
  4.     version39-41:1.1;
  5. locks;
  6. comment    @ * @;
  7.  
  8.  
  9. 1.1
  10. date    92.06.08.19.47.59;    author mwild;    state Exp;
  11. branches;
  12. next    ;
  13.  
  14.  
  15. desc
  16. @initial checkin
  17. @
  18.  
  19.  
  20. 1.1
  21. log
  22. @Initial revision
  23. @
  24. text
  25. @#include "common.h"
  26.  
  27. #include "limits.h"
  28.  
  29. unsigned SItype
  30. __fixunsdfsi (a)
  31.      double a;
  32. {
  33.   if (a >= - (double) LONG_MIN)
  34.     return (SItype) (a + LONG_MIN) - LONG_MIN;
  35.   return (SItype) a;
  36. }
  37. @
  38.