g-comlin.ads, [...]: Minor comment fix.

2010-06-23  Bob Duff  <duff@adacore.com>

	* g-comlin.ads, sem_ch13.adb: Minor comment fix.

From-SVN: r161270

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6874fe56679432871a6b91ee86a4ebedf95489d2..d3e7b3cd1e8ee91ed52ae19846a6102cb49d9540 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-23  Bob Duff  <duff@adacore.com>
+
+       * g-comlin.ads, sem_ch13.adb: Minor comment fix.
+
 2010-06-23  Eric Botcazou  <ebotcazou@adacore.com>
 
        * exp_ch11.adb (Expand_Local_Exception_Handlers): Propagate the end

diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads
index 8752ddcff5fd7e7512edf2b129458403bd13d749..7285fe3498a4e2ab9b969c2d4ad0ce0ac7d160cb 100644 (file)
--- a/gcc/ada/g-comlin.ads
+++ b/gcc/ada/g-comlin.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1999-2009, AdaCore                     --
+--                     Copyright (C) 1999-2010, AdaCore                     --
 --                                                                          --
 -- 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- --
@@ -317,7 +317,7 @@ package GNAT.Command_Line is
    procedure Goto_Section
      (Name   : String := "";
       Parser : Opt_Parser := Command_Line_Parser);
-   --  Change the current section. The next Getopt of Get_Argument will start
+   --  Change the current section. The next Getopt or Get_Argument will start
    --  looking at the beginning of the section. An empty name ("") refers to
    --  the first section between the program name and the first section
    --  delimiter. If the section does not exist, then Invalid_Section is

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 86908077d306ae11de9c183c2418f8821a5dddd3..ad512588d8dee9dcf4c5e7e97b2701f5e64db3ca 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -856,7 +856,8 @@ package body Sem_Ch13 is
                  Attribute_Write          =>
                null;
 
-            --  Other cases are errors, which will be caught below
+            --  Other cases are errors ("attribute& cannot be set with
+            --  definition clause"), which will be caught below.
 
             when others =>
                null;