zig/lib/libc/mingw/math/arm-common/scalbn.c

/**
 * This file has no copyright assigned and is placed in the Public Domain.
 * This file is part of the mingw-w64 runtime package.
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 */

#include <math.h>

double scalbn(double x, int exp)
{
    return x * exp2(exp);
}

float scalbnf(float x, int exp)
{
    return x * exp2f(exp);
}

long double scalbnl(long double x, int exp)
{
#if defined(__arm__) || defined(_ARM_) || defined(__aarch64__) || defined(_ARM64_)
    return scalbn(x, exp);
#else
#error Not supported on your platform yet
#endif
}

double scalbln(double x, long exp)
{
    return x * exp2(exp);
}

float scalblnf(float x, long exp)
{
    return x * exp2f(exp);
}

long double scalblnl(long double x, long exp)
{
#if defined(__arm__) || defined(_ARM_) || defined(__aarch64__) || defined(_ARM64_)
    return scalbln(x, exp);
#else
#error Not supported on your platform yet
#endif
}