* trans.h (struct gfc_ss_info): New field refcount.
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Nov 2011 22:50:06 +0000 (22:50 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Nov 2011 22:50:06 +0000 (22:50 +0000)
commit2092de0642f48458576e6f34c5f48f55a378c58f
tree781eec2a966a82bd3a689f354c87770ff7113f7c
parent04d28f1f9e5a1d1f5b4e4a0b8e40f98b71528750
* trans.h (struct gfc_ss_info): New field refcount.
* trans-array.c (free_ss_info): Decrement refcount. Return early if
still non-zero.
(gfc_get_array_ss, gfc_get_temp_ss, gfc_get_scalar_ss): Increment
refcount.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180883 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-array.c
gcc/fortran/trans.h