diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-16 18:23:02 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-16 18:23:02 +0100 |
| commit | 16ec60e45d913be37e2bb90473c053bf2cc87a74 (patch) | |
| tree | 18136f891270af7fed6fb86880a4d7fd7ccd16ce /src/synth/netlists-disp_vhdl.adb | |
| parent | 50dfbb841f3a50cb72bd381cc3438327a7b4e2f3 (diff) | |
| download | ghdl-16ec60e45d913be37e2bb90473c053bf2cc87a74.tar.gz ghdl-16ec60e45d913be37e2bb90473c053bf2cc87a74.tar.bz2 ghdl-16ec60e45d913be37e2bb90473c053bf2cc87a74.zip | |
netlists-disp_vhdl: display memory content in user order.
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 11 |
1 files changed, 6 insertions, 5 deletions
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 (");"); |