From 443cbd051e90942674d6b9aea01ed8b7a84a3cc4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 14 Jul 2017 07:33:39 +0200
Subject: Set parent of implicit deallocate declaration.

Fix #384
---
 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 e3d0480c4..8b22bf25d 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -1235,6 +1235,7 @@ package body Sem_Decls is
                Set_Identifier (Deallocate_Proc, Std_Names.Name_Deallocate);
                Set_Implicit_Definition
                  (Deallocate_Proc, Iir_Predefined_Deallocate);
+               Set_Parent (Deallocate_Proc, Get_Parent (Decl));
 
                Var_Interface :=
                  Create_Iir (Iir_Kind_Interface_Variable_Declaration);
-- 
cgit v1.2.3