diff options
Diffstat (limited to 'sem_stmts.adb')
| -rw-r--r-- | sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb index d7079925f..b95b3e510 100644 --- a/sem_stmts.adb +++ b/sem_stmts.adb @@ -1417,7 +1417,7 @@ package body Sem_Stmts is Sem_Procedure_Call (Call, Stmt); if Is_Passive then - Imp := Get_Named_Entity (Get_Implementation (Call)); + Imp := Get_Implementation (Call); if Get_Kind (Imp) = Iir_Kind_Procedure_Declaration then Decl := Get_Interface_Declaration_Chain (Imp); while Decl /= Null_Iir loop |