diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-01-07 14:39:19 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-01-16 15:44:55 +0100 |
| commit | b7ed6c43a80e06082baad5336be0fa943a878d40 (patch) | |
| tree | 30a7128c4f74448f19f62a5c81c919f8306cb960 | |
| parent | 00fdfe9de2e2205330f312364b3b60fca3005b61 (diff) | |
| download | gcc-b7ed6c43a80e06082baad5336be0fa943a878d40.tar.gz | |
ada: Fix benign pasto in new predicate
gcc/ada/
* exp_util.adb (Make_CW_Equivalent_Type.Has_Tag_Of_Type): Fix pasto.
| -rw-r--r-- | gcc/ada/exp_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index da5e84958ca..f6d91ca4a0e 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -9521,7 +9521,7 @@ package body Exp_Util is return True; else - case Nkind (E) is + case Nkind (Exp) is -- The tag of a component or an aggregate of a specific tagged -- type T identifies T. |