From 13a28fa63e8dca2b31e09c2b393a6440b64d05b8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 28 Oct 2019 18:41:41 +0100
Subject: netlists-disp_vhdl: prefix of strunc/utrunc cannot be a constant.

---
 src/synth/netlists-disp_vhdl.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 78f1efe0d..0ebb67c87 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -436,7 +436,9 @@ package body Netlists.Disp_Vhdl is
       case Id is
          when Id_Extract
            | Id_Dyn_Extract
-           | Id_Dyn_Insert =>
+           | Id_Dyn_Insert
+           | Id_Utrunc
+           | Id_Strunc =>
             return True;
          when Id_User_None .. Module_Id'Last =>
             return True;
-- 
cgit v1.2.3