diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-05 08:22:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-05 13:55:18 +0200 |
commit | 46100a0f24670f4d01ecc114da2ac5fedbab13af (patch) | |
tree | b1fe717065b2047325d4bfefb1f235e8ded10aff /src/vhdl/vhdl-elocations_meta.adb.in | |
parent | da19fd319d2e54afa2cf230aab044a65b51d77c7 (diff) | |
download | ghdl-46100a0f24670f4d01ecc114da2ac5fedbab13af.tar.gz ghdl-46100a0f24670f4d01ecc114da2ac5fedbab13af.tar.bz2 ghdl-46100a0f24670f4d01ecc114da2ac5fedbab13af.zip |
vhdl: move elocations* packages to vhdl children.
Diffstat (limited to 'src/vhdl/vhdl-elocations_meta.adb.in')
-rw-r--r-- | src/vhdl/vhdl-elocations_meta.adb.in | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-elocations_meta.adb.in b/src/vhdl/vhdl-elocations_meta.adb.in new file mode 100644 index 000000000..f5dde00c6 --- /dev/null +++ b/src/vhdl/vhdl-elocations_meta.adb.in @@ -0,0 +1,43 @@ +-- Meta description of Elocations. +-- Copyright (C) 2017 Tristan Gingold +-- +-- GHDL 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, or (at your option) any later +-- version. +-- +-- GHDL 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 GHDL; see the file COPYING. If not, write to the Free +-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA +-- 02111-1307, USA. + +with Vhdl.Elocations; use Vhdl.Elocations; + +package body Vhdl.Elocations_Meta is + function Get_Field_Image (F : Fields_Enum) return String is + begin + case F is + -- FIELD_IMAGE + end case; + end Get_Field_Image; + + type Field_Type is (Type_Location_Type); + + function Fields_Type (F : Fields_Enum) return Field_Type + is + pragma Unreferenced (F); + begin + return Type_Location_Type; + end Fields_Type; + + pragma Warnings (Off, """others"" choice is redundant"); + + -- FUNCS_BODY + + pragma Warnings (On, """others"" choice is redundant"); +end Vhdl.Elocations_Meta; |