From de4766d9b15d458e7ef963a5157536b0f459dbe9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 23 Dec 2017 18:19:43 +0100
Subject: simul: remove ports_map from instances (not used).

---
 src/vhdl/simulate/simul-elaboration.adb  | 5 -----
 src/vhdl/simulate/simul-environments.ads | 3 ---
 src/vhdl/simulate/simul-execution.adb    | 1 -
 3 files changed, 9 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb
index 2163c80ff..73a31b287 100644
--- a/src/vhdl/simulate/simul-elaboration.adb
+++ b/src/vhdl/simulate/simul-elaboration.adb
@@ -354,7 +354,6 @@ package body Simul.Elaboration is
          Parent => Father,
          Children => null,
          Brother => null,
-         Ports_Map => Null_Iir,
          Marker => Empty_Marker,
          Objects => (others => null),
          Elab_Objects => 0,
@@ -1290,9 +1289,6 @@ package body Simul.Elaboration is
       Actual : Iir;
       Formal : Iir;
    begin
-      pragma Assert (Formal_Instance.Ports_Map = Null_Iir);
-      Formal_Instance.Ports_Map := Map;
-
       if Ports = Null_Iir then
          return;
       end if;
@@ -3009,7 +3005,6 @@ package body Simul.Elaboration is
                                  Parent => null,
                                  Children => null,
                                  Brother => null,
-                                 Ports_Map => Null_Iir,
                                  Marker => Empty_Marker,
                                  Actuals_Ref => null,
                                  Result => null,
diff --git a/src/vhdl/simulate/simul-environments.ads b/src/vhdl/simulate/simul-environments.ads
index d8c3885e6..845c4fafc 100644
--- a/src/vhdl/simulate/simul-environments.ads
+++ b/src/vhdl/simulate/simul-environments.ads
@@ -333,9 +333,6 @@ package Simul.Environments is
       Children: Block_Instance_Acc;
       Brother: Block_Instance_Acc;
 
-      --  Port association map for this block, if any.
-      Ports_Map : Iir;
-
       --  Pool marker for the child (only for subprograms and processes).
       Marker : Areapools.Mark_Type;
 
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index acc3b9c0b..18cd20c3f 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -3421,7 +3421,6 @@ package body Simul.Execution is
                                     Parent => Instance,
                                     Children => null,
                                     Brother => null,
-                                    Ports_Map => Null_Iir,
                                     Marker => Empty_Marker,
                                     Objects => (others => null),
                                     Elab_Objects => 0,
-- 
cgit v1.2.3