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

Fix broken sincos function.

Browse Source
This commit is contained in:
Christoffer Lerno
2024-10-08 20:34:41 +02:00
parent a665978b64
commit 39d4a97e24
2 changed files with 28 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -159,18 +159,37 @@ macro atan2(x, y)
/**
* @require values::@is_int(x) || values::@is_float(x) "Expected an integer or floating point value"
* @require (@typekind(y) == ARRAY || @typekind(y) == VECTOR) &&& y.len == 2
* @require $assignable(x, $typeof(y[0]))
* @require @typekind(sinp) == POINTER "Expected sinp to be a pointer"
* @require values::@is_same_type(sinp, cosp) "Expected sinp and cosp to have the same type"
* @require $assignable(x, $typeof(*sinp)) "Expected x and sinp/cosp to have the same type"
**/
macro sincos(x, y)
macro sincos_ref(x, sinp, cosp)
{
$if @typeid(y[0]) == float.typeid:
return _sincosf(x, y);
$if @typeid(*sinp) == float.typeid:
return _sincosf(x, sinp, cosp);
$else
return _sincos(x, y);
return _sincos(x, sinp, cosp);
$endif
}
/**
* Return a vector with sin / cos of the given angle.
*
* @param x `the angle in radians`
* @require values::@is_int(x) || values::@is_float(x) "Expected an integer or floating point value"
**/
macro sincos(x)
{
$if @typeid(x) == float.typeid:
float[<2>] v @noinit;
_sincosf(x, &v[0], &v[1]);
$else
double[<2>] v @noinit;
_sincos(x, &v[0], &v[1]);
$endif
return v;
}
/**
* @require values::@is_int(x) || values::@is_float(x) "Expected an integer or floating point value"
**/
@@ -1008,8 +1027,8 @@ extern fn double _atan(double x) @extern("atan");
extern fn float _atanf(float x) @extern("atanf");
extern fn double _atan2(double, double) @extern("atan2");
extern fn float _atan2f(float, float) @extern("atan2f");
extern fn void _sincos(double, double*) @extern("sincos");
extern fn void _sincosf(float, float*) @extern("sincosf");
extern fn void _sincos(double, double*, double*) @extern("__sincos") @link("m");
extern fn void _sincosf(float, float*, float*) @extern("__sincosf") @link("m");
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");