diff options
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 3c7839754e4..6f741011377 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -492,6 +492,7 @@ package body Checks is Expr := Expression (Expr); elsif Nkind (Expr) = N_Function_Call + and then Is_Entity_Name (Name (Expr)) and then Is_RTE (Entity (Name (Expr)), RE_To_Address) then Expr := First (Parameter_Associations (Expr)); |