diff options
Diffstat (limited to 'src/vhdl/simulate/simul-debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/simul-debugger.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/vhdl/simulate/simul-debugger.adb b/src/vhdl/simulate/simul-debugger.adb index 08e96320f..74c46c017 100644 --- a/src/vhdl/simulate/simul-debugger.adb +++ b/src/vhdl/simulate/simul-debugger.adb @@ -300,9 +300,9 @@ package body Simul.Debugger is procedure Disp_Instances_Tree is begin - for I in Package_Instances'Range loop - if Package_Instances (I) /= null then - Disp_Instances_Tree_Name (Package_Instances (I)); + for I in Global_Instances.Objects'Range loop + if Global_Instances.Objects (I) /= null then + Disp_Instances_Tree_Name (Global_Instances.Objects (I).Instance); end if; end loop; Disp_Instances_Tree_Name (Top_Instance); @@ -386,6 +386,7 @@ package body Simul.Debugger is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal + | Iir_Value_Instance | Iir_Value_Environment => raise Internal_Error; end case; @@ -1298,9 +1299,10 @@ package body Simul.Debugger is Put_Line ("design not yet fully elaborated"); return; end if; - for I in Package_Instances'Range loop - if Package_Instances (I) /= null then - Put (Get_Instance_Local_Name (Package_Instances (I))); + for I in Global_Instances.Objects'Range loop + if Global_Instances.Objects (I) /= null then + Put (Get_Instance_Local_Name + (Global_Instances.Objects (I).Instance)); Put_Line (" [package]"); end if; end loop; |