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

SUN4 frexp strikes again ...

Browse source
This commit is contained in:
ceriel 1988-04-20 14:42:04 +00:00
parent 09eb4f9325
commit 083d520d38
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mach/pdp/cg/mach.c
View file

@ -63,16 +63,16 @@ con_float() {
if (argval != 4 && argval != 8) if (argval != 4 && argval != 8)
fatal("bad fcon size"); fatal("bad fcon size");
f = atof(str); f = atof(str);
f = frexp(f, &i);
if (f < 0) {
f = -f;
sign = 1;
}
if (f == 0) { if (f == 0) {
if (argval == 8) fprintf(codefile, ".data2 0, 0\n"); if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
fprintf(codefile, ".data2 0, 0\n"); fprintf(codefile, ".data2 0, 0\n");
return; return;
} }
f = frexp(f, &i);
if (f < 0) {
f = -f;
sign = 1;
}
while (f < 0.5) { while (f < 0.5) {
f += f; f += f;
i --; i --;