diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-07-16 08:31:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-07-16 08:31:03 +0200 |
commit | ae7667c05858b9d7f6c1637a06497dfa138f635e (patch) | |
tree | f44915b0e2147190f5123056febe0ff429fbe347 /src/synth/elab-vhdl_values-debug.adb | |
parent | 37d38f613b065b59b6d13aabaad3295861504296 (diff) | |
download | ghdl-ae7667c05858b9d7f6c1637a06497dfa138f635e.tar.gz ghdl-ae7667c05858b9d7f6c1637a06497dfa138f635e.tar.bz2 ghdl-ae7667c05858b9d7f6c1637a06497dfa138f635e.zip |
elab-vhdl_values: add Create_Value_Quantity
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
-rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index a7cf2f9a3..bd174f6b0 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -304,6 +304,10 @@ package body Elab.Vhdl_Values.Debug is New_Line; when Value_File => Put_Line ("a file"); + when Value_Quantity => + Put ("quantity "); + Put_Uns32 (Uns32 (V.Val.Q)); + New_Line; when Value_Alias => Put ("an alias: "); Debug_Typ1 (V.Typ); |