shishantbiswas/c3c
1
1
Fork 0
mirror of https://github.com/c3lang/c3c.git synced 2026-02-27 12:01:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Signbit, tests of frexp.

Browse Source
This commit is contained in:
Christoffer Lerno
2023-03-18 19:13:17 +01:00
parent a041c53cdd
commit 48a35b3277
4 changed files with 43 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lib/std/math/math.c3
View File

@@ -329,15 +329,31 @@ macro pow(x, exp)
}
/**
* @require values::@is_float(a) : `The input must be floating type`
* @require values::@is_promotable_to_float(x) : `The input must be integer or floating type`
**/
macro frexp(x, int* e)
{
$if (@typeis(x, float)):
return _frexpf(x, e);
$else:
return _frexp(x, e);
$endif;
$switch($typeof(x)):
$case float:
$case float16:
return _frexpf((float)x, e);
$default:
return _frexp((double)x, e);
$endswitch;
}
/**
* @require values::@is_promotable_to_float(x) : `The input must be integer or floating type`
**/
macro int signbit(x)
{
$switch($typeof(x)):
$case float:
$case float16:
return bitcast((float)x, uint) >> 31;
$default:
return (int)(bitcast((double)x, ulong) >> 63);
$endswitch;
}
/**
@@ -716,4 +732,4 @@ extern fn double _tan(double x) @extern("tan");
extern fn float _tanf(float x) @extern("tanf");
extern fn double _scalbn(double x, int n) @extern("scalbn");
extern fn double _frexp(double x, int* e) @extern("frexp");
extern fn float _frexpf(float x, int* e) @extern("frexp");
extern fn float _frexpf(float x, int* e) @extern("frexpf");