diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-22 09:09:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-22 09:09:14 +0200 |
| commit | 946320e0984df406f0e3c50cd3db0fb49df5ec9b (patch) | |
| tree | 97d51eff8e649cacf5ad081f7dd9258553ddb2b2 /src/synth/elab-vhdl_values-debug.adb | |
| parent | c56080fed0b46083cf138962c5bb125ea08bfa0e (diff) | |
| download | ghdl-946320e0984df406f0e3c50cd3db0fb49df5ec9b.tar.gz ghdl-946320e0984df406f0e3c50cd3db0fb49df5ec9b.tar.bz2 ghdl-946320e0984df406f0e3c50cd3db0fb49df5ec9b.zip | |
synth: merge value for type_vector and type_array
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
| -rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index dfa14bc6c..c149c2eb0 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -68,9 +68,9 @@ package body Elab.Vhdl_Values.Debug is Put ("vector "); Debug_Typ_Phys (T); Put (" ("); - Debug_Bound (T.Vbound, True); + Debug_Bound (T.Abound, True); Put (") of "); - Debug_Typ1 (T.Vec_El); + Debug_Typ1 (T.Arr_El); when Type_Array => Put ("arr "); Debug_Typ_Phys (T); @@ -151,9 +151,9 @@ package body Elab.Vhdl_Values.Debug is when Type_Logic => Put ("logic"); when Type_Vector => - Debug_Type_Short (T.Vec_El); + Debug_Type_Short (T.Arr_El); Put ("_vec("); - Debug_Bound (T.Vbound, False); + Debug_Bound (T.Abound, False); Put (")"); when Type_Array => declare @@ -202,9 +202,9 @@ package body Elab.Vhdl_Values.Debug is Put_Uns32 (Uns32 (Read_U8 (M.Mem))); when Type_Vector => Put ("vector ("); - Debug_Bound (M.Typ.Vbound, True); + Debug_Bound (M.Typ.Abound, True); Put ("): "); - for I in 1 .. M.Typ.Vbound.Len loop + for I in 1 .. M.Typ.Abound.Len loop Put_Uns32 (Uns32 (Read_U8 (M.Mem + Size_Type (I - 1)))); end loop; when Type_Array => |