diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 12:32:58 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 12:32:58 +0200 |
| commit | c775c2094bfdd9b85ad67e451a3fe690780e84d4 (patch) | |
| tree | 8af4d89af00b768007bd849898eda91e84c78a80 /gcc/ada/sinfo.adb | |
| parent | 811ef5ba910ae7449d73226143271a89d1da6936 (diff) | |
| download | gcc-c775c2094bfdd9b85ad67e451a3fe690780e84d4.zip gcc-c775c2094bfdd9b85ad67e451a3fe690780e84d4.tar.gz gcc-c775c2094bfdd9b85ad67e451a3fe690780e84d4.tar.bz2 | |
[multiple changes]
2010-10-12 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb (Has_Pragma_Priority): New name for Has_Priority_Pragma
* gnat_rm.texi (pragma Suppress_All): Document new placement rules
* par-prag.adb (P_Pragma, case Suppress_All): Set
Has_Pragma_Suppress_All flag.
* sem_prag.adb (Has_Pragma_Priority): New name for Has_Priority_Pragma
(Analyze_Pragma, case Suppress_All): Remove placement check
(Process_Compilation_Unit_Pragmas): Use Has_Pragma_Suppress_All flag
* sem_prag.ads (Process_Compilation_Unit_Pragmas): Update documentation
* sinfo.adb (Has_Pragma_Suppress_All): New flag
(Has_Pragma_Priority): New name for Has_Priority_Pragma
* sinfo.ads (Has_Pragma_Suppress_All): New flag
(Has_Pragma_Priority): New name for Has_Priority_Pragma
2010-10-12 Arnaud Charlet <charlet@adacore.com>
* lib-xref.ads: Mark j/J as reserved for C++ classes.
2010-10-12 Jose Ruiz <ruiz@adacore.com>
* a-exetim-default.ads, a-exetim-posix.adb: New.
* gcc-interface/Makefile.in (LIBGNAT_TARGET_PAIRS for linux): Use the
POSIX Realtime support to implement CPU clocks.
(EXTRA_GNATRTL_TASKING_OBJS for linux): Add the a-exetim.o object
to the tasking library.
(THREADSLIB): Make the POSIX.1b Realtime Extensions library (librt)
available for shared libraries.
* gcc-interface/Make-lang.in: Update dependencies.
2010-10-12 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications): For Pre/Post, break
apart expressions with AND THEN clauses into separate pragmas.
* sinput.ads, sinput.adab (Get_Logical_Line_Number_Img): New function.
From-SVN: r165356
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index ead2fcb..66199c2 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1453,7 +1453,7 @@ package body Sinfo is return Flag17 (N); end Has_No_Elaboration_Code; - function Has_Priority_Pragma + function Has_Pragma_Priority (N : Node_Id) return Boolean is begin pragma Assert (False @@ -1461,7 +1461,15 @@ package body Sinfo is or else NT (N).Nkind = N_Subprogram_Body or else NT (N).Nkind = N_Task_Definition); return Flag6 (N); - end Has_Priority_Pragma; + end Has_Pragma_Priority; + + function Has_Pragma_Suppress_All + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Compilation_Unit); + return Flag14 (N); + end Has_Pragma_Suppress_All; function Has_Private_View (N : Node_Id) return Boolean is @@ -4406,7 +4414,7 @@ package body Sinfo is Set_Flag17 (N, Val); end Set_Has_No_Elaboration_Code; - procedure Set_Has_Priority_Pragma + procedure Set_Has_Pragma_Priority (N : Node_Id; Val : Boolean := True) is begin pragma Assert (False @@ -4414,7 +4422,15 @@ package body Sinfo is or else NT (N).Nkind = N_Subprogram_Body or else NT (N).Nkind = N_Task_Definition); Set_Flag6 (N, Val); - end Set_Has_Priority_Pragma; + end Set_Has_Pragma_Priority; + + procedure Set_Has_Pragma_Suppress_All + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Compilation_Unit); + Set_Flag14 (N, Val); + end Set_Has_Pragma_Suppress_All; procedure Set_Has_Private_View (N : Node_Id; Val : Boolean := True) is |