| //===----------------------------------------------------------------------===// |
| // |
| // 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 |
| // |
| //===----------------------------------------------------------------------===// |
| _CLC_OVERLOAD _CLC_DEF __CLC_GENTYPE __clc_modf(__CLC_GENTYPE x, |
| private __CLC_GENTYPE *iptr) { |
| *iptr = __clc_trunc(x); |
| return __clc_copysign(__clc_isinf(x) ? __CLC_FP_LIT(0.0) : x - *iptr, x); |
| } |
| |
| #define __CLC_MODF_DEF(addrspace) \ |
| _CLC_OVERLOAD _CLC_DEF __CLC_GENTYPE __clc_modf( \ |
| __CLC_GENTYPE x, addrspace __CLC_GENTYPE *iptr) { \ |
| __CLC_GENTYPE private_iptr; \ |
| __CLC_GENTYPE ret = __clc_modf(x, &private_iptr); \ |
| *iptr = private_iptr; \ |
| return ret; \ |
| } |
| |
| __CLC_MODF_DEF(local); |
| __CLC_MODF_DEF(global); |
| |
| #if _CLC_DISTINCT_GENERIC_AS_SUPPORTED |
| __CLC_MODF_DEF(generic); |
| #endif |
| |
| #undef __CLC_MODF_DEF |
