URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgcc/] [config/] [libbid/] [bid_flag_operations.c] - Blame information for rev 848

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


/* Copyright (C) 2007, 2009  Free Software Foundation, Inc.
 
This file is part of GCC.
 
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
 
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.
 
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
 
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
<http://www.gnu.org/licenses/>.  */
 
/*****************************************************************************
 *    Non-computational Operations on Flags:
 ****************************************************************************/
 
#include "bid_internal.h"
 
// Note the following definitions from bid_conf.h: if the status flags are
// global, they have a fixed name recognized by the library functions:
// _IDEC_glbflags; pfpsf, defined as &_IDEC_glbflags, can be used instead; no
// argument is passed for the status flags to the library functions; if the 
// status flags are local then they are passed as an arument, always by
// reference, to the library functions
//
// #if !DECIMAL_GLOBAL_EXCEPTION_FLAGS
//   #define _EXC_FLAGS_PARAM , _IDEC_flags *pfpsf
// #else
//   extern _IDEC_flags _IDEC_glbflags;
//   #define _EXC_FLAGS_PARAM
//   #define pfpsf &_IDEC_glbflags
// #endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
signalException (_IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
  // *pflagsmask is the logical OR of the flags to be set, e.g.
  // *pflagsmask =INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
  // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to set all five IEEE 754R
  // exception flags
  *pfpsf = *pfpsf | (*pflagsmask & BID_IEEE_FLAGS);
}
#else
void
signalException (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
  // flagsmask is the logical OR of the flags to be set, e.g.
  // flagsmask = INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
  // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to set all five IEEE 754R
  // exception flags
  *pfpsf = *pfpsf | (flagsmask & BID_IEEE_FLAGS);
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
lowerFlags (_IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
  // *pflagsmask is the logical OR of the flags to be cleared, e.g.
  // *pflagsmask =INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION
  // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to clear all five IEEE 754R 
  // exception flags
  *pfpsf = *pfpsf & ~(*pflagsmask & BID_IEEE_FLAGS);
}
#else
void
lowerFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
  // flagsmask is the logical OR of the flags to be cleared, e.g.
  // flagsmask = INVALID_EXCEPTION | ZERO_DIVIDE_EXCEPTION | OVERFLOW_EXCEPTION 
  // UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION to clear all five IEEE 754R    
  // exception flags
  *pfpsf = *pfpsf & ~(flagsmask & BID_IEEE_FLAGS);
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
testFlags (_IDEC_flags * praised,
           _IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
  // *praised is a pointer to the result, i.e. the logical OR of the flags 
  // selected by *pflagsmask that are set; e.g. if
  // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) then upon return 
  // *praised = INVALID_EXCEPTION | INEXACT_EXCEPTION
  *praised = *pfpsf & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
testFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
  _IDEC_flags raised;
  // the raturn value raised is the logical OR of the flags  
  // selected by flagsmask, that are set; e.g. if
  // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION and
  // only the invalid and inexact flags are raised (set) then the return value
  // is raised = INVALID_EXCEPTION | INEXACT_EXCEPTION
  raised = *pfpsf & (flagsmask & BID_IEEE_FLAGS);
  return (raised);
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
testSavedFlags (_IDEC_flags * praised, _IDEC_flags * psavedflags,
                _IDEC_flags * pflagsmask) {
  // *praised is a pointer to the result, i.e. the logical OR of the flags
  // selected by *pflagsmask that are set in *psavedflags; e.g. if
  // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) in *psavedflags
  // then upon return *praised = INVALID_EXCEPTION | INEXACT_EXCEPTION
  // Note that the flags could be saved in a global variable, but this function
  // would still expect that value as an argument passed by reference
  *praised = *psavedflags & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
testSavedFlags (_IDEC_flags savedflags, _IDEC_flags flagsmask) {
  _IDEC_flags raised;
  // the raturn value raised is the logical OR of the flags
  // selected by flagsmask, that are set in savedflags; e.g. if
  // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION and
  // only the invalid and inexact flags are raised (set) in savedflags
  // then the return value is raised = INVALID_EXCEPTION | INEXACT_EXCEPTION
  // Note that the flags could be saved in a global variable, but this function
  // would still expect that value as an argument passed by value
  raised = savedflags & (flagsmask & BID_IEEE_FLAGS);
  return (raised);
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
restoreFlags (_IDEC_flags * pflagsvalues,
              _IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
  // restore the status flags selected by *pflagsmask to the values speciafied
  // (as a logical OR) in *pflagsvalues; e.g. if
  // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) in *pflagsvalues
  // then upon return the invalid status flag will be set, the underflow status
  // flag will be clear, and the inexact status flag will be set
  *pfpsf = *pfpsf & ~(*pflagsmask & BID_IEEE_FLAGS);
  // clear flags that have to be restored
  *pfpsf = *pfpsf | (*pflagsvalues & (*pflagsmask & BID_IEEE_FLAGS));
  // restore flags
}
#else
void
restoreFlags (_IDEC_flags flagsvalues,
              _IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
  // restore the status flags selected by flagsmask to the values speciafied
  // (as a logical OR) in flagsvalues; e.g. if 
  // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) in flagsvalues 
  // then upon return the invalid status flag will be set, the underflow status
  // flag will be clear, and the inexact status flag will be set
  *pfpsf = *pfpsf & ~(flagsmask & BID_IEEE_FLAGS);
  // clear flags that have to be restored
  *pfpsf = *pfpsf | (flagsvalues & (flagsmask & BID_IEEE_FLAGS));
  // restore flags
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
saveFlags (_IDEC_flags * pflagsvalues,
           _IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
  // return in *pflagsvalues the status flags specified (as a logical OR) in
  // *pflagsmask; e.g. if
  // *pflagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) in the status word,
  // then upon return the value in *pflagsvalues will have the invalid status 
  // flag set, the underflow status flag clear, and the inexact status flag set
  *pflagsvalues = *pfpsf & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
saveFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
  _IDEC_flags flagsvalues;
  // return the status flags specified (as a logical OR) in flagsmask; e.g. if 
  // flagsmask = INVALID_EXCEPTION | UNDERFLOW_EXCEPTION | INEXACT_EXCEPTION
  // and only the invalid and inexact flags are raised (set) in the status word,
  // then the return value will have the invalid status  flag set, the 
  // underflow status flag clear, and the inexact status flag set 
  flagsvalues = *pfpsf & (flagsmask & BID_IEEE_FLAGS);
  return (flagsvalues);
}
#endif
 
// Note the following definitions from bid_conf.h (rearranged): if the rounding
// mode is global, it has a fixed name recognized by the library functions:
// _IDEC_glbround; rnd_mode, defined as &_IDEC_glbround, can be used instead; no
// argument is passed for the rounding mode to the library functions; if the
// rounding mode is local then it is passed as an arument, by reference or by
// value, to the library functions
//
// #if DECIMAL_CALL_BY_REFERENCE
//   #if !DECIMAL_GLOBAL_ROUNDING
//     #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
//   #else
//     #define _RND_MODE_PARAM
//     #define rnd_mode _IDEC_glbround
//   #endif
// #else
//   #if !DECIMAL_GLOBAL_ROUNDING
//     #define _RND_MODE_PARAM , _IDEC_round rnd_mode
//   #else
//     #define _RND_MODE_PARAM
//     #define rnd_mode _IDEC_glbround
//   #endif
// #endif
 
#if DECIMAL_CALL_BY_REFERENCE
#if !DECIMAL_GLOBAL_ROUNDING
    // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
void
getDecimalRoundingDirection (_IDEC_round * rounding_mode
                             _RND_MODE_PARAM) {
  // returns the current rounding mode
  *rounding_mode = *prnd_mode;
}
#else
    // #define _RND_MODE_PARAM
    // #define rnd_mode _IDEC_glbround
void
getDecimalRoundingDirection (_IDEC_round * rounding_mode
                             _RND_MODE_PARAM) {
  // returns the current rounding mode
  *rounding_mode = rnd_mode;
}
#endif
#else
#if !DECIMAL_GLOBAL_ROUNDING
    // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
_IDEC_round
getDecimalRoundingDirection (_IDEC_round rnd_mode) {
  // returns the current rounding mode
  return (rnd_mode);
}
#else
    // #define _RND_MODE_PARAM
    // #define rnd_mode _IDEC_glbround
_IDEC_round
getDecimalRoundingDirection (void) {
  // returns the current rounding mode
  return (rnd_mode);
}
#endif
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
#if !DECIMAL_GLOBAL_ROUNDING
    // #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
void
setDecimalRoundingDirection (_IDEC_round * rounding_mode
                             _RND_MODE_PARAM) {
  // sets the current rounding mode to the value in *rounding_mode, if valid
  if (*rounding_mode == ROUNDING_TO_NEAREST ||
      *rounding_mode == ROUNDING_DOWN ||
      *rounding_mode == ROUNDING_UP ||
      *rounding_mode == ROUNDING_TO_ZERO ||
      *rounding_mode == ROUNDING_TIES_AWAY) {
    *prnd_mode = *rounding_mode;
  }
}
#else
    // #define _RND_MODE_PARAM
    // #define rnd_mode _IDEC_glbround
void
setDecimalRoundingDirection (_IDEC_round * rounding_mode
                             ) {
  // sets the global rounding mode to the value in *rounding_mode, if valid
  if (*rounding_mode == ROUNDING_TO_NEAREST ||
      *rounding_mode == ROUNDING_DOWN ||
      *rounding_mode == ROUNDING_UP ||
      *rounding_mode == ROUNDING_TO_ZERO ||
      *rounding_mode == ROUNDING_TIES_AWAY) {
    rnd_mode = *rounding_mode;
  }
}
#endif
#else
#if !DECIMAL_GLOBAL_ROUNDING
    // #define _RND_MODE_PARAM , _IDEC_round rnd_mode
_IDEC_round
setDecimalRoundingDirection (_IDEC_round rounding_mode _RND_MODE_PARAM) {
  // sets the current rounding mode to the value in rounding_mode;
  // however, when arguments are passed by value and the rounding mode
  // is a local variable, this is not of any use
  if (rounding_mode == ROUNDING_TO_NEAREST ||
      rounding_mode == ROUNDING_DOWN ||
      rounding_mode == ROUNDING_UP ||
      rounding_mode == ROUNDING_TO_ZERO ||
      rounding_mode == ROUNDING_TIES_AWAY) {
    return (rounding_mode);
  }
  return (rnd_mode);
}
#else
    // #define _RND_MODE_PARAM
    // #define rnd_mode _IDEC_glbround
void
setDecimalRoundingDirection (_IDEC_round rounding_mode) {
  // sets the current rounding mode to the value in rounding_mode, if valid;
  if (rounding_mode == ROUNDING_TO_NEAREST ||
      rounding_mode == ROUNDING_DOWN ||
      rounding_mode == ROUNDING_UP ||
      rounding_mode == ROUNDING_TO_ZERO ||
      rounding_mode == ROUNDING_TIES_AWAY) {
    rnd_mode = rounding_mode;
  }
}
#endif
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
is754 (int *retval) {
  *retval = 0;
}
#else
int
is754 (void) {
  return 0;
}
#endif
 
#if DECIMAL_CALL_BY_REFERENCE
void
is754R (int *retval) {
  *retval = 1;
}
#else
int
is754R (void) {
  return 1;
}
#endif

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgcc/] [config/] [libbid/] [bid_flag_operations.c] - Blame information for rev 848

Line No.	Rev	Author	Line
1	734	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`