1-- Meta description of Elocations. 2-- Copyright (C) 2017 Tristan Gingold 3-- 4-- GHDL is free software; you can redistribute it and/or modify it under 5-- the terms of the GNU General Public License as published by the Free 6-- Software Foundation; either version 2, or (at your option) any later 7-- version. 8-- 9-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY 10-- WARRANTY; without even the implied warranty of MERCHANTABILITY or 11-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 12-- for more details. 13-- 14-- You should have received a copy of the GNU General Public License 15-- along with GHDL; see the file COPYING. If not, write to the Free 16-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA 17-- 02111-1307, USA. 18 19with Vhdl.Elocations; use Vhdl.Elocations; 20 21package body Vhdl.Elocations_Meta is 22 function Get_Field_Image (F : Fields_Enum) return String is 23 begin 24 case F is 25 -- FIELD_IMAGE 26 end case; 27 end Get_Field_Image; 28 29 type Field_Type is (Type_Location_Type); 30 31 function Fields_Type (F : Fields_Enum) return Field_Type 32 is 33 pragma Unreferenced (F); 34 begin 35 return Type_Location_Type; 36 end Fields_Type; 37 38 pragma Warnings (Off, """others"" choice is redundant"); 39 40 -- FUNCS_BODY 41 42 pragma Warnings (On, """others"" choice is redundant"); 43end Vhdl.Elocations_Meta; 44