diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-08-14 21:53:05 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-08-14 21:53:05 +0200 |
| commit | 153fbf23a362bc56275a009670e3de65e82b7987 (patch) | |
| tree | 8111b04a5a1a82131243656affcd28c5ec95f433 /src/synth | |
| parent | 56a15442f1690b7b996880f098bcf3eec47e9254 (diff) | |
| download | ghdl-153fbf23a362bc56275a009670e3de65e82b7987.tar.gz ghdl-153fbf23a362bc56275a009670e3de65e82b7987.tar.bz2 ghdl-153fbf23a362bc56275a009670e3de65e82b7987.zip | |
elab-vhdl_values-debug: improve output of debug_valtyp
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index 0d9e4923f..84be3123b 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -316,8 +316,10 @@ package body Elab.Vhdl_Values.Debug is when Value_Alias => Put ("an alias: "); Debug_Typ1 (V.Typ); + Put (" at offs "); + Put_Uns32 (V.Val.A_Off.Net_Off); Put (" of "); - Debug_Valtyp ((V.Typ, V.Val.A_Obj)); + Debug_Valtyp ((V.Val.A_Typ, V.Val.A_Obj)); when Value_Dyn_Alias => Put ("dyn alias: "); Debug_Typ1 (V.Typ); |