From c4443c4e9d9d747296d2be351927825ca692ff70 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 13 Nov 2019 07:55:22 +0100
Subject: synth: add support for interface file.

---
 src/synth/synth-stmts.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index b55297dc1..227ae00b3 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -142,6 +142,7 @@ package body Synth.Stmts is
            | Iir_Kind_Anonymous_Signal_Declaration
            | Iir_Kind_Interface_Constant_Declaration
            | Iir_Kind_Constant_Declaration
+           | Iir_Kind_File_Declaration
            | Iir_Kind_Object_Alias_Declaration =>
             declare
                Targ : constant Value_Acc := Get_Value (Syn_Inst, Pfx);
@@ -1339,7 +1340,8 @@ package body Synth.Stmts is
                         Val := Create_Value_Alias
                           (Info.Obj, Info.Off, Info.Targ_Type);
                      when Iir_Kind_Interface_File_Declaration =>
-                        raise Internal_Error;
+                        Val := Create_Value_File
+                          (Info.Targ_Type, Info.Obj.File);
                   end case;
                end;
          end case;
-- 
cgit v1.2.3