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 ef9569c0c..c02604049 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -70,6 +70,13 @@ package body Synth.Context is return Res; end Make_Base_Instance; + procedure Free_Base_Instance is + begin + -- TODO: really free. + Build_Context := null; + Packages_Table.Init; + end Free_Base_Instance; + function Make_Instance (Parent : Synth_Instance_Acc; Blk : Node; Name : Sname := No_Sname) |