diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-01 20:33:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-02 02:31:07 +0200 |
commit | 21259ac719911175ea0cb3601cc2423de8fed755 (patch) | |
tree | 9811e00cb44b5b0b0bc339891089d396adc7fc37 /src/synth/elab-vhdl_values-debug.adb | |
parent | 8a8f3d867598a1f9e3125c9d0648ae20a7144253 (diff) | |
download | ghdl-21259ac719911175ea0cb3601cc2423de8fed755.tar.gz ghdl-21259ac719911175ea0cb3601cc2423de8fed755.tar.bz2 ghdl-21259ac719911175ea0cb3601cc2423de8fed755.zip |
synth: improve debug subprograms
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
-rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index 84be3123b..aec0b1e20 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -261,7 +261,8 @@ package body Elab.Vhdl_Values.Debug is Put ("discrete: "); Put_Int64 (Read_Discrete (M)); when Type_Access => - Put ("access"); + Put ("access: "); + Put_Uns32 (Uns32 (Read_Access (M))); when Type_File => Put ("file"); when Type_Float => |