diff options
author | Tristan Gingold | 2014-11-28 21:20:00 +0100 |
---|---|---|
committer | Tristan Gingold | 2014-11-28 21:20:00 +0100 |
commit | c79a6fbdf9f0ca556d9f2409f99d59856db79a3d (patch) | |
tree | 9cb826f312c3185e829e4f95084c028c09b2ca22 /src | |
parent | 259036ad0f9f4d7f48b82726a0f55ec85564cd96 (diff) | |
download | ghdl-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.adb | 4 |
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 |