diff options
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
-rw-r--r-- | gcc/ada/exp_aggr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 6d6e1a25263..75359fc029d 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -564,7 +564,6 @@ package body Exp_Aggr is --------------------- function Component_Check (N : Node_Id; Index : Node_Id) return Boolean is - function Ultimate_Original_Expression (N : Node_Id) return Node_Id; -- Given a type conversion or an unchecked type conversion N, return -- its innermost original expression. @@ -590,6 +589,8 @@ package body Exp_Aggr is Expr : Node_Id; + -- Start of processing for Component_Check + begin -- Checks 1: (no component associations) |