diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-05 08:00:35 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-05 08:05:12 +0200 |
commit | 3fa8d9eb8b700044d149bdf12da6cb023568b8c0 (patch) | |
tree | 3cbd54423bad53e6db401e43ef0e4216833cd8b9 /src/vhdl/vhdl-ieee.adb | |
parent | 85d360929d13e6b0bcb082f144883a43f402ce22 (diff) | |
download | ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.tar.gz ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.tar.bz2 ghdl-3fa8d9eb8b700044d149bdf12da6cb023568b8c0.zip |
vhdl: move ieee packages to vhdl children.
Diffstat (limited to 'src/vhdl/vhdl-ieee.adb')
-rw-r--r-- | src/vhdl/vhdl-ieee.adb | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-ieee.adb b/src/vhdl/vhdl-ieee.adb new file mode 100644 index 000000000..8d1021efb --- /dev/null +++ b/src/vhdl/vhdl-ieee.adb @@ -0,0 +1,50 @@ +-- Nodes recognizer for ieee packages - utilities. +-- Copyright (C) 2016 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 Iirs_Utils; use Iirs_Utils; +with Vhdl.Std_Package; + +package body Vhdl.Ieee is + function Skip_Copyright_Notice (Decl : Iir) return Iir + is + begin + if Decl /= Null_Iir + and then Get_Kind (Decl) = Iir_Kind_Constant_Declaration + and then (Get_Base_Type (Get_Type (Decl)) + = Vhdl.Std_Package.String_Type_Definition) + then + return Get_Chain (Decl); + else + return Decl; + end if; + end Skip_Copyright_Notice; + + function Skip_Implicit (Decl : Iir) return Iir + is + Res : Iir; + begin + Res := Decl; + loop + exit when Res = Null_Iir; + exit when not (Get_Kind (Res) = Iir_Kind_Function_Declaration + and then Is_Implicit_Subprogram (Res)); + Res := Get_Chain (Res); + end loop; + return Res; + end Skip_Implicit; +end Vhdl.Ieee; |