Author: awatry Date: Wed Sep 14 19:17:31 2016 New Revision: 281565 URL: http://llvm.org/viewvc/llvm-project?rev=281565&view=rev Log: math: Implement lgamma
Just use lgamma_r and ignore the value returned in the second argument Signed-off-by: Aaron Watry <awa...@gmail.com> Reviewed-by: Tom Stellard <thomas.stell...@amd.com> Added: libclc/trunk/generic/include/clc/math/lgamma.h libclc/trunk/generic/include/clc/math/lgamma.inc libclc/trunk/generic/lib/math/lgamma.cl Modified: libclc/trunk/generic/include/clc/clc.h libclc/trunk/generic/lib/SOURCES Modified: libclc/trunk/generic/include/clc/clc.h URL: http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/include/clc/clc.h?rev=281565&r1=281564&r2=281565&view=diff ============================================================================== --- libclc/trunk/generic/include/clc/clc.h (original) +++ libclc/trunk/generic/include/clc/clc.h Wed Sep 14 19:17:31 2016 @@ -69,6 +69,7 @@ #include <clc/math/hypot.h> #include <clc/math/ilogb.h> #include <clc/math/ldexp.h> +#include <clc/math/lgamma.h> #include <clc/math/lgamma_r.h> #include <clc/math/log.h> #include <clc/math/log10.h> Added: libclc/trunk/generic/include/clc/math/lgamma.h URL: http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/include/clc/math/lgamma.h?rev=281565&view=auto ============================================================================== --- libclc/trunk/generic/include/clc/math/lgamma.h (added) +++ libclc/trunk/generic/include/clc/math/lgamma.h Wed Sep 14 19:17:31 2016 @@ -0,0 +1,2 @@ +#define __CLC_BODY <clc/math/lgamma.inc> +#include <clc/math/gentype.inc> Added: libclc/trunk/generic/include/clc/math/lgamma.inc URL: http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/include/clc/math/lgamma.inc?rev=281565&view=auto ============================================================================== --- libclc/trunk/generic/include/clc/math/lgamma.inc (added) +++ libclc/trunk/generic/include/clc/math/lgamma.inc Wed Sep 14 19:17:31 2016 @@ -0,0 +1 @@ +_CLC_OVERLOAD _CLC_DECL __CLC_GENTYPE lgamma(__CLC_GENTYPE a); Modified: libclc/trunk/generic/lib/SOURCES URL: http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/lib/SOURCES?rev=281565&r1=281564&r2=281565&view=diff ============================================================================== --- libclc/trunk/generic/lib/SOURCES (original) +++ libclc/trunk/generic/lib/SOURCES Wed Sep 14 19:17:31 2016 @@ -97,6 +97,7 @@ math/hypot.cl math/ilogb.cl math/clc_ldexp.cl math/ldexp.cl +math/lgamma.cl math/lgamma_r.cl math/log.cl math/log10.cl Added: libclc/trunk/generic/lib/math/lgamma.cl URL: http://llvm.org/viewvc/llvm-project/libclc/trunk/generic/lib/math/lgamma.cl?rev=281565&view=auto ============================================================================== --- libclc/trunk/generic/lib/math/lgamma.cl (added) +++ libclc/trunk/generic/lib/math/lgamma.cl Wed Sep 14 19:17:31 2016 @@ -0,0 +1,44 @@ +/* + * Copyright (c) 2016 Aaron Watry <awa...@gmail.com> + * Copyright (c) 2014 Advanced Micro Devices, Inc. + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this software and associated documentation files (the "Software"), to deal + * in the Software without restriction, including without limitation the rights + * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell + * copies of the Software, and to permit persons to whom the Software is + * furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in + * all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN + * THE SOFTWARE. + */ + +#include <clc/clc.h> +#include "../clcmacro.h" + +_CLC_OVERLOAD _CLC_DEF float lgamma(float x) { + int s; + return lgamma_r(x, &s); +} + +_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, float, lgamma, float) + +#ifdef cl_khr_fp64 +#pragma OPENCL EXTENSION cl_khr_fp64 : enable + +_CLC_OVERLOAD _CLC_DEF double lgamma(double x) { + int s; + return lgamma_r(x, &s); +} + +_CLC_UNARY_VECTORIZE(_CLC_OVERLOAD _CLC_DEF, double, lgamma, double) + +#endif \ No newline at end of file _______________________________________________ cfe-commits mailing list cfe-commits@lists.llvm.org http://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits