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/types.ads | |
| 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/types.ads')
| -rw-r--r-- | gcc/ada/types.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index a93dbb4..a2c1598 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -569,9 +569,14 @@ pragma Preelaborate (Types); No_Unit : constant Unit_Number_Type := -1; -- Special value used to signal no unit - type Source_File_Index is new Nat; + type Source_File_Index is new Int range -1 .. Int'Last; -- Type used to index the source file table (see package Sinput) + Internal_Source_File : constant Source_File_Index := + Source_File_Index'First; + -- Value used to indicate the buffer for the source-code-like strings + -- internally created withing the compiler (see package Sinput) + No_Source_File : constant Source_File_Index := 0; -- Value used to indicate no source file present |