OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgcc/] [config/] [libbid/] [bid_flag_operations.c] - Blame information for rev 298

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 272 jeremybenn
/* Copyright (C) 2007, 2009  Free Software Foundation, Inc.
2
 
3
This file is part of GCC.
4
 
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
8
version.
9
 
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
13
for more details.
14
 
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.
18
 
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/>.  */
23
 
24
/*****************************************************************************
25
 *    Non-computational Operations on Flags:
26
 ****************************************************************************/
27
 
28
#include "bid_internal.h"
29
 
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
36
//
37
// #if !DECIMAL_GLOBAL_EXCEPTION_FLAGS
38
//   #define _EXC_FLAGS_PARAM , _IDEC_flags *pfpsf
39
// #else
40
//   extern _IDEC_flags _IDEC_glbflags;
41
//   #define _EXC_FLAGS_PARAM
42
//   #define pfpsf &_IDEC_glbflags
43
// #endif
44
 
45
#if DECIMAL_CALL_BY_REFERENCE
46
void
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
51
  // exception flags
52
  *pfpsf = *pfpsf | (*pflagsmask & BID_IEEE_FLAGS);
53
}
54
#else
55
void
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
60
  // exception flags
61
  *pfpsf = *pfpsf | (flagsmask & BID_IEEE_FLAGS);
62
}
63
#endif
64
 
65
#if DECIMAL_CALL_BY_REFERENCE
66
void
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 
71
  // exception flags
72
  *pfpsf = *pfpsf & ~(*pflagsmask & BID_IEEE_FLAGS);
73
}
74
#else
75
void
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    
80
  // exception flags
81
  *pfpsf = *pfpsf & ~(flagsmask & BID_IEEE_FLAGS);
82
}
83
#endif
84
 
85
#if DECIMAL_CALL_BY_REFERENCE
86
void
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);
95
}
96
#else
97
_IDEC_flags
98
testFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
99
  _IDEC_flags raised;
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);
106
  return (raised);
107
}
108
#endif
109
 
110
#if DECIMAL_CALL_BY_REFERENCE
111
void
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);
122
}
123
#else
124
_IDEC_flags
125
testSavedFlags (_IDEC_flags savedflags, _IDEC_flags flagsmask) {
126
  _IDEC_flags raised;
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);
135
  return (raised);
136
}
137
#endif
138
 
139
#if DECIMAL_CALL_BY_REFERENCE
140
void
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));
152
  // restore flags
153
}
154
#else
155
void
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));
167
  // restore flags
168
}
169
#endif
170
 
171
#if DECIMAL_CALL_BY_REFERENCE
172
void
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);
182
}
183
#else
184
_IDEC_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);
194
}
195
#endif
196
 
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
203
//
204
// #if DECIMAL_CALL_BY_REFERENCE
205
//   #if !DECIMAL_GLOBAL_ROUNDING
206
//     #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
207
//   #else
208
//     #define _RND_MODE_PARAM
209
//     #define rnd_mode _IDEC_glbround
210
//   #endif
211
// #else
212
//   #if !DECIMAL_GLOBAL_ROUNDING
213
//     #define _RND_MODE_PARAM , _IDEC_round rnd_mode
214
//   #else
215
//     #define _RND_MODE_PARAM
216
//     #define rnd_mode _IDEC_glbround
217
//   #endif
218
// #endif
219
 
220
#if DECIMAL_CALL_BY_REFERENCE
221
#if !DECIMAL_GLOBAL_ROUNDING
222
    // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
223
void
224
getDecimalRoundingDirection (_IDEC_round * rounding_mode
225
                             _RND_MODE_PARAM) {
226
  // returns the current rounding mode
227
  *rounding_mode = *prnd_mode;
228
}
229
#else
230
    // #define _RND_MODE_PARAM
231
    // #define rnd_mode _IDEC_glbround
232
void
233
getDecimalRoundingDirection (_IDEC_round * rounding_mode
234
                             _RND_MODE_PARAM) {
235
  // returns the current rounding mode
236
  *rounding_mode = rnd_mode;
237
}
238
#endif
239
#else
240
#if !DECIMAL_GLOBAL_ROUNDING
241
    // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
242
_IDEC_round
243
getDecimalRoundingDirection (_IDEC_round rnd_mode) {
244
  // returns the current rounding mode
245
  return (rnd_mode);
246
}
247
#else
248
    // #define _RND_MODE_PARAM
249
    // #define rnd_mode _IDEC_glbround
250
_IDEC_round
251
getDecimalRoundingDirection (void) {
252
  // returns the current rounding mode
253
  return (rnd_mode);
254
}
255
#endif
256
#endif
257
 
258
#if DECIMAL_CALL_BY_REFERENCE
259
#if !DECIMAL_GLOBAL_ROUNDING
260
    // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
261
void
262
setDecimalRoundingDirection (_IDEC_round * rounding_mode
263
                             _RND_MODE_PARAM) {
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;
271
  }
272
}
273
#else
274
    // #define _RND_MODE_PARAM
275
    // #define rnd_mode _IDEC_glbround
276
void
277
setDecimalRoundingDirection (_IDEC_round * rounding_mode
278
                             ) {
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;
286
  }
287
}
288
#endif
289
#else
290
#if !DECIMAL_GLOBAL_ROUNDING
291
    // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
292
_IDEC_round
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);
303
  }
304
  return (rnd_mode);
305
}
306
#else
307
    // #define _RND_MODE_PARAM
308
    // #define rnd_mode _IDEC_glbround
309
void
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;
318
  }
319
}
320
#endif
321
#endif
322
 
323
#if DECIMAL_CALL_BY_REFERENCE
324
void
325
is754 (int *retval) {
326
  *retval = 0;
327
}
328
#else
329
int
330
is754 (void) {
331
  return 0;
332
}
333
#endif
334
 
335
#if DECIMAL_CALL_BY_REFERENCE
336
void
337
is754R (int *retval) {
338
  *retval = 1;
339
}
340
#else
341
int
342
is754R (void) {
343
  return 1;
344
}
345
#endif

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.