diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-11 20:49:18 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:36:00 +0100 |
| commit | 638200d3916f77cdba2a04ed3e3606b61f0aa09f (patch) | |
| tree | 047e813d54c171090c8f4e271b9e6e3cb6358cc5 /src/synth/synth-stmts.adb | |
| parent | a16e1f8da63c68292703875c3abff7912572d376 (diff) | |
| download | ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.tar.gz ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.tar.bz2 ghdl-638200d3916f77cdba2a04ed3e3606b61f0aa09f.zip | |
synth: file support (WIP).
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index ea177af30..51472362c 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1320,7 +1320,7 @@ package body Synth.Stmts is when Iir_Kind_Interface_Signal_Declaration => Create_Object (Subprg_Inst, Inter, Val); when Iir_Kind_Interface_File_Declaration => - raise Internal_Error; + Create_Object (Subprg_Inst, Inter, Val); end case; end loop; end Synth_Subprogram_Association; |