diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-11 06:15:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-11 06:15:53 +0100 |
| commit | 5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d (patch) | |
| tree | 72412ba3f0a3a3b5aee66faf97a447f641958715 /src/synth | |
| parent | b206f4cf1ee63ff517b9be3fcabaf156e07a9a15 (diff) | |
| download | ghdl-5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d.tar.gz ghdl-5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d.tar.bz2 ghdl-5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d.zip | |
simul: replace Get_Instance_For_Slot by Get_Instance_Object.
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-context.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index 975e205c5..96242ee73 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -215,12 +215,12 @@ package body Synth.Context is function Get_Value (Inst : Synth_Instance_Acc; Obj : Iir) return Value_Acc is - Slot : constant Object_Slot_Type := Get_Info (Obj).Slot; + Info : constant Sim_Info_Acc := Get_Info (Obj); Sim_Inst : constant Block_Instance_Acc := - Simul.Execution.Get_Instance_For_Slot (Inst.Sim, Obj); + Simul.Execution.Get_Instance_By_Scope (Inst.Sim, Info.Obj_Scope); Val : Value_Acc; begin - Val := Instance_Map (Sim_Inst.Id).Objects (Slot); + Val := Instance_Map (Sim_Inst.Id).Objects (Info.Slot); pragma Assert (Val /= null); return Val; end Get_Value; |