diff options
Diffstat (limited to 'src/vhdl/simulate/debugger.adb')
| -rw-r--r-- | src/vhdl/simulate/debugger.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/simulate/debugger.adb b/src/vhdl/simulate/debugger.adb index 75f099c8e..977e6e3a3 100644 --- a/src/vhdl/simulate/debugger.adb +++ b/src/vhdl/simulate/debugger.adb @@ -348,10 +348,10 @@ package body Debugger is procedure Disp_Signal_Record (Value : Iir_Value_Literal_Acc; A_Type : Iir) is + List : constant Iir_Flist := + Get_Elements_Declaration_List (Get_Base_Type (A_Type)); El : Iir_Element_Declaration; - List : Iir_List; begin - List := Get_Elements_Declaration_List (Get_Base_Type (A_Type)); Put ("("); for I in Value.Val_Record.V'Range loop El := Get_Nth_Element (List, Natural (I - 1)); |