2007-09-12 Robert Dewar <dewar@adacore.com>

	* types.ads, a-charac.ads, freeze.adb: Minor reformatting.

	* a-except.adb, g-hesora.adb, g-speche.adb, lib.adb, lib.ads,
	lib-load.adb, lib-writ.adb, s-assert.adb, s-carun8.adb,
	s-casuti.adb, s-crc32.adb, s-exctab.adb, s-htable.adb, s-imgenu.adb,
	s-mastop.adb, s-memory.adb, s-memory.ads, s-secsta.adb, s-soflin.adb,
	s-sopco3.adb, s-sopco4.adb, s-sopco5.adb, s-stache.adb, s-stalib.adb,
	s-stoele.adb, s-strcom.adb, s-strops.adb, s-traceb.adb, s-traent.adb,
	s-wchcnv.adb, s-wchcon.adb, s-wchjis.adb, s-addope.adb, s-except.adb,
	s-os_lib.adb, s-string.adb, s-utf_32.adb,
	a-chlat1.ads, a-elchha.ads, a-except.ads, g-hesora.ads, g-htable.ads, 
	g-speche.ads, par-prag.adb, restrict.adb, restrict.ads, s-assert.ads, 
	s-carun8.ads, s-casuti.ads, s-crc32.ads, sem_ch11.adb, sem_prag.adb, 
	s-exctab.ads, s-htable.ads, s-imgenu.ads, s-mastop.ads, snames.adb, 
	snames.ads, snames.h, s-purexc.ads, s-secsta.ads, s-soflin.ads, 
	s-sopco3.ads, s-sopco4.ads, s-sopco5.ads, s-stache.ads, s-stalib.ads, 
	s-stoele.ads, s-strcom.ads, s-strops.ads, s-traceb.ads, s-traent.ads, 
	s-unstyp.ads, s-wchcnv.ads, s-wchcon.ads, s-wchjis.ads, s-addope.ads, 
	s-except.ads, s-os_lib.ads, s-string.ads, s-utf_32.ads: Implement
	pragma Compiler_Unit and adds it to relevant library units.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128426 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 151 insertions, 150 deletions

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