diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-07-15 06:47:19 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-07-15 06:47:19 +0200 |
commit | db08111a55bff4fcee5f268b44e247e5332d1e69 (patch) | |
tree | edae462d49644afbab358e811dee3b59b367495f /src | |
parent | d12616d2738c6158654d9058fd788f5ec0306109 (diff) | |
download | ghdl-db08111a55bff4fcee5f268b44e247e5332d1e69.tar.gz ghdl-db08111a55bff4fcee5f268b44e247e5332d1e69.tar.bz2 ghdl-db08111a55bff4fcee5f268b44e247e5332d1e69.zip |
Adjust previous patch: set parent.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/sem_stmts.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |