home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3137 / ldexp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-27  |  663 b   |  35 lines
  1. /*
  2.  * double ldexp(value, exp);
  3.  * double value;
  4.  * unsigned int exp;
  5.  *
  6.  * returns value * 2**exp
  7.  *
  8.  * ++jrb    bammi@dsrgsun.ces.cwru.edu
  9.  */
  10. #include "flonum.h"
  11.  
  12. #ifdef SHORTLIB /* in short lib, this file is compiled with 32 bit ints */
  13. #  ifdef __STDC__
  14.     double ldexp(double value, unsigned short ex)
  15. #  else
  16.     double ldexp(value, ex)
  17.     double value;
  18.     unsigned short ex;
  19. #  endif
  20. #else
  21. #  ifdef __STDC__
  22.     double ldexp(double value, unsigned int ex)
  23. #  else
  24.     double ldexp(value, ex)
  25.     double value;
  26.     unsigned int ex;
  27. #  endif
  28. #endif /* SHORTLIB */
  29. {
  30.     struct bitdouble *res = (struct bitdouble *) &value;
  31.  
  32.     res->exp   += ex;
  33.     return value;
  34. }
  35.