Handle default parameters for file_open.

Display backtrace for error in file_open.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index e5e9a5acf..14dc0a2c4 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -1187,6 +1187,18 @@ package body Iirs_Utils is
       end case;
    end Get_Method_Type;
 
+   function Get_Actual_Or_Default (Assoc : Iir) return Iir is
+   begin
+      case Get_Kind (Assoc) is
+         when Iir_Kind_Association_Element_By_Expression =>
+            return Get_Actual (Assoc);
+         when Iir_Kind_Association_Element_Open =>
+            return Get_Default_Value (Get_Formal (Assoc));
+         when others =>
+            Error_Kind ("get_actual_or_default", Assoc);
+      end case;
+   end Get_Actual_Or_Default;
+
    function Create_Error (Orig : Iir) return Iir
    is
       Res : Iir;