OSDN Git Service

2009-11-30 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 13:33:46 +0000 (13:33 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 13:33:46 +0000 (13:33 +0000)
* osint.adb (Executable_Name): Test the name instead of the name buffer
to check if there is a dot in the given name.

2009-11-30  Sergey Rybin  <rybin@adacore.com>

* gnat_ugn.texi: Update gnatcheck doc.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154796 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/gnat_ugn.texi
gcc/ada/osint.adb

index 9d9ddb8..6aa41d9 100644 (file)
@@ -1,3 +1,12 @@
+2009-11-30  Vincent Celier  <celier@adacore.com>
+
+       * osint.adb (Executable_Name): Test the name instead of the name buffer
+       to check if there is a dot in the given name.
+
+2009-11-30  Sergey Rybin  <rybin@adacore.com>
+
+       * gnat_ugn.texi: Update gnatcheck doc.
+
 2009-11-30  Robert Dewar  <dewar@adacore.com>
 
        * sem_ch3.adb, sem_disp.adb, usage.adb: Minor reformatting
index c8b8310..4f21857 100644 (file)
@@ -20874,14 +20874,13 @@ lines and end-of-line comments). There can be several rule options on a
 single line (separated by a space).
 
 A coding standard file may reference other coding standard files by including
-other @option{-from=@var{rule_option_filename}}
+more @option{-from=@var{rule_option_filename}}
 options, each such option being replaced with the content of the
 corresponding coding standard file during processing. In case a
 cycle is detected (that is, @file{@var{rule_file_1}} reads rule options
 from @file{@var{rule_file_2}}, and @file{@var{rule_file_2}} reads
 (directly or indirectly) rule options from @file{@var{rule_file_1}}),
-the processing of coding standard files is interrupted and a part of their
-content is ignored.
+processing fails with an error message.
 
 
 @node Adding the Results of Compiler Checks to gnatcheck Output
index 1fcff59..fd42107 100644 (file)
@@ -893,13 +893,13 @@ package body Osint is
 
             Add_Suffix := True;
             if Only_If_No_Suffix then
-               for J in reverse 1 .. Name_Len loop
-                  if Name_Buffer (J) = '.' then
+               for J in reverse Canonical_Name'Range loop
+                  if Canonical_Name (J) = '.' then
                      Add_Suffix := False;
                      exit;
 
-                  elsif Name_Buffer (J) = '/' or else
-                    Name_Buffer (J) = Directory_Separator
+                  elsif Canonical_Name (J) = '/' or else
+                        Canonical_Name (J) = Directory_Separator
                   then
                      exit;
                   end if;