From db5c3b1cf051d215ee7f02064464b4b1088ea226 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 11 Sep 2019 06:31:00 +0200
Subject: synth: improve support of return statement.

---
 src/synth/synth-environment.adb | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/synth/synth-environment.adb')

diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb
index 41e6140ac..5a517b7d5 100644
--- a/src/synth/synth-environment.adb
+++ b/src/synth/synth-environment.adb
@@ -61,6 +61,11 @@ package body Synth.Environment is
       Wire_Id_Table.Table (Wid).Gate := Gate;
    end Set_Wire_Gate;
 
+   function Get_Wire_Gate (Wid : Wire_Id) return Net is
+   begin
+      return Wire_Id_Table.Table (Wid).Gate;
+   end Get_Wire_Gate;
+
    function Get_Wire_Id (W : Seq_Assign) return Wire_Id is
    begin
       return Assign_Table.Table (W).Id;
-- 
cgit v1.2.3