1 #ifndef SPARC_FENV_PRIVATE_H
2 #define SPARC_FENV_PRIVATE_H 1
3
4 #include <fenv.h>
5
6 /* For internal use only: access the fp state register. */
7 #if __WORDSIZE == 64
8 # define __fenv_stfsr(X) __asm__ __volatile__ ("stx %%fsr,%0" : "=m" (X))
9 # define __fenv_ldfsr(X) __asm__ __volatile__ ("ldx %0,%%fsr" : : "m" (X))
10 #else
11 # define __fenv_stfsr(X) __asm__ __volatile__ ("st %%fsr,%0" : "=m" (X))
12 # define __fenv_ldfsr(X) __asm__ __volatile__ ("ld %0,%%fsr" : : "m" (X))
13 #endif
14
15 static __always_inline void
16 libc_feholdexcept (fenv_t *e)
17 {
18 fenv_t etmp;
19 __fenv_stfsr(etmp);
20 *(e) = etmp;
21 etmp = etmp & ~((0x1f << 23) | FE_ALL_EXCEPT);
22 __fenv_ldfsr(etmp);
23 }
24
25 static __always_inline void
26 libc_fesetround (int r)
27 {
28 fenv_t etmp;
29 __fenv_stfsr(etmp);
30 etmp = (etmp & ~__FE_ROUND_MASK) | (r);
31 __fenv_ldfsr(etmp);
32 }
33
34 static __always_inline void
35 libc_feholdexcept_setround (fenv_t *e, int r)
36 {
37 fenv_t etmp;
38 __fenv_stfsr(etmp);
39 *(e) = etmp;
40 etmp = etmp & ~((0x1f << 23) | FE_ALL_EXCEPT);
41 etmp = (etmp & ~__FE_ROUND_MASK) | (r);
42 __fenv_ldfsr(etmp);
43 }
44
45 static __always_inline int
46 libc_fetestexcept (int e)
47 {
48 fenv_t etmp;
49 __fenv_stfsr(etmp);
50 return etmp & (e) & FE_ALL_EXCEPT;
51 }
52
53 static __always_inline void
54 libc_fesetenv (fenv_t *e)
55 {
56 __fenv_ldfsr(*e);
57 }
58
59 static __always_inline int
60 libc_feupdateenv_test (fenv_t *e, int ex)
61 {
62 fenv_t etmp;
63
64 __fenv_stfsr(etmp);
65 etmp &= FE_ALL_EXCEPT;
66
67 __fenv_ldfsr(*e);
68
69 __feraiseexcept (etmp);
70
71 return etmp & ex;
72 }
73
74 static __always_inline void
75 libc_feupdateenv (fenv_t *e)
76 {
77 libc_feupdateenv_test (e, 0);
78 }
79
80 static __always_inline void
81 libc_feholdsetround (fenv_t *e, int r)
82 {
83 fenv_t etmp;
84 __fenv_stfsr(etmp);
85 *(e) = etmp;
86 etmp = (etmp & ~__FE_ROUND_MASK) | (r);
87 __fenv_ldfsr(etmp);
88 }
89
90 static __always_inline void
91 libc_feresetround (fenv_t *e)
92 {
93 fenv_t etmp;
94 __fenv_stfsr(etmp);
95 etmp = (etmp & ~__FE_ROUND_MASK) | (*e & __FE_ROUND_MASK);
96 __fenv_ldfsr(etmp);
97 }
98
99 #define libc_feholdexceptf libc_feholdexcept
100 #define libc_fesetroundf libc_fesetround
101 #define libc_feholdexcept_setroundf libc_feholdexcept_setround
102 #define libc_fetestexceptf libc_fetestexcept
103 #define libc_fesetenvf libc_fesetenv
104 #define libc_feupdateenv_testf libc_feupdateenv_test
105 #define libc_feupdateenvf libc_feupdateenv
106 #define libc_feholdsetroundf libc_feholdsetround
107 #define libc_feresetroundf libc_feresetround
108 #define libc_feholdexcept libc_feholdexcept
109 #define libc_fesetround libc_fesetround
110 #define libc_feholdexcept_setround libc_feholdexcept_setround
111 #define libc_fetestexcept libc_fetestexcept
112 #define libc_fesetenv libc_fesetenv
113 #define libc_feupdateenv_test libc_feupdateenv_test
114 #define libc_feupdateenv libc_feupdateenv
115 #define libc_feholdsetround libc_feholdsetround
116 #define libc_feresetround libc_feresetround
117 #define libc_feholdexceptl libc_feholdexcept
118 #define libc_fesetroundl libc_fesetround
119 #define libc_feholdexcept_setroundl libc_feholdexcept_setround
120 #define libc_fetestexceptl libc_fetestexcept
121 #define libc_fesetenvl libc_fesetenv
122 #define libc_feupdateenv_testl libc_feupdateenv_test
123 #define libc_feupdateenvl libc_feupdateenv
124 #define libc_feholdsetroundl libc_feholdsetround
125 #define libc_feresetroundl libc_feresetround
126
127 /* We have support for rounding mode context. */
128 #define HAVE_RM_CTX 1
129
130 static __always_inline void
131 libc_feholdexcept_setround_sparc_ctx (struct rm_ctx *ctx, int round)
132 {
133 fenv_t new;
134
135 __fenv_stfsr(ctx->env);
136 new = ctx->env & ~((0x1f << 23) | FE_ALL_EXCEPT);
137 new = (new & ~__FE_ROUND_MASK) | round;
138 if (__glibc_unlikely (new != ctx->env))
139 {
140 __fenv_ldfsr(new);
141 ctx->updated_status = true;
142 }
143 else
144 ctx->updated_status = false;
145 }
146
147 static __always_inline void
148 libc_fesetenv_sparc_ctx (struct rm_ctx *ctx)
149 {
150 libc_fesetenv(&ctx->env);
151 }
152
153 static __always_inline void
154 libc_feupdateenv_sparc_ctx (struct rm_ctx *ctx)
155 {
156 if (__glibc_unlikely (ctx->updated_status))
157 libc_feupdateenv_test (&ctx->env, 0);
158 }
159
160 static __always_inline void
161 libc_feholdsetround_sparc_ctx (struct rm_ctx *ctx, int round)
162 {
163 fenv_t new;
164
165 __fenv_stfsr(ctx->env);
166 new = (ctx->env & ~__FE_ROUND_MASK) | round;
167 if (__glibc_unlikely (new != ctx->env))
168 {
169 __fenv_ldfsr(new);
170 ctx->updated_status = true;
171 }
172 else
173 ctx->updated_status = false;
174 }
175 #define libc_feholdexcept_setround_ctx libc_feholdexcept_setround_sparc_ctx
176 #define libc_feholdexcept_setroundf_ctx libc_feholdexcept_setround_sparc_ctx
177 #define libc_feholdexcept_setroundl_ctx libc_feholdexcept_setround_sparc_ctx
178 #define libc_fesetenv_ctx libc_fesetenv_sparc_ctx
179 #define libc_fesetenvf_ctx libc_fesetenv_sparc_ctx
180 #define libc_fesetenvl_ctx libc_fesetenv_sparc_ctx
181 #define libc_feupdateenv_ctx libc_feupdateenv_sparc_ctx
182 #define libc_feupdateenvf_ctx libc_feupdateenv_sparc_ctx
183 #define libc_feupdateenvl_ctx libc_feupdateenv_sparc_ctx
184 #define libc_feresetround_ctx libc_feupdateenv_sparc_ctx
185 #define libc_feresetroundf_ctx libc_feupdateenv_sparc_ctx
186 #define libc_feresetroundl_ctx libc_feupdateenv_sparc_ctx
187 #define libc_feholdsetround_ctx libc_feholdsetround_sparc_ctx
188 #define libc_feholdsetroundf_ctx libc_feholdsetround_sparc_ctx
189 #define libc_feholdsetroundl_ctx libc_feholdsetround_sparc_ctx
190
191 #include_next <fenv_private.h>
192
193 #endif /* SPARC_FENV_PRIVATE_H */