1-- Source/origin of synthesis. 2-- Copyright (C) 2017 Tristan Gingold 3-- 4-- This file is part of GHDL. 5-- 6-- This program is free software; you can redistribute it and/or modify 7-- it under the terms of the GNU General Public License as published by 8-- the Free Software Foundation; either version 2 of the License, or 9-- (at your option) any later version. 10-- 11-- This program is distributed in the hope that it will be useful, 12-- but WITHOUT ANY WARRANTY; without even the implied warranty of 13-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14-- GNU General Public License for more details. 15-- 16-- You should have received a copy of the GNU General Public License 17-- along with this program; if not, write to the Free Software 18-- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 19-- MA 02110-1301, USA. 20 21with Types; use Types; 22with Errorout; 23 24with Netlists; 25 26with Vhdl.Nodes; use Vhdl.Nodes; 27with Vhdl.Errors; 28 29package Synth.Source is 30 subtype Syn_Src is Node; 31 No_Syn_Src : constant Syn_Src := Null_Node; 32 33 function "+" (N : Node) return Location_Type renames Vhdl.Errors."+"; 34 function "+" (N : Node) return Errorout.Earg_Type renames Vhdl.Errors."+"; 35 36 procedure Set_Location (N : Netlists.Net; Src : Syn_Src); 37 pragma Inline (Set_Location); 38 39 procedure Set_Location (Inst : Netlists.Instance; Src : Syn_Src); 40 pragma Inline (Set_Location); 41 42 -- Set only if not yet set. 43 procedure Set_Location_Maybe (Inst : Netlists.Instance; Src : Syn_Src); 44 procedure Set_Location_Maybe (N : Netlists.Net; Src : Syn_Src); 45end Synth.Source; 46