diff options
Diffstat (limited to 'src/synth/synth-insts.adb')
-rw-r--r-- | src/synth/synth-insts.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index f022ac71d..2013d4939 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -52,6 +52,7 @@ with Synth.Decls; use Synth.Decls; with Synth.Expr; use Synth.Expr; with Synth.Source; use Synth.Source; with Synth.Debugger; +with Synth.Files_Operations; package body Synth.Insts is Root_Instance : Synth_Instance_Acc; @@ -1464,6 +1465,10 @@ package body Synth.Insts is return; end if; + -- Save the current architecture, so that files can be open using a + -- path relative to the architecture filename. + Synth.Files_Operations.Set_Design_Unit (Arch); + Synth_Dependencies (Root_Instance, Get_Design_Unit (Arch)); Set_Instance_Module (Syn_Inst, Inst.M); |