diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-28 07:25:26 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-28 07:25:26 +0200 |
| commit | 05d5d620dc14192f0e9538a012b0b1b19508f0cd (patch) | |
| tree | 08e106d78e6acf3399344063644acd41aaf8afa6 /src | |
| parent | 92528ae105b8eb2f96640cbe7ded8a1c42ac66f0 (diff) | |
| download | ghdl-05d5d620dc14192f0e9538a012b0b1b19508f0cd.tar.gz ghdl-05d5d620dc14192f0e9538a012b0b1b19508f0cd.tar.bz2 ghdl-05d5d620dc14192f0e9538a012b0b1b19508f0cd.zip | |
synth: disp_vhdl: add disp_template.
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 69 |
1 files changed, 46 insertions, 23 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 745ca78e7..9d6954b2b 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -278,6 +278,28 @@ package body Netlists.Disp_Vhdl is Bchar : constant array (Uns32 range 0 .. 1) of Character := "01"; + type Net_Array is array (Positive range <>) of Net; + NL : constant Character := ASCII.LF; + + procedure Disp_Template (S : String; N : Net_Array) + is + I : Positive; + C : Character; + begin + I := S'First; + while I <= S'Last loop + C := S (I); + if C = '\' then + I := I + 1; + C := S (I); + Disp_Net_Name (N (Character'Pos (C) - Character'Pos ('0'))); + else + Put (C); + end if; + I := I + 1; + end loop; + end Disp_Template; + procedure Disp_Instance_Inline (Inst : Instance) is Imod : constant Module := Get_Module (Inst); @@ -325,29 +347,30 @@ package body Netlists.Disp_Vhdl is Rst_Val : constant Net := Get_Driver (Get_Input (Inst, 3)); O : constant Net := Get_Output (Inst, 0); begin - Put (" process ("); - Disp_Net_Name (Clk); - Put (", "); - Disp_Net_Name (Rst); - Put_Line (")"); - Put_Line (" begin"); - Put (" if "); - Disp_Net_Name (Rst); - Put (" = '1'"); - Put_Line (" then"); - Put (" "); - Disp_Net_Name (O); - Put (" <= "); - Disp_Net_Name (Rst_Val); - Put_Line (";"); - Put_Line (" else"); - Put (" "); - Disp_Net_Name (O); - Put (" <= "); - Disp_Net_Name (D); - Put_Line (";"); - Put_Line (" end if;"); - Put_Line (" end process;"); + Disp_Template + (" process (\1, \3)" & NL & + " begin" & NL & + " if \3 = '1' then" & NL & + " \5 <= \4;" & NL & + " elsif rising_edge (\1) then" & NL & + " \5 <= \2;" & NL & + " end if;" & NL & + " end process;" & NL, + (1 => Clk, 2 => D, 3 => Rst, 4 => Rst_Val, 5 => O)); + end; + when Id_Dff => + declare + Clk : constant Net := Get_Driver (Get_Input (Inst, 0)); + D : constant Net := Get_Driver (Get_Input (Inst, 1)); + O : constant Net := Get_Output (Inst, 0); + begin + Disp_Template + (" process (\1)" & NL & + " begin" & NL & + " if rising_edge (\1) then" & NL & + " \3 <= \2;" & NL & + " end if;" & NL & + " end process;" & NL, (1 => Clk, 2 => D, 3 => O)); end; when others => Disp_Instance_Gate (Inst); |