956 |
return; |
return; |
957 |
} |
} |
958 |
if (type_of(x) == t_longfloat) |
if (type_of(x) == t_longfloat) |
959 |
n = 16; |
/* n = 16; */ |
960 |
|
n = 17; |
961 |
else |
else |
962 |
n = 7; |
/* n = 7; */ |
963 |
|
n = 8; |
964 |
f = number_to_double(x); |
f = number_to_double(x); |
965 |
edit_double(n, f, &sign, buff, &exp); |
edit_double(n, f, &sign, buff, &exp); |
966 |
if (exp + k > 100 || exp + k < -100 || d > 100) { |
if (exp + k > 100 || exp + k < -100 || d > 100) { |
1154 |
return; |
return; |
1155 |
} |
} |
1156 |
if (type_of(x) == t_longfloat) |
if (type_of(x) == t_longfloat) |
1157 |
n = 16; |
/* n = 16; */ |
1158 |
|
n = 17; |
1159 |
else |
else |
1160 |
n = 7; |
/* n = 7; */ |
1161 |
|
n = 8; |
1162 |
f = number_to_double(x); |
f = number_to_double(x); |
1163 |
edit_double(n, f, &sign, buff, &exp); |
edit_double(n, f, &sign, buff, &exp); |
1164 |
if (d >= 0) { |
if (d >= 0) { |
1346 |
return; |
return; |
1347 |
} |
} |
1348 |
if (type_of(x) == t_longfloat) |
if (type_of(x) == t_longfloat) |
1349 |
q = 16; |
/* q = 16; */ |
1350 |
|
q = 17; |
1351 |
else |
else |
1352 |
q = 7; |
/* q = 7; */ |
1353 |
|
q = 8; |
1354 |
edit_double(q, number_to_double(x), &sign, buff, &exp); |
edit_double(q, number_to_double(x), &sign, buff, &exp); |
1355 |
n = exp + 1; |
n = exp + 1; |
1356 |
while (q >= 0) |
while (q >= 0) |
1432 |
vs_reset; |
vs_reset; |
1433 |
return; |
return; |
1434 |
} |
} |
1435 |
q = 7; |
/* q = 7; */ |
1436 |
|
q = 8; |
1437 |
if (type_of(x) == t_longfloat) |
if (type_of(x) == t_longfloat) |
1438 |
q = 16; |
/* q = 16; */ |
1439 |
|
q = 17; |
1440 |
f = number_to_double(x); |
f = number_to_double(x); |
1441 |
edit_double(q, f, &sign, buff, &exp); |
edit_double(q, f, &sign, buff, &exp); |
1442 |
if ((q = exp + d + 1) > 0) |
if ((q = exp + d + 1) > 0) |