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-nodes.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-nodes.adb')
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index 6c05149a7..5425a4a34 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -3273,7 +3273,7 @@ package body Vhdl.Nodes is pragma Assert (N /= Null_Iir); pragma Assert (Has_Uninstantiated_Subprogram_Name (Get_Kind (N)), "no field Uninstantiated_Subprogram_Name"); - return Get_Field6 (N); + return Get_Field7 (N); end Get_Uninstantiated_Subprogram_Name; procedure Set_Uninstantiated_Subprogram_Name (N : Iir; Name : Iir) is @@ -3281,7 +3281,7 @@ package body Vhdl.Nodes is pragma Assert (N /= Null_Iir); pragma Assert (Has_Uninstantiated_Subprogram_Name (Get_Kind (N)), "no field Uninstantiated_Subprogram_Name"); - Set_Field6 (N, Name); + Set_Field7 (N, Name); end Set_Uninstantiated_Subprogram_Name; function Get_Default_Value (Target : Iir) return Iir is |