diff options
| -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 |