diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-29 18:44:11 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-29 18:44:11 +0200 |
| commit | 1e90b56431dc5df5463a760555b1abc746f50958 (patch) | |
| tree | a2f558d972f3d72817e5bf60087334cae6370838 /src/synth/netlists-dump.adb | |
| parent | 2068fb5a9eba5da625d2dd73fdcb47755487d9f3 (diff) | |
| download | ghdl-1e90b56431dc5df5463a760555b1abc746f50958.tar.gz ghdl-1e90b56431dc5df5463a760555b1abc746f50958.tar.bz2 ghdl-1e90b56431dc5df5463a760555b1abc746f50958.zip | |
synth: add support for memories.
Diffstat (limited to 'src/synth/netlists-dump.adb')
| -rw-r--r-- | src/synth/netlists-dump.adb | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index e6bb8517e..5d33cc664 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -193,9 +193,9 @@ package body Netlists.Dump is begin -- Module id and name. Put_Indent (Indent); - Put ("module ("); + Put ("module @"); Put_Trim (Module'Image (M)); - Put (") "); + Put (" "); Dump_Name (Get_Name (M)); New_Line; @@ -392,7 +392,12 @@ package body Netlists.Dump is Dump_Name (Get_Name (M)); - if Get_Nbr_Params (M) > 0 then + if True then + Put ('@'); + Put_Trim (Instance'Image (Inst)); + end if; + + if Get_Nbr_Params (Inst) > 0 then declare First : Boolean; begin @@ -415,12 +420,6 @@ 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 (Inst) > 0 then declare First : Boolean; |