diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-09-26 08:13:09 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-09-26 08:13:09 +0200 |
commit | 8269262a63906c16f4fc2fd3c17fc91216eb7f09 (patch) | |
tree | 6d0bb3c3e1488510ba00bf7df81c35825a216e2e /src/vhdl/vhdl-canon.adb | |
parent | 73d2b4ce553340c576a85c8d3d9461ddfd95ea0f (diff) | |
download | ghdl-8269262a63906c16f4fc2fd3c17fc91216eb7f09.tar.gz ghdl-8269262a63906c16f4fc2fd3c17fc91216eb7f09.tar.bz2 ghdl-8269262a63906c16f4fc2fd3c17fc91216eb7f09.zip |
vhdl: analyze subprogram instantiations. WIP. For #1470
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
-rw-r--r-- | src/vhdl/vhdl-canon.adb | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 53cb5430b..50bad4ce8 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -2913,7 +2913,7 @@ package body Vhdl.Canon is begin case Get_Kind (Decl) is when Iir_Kind_Procedure_Body - | Iir_Kind_Function_Body => + | Iir_Kind_Function_Body => Canon_Declarations (Top, Decl, Null_Iir); if Canon_Flag_Sequentials_Stmts then Stmts := Get_Sequential_Statement_Chain (Decl); @@ -2922,7 +2922,10 @@ package body Vhdl.Canon is end if; when Iir_Kind_Procedure_Declaration - | Iir_Kind_Function_Declaration => + | Iir_Kind_Function_Declaration => + null; + when Iir_Kind_Function_Instantiation_Declaration + | Iir_Kind_Procedure_Instantiation_Declaration => null; when Iir_Kind_Type_Declaration => @@ -2936,15 +2939,15 @@ package body Vhdl.Canon is end; when Iir_Kind_Anonymous_Type_Declaration - | Iir_Kind_Subtype_Declaration => + | Iir_Kind_Subtype_Declaration => null; when Iir_Kind_Protected_Type_Body => Canon_Declarations (Top, Decl, Null_Iir); when Iir_Kind_Variable_Declaration - | Iir_Kind_Signal_Declaration - | Iir_Kind_Constant_Declaration => + | Iir_Kind_Signal_Declaration + | Iir_Kind_Constant_Declaration => if Canon_Flag_Expressions then Canon_Subtype_Indication_If_Anonymous (Get_Type (Decl)); Canon_Expression (Get_Default_Value (Decl)); @@ -3042,7 +3045,7 @@ package body Vhdl.Canon is null; when Iir_Kind_Nature_Declaration - | Iir_Kind_Subnature_Declaration => + | Iir_Kind_Subnature_Declaration => null; when Iir_Kind_Terminal_Declaration => null; |