mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
5020caa9c3
* C3_MATH feature This feature allows the usage of noclib math files even when libc is in use. If a nolibc symbol exists, it will be used in place of libc, otherwise it will default to libc. * Added MIT License notices to atan.c3
54 lines
952 B
Plaintext
54 lines
952 B
Plaintext
module std::math::nolibc @if(env::NO_LIBC || $feature(C3_MATH));
|
|
|
|
fn double _round(double x) @extern("round") @weak @nostrip
|
|
{
|
|
ulong u = bitcast(x, ulong);
|
|
int e = (int)((u >> 52) & 0x7ff);
|
|
if (e >= 0x3ff + 52) return x;
|
|
if (u >> 63) x = -x;
|
|
if (e < 0x3ff - 1)
|
|
{
|
|
/* raise inexact if x!=0 */
|
|
force_eval_add(x, TOINT);
|
|
return 0 * x;
|
|
}
|
|
double y = (x + TOINT) - TOINT - x;
|
|
switch
|
|
{
|
|
case y > 0.5:
|
|
y = y + x - 1;
|
|
case y <= -0.5:
|
|
y = y + x + 1;
|
|
default:
|
|
y = y + x;
|
|
}
|
|
if (u >> 63) y = -y;
|
|
return y;
|
|
}
|
|
|
|
fn float _roundf(float x) @extern("roundf") @weak @nostrip
|
|
{
|
|
uint u = bitcast(x, uint);
|
|
int e = (u >> 23) & 0xff;
|
|
if (e >= 0x7f + 23) return x;
|
|
if (u >> 31) x = -x;
|
|
if (e < 0x7f - 1)
|
|
{
|
|
force_eval_add(x, TOINTF);
|
|
return 0 * x;
|
|
}
|
|
float y = (x + TOINTF) - TOINTF - x;
|
|
switch
|
|
{
|
|
case y > 0.5f:
|
|
y = y + x - 1;
|
|
case y <= -0.5f:
|
|
y = y + x + 1;
|
|
default:
|
|
y = y + x;
|
|
}
|
|
if (u >> 31) y = -y;
|
|
return y;
|
|
}
|
|
|