[Ada] Fix typo in Covers_Some_Interface predicate

Submitted by Arnaud Charlet on Oct. 24, 2011, 9:25 a.m.

Details

Message ID 20111024092509.GA18817@adacore.com
State New
Headers show

Commit Message

Arnaud Charlet Oct. 24, 2011, 9:25 a.m.
This patchlet eliminates a typo in Covers_Some_Interface.

Tested on x86_64-pc-linux-gnu, committed on trunk

2011-10-24  Eric Botcazou  <ebotcazou@adacore.com>

	* sem_disp.adb (Covers_Some_Interface): Fix typo.

Patch hide | download patch | download mbox

Index: sem_disp.adb
===================================================================
--- sem_disp.adb	(revision 180365)
+++ sem_disp.adb	(working copy)
@@ -160,7 +160,7 @@ 
                   while Present (Elmt) loop
                      Iface_Prim := Node (Elmt);
 
-                     if Chars (E) = Chars (Prim)
+                     if Chars (Iface) = Chars (Prim)
                        and then Is_Interface_Conformant
                                   (Tagged_Type, Iface_Prim, Prim)
                      then