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

9
05/tcc-0.9.27/lib/libtcc1.c
View file

@ -613,10 +613,17 @@ unsigned long long __fixunsxfdi (long double a1)
return 0;
}
static long double negate_ld(long double d) {
register unsigned long long *p = (unsigned long long *)&d;
p[1] ^= 1ul<<15;
return *(long double *)p;
}
long long __fixxfdi (long double a1)
{
long long ret; int s;
ret = __fixunsxfdi((s = a1 >= 0) ? a1 : -a1);
ret = __fixunsxfdi((s = a1 >= 0) ? a1 : negate_ld(a1));
return s ? ret : -ret;
}
#endif /* !ARM */