diff options
| -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 e363c0d..a1d3275 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; |