diff options
| -rw-r--r-- | src/synth/elab-vhdl_context.adb | 14 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_context.ads | 7 |
2 files changed, 0 insertions, 21 deletions
diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index c14a82964..717b90dd2 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -63,7 +63,6 @@ package body Elab.Vhdl_Context is Foreign => 0, Extra_Units => null, Extra_Link => null, - Cur_Stmt => Null_Node, Elab_Objects => 0, Objects => (others => (Kind => Obj_None))); Inst_Tables.Append (Root_Instance); @@ -112,7 +111,6 @@ package body Elab.Vhdl_Context is Foreign => 0, Extra_Units => null, Extra_Link => null, - Cur_Stmt => Null_Node, Elab_Objects => 0, Objects => (others => (Kind => Obj_None))); @@ -154,7 +152,6 @@ package body Elab.Vhdl_Context is Foreign => 0, Extra_Units => null, Extra_Link => null, - Cur_Stmt => Null_Node, Elab_Objects => 0, Objects => (others => (Kind => Obj_None))); @@ -563,15 +560,4 @@ package body Elab.Vhdl_Context is begin return Syn_Inst.Caller; end Get_Caller_Instance; - - function Get_Current_Stmt (Inst : Synth_Instance_Acc) return Node is - begin - return Inst.Cur_Stmt; - end Get_Current_Stmt; - - procedure Set_Current_Stmt (Inst : Synth_Instance_Acc; Stmt : Node) is - begin - Inst.Cur_Stmt := Stmt; - end Set_Current_Stmt; - end Elab.Vhdl_Context; diff --git a/src/synth/elab-vhdl_context.ads b/src/synth/elab-vhdl_context.ads index 6227b138d..c67d99b0d 100644 --- a/src/synth/elab-vhdl_context.ads +++ b/src/synth/elab-vhdl_context.ads @@ -98,10 +98,6 @@ package Elab.Vhdl_Context is function Get_Next_Extra_Instance (Inst : Synth_Instance_Acc) return Synth_Instance_Acc; - -- Current statement (for execution). - function Get_Current_Stmt (Inst : Synth_Instance_Acc) return Node; - procedure Set_Current_Stmt (Inst : Synth_Instance_Acc; Stmt : Node); - procedure Create_Object (Syn_Inst : Synth_Instance_Acc; Decl : Node; Vt : Valtyp); @@ -241,9 +237,6 @@ private Extra_Units : Synth_Instance_Acc; Extra_Link : Synth_Instance_Acc; - -- For processes and subprograms. - Cur_Stmt : Node; - -- Last elaborated object. Detect elaboration issues. Elab_Objects : Object_Slot_Type; |