1 /* Copyright (C) 2007-2023 Free Software Foundation, Inc.
3 This file is part of GCC.
5 GCC is free software; you can redistribute it and/or modify it under
6 the terms of the GNU General Public License as published by the Free
7 Software Foundation; either version 3, or (at your option) any later
10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 Under Section 7 of GPL version 3, you are granted additional
16 permissions described in the GCC Runtime Library Exception, version
17 3.1, as published by the Free Software Foundation.
19 You should have received a copy of the GNU General Public License and
20 a copy of the GCC Runtime Library Exception along with this program;
21 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
22 <http://www.gnu.org/licenses/>. */
24 /*****************************************************************************
25 * Non-computational Operations on Flags:
26 ****************************************************************************/
28 #include "bid_internal.h"
30 // Note the following definitions from bid_conf.h: if the status flags are
31 // global, they have a fixed name recognized by the library functions:
32 // _IDEC_glbflags; pfpsf, defined as &_IDEC_glbflags, can be used instead; no
33 // argument is passed for the status flags to the library functions; if the
34 // status flags are local then they are passed as an arument, always by
35 // reference, to the library functions
37 // #if !DECIMAL_GLOBAL_EXCEPTION_FLAGS
38 // #define _EXC_FLAGS_PARAM , _IDEC_flags *pfpsf
40 // extern _IDEC_flags _IDEC_glbflags;
41 // #define _EXC_FLAGS_PARAM
42 // #define pfpsf &_IDEC_glbflags
45 #if DECIMAL_CALL_BY_REFERENCE
47 signalException (_IDEC_flags
* pflagsmask _EXC_FLAGS_PARAM
) {
48 // *pflagsmask is the logical OR of the flags to be set, e.g.
49 // *pflagsmask =INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
50 // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to set all five IEEE 754R
52 *pfpsf
= *pfpsf
| (*pflagsmask
& BID_IEEE_FLAGS
);
56 signalException (_IDEC_flags flagsmask _EXC_FLAGS_PARAM
) {
57 // flagsmask is the logical OR of the flags to be set, e.g.
58 // flagsmask = INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
59 // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to set all five IEEE 754R
61 *pfpsf
= *pfpsf
| (flagsmask
& BID_IEEE_FLAGS
);
65 #if DECIMAL_CALL_BY_REFERENCE
67 lowerFlags (_IDEC_flags
* pflagsmask _EXC_FLAGS_PARAM
) {
68 // *pflagsmask is the logical OR of the flags to be cleared, e.g.
69 // *pflagsmask =INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
70 // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to clear all five IEEE 754R
72 *pfpsf
= *pfpsf
& ~(*pflagsmask
& BID_IEEE_FLAGS
);
76 lowerFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM
) {
77 // flagsmask is the logical OR of the flags to be cleared, e.g.
78 // flagsmask = INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
79 // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to clear all five IEEE 754R
81 *pfpsf
= *pfpsf
& ~(flagsmask
& BID_IEEE_FLAGS
);
85 #if DECIMAL_CALL_BY_REFERENCE
87 testFlags (_IDEC_flags
* praised
,
88 _IDEC_flags
* pflagsmask _EXC_FLAGS_PARAM
) {
89 // *praised is a pointer to the result, i.e. the logical OR of the flags
90 // selected by *pflagsmask that are set; e.g. if
91 // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
92 // and only the invalid and inexact flags are raised (set) then upon return
93 // *praised = INVALID_EXCEPTION | INEXACT_EXCEPTION
94 *praised
= *pfpsf
& (*pflagsmask
& BID_IEEE_FLAGS
);
98 testFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM
) {
100 // the raturn value raised is the logical OR of the flags
101 // selected by flagsmask, that are set; e.g. if
102 // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION and
103 // only the invalid and inexact flags are raised (set) then the return value
104 // is raised = INVALID_EXCEPTION | INEXACT_EXCEPTION
105 raised
= *pfpsf
& (flagsmask
& BID_IEEE_FLAGS
);
110 #if DECIMAL_CALL_BY_REFERENCE
112 testSavedFlags (_IDEC_flags
* praised
, _IDEC_flags
* psavedflags
,
113 _IDEC_flags
* pflagsmask
) {
114 // *praised is a pointer to the result, i.e. the logical OR of the flags
115 // selected by *pflagsmask that are set in *psavedflags; e.g. if
116 // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
117 // and only the invalid and inexact flags are raised (set) in *psavedflags
118 // then upon return *praised = INVALID_EXCEPTION | INEXACT_EXCEPTION
119 // Note that the flags could be saved in a global variable, but this function
120 // would still expect that value as an argument passed by reference
121 *praised
= *psavedflags
& (*pflagsmask
& BID_IEEE_FLAGS
);
125 testSavedFlags (_IDEC_flags savedflags
, _IDEC_flags flagsmask
) {
127 // the raturn value raised is the logical OR of the flags
128 // selected by flagsmask, that are set in savedflags; e.g. if
129 // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION and
130 // only the invalid and inexact flags are raised (set) in savedflags
131 // then the return value is raised = INVALID_EXCEPTION | INEXACT_EXCEPTION
132 // Note that the flags could be saved in a global variable, but this function
133 // would still expect that value as an argument passed by value
134 raised
= savedflags
& (flagsmask
& BID_IEEE_FLAGS
);
139 #if DECIMAL_CALL_BY_REFERENCE
141 restoreFlags (_IDEC_flags
* pflagsvalues
,
142 _IDEC_flags
* pflagsmask _EXC_FLAGS_PARAM
) {
143 // restore the status flags selected by *pflagsmask to the values speciafied
144 // (as a logical OR) in *pflagsvalues; e.g. if
145 // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
146 // and only the invalid and inexact flags are raised (set) in *pflagsvalues
147 // then upon return the invalid status flag will be set, the underflow status
148 // flag will be clear, and the inexact status flag will be set
149 *pfpsf
= *pfpsf
& ~(*pflagsmask
& BID_IEEE_FLAGS
);
150 // clear flags that have to be restored
151 *pfpsf
= *pfpsf
| (*pflagsvalues
& (*pflagsmask
& BID_IEEE_FLAGS
));
156 restoreFlags (_IDEC_flags flagsvalues
,
157 _IDEC_flags flagsmask _EXC_FLAGS_PARAM
) {
158 // restore the status flags selected by flagsmask to the values speciafied
159 // (as a logical OR) in flagsvalues; e.g. if
160 // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
161 // and only the invalid and inexact flags are raised (set) in flagsvalues
162 // then upon return the invalid status flag will be set, the underflow status
163 // flag will be clear, and the inexact status flag will be set
164 *pfpsf
= *pfpsf
& ~(flagsmask
& BID_IEEE_FLAGS
);
165 // clear flags that have to be restored
166 *pfpsf
= *pfpsf
| (flagsvalues
& (flagsmask
& BID_IEEE_FLAGS
));
171 #if DECIMAL_CALL_BY_REFERENCE
173 saveFlags (_IDEC_flags
* pflagsvalues
,
174 _IDEC_flags
* pflagsmask _EXC_FLAGS_PARAM
) {
175 // return in *pflagsvalues the status flags specified (as a logical OR) in
176 // *pflagsmask; e.g. if
177 // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
178 // and only the invalid and inexact flags are raised (set) in the status word,
179 // then upon return the value in *pflagsvalues will have the invalid status
180 // flag set, the underflow status flag clear, and the inexact status flag set
181 *pflagsvalues
= *pfpsf
& (*pflagsmask
& BID_IEEE_FLAGS
);
185 saveFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM
) {
186 _IDEC_flags flagsvalues
;
187 // return the status flags specified (as a logical OR) in flagsmask; e.g. if
188 // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
189 // and only the invalid and inexact flags are raised (set) in the status word,
190 // then the return value will have the invalid status flag set, the
191 // underflow status flag clear, and the inexact status flag set
192 flagsvalues
= *pfpsf
& (flagsmask
& BID_IEEE_FLAGS
);
193 return (flagsvalues
);
197 // Note the following definitions from bid_conf.h (rearranged): if the rounding
198 // mode is global, it has a fixed name recognized by the library functions:
199 // _IDEC_glbround; rnd_mode, defined as &_IDEC_glbround, can be used instead; no
200 // argument is passed for the rounding mode to the library functions; if the
201 // rounding mode is local then it is passed as an arument, by reference or by
202 // value, to the library functions
204 // #if DECIMAL_CALL_BY_REFERENCE
205 // #if !DECIMAL_GLOBAL_ROUNDING
206 // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
208 // #define _RND_MODE_PARAM
209 // #define rnd_mode _IDEC_glbround
212 // #if !DECIMAL_GLOBAL_ROUNDING
213 // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
215 // #define _RND_MODE_PARAM
216 // #define rnd_mode _IDEC_glbround
220 #if DECIMAL_CALL_BY_REFERENCE
221 #if !DECIMAL_GLOBAL_ROUNDING
222 // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
224 getDecimalRoundingDirection (_IDEC_round
* rounding_mode
226 // returns the current rounding mode
227 *rounding_mode
= *prnd_mode
;
230 // #define _RND_MODE_PARAM
231 // #define rnd_mode _IDEC_glbround
233 getDecimalRoundingDirection (_IDEC_round
* rounding_mode
235 // returns the current rounding mode
236 *rounding_mode
= rnd_mode
;
240 #if !DECIMAL_GLOBAL_ROUNDING
241 // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
243 getDecimalRoundingDirection (_IDEC_round rnd_mode
) {
244 // returns the current rounding mode
248 // #define _RND_MODE_PARAM
249 // #define rnd_mode _IDEC_glbround
251 getDecimalRoundingDirection (void) {
252 // returns the current rounding mode
258 #if DECIMAL_CALL_BY_REFERENCE
259 #if !DECIMAL_GLOBAL_ROUNDING
260 // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
262 setDecimalRoundingDirection (_IDEC_round
* rounding_mode
264 // sets the current rounding mode to the value in *rounding_mode, if valid
265 if (*rounding_mode
== ROUNDING_TO_NEAREST
||
266 *rounding_mode
== ROUNDING_DOWN
||
267 *rounding_mode
== ROUNDING_UP
||
268 *rounding_mode
== ROUNDING_TO_ZERO
||
269 *rounding_mode
== ROUNDING_TIES_AWAY
) {
270 *prnd_mode
= *rounding_mode
;
274 // #define _RND_MODE_PARAM
275 // #define rnd_mode _IDEC_glbround
277 setDecimalRoundingDirection (_IDEC_round
* rounding_mode
279 // sets the global rounding mode to the value in *rounding_mode, if valid
280 if (*rounding_mode
== ROUNDING_TO_NEAREST
||
281 *rounding_mode
== ROUNDING_DOWN
||
282 *rounding_mode
== ROUNDING_UP
||
283 *rounding_mode
== ROUNDING_TO_ZERO
||
284 *rounding_mode
== ROUNDING_TIES_AWAY
) {
285 rnd_mode
= *rounding_mode
;
290 #if !DECIMAL_GLOBAL_ROUNDING
291 // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
293 setDecimalRoundingDirection (_IDEC_round rounding_mode _RND_MODE_PARAM
) {
294 // sets the current rounding mode to the value in rounding_mode;
295 // however, when arguments are passed by value and the rounding mode
296 // is a local variable, this is not of any use
297 if (rounding_mode
== ROUNDING_TO_NEAREST
||
298 rounding_mode
== ROUNDING_DOWN
||
299 rounding_mode
== ROUNDING_UP
||
300 rounding_mode
== ROUNDING_TO_ZERO
||
301 rounding_mode
== ROUNDING_TIES_AWAY
) {
302 return (rounding_mode
);
307 // #define _RND_MODE_PARAM
308 // #define rnd_mode _IDEC_glbround
310 setDecimalRoundingDirection (_IDEC_round rounding_mode
) {
311 // sets the current rounding mode to the value in rounding_mode, if valid;
312 if (rounding_mode
== ROUNDING_TO_NEAREST
||
313 rounding_mode
== ROUNDING_DOWN
||
314 rounding_mode
== ROUNDING_UP
||
315 rounding_mode
== ROUNDING_TO_ZERO
||
316 rounding_mode
== ROUNDING_TIES_AWAY
) {
317 rnd_mode
= rounding_mode
;
323 #if DECIMAL_CALL_BY_REFERENCE
325 is754 (int *retval
) {
335 #if DECIMAL_CALL_BY_REFERENCE
337 is754R (int *retval
) {