diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-11 05:21:40 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-11 05:21:40 +0200 |
| commit | fe2afd6a3dd1a9a1234ca095fd63d0e8c999a4d7 (patch) | |
| tree | a6138c037a8c16f8dae637ff94b2dd9400377ce8 /src/synth/synth-vhdl_stmts.adb | |
| parent | 0a81d6f1ec4106a8e8c90fe455269382e87cc48d (diff) | |
| download | ghdl-fe2afd6a3dd1a9a1234ca095fd63d0e8c999a4d7.tar.gz ghdl-fe2afd6a3dd1a9a1234ca095fd63d0e8c999a4d7.tar.bz2 ghdl-fe2afd6a3dd1a9a1234ca095fd63d0e8c999a4d7.zip | |
synth: add a flag to force creation of variables
Diffstat (limited to 'src/synth/synth-vhdl_stmts.adb')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 3c52138e5..906668027 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -2357,8 +2357,7 @@ package body Synth.Vhdl_Stmts is Areapools.Release (Area_Mark, Instance_Pool.all); end Synth_Implicit_Procedure_Call; - procedure Synth_Procedure_Call - (Syn_Inst : Synth_Instance_Acc; Stmt : Node) + procedure Synth_Procedure_Call (Syn_Inst : Synth_Instance_Acc; Stmt : Node) is Call : constant Node := Get_Procedure_Call (Stmt); Imp : constant Node := Get_Implementation (Call); |