- (Nkind_In (Parent (N),
- N_Index_Or_Discriminant_Constraint,
- N_Discriminant_Association)
- and then
- Nkind (Parent (Parent (Parent (Parent (N)))))
- = N_Component_Definition)
+ (Nkind_In (Parent (N), N_Index_Or_Discriminant_Constraint,
+ N_Discriminant_Association)
+ and then Nkind (Parent (Parent (Parent (Parent (N))))) =
+ N_Component_Definition)