diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-09-12 10:16:28 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-09-12 10:16:28 +0200 |
| commit | 7dada3d5edce113d1dd29a9587447d2fd9c40067 (patch) | |
| tree | 33b36e00905a6e3c4ee3e9ed7c8804098a83fc91 /src | |
| parent | a3326f7439515f192ec798ad8f1ceb2b29565345 (diff) | |
| download | ghdl-7dada3d5edce113d1dd29a9587447d2fd9c40067.tar.gz ghdl-7dada3d5edce113d1dd29a9587447d2fd9c40067.tar.bz2 ghdl-7dada3d5edce113d1dd29a9587447d2fd9c40067.zip | |
vhdl-sem_assocs: add a check to avoid a crash on an error. Fix #873
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_assocs.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb index 4c9ea3b06..304e59915 100644 --- a/src/vhdl/vhdl-sem_assocs.adb +++ b/src/vhdl/vhdl-sem_assocs.adb @@ -534,6 +534,10 @@ package body Vhdl.Sem_Assocs is then return True; end if; + if Get_Kind (Dest) not in Iir_Kinds_Scalar_Type_And_Subtype_Definition + then + return True; + end if; Src_Range := Get_Range_Constraint (Src); Dst_Range := Get_Range_Constraint (Dest); |