mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
31 lines
674 B
C
31 lines
674 B
C
module std::math::nolibc;
|
|
|
|
$if (!env::COMPILER_LIBC_AVAILABLE):
|
|
|
|
fn double _trunc(double x) @weak @extern("trunc")
|
|
{
|
|
ulong i = bitcast(x, ulong);
|
|
int e = (int)((i >> 52) & 0x7ff) - 0x3ff + 12;
|
|
if (e >= 52 + 12) return x;
|
|
if (e < 12) e = 1;
|
|
ulong m = ((ulong)-1) >> e;
|
|
if (i & m == 0) return x;
|
|
force_eval_add(x, 0x1p120f);
|
|
i &= ~m;
|
|
return bitcast(i, double);
|
|
}
|
|
|
|
fn float _truncf(float x) @weak @extern("truncf")
|
|
{
|
|
uint i = bitcast(x, uint);
|
|
int e = (int)((i >> 23) & 0xff) - 0x7f + 9;
|
|
if (e >= 23 + 9) return x;
|
|
if (e < 9) e = 1;
|
|
uint m = ((uint)-1) >> e;
|
|
if (i & m == 0) return x;
|
|
force_eval_add(x, 0x1p120f);
|
|
i &= ~m;
|
|
return bitcast(i, float);
|
|
}
|
|
|
|
$endif; |