diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-04-16 19:03:15 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-04-16 19:03:15 +0200 |
commit | 1a7a8ac61228917e81d1a27222f8faa0b35385c0 (patch) | |
tree | a3465ad0e75131c2657ac0c86fe3f6c1eab64e1d /src/synth/netlists-dump.adb | |
parent | c83d2ccda1af2e2dd0b7161ca1db52162bc6fd9e (diff) | |
download | ghdl-1a7a8ac61228917e81d1a27222f8faa0b35385c0.tar.gz ghdl-1a7a8ac61228917e81d1a27222f8faa0b35385c0.tar.bz2 ghdl-1a7a8ac61228917e81d1a27222f8faa0b35385c0.zip |
synth: add comments.
Diffstat (limited to 'src/synth/netlists-dump.adb')
-rw-r--r-- | src/synth/netlists-dump.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 7db8f850e..16818bada 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -189,6 +189,7 @@ package body Netlists.Dump is procedure Dump_Module_Header (M : Module; Indent : Natural := 0) is begin + -- Module id and name. Put_Indent (Indent); Put ("module ("); Put_Trim (Module'Image (M)); @@ -196,6 +197,7 @@ package body Netlists.Dump is Dump_Name (Get_Name (M)); New_Line; + -- Parameters. for P of Params_Desc (M) loop Put_Indent (Indent + 1); Put ("parameter"); @@ -211,6 +213,7 @@ package body Netlists.Dump is New_Line; end loop; + -- Ports. for P of Ports_Desc (M) loop Put_Indent (Indent + 1); case P.Dir is @@ -460,6 +463,7 @@ package body Netlists.Dump is begin Dump_Module_Header (M, Indent); + -- Submodules. for S of Sub_Modules (M) loop if Get_Id (S) >= Id_User_None then Disp_Module (S, Indent + 1); @@ -472,6 +476,7 @@ package body Netlists.Dump is end if; end loop; + -- Assignments to outputs. declare Self : constant Instance := Get_Self_Instance (M); begin |