d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

avoid use of modf; not portable

Browse source
This commit is contained in:
ceriel 1988-04-22 14:17:34 +00:00
parent b68e30f6ff
commit d3da6b76dc
1 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
mach/i86/ncg/mach.c
View file

@ -64,8 +64,7 @@ con_float() {
double atof();
int i;
#ifndef OWNFLOAT
double f1;
double frexp(), modf();
double frexp();
int j;
int sign = 0;
int fraction[4] ;
@ -107,15 +106,18 @@ con_float() {
f += f;
i --;
}
f = modf(2 * f, &f1); /* hidden bit */
f = 2*f - 1.0; /* hidden bit */
#ifdef IEEEFLOAT
if (argval == 4) {
#endif IEEEFLOAT
i = (i + 128) & 0377;
fraction[0] = (sign << 15) | (i << 7);
for (j = 6; j>= 0; j--) {
if (f >= 0.5) fraction[0] |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
f -= 1.0;
fraction[0] |= (1 << j);
}
}
#ifdef IEEEFLOAT
}
@ -123,16 +125,22 @@ con_float() {
i = (i + 1024) & 03777;
fraction[0] = (sign << 15) | (i << 4);
for (j = 3; j>= 0; j--) {
if (f >= 0.5) fraction[0] |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction[0] |= (1 << j);
f -= 1.0;
}
}
}
#endif IEEEFLOAT
for (i = 1; i < argval / 2; i++) {
fraction[i] = 0;
for (j = 15; j>= 0; j--) {
if (f >= 0.5) fraction[i] |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction[i] |= (1 << j);
f -= 1.0;
}
}
}
if (f >= 0.5) {