]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
2014-07-18 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jul 2014 09:23:28 +0000 (09:23 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Jul 2014 09:23:28 +0000 (09:23 +0000)
* 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

gcc/ada/ChangeLog
gcc/ada/debug.adb
gcc/ada/impunit.adb
gcc/ada/par-ch4.adb
gcc/ada/s-wchcon.ads
gcc/ada/widechar.adb

index 5585fab0ea06dad06309e45a3f4fe742f42e2066..bc299a7b465c42af1421563828473aa040a5cd04 100644 (file)
@@ -1,3 +1,14 @@
+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.
+
 2014-07-18  Robert Dewar  <dewar@adacore.com>
 
        * sem_ch13.adb (Build_Discrete_Static_Predicate): New name
index 869b8cd09a02db8b570fa7547672fe2db5ac4b3a..1299a25025fefe2ad63891b2e704b9539f7ecbff 100644 (file)
@@ -134,7 +134,7 @@ package body Debug is
    --  d.N  Add node to all entities
    --  d.O  Dump internal SCO tables
    --  d.P  Previous (non-optimized) handling of length comparisons
-   --  d.Q
+   --  d.Q  Previous (incomplete) style check for binary operators
    --  d.R  Restrictions in ali files in positional form
    --  d.S  Force Optimize_Alignment (Space)
    --  d.T  Force Optimize_Alignment (Time)
index ae7a5e29d9769292e366cbdc47451280467ae137..750326fd1ae90e0878111587248e1545dc1be2e7 100644 (file)
@@ -382,8 +382,8 @@ package body Impunit is
     ("s-ststop", F),  -- System.Strings.Stream_Ops
     ("s-tasinf", F),  -- System.Task_Info
     ("s-unstyp", F),  -- System.Unsigned_Types
-    ("s-wchcnv", F),  -- System.Wch_Cnv
-    ("s-wchcon", F),  -- System.Wch_Con
+    ("s-wchcnv", F),  -- System.WCh_Cnv
+    ("s-wchcon", F),  -- System.WCh_Con
 
    --  The following are strictly speaking Ada 2012 units, but we are allowed
    --  to add children to system, so we consider them to be implementation
index 9d8feca0a2ea977d2092078079606b8673920dd8..105732a14eb8d531a638d4d3a666e907ff5b7723 100644 (file)
@@ -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);
index 54d4d777d9cad805dce3a05adac0b6981549ab5b..7b081acdf0320963436b353b530ea070496267cf 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -77,7 +77,7 @@ package System.WCh_Con is
 
    --     1.  Define a code for a new value of type WC_Encoding_Method
    --     2.  Adjust the definition of WC_Encoding_Method accordingly
-   --     3.  Provide appropriate conversion routines in System.Wch_Cnv
+   --     3.  Provide appropriate conversion routines in System.WCh_Cnv
    --     4.  Adjust definition of WC_Longest_Sequence if necessary
    --     5.  Add an entry in WC_Encoding_Letters for the new method
    --     6.  Add proper code to s-wchstw.adb, s-wchwts.adb, s-widwch.adb
index 25d2ef7a25820148f9e16bd5321a82a1608db920..d0c8f249280c61fe5d25a2b044203e8181802cfc 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2009 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -29,7 +29,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  Note: this package uses the generic subprograms in System.Wch_Cnv, which
+--  Note: this package uses the generic subprograms in System.WCh_Cnv, which
 --  completely encapsulate the set of wide character encoding methods, so no
 --  modifications are required when adding new encoding methods.