From f6b55636d8122da3a6a085844ced67f39ee79d7f Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Mon, 2 Jul 2007 19:21:37 +0300 Subject: [PATCH] Forgot to delete these during yesterdays commit. 2007-07-02 Janne Blomqvist PR fortran/32239 * generated/pow_r*_i4.c: Removed. From-SVN: r126215 --- libgfortran/ChangeLog | 5 ++ libgfortran/generated/pow_r10_i4.c | 80 ------------------------------ libgfortran/generated/pow_r16_i4.c | 80 ------------------------------ libgfortran/generated/pow_r4_i4.c | 80 ------------------------------ libgfortran/generated/pow_r8_i4.c | 80 ------------------------------ 5 files changed, 5 insertions(+), 320 deletions(-) delete mode 100644 libgfortran/generated/pow_r10_i4.c delete mode 100644 libgfortran/generated/pow_r16_i4.c delete mode 100644 libgfortran/generated/pow_r4_i4.c delete mode 100644 libgfortran/generated/pow_r8_i4.c diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2b880c531d8..e1bdb0548ae 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-07-02 Janne Blomqvist + + PR fortran/32239 + * generated/pow_r*_i4.c: Removed. + 2007-07-01 Christopher D. Rickett * Makefile.in: Add support for iso_c_generated_procs.c and diff --git a/libgfortran/generated/pow_r10_i4.c b/libgfortran/generated/pow_r10_i4.c deleted file mode 100644 index d21869b5d2c..00000000000 --- a/libgfortran/generated/pow_r10_i4.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Support routines for the intrinsic power (**) operator. - Copyright 2004 Free Software Foundation, Inc. - Contributed by Paul Brook - -This file is part of the GNU Fortran 95 runtime library (libgfortran). - -Libgfortran 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 of the License, or (at your option) any later 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.) - -Libgfortran 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 libgfortran; see the file COPYING. If not, -write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ - -#include "config.h" -#include "libgfortran.h" - -/* Use Binary Method to calculate the powi. This is not an optimal but - a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of - Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art - of Computer Programming", 3rd Edition, 1998. */ - -#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4) - -GFC_REAL_10 pow_r10_i4 (GFC_REAL_10 a, GFC_INTEGER_4 b); -export_proto(pow_r10_i4); - -GFC_REAL_10 -pow_r10_i4 (GFC_REAL_10 a, GFC_INTEGER_4 b) -{ - GFC_REAL_10 pow, x; - GFC_INTEGER_4 n; - GFC_UINTEGER_4 u; - - n = b; - x = a; - pow = 1; - if (n != 0) - { - if (n < 0) - { - - u = -n; - x = pow / x; - } - else - { - u = n; - } - for (;;) - { - if (u & 1) - pow *= x; - u >>= 1; - if (u) - x *= x; - else - break; - } - } - return pow; -} - -#endif diff --git a/libgfortran/generated/pow_r16_i4.c b/libgfortran/generated/pow_r16_i4.c deleted file mode 100644 index 3901577ecc7..00000000000 --- a/libgfortran/generated/pow_r16_i4.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Support routines for the intrinsic power (**) operator. - Copyright 2004 Free Software Foundation, Inc. - Contributed by Paul Brook - -This file is part of the GNU Fortran 95 runtime library (libgfortran). - -Libgfortran 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 of the License, or (at your option) any later 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.) - -Libgfortran 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 libgfortran; see the file COPYING. If not, -write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ - -#include "config.h" -#include "libgfortran.h" - -/* Use Binary Method to calculate the powi. This is not an optimal but - a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of - Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art - of Computer Programming", 3rd Edition, 1998. */ - -#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4) - -GFC_REAL_16 pow_r16_i4 (GFC_REAL_16 a, GFC_INTEGER_4 b); -export_proto(pow_r16_i4); - -GFC_REAL_16 -pow_r16_i4 (GFC_REAL_16 a, GFC_INTEGER_4 b) -{ - GFC_REAL_16 pow, x; - GFC_INTEGER_4 n; - GFC_UINTEGER_4 u; - - n = b; - x = a; - pow = 1; - if (n != 0) - { - if (n < 0) - { - - u = -n; - x = pow / x; - } - else - { - u = n; - } - for (;;) - { - if (u & 1) - pow *= x; - u >>= 1; - if (u) - x *= x; - else - break; - } - } - return pow; -} - -#endif diff --git a/libgfortran/generated/pow_r4_i4.c b/libgfortran/generated/pow_r4_i4.c deleted file mode 100644 index 5baa4b17f68..00000000000 --- a/libgfortran/generated/pow_r4_i4.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Support routines for the intrinsic power (**) operator. - Copyright 2004 Free Software Foundation, Inc. - Contributed by Paul Brook - -This file is part of the GNU Fortran 95 runtime library (libgfortran). - -Libgfortran 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 of the License, or (at your option) any later 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.) - -Libgfortran 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 libgfortran; see the file COPYING. If not, -write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ - -#include "config.h" -#include "libgfortran.h" - -/* Use Binary Method to calculate the powi. This is not an optimal but - a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of - Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art - of Computer Programming", 3rd Edition, 1998. */ - -#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4) - -GFC_REAL_4 pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b); -export_proto(pow_r4_i4); - -GFC_REAL_4 -pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b) -{ - GFC_REAL_4 pow, x; - GFC_INTEGER_4 n; - GFC_UINTEGER_4 u; - - n = b; - x = a; - pow = 1; - if (n != 0) - { - if (n < 0) - { - - u = -n; - x = pow / x; - } - else - { - u = n; - } - for (;;) - { - if (u & 1) - pow *= x; - u >>= 1; - if (u) - x *= x; - else - break; - } - } - return pow; -} - -#endif diff --git a/libgfortran/generated/pow_r8_i4.c b/libgfortran/generated/pow_r8_i4.c deleted file mode 100644 index 8da3b81fdff..00000000000 --- a/libgfortran/generated/pow_r8_i4.c +++ /dev/null @@ -1,80 +0,0 @@ -/* Support routines for the intrinsic power (**) operator. - Copyright 2004 Free Software Foundation, Inc. - Contributed by Paul Brook - -This file is part of the GNU Fortran 95 runtime library (libgfortran). - -Libgfortran 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 of the License, or (at your option) any later 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.) - -Libgfortran 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 libgfortran; see the file COPYING. If not, -write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -Boston, MA 02110-1301, USA. */ - -#include "config.h" -#include "libgfortran.h" - -/* Use Binary Method to calculate the powi. This is not an optimal but - a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of - Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art - of Computer Programming", 3rd Edition, 1998. */ - -#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4) - -GFC_REAL_8 pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b); -export_proto(pow_r8_i4); - -GFC_REAL_8 -pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b) -{ - GFC_REAL_8 pow, x; - GFC_INTEGER_4 n; - GFC_UINTEGER_4 u; - - n = b; - x = a; - pow = 1; - if (n != 0) - { - if (n < 0) - { - - u = -n; - x = pow / x; - } - else - { - u = n; - } - for (;;) - { - if (u & 1) - pow *= x; - u >>= 1; - if (u) - x *= x; - else - break; - } - } - return pow; -} - -#endif