commit aa683f5c03673210edc89d1057868f59583570ea
author Eric Botcazou <ebotcazou@adacore.com> Tue May 31 13:20:46 2022 +0200
committer Pierre-Marie de Rodat <derodat@adacore.com> Mon Jul 04 07:45:59 2022 +0000
tree 49c7e4ff1ce0e549b9e3896c37e25d4ef3c36c42
parent 2f94aea27c0bbc2f174176bff9fece9626a5ee0a

[Ada] Small housekeeping work in Expand_N_Object_Declaration

The local function Rewrite_As_Renaming can be called twice in certain
circumstances, which is both not quite safe and unnecessary, so this
replaces it with a local variable whose value is computed only once.

No functional changes.

gcc/ada/

	* exp_ch3.adb (Expand_N_Object_Declaration) <OK_To_Rename_Ref>: New
	local function.
	<Rewrite_As_Renaming>: Change to a local variable whose value is
	computed once and generate a call to Finalize after this is done.
	Simplify the code creating the renaming at the end.