projects / platform / upstream / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 00fdfe9)
ada: Fix benign pasto in new predicate
authorEric Botcazou <ebotcazou@adacore.com>
Sat, 7 Jan 2023 13:39:19 +0000 (14:39 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Mon, 16 Jan 2023 14:44:55 +0000 (15:44 +0100)
gcc/ada/

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

gcc/ada/exp_util.adb patch | blob | history

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index da5e849..f6d91ca 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.
 
Domain: System / Toolchain;