diff options
| author | Bob Duff <duff@adacore.com> | 2010-06-23 10:13:57 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-23 12:13:57 +0200 |
| commit | b91fccb300b34982baaf684c25d4d973df16fb4f (patch) | |
| tree | 9eda23f9c2e949a650845aba07d65f0cce0074fd | |
| parent | 0eed45bbe286757689d39d5f345842b67c023ce4 (diff) | |
| download | gcc-b91fccb300b34982baaf684c25d4d973df16fb4f.zip gcc-b91fccb300b34982baaf684c25d4d973df16fb4f.tar.gz gcc-b91fccb300b34982baaf684c25d4d973df16fb4f.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/g-comlin.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 3 |
3 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6874fe5..d3e7b3c 100644 --- 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 8752ddc..7285fe3 100644 --- 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 8690807..ad51258 100644 --- 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; |