2 files changed, 9 insertions, 2 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb
index 16818bada..76438a6e1 100644
--- a/src/synth/netlists-dump.adb
+++ b/src/synth/netlists-dump.adb
@@ -305,8 +305,6 @@ package body Netlists.Dump is
       end if;
    end Dump_Net_Name_And_Width;
 
-   Flag_Disp_Inline : constant Boolean := True;
-
    function Can_Inline (Inst : Instance) return Boolean is
    begin
       case Get_Id (Inst) is
@@ -411,6 +409,12 @@ package body Netlists.Dump is
          Dump_Name (Get_Name (Inst));
       end if;
 
+      if True then
+         Put ('[');
+         Put_Trim (Instance'Image (Inst));
+         Put (']');
+      end if;
+
       if Get_Nbr_Inputs (M) > 0 then
          declare
             First : Boolean;
diff --git a/src/synth/netlists-dump.ads b/src/synth/netlists-dump.ads
index 7cca85400..b2855111c 100644
--- a/src/synth/netlists-dump.ads
+++ b/src/synth/netlists-dump.ads
@@ -19,6 +19,9 @@
 --  MA 02110-1301, USA.
 
 package Netlists.Dump is
+   --  If set, compact print.
+   Flag_Disp_Inline : Boolean := True;
+
    procedure Dump_Net_Name (N : Net; With_Id : Boolean := False);
    procedure Disp_Driver (Drv : Net);
    procedure Disp_Instance (Inst : Instance; With_Name : Boolean);