diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-08-06 19:59:14 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-08-06 20:37:05 +0200 |
| commit | 0c44c7def40d82a1e10ede897d44bfdd3b3537c8 (patch) | |
| tree | 4f40a8e3efde32ce281c462f37c6a0708f442111 /src/vhdl/translate | |
| parent | d4853c3c2fee6dfabb5ff2ed56690c94af6e1124 (diff) | |
| download | ghdl-0c44c7def40d82a1e10ede897d44bfdd3b3537c8.tar.gz ghdl-0c44c7def40d82a1e10ede897d44bfdd3b3537c8.tar.bz2 ghdl-0c44c7def40d82a1e10ede897d44bfdd3b3537c8.zip | |
trans-chap6: fix reuse violation of a node.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index 38edf43ae..33c765c48 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -1300,6 +1300,7 @@ package body Trans.Chap6 is Offset := Translate_Indexed_Name_Offset (Pfx_Sig, Name); Sig := Translate_Indexed_Name_By_Offset (Pfx_Sig, Prefix_Type, Offset); + Pfx_Drv := Stabilize_If_Unbounded (Pfx_Drv); Drv := Translate_Indexed_Name_By_Offset (Pfx_Drv, Prefix_Type, Offset); end; |