diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-20 11:38:41 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-20 11:38:41 +0100 |
commit | f68fc405bb5b38c545498c4a1dba203e51dade32 (patch) | |
tree | 57d5fd22e8f8871d01ffd76cb2d29d32468b518e /gcc/ada/atree.ads | |
parent | f4ef7b06ce8973846a7002c9325c576e099917d6 (diff) | |
download | gcc-f68fc405bb5b38c545498c4a1dba203e51dade32.zip gcc-f68fc405bb5b38c545498c4a1dba203e51dade32.tar.gz gcc-f68fc405bb5b38c545498c4a1dba203e51dade32.tar.bz2 |
[multiple changes]
2017-01-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check
for illegal inherited Implicit_Dereference aspects with renamed
discriminants.
2017-01-20 Javier Miranda <miranda@adacore.com>
* debug.adb (switch d.6): do not avoid declaring unreferenced itypes.
* nlists.ads (Lock_Lists, Unlock_Lists): New subprograms.
* nlists.adb (Lock_Lists, Unlock_Lists): New subprograms.
(Set_First, Set_Last, Set_List_Link, Set_Next, Set_Parent,
Set_Prev, Tree_Read): Adding assertion.
* atree.ads (Lock_Nodes, Unlock_Nodes): New subprograms.
* atree.adb (Lock_Nodes, Unlock_Nodes): New subprograms.
(Set_Analyzed, Set_Check_Actuals, Set_Comes_From_Source,
Set_Ekind, Set_Error_Posted, Set_Has_Aspects,
Set_Is_Ignored_Ghost_Node, Set_Original_Node, Set_Paren_Count,
Set_Parent, Set_Sloc, Set_Nkind, Set_FieldNN, Set_NodeNN,
Set_ListNN, Set_ElistNN, Set_NameN, Set_StrN, Set_UintNN,
Set_UrealNN, Set_FlagNNN, Set_NodeN_With_Parent,
Set_ListN_With_Parent): Adding assertion.
2017-01-20 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb (Process_Convention): Diagnose properly a pragma
import that applies to several homograph subprograms. when one
of them is declared by a subprogram body.
2017-01-20 Justin Squirek <squirek@adacore.com>
* exp_ch6.adb (Expand_Call): Remove optimization
that nulls out calls to null procedures.
From-SVN: r244699
Diffstat (limited to 'gcc/ada/atree.ads')
-rw-r--r-- | gcc/ada/atree.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 6739be2..0f3bef7 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -405,9 +405,18 @@ package Atree is -- Called before the back end is invoked to lock the nodes table -- Also called after Unlock to relock??? + procedure Lock_Nodes; + -- Called to lock node modifications when assertions are enabled; without + -- assertions calling this subprogram has no effect. The initial state of + -- the lock is unlocked. + procedure Unlock; -- Unlocks nodes table, in cases where the back end needs to modify it + procedure Unlock_Nodes; + -- Called to unlock entity modifications when assertions are enabled; if + -- assertions are not enabled calling this subprogram has no effect. + procedure Tree_Read; -- Initializes internal tables from current tree file using the relevant -- Table.Tree_Read routines. Note that Initialize should not be called if |