diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-24 11:51:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-24 11:51:42 +0200 |
| commit | 12b4d3382209eb2c5248d8ce32b94d798acb0d0a (patch) | |
| tree | 8e1fb052842b78ff9e44ea4d0eb445b8ea8d15ee /gcc/ada/sinfo.adb | |
| parent | 08ce7bb81da9e4a7c4d7669b1d080a046d5b171b (diff) | |
| download | gcc-12b4d3382209eb2c5248d8ce32b94d798acb0d0a.zip gcc-12b4d3382209eb2c5248d8ce32b94d798acb0d0a.tar.gz gcc-12b4d3382209eb2c5248d8ce32b94d798acb0d0a.tar.bz2 | |
[multiple changes]
2011-10-24 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Earlier): make available globally. If both
nodes have the same sloc, the freeze node that does not come
from source is the later one.
(True_Parent): Make available globally.
(Previous_Instance): Subsidiary of
Insert_Freeze_Node_For_Instance, to check whether the generic
parent of the current instance is declared within a previous
instance in the same unit or declarative part, in which case the
freeze nodes of both instances must appear in order to prevent
elaboration problems in gigi.
* sem_ch12.adb (Insert_Freeze_Node_For_Instance): A stub is a
freeze point, and the freeze node of a preceding instantiation
must be inserted before it.
2011-10-24 Robert Dewar <dewar@adacore.com>
* checks.ads, checks.adb: Add handling of Synchronization_Check
* debug.adb: Add doc for -gnatd.d and -gnatd.e (disable/enable
atomic sync).
* exp_ch2.adb (Expand_Entity_Reference): Set Atomic_Sync_Required
flag Minor code reorganization.
* opt.ads (Warn_On_Atomic_Synchronization): New switch.
* par-prag.adb: Add dummy entries for pragma
Disable/Enable_Atomic_Synchronization.
* sem_prag.adb (Process_Suppress_Unsuppress): Handle
case of Atomic_Synchronization specially (not suppressed
by All_Checks, cannot be set from Source).
(Pragma Disable/Enable_Atomic_Synchronization): Add processing.
* sinfo.ads, sinfo.adb: Add Atomic_Sync_Required flag
* snames.ads-tmpl: Add entry for Atomic_Synchronization Add
entry for pragma Disable/Enable_Atomic_Synchronization
* switch-c.adb: The -gnatp switch does not disable
Atomic_Synchronization Add -gnatep switch to disable
Atomic_Synchronization.
* types.ads: Add entry for Synchronization_Check
* usage.adb: Add line for -gnated switch
* warnsw.adb: Settings for Warn_On_Atomic_Synchronization
From-SVN: r180373
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 7543347..916e0ae 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -249,6 +249,15 @@ package body Sinfo is return Node3 (N); end Ancestor_Part; + function Atomic_Sync_Required + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Expanded_Name + or else NT (N).Nkind = N_Identifier); + return Flag14 (N); + end Atomic_Sync_Required; + function Array_Aggregate (N : Node_Id) return Node_Id is begin @@ -3309,6 +3318,15 @@ package body Sinfo is Set_Node3_With_Parent (N, Val); end Set_Ancestor_Part; + procedure Set_Atomic_Sync_Required + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Expanded_Name + or else NT (N).Nkind = N_Identifier); + Set_Flag14 (N, Val); + end Set_Atomic_Sync_Required; + procedure Set_Array_Aggregate (N : Node_Id; Val : Node_Id) is begin |