1 files changed, 79 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_decls.ads b/src/synth/synth-vhdl_decls.ads
new file mode 100644
index 000000000..fa1569430
--- /dev/null
+++ b/src/synth/synth-vhdl_decls.ads
@@ -0,0 +1,79 @@
+--  Create declarations for synthesis.
+--  Copyright (C) 2017 Tristan Gingold
+--
+--  This file is part of GHDL.
+--
+--  This program is free software: you can redistribute it and/or modify
+--  it under the terms of the GNU General Public License as published by
+--  the Free Software Foundation, either version 2 of the License, or
+--  (at your option) any later version.
+--
+--  This program is distributed in the hope that it will be useful,
+--  but WITHOUT ANY WARRANTY; without even the implied warranty of
+--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+--  GNU General Public License for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with this program.  If not, see <gnu.org/licenses>.
+
+with Vhdl.Nodes; use Vhdl.Nodes;
+
+with Netlists; use Netlists;
+with Synth.Vhdl_Context; use Synth.Vhdl_Context;
+with Synth.Objtypes; use Synth.Objtypes;
+
+package Synth.Vhdl_Decls is
+   --  Return the Param_Type for ATYPE.
+   function Type_To_Param_Type (Atype : Node) return Param_Type;
+
+   --  Convert MT to a Pval.
+   function Memtyp_To_Pval (Mt : Memtyp) return Pval;
+
+   --  Get the type of DECL iff it is standalone (not an already existing
+   --  subtype).
+   function Get_Declaration_Type (Decl : Node) return Node;
+
+   --  True if the element subtype indication of ATYPE needs to be created.
+   function Has_Element_Subtype_Indication (Atype : Node) return Boolean;
+
+   function Synth_Array_Subtype_Indication
+     (Syn_Inst : Synth_Instance_Acc; Atype : Node) return Type_Acc;
+
+   procedure Synth_Subtype_Indication
+     (Syn_Inst : Synth_Instance_Acc; Atype : Node);
+   function Synth_Subtype_Indication
+     (Syn_Inst : Synth_Instance_Acc; Atype : Node) return Type_Acc;
+
+   --  Elaborate the type of DECL.
+   procedure Synth_Declaration_Type
+     (Syn_Inst : Synth_Instance_Acc; Decl : Node);
+
+   procedure Synth_Declaration (Syn_Inst : Synth_Instance_Acc;
+                                Decl : Node;
+                                Is_Subprg : Boolean;
+                                Last_Type : in out Node);
+
+   procedure Synth_Declarations (Syn_Inst : Synth_Instance_Acc;
+                                 Decls : Iir;
+                                 Is_Subprg : Boolean := False);
+
+   procedure Finalize_Declaration (Syn_Inst : Synth_Instance_Acc;
+                                   Decl : Iir;
+                                   Is_Subprg : Boolean);
+   procedure Finalize_Declarations (Syn_Inst : Synth_Instance_Acc;
+                                    Decls : Iir;
+                                    Is_Subprg : Boolean := False);
+
+   procedure Synth_Package_Declaration
+     (Parent_Inst : Synth_Instance_Acc; Pkg : Node);
+   procedure Synth_Package_Body
+     (Parent_Inst : Synth_Instance_Acc; Pkg : Node; Bod : Node);
+
+   procedure Synth_Generics_Association (Sub_Inst : Synth_Instance_Acc;
+                                         Syn_Inst : Synth_Instance_Acc;
+                                         Inter_Chain : Node;
+                                         Assoc_Chain : Node);
+
+   procedure Synth_Package_Instantiation
+     (Parent_Inst : Synth_Instance_Acc; Pkg : Node);
+end Synth.Vhdl_Decls;