#define freedtoa __freedtoa
#define dtoa __dtoa
+G_LOCK_DEFINE_STATIC(str_mutex0);
+G_LOCK_DEFINE_STATIC(str_mutex1);
+#define MULTIPLE_THREADS 1
+#define ACQUIRE_DTOA_LOCK(n) G_LOCK (str_mutex##n)
+#define FREE_DTOA_LOCK(n) G_UNLOCK (str_mutex##n)
+
/* Please send bug reports to David M. Gay (dmg at acm dot org,
* with " at " changed at "@" and " dot " changed to "."). */
#define MALLOC malloc
#endif
+#define Omit_Private_Memory
#ifndef Omit_Private_Memory
#ifndef PRIVATE_MEM
#define PRIVATE_MEM 2304
*e = 32 - k;
#ifdef Pack_32
if (k < Ebits) {
- d0 = Exp_1 | y >> Ebits - k;
+ d0 = Exp_1 | (y >> (Ebits - k));
w = xa > xa0 ? *--xa : 0;
- d1 = y << (32-Ebits) + k | w >> Ebits - k;
+ d1 = y << ((32-Ebits) + k) | (w >> (Ebits - k));
goto ret_d;
}
z = xa > xa0 ? *--xa : 0;
if (k -= Ebits) {
- d0 = Exp_1 | y << k | z >> 32 - k;
+ d0 = Exp_1 | y << k | (z >> (32 - k));
y = xa > xa0 ? *--xa : 0;
- d1 = z << k | y >> 32 - k;
+ d1 = z << k | (y >> (32 - k));
}
else {
d0 = Exp_1 | y;
#ifdef Pack_32
if ((y = d1)) {
if ((k = lo0bits(&y))) {
- x[0] = y | z << 32 - k;
+ x[0] = y | (z << (32 - k));
z >>= k;
}
else
#endif /* INFNAN_CHECK */
double
-bsd_strtod
+mono_strtod
#ifdef KR_headers
(s00, se) CONST char *s00; char **se;
#else
double aadj, aadj1, adj, rv, rv0;
Long L;
ULong y, z;
- Bigint *bb, *bb1, *bd, *bd0, *bs, *delta;
+ Bigint *bb = NULL, *bb1, *bd = NULL, *bd0, *bs = NULL, *delta = NULL;
#ifdef SET_INEXACT
int inexact, oldinexact;
#endif
if (j >= 53)
word0(rv) = (P+2)*Exp_msk1;
else
- word0(rv) &= 0xffffffff << j-32;
+ word0(rv) &= 0xffffffff << (j-32);
}
else
word1(rv) &= 0xffffffff << j;
* when MULTIPLE_THREADS is not defined.
*/
-void freedtoa (char *s);
+static void freedtoa (char *s);
- void
+static void
#ifdef KR_headers
freedtoa(s) char *s;
#else