From 798a67a4ce57b295d568a8548c0319258a805c23 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 13 May 2018 16:33:30 +0000 Subject: [PATCH] gfortran.h: Remove prototype. 2018-05-13 Steven G. Kargl * gfortran.h: Remove prototype. * symbol.c (gfc_new_undo_checkpoint): Remove unused function. From-SVN: r260210 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/gfortran.h | 1 - gcc/fortran/symbol.c | 16 ---------------- 3 files changed, 5 insertions(+), 17 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e603fef4f3f..72bbda39640 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2018-05-13 Steven G. Kargl + + * gfortran.h: Remove prototype. + * symbol.c (gfc_new_undo_checkpoint): Remove unused function. + 2018-05-11 Steven G. Kargl PR fortran/85542 diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h index 507570ccbff..4c4e7afbec1 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 546a4fae0a8..d5597ba905b 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 -- 2.30.2