* freeze.adb (Freeze_Entity): Do not generate a freeze
node for a generic unit, even if it includes delayed aspect
specifications. Freeze nodes for generic entities must never
appear in the tree that reaches the back-end of the compiler.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@251766
138bc75d-0d04-0410-961f-
82ee72b054a4
+2017-09-06 Ed Schonberg <schonberg@adacore.com>
+
+ * freeze.adb (Freeze_Entity): Do not generate a freeze
+ node for a generic unit, even if it includes delayed aspect
+ specifications. Freeze nodes for generic entities must never
+ appear in the tree that reaches the back-end of the compiler.
+
2017-09-06 Yannick Moy <moy@adacore.com>
* treepr.adb (Print_Entity_Info): Do not print empty Elist.
then
Explode_Initialization_Compound_Statement (E);
end if;
+
+ -- Do not generate a freeze node for a generic unit.
+
+ if Is_Generic_Unit (E) then
+ Result := No_List;
+ goto Leave;
+ end if;
end if;
-- Case of a type or subtype being frozen