summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold2014-11-28 21:20:00 +0100
committerTristan Gingold2014-11-28 21:20:00 +0100
commitc79a6fbdf9f0ca556d9f2409f99d59856db79a3d (patch)
tree9cb826f312c3185e829e4f95084c028c09b2ca22 /src
parent259036ad0f9f4d7f48b82726a0f55ec85564cd96 (diff)
downloadghdl-c79a6fbdf9f0ca556d9f2409f99d59856db79a3d.tar.gz
ghdl-c79a6fbdf9f0ca556d9f2409f99d59856db79a3d.tar.bz2
ghdl-c79a6fbdf9f0ca556d9f2409f99d59856db79a3d.zip
sem_stmt: avoid crash after error on concurrent procedure call in entity.
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/sem_stmts.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb
index b5912fb..d142768 100644
--- a/src/vhdl/sem_stmts.adb
+++ b/src/vhdl/sem_stmts.adb
@@ -1418,7 +1418,9 @@ package body Sem_Stmts is
if Is_Passive then
Imp := Get_Implementation (Call);
- if Get_Kind (Imp) = Iir_Kind_Procedure_Declaration then
+ if Imp /= Null_Iir
+ and then Get_Kind (Imp) = Iir_Kind_Procedure_Declaration
+ then
Decl := Get_Interface_Declaration_Chain (Imp);
while Decl /= Null_Iir loop
if Get_Mode (Decl) in Iir_Out_Modes then