diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-13 07:55:22 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-13 07:55:22 +0100 |
| commit | c4443c4e9d9d747296d2be351927825ca692ff70 (patch) | |
| tree | cc030b5bae037bfda87532f3f40cf8b893c7808b /src/synth | |
| parent | 9d9179a97c5c89781f9a2578273e1490c23a5c00 (diff) | |
| download | ghdl-c4443c4e9d9d747296d2be351927825ca692ff70.tar.gz ghdl-c4443c4e9d9d747296d2be351927825ca692ff70.tar.bz2 ghdl-c4443c4e9d9d747296d2be351927825ca692ff70.zip | |
synth: add support for interface file.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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; |