Merge pull request #1006 from jockus/master

Fix for value rather than type used for intrinsics
This commit is contained in:
Jeroen van Rijn
2021-05-31 14:23:40 +02:00
committed by GitHub

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);
}