Fix for value rather than type used for intrinsics

This commit is contained in:
Joakim Hentula
2021-05-31 13:20:22 +01:00
parent 46204ed7f0
commit 6465fb8ec7

View File

@@ -1335,27 +1335,27 @@ atan2 :: proc{
atan2_f64, atan2_f64le, atan2_f64be,
};
atan :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
atan :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
return atan2(x, 1);
}
asin :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
asin :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
return atan2(x, 1 + sqrt(1 - x*x));
}
acos :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
acos :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
return 2 * atan2(sqrt(1 - x), sqrt(1 + x));
}
sinh :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
sinh :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
return (exp(x) - exp(-x))*0.5;
}
cosh :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
cosh :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
return (exp(x) + exp(-x))*0.5;
}
tanh :: proc(x: $T) -> T where intrinsics.type_is_float(x) {
tanh :: proc(x: $T) -> T where intrinsics.type_is_float(T) {
t := exp(2*x);
return (t - 1) / (t + 1);
}