From db08111a55bff4fcee5f268b44e247e5332d1e69 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 15 Jul 2015 06:47:19 +0200
Subject: Adjust previous patch: set parent.

---
 src/vhdl/sem_stmts.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/sem_stmts.adb b/src/vhdl/sem_stmts.adb
index e363c0da2..a1d3275e0 100644
--- a/src/vhdl/sem_stmts.adb
+++ b/src/vhdl/sem_stmts.adb
@@ -1927,9 +1927,11 @@ package body Sem_Stmts is
                Set_Chain (Prev_El, New_El);
             end if;
             Set_Chain (New_El, Next_El);
+            Set_Parent (New_El, Parent);
             Prev_El := New_El;
          else
             Prev_El := El;
+            pragma Assert (Get_Parent (El) = Parent);
          end if;
 
          El := Next_El;
-- 
cgit v1.2.3