diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 12:31:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 12:31:30 +0200 |
| commit | f625663199e1b11f1e7e90ca7b47e53bbbc94450 (patch) | |
| tree | 7a679922c3da9b4129f120983a84f5f7406ef2d3 /gcc/ada/sinfo.adb | |
| parent | 4eb317ccce4caa81eba08a2aedad4849c7ea489c (diff) | |
| download | gcc-f625663199e1b11f1e7e90ca7b47e53bbbc94450.zip gcc-f625663199e1b11f1e7e90ca7b47e53bbbc94450.tar.gz gcc-f625663199e1b11f1e7e90ca7b47e53bbbc94450.tar.bz2 | |
[multiple changes]
2009-07-22 Thomas Quinot <quinot@adacore.com>
* sem_elab.adb (Insert_Elab_Check): When relocating an overloaded
expression to insert an elab check using a conditional expression, be
sure to carry the original list of interpretations to the new location.
2009-07-22 Gary Dismukes <dismukes@adacore.com>
* gnat1drv.adb: Fix spelling error.
2009-07-22 Javier Miranda <miranda@adacore.com>
* sem_type.ads, sem_type.adb (In_Generic_Actual): Leave this subprogram
at the library level and fix a hidden bug in its implementation: its
functionality for renaming objects was broken because
N_Object_Renaming_Declarations nodes are not a subclass of
N_Declaration nodes (as documented in sinfo.ads).
* sem_util.adb (Check_Dynamically_Tagged_Expression): Include in this
check nodes that are actuals of generic instantiations.
2009-07-22 Ed Schonberg <schonberg@adacore.com>
* sinfo.ads, sinfo.adb (Pending_Context): New flag to indicate that the
context of a compilation unit is being analyzed. Used to detect
circularities created by with_clauses that are not detected by the
loading machinery.
* sem_ch10.adb (Analyze_Compilation_Unit): Set Pending_Context before
analyzing the context of the current compilation unit, to detect
possible circularities created by with_clauses.
From-SVN: r149925
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index da6adb2..7bd9553 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -549,6 +549,14 @@ package body Sinfo is return List1 (N); end Context_Items; + function Context_Pending + (N : Node_Id) return Boolean is + begin + pragma Assert (False + or else NT (N).Nkind = N_Compilation_Unit); + return Flag16 (N); + end Context_Pending; + function Controlling_Argument (N : Node_Id) return Node_Id is begin @@ -3364,6 +3372,14 @@ package body Sinfo is Set_List1_With_Parent (N, Val); end Set_Context_Items; + procedure Set_Context_Pending + (N : Node_Id; Val : Boolean := True) is + begin + pragma Assert (False + or else NT (N).Nkind = N_Compilation_Unit); + Set_Flag16 (N, Val); + end Set_Context_Pending; + procedure Set_Controlling_Argument (N : Node_Id; Val : Node_Id) is begin |