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

correction

Browse source
This commit is contained in:
ceriel 1991-06-26 17:26:59 +00:00
parent f3d21dc6cc
commit ea9332362d
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
modules/src/flt_arith/flt_ar2flt.c
View file

@ -21,10 +21,22 @@ flt_arith2flt(n, e, uns)
}
else e->flt_sign = 0;
if (sizeof(arith) == 4) {
e->m1 = n; e->m2 = 0;
} else {
e->m1 = (n >> (sizeof(arith)*8 - 32)) & 0xFFFFFFFF;
e->m2 = n << 32;
if (n < 0) {
e->m1 = 1; e->m2 = 0;
}
else {
e->m1 = 0; e->m2 = n;
}
}
else {
if (n < 0) {
e->m2 = 0;
e->m1 = (1 << (sizeof(arith)*8-32));
}
else {
e->m2 = n & 0xffffffffL;
e->m1 = (n >> 32);
}
}
if (n == 0) {
e->flt_exp = 0;