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-files_operations.ads | |
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-files_operations.ads')
-rw-r--r-- | src/synth/synth-files_operations.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/synth/synth-files_operations.ads b/src/synth/synth-files_operations.ads index 35a92dbb0..69be99ff9 100644 --- a/src/synth/synth-files_operations.ads +++ b/src/synth/synth-files_operations.ads @@ -33,11 +33,11 @@ package Synth.Files_Operations is function Endfile (F : File_Index; Loc : Syn_Src) return Boolean; - procedure Synth_File_Open (Syn_Inst : Synth_Instance_Acc; - Imp : Node; - Loc : Node); + procedure Synth_File_Open + (Syn_Inst : Synth_Instance_Acc; Imp : Node; Loc : Node); + procedure Synth_File_Close + (Syn_Inst : Synth_Instance_Acc; Imp : Node; Loc : Node); - procedure Synth_Untruncated_Text_Read (Syn_Inst : Synth_Instance_Acc; - Imp : Node; - Loc : Node); + procedure Synth_Untruncated_Text_Read + (Syn_Inst : Synth_Instance_Acc; Imp : Node; Loc : Node); end Synth.Files_Operations; |