diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-25 10:39:36 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-25 10:39:36 +0000 |
| commit | 04e07a92687526218ca61486ab87066da0d128cc (patch) | |
| tree | 5f43e919c782c9199c6559951e17e26234a789b8 /gcc/ada/sem_util.adb | |
| parent | c36553e5b892d5af22d89add1559610f714e7ff7 (diff) | |
| download | gcc-04e07a92687526218ca61486ab87066da0d128cc.tar.gz | |
2013-04-25 Robert Dewar <dewar@adacore.com>
* sem_prag.adb: Minor code reorganization (correct misspelling
Restiction).
* sem_util.adb, aspects.ads, sem_ch6.adb: Minor reformatting.
* gnat_rm.texi: Document impl-defined aspects.
* sem_dim.adb, sem_dim.ads, gnat_ugn.texi, s-dimmks.ads: Minor
reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198291 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 0d732d240a0..9bc7926e00a 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -12975,6 +12975,10 @@ package body Sem_Util is -- Determine whether node N denotes a reference to Id. If this is the -- case, set global flag Seen to True and stop the traversal. + ------------------ + -- Is_Reference -- + ------------------ + function Is_Reference (N : Node_Id) return Traverse_Result is begin if Is_Entity_Name (N) @@ -12994,7 +12998,6 @@ package body Sem_Util is begin Inspect_Expression (Expr); - return Seen; end Referenced; |