diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-30 04:13:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-30 04:13:01 +0200 |
| commit | c8bd4ded49e392ad89e2ac5e5282386bb23e527d (patch) | |
| tree | 05565dbd56365f437734ea99e530b21b6f381a8f /src/synth/synth-vhdl_static_proc.adb | |
| parent | 7fc2f111d011a82e9a4a7b5aba698e5ccffec871 (diff) | |
| download | ghdl-c8bd4ded49e392ad89e2ac5e5282386bb23e527d.tar.gz ghdl-c8bd4ded49e392ad89e2ac5e5282386bb23e527d.tar.bz2 ghdl-c8bd4ded49e392ad89e2ac5e5282386bb23e527d.zip | |
synth-vhdl_static_proc: add hook for std.env.finish
Diffstat (limited to 'src/synth/synth-vhdl_static_proc.adb')
| -rw-r--r-- | src/synth/synth-vhdl_static_proc.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_static_proc.adb b/src/synth/synth-vhdl_static_proc.adb index 0764d35c1..a20865696 100644 --- a/src/synth/synth-vhdl_static_proc.adb +++ b/src/synth/synth-vhdl_static_proc.adb @@ -16,6 +16,8 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. +with Types; use Types; + with Vhdl.Errors; use Vhdl.Errors; with Elab.Vhdl_Values; use Elab.Vhdl_Values; @@ -62,6 +64,12 @@ package body Synth.Vhdl_Static_Proc is Synth_File_Read (Syn_Inst, Imp, Loc); when Iir_Predefined_Write => Synth_File_Write (Syn_Inst, Imp, Loc); + when Iir_Predefined_Std_Env_Finish_Status => + if Hook_Finish /= null then + Hook_Finish.all (Syn_Inst, Imp); + else + raise Internal_Error; + end if; when others => Error_Msg_Synth (+Loc, "call to implicit %n is not supported", +Imp); |