1 //===-- runtime/Float128Math/exponent.cpp ---------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include "math-entries.h" 10 #include "numeric-template-specs.h" 11 12 namespace Fortran::runtime { 13 extern "C" { 14 15 #if HAS_LDBL128 || HAS_FLOAT128 16 // EXPONENT (16.9.75) 17 CppTypeFor<TypeCategory::Integer, 4> RTDEF(Exponent16_4)(F128Type x) { 18 return Exponent<CppTypeFor<TypeCategory::Integer, 4>>(x); 19 } 20 CppTypeFor<TypeCategory::Integer, 8> RTDEF(Exponent16_8)(F128Type x) { 21 return Exponent<CppTypeFor<TypeCategory::Integer, 8>>(x); 22 } 23 #endif 24 25 } // extern "C" 26 } // namespace Fortran::runtime 27