2004-06-14 Pascal Obry <obry@gnat.com>

	* gnat_ugn.texi: Document relocatable vs. dynamic Library_Kind on
	Windows.  Fix minor typo.

	* mlib-tgt-mingw.adb: New implementation using the GCC -shared option
	which is now supported on Windows. With this implementation using the
	Library Project feature is no different on Windows than on UNIX.

2004-06-14  Vincent Celier  <celier@gnat.com>

	* makegpr.adb (Compile_Sources): Nothing to do when there are no
	non-Ada sources.

	* mlib-tgt-vxworks.adb (Library_Exists_For): Remove incorrect comment

	* prj-part.adb (Parse_Single_Project): When a duplicate project name is
	found, show the project name and the path of the previously parsed
	project file.

2004-06-14  Ed Schonberg  <schonberg@gnat.com>

	* exp_ch6.adb (Add_Call_By_Copy_Code): For an out-parameter that is an
	array, avoid copying the actual before the call.

2004-06-14  Thomas Quinot  <quinot@act-europe.fr>

	* g-debpoo.adb: Remove alignment assumptions from GNAT.Debug_Pools.
	Instead, allocate memory on worst-case alignment assumptions, and then
	return an aligned address within the allocated zone.

2004-06-14  Robert Dewar  <dewar@gnat.com>

	* bindgen.adb (Gen_Adainit_Ada): Do not generate external references to
	elab entities in predefined units in No_Run_Time_Mode.
	(Gen_Adainit_C): Same fix
	(Gen_Elab_Calls_Ada): Do not generate calls to elaborate predefined
	units in No_Run_Time_Mode
	(Gen_Elab_Calls_C): Same fix

	* symbols-vms-alpha.adb: Minor reformatting

	* g-debpoo.ads: Minor reformatting

	* lib.adb (In_Same_Extended_Unit): Version working on node id's

	* lib.ads (In_Same_Extended_Unit): Version working on node id's

	* lib-xref.adb: Minor cleanup, use new version of In_Same_Extended_Unit
	working on nodes.

	* make.adb: Minor reformatting

	* par-ch12.adb: Minor reformatting

	* par-prag.adb: Add dummy entry for pragma Profile_Warnings

	* prj-strt.adb: Minor reformatting

	* restrict.ads, restrict.adb: Redo handling of profile restrictions to
	be more general.

	* sem_attr.adb: Minor reformatting

	* sem_ch7.adb: Minor reformatting

	* sem_elab.adb (Check_A_Call): Deal with problem of calling init proc
	for type in the same unit as the object declaration.

	* sem_prag.adb (Check_Arg_Is_External_Name): New procedure, allows
	static string expressions and not just string literals.
	Minor reformatting
	(Set_Warning): Reset restriction warning flag for restriction pragma
	Implement pragma Profile_Warnings
	Implement pragma Profile (Restricted)
	Give obolescent messages for old restrictions and pragmas

	* snames.h, snames.ads, snames.adb: Add new entry for pragma
	Profile_Warnings.

	* s-rident.ads: Add declarations for restrictions required by profile
	Restricted and profile Ravenscar.

	* targparm.ads, targparm.adb: Allow pragma Profile in system.ads

	* gnat_ugn.texi: Correct some missing entries in the list of GNAT
	configuration pragmas.


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

1 files changed, 117 insertions, 116 deletions

diff --git a/gcc/ada/snames.h b/gcc/ada/snames.h
index 38033dae76c..29caf0e28b1 100644
--- a/gcc/ada/snames.h
+++ b/gcc/ada/snames.h
@@ -223,128 +223,129 @@ extern unsigned char Get_Pragma_Id (int);
 #define  Pragma_Persistent_Data              24
 #define  Pragma_Persistent_Object            25
 #define  Pragma_Profile                      26
-#define  Pragma_Propagate_Exceptions         27
-#define  Pragma_Queuing_Policy               28
-#define  Pragma_Ravenscar                    29
-#define  Pragma_Restricted_Run_Time          30
-#define  Pragma_Restrictions                 31
-#define  Pragma_Restriction_Warnings         32
-#define  Pragma_Reviewable                   33
-#define  Pragma_Source_File_Name             34
-#define  Pragma_Source_File_Name_Project     35
-#define  Pragma_Style_Checks                 36
-#define  Pragma_Suppress                     37
-#define  Pragma_Suppress_Exception_Locations 38
-#define  Pragma_Task_Dispatching_Policy      39
-#define  Pragma_Universal_Data               40
-#define  Pragma_Unsuppress                   41
-#define  Pragma_Use_VADS_Size                42
-#define  Pragma_Validity_Checks              43
-#define  Pragma_Warnings                     44
+#define  Pragma_Profile_Warnings             27
+#define  Pragma_Propagate_Exceptions         28
+#define  Pragma_Queuing_Policy               29
+#define  Pragma_Ravenscar                    30
+#define  Pragma_Restricted_Run_Time          31
+#define  Pragma_Restrictions                 32
+#define  Pragma_Restriction_Warnings         33
+#define  Pragma_Reviewable                   34
+#define  Pragma_Source_File_Name             35
+#define  Pragma_Source_File_Name_Project     36
+#define  Pragma_Style_Checks                 37
+#define  Pragma_Suppress                     38
+#define  Pragma_Suppress_Exception_Locations 39
+#define  Pragma_Task_Dispatching_Policy      40
+#define  Pragma_Universal_Data               41
+#define  Pragma_Unsuppress                   42
+#define  Pragma_Use_VADS_Size                43
+#define  Pragma_Validity_Checks              44
+#define  Pragma_Warnings                     45
 
 /* Remaining pragmas */
 
-#define  Pragma_Abort_Defer                  45
-#define  Pragma_All_Calls_Remote             46
-#define  Pragma_Annotate                     47
-#define  Pragma_Assert                       48
-#define  Pragma_Asynchronous                 49
-#define  Pragma_Atomic                       50
-#define  Pragma_Atomic_Components            51
-#define  Pragma_Attach_Handler               52
-#define  Pragma_Comment                      53
-#define  Pragma_Common_Object                54
-#define  Pragma_Complex_Representation       55
-#define  Pragma_Controlled                   56
-#define  Pragma_Convention                   57
-#define  Pragma_CPP_Class                    58
-#define  Pragma_CPP_Constructor              59
-#define  Pragma_CPP_Virtual                  60
-#define  Pragma_CPP_Vtable                   61
-#define  Pragma_Debug                        62
-#define  Pragma_Elaborate                    63
-#define  Pragma_Elaborate_All                64
-#define  Pragma_Elaborate_Body               65
-#define  Pragma_Export                       66
-#define  Pragma_Export_Exception             67
-#define  Pragma_Export_Function              68
-#define  Pragma_Export_Object                69
-#define  Pragma_Export_Procedure             70
-#define  Pragma_Export_Value                 71
-#define  Pragma_Export_Valued_Procedure      72
-#define  Pragma_External                     73
-#define  Pragma_Finalize_Storage_Only        74
-#define  Pragma_Ident                        75
-#define  Pragma_Import                       76
-#define  Pragma_Import_Exception             77
-#define  Pragma_Import_Function              78
-#define  Pragma_Import_Object                79
-#define  Pragma_Import_Procedure             80
-#define  Pragma_Import_Valued_Procedure      81
-#define  Pragma_Inline                       82
-#define  Pragma_Inline_Always                83
-#define  Pragma_Inline_Generic               84
-#define  Pragma_Inspection_Point             85
-#define  Pragma_Interface                    86
-#define  Pragma_Interface_Name               87
-#define  Pragma_Interrupt_Handler            88
-#define  Pragma_Interrupt_Priority           89
-#define  Pragma_Java_Constructor             90
-#define  Pragma_Java_Interface               91
-#define  Pragma_Keep_Names                   92
-#define  Pragma_Link_With                    93
-#define  Pragma_Linker_Alias                 94
-#define  Pragma_Linker_Options               95
-#define  Pragma_Linker_Section               96
-#define  Pragma_List                         97
-#define  Pragma_Machine_Attribute            98
-#define  Pragma_Main                         99
-#define  Pragma_Main_Storage                100
-#define  Pragma_Memory_Size                 101
-#define  Pragma_No_Return                   102
-#define  Pragma_Obsolescent                 103
-#define  Pragma_Optimize                    104
-#define  Pragma_Optional_Overriding         105
-#define  Pragma_Overriding                  106
-#define  Pragma_Pack                        107
-#define  Pragma_Page                        108
-#define  Pragma_Passive                     109
-#define  Pragma_Preelaborate                110
-#define  Pragma_Priority                    111
-#define  Pragma_Psect_Object                112
-#define  Pragma_Pure                        113
-#define  Pragma_Pure_Function               114
-#define  Pragma_Remote_Call_Interface       115
-#define  Pragma_Remote_Types                116
-#define  Pragma_Share_Generic               117
-#define  Pragma_Shared                      118
-#define  Pragma_Shared_Passive              119
-#define  Pragma_Source_Reference            120
-#define  Pragma_Stream_Convert              121
-#define  Pragma_Subtitle                    122
-#define  Pragma_Suppress_All                123
-#define  Pragma_Suppress_Debug_Info         124
-#define  Pragma_Suppress_Initialization     125
-#define  Pragma_System_Name                 126
-#define  Pragma_Task_Info                   127
-#define  Pragma_Task_Name                   128
-#define  Pragma_Task_Storage                129
-#define  Pragma_Thread_Body                 130
-#define  Pragma_Time_Slice                  131
-#define  Pragma_Title                       132
-#define  Pragma_Unchecked_Union             133
-#define  Pragma_Unimplemented_Unit          134
-#define  Pragma_Unreferenced                135
-#define  Pragma_Unreserve_All_Interrupts    136
-#define  Pragma_Volatile                    137
-#define  Pragma_Volatile_Components         138
-#define  Pragma_Weak_External               139
+#define  Pragma_Abort_Defer                  46
+#define  Pragma_All_Calls_Remote             47
+#define  Pragma_Annotate                     48
+#define  Pragma_Assert                       49
+#define  Pragma_Asynchronous                 50
+#define  Pragma_Atomic                       51
+#define  Pragma_Atomic_Components            52
+#define  Pragma_Attach_Handler               53
+#define  Pragma_Comment                      54
+#define  Pragma_Common_Object                55
+#define  Pragma_Complex_Representation       56
+#define  Pragma_Controlled                   57
+#define  Pragma_Convention                   58
+#define  Pragma_CPP_Class                    59
+#define  Pragma_CPP_Constructor              60
+#define  Pragma_CPP_Virtual                  61
+#define  Pragma_CPP_Vtable                   62
+#define  Pragma_Debug                        63
+#define  Pragma_Elaborate                    64
+#define  Pragma_Elaborate_All                65
+#define  Pragma_Elaborate_Body               66
+#define  Pragma_Export                       67
+#define  Pragma_Export_Exception             68
+#define  Pragma_Export_Function              69
+#define  Pragma_Export_Object                70
+#define  Pragma_Export_Procedure             71
+#define  Pragma_Export_Value                 72
+#define  Pragma_Export_Valued_Procedure      73
+#define  Pragma_External                     74
+#define  Pragma_Finalize_Storage_Only        75
+#define  Pragma_Ident                        76
+#define  Pragma_Import                       77
+#define  Pragma_Import_Exception             78
+#define  Pragma_Import_Function              79
+#define  Pragma_Import_Object                80
+#define  Pragma_Import_Procedure             81
+#define  Pragma_Import_Valued_Procedure      82
+#define  Pragma_Inline                       83
+#define  Pragma_Inline_Always                84
+#define  Pragma_Inline_Generic               85
+#define  Pragma_Inspection_Point             86
+#define  Pragma_Interface                    87
+#define  Pragma_Interface_Name               88
+#define  Pragma_Interrupt_Handler            89
+#define  Pragma_Interrupt_Priority           90
+#define  Pragma_Java_Constructor             91
+#define  Pragma_Java_Interface               92
+#define  Pragma_Keep_Names                   93
+#define  Pragma_Link_With                    94
+#define  Pragma_Linker_Alias                 95
+#define  Pragma_Linker_Options               96
+#define  Pragma_Linker_Section               97
+#define  Pragma_List                         98
+#define  Pragma_Machine_Attribute            99
+#define  Pragma_Main                        100
+#define  Pragma_Main_Storage                101
+#define  Pragma_Memory_Size                 102
+#define  Pragma_No_Return                   103
+#define  Pragma_Obsolescent                 104
+#define  Pragma_Optimize                    105
+#define  Pragma_Optional_Overriding         106
+#define  Pragma_Overriding                  107
+#define  Pragma_Pack                        108
+#define  Pragma_Page                        109
+#define  Pragma_Passive                     110
+#define  Pragma_Preelaborate                111
+#define  Pragma_Priority                    112
+#define  Pragma_Psect_Object                113
+#define  Pragma_Pure                        114
+#define  Pragma_Pure_Function               115
+#define  Pragma_Remote_Call_Interface       116
+#define  Pragma_Remote_Types                117
+#define  Pragma_Share_Generic               118
+#define  Pragma_Shared                      119
+#define  Pragma_Shared_Passive              120
+#define  Pragma_Source_Reference            121
+#define  Pragma_Stream_Convert              122
+#define  Pragma_Subtitle                    123
+#define  Pragma_Suppress_All                124
+#define  Pragma_Suppress_Debug_Info         125
+#define  Pragma_Suppress_Initialization     126
+#define  Pragma_System_Name                 127
+#define  Pragma_Task_Info                   128
+#define  Pragma_Task_Name                   129
+#define  Pragma_Task_Storage                130
+#define  Pragma_Thread_Body                 131
+#define  Pragma_Time_Slice                  132
+#define  Pragma_Title                       133
+#define  Pragma_Unchecked_Union             134
+#define  Pragma_Unimplemented_Unit          135
+#define  Pragma_Unreferenced                136
+#define  Pragma_Unreserve_All_Interrupts    137
+#define  Pragma_Volatile                    138
+#define  Pragma_Volatile_Components         139
+#define  Pragma_Weak_External               140
 
 /* The following are deliberately out of alphabetical order, see Snames */
 
-#define  Pragma_AST_Entry                   140
-#define  Pragma_Storage_Size                141
-#define  Pragma_Storage_Unit                142
+#define  Pragma_AST_Entry                   141
+#define  Pragma_Storage_Size                142
+#define  Pragma_Storage_Unit                143
 
 /* Define the numeric values for the conventions.  */