From 14a378ec2a3f473b1c18a16d752b5832996e3663 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Fri, 27 Mar 1998 19:30:11 -0500 Subject: [PATCH] expr.c (ffeexpr_sym_impdoitem_): Don't blindly reset symbol info after calling ffesymbol_error, to avoid crash. * expr.c (ffeexpr_sym_impdoitem_): Don't blindly reset symbol info after calling ffesymbol_error, to avoid crash. Another patch from Craig. From-SVN: r18863 --- gcc/f/ChangeLog | 6 ++++++ gcc/f/expr.c | 29 ++++++++++++++++------------- 2 files changed, 22 insertions(+), 13 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 4a87a2a..74041bf 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +Mon Mar 16 21:20:35 1998 Craig Burley + + * expr.c (ffeexpr_sym_impdoitem_): Don't blindly + reset symbol info after calling ffesymbol_error, + to avoid crash. + Mon Mar 16 15:38:50 1998 Craig Burley * Version 0.5.22 released. diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 0459301..9ab9755 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -16467,19 +16467,22 @@ ffeexpr_sym_impdoitem_ (ffesymbol sp, ffelexToken t) version. */ if (!ffeimplic_establish_symbol (sp)) ffesymbol_error (sp, t); - ffesymbol_set_info (sp, - ffeinfo_new (ffesymbol_basictype (sp), - ffesymbol_kindtype (sp), - ffesymbol_rank (sp), - kind, - where, - ffesymbol_size (sp))); - ffesymbol_set_attrs (sp, na); - ffesymbol_set_state (sp, ns); - ffesymbol_resolve_intrin (sp); - if (!ffesymbol_state_is_specable (ns)) - sp = ffecom_sym_learned (sp); - ffesymbol_signal_unreported (sp); /* For debugging purposes. */ + else + { + ffesymbol_set_info (sp, + ffeinfo_new (ffesymbol_basictype (sp), + ffesymbol_kindtype (sp), + ffesymbol_rank (sp), + kind, + where, + ffesymbol_size (sp))); + ffesymbol_set_attrs (sp, na); + ffesymbol_set_state (sp, ns); + ffesymbol_resolve_intrin (sp); + if (!ffesymbol_state_is_specable (ns)) + sp = ffecom_sym_learned (sp); + ffesymbol_signal_unreported (sp); /* For debugging purposes. */ + } } } -- 2.7.4