diff options
| -rw-r--r-- | src/vhdl/simulate/simul-elaboration.adb | 5 | ||||
| -rw-r--r-- | src/vhdl/simulate/simul-environments.ads | 3 | ||||
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 1 |
3 files changed, 0 insertions, 9 deletions
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, |