strtodnrp.c File Reference

#include "gdtoaimp.h"

Include dependency graph for strtodnrp.c:

Go to the source code of this file.

Functions
double	strtod (CONST char *s, char **sp)

Function Documentation

strtod()

double strtod	(	CONST char *	s,
		char **	sp
	)

Definition at line 45 of file strtodnrp.c.

{
    static FPI fpi = {53, 1 - 1023 - 53 + 1, 2046 - 1023 - 53 + 1, 1, SI};
    ULong bits[2];
    Long exp;
    int k;
    union
    {
        ULong L[2];
        double d;
    } u;

    k = strtodg(s, sp, &fpi, &exp, bits);
    switch(k & STRTOG_Retmask)
    {
        case STRTOG_NoNumber:
        case STRTOG_Zero:
            u.L[0] = u.L[1] = 0;
            break;

        case STRTOG_Normal:
            u.L[_1] = bits[0];
            u.L[_0] = (bits[1] & ~0x100000) | ((exp + 0x3ff + 52) << 20);
            break;

        case STRTOG_Denormal:
            u.L[_1] = bits[0];
            u.L[_0] = bits[1];
            break;

        case STRTOG_Infinite:
            u.L[_0] = 0x7ff00000;
            u.L[_1] = 0;
            break;

        case STRTOG_NaN:
            u.L[0] = d_QNAN0;
            u.L[1] = d_QNAN1;
            break;

        case STRTOG_NaNbits:
            u.L[_0] = 0x7ff00000 | bits[1];
            u.L[_1] = bits[0];
    }
    if(k & STRTOG_Neg)
        u.L[_0] |= 0x80000000L;
    return u.d;
}

References Long, SI, strtodg(), STRTOG_Denormal, STRTOG_Infinite, STRTOG_NaN, STRTOG_NaNbits, STRTOG_Neg, STRTOG_NoNumber, STRTOG_Normal, STRTOG_Retmask, and STRTOG_Zero.