* Non-computational Operations on Flags:
****************************************************************************/
-#include "bid_conf.h"
-#include "bid_functions.h"
#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:
-// __bid_IDEC_glbflags; pfpsf, defined as &__bid_IDEC_glbflags, can be used instead; no
+// _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 __bid_IDEC_glbflags;
+// extern _IDEC_flags _IDEC_glbflags;
// #define _EXC_FLAGS_PARAM
-// #define pfpsf &__bid_IDEC_glbflags
+// #define pfpsf &_IDEC_glbflags
// #endif
#if DECIMAL_CALL_BY_REFERENCE
void
-__bid_lowerFlags (_IDEC_flags * pflagsmask _EXC_FLAGS_PARAM) {
+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);
+ *pfpsf = *pfpsf & ~(*pflagsmask & BID_IEEE_FLAGS);
}
#else
void
-__bid_lowerFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
+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);
+ *pfpsf = *pfpsf & ~(flagsmask & BID_IEEE_FLAGS);
}
#endif
#if DECIMAL_CALL_BY_REFERENCE
void
-__bid_testFlags (_IDEC_flags * praised,
+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;
+ *praised = *pfpsf & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
-__bid_testFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
+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;
+ raised = *pfpsf & (flagsmask & BID_IEEE_FLAGS);
return (raised);
}
#endif
#if DECIMAL_CALL_BY_REFERENCE
void
-__bid_testSavedFlags (_IDEC_flags * praised, _IDEC_flags * psavedflags,
+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
// 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;
+ *praised = *psavedflags & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
-__bid_testSavedFlags (_IDEC_flags savedflags, _IDEC_flags flagsmask) {
+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
// 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;
+ raised = savedflags & (flagsmask & BID_IEEE_FLAGS);
return (raised);
}
#endif
#if DECIMAL_CALL_BY_REFERENCE
void
-__bid_restoreFlags (_IDEC_flags * pflagsvalues,
+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
// 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); // clear flags that have to be restored
- *pfpsf = *pfpsf | (*pflagsvalues & *pflagsmask); // restore flags
+ *pfpsf = *pfpsf & ~(*pflagsmask & BID_IEEE_FLAGS);
+ // clear flags that have to be restored
+ *pfpsf = *pfpsf | (*pflagsvalues & (*pflagsmask & BID_IEEE_FLAGS));
+ // restore flags
}
#else
void
-__bid_restoreFlags (_IDEC_flags flagsvalues,
+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
// 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; // clear flags that have to be restored
- *pfpsf = *pfpsf | (flagsvalues & flagsmask); // restore flags
+ *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
-__bid_saveFlags (_IDEC_flags * pflagsvalues,
+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
// 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;
+ *pflagsvalues = *pfpsf & (*pflagsmask & BID_IEEE_FLAGS);
}
#else
_IDEC_flags
-__bid_saveFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) {
+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;
+ 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:
-// __bid_IDEC_glbround; rnd_mode, defined as &__bid_IDEC_glbround, can be used instead; no
+// _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
// #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
// #else
// #define _RND_MODE_PARAM
-// #define rnd_mode __bid_IDEC_glbround
+// #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 __bid_IDEC_glbround
+// #define rnd_mode _IDEC_glbround
// #endif
// #endif
#if !DECIMAL_GLOBAL_ROUNDING
// #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
void
-__bid_getDecimalRoundingDirection (_IDEC_round * rounding_mode
+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 __bid_IDEC_glbround
+ // #define rnd_mode _IDEC_glbround
void
-__bid_getDecimalRoundingDirection (_IDEC_round * rounding_mode
+getDecimalRoundingDirection (_IDEC_round * rounding_mode
_RND_MODE_PARAM) {
// returns the current rounding mode
*rounding_mode = rnd_mode;
#if !DECIMAL_GLOBAL_ROUNDING
// #define _RND_MODE_PARAM , _IDEC_round rnd_mode
_IDEC_round
-__bid_getDecimalRoundingDirection (_IDEC_round rnd_mode) {
+getDecimalRoundingDirection (_IDEC_round rnd_mode) {
// returns the current rounding mode
return (rnd_mode);
}
#else
// #define _RND_MODE_PARAM
- // #define rnd_mode __bid_IDEC_glbround
+ // #define rnd_mode _IDEC_glbround
_IDEC_round
-__bid_getDecimalRoundingDirection (void) {
+getDecimalRoundingDirection (void) {
// returns the current rounding mode
return (rnd_mode);
}
#if !DECIMAL_GLOBAL_ROUNDING
// #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
void
-__bid_setDecimalRoundingDirection (_IDEC_round * rounding_mode
+setDecimalRoundingDirection (_IDEC_round * rounding_mode
_RND_MODE_PARAM) {
- // sets the current rounding mode to the value in *rounding_mode
- *prnd_mode = *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) {
+ *prnd_mode = *rounding_mode;
+ }
}
#else
// #define _RND_MODE_PARAM
- // #define rnd_mode __bid_IDEC_glbround
+ // #define rnd_mode _IDEC_glbround
void
-__bid_setDecimalRoundingDirection (_IDEC_round * rounding_mode
- _RND_MODE_PARAM) {
- // sets the global rounding mode to the value in *rounding_mode
- rnd_mode = *rounding_mode;
+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
-__bid_setDecimalRoundingDirection (_IDEC_round rounding_mode) {
+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
- return (rounding_mode);
+ 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 __bid_IDEC_glbround
+ // #define rnd_mode _IDEC_glbround
void
-__bid_setDecimalRoundingDirection (_IDEC_round rounding_mode) {
- // sets the current rounding mode to the value in rounding_mode;
- rnd_mode = rounding_mode;
+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
-__bid_is754 (int *retval) {
+is754 (int *retval) {
*retval = 0;
}
#else
int
-__bid_is754 (void) {
+is754 (void) {
return 0;
}
#endif
#if DECIMAL_CALL_BY_REFERENCE
void
-__bid_is754R (int *retval) {
+is754R (int *retval) {
*retval = 1;
}
#else
int
-__bid_is754R (void) {
+is754R (void) {
return 1;
}
#endif
OSDN Git Service
