1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
From 9b972aaf435f15ce82b9f3dc006877d6cdd04592 Mon Sep 17 00:00:00 2001
From: Michael Forney <mforney@mforney.org>
Date: Thu, 30 Sep 2021 22:21:25 -0700
Subject: [PATCH] avoid inline functions involving long double in math.h
---
include/math.h | 11 ++++++-----
src/math/__isgreaterequall.c | 6 ++++++
src/math/__isgreaterl.c | 6 ++++++
src/math/__islessequall.c | 6 ++++++
src/math/__islessgreaterl.c | 6 ++++++
src/math/__islessl.c | 6 ++++++
6 files changed, 36 insertions(+), 5 deletions(-)
create mode 100644 src/math/__isgreaterequall.c
create mode 100644 src/math/__isgreaterl.c
create mode 100644 src/math/__islessequall.c
create mode 100644 src/math/__islessgreaterl.c
create mode 100644 src/math/__islessl.c
diff --git a/include/math.h b/include/math.h
index 14f28ec8..0286fba4 100644
--- a/include/math.h
+++ b/include/math.h
@@ -107,19 +107,20 @@ static __inline int __is##rel(type __x, type __y) \
__ISREL_DEF(lessf, <, float_t)
__ISREL_DEF(less, <, double_t)
-__ISREL_DEF(lessl, <, long double)
__ISREL_DEF(lessequalf, <=, float_t)
__ISREL_DEF(lessequal, <=, double_t)
-__ISREL_DEF(lessequall, <=, long double)
__ISREL_DEF(lessgreaterf, !=, float_t)
__ISREL_DEF(lessgreater, !=, double_t)
-__ISREL_DEF(lessgreaterl, !=, long double)
__ISREL_DEF(greaterf, >, float_t)
__ISREL_DEF(greater, >, double_t)
-__ISREL_DEF(greaterl, >, long double)
__ISREL_DEF(greaterequalf, >=, float_t)
__ISREL_DEF(greaterequal, >=, double_t)
-__ISREL_DEF(greaterequall, >=, long double)
+
+int __islessl(long double, long double);
+int __islessequall(long double, long double);
+int __islessgreaterl(long double, long double);
+int __isgreaterl(long double, long double);
+int __isgreaterequall(long double, long double);
#define __tg_pred_2(x, y, p) ( \
sizeof((x)+(y)) == sizeof(float) ? p##f(x, y) : \
diff --git a/src/math/__isgreaterequall.c b/src/math/__isgreaterequall.c
new file mode 100644
index 00000000..2d014213
--- /dev/null
+++ b/src/math/__isgreaterequall.c
@@ -0,0 +1,6 @@
+#include <math.h>
+
+int __isgreaterequall(long double x, long double y)
+{
+ return !isunordered(x, y) && x >= y;
+}
diff --git a/src/math/__isgreaterl.c b/src/math/__isgreaterl.c
new file mode 100644
index 00000000..835fe575
--- /dev/null
+++ b/src/math/__isgreaterl.c
@@ -0,0 +1,6 @@
+#include <math.h>
+
+int __isgreaterl(long double x, long double y)
+{
+ return !isunordered(x, y) && x > y;
+}
diff --git a/src/math/__islessequall.c b/src/math/__islessequall.c
new file mode 100644
index 00000000..3534ab5b
--- /dev/null
+++ b/src/math/__islessequall.c
@@ -0,0 +1,6 @@
+#include <math.h>
+
+int __islessequall(long double x, long double y)
+{
+ return !isunordered(x, y) && x <= y;
+}
diff --git a/src/math/__islessgreaterl.c b/src/math/__islessgreaterl.c
new file mode 100644
index 00000000..e8543384
--- /dev/null
+++ b/src/math/__islessgreaterl.c
@@ -0,0 +1,6 @@
+#include <math.h>
+
+int __islessgreaterl(long double x, long double y)
+{
+ return !isunordered(x, y) && x != y;
+}
diff --git a/src/math/__islessl.c b/src/math/__islessl.c
new file mode 100644
index 00000000..27b48d0e
--- /dev/null
+++ b/src/math/__islessl.c
@@ -0,0 +1,6 @@
+#include <math.h>
+
+int __islessl(long double x, long double y)
+{
+ return !isunordered(x, y) && x < y;
+}
--
2.32.0
|
