project_files/hwc/rtl/pmath.c
author Wuzzy <Wuzzy2@mail.ru>
Fri, 09 Nov 2018 16:28:23 +0100
changeset 14190 801dc57371c3
parent 8047 25a4daa6473c
child 14202 3e551b0535fb
permissions -rw-r--r--
Pas2C: Fix bad C typedefs for Pascal data types Extended and Real

#include "pmath.h"
#include <stdlib.h>
#include <math.h>

/*
 * power raises base to the power power.
 * This is equivalent to exp(power*ln(base)). Therefore base should be non-negative.
 */
float fpcrtl_power(float base, float exponent)
{
    return exp(exponent * log(base));
}

/* Currently the games only uses sign of an integer */
int fpcrtl_signi(int x)
{
    if(x > 0){
        return 1;
    }
    else if(x < 0){
        return -1;
    }
    else{
        return 0;
    }
}

float fpcrtl_csc(float x)
{
    return 1 / sin(x);
}

float __attribute__((overloadable)) fpcrtl_abs(float x)
{
    return fabsf(x);
}
double __attribute__((overloadable)) fpcrtl_abs(double x)
{
    return fabs(x);
}
long double __attribute__((overloadable)) fpcrtl_abs(long double x)
{
    return fabsl(x);
}
int __attribute__((overloadable)) fpcrtl_abs(int x)
{
    return abs(x);
}

int64_t __attribute__((overloadable)) fpcrtl_abs(int64_t x)
{
    return x < 0 ? -x : x;
}