gdb/fortran: Allow for matching symbols with missing scope

[deliverable/binutils-gdb.git] / libdecnumber / decCommon.c

diff --git a/libdecnumber/decCommon.c b/libdecnumber/decCommon.c
index 845b9143d616f8aeb312c32c1b83405494f90c30..8fc1798e4272516019e4584c5a60dc67f6fc7e91 100644 (file)
--- a/libdecnumber/decCommon.c
+++ b/libdecnumber/decCommon.c
@@ -1,32 +1,27 @@
 /* Common code for fixed-size types in the decNumber C Library.
 /* Common code for fixed-size types in the decNumber C Library.

-   Copyright (C) 2007 Free Software Foundation, Inc.
+   Copyright (C) 2007-2018 Free Software Foundation, Inc.

    Contributed by IBM Corporation.  Author Mike Cowlishaw.
 
    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
    Contributed by IBM Corporation.  Author Mike Cowlishaw.
 
    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 2, or (at your option) any later
+   Software Foundation; either version 3, or (at your option) any later

    version.
 
    version.
 

-   In addition to the permissions in the GNU General Public License,
-   the Free Software Foundation gives you unlimited permission to link
-   the compiled version of this file into combinations with other
-   programs, and to distribute those combinations without any
-   restriction coming from the use of this file.  (The General Public
-   License restrictions do apply in other respects; for example, they
-   cover modification of the file, and distribution when not linked
-   into a combine executable.)
-

    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.
 
    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.
 

-   You should have received a copy of the GNU General Public License
-   along with GCC; see the file COPYING.  If not, write to the Free
-   Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
-   02110-1301, USA.  */
+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/>.  */

 
 /* ------------------------------------------------------------------ */
 /* decCommon.c -- common code for all three fixed-size types         */
 
 /* ------------------------------------------------------------------ */
 /* decCommon.c -- common code for all three fixed-size types         */


@@ -718,7 +713,7 @@ decFloat * decFloatFromPacked(decFloat *df, Int exp, const uByte *packed) {
 /*  returns df, which will be canonical or NULL if any of the        */
 /*    requirements are not met (if this case df is unchanged); that   */
 /*    is, the input data must be as returned by decFloatToPacked,     */
 /*  returns df, which will be canonical or NULL if any of the        */
 /*    requirements are not met (if this case df is unchanged); that   */
 /*    is, the input data must be as returned by decFloatToPacked,     */

-/*    except that all six sign codes are acccepted.                  */
+/*    except that all six sign codes are accepted.                   */

 /*                                                                   */
 /* No status will be set.                                            */
 /* ------------------------------------------------------------------ */
 /*                                                                   */
 /* No status will be set.                                            */
 /* ------------------------------------------------------------------ */


@@ -1162,6 +1157,7 @@ uInt decFloatRadix(const decFloat *df) {
   return 10;
   } /* decFloatRadix */
 
   return 10;
   } /* decFloatRadix */
 

+#if (DECCHECK || DECTRACE)

 /* ------------------------------------------------------------------ */
 /* decFloatShow -- printf a decFloat in hexadecimal and decimal       */
 /*   df  is the decFloat to show                                     */
 /* ------------------------------------------------------------------ */
 /* decFloatShow -- printf a decFloat in hexadecimal and decimal       */
 /*   df  is the decFloat to show                                     */


@@ -1188,6 +1184,7 @@ void decFloatShow(const decFloat *df, const char *tag) {
   printf(">%s> %s [big-endian] %s\n", tag, hexbuf, buff);
   return;
   } /* decFloatShow */
   printf(">%s> %s [big-endian] %s\n", tag, hexbuf, buff);
   return;
   } /* decFloatShow */

+#endif

 
 /* ------------------------------------------------------------------ */
 /* decFloatToBCD -- get sign, exponent, and BCD8 from a decFloat      */
 
 /* ------------------------------------------------------------------ */
 /* decFloatToBCD -- get sign, exponent, and BCD8 from a decFloat      */