Subversion Repositories Kolibri OS

Rev

Rev 4921 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4921 Rev 6099
Line 161... Line 161...
161 
        int i;
 161 
        int i;
Line 162... Line 162...
162 
 
 162 
 
163 
        rv = ulp(dval(x));
 163 
        rv = ulp(dval(x));
164 
        if (!scale || (i = 2*P + 1 - ((dword0(x) & Exp_mask) >> Exp_shift)) <= 0)
 164 
        if (!scale || (i = 2*P + 1 - ((dword0(x) & Exp_mask) >> Exp_shift)) <= 0)
165 
                return rv; /* Is there an example where i <= 0 ? */
 165 
                return rv; /* Is there an example where i <= 0 ? */
166 
        dword0(u) = Exp_1 + (i << Exp_shift);
 166 
        dword0(u) = Exp_1 + ((__int32_t)i << Exp_shift);
167 
#ifndef _DOUBLE_IS_32BITS
 167 
#ifndef _DOUBLE_IS_32BITS
168 
        dword1(u) = 0;
 168 
        dword1(u) = 0;
169 
#endif
 169 
#endif
170 
        return rv * u.d;
 170 
        return rv * u.d;
Line 210... Line 210...
210 
	if (k & STRTOG_Neg)
 210 
	if (k & STRTOG_Neg)
211 
		L[_0] |= 0x80000000L;
 211 
		L[_0] |= 0x80000000L;
212 
}
 212 
}
213 
#endif /* !NO_HEX_FP */
 213 
#endif /* !NO_HEX_FP */
Line 214... Line -...
214 
 
 - 
 
215 
#ifdef INFNAN_CHECK
 - 
 
216 
static int
 - 
 
217 
_DEFUN (match, (sp, t),
 - 
 
218 
	_CONST char **sp _AND
 - 
 
219 
	char *t)
 - 
 
220 
{
 - 
 
221 
	int c, d;
 - 
 
222 
	_CONST char *s = *sp;
 - 
 
223 
 
 - 
 
224 
	while( (d = *t++) !=0) {
 - 
 
225 
		if ((c = *++s) >= 'A' && c <= 'Z')
 - 
 
226 
			c += 'a' - 'A';
 - 
 
227 
		if (c != d)
 - 
 
228 
			return 0;
 - 
 
229 
		}
 - 
 
230 
	*sp = s + 1;
 - 
 
231 
	return 1;
 - 
 
232 
}
 - 
 
233 
#endif /* INFNAN_CHECK */
 - 
 
234 
 
 - 
 
235 
 
 214 
 
236 
double
 215 
double
237 
_DEFUN (_strtod_r, (ptr, s00, se),
 216 
_DEFUN (_strtod_r, (ptr, s00, se),
238 
	struct _reent *ptr _AND
 217 
	struct _reent *ptr _AND
239 
	_CONST char *__restrict s00 _AND
 218 
	_CONST char *__restrict s00 _AND