[multiple changes]

2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_util.adb (Has_Enabled_Property): Compare the character field of
	the sole property.

2014-01-29  Robert Dewar  <dewar@adacore.com>

	* sem_intr.adb, a-ztexio.ads, sinfo.ads, sem_res.adb, gnatlink.adb,
	vms_conv.adb, a-except.ads, a-except-2005.ads, a-teioed.adb,
	sem_warn.ads, treepr.ads, erroutc.ads, a-excach.adb: Minor reformatting.

From-SVN: r207267

15 files changed, 30 insertions, 19 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fec258c..d0fee8f 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,14 @@
+2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* sem_util.adb (Has_Enabled_Property): Compare the character field of
+	the sole property.
+
+2014-01-29  Robert Dewar  <dewar@adacore.com>
+
+	* sem_intr.adb, a-ztexio.ads, sinfo.ads, sem_res.adb, gnatlink.adb,
+	vms_conv.adb, a-except.ads, a-except-2005.ads, a-teioed.adb,
+	sem_warn.ads, treepr.ads, erroutc.ads, a-excach.adb: Minor reformatting.
+
 2014-01-29  Robert Dewar  <dewar@adacore.com>
 
 	* sem_util.ads, sem_util.adb (In_Pragma_Expression): New function.
diff --git a/gcc/ada/a-excach.adb b/gcc/ada/a-excach.adb
index 6a33601..ab82920 100644
--- a/gcc/ada/a-excach.adb
+++ b/gcc/ada/a-excach.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2013, 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- --
@@ -32,7 +32,7 @@
 pragma Warnings (Off);
 --  Allow withing of non-Preelaborated units in Ada 2005 mode where this
 --  package will be categorized as Preelaborate. See AI-362 for details.
---  It is safe in the context of the run-time to violate the rules!
+--  It is safe in the context of the run-time to violate the rules.
 
 with System.Traceback;
 
diff --git a/gcc/ada/a-except-2005.ads b/gcc/ada/a-except-2005.ads
index ca4ff9f..71a3f19 100644
--- a/gcc/ada/a-except-2005.ads
+++ b/gcc/ada/a-except-2005.ads
@@ -276,7 +276,7 @@ private
 
    --  Note: this used to be in a separate unit called System.Poll, but that
    --  caused horrible circular elaboration problems between System.Poll and
-   --  Ada.Exceptions. One way of solving such circularities is unification!
+   --  Ada.Exceptions.
 
    procedure Poll;
    --  Check for asynchronous abort. Note that we do not inline the body.
diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads
index e395cf4..5124667 100644
--- a/gcc/ada/a-except.ads
+++ b/gcc/ada/a-except.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -250,7 +250,7 @@ private
 
    --  Note: this used to be in a separate unit called System.Poll, but that
    --  caused horrible circular elaboration problems between System.Poll and
-   --  Ada.Exceptions. One way of solving such circularities is unification!
+   --  Ada.Exceptions.
 
    procedure Poll;
    --  Check for asynchronous abort. Note that we do not inline the body.
diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb
index 423e687..03e635e 100644
--- a/gcc/ada/a-teioed.adb
+++ b/gcc/ada/a-teioed.adb
@@ -1445,7 +1445,7 @@ package body Ada.Text_IO.Editing is
       -- Leading_Pound --
       -------------------
 
-      --  This one is complex!  A Leading_Pound can be fixed or floating,
+      --  This one is complex.  A Leading_Pound can be fixed or floating,
       --  but in some cases the decision has to be deferred until we leave
       --  this procedure. Also note that Leading_Pound can be called in
       --  either State.
diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads
index 97ead43..b081906 100644
--- a/gcc/ada/a-ztexio.ads
+++ b/gcc/ada/a-ztexio.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -389,7 +389,7 @@ private
       --  there is no convenient way of backing up more than one character,
       --  what we do is to leave ourselves positioned past the LM, but set
       --  this flag, so that we know that from an Ada point of view we are
-      --  in front of the LM, not after it. A bit of a kludge, but it works!
+      --  in front of the LM, not after it. A bit of a kludge, but it works.
 
       Before_LM_PM : Boolean := False;
       --  This flag similarly handles the case of being physically positioned
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads
index 647e58b..5469944 100644
--- a/gcc/ada/erroutc.ads
+++ b/gcc/ada/erroutc.ads
@@ -98,7 +98,7 @@ package Erroutc is
    --  ensures that two insertion tokens of maximum length can be accommodated.
    --  The value of 1024 is an arbitrary value that should be more than long
    --  enough to accommodate any reasonable message (and for that matter, some
-   --  pretty unreasonable messages!)
+   --  pretty unreasonable messages).
 
    Msg_Buffer : String (1 .. Max_Msg_Length);
    --  Buffer used to prepare error messages
diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb
index ea679d9..ce8f3d1 100644
--- a/gcc/ada/gnatlink.adb
+++ b/gcc/ada/gnatlink.adb
@@ -1598,7 +1598,7 @@ begin
          --  Read it. Note that we ignore errors, since we only want very
          --  limited information from the ali file, and likely a slightly
          --  wrong version will be just fine, though in normal operation
-         --  we don't expect this to happen!
+         --  we don't expect this to happen.
 
          A := Scan_ALI
                (F,
diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb
index a3f578d..4682d25 100644
--- a/gcc/ada/sem_intr.adb
+++ b/gcc/ada/sem_intr.adb
@@ -416,7 +416,7 @@ package body Sem_Intr is
          return;
       end if;
 
-      --  type'Size (not 'Object_Size!) must be one of the allowed values
+      --  type'Size (not 'Object_Size) must be one of the allowed values
 
       Size := UI_To_Int (RM_Size (Typ1));
 
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index be05a51..f221ed4 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -2474,7 +2474,7 @@ package body Sem_Res is
             --  If type we are looking for is Void, then this is the procedure
             --  call case, and the error is simply that what we gave is not a
             --  procedure name (we think of procedure calls as expressions with
-            --  types internally, but the user doesn't think of them this way!)
+            --  types internally, but the user doesn't think of them this way).
 
             if Typ = Standard_Void_Type then
 
@@ -6170,7 +6170,7 @@ package body Sem_Res is
          end if;
 
       --  For Standard.Wide_Wide_Character or a type derived from it, we
-      --  know the literal is in range, since the parser checked!
+      --  know the literal is in range, since the parser checked.
 
       elsif Root_Type (B_Typ) = Standard_Wide_Wide_Character then
          return;
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 58a28bb..2f85e82 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -7319,7 +7319,7 @@ package body Sem_Util is
             --  Single property
 
             else
-               return Chars (Prop) = Prop_Nam;
+               return Chars (Props) = Prop_Nam;
             end if;
          end if;
 
diff --git a/gcc/ada/sem_warn.ads b/gcc/ada/sem_warn.ads
index 22a3c6c..131b7b8 100644
--- a/gcc/ada/sem_warn.ads
+++ b/gcc/ada/sem_warn.ads
@@ -127,7 +127,7 @@ package Sem_Warn is
    --  the end of the compilation process (see body of this routine for a
    --  discussion of why this is done). This procedure outputs the warnings.
    --  Note: this should be called before Output_Unreferenced_Messages, since
-   --  if we have an IN OUT warning, that's the one we want to see!
+   --  if we have an IN OUT warning, that's the one we want to see.
 
    procedure Output_Obsolescent_Entity_Warnings (N : Node_Id; E : Entity_Id);
    --  N is a reference to obsolescent entity E, for which appropriate warning
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index d46f315..4fb3047 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -8232,7 +8232,7 @@ package Sinfo is
       N_Unused_At_End);
 
    for Node_Kind'Size use 8;
-   --  The data structures in Atree assume this!
+   --  The data structures in Atree assume this
 
    ----------------------------
    -- Node Class Definitions --
diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads
index d33e93b..2d1fb93 100644
--- a/gcc/ada/treepr.ads
+++ b/gcc/ada/treepr.ads
@@ -82,7 +82,7 @@ package Treepr is
    --  Same as Print_Node_Subtree
 
    --  The following are no longer really needed, now that pn will print
-   --  anything you throw at it!
+   --  anything you throw at it.
 
    procedure pe (E : Elist_Id);
    pragma Export (Ada, pe);
diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb
index a499b9d..3632235 100644
--- a/gcc/ada/vms_conv.adb
+++ b/gcc/ada/vms_conv.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1996-2012, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2013, 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- --
@@ -1737,7 +1737,7 @@ package body VMS_Conv is
                   Sw   : Item_Ptr;
                   SwP  : Natural;
                   P2   : Natural;
-                  Endp : Natural := 0; -- avoid warning!
+                  Endp : Natural := 0; -- avoid warning
                   Opt  : Item_Ptr;
 
                begin