From 153fbf23a362bc56275a009670e3de65e82b7987 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 14 Aug 2022 21:53:05 +0200
Subject: elab-vhdl_values-debug: improve output of debug_valtyp

---
 src/synth/elab-vhdl_values-debug.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/synth')

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);
-- 
cgit v1.2.3