From e6a643ea1db47dc5fcf3893a81b3193869edbc38 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 2 Dec 2019 21:18:37 +0100
Subject: synth: support multiple synthesis.
---
src/synth/synth-context.adb | 7 +++++++
1 file changed, 7 insertions(+)
(limited to 'src/synth/synth-context.adb')
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)
--
cgit v1.2.3