diff options
| author | meyering <meyering@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-18 19:21:05 +0000 |
|---|---|---|
| committer | meyering <meyering@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-18 19:21:05 +0000 |
| commit | e8ad0498ebe5ae490cbf531739836c718e61c369 (patch) | |
| tree | 0ab058f1627dfbbc50e9d116b4b91c32a98caf15 | |
| parent | 434f092231694da7f3e57535805284d65cfbbe22 (diff) | |
| download | gcc-e8ad0498ebe5ae490cbf531739836c718e61c369.tar.gz | |
remove now-unused definition of gfc_free
* misc.c (gfc_free): Remove function.
* gfortran.h (gfc_free): Remove its prototype.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172667 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.h | 1 | ||||
| -rw-r--r-- | gcc/fortran/misc.c | 10 |
3 files changed, 6 insertions, 11 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 51e2515244a..f6e7d4780ef 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 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) Do that by running this command: perl -pi -e 's/\bgfc_free ?\(/free (/' \ 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 |