82912fd620
This commit bulk-updates the libclc license headers to the current Apache-2.0 WITH LLVM-exception license in situations where they were previously attributed to AMD - and occasionally under an additional single individual contributor - under an MIT license. AMD signed the LLVM relicensing agreement and so agreed for their past contributions under the new LLVM license. The LLVM project also has had a long-standing, unwritten, policy of not adding copyright notices to source code. This policy was recently written up [1]. This commit therefore also removes these copyright notices at the same time. Note that there are outstanding copyright notices attributed to others - and many files missing copyright headers - which will be dealt with in future work. [1] https://llvm.org/docs/DeveloperPolicy.html#embedded-copyright-or-contributed-by-statements
144 lines
3.0 KiB
Common Lisp
144 lines
3.0 KiB
Common Lisp
//===----------------------------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include <clc/clc.h>
|
|
|
|
_CLC_OVERLOAD _CLC_DEF float normalize(float p) {
|
|
return sign(p);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF float2 normalize(float2 p) {
|
|
if (all(p == (float2)0.0F))
|
|
return p;
|
|
|
|
float l2 = dot(p, p);
|
|
|
|
if (l2 < FLT_MIN) {
|
|
p *= 0x1.0p+86F;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-65f;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((float2)0.0F, (float2)1.0F, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF float3 normalize(float3 p) {
|
|
if (all(p == (float3)0.0F))
|
|
return p;
|
|
|
|
float l2 = dot(p, p);
|
|
|
|
if (l2 < FLT_MIN) {
|
|
p *= 0x1.0p+86F;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-66f;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((float3)0.0F, (float3)1.0F, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF float4 normalize(float4 p) {
|
|
if (all(p == (float4)0.0F))
|
|
return p;
|
|
|
|
float l2 = dot(p, p);
|
|
|
|
if (l2 < FLT_MIN) {
|
|
p *= 0x1.0p+86F;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-66f;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((float4)0.0F, (float4)1.0F, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
#ifdef cl_khr_fp64
|
|
|
|
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
|
|
|
|
_CLC_OVERLOAD _CLC_DEF double normalize(double p) {
|
|
return sign(p);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF double2 normalize(double2 p) {
|
|
if (all(p == (double2)0.0))
|
|
return p;
|
|
|
|
double l2 = dot(p, p);
|
|
|
|
if (l2 < DBL_MIN) {
|
|
p *= 0x1.0p+563;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-513;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((double2)0.0, (double2)1.0, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF double3 normalize(double3 p) {
|
|
if (all(p == (double3)0.0))
|
|
return p;
|
|
|
|
double l2 = dot(p, p);
|
|
|
|
if (l2 < DBL_MIN) {
|
|
p *= 0x1.0p+563;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-514;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((double3)0.0, (double3)1.0, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
_CLC_OVERLOAD _CLC_DEF double4 normalize(double4 p) {
|
|
if (all(p == (double4)0.0))
|
|
return p;
|
|
|
|
double l2 = dot(p, p);
|
|
|
|
if (l2 < DBL_MIN) {
|
|
p *= 0x1.0p+563;
|
|
l2 = dot(p, p);
|
|
} else if (l2 == INFINITY) {
|
|
p *= 0x1.0p-514;
|
|
l2 = dot(p, p);
|
|
if (l2 == INFINITY) {
|
|
p = copysign(select((double4)0.0, (double4)1.0, isinf(p)), p);
|
|
l2 = dot(p, p);
|
|
}
|
|
}
|
|
return p * rsqrt(l2);
|
|
}
|
|
|
|
#endif
|