d0p1/tcc-stupidos
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix float to u64 intrinsics

Browse source 
reverts commit
310e3b428c
(more info there)

now functions check for
sign bit in float.

now hopefully this patch will
cover entirety of areas it might affect
This commit is contained in:
Kyryl Melekhin 2020-09-10 17:35:36 +00:00
parent 60c1f70bb9
commit 618ba55a81
2 changed files with 27 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
lib/libtcc1.c
View file

@ -541,13 +541,19 @@ unsigned long long __fixunssfdi (float a1)
l = MANT(fl1.l);
if (exp >= 41)
return (unsigned long long)-1;
return (unsigned long long)-1;
else if (exp >= 0)
return (unsigned long long)l << exp;
if(SIGN(fl1.l))
return (unsigned long long)-(l << exp);
else
return (unsigned long long)l << exp;
else if (exp >= -23)
return l >> -exp;
if(SIGN(fl1.l))
return -(l >> -exp);
else
return l >> -exp;
else
return 0;
return 0;
}
long long __fixsfdi (float a1)
@ -573,13 +579,19 @@ unsigned long long __fixunsdfdi (double a1)
l = MANTD_LL(dl1);
if (exp >= 12)
return (unsigned long long)-1;
return (unsigned long long)-1;
else if (exp >= 0)
return l << exp;
if(SIGND(dl1))
return -(l >> exp);
else
return l << exp;
else if (exp >= -52)
return l >> -exp;
if(SIGND(dl1))
return -(l >> -exp);
else
return l >> -exp;
else
return 0;
return 0;
}
long long __fixdfdi (double a1)
@ -608,7 +620,12 @@ unsigned long long __fixunsxfdi (long double a1)
if (exp > 0)
return (unsigned long long)-1;
else if (exp >= -63)
return l >> -exp;
{
if(SIGNLD(dl1))
return -(l >> -exp);
else
return l >> -exp;
}
else
return 0;
}

2
tccgen.c
View file

@ -3478,7 +3478,7 @@ again:
vtop->c.i = (vtop->c.ld != 0);
} else {
if(sf)
vtop->c.i = (int64_t)vtop->c.ld;
vtop->c.i = vtop->c.ld;
else if (sbt_bt == VT_LLONG || (PTR_SIZE == 8 && sbt == VT_PTR))
;
else if (sbt & VT_UNSIGNED)