diff options
Diffstat (limited to 'gcc/ada/exp_put_image.adb')
| -rw-r--r-- | gcc/ada/exp_put_image.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_put_image.adb b/gcc/ada/exp_put_image.adb index 9bcf522..80b49a7 100644 --- a/gcc/ada/exp_put_image.adb +++ b/gcc/ada/exp_put_image.adb @@ -645,8 +645,8 @@ package body Exp_Put_Image is -- with no components there is no need to handle it. while Present (Item) loop - if Nkind_In (Item, N_Component_Declaration, - N_Discriminant_Specification) + if Nkind (Item) in + N_Component_Declaration | N_Discriminant_Specification and then ((Chars (Defining_Identifier (Item)) = Name_uParent and then not Is_Interface |