[Patch, fortran] [49..51/66] inline sum and product: Update the scalarizer: New parent loop.

[Mikael Morin]

This introduces a convenience pointer parent for the gfc_loopinfo struct
(patch 49).
Patches 50 and 51 (with context diff) use it to update
gfc_trans_array_constructor and constant_array_constructor_loop_size
respectively.
OK?
-------------- next part --------------
2011-10-19  Mikael Morin  <mikael@gcc.gnu.org>

	* trans.h (struct gfc_loopinfo): New field parent.
	* trans-array.c (gfc_cleanup_loop): Free nested loops.
	(gfc_add_ss_to_loop): Set nested_loop's parent loop.
	(gfc_trans_array_constructor): Update assertion.
	(gfc_conv_loop_setup): Ditto.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr43829-49.patch
Type: text/x-diff
Size: 2362 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20111027/7941bfee/attachment.bin>
-------------- next part --------------
2011-10-19  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-array.c (get_rank, get_loop_upper_bound_for_array):
	New functions.
	(gfc_trans_array_constructor): Handle multiple loops.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr43829-50.patch
Type: text/x-diff
Size: 3195 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20111027/7941bfee/attachment-0001.bin>
-------------- next part --------------
2011-10-19  Mikael Morin  <mikael@gcc.gnu.org>

	* trans-array.c (constant_array_constructor_loop_size):
	Handle multiple loops.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr43829-51.patch
Type: text/x-diff
Size: 2029 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20111027/7941bfee/attachment-0002.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr43829-51.diff
Type: text/x-diff
Size: 2320 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20111027/7941bfee/attachment-0003.bin>