From 21259ac719911175ea0cb3601cc2423de8fed755 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 1 Sep 2022 20:33:05 +0200 Subject: synth: improve debug subprograms --- src/synth/elab-debugger.adb | 6 ++++++ src/synth/elab-vhdl_values-debug.adb | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 0f5ecb9dc..66b1fe835 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -560,6 +560,12 @@ package body Elab.Debugger is With_Objs := True; elsif Line (F .. L) = "-R" then Recurse := True; + elsif Line (F .. L) = "-h" then + Put_Line ("options:"); + Put_Line (" -h this help"); + Put_Line (" -v with objects"); + Put_Line (" -R recurses"); + return; else Put_Line ("unknown option: " & Line (F .. L)); return; 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 => -- cgit v1.2.3