Give priority to function calls without implicit conversion.

Fix ticket 64.

1 files changed, 16 insertions, 0 deletions

diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb
index 9d056d7c1..cb174cea5 100644
--- a/src/vhdl/iirs.adb
+++ b/src/vhdl/iirs.adb
@@ -4019,6 +4019,22 @@ package body Iirs is
       Set_State1 (Target, Iir_Staticness'Pos (Static));
    end Set_Expr_Staticness;
 
+   function Get_Has_Implicit_Conversion (Expr : Iir) return Boolean is
+   begin
+      pragma Assert (Expr /= Null_Iir);
+      pragma Assert (Has_Has_Implicit_Conversion (Get_Kind (Expr)),
+                     "no field Has_Implicit_Conversion");
+      return Get_Flag1 (Expr);
+   end Get_Has_Implicit_Conversion;
+
+   procedure Set_Has_Implicit_Conversion (Expr : Iir; Flag : Boolean) is
+   begin
+      pragma Assert (Expr /= Null_Iir);
+      pragma Assert (Has_Has_Implicit_Conversion (Get_Kind (Expr)),
+                     "no field Has_Implicit_Conversion");
+      Set_Flag1 (Expr, Flag);
+   end Set_Has_Implicit_Conversion;
+
    function Get_Error_Origin (Target : Iir) return Iir is
    begin
       pragma Assert (Target /= Null_Iir);