diff options
Diffstat (limited to 'src/synth/synth-context.adb')
-rw-r--r-- | src/synth/synth-context.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index 7786de669..e02059f9e 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -64,6 +64,7 @@ package body Synth.Context is Name => No_Sname, Block_Scope => Global_Info, Up_Block => null, + Source_Scope => Null_Node, Elab_Objects => 0, Objects => (others => null)); return Res; @@ -91,6 +92,7 @@ package body Synth.Context is Name => Name, Block_Scope => Scope, Up_Block => Parent, + Source_Scope => Blk, Elab_Objects => 0, Objects => (others => null)); return Res; @@ -130,6 +132,11 @@ package body Synth.Context is return Inst.Base.Cur_Module; end Get_Instance_Module; + function Get_Source_Scope (Inst : Synth_Instance_Acc) return Node is + begin + return Inst.Source_Scope; + end Get_Source_Scope; + function Get_Top_Module (Inst : Synth_Instance_Acc) return Module is begin return Inst.Base.Top_Module; |