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.adb | |
| 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.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index d76d33a..a8f7d8b 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1459,7 +1459,7 @@ package body Sinfo is pragma Assert (False or else NT (N).Nkind = N_Subprogram_Body or else NT (N).Nkind = N_Task_Definition); - return Flag10 (N); + return Flag14 (N); end Has_Pragma_CPU; function Has_Pragma_Priority @@ -4438,7 +4438,7 @@ package body Sinfo is pragma Assert (False or else NT (N).Nkind = N_Subprogram_Body or else NT (N).Nkind = N_Task_Definition); - Set_Flag10 (N, Val); + Set_Flag14 (N, Val); end Set_Has_Pragma_CPU; procedure Set_Has_Pragma_Priority |