strtod.c 384 B

1234567891011121314151617181920212223242526272829
  1. /* $Header$ */
  2. #ifndef NOFLOAT
  3. struct mantissa {
  4. unsigned long h_32;
  5. unsigned long l_32;
  6. };
  7. struct EXTEND {
  8. short sign;
  9. short exp;
  10. struct mantissa mantissa;
  11. #define m1 mantissa.h_32
  12. #define m2 mantissa.l_32
  13. };
  14. extern double _ext_dbl_cvt();
  15. double
  16. strtod(p, pp)
  17. char *p, **pp;
  18. {
  19. struct EXTEND e;
  20. _str_ext_cvt(p, pp, &e);
  21. return _ext_dbl_cvt(&e);
  22. }
  23. #endif /* NOFLOAT */