From 6b5e9d9b1b77c982607f5c71f54cfc1c35e8e262 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 23 Oct 2017 18:21:23 +0200 Subject: Set parent of interface p of deallocate. --- src/vhdl/sem_decls.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb index a83059109..2da398ee9 100644 --- a/src/vhdl/sem_decls.adb +++ b/src/vhdl/sem_decls.adb @@ -1253,6 +1253,7 @@ package body Sem_Decls is Create_Iir (Iir_Kind_Interface_Variable_Declaration); Location_Copy (Var_Interface, Decl); Set_Identifier (Var_Interface, Std_Names.Name_P); + Set_Parent (Var_Interface, Deallocate_Proc); Set_Type (Var_Interface, Type_Definition); Set_Mode (Var_Interface, Iir_Inout_Mode); --Set_Purity_State (Deallocate_Proc, Impure); -- cgit v1.2.3