diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:42:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 14:42:28 +0200 |
| commit | d45bc240af9aaa2e0b80b6c266f340b06138fcda (patch) | |
| tree | dc5271b5520bf0b3ff50957683b5757ff79ed82f /gcc/ada/exp_util.ads | |
| parent | b25021611e702a13cc4db4c213fba0072043cdc3 (diff) | |
| download | gcc-d45bc240af9aaa2e0b80b6c266f340b06138fcda.zip gcc-d45bc240af9aaa2e0b80b6c266f340b06138fcda.tar.gz gcc-d45bc240af9aaa2e0b80b6c266f340b06138fcda.tar.bz2 | |
[multiple changes]
2013-04-11 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Entity_Of): Moved to Exp_Util.
* exp_util.ads, exp_util.adb (Entity_Of): New routine.
2013-04-11 Robert Dewar <dewar@adacore.com>
* g-spipat.ads: Minor comment fix.
From-SVN: r197778
Diffstat (limited to 'gcc/ada/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 67982c2..68dc188 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -349,6 +349,10 @@ package Exp_Util is -- used to ensure that an Itype is properly defined outside a conditional -- construct when it is referenced in more than one branch. + function Entity_Of (N : Node_Id) return Entity_Id; + -- Return the entity of N or Empty. If N is a renaming, return the entity + -- of the root renamed object. + function Entry_Names_OK return Boolean; -- Determine whether it is appropriate to dynamically allocate strings -- which represent entry [family member] names. These strings are created |