10699749cSSlava Zakharin //===-- runtime/Float128Math/exponent.cpp ---------------------------------===// 20699749cSSlava Zakharin // 30699749cSSlava Zakharin // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 40699749cSSlava Zakharin // See https://llvm.org/LICENSE.txt for license information. 50699749cSSlava Zakharin // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 60699749cSSlava Zakharin // 70699749cSSlava Zakharin //===----------------------------------------------------------------------===// 80699749cSSlava Zakharin 90699749cSSlava Zakharin #include "math-entries.h" 100699749cSSlava Zakharin #include "numeric-template-specs.h" 110699749cSSlava Zakharin 120699749cSSlava Zakharin namespace Fortran::runtime { 130699749cSSlava Zakharin extern "C" { 140699749cSSlava Zakharin 15*fc51c7f0SSlava Zakharin #if HAS_LDBL128 || HAS_FLOAT128 160699749cSSlava Zakharin // EXPONENT (16.9.75) 170699749cSSlava Zakharin CppTypeFor<TypeCategory::Integer, 4> RTDEF(Exponent16_4)(F128Type x) { 180699749cSSlava Zakharin return Exponent<CppTypeFor<TypeCategory::Integer, 4>>(x); 190699749cSSlava Zakharin } 200699749cSSlava Zakharin CppTypeFor<TypeCategory::Integer, 8> RTDEF(Exponent16_8)(F128Type x) { 210699749cSSlava Zakharin return Exponent<CppTypeFor<TypeCategory::Integer, 8>>(x); 220699749cSSlava Zakharin } 230699749cSSlava Zakharin #endif 240699749cSSlava Zakharin 250699749cSSlava Zakharin } // extern "C" 260699749cSSlava Zakharin } // namespace Fortran::runtime 27