From 34a343e634c7b155a8553e45ffabd3f24f0765ec Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 13 Dec 2007 11:40:58 +0100 Subject: xeinfo.adb: Remove warnings 2007-12-06 Robert Dewar * xeinfo.adb: Remove warnings * xnmake.adb: Remove warnings * xsinfo.adb: Remove warnings * xtreeprs.adb: Remove warnings * xsnames.adb: Remove warnings * a-ngcoar.adb: Fix typo. * s-interr.adb: Minor reformatting * env.c: Minor reformatting. * g-bytswa.adb: Minor reformatting. * g-rannum.ads: Minor documentation improvements * s-tasinf-mingw.adb: Minor header fix * a-clrefi.adb: Minor reformatting * g-sttsne.ads: Minor documentation improvement * g-sttsne-locking.ads: Minor documentation improvement * g-soliop-solaris.ads: Minor documentation improvement * g-soliop-mingw.ads: Minor documentation improvement * g-soliop.ads: Minor documentation improvement * exp_aggr.ads: Minor reformatting * debug.adb: Add documentation for the gprbuild debug flags * exp_ch2.adb: Use Nkind_In to simplify code throughout * exp_pakd.adb: Minor reformatting * g-altive.ads, g-alleve.adb: Remove assertions. Add comment about minor differences between targets regarding floating-point operations. * g-thread.adb: Remove pragma unreferenced. * lib.ads: Minor reformatting * par-ch9.adb: Minor reformatting of error messages * sem_case.adb: Minor reformatting * s-fileio.adb: Minor reformattinng * s-vmexta.ads: Minor typo * vxaddr2line.adb: Take into account 'Success' value as per new GNAT warning. From-SVN: r130870 --- gcc/ada/exp_ch2.adb | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'gcc/ada/exp_ch2.adb') diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index ff56e04..95291d4 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -433,11 +433,10 @@ package body Exp_Ch2 is -- ??? passing a formal as actual for a mode IN formal is -- considered as an assignment? - if Nkind (Parent (N)) = N_Procedure_Call_Statement - or else Nkind (Parent (N)) = N_Entry_Call_Statement - or else - (Nkind (Parent (N)) = N_Assignment_Statement - and then N = Name (Parent (N))) + if Nkind_In (Parent (N), N_Procedure_Call_Statement, + N_Entry_Call_Statement) + or else (Nkind (Parent (N)) = N_Assignment_Statement + and then N = Name (Parent (N))) then return True; @@ -451,9 +450,9 @@ package body Exp_Ch2 is -- which case there is an implicit dereference, and the formal itself -- is not being assigned to). - elsif (Nkind (Parent (N)) = N_Selected_Component - or else Nkind (Parent (N)) = N_Indexed_Component - or else Nkind (Parent (N)) = N_Slice) + elsif Nkind_In (Parent (N), N_Selected_Component, + N_Indexed_Component, + N_Slice) and then N = Prefix (Parent (N)) and then not Is_Access_Type (Etype (N)) and then In_Assignment_Context (Parent (N)) @@ -697,7 +696,7 @@ package body Exp_Ch2 is begin -- Simple reference case - if Nkind (N) = N_Identifier or else Nkind (N) = N_Expanded_Name then + if Nkind_In (N, N_Identifier, N_Expanded_Name) then if Is_Formal (Entity (N)) then return Entity (N); -- cgit v1.1