diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:00:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:00:14 +0200 |
| commit | 0650183330f4ab87aa28a09c13486c1fe2d86552 (patch) | |
| tree | 38adfaf16f71254d2a7189a7e6ac5663f26e92a0 | |
| parent | 4f7a71367659fb89b2b1fae0ba9a5946f9127e82 (diff) | |
| download | ghdl-0650183330f4ab87aa28a09c13486c1fe2d86552.tar.gz ghdl-0650183330f4ab87aa28a09c13486c1fe2d86552.tar.bz2 ghdl-0650183330f4ab87aa28a09c13486c1fe2d86552.zip | |
Avoid crash if name of subprogram also denotes a non-subprogram declaration.
Fix ticket 41.
| -rw-r--r-- | src/vhdl/sem.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 95bbe90fd..3a3f50540 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -1565,6 +1565,7 @@ package body Sem is -- Also, only check for explicitly subprograms (and not -- implicit one). if not Is_Implicit_Subprogram (Decl1) + and then Get_Kind (Decl1) in Iir_Kinds_Subprogram_Declaration and then not Is_Potentially_Visible (Interpretation) and then Get_Subprogram_Hash (Decl1) = Hash and then Is_Same_Profile (Decl, Decl1) |