diff options
Diffstat (limited to 'src/synth/synthesis.adb')
-rw-r--r-- | src/synth/synthesis.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/synth/synthesis.adb b/src/synth/synthesis.adb index 742f2e8b4..6e7157a53 100644 --- a/src/synth/synthesis.adb +++ b/src/synth/synthesis.adb @@ -18,18 +18,20 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Errorout; use Errorout; +with Vhdl.Errors; use Vhdl.Errors; + with Synth.Values; with Synth.Insts; use Synth.Insts; with Synth.Environment.Debug; pragma Unreferenced (Synth.Environment.Debug); -with Errorout; use Errorout; -with Vhdl.Errors; use Vhdl.Errors; - package body Synthesis is - procedure Synth_Design - (Design : Node; M : out Module; Inst : out Synth_Instance_Acc) + procedure Synth_Design (Design : Node; + Encoding : Name_Encoding; + M : out Module; + Inst : out Synth_Instance_Acc) is Unit : constant Node := Get_Library_Unit (Design); Arch : Node; @@ -54,7 +56,7 @@ package body Synthesis is Synth.Values.Init; - Synth_Top_Entity (Global_Instance, Arch, Config, Inst); + Synth_Top_Entity (Global_Instance, Arch, Config, Encoding, Inst); Synth_All_Instances; if Errorout.Nbr_Errors > 0 then M := No_Module; |