diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:23:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:23:28 +0000 |
| commit | 72a21fdd09d9fc5dd56a92e81a03f3a8cbdc08df (patch) | |
| tree | b02ad286762b2a84132da63b62041a80f09d3126 /gcc/ada/par-ch4.adb | |
| parent | eb66e842043b05ded0afafd335c334689d31a33a (diff) | |
| download | gcc-72a21fdd09d9fc5dd56a92e81a03f3a8cbdc08df.tar.gz | |
2014-07-18 Vincent Celier <celier@adacore.com>
* par-ch4.adb (Simple_Expression): Add missing style check
for binary adding operators.
(Term): Add missing style check for multiplying operators.
2014-07-18 Robert Dewar <dewar@adacore.com>
* impunit.adb: Minor comment correction.
* widechar.adb, s-wchcon.ads: Minor comment corrections.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212783 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 9d8feca0a2e..105732a14eb 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -2152,6 +2152,11 @@ package body Ch4 is exit when Token not in Token_Class_Binary_Addop; Tokptr := Token_Ptr; Node2 := New_Op_Node (P_Binary_Adding_Operator, Tokptr); + + if Style_Check and then not Debug_Flag_Dot_QQ then + Style.Check_Binary_Operator; + end if; + Scan; -- past operator Set_Left_Opnd (Node2, Node1); Node1 := P_Term; @@ -2406,6 +2411,11 @@ package body Ch4 is exit when Token not in Token_Class_Mulop; Tokptr := Token_Ptr; Node2 := New_Op_Node (P_Multiplying_Operator, Tokptr); + + if Style_Check and then not Debug_Flag_Dot_QQ then + Style.Check_Binary_Operator; + end if; + Scan; -- past operator Set_Left_Opnd (Node2, Node1); Set_Right_Opnd (Node2, P_Factor); |