[multiple changes]

2004-02-09  Ed Schonberg  <schonberg@gnat.com>

	* exp_ch4.adb (Expand_N_Op_Eq): When looking for the primitive equality
	for a tagged type, verify that both formals have the same type.

	* exp_ch6.adb (Add_Call_By_Copy_Code): Initialize properly the
	temporary when the formal is an in-parameter and the actual a possibly
	unaligned slice.

	* exp_ch9.adb (Expand_Entry_Barrier): Resolve barrier expression even
	when expansion is disabled, to ensure proper name capture with
	overloaded literals.  Condition can be of any boolean type, resolve
	accordingly.

	* sem_ch8.adb (Analyze_Subprogram_Renaming): Emit warning if the
	renaming is for a formal subprogram with a default operator name, and
	there is a usable operator that is visible at the point of
	instantiation.

2004-02-09  Robert Dewar  <dewar@gnat.com>

	* ali.adb (Scan_Ali) Add Ignore_Errors argument. This is a major
	rewrite to ignore errors in ali files, intended to allow tools downward
	compatibility with new versions of ali files.

	* ali.ads: Add new parameter Ignore_Errors

	* bcheck.adb (Check_Consistent_Restrictions): Fix error of sometimes
	duplicating the error message giving the file with restrictions.

	* debug.adb: Add debug flag I for gnatbind

	* errout.adb (Set_Msg_Insertion_Node): Suppress extra quotes around
	operators for the case where the operator is a defining operator.

	* exp_ch3.adb: Minor reformatting (new function spec format).

	* exp_ch4.adb: Add comment for previous change, and make minor
	adjustment to loop to always check for improper loop termination.
	Minor reformatting throughout (new function spec format).

	* gnatbind.adb: Implement -di debug flag for gnatbind

	* gnatlink.adb: Call Scan_ALI with Ignore_Errors set to True

	* gnatls.adb: Call Scan_ALI with Ignore_Errors set to True

	* lib-load.adb: Fix bad assertion.
	Found by testing and code reading.
	Minor reformatting.

	* lib-load.ads: Minor reformatting.

	* lib-writ.adb: There is only one R line now.

	* lib-writ.ads: Add documentation on making downward compatible changes
	to ali files so old tools work with new ali files.
	There is only one R line now.
	Add documentation on format incompatibilities (with special GPS note)

	* namet.ads, namet.adb: (Is_Operator_Name): New procedure

	* par-load.adb: Minor reformatting

	* sem_ch8.adb: Fix to error message from last update
	Minor reformatting and restructuring of code from last update

	* par-prag.adb, snames.adb, snames.ads, snames.h,
	sem_prag.adb: Implement pragma Profile.

	* stylesw.adb: Implement -gnatyN switch to turn off all style check
	options.

	* usage.adb: Add line for -gnatyN switch

	* vms_data.ads: Add entry STYLE_CHECKS=NONE for -gnatyN

From-SVN: r77537

1 files changed, 118 insertions, 117 deletions

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