diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-24 10:27:10 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-15 04:04:27 -0400 |
commit | 7a1d54fa61881f6454f3e3282cf5cf692e140f93 (patch) | |
tree | c5d94c415c880a578a3e9884a0e15ce520a72d28 /gcc/ada/exp_ch6.adb | |
parent | e577151d02b9e73e2aa985f0254f5a2f060d3e54 (diff) | |
download | gcc-7a1d54fa61881f6454f3e3282cf5cf692e140f93.zip gcc-7a1d54fa61881f6454f3e3282cf5cf692e140f93.tar.gz gcc-7a1d54fa61881f6454f3e3282cf5cf692e140f93.tar.bz2 |
[Ada] Remove excessive parens
2020-06-15 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* exp_ch6.adb, sem_util.adb: Remove excessive parents,
especially since they don't make the code any easier to read.
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
-rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index f436933..521289a 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4525,7 +4525,7 @@ package body Exp_Ch6 is -- visible a private entity in the body of the main unit, -- that gigi will see before its sees its proper definition. - elsif not (In_Extended_Main_Code_Unit (Call_Node)) + elsif not In_Extended_Main_Code_Unit (Call_Node) and then In_Package_Body then Must_Inline := not In_Extended_Main_Source_Unit (Subp); @@ -4550,7 +4550,7 @@ package body Exp_Ch6 is if Front_End_Inlining and then Nkind (Spec) = N_Subprogram_Declaration - and then (In_Extended_Main_Code_Unit (Call_Node)) + and then In_Extended_Main_Code_Unit (Call_Node) and then No (Body_To_Inline (Spec)) and then not Has_Completion (Subp) and then In_Same_Extended_Unit (Sloc (Spec), Loc) |