libc/src/math/generic/scalbnl.cpp

   1 //===-- Single-precision scalbnl function ---------------------------------===//
   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 "src/math/scalbnl.h"
  10 #include "src/__support/FPUtil/ManipulationFunctions.h"
  11 #include "src/__support/common.h"
  12
  13 namespace __llvm_libc {
  14
  15 LLVM_LIBC_FUNCTION(long double, scalbnl, (long double x, int n)) {
  16 #if !defined(__FLT_RADIX__)
  17 #error __FLT_RADIX__ undefined.
  18 #elif __FLT_RADIX__ != 2
  19 #error __FLT_RADIX__!=2, unimplemented.
  20 #else
  21   return fputil::ldexp(x, n);
  22 #endif
  23 }
  24
  25 } // namespace __llvm_libc