| //===----------------------------------------------------------------------===// |
| // |
| // 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_CONST _CLC_DEF __CLC_GENTYPE __clc_logb(__CLC_GENTYPE x) { |
| __CLC_GENTYPE ret = __CLC_CONVERT_GENTYPE(__clc_frexp_exp(x) - (__CLC_INTN)1); |
| |
| __CLC_GENTYPE ax = __clc_fabs(x); |
| |
| ret = __clc_select(ax, ret, __CLC_CONVERT_U_GENTYPE(__clc_isfinite(ax))); |
| |
| ret = __clc_select(ret, -__CLC_GENTYPE_INF, |
| __CLC_CONVERT_U_GENTYPE(x == __CLC_FP_LIT(0.0))); |
| |
| return ret; |
| } |
