diff options
| author | Tristan Gingold | 2013-12-29 11:52:07 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2013-12-29 11:52:07 +0100 |
| commit | c2a20bfff0896a33abed1cf2c4d4f1551457e710 (patch) | |
| tree | 3371081eb726060a81dc87a00188576628a4aaff /iirs_utils.adb | |
| parent | c8ec04b7ddb029a08bb065cb96902c2fcbfde335 (diff) | |
| download | ghdl-c2a20bfff0896a33abed1cf2c4d4f1551457e710.tar.gz ghdl-c2a20bfff0896a33abed1cf2c4d4f1551457e710.tar.bz2 ghdl-c2a20bfff0896a33abed1cf2c4d4f1551457e710.zip | |
Fix crash in bug21078.
Diffstat (limited to 'iirs_utils.adb')
| -rw-r--r-- | iirs_utils.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/iirs_utils.adb b/iirs_utils.adb index 904b421..35cbbef 100644 --- a/iirs_utils.adb +++ b/iirs_utils.adb @@ -191,7 +191,8 @@ package body Iirs_Utils is | Iir_Kind_Simple_Aggregate | Iir_Kind_Dereference | Iir_Kind_Implicit_Dereference - | Iir_Kind_Unit_Declaration => + | Iir_Kind_Unit_Declaration + | Iir_Kinds_Concurrent_Statement => return Adecl; when Iir_Kind_Simple_Name | Iir_Kind_Selected_Name => |