diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-05-13 16:33:30 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-05-13 16:33:30 +0000 |
| commit | 798a67a4ce57b295d568a8548c0319258a805c23 (patch) | |
| tree | 09acc56c448e232d8638671724e34c4284081970 | |
| parent | 456dbc72758c15b9ae2f1b8cc6c069e70f67947a (diff) | |
| download | gcc-798a67a4ce57b295d568a8548c0319258a805c23.zip gcc-798a67a4ce57b295d568a8548c0319258a805c23.tar.gz gcc-798a67a4ce57b295d568a8548c0319258a805c23.tar.bz2 | |
gfortran.h: Remove prototype.
2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.h: Remove prototype.
* symbol.c (gfc_new_undo_checkpoint): Remove unused function.
From-SVN: r260210
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/gfortran.h | 1 | ||||
| -rw-r--r-- | gcc/fortran/symbol.c | 16 |
3 files changed, 5 insertions, 17 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e603fef..72bbda3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org> + + * gfortran.h: Remove prototype. + * symbol.c (gfc_new_undo_checkpoint): Remove unused function. + 2018-05-11 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/85542 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 507570c..4c4e7af 100644 --- a/gcc/fortran/gfortran.h +++ b/gcc/fortran/gfortran.h @@ -3033,7 +3033,6 @@ int gfc_get_sym_tree (const char *, gfc_namespace *, gfc_symtree **, bool); int gfc_get_ha_symbol (const char *, gfc_symbol **); int gfc_get_ha_sym_tree (const char *, gfc_symtree **); -void gfc_new_undo_checkpoint (gfc_undo_change_set &); void gfc_drop_last_undo_checkpoint (void); void gfc_restore_last_undo_checkpoint (void); void gfc_undo_symbols (void); diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 546a4fa..d5597ba 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -3484,22 +3484,6 @@ find_common_symtree (gfc_symtree *st, gfc_common_head *head) } -/* Clear the given storage, and make it the current change set for registering - changed symbols. Its contents are freed after a call to - gfc_restore_last_undo_checkpoint or gfc_drop_last_undo_checkpoint, but - it is up to the caller to free the storage itself. It is usually a local - variable, so there is nothing to do anyway. */ - -void -gfc_new_undo_checkpoint (gfc_undo_change_set &chg_syms) -{ - chg_syms.syms = vNULL; - chg_syms.tbps = vNULL; - chg_syms.previous = latest_undo_chgset; - latest_undo_chgset = &chg_syms; -} - - /* Restore previous state of symbol. Just copy simple stuff. */ static void |