From 0c44c7def40d82a1e10ede897d44bfdd3b3537c8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 6 Aug 2020 19:59:14 +0200 Subject: trans-chap6: fix reuse violation of a node. --- src/vhdl/translate/trans-chap6.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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; -- cgit v1.2.3