diff options
Diffstat (limited to 'src/vhdl/canon.adb')
| -rw-r--r-- | src/vhdl/canon.adb | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index 8b8ffe49a..dc3e1af52 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -650,8 +650,7 @@ package body Canon is Canon_Expression (Get_Right (Expr)); if Get_Kind (Expr) = Iir_Kind_Concatenation_Operator and then Canon_Concatenation - and then Get_Kind (Get_Implementation (Expr)) = - Iir_Kind_Implicit_Function_Declaration + and then Is_Implicit_Subprogram (Get_Implementation (Expr)) then --Canon_Concatenation_Operator (Expr); raise Internal_Error; @@ -2304,10 +2303,6 @@ package body Canon is when Iir_Kind_Component_Declaration => null; - when Iir_Kind_Implicit_Procedure_Declaration - | Iir_Kind_Implicit_Function_Declaration => - null; - when Iir_Kind_Configuration_Specification => Canon_Component_Specification (Decl, Parent); Canon_Component_Configuration (Top, Decl); |