Code clenups.

From-SVN: r247193

diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index 5544c8244b753b9de2773ba05d67fa0ceb2bb6b4..fff65d2cb208f632b1b9743e3f80b86069bda4a4 100644 (file)
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -2717,7 +2717,7 @@ package body Bindgen is
       --  every file, then we could use the encoding of the initial specified
       --  file, but this information is passed only for potential main
       --  programs. We could fix this sometime, but it is a very minor point
-      --  (wide character default encoding for [Wide_[Wide_]Text_IO when there
+      --  (wide character default encoding for [Wide_[Wide_]]Text_IO when there
       --  is no main program).
 
       elsif No_Main_Subprogram then

diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb
index c638c4551b5253aae9c03b2025c0e1a9fc6601ae..c6276021bfc678ff2e0687dbec2d7fc2f79973cc 100644 (file)
--- a/gcc/ada/gnatchop.adb
+++ b/gcc/ada/gnatchop.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1998-2014, Free Software Foundation, Inc.         --
+--          Copyright (C) 1998-2016, 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- --
@@ -1424,7 +1424,7 @@ procedure Gnatchop is
 
       --  Test for presence of BOM
 
-      Read_BOM (Buffer.all, BOM_Length, BOM, False);
+      Read_BOM (Buffer.all, BOM_Length, BOM, XML_Support => False);
       BOM_Present := BOM /= Unknown;
 
       --  Only chop those units that come from this file

diff --git a/gcc/ada/s-dimmks.ads b/gcc/ada/s-dimmks.ads
index 48771d01c365ec0f10a8b49af4afbe9bbe619958..1b131c411abcd8bfbec557327c22462700cda504 100644 (file)
--- a/gcc/ada/s-dimmks.ads
+++ b/gcc/ada/s-dimmks.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 2011-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 2011-2016, 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- --
@@ -186,6 +186,11 @@ package System.Dim.Mks is
         Ampere   => -1,
         others   =>  0);
 
+   --  Note the type punning below. The Symbol is a single "ohm" character
+   --  encoded in UTF-8 (ce a9 in hexadecimal), but this file is not compiled
+   --  with -gnatW8, so we're treating the string literal as a two-character
+   --  String.
+
    subtype Electric_Resistance is Mks_Type
      with
       Dimension => (Symbol => "Ω",

diff --git a/gcc/ada/s-wchcnv.adb b/gcc/ada/s-wchcnv.adb
index 7e2ab08e55b6676ff426966282d89c18f3c3b101..07ccc5cb3481733a7d30eb66f04baf0e07b4ddff 100644 (file)
--- a/gcc/ada/s-wchcnv.adb
+++ b/gcc/ada/s-wchcnv.adb
@@ -406,7 +406,7 @@ package body System.WCh_Cnv is
          when WCEM_Brackets =>
 
             --  Values in the range 0-255 are directly output. Note that there
-            --  is some issue with [ (16#5B#] since this will cause confusion
+            --  is an issue with [ (16#5B#) since this will cause confusion
             --  if the resulting string is interpreted using brackets encoding.
 
             --  One possibility would be to always output [ as ["5B"] but in

diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb
index 4b4775734b3cf2a23fc5d0042b59abe51cbec467..4d0cbddec37294f4a27f5010180d72f3c6d6b1a8 100644 (file)
--- a/gcc/ada/sinput.adb
+++ b/gcc/ada/sinput.adb
@@ -272,11 +272,13 @@ package body Sinput is
          Tst (J) := C;
       end loop;
 
-      Read_BOM (Tst, Len, BOM, False);
+      Read_BOM (Tst, Len, BOM, XML_Support => False);
 
       case BOM is
          when UTF8_All =>
             Scan_Ptr := Scan_Ptr + Source_Ptr (Len);
+            First_Non_Blank_Location := Scan_Ptr;
+            Current_Line_Start := Scan_Ptr;
             Wide_Character_Encoding_Method := WCEM_UTF8;
             Upper_Half_Encoding := True;
 

diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads
index 8165a8f6dea660ed8ef03a0cdbfe09ba2ffe3058..ef7f3885cc2f08afc17620a7220183006e163f3c 100644 (file)
--- a/gcc/ada/sinput.ads
+++ b/gcc/ada/sinput.ads
@@ -560,8 +560,8 @@ package Sinput is
    --  the start of the current source. If the current source starts with a
    --  recognized BOM, then some flags such as Wide_Character_Encoding_Method
    --  are set accordingly, and the Scan_Ptr on return points past this BOM.
-   --  An error message is output and Unrecoverable_Error raised if a non-
-   --  recognized BOM is detected. The call has no effect if no BOM is found.
+   --  An error message is output and Unrecoverable_Error raised if an
+   --  unrecognized BOM is detected. The call has no effect if no BOM is found.
 
    function Get_Column_Number (P : Source_Ptr) return Column_Number;
    --  The ones-origin column number of the specified Source_Ptr value is

diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb
index 58fd3fd3e05263e238dd00ae359442faaa55bd24..f785205fe104105b29f50256f0bab1a704d146d3 100644 (file)
--- a/gcc/ada/styleg.adb
+++ b/gcc/ada/styleg.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2015, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2016, 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- --
@@ -492,10 +492,13 @@ package body Styleg is
    --  Start of processing for Check_Comment
 
    begin
-      --  Can never have a non-blank character preceding the first minus
+      --  Can never have a non-blank character preceding the first minus.
+      --  The "+ 3" is to leave room for a possible byte order mark (BOM);
+      --  we want to avoid a warning for a comment at the start of the
+      --  file just after the BOM.
 
       if Style_Check_Comments then
-         if Scan_Ptr > Source_First (Current_Source_File)
+         if Scan_Ptr > Source_First (Current_Source_File) + 3
            and then Source (Scan_Ptr - 1) > ' '
          then
             Error_Msg_S -- CODEFIX