xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

ape: floating point improvements (thanks spew)

Browse source
This commit is contained in:
aiju 2018-05-24 13:40:44 +01:00
parent 930efe67e8
commit be3809866c
10 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
386/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
68020/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

1
amd64/include/ape/math.h
View file

@ -37,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
arm/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
mips/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
power/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
sparc/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

2
sparc64/include/ape/math.h
View file

@ -15,6 +15,7 @@ extern double asin(double);
extern double atan(double); extern double atan(double);
extern double atan2(double, double); extern double atan2(double, double);
extern double cos(double); extern double cos(double);
extern double hypot(double, double);
extern double sin(double); extern double sin(double);
extern double tan(double); extern double tan(double);
extern double cosh(double); extern double cosh(double);
@ -36,6 +37,7 @@ extern double NaN(void);
extern int isNaN(double); extern int isNaN(double);
extern double Inf(int); extern double Inf(int);
extern int isInf(double, int); extern int isInf(double, int);
extern double fmin(double, double);
#ifdef _RESEARCH_SOURCE #ifdef _RESEARCH_SOURCE
/* does >> treat left operand as unsigned ? */ /* does >> treat left operand as unsigned ? */

11
sys/src/ape/lib/ap/math/fmin.c Normal file
View file

@ -0,0 +1,11 @@
#include <math.h>
double
fmin(double a, double b)
{
if(isNaN(a))
return b;
if(isNaN(b))
return a;
return a < b ? a : b;
}

1
sys/src/ape/lib/ap/math/mkfile
View file

@ -10,6 +10,7 @@ OFILES=\
fabs.$O\ fabs.$O\
floor.$O\ floor.$O\
fmod.$O\ fmod.$O\
fmin.$O\
gamma.$O\ gamma.$O\
hypot.$O\ hypot.$O\
j0.$O\ j0.$O\