diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-19 16:23:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-19 16:23:49 +0200 |
commit | 80f764d9114dc6b147f398fed97fb985d0b9f1d4 (patch) | |
tree | 9611f1cc95776bc13bbb162f4a9127a26209887d /src/synth/synth-values-debug.adb | |
parent | a131ab5138f7a8bea69b4ff9434f287e77ef6f10 (diff) | |
download | ghdl-80f764d9114dc6b147f398fed97fb985d0b9f1d4.tar.gz ghdl-80f764d9114dc6b147f398fed97fb985d0b9f1d4.tar.bz2 ghdl-80f764d9114dc6b147f398fed97fb985d0b9f1d4.zip |
synth: reject protected types. Fix #1244
Diffstat (limited to 'src/synth/synth-values-debug.adb')
-rw-r--r-- | src/synth/synth-values-debug.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb index f43a71ea2..ca289fbdd 100644 --- a/src/synth/synth-values-debug.adb +++ b/src/synth/synth-values-debug.adb @@ -78,6 +78,8 @@ package body Synth.Values.Debug is Put ("unbounded vector"); when Type_Unbounded_Array => Put ("unbounded array"); + when Type_Protected => + Put ("protected"); end case; end Debug_Typ1; @@ -141,6 +143,8 @@ package body Synth.Values.Debug is Put ("unbounded vector"); when Type_Unbounded_Array => Put ("unbounded array"); + when Type_Protected => + Put ("protected"); end case; New_Line; end Debug_Memtyp; |