diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
| commit | 5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6 (patch) | |
| tree | cc56ad2870547da06116c5f927b552a16d94614f /gcc/ada/gnatfind.adb | |
| parent | 63740d1a0b295bd19f3e92ee45b817cc932b5c4a (diff) | |
| download | gcc-5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6.tar.gz | |
* ug_words, gnat_ugn.texi: Added alpha-ivms transitioning section to
porting guide chapter (vms version).
Revised doc title (removed "for native platforms") and subtitle.
Add discussion on warning flag for obsolescent features. First we
note that it applies to obsolete GNAT features, which was previously
omitted. Second we contrast the behavior with that of the new
Ada 2005 AI-368 restriction No_Obsolescent_Features.
Preliminary rewriting of GNAT & libraries chapter in order to take
into account default project locations & new project manager
capabilities.
* cstand.adb (Create_Operators): Clean up format and documentation of
unary and binary operator result tables. No change in code, just
reformatting and addition of comments.
* errout.ads, gnatfind.adb, s-maccod.ads, sem.adb,
sem_ch2.adb: Minor reformatting
* atree.ads, elists.ads, lib.ads, namet.ads, nlists.ads, repinfo.ads,
sinput.ads, stringt.ads, uintp.ads, urealp.ads: Minor clarification to
comments for Tree_Read and Tree_Write.
* exp_attr.ads: Minor reformatting.
* comperr.adb (Compiler_Abort): Add specialized message for GAP
versions.
* exp_pakd.adb (Create_Packed_Array_Type): Add a guard to check
whether the ancestor type is private, as may be the case with nested
instantiations.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92852 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatfind.adb')
| -rw-r--r-- | gcc/ada/gnatfind.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb index 44abac594c2..980f31febb8 100644 --- a/gcc/ada/gnatfind.adb +++ b/gcc/ada/gnatfind.adb @@ -36,9 +36,10 @@ with Ada.Strings.Fixed; use Ada.Strings.Fixed; with Ada.Text_IO; use Ada.Text_IO; with GNAT.Command_Line; use GNAT.Command_Line; with GNAT.Strings; use GNAT.Strings; ---------------- --- Gnatfind -- ---------------- + +-------------- +-- Gnatfind -- +-------------- procedure Gnatfind is Output_Ref : Boolean := False; @@ -208,6 +209,7 @@ procedure Gnatfind is end if; -- Next arguments are the files to search + else Add_Xref_File (S); Wide_Search := False; |