diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-17 20:55:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-17 20:56:00 +0200 |
| commit | 30f52be1c693f3a5b12de55656d04cba5f1ecd86 (patch) | |
| tree | 75845a391af2ad10cf7176d91d57aab5dbe0acfe | |
| parent | 6e271b5c7ed38fd1a06245fe25ff2e6ac7dfb707 (diff) | |
| download | ghdl-30f52be1c693f3a5b12de55656d04cba5f1ecd86.tar.gz ghdl-30f52be1c693f3a5b12de55656d04cba5f1ecd86.tar.bz2 ghdl-30f52be1c693f3a5b12de55656d04cba5f1ecd86.zip | |
elab-vhdl_context: remove cur_stmt from context
| -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; |