Patchwork [Ada] Fix typo in Covers_Some_Interface predicate

login
register
mail settings
Submitter Arnaud Charlet
Date Oct. 24, 2011, 9:25 a.m.
Message ID <20111024092509.GA18817@adacore.com>
Download mbox | patch
Permalink /patch/121307/
State New
Headers show

Comments

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

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