From f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 21 Nov 2003 11:46:37 +0100 Subject: [multiple changes] 2003-11-20 Jerome Guitton * 5ztiitho.adb: Remove an unreferenced variable. 2003-11-20 Thomas Quinot * adaint.c: For FreeBSD, use mkstemp. 2003-11-20 Arnaud Charlet * gnatlbr.adb: Now reference Gnat_Static_Version_String. 2003-11-20 Robert Dewar * 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 * make.adb (Scan_Make_Args): Do not transmit --RTS= to gnatlink 2003-11-20 Sergey Rybin * 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 --- gcc/ada/types.ads | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gcc/ada/types.ads') 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 -- cgit v1.1