godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid use of modf; not portable

Browse Source
This commit is contained in:
ceriel
1988-04-22 14:11:55 +00:00
parent b948e4b59d
commit b68e30f6ff
8 changed files with 134 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mach/pdp/cg/mach.c
View File

@@ -54,8 +54,8 @@ con_mult(sz) word sz; {
con_float() {
#ifdef ACK_ASS
double f, f1;
double atof(), frexp(), modf();
double f;
double atof(), frexp();
int i, j;
int sign = 0;
int fraction ;
@@ -77,19 +77,25 @@ con_float() {
f += f;
i --;
}
f = modf(2 * f, &f1); /* hidden bit */
f = 2*f - 1.0; /* hidden bit */
i = (i + 128) & 0377;
fraction = (sign << 15) | (i << 7);
for (j = 6; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction |= (1 << j);
f -= 1.0;
}
}
fprintf(codefile, ".data2 0%o", fraction);
for (i = argval / 2 - 1; i; i--) {
fraction = 0;
for (j = 15; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction |= (1 << j);
f -= 1.0;
}
}
fprintf(codefile, ", 0%o", fraction);
}

25
mach/pdp/ncg/mach.c
View File

@@ -54,8 +54,8 @@ con_mult(sz) word sz; {
con_float() {
#ifdef ACK_ASS
double f, f1;
double atof(), frexp(), modf();
double f;
double atof(), frexp();
int i, j;
int sign = 0;
int fraction ;
@@ -63,6 +63,11 @@ con_float() {
if (argval != 4 && argval != 8)
fatal("bad fcon size");
f = atof(str);
if (f == 0) {
if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
fprintf(codefile, ".data2 0, 0\n");
return;
}
f = frexp(f, &i);
if (f < 0) {
f = -f;
@@ -72,19 +77,25 @@ con_float() {
f += f;
i --;
}
f = modf(2 * f, &f1); /* hidden bit */
f = 2*f - 1.0; /* hidden bit */
i = (i + 128) & 0377;
fraction = (sign << 15) | (i << 7);
for (j = 6; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction |= (1 << j);
f -= 1.0;
}
}
fprintf(codefile, ".data2 0%o", fraction);
for (i = argval / 2 - 1; i; i--) {
fraction = 0;
for (j = 15; j>= 0; j--) {
if (f >= 0.5) fraction |= (1 << j);
f = modf(2*f, &f1);
f *= 2;
if (f >= 1.0) {
fraction |= (1 << j);
f -= 1.0;
}
}
fprintf(codefile, ", 0%o", fraction);
}