aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/st.c
diff options
context:
space:
mode:
authorKaveh R. Ghazi <ghazi@caip.rutgers.edu>2008-07-19 16:23:52 +0000
committerKaveh Ghazi <ghazi@gcc.gnu.org>2008-07-19 16:23:52 +0000
commit7b901ac47fb235195a14d401567b0b2677ad8a03 (patch)
tree551ba2fcd23f90c6d0662b04e981e74aa6a5abd6 /gcc/fortran/st.c
parenta1ee985fa319b7a55e52ddd62f266e42ef9ae067 (diff)
downloadgcc-7b901ac47fb235195a14d401567b0b2677ad8a03.zip
gcc-7b901ac47fb235195a14d401567b0b2677ad8a03.tar.gz
gcc-7b901ac47fb235195a14d401567b0b2677ad8a03.tar.bz2
gfortran.h (new): Remove macro.
* gfortran.h (new): Remove macro. * array.c (gfc_append_constructor, match_array_list, gfc_match_array_constructor): Likewise. * bbt.c (insert, gfc_insert_bbt): Likewise. * decl.c (var_element, top_var_list, top_val_list, gfc_match_data, get_proc_name): Likewise. * expr.c (gfc_copy_actual_arglist): Likewise. * interface.c (compare_actual_formal, check_new_interface, gfc_add_interface): Likewise. * intrinsic.c gfc_convert_type_warn, gfc_convert_chartype): Likewise. * io.c (match_io_iterator, match_io_list): Likewise. * match.c (match_forall_header): Likewise. * matchexp.c (build_node): Likewise. * module.c (gfc_match_use): Likewise. * scanner.c (load_file): Likewise. * st.c (gfc_append_code): Likewise. * symbol.c (save_symbol_data, gfc_get_sym_tree, gfc_undo_symbols, gfc_commit_symbols): Likewise. * trans-common.c (build_field): Likewise. * trans-decl.c (gfc_finish_var_decl): Likewise. * trans-expr.c (gfc_free_interface_mapping, gfc_get_interface_mapping_charlen, gfc_add_interface_mapping, gfc_finish_interface_mapping, gfc_apply_interface_mapping_to_expr): Likewise. * trans.h (gfc_interface_sym_mapping): Likewise. From-SVN: r137982
Diffstat (limited to 'gcc/fortran/st.c')
-rw-r--r--gcc/fortran/st.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/st.c b/gcc/fortran/st.c
index ba5656b..790dec6 100644
--- a/gcc/fortran/st.c
+++ b/gcc/fortran/st.c
@@ -58,20 +58,20 @@ gfc_get_code (void)
its tail, returning a pointer to the new tail. */
gfc_code *
-gfc_append_code (gfc_code *tail, gfc_code *new)
+gfc_append_code (gfc_code *tail, gfc_code *new_code)
{
if (tail != NULL)
{
while (tail->next != NULL)
tail = tail->next;
- tail->next = new;
+ tail->next = new_code;
}
- while (new->next != NULL)
- new = new->next;
+ while (new_code->next != NULL)
+ new_code = new_code->next;
- return new;
+ return new_code;
}