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.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.adb')
| -rw-r--r-- | src/synth/synth-values.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index b72693243..995f41d55 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -473,7 +473,8 @@ package body Synth.Values is end loop; when Type_Access => Write_Access (M, Null_Heap_Index); - when Type_File => + when Type_File + | Type_Protected => raise Internal_Error; end case; end Write_Value_Default; |