OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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.

From-SVN: r154796
This commit is contained in:
Arnaud Charlet 2009-11-30 14:33:46 +01:00
parent b8dfbe1ea5
commit 2558db6f93
3 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View 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

5
gcc/ada/gnat_ugn.texi
View 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

8
gcc/ada/osint.adb
View 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;