diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-18 10:34:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-18 10:34:56 +0000 |
| commit | 38e26a05a3eb00ed2e0b33deee45af7ffd7a56c4 (patch) | |
| tree | 1b8e214d778fdfd8d8a13ab7a5c90cf30fac3388 /gcc/ada/sinfo.ads | |
| parent | d9c927cc34dae95c3dca6300d1629ebc6c29b189 (diff) | |
| download | gcc-38e26a05a3eb00ed2e0b33deee45af7ffd7a56c4.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165626 138bc75d-0d04-0410-961f-82ee72b054a4
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 2b2d8828c95..c5a82ec8b06 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 |