aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-oper.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-09-20 04:35:25 +0200
committerTristan Gingold <tgingold@free.fr>2019-09-20 04:35:25 +0200
commit92e75480e2e6aa32318b654aeb59315fecf27ea9 (patch)
tree9cf0abfc1f6f4377ea1c988e0692c2811decfd3f /src/synth/synth-oper.adb
parent5f93829b3dc29022590ffcff8e383f8978add90a (diff)
downloadghdl-92e75480e2e6aa32318b654aeb59315fecf27ea9.tar.gz
ghdl-92e75480e2e6aa32318b654aeb59315fecf27ea9.tar.bz2
ghdl-92e75480e2e6aa32318b654aeb59315fecf27ea9.zip
synth-context: get rid off Set_Block_Scope.
Diffstat (limited to 'src/synth/synth-oper.adb')
-rw-r--r--src/synth/synth-oper.adb3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb
index a6a7883f3..7baa45841 100644
--- a/src/synth/synth-oper.adb
+++ b/src/synth/synth-oper.adb
@@ -28,7 +28,6 @@ with Vhdl.Errors; use Vhdl.Errors;
with Vhdl.Utils; use Vhdl.Utils;
with Areapools;
-with Vhdl.Annotations; use Vhdl.Annotations;
with Netlists; use Netlists;
with Netlists.Gates; use Netlists.Gates;
@@ -890,7 +889,7 @@ package body Synth.Oper is
M : Areapools.Mark_Type;
begin
Areapools.Mark (M, Instance_Pool.all);
- Subprg_Inst := Make_Instance (Syn_Inst, Get_Info (Imp));
+ Subprg_Inst := Make_Instance (Syn_Inst, Imp);
Synth_Subprogram_Association
(Subprg_Inst, Syn_Inst, Inter_Chain, Assoc_Chain);