[Ada] Fix crash on type extensions with discriminants
authorBob Duff <duff@adacore.com>
Tue, 15 Jun 2021 19:36:34 +0000 (15:36 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 9 Jul 2021 12:35:32 +0000 (12:35 +0000)
commitf377685e3d82193b0f69bb0742e7f470f63532b2
tree11cad8ddf2aec32118ebf967baf51569894f821b
parentbb66a1021527ab68975a02cc3359c71c69ce443b
[Ada] Fix crash on type extensions with discriminants

gcc/ada/

* exp_put_image.adb (Make_Component_Attributes): Use
Implementation_Base_Type to get the parent type. Otherwise,
Parent_Type_Decl is actually an internally generated subtype
declaration, so we blow up on
Type_Definition (Parent_Type_Decl).
gcc/ada/exp_put_image.adb