sem_attr.adb: Implement Machine_Rounding attribute

2005-11-14  Robert Dewar  <dewar@adacore.com>
	    Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_attr.adb: Implement Machine_Rounding attribute
	(Analyze_Access_Attribute): The access attribute may appear within an
	aggregate that has been expanded into a loop.
	(Check_Task_Prefix): Add semantic check for attribute 'Callable and
	'Terminated whenever the prefix is of a task interface class-wide type.
	(Analyze_Attribute): Add semantic check for attribute 'Identity whenever
	the prefix is of a task interface class-wide type.

	* s-vaflop-vms-alpha.adb: Valid_D, Valid_F, Valid_G: Make Val constant
	to avoid warnings.

	* s-fatgen.ads, s-fatgen.adb (Machine_Rounding): New function
	Remove pragma Inline for [Unaligned_]Valid.
	Add comments that Valid routines do not work for Vax_Float

	* exp_attr.adb: Implement Machine_Rounding attribute

	* snames.h: Add entry for Machine_Rounding attribute

From-SVN: r106970

1 files changed, 86 insertions, 85 deletions

diff --git a/gcc/ada/snames.h b/gcc/ada/snames.h
index 0ff742e..7b0c2ee 100644
--- a/gcc/ada/snames.h
+++ b/gcc/ada/snames.h
@@ -95,91 +95,92 @@ extern unsigned char Get_Attribute_Id (int);
 #define  Attr_Machine_Mantissa              47
 #define  Attr_Machine_Overflows             48
 #define  Attr_Machine_Radix                 49
-#define  Attr_Machine_Rounds                50
-#define  Attr_Machine_Size                  51
-#define  Attr_Mantissa                      52
-#define  Attr_Max_Size_In_Storage_Elements  53
-#define  Attr_Maximum_Alignment             54
-#define  Attr_Mechanism_Code                55
-#define  Attr_Mod                           56
-#define  Attr_Model_Emin                    57
-#define  Attr_Model_Epsilon                 58
-#define  Attr_Model_Mantissa                59
-#define  Attr_Model_Small                   60
-#define  Attr_Modulus                       61
-#define  Attr_Null_Parameter                62
-#define  Attr_Object_Size                   63
-#define  Attr_Partition_ID                  64
-#define  Attr_Passed_By_Reference           65
-#define  Attr_Pool_Address                  66
-#define  Attr_Pos                           67
-#define  Attr_Position                      68
-#define  Attr_Range                         69
-#define  Attr_Range_Length                  70
-#define  Attr_Round                         71
-#define  Attr_Safe_Emax                     72
-#define  Attr_Safe_First                    73
-#define  Attr_Safe_Large                    74
-#define  Attr_Safe_Last                     75
-#define  Attr_Safe_Small                    76
-#define  Attr_Scale                         77
-#define  Attr_Scaling                       78
-#define  Attr_Signed_Zeros                  79
-#define  Attr_Size                          80
-#define  Attr_Small                         81
-#define  Attr_Storage_Size                  82
-#define  Attr_Storage_Unit                  83
-#define  Attr_Stream_Size                   84
-#define  Attr_Tag                           85
-#define  Attr_Target_Name                   86
-#define  Attr_Terminated                    87
-#define  Attr_To_Address                    88
-#define  Attr_Type_Class                    89
-#define  Attr_UET_Address                   90
-#define  Attr_Unbiased_Rounding             91
-#define  Attr_Unchecked_Access              92
-#define  Attr_Unconstrained_Array           93
-#define  Attr_Universal_Literal_String      94
-#define  Attr_Unrestricted_Access           95
-#define  Attr_VADS_Size                     96
-#define  Attr_Val                           97
-#define  Attr_Valid                         98
-#define  Attr_Value_Size                    99
-#define  Attr_Version                       100
-#define  Attr_Wchar_T_Size                  101
-#define  Attr_Wide_Wide_Width               102
-#define  Attr_Wide_Width                    103
-#define  Attr_Width                         104
-#define  Attr_Word_Size                     105
-#define  Attr_Adjacent                      106
-#define  Attr_Ceiling                       107
-#define  Attr_Copy_Sign                     108
-#define  Attr_Floor                         109
-#define  Attr_Fraction                      110
-#define  Attr_Image                         111
-#define  Attr_Input                         112
-#define  Attr_Machine                       113
-#define  Attr_Max                           114
-#define  Attr_Min                           115
-#define  Attr_Model                         116
-#define  Attr_Pred                          117
-#define  Attr_Remainder                     118
-#define  Attr_Rounding                      119
-#define  Attr_Succ                          120
-#define  Attr_Truncation                    121
-#define  Attr_Value                         122
-#define  Attr_Wide_Image                    123
-#define  Attr_Wide_Wide_Image               124
-#define  Attr_Wide_Value                    125
-#define  Attr_Wide_Wide_Value               126
-#define  Attr_Output                        127
-#define  Attr_Read                          128
-#define  Attr_Write                         129
-#define  Attr_Elab_Body                     130
-#define  Attr_Elab_Spec                     131
-#define  Attr_Storage_Pool                  132
-#define  Attr_Base                          133
-#define  Attr_Class                         134
+#define  Attr_Machine_Rounding              50
+#define  Attr_Machine_Rounds                51
+#define  Attr_Machine_Size                  52
+#define  Attr_Mantissa                      53
+#define  Attr_Max_Size_In_Storage_Elements  54
+#define  Attr_Maximum_Alignment             55
+#define  Attr_Mechanism_Code                56
+#define  Attr_Mod                           57
+#define  Attr_Model_Emin                    58
+#define  Attr_Model_Epsilon                 59
+#define  Attr_Model_Mantissa                60
+#define  Attr_Model_Small                   61
+#define  Attr_Modulus                       62
+#define  Attr_Null_Parameter                63
+#define  Attr_Object_Size                   64
+#define  Attr_Partition_ID                  65
+#define  Attr_Passed_By_Reference           66
+#define  Attr_Pool_Address                  67
+#define  Attr_Pos                           68
+#define  Attr_Position                      69
+#define  Attr_Range                         70
+#define  Attr_Range_Length                  71
+#define  Attr_Round                         72
+#define  Attr_Safe_Emax                     73
+#define  Attr_Safe_First                    74
+#define  Attr_Safe_Large                    75
+#define  Attr_Safe_Last                     76
+#define  Attr_Safe_Small                    77
+#define  Attr_Scale                         78
+#define  Attr_Scaling                       79
+#define  Attr_Signed_Zeros                  80
+#define  Attr_Size                          81
+#define  Attr_Small                         82
+#define  Attr_Storage_Size                  83
+#define  Attr_Storage_Unit                  84
+#define  Attr_Stream_Size                   85
+#define  Attr_Tag                           86
+#define  Attr_Target_Name                   87
+#define  Attr_Terminated                    88
+#define  Attr_To_Address                    89
+#define  Attr_Type_Class                    90
+#define  Attr_UET_Address                   91
+#define  Attr_Unbiased_Rounding             92
+#define  Attr_Unchecked_Access              93
+#define  Attr_Unconstrained_Array           94
+#define  Attr_Universal_Literal_String      95
+#define  Attr_Unrestricted_Access           96
+#define  Attr_VADS_Size                     97
+#define  Attr_Val                           98
+#define  Attr_Valid                         99
+#define  Attr_Value_Size                    100
+#define  Attr_Version                       101
+#define  Attr_Wchar_T_Size                  102
+#define  Attr_Wide_Wide_Width               103
+#define  Attr_Wide_Width                    104
+#define  Attr_Width                         105
+#define  Attr_Word_Size                     106
+#define  Attr_Adjacent                      107
+#define  Attr_Ceiling                       108
+#define  Attr_Copy_Sign                     109
+#define  Attr_Floor                         110
+#define  Attr_Fraction                      111
+#define  Attr_Image                         112
+#define  Attr_Input                         113
+#define  Attr_Machine                       114
+#define  Attr_Max                           115
+#define  Attr_Min                           116
+#define  Attr_Model                         117
+#define  Attr_Pred                          118
+#define  Attr_Remainder                     119
+#define  Attr_Rounding                      120
+#define  Attr_Succ                          121
+#define  Attr_Truncation                    122
+#define  Attr_Value                         123
+#define  Attr_Wide_Image                    124
+#define  Attr_Wide_Wide_Image               125
+#define  Attr_Wide_Value                    126
+#define  Attr_Wide_Wide_Value               127
+#define  Attr_Output                        128
+#define  Attr_Read                          129
+#define  Attr_Write                         130
+#define  Attr_Elab_Body                     131
+#define  Attr_Elab_Spec                     132
+#define  Attr_Storage_Pool                  133
+#define  Attr_Base                          134
+#define  Attr_Class                         135
 
 /* Define the numeric values for the conventions.  */