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

symbol.c (restore_old_symbol): Fix thinko.

Browse Source 
fortran/
	* symbol.c (restore_old_symbol): Fix thinko.

From-SVN: r196413
This commit is contained in:
Mikael Morin 2013-03-03 17:24:19 +00:00
parent 718e305d0f
commit 4ef9b95000
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2013-03-03 Mikael Morin <mikael@gcc.gnu.org>
* symbol.c (restore_old_symbol): Fix thinko.
2013-03-03 Mikael Morin <mikael@gcc.gnu.org> 2013-03-03 Mikael Morin <mikael@gcc.gnu.org>
* symbol.c (gfc_undo_symbols): Move code... * symbol.c (gfc_undo_symbols): Move code...

3
gcc/fortran/symbol.c
View File

@ -2896,7 +2896,8 @@ restore_old_symbol (gfc_symbol *p)
if (p->value != old->value) if (p->value != old->value)
{ {
gfc_free_expr (old->value); gcc_checking_assert (old->value == NULL);
gfc_free_expr (p->value);
p->value = NULL; p->value = NULL;
} }