--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgcc/config/libbid/bid_flag_operations.c	Fri Jul 17 14:47:48 2009 +0900
@@ -0,0 +1,345 @@
+/* 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