diff options
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 0d732d2..9bc7926 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; |