diff options
Diffstat (limited to 'src/synth/synth-disp_vhdl.adb')
| -rw-r--r-- | src/synth/synth-disp_vhdl.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/synth/synth-disp_vhdl.adb b/src/synth/synth-disp_vhdl.adb index bc1642c07..cbded9008 100644 --- a/src/synth/synth-disp_vhdl.adb +++ b/src/synth/synth-disp_vhdl.adb @@ -473,6 +473,7 @@ package body Synth.Disp_Vhdl is M : Module; Num : Natural; begin + -- Count number of modules. Num := 0; M := Get_Next_Sub_Module (Main); while M /= No_Module loop @@ -482,6 +483,7 @@ package body Synth.Disp_Vhdl is M := Get_Next_Sub_Module (M); end loop; + -- Fill array of modules, display. declare type Module_Array is array (1 .. Num) of Module; Modules : Module_Array; @@ -497,7 +499,10 @@ package body Synth.Disp_Vhdl is end loop; for I in reverse Modules'Range loop - Netlists.Disp_Vhdl.Disp_Vhdl (Modules (I), False); + -- Skip blackboxes. + if Get_Self_Instance (Modules (I)) /= No_Instance then + Netlists.Disp_Vhdl.Disp_Vhdl (Modules (I), False); + end if; end loop; end; end; |