aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-canon.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-09-26 08:13:09 +0200
committerTristan Gingold <tgingold@free.fr>2020-09-26 08:13:09 +0200
commit8269262a63906c16f4fc2fd3c17fc91216eb7f09 (patch)
tree6d0bb3c3e1488510ba00bf7df81c35825a216e2e /src/vhdl/vhdl-canon.adb
parent73d2b4ce553340c576a85c8d3d9461ddfd95ea0f (diff)
downloadghdl-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.adb15
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;