From 16ec60e45d913be37e2bb90473c053bf2cc87a74 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 16 Jan 2020 18:23:02 +0100
Subject: netlists-disp_vhdl: display memory content in user order.

---
 src/synth/netlists-disp_vhdl.adb | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/synth')

diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index f761c9254..1e676f11e 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -402,11 +402,12 @@ package body Netlists.Disp_Vhdl is
    is
       Q : constant Character := Get_Lit_Quote (W);
    begin
-      for I in 0 .. Depth - 1 loop
-         if I = 0 then
-            Put ("      (");
+      for I in reverse 0 .. Depth - 1 loop
+         Put ("      ");
+         if I = Depth - 1 then
+            Put ("(");
          else
-            Put ("       ");
+            Put (" ");
          end if;
          Put_Uns32 (I);
          Put (" => ");
@@ -415,7 +416,7 @@ package body Netlists.Disp_Vhdl is
             Disp_Const_Bit (Val, I * W + J);
          end loop;
          Put (Q);
-         if I /= Depth - 1 then
+         if I /= 0 then
             Put_Line (",");
          else
             Put_Line (");");
-- 
cgit v1.2.3