From: Jim Meyering <meyering@redhat.com>
Date: Mon, 18 Apr 2011 19:21:05 +0000 (+0000)
Subject: remove now-unused definition of gfc_free
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=513db953ec58e5913e0bf325947ee9e03d2ea38d;p=gcc.git

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 51e2515244a..f6e7d4780ef 100644
--- 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 49fbd1fa053..ce11c077bee 100644
--- 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 76dd2ef3f87..a54ffc09d6d 100644
--- 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