ada: Fix benign pasto in new predicate

gcc/ada/

	* exp_util.adb (Make_CW_Equivalent_Type.Has_Tag_Of_Type): Fix pasto.

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index da5e84958cac378b11fa0583e36519c159cb437f..f6d91ca4a0e027848176dc41ada7e73805d4400d 100644 (file)
--- 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.