From 538876ee05630948c101b86829efc5f963ba5e36 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 26 Apr 2020 20:07:15 +0200
Subject: netlists-disp_vhdl: check presence location on significant instances.

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

(limited to 'src/synth/netlists-disp_vhdl.adb')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 383d161d6..f61f8d32c 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -1306,6 +1306,21 @@ package body Netlists.Disp_Vhdl is
                                  and then Id < Id_User_None
                                  and then not Need_Signal (Inst))
                then
+                  if Locations.Get_Location (Inst) = No_Location then
+                     case Get_Id (Inst) is
+                        when Id_Const_UB32
+                          | Id_Const_UL32
+                          | Id_Const_Z
+                          | Id_Concat2
+                          | Id_Concat3
+                          | Id_Concat4
+                          | Id_Concatn
+                          | Id_Extract =>
+                           null;
+                        when others =>
+                           raise Internal_Error;
+                     end case;
+                  end if;
                   for N of Outputs (Inst) loop
                      if Id in Constant_Module_Id then
                         Put ("  constant ");
-- 
cgit v1.2.3