diff options
Diffstat (limited to 'src/synth/elab-vhdl_values-debug.adb')
| -rw-r--r-- | src/synth/elab-vhdl_values-debug.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_values-debug.adb b/src/synth/elab-vhdl_values-debug.adb index 76e8caa0a..63718b55d 100644 --- a/src/synth/elab-vhdl_values-debug.adb +++ b/src/synth/elab-vhdl_values-debug.adb @@ -297,6 +297,12 @@ package body Elab.Vhdl_Values.Debug is procedure Debug_Valtyp (V : Valtyp) is begin + if V.Val = null then + Put ("*null*"); + New_Line; + return; + end if; + case V.Val.Kind is when Value_Memory | Value_Const => |