Skip to content

R
riscv-gcc-1
Commit b5d4b580 by Tobias Burnus Committed by Tobias Burnus
Options

re PR fortran/46817 (Missing copyright header in libquadmath/*.[hc]) 

2011-01-17  Tobias Burnus  <burnus@net-b.de>

        PR fortran/46817
        * quadmath-imp.h: Refer to libquadmath not ot libiberty,
        bump copyright year and use /**/ instead of // comments.
        * quadmath.h: Ditto.
        * quadmath-weak.h: Ditto.
        * quadmath_io.c: Ditto.

From-SVN: r168892
parent b7ae9eb5
Showing with 40 additions and 31 deletions
libquadmath/ChangeLog
2011-01-17 Tobias Burnus <burnus@net-b.de>
PR fortran/46817
* quadmath-imp.h: Refer to libquadmath not ot libiberty,
bump copyright year and use /**/ instead of // comments.
* quadmath.h: Ditto.
* quadmath-weak.h: Ditto.
* quadmath_io.c: Ditto.
2011-01-16 Jakub Jelinek <jakub@redhat.com> 2011-01-16 Jakub Jelinek <jakub@redhat.com>
PR libfortran/47322 PR libfortran/47322
......
libquadmath/quadmath-imp.h
/* GCC Quad-Precision Math Library /* GCC Quad-Precision Math Library
Copyright (C) 2010 Free Software Foundation, Inc. Copyright (C) 2010, 2011 Free Software Foundation, Inc.
Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
This file is part of the libiberty library. This file is part of the libquadmath library.
Libiberty is free software; you can redistribute it and/or Libquadmath is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
Libiberty is distributed in the hope that it will be useful, Libquadmath is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB. If License along with libquadmath; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1301, USA. */ Boston, MA 02110-1301, USA. */
...@@ -27,7 +27,7 @@ Boston, MA 02110-1301, USA. */ ...@@ -27,7 +27,7 @@ Boston, MA 02110-1301, USA. */
#include "config.h" #include "config.h"
// Prototypes for internal functions /* Prototypes for internal functions. */
extern int32_t __quadmath_rem_pio2q (__float128, __float128 *); extern int32_t __quadmath_rem_pio2q (__float128, __float128 *);
extern void __quadmath_kernel_sincosq (__float128, __float128, __float128 *, extern void __quadmath_kernel_sincosq (__float128, __float128, __float128 *,
__float128 *, int); __float128 *, int);
...@@ -36,13 +36,13 @@ extern __float128 __quadmath_kernel_cosq (__float128, __float128); ...@@ -36,13 +36,13 @@ extern __float128 __quadmath_kernel_cosq (__float128, __float128);
// Frankly, if you have __float128, you have 64-bit integers, right? /* Frankly, if you have __float128, you have 64-bit integers, right? */
#ifndef UINT64_C #ifndef UINT64_C
# error "No way!" # error "No way!"
#endif #endif
// Main union type we use to manipulate the floating-point type /* Main union type we use to manipulate the floating-point type. */
typedef union typedef union
{ {
__float128 value; __float128 value;
......
libquadmath/quadmath.h
/* GCC Quad-Precision Math Library /* GCC Quad-Precision Math Library
Copyright (C) 2010 Free Software Foundation, Inc. Copyright (C) 2010, 2011 Free Software Foundation, Inc.
Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
This file is part of the libiberty library. This file is part of the libquadmath library.
Libiberty is free software; you can redistribute it and/or Libquadmath is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
Libiberty is distributed in the hope that it will be useful, Libquadmath is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB. If License along with libquadmath; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1301, USA. */ Boston, MA 02110-1301, USA. */
......
libquadmath/quadmath_io.c
/* GCC Quad-Precision Math Library /* GCC Quad-Precision Math Library
Copyright (C) 2010 Free Software Foundation, Inc. Copyright (C) 2010, 2011 Free Software Foundation, Inc.
Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> Written by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
This file is part of the libiberty library. This file is part of the libquadmath library.
Libiberty is free software; you can redistribute it and/or Libquadmath is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
Libiberty is distributed in the hope that it will be useful, Libquadmath is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB. If License along with libquadmath; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1301, USA. */ Boston, MA 02110-1301, USA. */
...@@ -37,19 +37,19 @@ format (char * res, const __float128 x, size_t n) ...@@ -37,19 +37,19 @@ format (char * res, const __float128 x, size_t n)
g_Qfmt (buffer, &x, n + 1, sizeof(buffer) - 3); g_Qfmt (buffer, &x, n + 1, sizeof(buffer) - 3);
p = buffer + (*buffer == '-' ? 1 : 0); p = buffer + (*buffer == '-' ? 1 : 0);
// The sign is the easiest part /* The sign is the easiest part. */
res[0] = (signbitq (x) ? '-' : '+'); res[0] = (signbitq (x) ? '-' : '+');
if (*p == '.') if (*p == '.')
{ {
// We have a number smaller than 1, without exponent /* We have a number smaller than 1, without exponent. */
int exp = 0; int exp = 0;
char *c; char *c;
for (c = p+1; *c == '0'; c++) for (c = p+1; *c == '0'; c++)
exp++; exp++;
// We move the string "exp" characters left /* We move the string "exp" characters left. */
size_t l = strlen (p+1+exp); size_t l = strlen (p+1+exp);
memcpy (res + 2, p + 1 + exp, l); memcpy (res + 2, p + 1 + exp, l);
memset (res + 2 + l, '0', n - l + 1); memset (res + 2 + l, '0', n - l + 1);
...@@ -61,7 +61,7 @@ format (char * res, const __float128 x, size_t n) ...@@ -61,7 +61,7 @@ format (char * res, const __float128 x, size_t n)
return; return;
} }
// Now, do we already have an exponent /* Now, do we already have an exponent. */
char *c; char *c;
for (c = p; *c && *c != 'e'; c++) for (c = p; *c && *c != 'e'; c++)
; ;
...@@ -81,7 +81,7 @@ format (char * res, const __float128 x, size_t n) ...@@ -81,7 +81,7 @@ format (char * res, const __float128 x, size_t n)
} }
else else
{ {
// If we have no exponent, normalize and add the exponent /* If we have no exponent, normalize and add the exponent. */
for (c = p; *c && *c != '.'; c++) for (c = p; *c && *c != '.'; c++)
; ;
......
libquadmath/quadmath_weak.h
/* GCC Quad-Precision Math Library /* GCC Quad-Precision Math Library
Copyright (C) 2010 Free Software Foundation, Inc. Copyright (C) 2010, 2011 Free Software Foundation, Inc.
Written by Tobias Burnus <burnus@net-b.de> Written by Tobias Burnus <burnus@net-b.de>
This file is part of the libiberty library. This file is part of the libquadmath library.
Libiberty is free software; you can redistribute it and/or Libquadmath is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version. version 2 of the License, or (at your option) any later version.
Libiberty is distributed in the hope that it will be useful, Libquadmath is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details. Library General Public License for more details.
You should have received a copy of the GNU Library General Public You should have received a copy of the GNU Library General Public
License along with libiberty; see the file COPYING.LIB. If License along with libquadmath; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1301, USA. */ Boston, MA 02110-1301, USA. */
...@@ -35,7 +35,7 @@ Boston, MA 02110-1301, USA. */ ...@@ -35,7 +35,7 @@ Boston, MA 02110-1301, USA. */
/* __qmath_foo is a weak reference to symbol foo. */ /* __qmath_foo is a weak reference to symbol foo. */
#define __qmath3(name) __qmath2(__qmath_ ## name,name,name) #define __qmath3(name) __qmath2(__qmath_ ## name,name,name)
// Prototypes for real functions /* Prototypes for real functions. */
__qmath3 (acosq) __qmath3 (acosq)
__qmath3 (acoshq) __qmath3 (acoshq)
__qmath3 (asinq) __qmath3 (asinq)
...@@ -103,7 +103,7 @@ __qmath3 (y1q) ...@@ -103,7 +103,7 @@ __qmath3 (y1q)
__qmath3 (ynq) __qmath3 (ynq)
// Prototypes for complex functions /* Prototypes for complex functions. */
__qmath3 (cabsq) __qmath3 (cabsq)
__qmath3 (cargq) __qmath3 (cargq)
__qmath3 (cimagq) __qmath3 (cimagq)
...@@ -130,7 +130,7 @@ __qmath3 (ctanq) ...@@ -130,7 +130,7 @@ __qmath3 (ctanq)
__qmath3 (ctanhq) __qmath3 (ctanhq)
// Prototypes for string <-> flt128 conversion functions /* Prototypes for string <-> flt128 conversion functions. */
__qmath3 (strtoflt128) __qmath3 (strtoflt128)
__qmath3 (quadmath_flt128tostr) __qmath3 (quadmath_flt128tostr)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment