diff options
Diffstat (limited to 'libgcc/config/libbid/bid_flag_operations.c')
-rw-r--r-- | libgcc/config/libbid/bid_flag_operations.c | 155 |
1 files changed, 101 insertions, 54 deletions
diff --git a/libgcc/config/libbid/bid_flag_operations.c b/libgcc/config/libbid/bid_flag_operations.c index 3198f968bf7..d025e635f88 100644 --- a/libgcc/config/libbid/bid_flag_operations.c +++ b/libgcc/config/libbid/bid_flag_operations.c @@ -30,13 +30,11 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA * 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 @@ -44,59 +42,79 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA // #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 @@ -105,11 +123,11 @@ __bid_testSavedFlags (_IDEC_flags * praised, _IDEC_flags * 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; + *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 @@ -118,14 +136,14 @@ __bid_testSavedFlags (_IDEC_flags savedflags, _IDEC_flags flagsmask) { // 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 @@ -133,12 +151,14 @@ __bid_restoreFlags (_IDEC_flags * pflagsvalues, // 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 @@ -146,14 +166,16 @@ __bid_restoreFlags (_IDEC_flags flagsvalues, // 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 @@ -161,25 +183,25 @@ __bid_saveFlags (_IDEC_flags * pflagsvalues, // 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 @@ -189,14 +211,14 @@ __bid_saveFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) { // #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 @@ -204,16 +226,16 @@ __bid_saveFlags (_IDEC_flags flagsmask _EXC_FLAGS_PARAM) { #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; @@ -223,15 +245,15 @@ __bid_getDecimalRoundingDirection (_IDEC_round * rounding_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); } @@ -242,62 +264,87 @@ __bid_getDecimalRoundingDirection (void) { #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 |