diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-21 11:46:37 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-21 11:46:37 +0100 |
| commit | f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba (patch) | |
| tree | 132085c540a6cf57220b0a3538e1675d09a58a83 /gcc/ada/gnatxref.adb | |
| parent | d91edf86b0cb904a88fc086d9580fcfa8ee53d3f (diff) | |
| download | gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.zip gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.tar.gz gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.tar.bz2 | |
[multiple changes]
2003-11-20 Jerome Guitton <guitton@act-europe.fr>
* 5ztiitho.adb: Remove an unreferenced variable.
2003-11-20 Thomas Quinot <quinot@act-europe.fr>
* adaint.c: For FreeBSD, use mkstemp.
2003-11-20 Arnaud Charlet <charlet@act-europe.fr>
* gnatlbr.adb: Now reference Gnat_Static_Version_String.
2003-11-20 Robert Dewar <dewar@gnat.com>
* bld.adb: Remove useless USE of gnatvsn
* gnatchop.adb: Minor reformatting
Clean up version handling to be more consistent
* gnatxref.adb: Minor reformatting
* gprcmd.adb: Minor reformatting
Fix output of copyright to be more consistent with other tools
2003-11-20 Vincent Celier <celier@gnat.com>
* make.adb (Scan_Make_Args): Do not transmit --RTS= to gnatlink
2003-11-20 Sergey Rybin <rybin@act-europe.fr>
* atree.adb (Initialize): Add initializations for global variables
used in New_Copy_Tree.
* cstand.adb (Create_Standard): Add call to Initialize_Scanner (with
Internal_Source_File as the actual).
Put the set of statements creating Any_Character before the set of
statements creating Any_Array to have Any_Character fully initialized
when it is used in creating Any_Array.
* scn.adb (Initialize_Scanner): Do not set Comes_From_Source ON and do
not call Scan in case if the actual is Internal_Source_File
Add 2003 to copyright note.
* sinput.adb (Source_First, Source_Last, Source_Text): Add code for
processing Internal_Source_File.
* types.ads: Add the constant Internal_Source_File representing the
source buffer for artificial source-code-like strings created within
the compiler (the definition of Source_File_Index is changed).
From-SVN: r73798
Diffstat (limited to 'gcc/ada/gnatxref.adb')
| -rw-r--r-- | gcc/ada/gnatxref.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb index 7e42958..a7b22d6 100644 --- a/gcc/ada/gnatxref.adb +++ b/gcc/ada/gnatxref.adb @@ -24,10 +24,10 @@ -- -- ------------------------------------------------------------------------------ -with Xr_Tabls; use Xr_Tabls; -with Xref_Lib; use Xref_Lib; -with Osint; use Osint; -with Types; use Types; +with Xr_Tabls; use Xr_Tabls; +with Xref_Lib; use Xref_Lib; +with Osint; use Osint; +with Types; use Types; with Gnatvsn; with Opt; @@ -35,10 +35,9 @@ with Opt; 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; +with GNAT.Strings; use GNAT.Strings; procedure Gnatxref is - Search_Unused : Boolean := False; Local_Symbols : Boolean := True; Prj_File : File_Name_String; @@ -209,8 +208,6 @@ procedure Gnatxref is ----------------- procedure Write_Usage is - use Ada.Text_IO; - begin Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String & " Copyright 1998-2003, Ada Core Technologies Inc."); |