remove now-unused definition of gfc_free

* misc.c (gfc_free): Remove function.
* gfortran.h (gfc_free): Remove its prototype.

From-SVN: r172667

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 51e2515244a05ff851e949fb783c1c9b9e26536c..f6e7d4780ef03ef2d98ad66f7214f483a899147e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-04-18  Jim Meyering  <meyering@redhat.com>
+
+       remove now-unused definition of gfc_free
+       * misc.c (gfc_free): Remove function.
+       * gfortran.h (gfc_free): Remove its prototype.
+
 2011-04-18  Jim Meyering  <meyering@redhat.com>
 
        convert each use of gfc_free (p) to free (p)

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 49fbd1fa0538e324df9320d65b500cfe49f15f56..ce11c077beea2600d48a4c70107e1ba8d36586b8 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2370,7 +2370,6 @@ void gfc_end_source_files (void);
 
 /* misc.c */
 void *gfc_getmem (size_t) ATTRIBUTE_MALLOC;
-void gfc_free (void *);
 int gfc_terminal_width (void);
 void gfc_clear_ts (gfc_typespec *);
 FILE *gfc_open_file (const char *);

diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c
index 76dd2ef3f87530aedf6ad3a386ef1d3635d02781..a54ffc09d6d62a5a48a4e75913a909fc38ec37bb 100644 (file)
--- a/gcc/fortran/misc.c
+++ b/gcc/fortran/misc.c
@@ -42,16 +42,6 @@ gfc_getmem (size_t n)
 }
 
 
-void
-gfc_free (void *p)
-{
-  /* The parentheses around free are needed in order to call not
-     the redefined free of gfortran.h.  */
-  if (p != NULL)
-    (free) (p);
-}
-
-
 /* Get terminal width.  */
 
 int