Fix typo.

From-SVN: r178533

Fix typo.
From-SVN: r178533
fb19dec9 · Arnaud Charlet · ec09f261 · fb19dec9
Commit fb19dec9 authored Sep 05, 2011 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

gcc/ada/lib-xref-alfa.adb
+1 -1

No files found.
--- a/gcc/ada/lib-xref-alfa.adb
+++ b/gcc/ada/lib-xref-alfa.adb
@@ -627,7 +627,7 @@ package body Alfa is
                  --  references.

                  if Present (Etype (E))
-                    and then Ekind (Etype (E)) in E_Concurrent_Kind
+                    and then Ekind (Etype (E)) in Concurrent_Kind
                  then
                     return False;
                  end if;