OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

expr.c (ffeexpr_sym_impdoitem_): Don't blindly reset symbol info after calling ffesymbol_error, to avoid crash.

Browse Source 
* 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
This commit is contained in:
Craig Burley 1998-03-27 19:30:11 -05:00 committed by Jeff Law
parent adb15a1a68
commit 14a378ec2a
2 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/f/ChangeLog
View File

@ -1,3 +1,9 @@
Mon Mar 16 21:20:35 1998 Craig Burley <burley@gnu.org>
* 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 <burley@gnu.org>
* Version 0.5.22 released.

29
gcc/f/expr.c
View File

@ -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. */
}
}
}