dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

full build of tcc with itself - doesn't match gcc :o

Browse source
This commit is contained in:
pommicket 2022-02-19 12:01:56 -05:00
parent 59b7931165
commit 9c6b9a1450
11 changed files with 250 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

14
05/tcc-0.9.27/tccgen.c
View file

@ -2458,6 +2458,16 @@ static void gen_cast_s(int t)
gen_cast(&type);
}
static long double negate_ld(long double d) {
#if LDBL_MANT_DIG == 64
register unsigned long long *p = (unsigned long long *)&d;
p[1] ^= 1ul<<15;
return *(long double *)p;
#else
return -d;
#endif
}
static void gen_cast(CType *type)
{
int sbt, dbt, sf, df, c, p;
@ -2499,12 +2509,12 @@ static void gen_cast(CType *type)
if ((sbt & VT_UNSIGNED) || !(vtop->c.i >> 63))
vtop->c.ld = vtop->c.i;
else
vtop->c.ld = -(long double)-vtop->c.i;
vtop->c.ld = negate_ld((long double)-vtop->c.i);
} else if(!sf) {
if ((sbt & VT_UNSIGNED) || !(vtop->c.i >> 31))
vtop->c.ld = (uint32_t)vtop->c.i;
else
vtop->c.ld = -(long double)-(uint32_t)vtop->c.i;
vtop->c.ld = negate_ld((long double)-(uint32_t)vtop->c.i);
}
if (dbt == VT_FLOAT)