ada: Refactor code of Check_Ambiguous_Call and Valid_Conversion

gcc/ada/ChangeLog:

	* sem_res.adb (Is_Ambiguous_Operand): Add missing decoration of
	the operand when it is labeled overloaded but has just one
	interpretation.

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 5ca2061352956ee18f9c2a0289b9b0bc6a3c9b4f..cd75508021c5efce56bc13fffd63aeb3ff62fb4f 100644 (file)
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -13785,10 +13785,9 @@ package body Sem_Res is
 
             return True;
          end if;
-
-         Set_Etype (Operand, It1.Typ);
       end if;
 
+      Set_Etype (Operand, It1.Typ);
       return False;
    end Is_Ambiguous_Operand;