ali-util.adb (Get_File_Checksum): Update to account for change in profile of Initialize_Scanner.

2006-02-13  Thomas Quinot  <quinot@adacore.com>
	    Vincent Celier  <celier@adacore.com>
	    Robert Dewar  <dewar@adacore.com>

	* ali-util.adb (Get_File_Checksum): Update to account for change in
	profile of Initialize_Scanner.

	* gprep.adb (Gnatprep): Update to account for change in profile of
	Initialize_Scanner.
	(Process_One_File): Same.

	* lib.adb (Get_Code_Or_Source_Unit): New subprogram factoring the
	common code between Get_Code_Unit and Get_Source_Unit. Reimplement
	that behaviour using the new Unit information recorded in the source
	files table, rather than going through all units every time.
	(Get_Code_Unit): Reimplement in terms of Get_Code_Or_Source_Unit.
	(Get_Source_Unit): Same.

	* prepcomp.adb (Parse_Preprocessing_Data_File): Update to account for
	change in profile of Initialize_Scanner.
	(Prepare_To_Preprocess): Same.

	* lib.ads: Fix typo in comment (templace -> template).

	* prj-part.adb (Parse_Single_Project): Update to account for change in
	profile of Initialize_Scanner.

	* scn.adb (Initialize_Scanner): Account for change in profile of
	Scng.Initialize_Scanner: set Current_Source_Unit in Scn instead of Scng.
	Also record the association of the given Source_File_Index to the
	corresponding Unit_Number_Type.

	* scng.ads, scng.adb (Initialize_Scanner.Set_Reserved): Remove
	procedure.
	(Initialize_Scanner): Call Scans.Initialize_Ada_Keywords.
	Remove Unit formal for generic scanner: this formal
	is only relevant to Scn (the scanner instance used to parse Ada source
	files), not to other instances. Update comment accordingly.
	(Scan): Use new function Snames.Is_Keyword_Name.

	* sinfo-cn.adb: Fix typo in comment.

	* sinput.adb (Unit, Set_Unit): Accessors for new source file attribute
	Unit.

	* sinput.ads (Source_File_Record): New component Unit, used to capture
	the unit identifier (if any) associated to a source file.

	* sinput-c.adb, sinput-l.adb (Load_File): Initialize new component
	Unit in Source_File_Record.

	* sinput-p.adb (Source_File_Is_Subunit): Update to account for change
	in profile of Initialize_Scanner.

	* scans.adb (Initialize_Ada_Keywords): New procedure

	* scans.ads (Initialize_Ada_Keywords): New procedure to initialize the
	Ada keywords in the Namet table, without the need to call
	Initialize_Scanner.

	* snames.adb: Add pragma Ada_2005 (synonym for Ada_05)
	(Is_Keyword_Name): New function

	* snames.ads: Add subtype Configuration_Pragma_Names
	Add pragma Ada_2005 (synonym for Ada_05)
	(Is_Keyword_Name): New function

	* snames.h: Add pragma Ada_2005 (synonym for Ada_05)

From-SVN: r111032

1 files changed, 149 insertions, 148 deletions

diff --git a/gcc/ada/snames.h b/gcc/ada/snames.h
index d16232e435a..106473070f4 100644
--- a/gcc/ada/snames.h
+++ b/gcc/ada/snames.h
@@ -6,7 +6,7 @@
  *                                                                          *
  *                              C Header File                               *
  *                                                                          *
- *          Copyright (C) 1992-2005, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2006, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -215,152 +215,153 @@ extern unsigned char Get_Pragma_Id (int);
 #define  Pragma_Ada_83                        0
 #define  Pragma_Ada_95                        1
 #define  Pragma_Ada_05                        2
-#define  Pragma_Assertion_Policy              3
-#define  Pragma_C_Pass_By_Copy                4
-#define  Pragma_Compile_Time_Warning          5
-#define  Pragma_Component_Alignment           6
-#define  Pragma_Convention_Identifier         7
-#define  Pragma_Debug_Policy                  8
-#define  Pragma_Detect_Blocking               9
-#define  Pragma_Discard_Names                 10
-#define  Pragma_Elaboration_Checks            11
-#define  Pragma_Eliminate                     12
-#define  Pragma_Explicit_Overriding           13
-#define  Pragma_Extend_System                 14
-#define  Pragma_Extensions_Allowed            15
-#define  Pragma_External_Name_Casing          16
-#define  Pragma_Float_Representation          17
-#define  Pragma_Initialize_Scalars            18
-#define  Pragma_Interrupt_State               19
-#define  Pragma_License                       20
-#define  Pragma_Locking_Policy                21
-#define  Pragma_Long_Float                    22
-#define  Pragma_No_Run_Time                   23
-#define  Pragma_No_Strict_Aliasing            24
-#define  Pragma_Normalize_Scalars             25
-#define  Pragma_Polling                       26
-#define  Pragma_Persistent_BSS                27
-#define  Pragma_Profile                       28
-#define  Pragma_Profile_Warnings              29
-#define  Pragma_Propagate_Exceptions          30
-#define  Pragma_Queuing_Policy                31
-#define  Pragma_Ravenscar                     32
-#define  Pragma_Restricted_Run_Time           33
-#define  Pragma_Restrictions                  34
-#define  Pragma_Restriction_Warnings          35
-#define  Pragma_Reviewable                    36
-#define  Pragma_Source_File_Name              37
-#define  Pragma_Source_File_Name_Project      38
-#define  Pragma_Style_Checks                  39
-#define  Pragma_Suppress                      40
-#define  Pragma_Suppress_Exception_Locations  41
-#define  Pragma_Task_Dispatching_Policy       42
-#define  Pragma_Universal_Data                43
-#define  Pragma_Unsuppress                    44
-#define  Pragma_Use_VADS_Size                 45
-#define  Pragma_Validity_Checks               46
-#define  Pragma_Warnings                      47
-#define  Pragma_Abort_Defer                   48
-#define  Pragma_All_Calls_Remote              49
-#define  Pragma_Annotate                      50
-#define  Pragma_Assert                        51
-#define  Pragma_Asynchronous                  52
-#define  Pragma_Atomic                        53
-#define  Pragma_Atomic_Components             54
-#define  Pragma_Attach_Handler                55
-#define  Pragma_Comment                       56
-#define  Pragma_Common_Object                 57
-#define  Pragma_Complete_Representation       58
-#define  Pragma_Complex_Representation        59
-#define  Pragma_Controlled                    60
-#define  Pragma_Convention                    61
-#define  Pragma_CPP_Class                     62
-#define  Pragma_CPP_Constructor               63
-#define  Pragma_CPP_Virtual                   64
-#define  Pragma_CPP_Vtable                    65
-#define  Pragma_Debug                         66
-#define  Pragma_Elaborate                     67
-#define  Pragma_Elaborate_All                 68
-#define  Pragma_Elaborate_Body                69
-#define  Pragma_Export                        70
-#define  Pragma_Export_Exception              71
-#define  Pragma_Export_Function               72
-#define  Pragma_Export_Object                 73
-#define  Pragma_Export_Procedure              74
-#define  Pragma_Export_Value                  75
-#define  Pragma_Export_Valued_Procedure       76
-#define  Pragma_External                      77
-#define  Pragma_Finalize_Storage_Only         78
-#define  Pragma_Ident                         79
-#define  Pragma_Import                        80
-#define  Pragma_Import_Exception              81
-#define  Pragma_Import_Function               82
-#define  Pragma_Import_Object                 83
-#define  Pragma_Import_Procedure              84
-#define  Pragma_Import_Valued_Procedure       85
-#define  Pragma_Inline                        86
-#define  Pragma_Inline_Always                 87
-#define  Pragma_Inline_Generic                88
-#define  Pragma_Inspection_Point              89
-#define  Pragma_Interface_Name                90
-#define  Pragma_Interrupt_Handler             91
-#define  Pragma_Interrupt_Priority            92
-#define  Pragma_Java_Constructor              93
-#define  Pragma_Java_Interface                94
-#define  Pragma_Keep_Names                    95
-#define  Pragma_Link_With                     96
-#define  Pragma_Linker_Alias                  97
-#define  Pragma_Linker_Constructor            98
-#define  Pragma_Linker_Destructor             99
-#define  Pragma_Linker_Options                100
-#define  Pragma_Linker_Section                101
-#define  Pragma_List                          102
-#define  Pragma_Machine_Attribute             103
-#define  Pragma_Main                          104
-#define  Pragma_Main_Storage                  105
-#define  Pragma_Memory_Size                   106
-#define  Pragma_No_Return                     107
-#define  Pragma_Obsolescent                   108
-#define  Pragma_Optimize                      109
-#define  Pragma_Optional_Overriding           110
-#define  Pragma_Pack                          111
-#define  Pragma_Page                          112
-#define  Pragma_Passive                       113
-#define  Pragma_Preelaborate                  114
-#define  Pragma_Preelaborate_05               115
-#define  Pragma_Priority                      116
-#define  Pragma_Psect_Object                  117
-#define  Pragma_Pure                          118
-#define  Pragma_Pure_05                       119
-#define  Pragma_Pure_Function                 120
-#define  Pragma_Remote_Call_Interface         121
-#define  Pragma_Remote_Types                  122
-#define  Pragma_Share_Generic                 123
-#define  Pragma_Shared                        124
-#define  Pragma_Shared_Passive                125
-#define  Pragma_Source_Reference              126
-#define  Pragma_Stream_Convert                127
-#define  Pragma_Subtitle                      128
-#define  Pragma_Suppress_All                  129
-#define  Pragma_Suppress_Debug_Info           130
-#define  Pragma_Suppress_Initialization       131
-#define  Pragma_System_Name                   132
-#define  Pragma_Task_Info                     133
-#define  Pragma_Task_Name                     134
-#define  Pragma_Task_Storage                  135
-#define  Pragma_Thread_Body                   136
-#define  Pragma_Time_Slice                    137
-#define  Pragma_Title                         138
-#define  Pragma_Unchecked_Union               139
-#define  Pragma_Unimplemented_Unit            140
-#define  Pragma_Unreferenced                  141
-#define  Pragma_Unreserve_All_Interrupts      142
-#define  Pragma_Volatile                      143
-#define  Pragma_Volatile_Components           144
-#define  Pragma_Weak_External                 145
-#define  Pragma_AST_Entry                     146
-#define  Pragma_Interface                     147
-#define  Pragma_Storage_Size                  148
-#define  Pragma_Storage_Unit                  149
+#define  Pragma_Ada_2005                      3
+#define  Pragma_Assertion_Policy              4
+#define  Pragma_C_Pass_By_Copy                5
+#define  Pragma_Compile_Time_Warning          6
+#define  Pragma_Component_Alignment           7
+#define  Pragma_Convention_Identifier         8
+#define  Pragma_Debug_Policy                  9
+#define  Pragma_Detect_Blocking               10
+#define  Pragma_Discard_Names                 11
+#define  Pragma_Elaboration_Checks            12
+#define  Pragma_Eliminate                     13
+#define  Pragma_Explicit_Overriding           14
+#define  Pragma_Extend_System                 15
+#define  Pragma_Extensions_Allowed            16
+#define  Pragma_External_Name_Casing          17
+#define  Pragma_Float_Representation          18
+#define  Pragma_Initialize_Scalars            19
+#define  Pragma_Interrupt_State               20
+#define  Pragma_License                       21
+#define  Pragma_Locking_Policy                22
+#define  Pragma_Long_Float                    23
+#define  Pragma_No_Run_Time                   24
+#define  Pragma_No_Strict_Aliasing            25
+#define  Pragma_Normalize_Scalars             26
+#define  Pragma_Polling                       27
+#define  Pragma_Persistent_BSS                28
+#define  Pragma_Profile                       29
+#define  Pragma_Profile_Warnings              30
+#define  Pragma_Propagate_Exceptions          31
+#define  Pragma_Queuing_Policy                32
+#define  Pragma_Ravenscar                     33
+#define  Pragma_Restricted_Run_Time           34
+#define  Pragma_Restrictions                  35
+#define  Pragma_Restriction_Warnings          36
+#define  Pragma_Reviewable                    37
+#define  Pragma_Source_File_Name              38
+#define  Pragma_Source_File_Name_Project      39
+#define  Pragma_Style_Checks                  40
+#define  Pragma_Suppress                      41
+#define  Pragma_Suppress_Exception_Locations  42
+#define  Pragma_Task_Dispatching_Policy       43
+#define  Pragma_Universal_Data                44
+#define  Pragma_Unsuppress                    45
+#define  Pragma_Use_VADS_Size                 46
+#define  Pragma_Validity_Checks               47
+#define  Pragma_Warnings                      48
+#define  Pragma_Abort_Defer                   49
+#define  Pragma_All_Calls_Remote              50
+#define  Pragma_Annotate                      51
+#define  Pragma_Assert                        52
+#define  Pragma_Asynchronous                  53
+#define  Pragma_Atomic                        54
+#define  Pragma_Atomic_Components             55
+#define  Pragma_Attach_Handler                56
+#define  Pragma_Comment                       57
+#define  Pragma_Common_Object                 58
+#define  Pragma_Complete_Representation       59
+#define  Pragma_Complex_Representation        60
+#define  Pragma_Controlled                    61
+#define  Pragma_Convention                    62
+#define  Pragma_CPP_Class                     63
+#define  Pragma_CPP_Constructor               64
+#define  Pragma_CPP_Virtual                   65
+#define  Pragma_CPP_Vtable                    66
+#define  Pragma_Debug                         67
+#define  Pragma_Elaborate                     68
+#define  Pragma_Elaborate_All                 69
+#define  Pragma_Elaborate_Body                70
+#define  Pragma_Export                        71
+#define  Pragma_Export_Exception              72
+#define  Pragma_Export_Function               73
+#define  Pragma_Export_Object                 74
+#define  Pragma_Export_Procedure              75
+#define  Pragma_Export_Value                  76
+#define  Pragma_Export_Valued_Procedure       77
+#define  Pragma_External                      78
+#define  Pragma_Finalize_Storage_Only         79
+#define  Pragma_Ident                         80
+#define  Pragma_Import                        81
+#define  Pragma_Import_Exception              82
+#define  Pragma_Import_Function               83
+#define  Pragma_Import_Object                 84
+#define  Pragma_Import_Procedure              85
+#define  Pragma_Import_Valued_Procedure       86
+#define  Pragma_Inline                        87
+#define  Pragma_Inline_Always                 88
+#define  Pragma_Inline_Generic                89
+#define  Pragma_Inspection_Point              90
+#define  Pragma_Interface_Name                91
+#define  Pragma_Interrupt_Handler             92
+#define  Pragma_Interrupt_Priority            93
+#define  Pragma_Java_Constructor              94
+#define  Pragma_Java_Interface                95
+#define  Pragma_Keep_Names                    96
+#define  Pragma_Link_With                     97
+#define  Pragma_Linker_Alias                  98
+#define  Pragma_Linker_Constructor            99
+#define  Pragma_Linker_Destructor             100
+#define  Pragma_Linker_Options                101
+#define  Pragma_Linker_Section                102
+#define  Pragma_List                          103
+#define  Pragma_Machine_Attribute             104
+#define  Pragma_Main                          105
+#define  Pragma_Main_Storage                  106
+#define  Pragma_Memory_Size                   107
+#define  Pragma_No_Return                     108
+#define  Pragma_Obsolescent                   109
+#define  Pragma_Optimize                      110
+#define  Pragma_Optional_Overriding           111
+#define  Pragma_Pack                          112
+#define  Pragma_Page                          113
+#define  Pragma_Passive                       114
+#define  Pragma_Preelaborate                  115
+#define  Pragma_Preelaborate_05               116
+#define  Pragma_Priority                      117
+#define  Pragma_Psect_Object                  118
+#define  Pragma_Pure                          119
+#define  Pragma_Pure_05                       120
+#define  Pragma_Pure_Function                 121
+#define  Pragma_Remote_Call_Interface         122
+#define  Pragma_Remote_Types                  123
+#define  Pragma_Share_Generic                 124
+#define  Pragma_Shared                        125
+#define  Pragma_Shared_Passive                126
+#define  Pragma_Source_Reference              127
+#define  Pragma_Stream_Convert                128
+#define  Pragma_Subtitle                      129
+#define  Pragma_Suppress_All                  130
+#define  Pragma_Suppress_Debug_Info           131
+#define  Pragma_Suppress_Initialization       132
+#define  Pragma_System_Name                   133
+#define  Pragma_Task_Info                     134
+#define  Pragma_Task_Name                     135
+#define  Pragma_Task_Storage                  136
+#define  Pragma_Thread_Body                   137
+#define  Pragma_Time_Slice                    138
+#define  Pragma_Title                         139
+#define  Pragma_Unchecked_Union               140
+#define  Pragma_Unimplemented_Unit            141
+#define  Pragma_Unreferenced                  142
+#define  Pragma_Unreserve_All_Interrupts      143
+#define  Pragma_Volatile                      144
+#define  Pragma_Volatile_Components           145
+#define  Pragma_Weak_External                 146
+#define  Pragma_AST_Entry                     147
+#define  Pragma_Interface                     148
+#define  Pragma_Storage_Size                  149
+#define  Pragma_Storage_Unit                  150
 
 /* End of snames.h (C version of Snames package spec) */