diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-10-18 10:34:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-18 12:34:56 +0200 |
| commit | adcf6b325095112c75af4dbb69628605dcaf2e32 (patch) | |
| tree | 1b8e214d778fdfd8d8a13ab7a5c90cf30fac3388 /gcc/ada/sinfo.ads | |
| parent | 8918fe18ab24b24cba7575face37f1726a23ef19 (diff) | |
| download | gcc-adcf6b325095112c75af4dbb69628605dcaf2e32.zip gcc-adcf6b325095112c75af4dbb69628605dcaf2e32.tar.gz gcc-adcf6b325095112c75af4dbb69628605dcaf2e32.tar.bz2 | |
sinfo.ads, sinfo.adb: Change Has_Pragma_CPU to Flag14 (Flag10 is standard field).
2010-10-18 Robert Dewar <dewar@adacore.com>
* sinfo.ads, sinfo.adb: Change Has_Pragma_CPU to Flag14 (Flag10 is
standard field).
2010-10-18 Robert Dewar <dewar@adacore.com>
* s-stausa.adb, s-taprop-linux.adb, s-taprop-mingw.adb, s-tassta.ads:
Minor reformatting.
2010-10-18 Robert Dewar <dewar@adacore.com>
* exp_strm.adb (Build_Elementary_Input_Call): Check
No_Default_Stream_Attributes.
(Build_Elementary_Write_Call): Check No_Default_Stream_Attributes
* s-rident.ads: Add restriction No_Default_Stream_Attributes
Put restriction No_Allocators_After_Elaboration in alpha order
From-SVN: r165626
Diffstat (limited to 'gcc/ada/sinfo.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 2b2d882..c5a82ec 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1133,7 +1133,7 @@ package Sinfo is -- generate elaboration code, and non-preelaborated packages which do -- not generate elaboration code. - -- Has_Pragma_CPU (Flag10-Sem) + -- Has_Pragma_CPU (Flag14-Sem) -- A flag present in N_Subprogram_Body and N_Task_Definition nodes to -- flag the presence of a CPU pragma in the declaration sequence (public -- or private in the task case). @@ -4491,7 +4491,7 @@ package Sinfo is -- Is_Task_Master (Flag5-Sem) -- Was_Originally_Stub (Flag13-Sem) -- Has_Relative_Deadline_Pragma (Flag9-Sem) - -- Has_Pragma_CPU (Flag10-Sem) + -- Has_Pragma_CPU (Flag14-Sem) ------------------------------ -- Parameterized Expression -- @@ -4975,7 +4975,7 @@ package Sinfo is -- Has_Task_Info_Pragma (Flag7-Sem) -- Has_Task_Name_Pragma (Flag8-Sem) -- Has_Relative_Deadline_Pragma (Flag9-Sem) - -- Has_Pragma_CPU (Flag10-Sem) + -- Has_Pragma_CPU (Flag14-Sem) -------------------- -- 9.1 Task Item -- @@ -8324,7 +8324,7 @@ package Sinfo is (N : Node_Id) return Boolean; -- Flag17 function Has_Pragma_CPU - (N : Node_Id) return Boolean; -- Flag10 + (N : Node_Id) return Boolean; -- Flag14 function Has_Pragma_Priority (N : Node_Id) return Boolean; -- Flag6 @@ -9275,7 +9275,7 @@ package Sinfo is (N : Node_Id; Val : Boolean := True); -- Flag17 procedure Set_Has_Pragma_CPU - (N : Node_Id; Val : Boolean := True); -- Flag10 + (N : Node_Id; Val : Boolean := True); -- Flag14 procedure Set_Has_Pragma_Priority (N : Node_Id; Val : Boolean := True); -- Flag6 |