From 5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 06:15:53 +0100
Subject: simul: replace Get_Instance_For_Slot by Get_Instance_Object.

---
 src/synth/synth-context.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/synth')

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;
-- 
cgit v1.2.3