diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:43:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:43:27 +0100 |
| commit | f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3 (patch) | |
| tree | 31e748acde00a186b9998864de91b99dd349ae1f /gcc/ada/sem_aggr.adb | |
| parent | 14063a127cde2742fc889284db0185b144a7c873 (diff) | |
| download | gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.zip gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.tar.gz gcc-f53f9dd7812d03d2301d3b3ff6d81bcbed9455d3.tar.bz2 | |
back_end.adb, [...]: Minor reformatting
2008-03-26 Robert Dewar <dewar@adacore.com>
* back_end.adb, back_end.ads: Minor reformatting
* bindgen.adb: Minor clarification of comments
* fname.ads: Minor comment fixes
* g-altive.ads, g-catiio.ads, g-trasym.ads, prj.ads,
prj-nmsc.adb, sem_aggr.adb: Minor reformatting
* xeinfo.adb, xnmake.adb, xsinfo.adb, xtreeprs.adb,
xsnames.adb: Remove warnings off pragma no longer needed
* a-catizo.ads, a-calari.ads, a-calfor.adb,
a-calfor.ads: Fix header.
From-SVN: r133585
Diffstat (limited to 'gcc/ada/sem_aggr.adb')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index f6ae6e5..33c1294 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1402,8 +1402,7 @@ package body Sem_Aggr is if Is_Character_Type (Component_Typ) and then No (Next_Index (Nxt_Ind)) - and then (Nkind (Expr) = N_String_Literal - or else Nkind (Expr) = N_Operator_Symbol) + and then Nkind_In (Expr, N_String_Literal, N_Operator_Symbol) then -- A string literal used in a multidimensional array -- aggregate in place of the final one-dimensional @@ -1513,9 +1512,8 @@ package body Sem_Aggr is if Ada_Version = Ada_83 and then Assoc /= First (Component_Associations (N)) - and then (Nkind (Parent (N)) = N_Assignment_Statement - or else - Nkind (Parent (N)) = N_Object_Declaration) + and then Nkind_In (Parent (N), N_Assignment_Statement, + N_Object_Declaration) then Error_Msg_N ("(Ada 83) illegal context for OTHERS choice", N); @@ -2484,14 +2482,11 @@ package body Sem_Aggr is function Has_Expansion_Delayed (Expr : Node_Id) return Boolean is Kind : constant Node_Kind := Nkind (Expr); - begin - return ((Kind = N_Aggregate - or else Kind = N_Extension_Aggregate) + return (Nkind_In (Kind, N_Aggregate, N_Extension_Aggregate) and then Present (Etype (Expr)) and then Is_Record_Type (Etype (Expr)) and then Expansion_Delayed (Expr)) - or else (Kind = N_Qualified_Expression and then Has_Expansion_Delayed (Expression (Expr))); end Has_Expansion_Delayed; @@ -2848,8 +2843,8 @@ package body Sem_Aggr is else Root_Typ := Root_Type (Typ); - if Nkind (Parent (Base_Type (Root_Typ))) - = N_Private_Type_Declaration + if Nkind (Parent (Base_Type (Root_Typ))) = + N_Private_Type_Declaration then Error_Msg_NE ("type of aggregate has private ancestor&!", |