From c79a6fbdf9f0ca556d9f2409f99d59856db79a3d Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Fri, 28 Nov 2014 21:20:00 +0100
Subject: sem_stmt: avoid crash after error on concurrent procedure call in
 entity.

---
 src/vhdl/sem_stmts.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit