synth-context: remove unused bit0/bit1 nets.

2 files changed, 2 insertions, 26 deletions

diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb
index 430489729..822acd731 100644
--- a/src/synth/synth-context.adb
+++ b/src/synth/synth-context.adb
@@ -46,9 +46,7 @@ package body Synth.Context is
 
       Base := new Base_Instance_Type'(Builder => Build_Context,
                                       Top_Module => Top_Module,
-                                      Cur_Module => No_Module,
-                                      Bit0 => No_Net,
-                                      Bit1 => No_Net);
+                                      Cur_Module => No_Module);
 
       Res := new Synth_Instance_Type'(Max_Objs => Global_Info.Nbr_Objects,
                                       Is_Const => False,
@@ -124,16 +122,12 @@ package body Synth.Context is
    begin
       Base := new Base_Instance_Type'(Builder => Prev_Base.Builder,
                                       Top_Module => Prev_Base.Top_Module,
-                                      Cur_Module => M,
-                                      Bit0 => No_Net,
-                                      Bit1 => No_Net);
+                                      Cur_Module => M);
       Builders.Set_Parent (Base.Builder, M);
 
       Self_Inst := Create_Self_Instance (M);
       pragma Unreferenced (Self_Inst);
 
-      Base.Bit0 := Build_Const_UB32 (Base.Builder, 0, 1);
-      Base.Bit1 := Build_Const_UB32 (Base.Builder, 1, 1);
       Inst.Base := Base;
    end Set_Instance_Module;
 
@@ -173,16 +167,6 @@ package body Synth.Context is
       return Inst.Base.Builder;
    end Get_Build;
 
-   function Get_Inst_Bit0 (Inst : Synth_Instance_Acc) return Net is
-   begin
-      return Inst.Base.Bit0;
-   end Get_Inst_Bit0;
-
-   function Get_Inst_Bit1 (Inst : Synth_Instance_Acc) return Net is
-   begin
-      return Inst.Base.Bit1;
-   end Get_Inst_Bit1;
-
    function Get_Instance_Const (Inst : Synth_Instance_Acc) return Boolean is
    begin
       return Inst.Is_Const;
diff --git a/src/synth/synth-context.ads b/src/synth/synth-context.ads
index ca15a6c66..6196257b8 100644
--- a/src/synth/synth-context.ads
+++ b/src/synth/synth-context.ads
@@ -80,12 +80,6 @@ package Synth.Context is
    function Get_Instance_Module (Inst : Synth_Instance_Acc) return Module;
    pragma Inline (Get_Instance_Module);
 
-   --  Each base instance creates bit0 and bit1, which are used for control
-   --  flow.
-   function Get_Inst_Bit0 (Inst : Synth_Instance_Acc) return Net;
-   function Get_Inst_Bit1 (Inst : Synth_Instance_Acc) return Net;
-   pragma Inline (Get_Inst_Bit0, Get_Inst_Bit1);
-
    --  Start the definition of module M (using INST).
    procedure Set_Instance_Module (Inst : Synth_Instance_Acc; M : Module);
 
@@ -172,8 +166,6 @@ private
       Top_Module : Module;
 
       Cur_Module : Module;
-      Bit0 : Net;
-      Bit1 : Net;
    end record;
 
    type Base_Instance_Acc is access Base_Instance_Type;