aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c
diff options
context:
space:
mode:
authorDan Albert <danalbert@google.com>2015-06-17 11:09:54 -0700
committerDan Albert <danalbert@google.com>2015-06-17 14:15:22 -0700
commitf378ebf14df0952eae870c9865bab8326aa8f137 (patch)
tree31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c
parent2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff)
downloadtoolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz
toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2
toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
Diffstat (limited to 'gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c')
-rw-r--r--gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c345
1 files changed, 0 insertions, 345 deletions
diff --git a/gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c b/gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c
deleted file mode 100644
index 23d8a5678..000000000
--- a/gcc-4.4.3/libgcc/config/libbid/bid_flag_operations.c
+++ /dev/null
@@ -1,345 +0,0 @@
-/* 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