diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-27 18:28:51 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-27 18:28:51 +0100 |
| commit | fe5524a0d34fc0fc97a5b3f571581ca5ec2827c4 (patch) | |
| tree | 41c7bdca82c9074a881ff077ec1bbd9dd8fec7ea /src/synth/synth-static_proc.adb | |
| parent | a07173e47e33a4b03ab3415d40438135d04b23c6 (diff) | |
| download | ghdl-fe5524a0d34fc0fc97a5b3f571581ca5ec2827c4.tar.gz ghdl-fe5524a0d34fc0fc97a5b3f571581ca5ec2827c4.tar.bz2 ghdl-fe5524a0d34fc0fc97a5b3f571581ca5ec2827c4.zip | |
synth: handle file_close.
Diffstat (limited to 'src/synth/synth-static_proc.adb')
| -rw-r--r-- | src/synth/synth-static_proc.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-static_proc.adb b/src/synth/synth-static_proc.adb index cc92b9ee7..f0a09a172 100644 --- a/src/synth/synth-static_proc.adb +++ b/src/synth/synth-static_proc.adb @@ -43,6 +43,8 @@ package body Synth.Static_Proc is case Get_Implicit_Definition (Imp) is when Iir_Predefined_File_Open => Synth_File_Open (Syn_Inst, Imp, Loc); + when Iir_Predefined_File_Close => + Synth_File_Close (Syn_Inst, Imp, Loc); when Iir_Predefined_Foreign_Untruncated_Text_Read => Synth_Untruncated_Text_Read (Syn_Inst, Imp, Loc); when Iir_Predefined_Deallocate => |