From 6535ea096a13d8f03547f7d5e5018c0dea46252d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 5 May 2019 20:57:21 +0200 Subject: vhdl: rename iirs to vhdl.nodes --- src/ghdldrv/ghdlcomp.ads | 2 +- src/ghdldrv/ghdldrv.adb | 2 +- src/ghdldrv/ghdllocal.ads | 2 +- src/ghdldrv/ghdlprint.ads | 2 +- src/ghdldrv/ghdlrun.adb | 4 +- src/ghdldrv/ghdlsimul.ads | 2 +- src/ghdldrv/ghdlxml.adb | 2 +- src/libraries.ads | 2 +- src/synth/synth-context.ads | 2 +- src/synth/synth-decls.ads | 2 +- src/synth/synth-expr.ads | 2 +- src/synth/synth-source.ads | 2 +- src/synth/synth-stmts.ads | 2 +- src/synth/synth-types.ads | 2 +- src/synth/synth-values.ads | 2 +- src/synth/synthesis.ads | 2 +- src/vhdl/Makefile | 11 +- src/vhdl/errorout.ads | 2 +- src/vhdl/iir_chain_handling.ads | 2 +- src/vhdl/iir_chains.ads | 2 +- src/vhdl/iirs.adb | 6569 ------------------------ src/vhdl/iirs.adb.in | 948 ---- src/vhdl/iirs.ads | 7549 ---------------------------- src/vhdl/iirs_utils.adb | 2 +- src/vhdl/iirs_utils.ads | 2 +- src/vhdl/iirs_walk.ads | 2 +- src/vhdl/nodes_meta.ads | 2 +- src/vhdl/nodes_meta.ads.in | 2 +- src/vhdl/simulate/simul-annotations.ads | 2 +- src/vhdl/simulate/simul-debugger.ads | 2 +- src/vhdl/simulate/simul-elaboration.ads | 2 +- src/vhdl/simulate/simul-environments.ads | 2 +- src/vhdl/simulate/simul-execution.ads | 2 +- src/vhdl/simulate/simul-file_operation.ads | 2 +- src/vhdl/simulate/simul-grt_interface.adb | 2 +- src/vhdl/simulate/simul-simulation.ads | 2 +- src/vhdl/translate/ortho_front.adb | 2 +- src/vhdl/translate/trans.ads | 2 +- src/vhdl/translate/trans_analyzes.ads | 2 +- src/vhdl/translate/trans_be.ads | 2 +- src/vhdl/translate/translation.ads | 2 +- src/vhdl/vhdl-back_end.ads | 2 +- src/vhdl/vhdl-canon.ads | 2 +- src/vhdl/vhdl-canon_psl.ads | 2 +- src/vhdl/vhdl-configuration.ads | 2 +- src/vhdl/vhdl-disp_tree.ads | 2 +- src/vhdl/vhdl-disp_vhdl.ads | 2 +- src/vhdl/vhdl-elocations.ads | 2 +- src/vhdl/vhdl-elocations_meta.ads | 2 +- src/vhdl/vhdl-elocations_meta.ads.in | 2 +- src/vhdl/vhdl-evaluation.ads | 2 +- src/vhdl/vhdl-ieee.ads | 2 +- src/vhdl/vhdl-nodes.adb | 6569 ++++++++++++++++++++++++ src/vhdl/vhdl-nodes.adb.in | 948 ++++ src/vhdl/vhdl-nodes.ads | 7549 ++++++++++++++++++++++++++++ src/vhdl/vhdl-nodes_gc.adb | 2 +- src/vhdl/vhdl-nodes_gc.ads | 2 +- src/vhdl/vhdl-parse.ads | 2 +- src/vhdl/vhdl-parse_psl.adb | 26 +- src/vhdl/vhdl-post_sems.ads | 2 +- src/vhdl/vhdl-sem.ads | 2 +- src/vhdl/vhdl-sem_assocs.ads | 2 +- src/vhdl/vhdl-sem_decls.ads | 2 +- src/vhdl/vhdl-sem_expr.adb | 6 +- src/vhdl/vhdl-sem_expr.ads | 2 +- src/vhdl/vhdl-sem_inst.adb | 2 +- src/vhdl/vhdl-sem_inst.ads | 2 +- src/vhdl/vhdl-sem_lib.ads | 2 +- src/vhdl/vhdl-sem_names.ads | 2 +- src/vhdl/vhdl-sem_psl.ads | 2 +- src/vhdl/vhdl-sem_scopes.ads | 2 +- src/vhdl/vhdl-sem_specs.ads | 2 +- src/vhdl/vhdl-sem_stmts.ads | 2 +- src/vhdl/vhdl-sem_types.ads | 2 +- src/vhdl/vhdl-sem_utils.ads | 2 +- src/vhdl/vhdl-std_package.ads | 2 +- src/vhdl/xrefs.adb | 2 +- src/vhdl/xrefs.ads | 2 +- src/xtools/pnodes.py | 2 +- 79 files changed, 15160 insertions(+), 15157 deletions(-) delete mode 100644 src/vhdl/iirs.adb delete mode 100644 src/vhdl/iirs.adb.in delete mode 100644 src/vhdl/iirs.ads create mode 100644 src/vhdl/vhdl-nodes.adb create mode 100644 src/vhdl/vhdl-nodes.adb.in create mode 100644 src/vhdl/vhdl-nodes.ads (limited to 'src') diff --git a/src/ghdldrv/ghdlcomp.ads b/src/ghdldrv/ghdlcomp.ads index 0e265a7c2..d20a480a2 100644 --- a/src/ghdldrv/ghdlcomp.ads +++ b/src/ghdldrv/ghdlcomp.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with GNAT.OS_Lib; use GNAT.OS_Lib; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Ghdlcomp is -- This procedure is called at start of commands which call diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 0d14c8035..d8e9534fc 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -25,7 +25,7 @@ with Libraries; with Name_Table; use Name_Table; with Vhdl.Std_Package; with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Files_Map; with Vhdl.Configuration; with Default_Paths; diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads index 2a7b4ef92..0a903a129 100644 --- a/src/ghdldrv/ghdllocal.ads +++ b/src/ghdldrv/ghdllocal.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with GNAT.OS_Lib; use GNAT.OS_Lib; with Ghdlmain; use Ghdlmain; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Ghdllocal is -- Init procedure for the functionnal interface. diff --git a/src/ghdldrv/ghdlprint.ads b/src/ghdldrv/ghdlprint.ads index 18cf6d081..4d6f95248 100644 --- a/src/ghdldrv/ghdlprint.ads +++ b/src/ghdldrv/ghdlprint.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Ghdlprint is procedure Analyze_Design_File_Units (File : Iir_Design_File); diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index efb0c2d4d..9ae929efe 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -31,7 +31,7 @@ with GNAT.OS_Lib; use GNAT.OS_Lib; with Ortho_Jit; with Ortho_Nodes; use Ortho_Nodes; with Trans_Decls; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Std_Package; with Flags; with Errorout; use Errorout; @@ -758,7 +758,7 @@ package body Ghdlrun is Translation.Finalize; Lists.Initialize; Str_Table.Initialize; - Iirs.Initialize; + Vhdl.Nodes.Initialize; Files_Map.Initialize; Name_Table.Finalize; diff --git a/src/ghdldrv/ghdlsimul.ads b/src/ghdldrv/ghdlsimul.ads index 3423b1152..6726697f3 100644 --- a/src/ghdldrv/ghdlsimul.ads +++ b/src/ghdldrv/ghdlsimul.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Ghdlsimul is procedure Register_Commands; diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 34dab448c..c855ad748 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -25,7 +25,7 @@ with Vhdl.Disp_Tree; use Vhdl.Disp_Tree; with Ghdlprint; use Ghdlprint; with Libraries; with Errorout; use Errorout; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Sem_Lib; use Vhdl.Sem_Lib; with Ghdlmain; use Ghdlmain; with Ghdllocal; use Ghdllocal; diff --git a/src/libraries.ads b/src/libraries.ads index d179ff3cf..900cb67cf 100644 --- a/src/libraries.ads +++ b/src/libraries.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Std_Names; package Libraries is diff --git a/src/synth/synth-context.ads b/src/synth/synth-context.ads index b99179bd5..57a2e412d 100644 --- a/src/synth/synth-context.ads +++ b/src/synth/synth-context.ads @@ -23,7 +23,7 @@ with Synth.Values; use Synth.Values; with Simul.Environments; use Simul.Environments; with Netlists; use Netlists; with Netlists.Builders; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Context is type Instance_Map_Array is array (Block_Instance_Id range <>) diff --git a/src/synth/synth-decls.ads b/src/synth/synth-decls.ads index 119f8bd07..619737607 100644 --- a/src/synth/synth-decls.ads +++ b/src/synth/synth-decls.ads @@ -18,7 +18,7 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Synth.Values; use Synth.Values; package Synth.Decls is diff --git a/src/synth/synth-expr.ads b/src/synth/synth-expr.ads index a80e1d7db..baf1f9000 100644 --- a/src/synth/synth-expr.ads +++ b/src/synth/synth-expr.ads @@ -21,7 +21,7 @@ with Types; use Types; with Simul.Environments; use Simul.Environments; with Synth.Values; use Synth.Values; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Expr is function Is_Const (Val : Value_Acc) return Boolean; diff --git a/src/synth/synth-source.ads b/src/synth/synth-source.ads index d6504d268..2dd081e84 100644 --- a/src/synth/synth-source.ads +++ b/src/synth/synth-source.ads @@ -18,7 +18,7 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Source is subtype Syn_Src is Iir; diff --git a/src/synth/synth-stmts.ads b/src/synth/synth-stmts.ads index dd314e167..f96117bd6 100644 --- a/src/synth/synth-stmts.ads +++ b/src/synth/synth-stmts.ads @@ -18,7 +18,7 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Synth.Values; use Synth.Values; package Synth.Stmts is diff --git a/src/synth/synth-types.ads b/src/synth/synth-types.ads index 934edbb53..b07e22e9e 100644 --- a/src/synth/synth-types.ads +++ b/src/synth/synth-types.ads @@ -20,7 +20,7 @@ with Netlists; use Netlists; with Synth.Values; use Synth.Values; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Types is -- All known enumeration type that are translated to a single bit. diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads index 8bf58a9bc..100af6dbb 100644 --- a/src/synth/synth-values.ads +++ b/src/synth/synth-values.ads @@ -22,7 +22,7 @@ with Types; use Types; with Netlists; use Netlists; with Synth.Environment; use Synth.Environment; with Simul.Environments; use Simul.Environments; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Synth.Values is -- Values is how signals and variables are decomposed. This is similar to diff --git a/src/synth/synthesis.ads b/src/synth/synthesis.ads index e1abbfb67..cac933572 100644 --- a/src/synth/synthesis.ads +++ b/src/synth/synthesis.ads @@ -18,7 +18,7 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Netlists; use Netlists; package Synthesis is diff --git a/src/vhdl/Makefile b/src/vhdl/Makefile index dc13ff90f..43c288a11 100644 --- a/src/vhdl/Makefile +++ b/src/vhdl/Makefile @@ -23,23 +23,24 @@ PNODES=../xtools/pnodes.py PNODESPY=python/pnodespy.py -DEPS=iirs.ads iirs.adb.in $(PNODES) +DEPS=vhdl-nodes.ads vhdl-nodes.adb.in $(PNODES) -GEN_FILES=iirs.adb nodes_meta.ads nodes_meta.adb \ +GEN_FILES=vhdl-nodes.adb nodes_meta.ads nodes_meta.adb \ vhdl-elocations.adb vhdl-elocations_meta.ads vhdl-elocations_meta.adb \ python/libghdl/iirs.py python/libghdl/nodes_meta.py \ python/libghdl/std_names.py python/libghdl/tokens.py \ python/libghdl/elocations.py python/libghdl/errorout.py -NODES_FLAGS=--field-file=iirs.adb.in +NODES_FLAGS=--node-file=vhdl-nodes.ads --field-file=vhdl-nodes.adb.in \ + --template-file=vhdl-nodes.adb.in --kind-file=vhdl-nodes.ads ELOCATIONS_FLAGS=--node-file=vhdl-elocations.ads \ - --field-file=vhdl-elocations.adb.in \ + --field-file=vhdl-elocations.adb.in --kind-file=vhdl-nodes.ads \ --template-file=vhdl-elocations.adb.in --meta-basename=vhdl-elocations_meta all: $(GEN_FILES) -iirs.adb: iirs.adb.in $(DEPS) +vhdl-nodes.adb: vhdl-nodes.adb.in $(DEPS) $(RM) $@ $(PNODES) $(NODES_FLAGS) body > $@ chmod -w $@ diff --git a/src/vhdl/errorout.ads b/src/vhdl/errorout.ads index 0df0e6fbc..8da60ee15 100644 --- a/src/vhdl/errorout.ads +++ b/src/vhdl/errorout.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; package Errorout is diff --git a/src/vhdl/iir_chain_handling.ads b/src/vhdl/iir_chain_handling.ads index 3865e9b65..ea17ac98a 100644 --- a/src/vhdl/iir_chain_handling.ads +++ b/src/vhdl/iir_chain_handling.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; -- The generic package Chain_Handling can be used to build or modify -- chains. diff --git a/src/vhdl/iir_chains.ads b/src/vhdl/iir_chains.ads index fc9da1136..7533ff7f1 100644 --- a/src/vhdl/iir_chains.ads +++ b/src/vhdl/iir_chains.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Iir_Chain_Handling; pragma Elaborate_All (Iir_Chain_Handling); with Nodes_Meta; diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb deleted file mode 100644 index 4d800e1dd..000000000 --- a/src/vhdl/iirs.adb +++ /dev/null @@ -1,6569 +0,0 @@ --- Tree node definitions. --- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Conversion; -with Tables; -with Logging; use Logging; -with Lists; use Lists; -with Nodes_Meta; use Nodes_Meta; -with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv; - -package body Iirs is - -- A simple type that needs only 2 bits. - type Bit2_Type is range 0 .. 2 ** 2 - 1; - - type Kind_Type is range 0 .. 2 ** 9 - 1; - - -- Format of a node. - type Format_Type is - ( - Format_Short, - Format_Medium - ); - - -- Common fields are: - -- Flag1 : Boolean - -- Flag2 : Boolean - -- Flag3 : Boolean - -- Flag4 : Boolean - -- Flag5 : Boolean - -- Flag6 : Boolean - -- Flag7 : Boolean - -- Flag8 : Boolean - -- Flag9 : Boolean - -- Flag10 : Boolean - -- Flag11 : Boolean - -- Flag12 : Boolean - -- Flag13 : Boolean - -- Flag14 : Boolean - -- Flag15 : Boolean - -- Nkind : Kind_Type - -- State1 : Bit2_Type - -- State2 : Bit2_Type - -- Location : Location_Type - -- Field0 : Iir - -- Field1 : Iir - -- Field2 : Iir - -- Field3 : Iir - -- Field4 : Iir - -- Field5 : Iir - - -- Fields of Format_Short: - - -- Fields of Format_Medium: - -- State3 : Bit2_Type - -- State4 : Bit2_Type - -- Field6 : Iir (location) - -- Field7 : Iir (field0) - -- Field8 : Iir (field1) - -- Field9 : Iir (field2) - -- Field10 : Iir (field3) - -- Field11 : Iir (field4) - -- Field12 : Iir (field5) - - function Create_Node (Format : Format_Type) return Node_Type; - procedure Free_Node (N : Node_Type); - - function Get_Nkind (N : Node_Type) return Kind_Type; - pragma Inline (Get_Nkind); - procedure Set_Nkind (N : Node_Type; Kind : Kind_Type); - pragma Inline (Set_Nkind); - - function Get_Field0 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field0); - procedure Set_Field0 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field0); - - function Get_Field1 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field1); - procedure Set_Field1 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field1); - - function Get_Field2 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field2); - procedure Set_Field2 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field2); - - function Get_Field3 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field3); - procedure Set_Field3 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field3); - - function Get_Field4 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field4); - procedure Set_Field4 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field4); - - - function Get_Field5 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field5); - procedure Set_Field5 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field5); - - function Get_Field6 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field6); - procedure Set_Field6 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field6); - - function Get_Field7 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field7); - procedure Set_Field7 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field7); - - function Get_Field8 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field8); - procedure Set_Field8 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field8); - - function Get_Field9 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field9); - procedure Set_Field9 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field9); - - function Get_Field10 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field10); - procedure Set_Field10 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field10); - - function Get_Field11 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field11); - procedure Set_Field11 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field11); - - function Get_Field12 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field12); - procedure Set_Field12 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field12); - - - function Get_Flag1 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag1); - procedure Set_Flag1 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag1); - - function Get_Flag2 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag2); - procedure Set_Flag2 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag2); - - function Get_Flag3 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag3); - procedure Set_Flag3 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag3); - - function Get_Flag4 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag4); - procedure Set_Flag4 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag4); - - function Get_Flag5 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag5); - procedure Set_Flag5 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag5); - - function Get_Flag6 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag6); - procedure Set_Flag6 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag6); - - function Get_Flag7 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag7); - procedure Set_Flag7 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag7); - - function Get_Flag8 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag8); - procedure Set_Flag8 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag8); - - function Get_Flag9 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag9); - procedure Set_Flag9 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag9); - - function Get_Flag10 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag10); - procedure Set_Flag10 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag10); - - function Get_Flag11 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag11); - procedure Set_Flag11 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag11); - - function Get_Flag12 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag12); - procedure Set_Flag12 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag12); - - function Get_Flag13 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag13); - procedure Set_Flag13 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag13); - - function Get_Flag14 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag14); - procedure Set_Flag14 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag14); - - function Get_Flag15 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag15); - procedure Set_Flag15 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag15); - - - function Get_State1 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State1); - procedure Set_State1 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State1); - - function Get_State2 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State2); - procedure Set_State2 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State2); - - function Get_State3 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State3); - procedure Set_State3 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State3); - - type Node_Record is record - -- First byte: - Format : Format_Type; - Flag1 : Boolean; - Flag2 : Boolean; - Flag3 : Boolean; - Flag4 : Boolean; - Flag5 : Boolean; - Flag6 : Boolean; - Flag7 : Boolean; - - -- Second byte: - Flag8 : Boolean; - Flag9 : Boolean; - Flag10 : Boolean; - Flag11 : Boolean; - Flag12 : Boolean; - Flag13 : Boolean; - Flag14 : Boolean; - Flag15 : Boolean; - - -- Third byte: - Flag16 : Boolean; - Flag17 : Boolean; - Flag18 : Boolean; - - -- 2*2 = 4 bits - State1 : Bit2_Type; - State2 : Bit2_Type; - - -- 9 bits - Kind : Kind_Type; - - -- Location. - Location: Location_Type; - - Field0 : Node_Type; - Field1 : Node_Type; - Field2 : Node_Type; - Field3 : Node_Type; - Field4 : Node_Type; - Field5 : Node_Type; - end record; - pragma Pack (Node_Record); - for Node_Record'Size use 8*32; - for Node_Record'Alignment use 4; - pragma Suppress_Initialization (Node_Record); - - Init_Node : constant Node_Record := Node_Record' - (Format => Format_Short, - Kind => 0, - State1 | State2 => 0, - Location => Location_Nil, - Field0 | Field1 | Field2 | Field3 | Field4 | Field5 => Null_Node, - others => False); - - -- Suppress the access check of the table base. This is really safe to - -- suppress this check because the table base cannot be null. - pragma Suppress (Access_Check); - - -- Suppress the index check on the table. - -- Could be done during non-debug, since this may catch errors (reading - -- Null_Node or Error_Node). - --pragma Suppress (Index_Check); - - package Nodet is new Tables - (Table_Component_Type => Node_Record, - Table_Index_Type => Node_Type, - Table_Low_Bound => 2, - Table_Initial => 1024); - - function Get_Last_Node return Iir is - begin - return Nodet.Last; - end Get_Last_Node; - - Free_Chain : Node_Type := Null_Node; - - function Create_Node (Format : Format_Type) return Node_Type - is - Res : Node_Type; - begin - case Format is - when Format_Medium => - -- Allocate a first node. - Nodet.Increment_Last; - Res := Nodet.Last; - -- Check alignment. - if Res mod 2 = 1 then - Set_Field1 (Res, Free_Chain); - Free_Chain := Res; - Nodet.Increment_Last; - Res := Nodet.Last; - end if; - -- Allocate the second node. - Nodet.Increment_Last; - Nodet.Table (Res) := Init_Node; - Nodet.Table (Res).Format := Format_Medium; - Nodet.Table (Res + 1) := Init_Node; - when Format_Short => - -- Check from free pool - if Free_Chain = Null_Node then - Nodet.Increment_Last; - Res := Nodet.Last; - else - Res := Free_Chain; - Free_Chain := Get_Field1 (Res); - end if; - Nodet.Table (Res) := Init_Node; - end case; - return Res; - end Create_Node; - - procedure Free_Node (N : Node_Type) - is - begin - if N /= Null_Node then - Set_Nkind (N, 0); - Set_Field1 (N, Free_Chain); - Free_Chain := N; - if Nodet.Table (N).Format = Format_Medium then - Set_Field1 (N + 1, Free_Chain); - Free_Chain := N + 1; - end if; - end if; - end Free_Node; - - procedure Free_Iir (Target : Iir) renames Free_Node; - - function Next_Node (N : Node_Type) return Node_Type is - begin - case Nodet.Table (N).Format is - when Format_Medium => - return N + 2; - when Format_Short => - return N + 1; - end case; - end Next_Node; - - function Get_Nkind (N : Node_Type) return Kind_Type is - begin - return Nodet.Table (N).Kind; - end Get_Nkind; - - procedure Set_Nkind (N : Node_Type; Kind : Kind_Type) is - begin - Nodet.Table (N).Kind := Kind; - end Set_Nkind; - - - procedure Set_Location (N : Iir; Location: Location_Type) is - begin - Nodet.Table (N).Location := Location; - end Set_Location; - - function Get_Location (N: Iir) return Location_Type is - begin - return Nodet.Table (N).Location; - end Get_Location; - - - procedure Set_Field0 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field0 := V; - end Set_Field0; - - function Get_Field0 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field0; - end Get_Field0; - - - function Get_Field1 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field1; - end Get_Field1; - - procedure Set_Field1 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field1 := V; - end Set_Field1; - - function Get_Field2 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field2; - end Get_Field2; - - procedure Set_Field2 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field2 := V; - end Set_Field2; - - function Get_Field3 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field3; - end Get_Field3; - - procedure Set_Field3 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field3 := V; - end Set_Field3; - - function Get_Field4 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field4; - end Get_Field4; - - procedure Set_Field4 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field4 := V; - end Set_Field4; - - function Get_Field5 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field5; - end Get_Field5; - - procedure Set_Field5 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field5 := V; - end Set_Field5; - - function Get_Field6 (N: Node_Type) return Node_Type is - begin - return Node_Type (Nodet.Table (N + 1).Location); - end Get_Field6; - - procedure Set_Field6 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Location := Location_Type (Val); - end Set_Field6; - - function Get_Field7 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field0; - end Get_Field7; - - procedure Set_Field7 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field0 := Val; - end Set_Field7; - - function Get_Field8 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field1; - end Get_Field8; - - procedure Set_Field8 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field1 := Val; - end Set_Field8; - - function Get_Field9 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field2; - end Get_Field9; - - procedure Set_Field9 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field2 := Val; - end Set_Field9; - - function Get_Field10 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field3; - end Get_Field10; - - procedure Set_Field10 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field3 := Val; - end Set_Field10; - - function Get_Field11 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field4; - end Get_Field11; - - procedure Set_Field11 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field4 := Val; - end Set_Field11; - - function Get_Field12 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field5; - end Get_Field12; - - procedure Set_Field12 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field5 := Val; - end Set_Field12; - - - function Get_Flag1 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag1; - end Get_Flag1; - - procedure Set_Flag1 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag1 := V; - end Set_Flag1; - - function Get_Flag2 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag2; - end Get_Flag2; - - procedure Set_Flag2 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag2 := V; - end Set_Flag2; - - function Get_Flag3 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag3; - end Get_Flag3; - - procedure Set_Flag3 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag3 := V; - end Set_Flag3; - - function Get_Flag4 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag4; - end Get_Flag4; - - procedure Set_Flag4 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag4 := V; - end Set_Flag4; - - function Get_Flag5 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag5; - end Get_Flag5; - - procedure Set_Flag5 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag5 := V; - end Set_Flag5; - - function Get_Flag6 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag6; - end Get_Flag6; - - procedure Set_Flag6 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag6 := V; - end Set_Flag6; - - function Get_Flag7 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag7; - end Get_Flag7; - - procedure Set_Flag7 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag7 := V; - end Set_Flag7; - - function Get_Flag8 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag8; - end Get_Flag8; - - procedure Set_Flag8 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag8 := V; - end Set_Flag8; - - function Get_Flag9 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag9; - end Get_Flag9; - - procedure Set_Flag9 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag9 := V; - end Set_Flag9; - - function Get_Flag10 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag10; - end Get_Flag10; - - procedure Set_Flag10 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag10 := V; - end Set_Flag10; - - function Get_Flag11 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag11; - end Get_Flag11; - - procedure Set_Flag11 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag11 := V; - end Set_Flag11; - - function Get_Flag12 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag12; - end Get_Flag12; - - procedure Set_Flag12 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag12 := V; - end Set_Flag12; - - function Get_Flag13 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag13; - end Get_Flag13; - - procedure Set_Flag13 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag13 := V; - end Set_Flag13; - - function Get_Flag14 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag14; - end Get_Flag14; - - procedure Set_Flag14 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag14 := V; - end Set_Flag14; - - function Get_Flag15 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag15; - end Get_Flag15; - - procedure Set_Flag15 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag15 := V; - end Set_Flag15; - - - function Get_State1 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N).State1; - end Get_State1; - - procedure Set_State1 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N).State1 := V; - end Set_State1; - - function Get_State2 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N).State2; - end Get_State2; - - procedure Set_State2 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N).State2 := V; - end Set_State2; - - function Get_State3 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N + 1).State1; - end Get_State3; - - procedure Set_State3 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N + 1).State1 := V; - end Set_State3; - - procedure Initialize is - begin - Nodet.Free; - Nodet.Init; - end Initialize; - - function Is_Null (Node : Iir) return Boolean is - begin - return Node = Null_Iir; - end Is_Null; - - function Is_Null_List (Node : Iir_List) return Boolean is - begin - return Node = Null_Iir_List; - end Is_Null_List; - - function Is_Valid (Node : Iir) return Boolean is - begin - return Node /= Null_Iir; - end Is_Valid; - - --------------------------------------------------- - -- General subprograms that operate on every iir -- - --------------------------------------------------- - - function Get_Format (Kind : Iir_Kind) return Format_Type; - - function Create_Iir (Kind : Iir_Kind) return Iir - is - Res : Iir; - Format : Format_Type; - begin - Format := Get_Format (Kind); - Res := Create_Node (Format); - Set_Nkind (Res, Iir_Kind'Pos (Kind)); - return Res; - end Create_Iir; - - -- Statistics. - procedure Disp_Stats - is - type Num_Array is array (Iir_Kind) of Natural; - Num : Num_Array := (others => 0); - type Format_Array is array (Format_Type) of Natural; - Formats : Format_Array := (others => 0); - Kind : Iir_Kind; - I : Iir; - Last_I : Iir; - Format : Format_Type; - begin - I := Error_Node + 1; - Last_I := Get_Last_Node; - while I < Last_I loop - Kind := Get_Kind (I); - Num (Kind) := Num (Kind) + 1; - Format := Get_Format (Kind); - Formats (Format) := Formats (Format) + 1; - I := Next_Node (I); - end loop; - - Log_Line ("Stats per iir_kind:"); - for J in Iir_Kind loop - if Num (J) /= 0 then - Log_Line (' ' & Iir_Kind'Image (J) & ':' - & Natural'Image (Num (J))); - end if; - end loop; - Log_Line ("Stats per formats:"); - for J in Format_Type loop - Log_Line (' ' & Format_Type'Image (J) & ':' - & Natural'Image (Formats (J))); - end loop; - end Disp_Stats; - - function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean is - begin - return K = K1 or K = K2; - end Kind_In; - - function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) - return Boolean is - begin - case Func is - when Iir_Predefined_Bit_And - | Iir_Predefined_Bit_Or - | Iir_Predefined_Bit_Nand - | Iir_Predefined_Bit_Nor - | Iir_Predefined_Boolean_And - | Iir_Predefined_Boolean_Or - | Iir_Predefined_Boolean_Nand - | Iir_Predefined_Boolean_Nor => - return True; - when others => - return False; - end case; - end Iir_Predefined_Shortcut_P; - - function Create_Iir_Error return Iir - is - Res : Iir; - begin - Res := Create_Node (Format_Short); - Set_Nkind (Res, Iir_Kind'Pos (Iir_Kind_Error)); - Set_Base_Type (Res, Res); - return Res; - end Create_Iir_Error; - - procedure Location_Copy (Target : Iir; Src : Iir) is - begin - Set_Location (Target, Get_Location (Src)); - end Location_Copy; - - -- Get kind - function Get_Kind (N : Iir) return Iir_Kind - is - -- Speed up: avoid to check that nkind is in the bounds of Iir_Kind. - pragma Suppress (Range_Check); - begin - pragma Assert (N /= Null_Iir); - return Iir_Kind'Val (Get_Nkind (N)); - end Get_Kind; - - function Time_Stamp_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => Time_Stamp_Id, Target => Iir); - - function Iir_To_Time_Stamp_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => Time_Stamp_Id); - - function File_Checksum_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => File_Checksum_Id, Target => Iir); - - function Iir_To_File_Checksum_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => File_Checksum_Id); - - function Iir_To_Iir_List is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_List); - function Iir_List_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_List, Target => Iir); - - function Iir_To_Iir_Flist is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_Flist); - function Iir_Flist_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_Flist, Target => Iir); - - function Iir_To_Token_Type (N : Iir) return Token_Type is - begin - return Token_Type'Val (N); - end Iir_To_Token_Type; - - function Token_Type_To_Iir (T : Token_Type) return Iir is - begin - return Token_Type'Pos (T); - end Token_Type_To_Iir; - --- function Iir_To_Iir_Index32 (N : Iir) return Iir_Index32 is --- begin --- return Iir_Index32 (N); --- end Iir_To_Iir_Index32; - --- function Iir_Index32_To_Iir (V : Iir_Index32) return Iir is --- begin --- return Iir_Index32'Pos (V); --- end Iir_Index32_To_Iir; - - function Iir_To_Name_Id (N : Iir) return Name_Id is - begin - return Iir'Pos (N); - end Iir_To_Name_Id; - pragma Inline (Iir_To_Name_Id); - - function Name_Id_To_Iir (V : Name_Id) return Iir is - begin - return Name_Id'Pos (V); - end Name_Id_To_Iir; - - function Iir_To_Iir_Int32 is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_Int32); - - function Iir_Int32_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_Int32, Target => Iir); - - function Iir_To_Source_Ptr (N : Iir) return Source_Ptr is - begin - return Source_Ptr (N); - end Iir_To_Source_Ptr; - - function Source_Ptr_To_Iir (P : Source_Ptr) return Iir is - begin - return Iir (P); - end Source_Ptr_To_Iir; - - function Iir_To_Source_File_Entry is new Ada.Unchecked_Conversion - (Source => Iir, Target => Source_File_Entry); - function Source_File_Entry_To_Iir is new Ada.Unchecked_Conversion - (Source => Source_File_Entry, Target => Iir); - - function Boolean_To_Iir_Delay_Mechanism is new Ada.Unchecked_Conversion - (Source => Boolean, Target => Iir_Delay_Mechanism); - function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion - (Source => Iir_Delay_Mechanism, Target => Boolean); - - function Boolean_To_Iir_Signal_Kind is new Ada.Unchecked_Conversion - (Source => Boolean, Target => Iir_Signal_Kind); - function Iir_Signal_Kind_To_Boolean is new Ada.Unchecked_Conversion - (Source => Iir_Signal_Kind, Target => Boolean); - - function Iir_To_String8_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => String8_Id); - function String8_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => String8_Id, Target => Iir); - - function Iir_To_Int32 is new Ada.Unchecked_Conversion - (Source => Iir, Target => Int32); - function Int32_To_Iir is new Ada.Unchecked_Conversion - (Source => Int32, Target => Iir); - - function Iir_To_PSL_Node is new Ada.Unchecked_Conversion - (Source => Iir, Target => PSL_Node); - - function PSL_Node_To_Iir is new Ada.Unchecked_Conversion - (Source => PSL_Node, Target => Iir); - - function Iir_To_PSL_NFA is new Ada.Unchecked_Conversion - (Source => Iir, Target => PSL_NFA); - - function PSL_NFA_To_Iir is new Ada.Unchecked_Conversion - (Source => PSL_NFA, Target => Iir); - - -- Subprograms - function Get_Format (Kind : Iir_Kind) return Format_Type is - begin - case Kind is - when Iir_Kind_Unused - | Iir_Kind_Error - | Iir_Kind_Library_Clause - | Iir_Kind_Use_Clause - | Iir_Kind_Context_Reference - | Iir_Kind_Integer_Literal - | Iir_Kind_Floating_Point_Literal - | Iir_Kind_Null_Literal - | Iir_Kind_String_Literal8 - | Iir_Kind_Physical_Int_Literal - | Iir_Kind_Physical_Fp_Literal - | Iir_Kind_Simple_Aggregate - | Iir_Kind_Overflow_Literal - | Iir_Kind_Unaffected_Waveform - | Iir_Kind_Waveform_Element - | Iir_Kind_Conditional_Waveform - | Iir_Kind_Conditional_Expression - | Iir_Kind_Association_Element_By_Expression - | Iir_Kind_Association_Element_By_Individual - | Iir_Kind_Association_Element_Open - | Iir_Kind_Association_Element_Package - | Iir_Kind_Association_Element_Type - | Iir_Kind_Association_Element_Subprogram - | Iir_Kind_Choice_By_Range - | Iir_Kind_Choice_By_Expression - | Iir_Kind_Choice_By_Others - | Iir_Kind_Choice_By_None - | Iir_Kind_Choice_By_Name - | Iir_Kind_Entity_Aspect_Entity - | Iir_Kind_Entity_Aspect_Configuration - | Iir_Kind_Entity_Aspect_Open - | Iir_Kind_Block_Configuration - | Iir_Kind_Component_Configuration - | Iir_Kind_Entity_Class - | Iir_Kind_Attribute_Value - | Iir_Kind_Aggregate_Info - | Iir_Kind_Procedure_Call - | Iir_Kind_Record_Element_Constraint - | Iir_Kind_Array_Element_Resolution - | Iir_Kind_Record_Resolution - | Iir_Kind_Record_Element_Resolution - | Iir_Kind_Disconnection_Specification - | Iir_Kind_Configuration_Specification - | Iir_Kind_Access_Type_Definition - | Iir_Kind_Incomplete_Type_Definition - | Iir_Kind_Interface_Type_Definition - | Iir_Kind_File_Type_Definition - | Iir_Kind_Protected_Type_Declaration - | Iir_Kind_Record_Type_Definition - | Iir_Kind_Access_Subtype_Definition - | Iir_Kind_Physical_Subtype_Definition - | Iir_Kind_Integer_Subtype_Definition - | Iir_Kind_Enumeration_Subtype_Definition - | Iir_Kind_Enumeration_Type_Definition - | Iir_Kind_Integer_Type_Definition - | Iir_Kind_Floating_Type_Definition - | Iir_Kind_Physical_Type_Definition - | Iir_Kind_Range_Expression - | Iir_Kind_Protected_Type_Body - | Iir_Kind_Wildcard_Type_Definition - | Iir_Kind_Overload_List - | Iir_Kind_Type_Declaration - | Iir_Kind_Anonymous_Type_Declaration - | Iir_Kind_Subtype_Declaration - | Iir_Kind_Nature_Declaration - | Iir_Kind_Subnature_Declaration - | Iir_Kind_Configuration_Declaration - | Iir_Kind_Context_Declaration - | Iir_Kind_Package_Body - | Iir_Kind_Unit_Declaration - | Iir_Kind_Library_Declaration - | Iir_Kind_Attribute_Declaration - | Iir_Kind_Group_Template_Declaration - | Iir_Kind_Group_Declaration - | Iir_Kind_Element_Declaration - | Iir_Kind_Non_Object_Alias_Declaration - | Iir_Kind_Terminal_Declaration - | Iir_Kind_Free_Quantity_Declaration - | Iir_Kind_Enumeration_Literal - | Iir_Kind_Object_Alias_Declaration - | Iir_Kind_Guard_Signal_Declaration - | Iir_Kind_Signal_Declaration - | Iir_Kind_Variable_Declaration - | Iir_Kind_Interface_Constant_Declaration - | Iir_Kind_Interface_Variable_Declaration - | Iir_Kind_Interface_Signal_Declaration - | Iir_Kind_Interface_File_Declaration - | Iir_Kind_Interface_Type_Declaration - | Iir_Kind_Signal_Attribute_Declaration - | Iir_Kind_Identity_Operator - | Iir_Kind_Negation_Operator - | Iir_Kind_Absolute_Operator - | Iir_Kind_Not_Operator - | Iir_Kind_Implicit_Condition_Operator - | Iir_Kind_Condition_Operator - | Iir_Kind_Reduction_And_Operator - | Iir_Kind_Reduction_Or_Operator - | Iir_Kind_Reduction_Nand_Operator - | Iir_Kind_Reduction_Nor_Operator - | Iir_Kind_Reduction_Xor_Operator - | Iir_Kind_Reduction_Xnor_Operator - | Iir_Kind_And_Operator - | Iir_Kind_Or_Operator - | Iir_Kind_Nand_Operator - | Iir_Kind_Nor_Operator - | Iir_Kind_Xor_Operator - | Iir_Kind_Xnor_Operator - | Iir_Kind_Equality_Operator - | Iir_Kind_Inequality_Operator - | Iir_Kind_Less_Than_Operator - | Iir_Kind_Less_Than_Or_Equal_Operator - | Iir_Kind_Greater_Than_Operator - | Iir_Kind_Greater_Than_Or_Equal_Operator - | Iir_Kind_Match_Equality_Operator - | Iir_Kind_Match_Inequality_Operator - | Iir_Kind_Match_Less_Than_Operator - | Iir_Kind_Match_Less_Than_Or_Equal_Operator - | Iir_Kind_Match_Greater_Than_Operator - | Iir_Kind_Match_Greater_Than_Or_Equal_Operator - | Iir_Kind_Sll_Operator - | Iir_Kind_Sla_Operator - | Iir_Kind_Srl_Operator - | Iir_Kind_Sra_Operator - | Iir_Kind_Rol_Operator - | Iir_Kind_Ror_Operator - | Iir_Kind_Addition_Operator - | Iir_Kind_Substraction_Operator - | Iir_Kind_Concatenation_Operator - | Iir_Kind_Multiplication_Operator - | Iir_Kind_Division_Operator - | Iir_Kind_Modulus_Operator - | Iir_Kind_Remainder_Operator - | Iir_Kind_Exponentiation_Operator - | Iir_Kind_Function_Call - | Iir_Kind_Aggregate - | Iir_Kind_Parenthesis_Expression - | Iir_Kind_Qualified_Expression - | Iir_Kind_Type_Conversion - | Iir_Kind_Allocator_By_Expression - | Iir_Kind_Allocator_By_Subtype - | Iir_Kind_Selected_Element - | Iir_Kind_Dereference - | Iir_Kind_Implicit_Dereference - | Iir_Kind_Slice_Name - | Iir_Kind_Indexed_Name - | Iir_Kind_Psl_Expression - | Iir_Kind_Concurrent_Assertion_Statement - | Iir_Kind_Concurrent_Procedure_Call_Statement - | Iir_Kind_If_Generate_Statement - | Iir_Kind_Case_Generate_Statement - | Iir_Kind_For_Generate_Statement - | Iir_Kind_Psl_Default_Clock - | Iir_Kind_Generate_Statement_Body - | Iir_Kind_If_Generate_Else_Clause - | Iir_Kind_Simple_Signal_Assignment_Statement - | Iir_Kind_Conditional_Signal_Assignment_Statement - | Iir_Kind_Null_Statement - | Iir_Kind_Assertion_Statement - | Iir_Kind_Report_Statement - | Iir_Kind_Variable_Assignment_Statement - | Iir_Kind_Conditional_Variable_Assignment_Statement - | Iir_Kind_Return_Statement - | Iir_Kind_For_Loop_Statement - | Iir_Kind_While_Loop_Statement - | Iir_Kind_Next_Statement - | Iir_Kind_Exit_Statement - | Iir_Kind_Case_Statement - | Iir_Kind_Procedure_Call_Statement - | Iir_Kind_If_Statement - | Iir_Kind_Elsif - | Iir_Kind_Character_Literal - | Iir_Kind_Simple_Name - | Iir_Kind_Selected_Name - | Iir_Kind_Operator_Symbol - | Iir_Kind_Reference_Name - | Iir_Kind_External_Constant_Name - | Iir_Kind_External_Signal_Name - | Iir_Kind_External_Variable_Name - | Iir_Kind_Selected_By_All_Name - | Iir_Kind_Parenthesis_Name - | Iir_Kind_Package_Pathname - | Iir_Kind_Absolute_Pathname - | Iir_Kind_Relative_Pathname - | Iir_Kind_Pathname_Element - | Iir_Kind_Base_Attribute - | Iir_Kind_Subtype_Attribute - | Iir_Kind_Element_Attribute - | Iir_Kind_Left_Type_Attribute - | Iir_Kind_Right_Type_Attribute - | Iir_Kind_High_Type_Attribute - | Iir_Kind_Low_Type_Attribute - | Iir_Kind_Ascending_Type_Attribute - | Iir_Kind_Image_Attribute - | Iir_Kind_Value_Attribute - | Iir_Kind_Pos_Attribute - | Iir_Kind_Val_Attribute - | Iir_Kind_Succ_Attribute - | Iir_Kind_Pred_Attribute - | Iir_Kind_Leftof_Attribute - | Iir_Kind_Rightof_Attribute - | Iir_Kind_Delayed_Attribute - | Iir_Kind_Stable_Attribute - | Iir_Kind_Quiet_Attribute - | Iir_Kind_Transaction_Attribute - | Iir_Kind_Event_Attribute - | Iir_Kind_Active_Attribute - | Iir_Kind_Last_Event_Attribute - | Iir_Kind_Last_Active_Attribute - | Iir_Kind_Last_Value_Attribute - | Iir_Kind_Driving_Attribute - | Iir_Kind_Driving_Value_Attribute - | Iir_Kind_Behavior_Attribute - | Iir_Kind_Structure_Attribute - | Iir_Kind_Simple_Name_Attribute - | Iir_Kind_Instance_Name_Attribute - | Iir_Kind_Path_Name_Attribute - | Iir_Kind_Left_Array_Attribute - | Iir_Kind_Right_Array_Attribute - | Iir_Kind_High_Array_Attribute - | Iir_Kind_Low_Array_Attribute - | Iir_Kind_Length_Array_Attribute - | Iir_Kind_Ascending_Array_Attribute - | Iir_Kind_Range_Array_Attribute - | Iir_Kind_Reverse_Range_Array_Attribute - | Iir_Kind_Attribute_Name => - return Format_Short; - when Iir_Kind_Design_File - | Iir_Kind_Design_Unit - | Iir_Kind_Block_Header - | Iir_Kind_Binding_Indication - | Iir_Kind_Signature - | Iir_Kind_Attribute_Specification - | Iir_Kind_Array_Type_Definition - | Iir_Kind_Array_Subtype_Definition - | Iir_Kind_Record_Subtype_Definition - | Iir_Kind_Floating_Subtype_Definition - | Iir_Kind_Subtype_Definition - | Iir_Kind_Scalar_Nature_Definition - | Iir_Kind_Entity_Declaration - | Iir_Kind_Package_Declaration - | Iir_Kind_Package_Instantiation_Declaration - | Iir_Kind_Architecture_Body - | Iir_Kind_Package_Header - | Iir_Kind_Component_Declaration - | Iir_Kind_Psl_Declaration - | Iir_Kind_Psl_Endpoint_Declaration - | Iir_Kind_Across_Quantity_Declaration - | Iir_Kind_Through_Quantity_Declaration - | Iir_Kind_Function_Declaration - | Iir_Kind_Procedure_Declaration - | Iir_Kind_Function_Body - | Iir_Kind_Procedure_Body - | Iir_Kind_File_Declaration - | Iir_Kind_Constant_Declaration - | Iir_Kind_Iterator_Declaration - | Iir_Kind_Interface_Package_Declaration - | Iir_Kind_Interface_Function_Declaration - | Iir_Kind_Interface_Procedure_Declaration - | Iir_Kind_Sensitized_Process_Statement - | Iir_Kind_Process_Statement - | Iir_Kind_Concurrent_Simple_Signal_Assignment - | Iir_Kind_Concurrent_Conditional_Signal_Assignment - | Iir_Kind_Concurrent_Selected_Signal_Assignment - | Iir_Kind_Psl_Assert_Statement - | Iir_Kind_Psl_Cover_Statement - | Iir_Kind_Block_Statement - | Iir_Kind_Component_Instantiation_Statement - | Iir_Kind_Simple_Simultaneous_Statement - | Iir_Kind_Selected_Waveform_Assignment_Statement - | Iir_Kind_Wait_Statement => - return Format_Medium; - end case; - end Get_Format; - - function Get_First_Design_Unit (Design : Iir) return Iir is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_First_Design_Unit (Get_Kind (Design)), - "no field First_Design_Unit"); - return Get_Field5 (Design); - end Get_First_Design_Unit; - - procedure Set_First_Design_Unit (Design : Iir; Chain : Iir) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_First_Design_Unit (Get_Kind (Design)), - "no field First_Design_Unit"); - Set_Field5 (Design, Chain); - end Set_First_Design_Unit; - - function Get_Last_Design_Unit (Design : Iir) return Iir is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Last_Design_Unit (Get_Kind (Design)), - "no field Last_Design_Unit"); - return Get_Field6 (Design); - end Get_Last_Design_Unit; - - procedure Set_Last_Design_Unit (Design : Iir; Chain : Iir) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Last_Design_Unit (Get_Kind (Design)), - "no field Last_Design_Unit"); - Set_Field6 (Design, Chain); - end Set_Last_Design_Unit; - - function Get_Library_Declaration (Design : Iir) return Iir is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Library_Declaration (Get_Kind (Design)), - "no field Library_Declaration"); - return Get_Field1 (Design); - end Get_Library_Declaration; - - procedure Set_Library_Declaration (Design : Iir; Library : Iir) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Library_Declaration (Get_Kind (Design)), - "no field Library_Declaration"); - Set_Field1 (Design, Library); - end Set_Library_Declaration; - - function Get_File_Checksum (Design : Iir) return File_Checksum_Id is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_File_Checksum (Get_Kind (Design)), - "no field File_Checksum"); - return Iir_To_File_Checksum_Id (Get_Field4 (Design)); - end Get_File_Checksum; - - procedure Set_File_Checksum (Design : Iir; Checksum : File_Checksum_Id) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_File_Checksum (Get_Kind (Design)), - "no field File_Checksum"); - Set_Field4 (Design, File_Checksum_Id_To_Iir (Checksum)); - end Set_File_Checksum; - - function Get_Analysis_Time_Stamp (Design : Iir) return Time_Stamp_Id is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Analysis_Time_Stamp (Get_Kind (Design)), - "no field Analysis_Time_Stamp"); - return Iir_To_Time_Stamp_Id (Get_Field3 (Design)); - end Get_Analysis_Time_Stamp; - - procedure Set_Analysis_Time_Stamp (Design : Iir; Stamp : Time_Stamp_Id) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Analysis_Time_Stamp (Get_Kind (Design)), - "no field Analysis_Time_Stamp"); - Set_Field3 (Design, Time_Stamp_Id_To_Iir (Stamp)); - end Set_Analysis_Time_Stamp; - - function Get_Design_File_Source (Design : Iir) return Source_File_Entry is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Design_File_Source (Get_Kind (Design)), - "no field Design_File_Source"); - return Iir_To_Source_File_Entry (Get_Field7 (Design)); - end Get_Design_File_Source; - - procedure Set_Design_File_Source (Design : Iir; Sfe : Source_File_Entry) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Design_File_Source (Get_Kind (Design)), - "no field Design_File_Source"); - Set_Field7 (Design, Source_File_Entry_To_Iir (Sfe)); - end Set_Design_File_Source; - - function Get_Library (File : Iir_Design_File) return Iir is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Library (Get_Kind (File)), - "no field Library"); - return Get_Field0 (File); - end Get_Library; - - procedure Set_Library (File : Iir_Design_File; Lib : Iir) is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Library (Get_Kind (File)), - "no field Library"); - Set_Field0 (File, Lib); - end Set_Library; - - function Get_File_Dependence_List (File : Iir_Design_File) return Iir_List - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_File_Dependence_List (Get_Kind (File)), - "no field File_Dependence_List"); - return Iir_To_Iir_List (Get_Field1 (File)); - end Get_File_Dependence_List; - - procedure Set_File_Dependence_List (File : Iir_Design_File; Lst : Iir_List) - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_File_Dependence_List (Get_Kind (File)), - "no field File_Dependence_List"); - Set_Field1 (File, Iir_List_To_Iir (Lst)); - end Set_File_Dependence_List; - - function Get_Design_File_Filename (File : Iir_Design_File) return Name_Id - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Design_File_Filename (Get_Kind (File)), - "no field Design_File_Filename"); - return Name_Id'Val (Get_Field12 (File)); - end Get_Design_File_Filename; - - procedure Set_Design_File_Filename (File : Iir_Design_File; Name : Name_Id) - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Design_File_Filename (Get_Kind (File)), - "no field Design_File_Filename"); - Set_Field12 (File, Name_Id'Pos (Name)); - end Set_Design_File_Filename; - - function Get_Design_File_Directory (File : Iir_Design_File) return Name_Id - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Design_File_Directory (Get_Kind (File)), - "no field Design_File_Directory"); - return Name_Id'Val (Get_Field11 (File)); - end Get_Design_File_Directory; - - procedure Set_Design_File_Directory (File : Iir_Design_File; Dir : Name_Id) - is - begin - pragma Assert (File /= Null_Iir); - pragma Assert (Has_Design_File_Directory (Get_Kind (File)), - "no field Design_File_Directory"); - Set_Field11 (File, Name_Id'Pos (Dir)); - end Set_Design_File_Directory; - - function Get_Design_File (Unit : Iir_Design_Unit) return Iir is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Design_File (Get_Kind (Unit)), - "no field Design_File"); - return Get_Field0 (Unit); - end Get_Design_File; - - procedure Set_Design_File (Unit : Iir_Design_Unit; File : Iir) is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Design_File (Get_Kind (Unit)), - "no field Design_File"); - Set_Field0 (Unit, File); - end Set_Design_File; - - function Get_Design_File_Chain (Library : Iir) return Iir is - begin - pragma Assert (Library /= Null_Iir); - pragma Assert (Has_Design_File_Chain (Get_Kind (Library)), - "no field Design_File_Chain"); - return Get_Field1 (Library); - end Get_Design_File_Chain; - - procedure Set_Design_File_Chain (Library : Iir; Chain : Iir) is - begin - pragma Assert (Library /= Null_Iir); - pragma Assert (Has_Design_File_Chain (Get_Kind (Library)), - "no field Design_File_Chain"); - Set_Field1 (Library, Chain); - end Set_Design_File_Chain; - - function Get_Library_Directory (Library : Iir) return Name_Id is - begin - pragma Assert (Library /= Null_Iir); - pragma Assert (Has_Library_Directory (Get_Kind (Library)), - "no field Library_Directory"); - return Name_Id'Val (Get_Field5 (Library)); - end Get_Library_Directory; - - procedure Set_Library_Directory (Library : Iir; Dir : Name_Id) is - begin - pragma Assert (Library /= Null_Iir); - pragma Assert (Has_Library_Directory (Get_Kind (Library)), - "no field Library_Directory"); - Set_Field5 (Library, Name_Id'Pos (Dir)); - end Set_Library_Directory; - - function Get_Date (Target : Iir) return Date_Type is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Date (Get_Kind (Target)), - "no field Date"); - return Date_Type'Val (Get_Field4 (Target)); - end Get_Date; - - procedure Set_Date (Target : Iir; Date : Date_Type) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Date (Get_Kind (Target)), - "no field Date"); - Set_Field4 (Target, Date_Type'Pos (Date)); - end Set_Date; - - function Get_Context_Items (Design_Unit : Iir) return Iir is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Context_Items (Get_Kind (Design_Unit)), - "no field Context_Items"); - return Get_Field1 (Design_Unit); - end Get_Context_Items; - - procedure Set_Context_Items (Design_Unit : Iir; Items_Chain : Iir) is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Context_Items (Get_Kind (Design_Unit)), - "no field Context_Items"); - Set_Field1 (Design_Unit, Items_Chain); - end Set_Context_Items; - - function Get_Dependence_List (Unit : Iir) return Iir_List is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Dependence_List (Get_Kind (Unit)), - "no field Dependence_List"); - return Iir_To_Iir_List (Get_Field8 (Unit)); - end Get_Dependence_List; - - procedure Set_Dependence_List (Unit : Iir; List : Iir_List) is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Dependence_List (Get_Kind (Unit)), - "no field Dependence_List"); - Set_Field8 (Unit, Iir_List_To_Iir (List)); - end Set_Dependence_List; - - function Get_Analysis_Checks_List (Unit : Iir) return Iir_List is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Analysis_Checks_List (Get_Kind (Unit)), - "no field Analysis_Checks_List"); - return Iir_To_Iir_List (Get_Field9 (Unit)); - end Get_Analysis_Checks_List; - - procedure Set_Analysis_Checks_List (Unit : Iir; List : Iir_List) is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Analysis_Checks_List (Get_Kind (Unit)), - "no field Analysis_Checks_List"); - Set_Field9 (Unit, Iir_List_To_Iir (List)); - end Set_Analysis_Checks_List; - - function Get_Date_State (Unit : Iir_Design_Unit) return Date_State_Type is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Date_State (Get_Kind (Unit)), - "no field Date_State"); - return Date_State_Type'Val (Get_State1 (Unit)); - end Get_Date_State; - - procedure Set_Date_State (Unit : Iir_Design_Unit; State : Date_State_Type) - is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Date_State (Get_Kind (Unit)), - "no field Date_State"); - Set_State1 (Unit, Date_State_Type'Pos (State)); - end Set_Date_State; - - function Get_Guarded_Target_State (Stmt : Iir) return Tri_State_Type is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Guarded_Target_State (Get_Kind (Stmt)), - "no field Guarded_Target_State"); - return Tri_State_Type'Val (Get_State1 (Stmt)); - end Get_Guarded_Target_State; - - procedure Set_Guarded_Target_State (Stmt : Iir; State : Tri_State_Type) is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Guarded_Target_State (Get_Kind (Stmt)), - "no field Guarded_Target_State"); - Set_State1 (Stmt, Tri_State_Type'Pos (State)); - end Set_Guarded_Target_State; - - function Get_Library_Unit (Design_Unit : Iir_Design_Unit) return Iir is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Library_Unit (Get_Kind (Design_Unit)), - "no field Library_Unit"); - return Get_Field5 (Design_Unit); - end Get_Library_Unit; - - procedure Set_Library_Unit (Design_Unit : Iir_Design_Unit; Lib_Unit : Iir) - is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Library_Unit (Get_Kind (Design_Unit)), - "no field Library_Unit"); - Set_Field5 (Design_Unit, Lib_Unit); - end Set_Library_Unit; - - function Get_Hash_Chain (Design_Unit : Iir_Design_Unit) return Iir is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Hash_Chain (Get_Kind (Design_Unit)), - "no field Hash_Chain"); - return Get_Field7 (Design_Unit); - end Get_Hash_Chain; - - procedure Set_Hash_Chain (Design_Unit : Iir_Design_Unit; Chain : Iir) is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Hash_Chain (Get_Kind (Design_Unit)), - "no field Hash_Chain"); - Set_Field7 (Design_Unit, Chain); - end Set_Hash_Chain; - - function Get_Design_Unit_Source_Pos (Design_Unit : Iir) return Source_Ptr - is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Pos (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Pos"); - return Iir_To_Source_Ptr (Get_Field10 (Design_Unit)); - end Get_Design_Unit_Source_Pos; - - procedure Set_Design_Unit_Source_Pos (Design_Unit : Iir; Pos : Source_Ptr) - is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Pos (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Pos"); - Set_Field10 (Design_Unit, Source_Ptr_To_Iir (Pos)); - end Set_Design_Unit_Source_Pos; - - function Get_Design_Unit_Source_Line (Design_Unit : Iir) return Int32 is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Line (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Line"); - return Iir_To_Int32 (Get_Field11 (Design_Unit)); - end Get_Design_Unit_Source_Line; - - procedure Set_Design_Unit_Source_Line (Design_Unit : Iir; Line : Int32) is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Line (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Line"); - Set_Field11 (Design_Unit, Int32_To_Iir (Line)); - end Set_Design_Unit_Source_Line; - - function Get_Design_Unit_Source_Col (Design_Unit : Iir) return Int32 is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Col (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Col"); - return Iir_To_Int32 (Get_Field12 (Design_Unit)); - end Get_Design_Unit_Source_Col; - - procedure Set_Design_Unit_Source_Col (Design_Unit : Iir; Line : Int32) is - begin - pragma Assert (Design_Unit /= Null_Iir); - pragma Assert (Has_Design_Unit_Source_Col (Get_Kind (Design_Unit)), - "no field Design_Unit_Source_Col"); - Set_Field12 (Design_Unit, Int32_To_Iir (Line)); - end Set_Design_Unit_Source_Col; - - type Iir_Int64_Conv is record - Field4: Iir; - Field5: Iir; - end record; - pragma Pack (Iir_Int64_Conv); - pragma Assert (Iir_Int64_Conv'Size = Iir_Int64'Size); - - function Get_Value (Lit : Iir) return Iir_Int64 - is - function To_Iir_Int64 is new Ada.Unchecked_Conversion - (Iir_Int64_Conv, Iir_Int64); - Conv : Iir_Int64_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Value (Get_Kind (Lit)), - "no field Value"); - Conv.Field4 := Get_Field4 (Lit); - Conv.Field5 := Get_Field5 (Lit); - return To_Iir_Int64 (Conv); - end Get_Value; - - procedure Set_Value (Lit : Iir; Val : Iir_Int64) - is - function To_Iir_Int64_Conv is new Ada.Unchecked_Conversion - (Iir_Int64, Iir_Int64_Conv); - Conv : Iir_Int64_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Value (Get_Kind (Lit)), - "no field Value"); - Conv := To_Iir_Int64_Conv (Val); - Set_Field4 (Lit, Conv.Field4); - Set_Field5 (Lit, Conv.Field5); - end Set_Value; - - function Get_Enum_Pos (Lit : Iir) return Iir_Int32 is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Enum_Pos (Get_Kind (Lit)), - "no field Enum_Pos"); - return Iir_Int32'Val (Get_Field5 (Lit)); - end Get_Enum_Pos; - - procedure Set_Enum_Pos (Lit : Iir; Val : Iir_Int32) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Enum_Pos (Get_Kind (Lit)), - "no field Enum_Pos"); - Set_Field5 (Lit, Iir_Int32'Pos (Val)); - end Set_Enum_Pos; - - function Get_Physical_Literal (Unit : Iir) return Iir is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Physical_Literal (Get_Kind (Unit)), - "no field Physical_Literal"); - return Get_Field4 (Unit); - end Get_Physical_Literal; - - procedure Set_Physical_Literal (Unit : Iir; Lit : Iir) is - begin - pragma Assert (Unit /= Null_Iir); - pragma Assert (Has_Physical_Literal (Get_Kind (Unit)), - "no field Physical_Literal"); - Set_Field4 (Unit, Lit); - end Set_Physical_Literal; - - type Iir_Fp64_Conv is record - Field4: Iir; - Field5: Iir; - end record; - pragma Pack (Iir_Fp64_Conv); - pragma Assert (Iir_Fp64_Conv'Size = Iir_Fp64'Size); - - function Get_Fp_Value (Lit : Iir) return Iir_Fp64 - is - function To_Iir_Fp64 is new Ada.Unchecked_Conversion - (Iir_Fp64_Conv, Iir_Fp64); - Conv : Iir_Fp64_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Fp_Value (Get_Kind (Lit)), - "no field Fp_Value"); - Conv.Field4 := Get_Field4 (Lit); - Conv.Field5 := Get_Field5 (Lit); - return To_Iir_Fp64 (Conv); - end Get_Fp_Value; - - procedure Set_Fp_Value (Lit : Iir; Val : Iir_Fp64) - is - function To_Iir_Fp64_Conv is new Ada.Unchecked_Conversion - (Iir_Fp64, Iir_Fp64_Conv); - Conv : Iir_Fp64_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Fp_Value (Get_Kind (Lit)), - "no field Fp_Value"); - Conv := To_Iir_Fp64_Conv (Val); - Set_Field4 (Lit, Conv.Field4); - Set_Field5 (Lit, Conv.Field5); - end Set_Fp_Value; - - function Get_Simple_Aggregate_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Aggregate_List (Get_Kind (Target)), - "no field Simple_Aggregate_List"); - return Iir_To_Iir_Flist (Get_Field4 (Target)); - end Get_Simple_Aggregate_List; - - procedure Set_Simple_Aggregate_List (Target : Iir; List : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Aggregate_List (Get_Kind (Target)), - "no field Simple_Aggregate_List"); - Set_Field4 (Target, Iir_Flist_To_Iir (List)); - end Set_Simple_Aggregate_List; - - function Get_String8_Id (Lit : Iir) return String8_Id is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_String8_Id (Get_Kind (Lit)), - "no field String8_Id"); - return Iir_To_String8_Id (Get_Field5 (Lit)); - end Get_String8_Id; - - procedure Set_String8_Id (Lit : Iir; Id : String8_Id) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_String8_Id (Get_Kind (Lit)), - "no field String8_Id"); - Set_Field5 (Lit, String8_Id_To_Iir (Id)); - end Set_String8_Id; - - function Get_String_Length (Lit : Iir) return Int32 is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_String_Length (Get_Kind (Lit)), - "no field String_Length"); - return Iir_To_Int32 (Get_Field4 (Lit)); - end Get_String_Length; - - procedure Set_String_Length (Lit : Iir; Len : Int32) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_String_Length (Get_Kind (Lit)), - "no field String_Length"); - Set_Field4 (Lit, Int32_To_Iir (Len)); - end Set_String_Length; - - type Number_Base_Type_Conv is record - Flag12: Boolean; - Flag13: Boolean; - Flag14: Boolean; - end record; - pragma Pack (Number_Base_Type_Conv); - pragma Assert (Number_Base_Type_Conv'Size = Number_Base_Type'Size); - - function Get_Bit_String_Base (Lit : Iir) return Number_Base_Type - is - function To_Number_Base_Type is new Ada.Unchecked_Conversion - (Number_Base_Type_Conv, Number_Base_Type); - Conv : Number_Base_Type_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Bit_String_Base (Get_Kind (Lit)), - "no field Bit_String_Base"); - Conv.Flag12 := Get_Flag12 (Lit); - Conv.Flag13 := Get_Flag13 (Lit); - Conv.Flag14 := Get_Flag14 (Lit); - return To_Number_Base_Type (Conv); - end Get_Bit_String_Base; - - procedure Set_Bit_String_Base (Lit : Iir; Base : Number_Base_Type) - is - function To_Number_Base_Type_Conv is new Ada.Unchecked_Conversion - (Number_Base_Type, Number_Base_Type_Conv); - Conv : Number_Base_Type_Conv; - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Bit_String_Base (Get_Kind (Lit)), - "no field Bit_String_Base"); - Conv := To_Number_Base_Type_Conv (Base); - Set_Flag12 (Lit, Conv.Flag12); - Set_Flag13 (Lit, Conv.Flag13); - Set_Flag14 (Lit, Conv.Flag14); - end Set_Bit_String_Base; - - function Get_Has_Signed (Lit : Iir) return Boolean is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Signed (Get_Kind (Lit)), - "no field Has_Signed"); - return Get_Flag1 (Lit); - end Get_Has_Signed; - - procedure Set_Has_Signed (Lit : Iir; Flag : Boolean) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Signed (Get_Kind (Lit)), - "no field Has_Signed"); - Set_Flag1 (Lit, Flag); - end Set_Has_Signed; - - function Get_Has_Sign (Lit : Iir) return Boolean is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Sign (Get_Kind (Lit)), - "no field Has_Sign"); - return Get_Flag2 (Lit); - end Get_Has_Sign; - - procedure Set_Has_Sign (Lit : Iir; Flag : Boolean) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Sign (Get_Kind (Lit)), - "no field Has_Sign"); - Set_Flag2 (Lit, Flag); - end Set_Has_Sign; - - function Get_Has_Length (Lit : Iir) return Boolean is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Length (Get_Kind (Lit)), - "no field Has_Length"); - return Get_Flag3 (Lit); - end Get_Has_Length; - - procedure Set_Has_Length (Lit : Iir; Flag : Boolean) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Has_Length (Get_Kind (Lit)), - "no field Has_Length"); - Set_Flag3 (Lit, Flag); - end Set_Has_Length; - - function Get_Literal_Origin (Lit : Iir) return Iir is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Literal_Origin (Get_Kind (Lit)), - "no field Literal_Origin"); - return Get_Field2 (Lit); - end Get_Literal_Origin; - - procedure Set_Literal_Origin (Lit : Iir; Orig : Iir) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Literal_Origin (Get_Kind (Lit)), - "no field Literal_Origin"); - Set_Field2 (Lit, Orig); - end Set_Literal_Origin; - - function Get_Range_Origin (Lit : Iir) return Iir is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Range_Origin (Get_Kind (Lit)), - "no field Range_Origin"); - return Get_Field0 (Lit); - end Get_Range_Origin; - - procedure Set_Range_Origin (Lit : Iir; Orig : Iir) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Range_Origin (Get_Kind (Lit)), - "no field Range_Origin"); - Set_Field0 (Lit, Orig); - end Set_Range_Origin; - - function Get_Literal_Subtype (Lit : Iir) return Iir is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Literal_Subtype (Get_Kind (Lit)), - "no field Literal_Subtype"); - return Get_Field3 (Lit); - end Get_Literal_Subtype; - - procedure Set_Literal_Subtype (Lit : Iir; Atype : Iir) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Literal_Subtype (Get_Kind (Lit)), - "no field Literal_Subtype"); - Set_Field3 (Lit, Atype); - end Set_Literal_Subtype; - - function Get_Allocator_Subtype (Lit : Iir) return Iir is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Allocator_Subtype (Get_Kind (Lit)), - "no field Allocator_Subtype"); - return Get_Field3 (Lit); - end Get_Allocator_Subtype; - - procedure Set_Allocator_Subtype (Lit : Iir; Atype : Iir) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Allocator_Subtype (Get_Kind (Lit)), - "no field Allocator_Subtype"); - Set_Field3 (Lit, Atype); - end Set_Allocator_Subtype; - - function Get_Entity_Class (Target : Iir) return Token_Type is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Class (Get_Kind (Target)), - "no field Entity_Class"); - return Iir_To_Token_Type (Get_Field3 (Target)); - end Get_Entity_Class; - - procedure Set_Entity_Class (Target : Iir; Kind : Token_Type) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Class (Get_Kind (Target)), - "no field Entity_Class"); - Set_Field3 (Target, Token_Type_To_Iir (Kind)); - end Set_Entity_Class; - - function Get_Entity_Name_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), - "no field Entity_Name_List"); - return Iir_To_Iir_Flist (Get_Field8 (Target)); - end Get_Entity_Name_List; - - procedure Set_Entity_Name_List (Target : Iir; Names : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), - "no field Entity_Name_List"); - Set_Field8 (Target, Iir_Flist_To_Iir (Names)); - end Set_Entity_Name_List; - - function Get_Attribute_Designator (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Designator (Get_Kind (Target)), - "no field Attribute_Designator"); - return Get_Field6 (Target); - end Get_Attribute_Designator; - - procedure Set_Attribute_Designator (Target : Iir; Designator : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Designator (Get_Kind (Target)), - "no field Attribute_Designator"); - Set_Field6 (Target, Designator); - end Set_Attribute_Designator; - - function Get_Attribute_Specification_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Specification_Chain (Get_Kind (Target)), - "no field Attribute_Specification_Chain"); - return Get_Field7 (Target); - end Get_Attribute_Specification_Chain; - - procedure Set_Attribute_Specification_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Specification_Chain (Get_Kind (Target)), - "no field Attribute_Specification_Chain"); - Set_Field7 (Target, Chain); - end Set_Attribute_Specification_Chain; - - function Get_Attribute_Specification (Val : Iir) return Iir is - begin - pragma Assert (Val /= Null_Iir); - pragma Assert (Has_Attribute_Specification (Get_Kind (Val)), - "no field Attribute_Specification"); - return Get_Field4 (Val); - end Get_Attribute_Specification; - - procedure Set_Attribute_Specification (Val : Iir; Attr : Iir) is - begin - pragma Assert (Val /= Null_Iir); - pragma Assert (Has_Attribute_Specification (Get_Kind (Val)), - "no field Attribute_Specification"); - Set_Field4 (Val, Attr); - end Set_Attribute_Specification; - - function Get_Signal_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_List (Get_Kind (Target)), - "no field Signal_List"); - return Iir_To_Iir_Flist (Get_Field3 (Target)); - end Get_Signal_List; - - procedure Set_Signal_List (Target : Iir; List : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_List (Get_Kind (Target)), - "no field Signal_List"); - Set_Field3 (Target, Iir_Flist_To_Iir (List)); - end Set_Signal_List; - - function Get_Designated_Entity (Val : Iir_Attribute_Value) return Iir is - begin - pragma Assert (Val /= Null_Iir); - pragma Assert (Has_Designated_Entity (Get_Kind (Val)), - "no field Designated_Entity"); - return Get_Field3 (Val); - end Get_Designated_Entity; - - procedure Set_Designated_Entity (Val : Iir_Attribute_Value; Entity : Iir) - is - begin - pragma Assert (Val /= Null_Iir); - pragma Assert (Has_Designated_Entity (Get_Kind (Val)), - "no field Designated_Entity"); - Set_Field3 (Val, Entity); - end Set_Designated_Entity; - - function Get_Formal (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Formal (Get_Kind (Target)), - "no field Formal"); - return Get_Field1 (Target); - end Get_Formal; - - procedure Set_Formal (Target : Iir; Formal : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Formal (Get_Kind (Target)), - "no field Formal"); - Set_Field1 (Target, Formal); - end Set_Formal; - - function Get_Actual (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual (Get_Kind (Target)), - "no field Actual"); - return Get_Field3 (Target); - end Get_Actual; - - procedure Set_Actual (Target : Iir; Actual : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual (Get_Kind (Target)), - "no field Actual"); - Set_Field3 (Target, Actual); - end Set_Actual; - - function Get_Actual_Conversion (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Conversion (Get_Kind (Target)), - "no field Actual_Conversion"); - return Get_Field4 (Target); - end Get_Actual_Conversion; - - procedure Set_Actual_Conversion (Target : Iir; Conv : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Conversion (Get_Kind (Target)), - "no field Actual_Conversion"); - Set_Field4 (Target, Conv); - end Set_Actual_Conversion; - - function Get_Formal_Conversion (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Formal_Conversion (Get_Kind (Target)), - "no field Formal_Conversion"); - return Get_Field5 (Target); - end Get_Formal_Conversion; - - procedure Set_Formal_Conversion (Target : Iir; Conv : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Formal_Conversion (Get_Kind (Target)), - "no field Formal_Conversion"); - Set_Field5 (Target, Conv); - end Set_Formal_Conversion; - - function Get_Whole_Association_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Whole_Association_Flag (Get_Kind (Target)), - "no field Whole_Association_Flag"); - return Get_Flag1 (Target); - end Get_Whole_Association_Flag; - - procedure Set_Whole_Association_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Whole_Association_Flag (Get_Kind (Target)), - "no field Whole_Association_Flag"); - Set_Flag1 (Target, Flag); - end Set_Whole_Association_Flag; - - function Get_Collapse_Signal_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Collapse_Signal_Flag (Get_Kind (Target)), - "no field Collapse_Signal_Flag"); - return Get_Flag2 (Target); - end Get_Collapse_Signal_Flag; - - procedure Set_Collapse_Signal_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Collapse_Signal_Flag (Get_Kind (Target)), - "no field Collapse_Signal_Flag"); - Set_Flag2 (Target, Flag); - end Set_Collapse_Signal_Flag; - - function Get_Artificial_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Artificial_Flag (Get_Kind (Target)), - "no field Artificial_Flag"); - return Get_Flag3 (Target); - end Get_Artificial_Flag; - - procedure Set_Artificial_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Artificial_Flag (Get_Kind (Target)), - "no field Artificial_Flag"); - Set_Flag3 (Target, Flag); - end Set_Artificial_Flag; - - function Get_Open_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Open_Flag (Get_Kind (Target)), - "no field Open_Flag"); - return Get_Flag7 (Target); - end Get_Open_Flag; - - procedure Set_Open_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Open_Flag (Get_Kind (Target)), - "no field Open_Flag"); - Set_Flag7 (Target, Flag); - end Set_Open_Flag; - - function Get_After_Drivers_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_After_Drivers_Flag (Get_Kind (Target)), - "no field After_Drivers_Flag"); - return Get_Flag5 (Target); - end Get_After_Drivers_Flag; - - procedure Set_After_Drivers_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_After_Drivers_Flag (Get_Kind (Target)), - "no field After_Drivers_Flag"); - Set_Flag5 (Target, Flag); - end Set_After_Drivers_Flag; - - function Get_We_Value (We : Iir_Waveform_Element) return Iir is - begin - pragma Assert (We /= Null_Iir); - pragma Assert (Has_We_Value (Get_Kind (We)), - "no field We_Value"); - return Get_Field1 (We); - end Get_We_Value; - - procedure Set_We_Value (We : Iir_Waveform_Element; An_Iir : Iir) is - begin - pragma Assert (We /= Null_Iir); - pragma Assert (Has_We_Value (Get_Kind (We)), - "no field We_Value"); - Set_Field1 (We, An_Iir); - end Set_We_Value; - - function Get_Time (We : Iir_Waveform_Element) return Iir is - begin - pragma Assert (We /= Null_Iir); - pragma Assert (Has_Time (Get_Kind (We)), - "no field Time"); - return Get_Field3 (We); - end Get_Time; - - procedure Set_Time (We : Iir_Waveform_Element; An_Iir : Iir) is - begin - pragma Assert (We /= Null_Iir); - pragma Assert (Has_Time (Get_Kind (We)), - "no field Time"); - Set_Field3 (We, An_Iir); - end Set_Time; - - function Get_Choice_Order (Choice : Iir) return Int32 is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Order (Get_Kind (Choice)), - "no field Choice_Order"); - return Int32'Val (Get_Field1 (Choice)); - end Get_Choice_Order; - - procedure Set_Choice_Order (Choice : Iir; Pos : Int32) is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Order (Get_Kind (Choice)), - "no field Choice_Order"); - Set_Field1 (Choice, Int32'Pos (Pos)); - end Set_Choice_Order; - - function Get_Associated_Expr (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Expr (Get_Kind (Target)), - "no field Associated_Expr"); - return Get_Field3 (Target); - end Get_Associated_Expr; - - procedure Set_Associated_Expr (Target : Iir; Associated : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Expr (Get_Kind (Target)), - "no field Associated_Expr"); - Set_Field3 (Target, Associated); - end Set_Associated_Expr; - - function Get_Associated_Block (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Block (Get_Kind (Target)), - "no field Associated_Block"); - return Get_Field3 (Target); - end Get_Associated_Block; - - procedure Set_Associated_Block (Target : Iir; Associated : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Block (Get_Kind (Target)), - "no field Associated_Block"); - Set_Field3 (Target, Associated); - end Set_Associated_Block; - - function Get_Associated_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Chain (Get_Kind (Target)), - "no field Associated_Chain"); - return Get_Field4 (Target); - end Get_Associated_Chain; - - procedure Set_Associated_Chain (Target : Iir; Associated : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Associated_Chain (Get_Kind (Target)), - "no field Associated_Chain"); - Set_Field4 (Target, Associated); - end Set_Associated_Chain; - - function Get_Choice_Name (Choice : Iir) return Iir is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Name (Get_Kind (Choice)), - "no field Choice_Name"); - return Get_Field5 (Choice); - end Get_Choice_Name; - - procedure Set_Choice_Name (Choice : Iir; Name : Iir) is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Name (Get_Kind (Choice)), - "no field Choice_Name"); - Set_Field5 (Choice, Name); - end Set_Choice_Name; - - function Get_Choice_Expression (Choice : Iir) return Iir is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Expression (Get_Kind (Choice)), - "no field Choice_Expression"); - return Get_Field5 (Choice); - end Get_Choice_Expression; - - procedure Set_Choice_Expression (Choice : Iir; Name : Iir) is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Expression (Get_Kind (Choice)), - "no field Choice_Expression"); - Set_Field5 (Choice, Name); - end Set_Choice_Expression; - - function Get_Choice_Range (Choice : Iir) return Iir is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Range (Get_Kind (Choice)), - "no field Choice_Range"); - return Get_Field5 (Choice); - end Get_Choice_Range; - - procedure Set_Choice_Range (Choice : Iir; Name : Iir) is - begin - pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Range (Get_Kind (Choice)), - "no field Choice_Range"); - Set_Field5 (Choice, Name); - end Set_Choice_Range; - - function Get_Same_Alternative_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Same_Alternative_Flag (Get_Kind (Target)), - "no field Same_Alternative_Flag"); - return Get_Flag1 (Target); - end Get_Same_Alternative_Flag; - - procedure Set_Same_Alternative_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Same_Alternative_Flag (Get_Kind (Target)), - "no field Same_Alternative_Flag"); - Set_Flag1 (Target, Val); - end Set_Same_Alternative_Flag; - - function Get_Element_Type_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Element_Type_Flag (Get_Kind (Target)), - "no field Element_Type_Flag"); - return Get_Flag2 (Target); - end Get_Element_Type_Flag; - - procedure Set_Element_Type_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Element_Type_Flag (Get_Kind (Target)), - "no field Element_Type_Flag"); - Set_Flag2 (Target, Val); - end Set_Element_Type_Flag; - - function Get_Architecture (Target : Iir_Entity_Aspect_Entity) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Architecture (Get_Kind (Target)), - "no field Architecture"); - return Get_Field3 (Target); - end Get_Architecture; - - procedure Set_Architecture (Target : Iir_Entity_Aspect_Entity; Arch : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Architecture (Get_Kind (Target)), - "no field Architecture"); - Set_Field3 (Target, Arch); - end Set_Architecture; - - function Get_Block_Specification (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Specification (Get_Kind (Target)), - "no field Block_Specification"); - return Get_Field5 (Target); - end Get_Block_Specification; - - procedure Set_Block_Specification (Target : Iir; Block : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Specification (Get_Kind (Target)), - "no field Block_Specification"); - Set_Field5 (Target, Block); - end Set_Block_Specification; - - function Get_Prev_Block_Configuration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Prev_Block_Configuration (Get_Kind (Target)), - "no field Prev_Block_Configuration"); - return Get_Field4 (Target); - end Get_Prev_Block_Configuration; - - procedure Set_Prev_Block_Configuration (Target : Iir; Block : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Prev_Block_Configuration (Get_Kind (Target)), - "no field Prev_Block_Configuration"); - Set_Field4 (Target, Block); - end Set_Prev_Block_Configuration; - - function Get_Configuration_Item_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Item_Chain (Get_Kind (Target)), - "no field Configuration_Item_Chain"); - return Get_Field3 (Target); - end Get_Configuration_Item_Chain; - - procedure Set_Configuration_Item_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Item_Chain (Get_Kind (Target)), - "no field Configuration_Item_Chain"); - Set_Field3 (Target, Chain); - end Set_Configuration_Item_Chain; - - function Get_Attribute_Value_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Value_Chain (Get_Kind (Target)), - "no field Attribute_Value_Chain"); - return Get_Field4 (Target); - end Get_Attribute_Value_Chain; - - procedure Set_Attribute_Value_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Value_Chain (Get_Kind (Target)), - "no field Attribute_Value_Chain"); - Set_Field4 (Target, Chain); - end Set_Attribute_Value_Chain; - - function Get_Spec_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Spec_Chain (Get_Kind (Target)), - "no field Spec_Chain"); - return Get_Field2 (Target); - end Get_Spec_Chain; - - procedure Set_Spec_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Spec_Chain (Get_Kind (Target)), - "no field Spec_Chain"); - Set_Field2 (Target, Chain); - end Set_Spec_Chain; - - function Get_Value_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Value_Chain (Get_Kind (Target)), - "no field Value_Chain"); - return Get_Field0 (Target); - end Get_Value_Chain; - - procedure Set_Value_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Value_Chain (Get_Kind (Target)), - "no field Value_Chain"); - Set_Field0 (Target, Chain); - end Set_Value_Chain; - - function Get_Attribute_Value_Spec_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Value_Spec_Chain (Get_Kind (Target)), - "no field Attribute_Value_Spec_Chain"); - return Get_Field4 (Target); - end Get_Attribute_Value_Spec_Chain; - - procedure Set_Attribute_Value_Spec_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Attribute_Value_Spec_Chain (Get_Kind (Target)), - "no field Attribute_Value_Spec_Chain"); - Set_Field4 (Target, Chain); - end Set_Attribute_Value_Spec_Chain; - - function Get_Entity_Name (Arch : Iir) return Iir is - begin - pragma Assert (Arch /= Null_Iir); - pragma Assert (Has_Entity_Name (Get_Kind (Arch)), - "no field Entity_Name"); - return Get_Field2 (Arch); - end Get_Entity_Name; - - procedure Set_Entity_Name (Arch : Iir; Entity : Iir) is - begin - pragma Assert (Arch /= Null_Iir); - pragma Assert (Has_Entity_Name (Get_Kind (Arch)), - "no field Entity_Name"); - Set_Field2 (Arch, Entity); - end Set_Entity_Name; - - function Get_Package (Package_Body : Iir) return Iir is - begin - pragma Assert (Package_Body /= Null_Iir); - pragma Assert (Has_Package (Get_Kind (Package_Body)), - "no field Package"); - return Get_Field5 (Package_Body); - end Get_Package; - - procedure Set_Package (Package_Body : Iir; Decl : Iir) is - begin - pragma Assert (Package_Body /= Null_Iir); - pragma Assert (Has_Package (Get_Kind (Package_Body)), - "no field Package"); - Set_Field5 (Package_Body, Decl); - end Set_Package; - - function Get_Package_Body (Pkg : Iir) return Iir is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Body (Get_Kind (Pkg)), - "no field Package_Body"); - return Get_Field5 (Pkg); - end Get_Package_Body; - - procedure Set_Package_Body (Pkg : Iir; Decl : Iir) is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Body (Get_Kind (Pkg)), - "no field Package_Body"); - Set_Field5 (Pkg, Decl); - end Set_Package_Body; - - function Get_Instance_Package_Body (Pkg : Iir) return Iir is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Instance_Package_Body (Get_Kind (Pkg)), - "no field Instance_Package_Body"); - return Get_Field5 (Pkg); - end Get_Instance_Package_Body; - - procedure Set_Instance_Package_Body (Pkg : Iir; Decl : Iir) is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Instance_Package_Body (Get_Kind (Pkg)), - "no field Instance_Package_Body"); - Set_Field5 (Pkg, Decl); - end Set_Instance_Package_Body; - - function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Need_Body (Get_Kind (Decl)), - "no field Need_Body"); - return Get_Flag1 (Decl); - end Get_Need_Body; - - procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Need_Body (Get_Kind (Decl)), - "no field Need_Body"); - Set_Flag1 (Decl, Flag); - end Set_Need_Body; - - function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Macro_Expanded_Flag (Get_Kind (Decl)), - "no field Macro_Expanded_Flag"); - return Get_Flag2 (Decl); - end Get_Macro_Expanded_Flag; - - procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Macro_Expanded_Flag (Get_Kind (Decl)), - "no field Macro_Expanded_Flag"); - Set_Flag2 (Decl, Flag); - end Set_Macro_Expanded_Flag; - - function Get_Need_Instance_Bodies (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Need_Instance_Bodies (Get_Kind (Decl)), - "no field Need_Instance_Bodies"); - return Get_Flag3 (Decl); - end Get_Need_Instance_Bodies; - - procedure Set_Need_Instance_Bodies (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Need_Instance_Bodies (Get_Kind (Decl)), - "no field Need_Instance_Bodies"); - Set_Flag3 (Decl, Flag); - end Set_Need_Instance_Bodies; - - function Get_Block_Configuration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Configuration (Get_Kind (Target)), - "no field Block_Configuration"); - return Get_Field5 (Target); - end Get_Block_Configuration; - - procedure Set_Block_Configuration (Target : Iir; Block : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Configuration (Get_Kind (Target)), - "no field Block_Configuration"); - Set_Field5 (Target, Block); - end Set_Block_Configuration; - - function Get_Concurrent_Statement_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Concurrent_Statement_Chain (Get_Kind (Target)), - "no field Concurrent_Statement_Chain"); - return Get_Field5 (Target); - end Get_Concurrent_Statement_Chain; - - procedure Set_Concurrent_Statement_Chain (Target : Iir; First : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Concurrent_Statement_Chain (Get_Kind (Target)), - "no field Concurrent_Statement_Chain"); - Set_Field5 (Target, First); - end Set_Concurrent_Statement_Chain; - - function Get_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Chain (Get_Kind (Target)), - "no field Chain"); - return Get_Field2 (Target); - end Get_Chain; - - procedure Set_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Chain (Get_Kind (Target)), - "no field Chain"); - Set_Field2 (Target, Chain); - end Set_Chain; - - function Get_Port_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Port_Chain (Get_Kind (Target)), - "no field Port_Chain"); - return Get_Field7 (Target); - end Get_Port_Chain; - - procedure Set_Port_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Port_Chain (Get_Kind (Target)), - "no field Port_Chain"); - Set_Field7 (Target, Chain); - end Set_Port_Chain; - - function Get_Generic_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generic_Chain (Get_Kind (Target)), - "no field Generic_Chain"); - return Get_Field6 (Target); - end Get_Generic_Chain; - - procedure Set_Generic_Chain (Target : Iir; Generics : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generic_Chain (Get_Kind (Target)), - "no field Generic_Chain"); - Set_Field6 (Target, Generics); - end Set_Generic_Chain; - - function Get_Type (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type (Get_Kind (Target)), - "no field Type"); - return Get_Field1 (Target); - end Get_Type; - - procedure Set_Type (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type (Get_Kind (Target)), - "no field Type"); - Set_Field1 (Target, Atype); - end Set_Type; - - function Get_Subtype_Indication (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Indication (Get_Kind (Target)), - "no field Subtype_Indication"); - return Get_Field5 (Target); - end Get_Subtype_Indication; - - procedure Set_Subtype_Indication (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Indication (Get_Kind (Target)), - "no field Subtype_Indication"); - Set_Field5 (Target, Atype); - end Set_Subtype_Indication; - - function Get_Discrete_Range (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Discrete_Range (Get_Kind (Target)), - "no field Discrete_Range"); - return Get_Field6 (Target); - end Get_Discrete_Range; - - procedure Set_Discrete_Range (Target : Iir; Rng : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Discrete_Range (Get_Kind (Target)), - "no field Discrete_Range"); - Set_Field6 (Target, Rng); - end Set_Discrete_Range; - - function Get_Type_Definition (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Type_Definition (Get_Kind (Decl)), - "no field Type_Definition"); - return Get_Field1 (Decl); - end Get_Type_Definition; - - procedure Set_Type_Definition (Decl : Iir; Atype : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Type_Definition (Get_Kind (Decl)), - "no field Type_Definition"); - Set_Field1 (Decl, Atype); - end Set_Type_Definition; - - function Get_Subtype_Definition (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Definition (Get_Kind (Target)), - "no field Subtype_Definition"); - return Get_Field4 (Target); - end Get_Subtype_Definition; - - procedure Set_Subtype_Definition (Target : Iir; Def : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Definition (Get_Kind (Target)), - "no field Subtype_Definition"); - Set_Field4 (Target, Def); - end Set_Subtype_Definition; - - function Get_Incomplete_Type_Declaration (N : Iir) return Iir is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Incomplete_Type_Declaration (Get_Kind (N)), - "no field Incomplete_Type_Declaration"); - return Get_Field5 (N); - end Get_Incomplete_Type_Declaration; - - procedure Set_Incomplete_Type_Declaration (N : Iir; Decl : Iir) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Incomplete_Type_Declaration (Get_Kind (N)), - "no field Incomplete_Type_Declaration"); - Set_Field5 (N, Decl); - end Set_Incomplete_Type_Declaration; - - function Get_Interface_Type_Subprograms (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Interface_Type_Subprograms (Get_Kind (Target)), - "no field Interface_Type_Subprograms"); - return Get_Field4 (Target); - end Get_Interface_Type_Subprograms; - - procedure Set_Interface_Type_Subprograms (Target : Iir; Subprg : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Interface_Type_Subprograms (Get_Kind (Target)), - "no field Interface_Type_Subprograms"); - Set_Field4 (Target, Subprg); - end Set_Interface_Type_Subprograms; - - function Get_Nature (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Nature (Get_Kind (Target)), - "no field Nature"); - return Get_Field1 (Target); - end Get_Nature; - - procedure Set_Nature (Target : Iir; Nature : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Nature (Get_Kind (Target)), - "no field Nature"); - Set_Field1 (Target, Nature); - end Set_Nature; - - type Iir_Mode_Conv is record - Flag13: Boolean; - Flag14: Boolean; - Flag15: Boolean; - end record; - pragma Pack (Iir_Mode_Conv); - pragma Assert (Iir_Mode_Conv'Size = Iir_Mode'Size); - - function Get_Mode (Target : Iir) return Iir_Mode - is - function To_Iir_Mode is new Ada.Unchecked_Conversion - (Iir_Mode_Conv, Iir_Mode); - Conv : Iir_Mode_Conv; - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Mode (Get_Kind (Target)), - "no field Mode"); - Conv.Flag13 := Get_Flag13 (Target); - Conv.Flag14 := Get_Flag14 (Target); - Conv.Flag15 := Get_Flag15 (Target); - return To_Iir_Mode (Conv); - end Get_Mode; - - procedure Set_Mode (Target : Iir; Mode : Iir_Mode) - is - function To_Iir_Mode_Conv is new Ada.Unchecked_Conversion - (Iir_Mode, Iir_Mode_Conv); - Conv : Iir_Mode_Conv; - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Mode (Get_Kind (Target)), - "no field Mode"); - Conv := To_Iir_Mode_Conv (Mode); - Set_Flag13 (Target, Conv.Flag13); - Set_Flag14 (Target, Conv.Flag14); - Set_Flag15 (Target, Conv.Flag15); - end Set_Mode; - - function Get_Guarded_Signal_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guarded_Signal_Flag (Get_Kind (Target)), - "no field Guarded_Signal_Flag"); - return Get_Flag8 (Target); - end Get_Guarded_Signal_Flag; - - procedure Set_Guarded_Signal_Flag (Target : Iir; Guarded : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guarded_Signal_Flag (Get_Kind (Target)), - "no field Guarded_Signal_Flag"); - Set_Flag8 (Target, Guarded); - end Set_Guarded_Signal_Flag; - - function Get_Signal_Kind (Target : Iir) return Iir_Signal_Kind is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_Kind (Get_Kind (Target)), - "no field Signal_Kind"); - return Boolean_To_Iir_Signal_Kind (Get_Flag9 (Target)); - end Get_Signal_Kind; - - procedure Set_Signal_Kind (Target : Iir; Signal_Kind : Iir_Signal_Kind) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_Kind (Get_Kind (Target)), - "no field Signal_Kind"); - Set_Flag9 (Target, Iir_Signal_Kind_To_Boolean (Signal_Kind)); - end Set_Signal_Kind; - - function Get_Base_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Base_Name (Get_Kind (Target)), - "no field Base_Name"); - return Get_Field5 (Target); - end Get_Base_Name; - - procedure Set_Base_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Base_Name (Get_Kind (Target)), - "no field Base_Name"); - Set_Field5 (Target, Name); - end Set_Base_Name; - - function Get_Interface_Declaration_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Interface_Declaration_Chain (Get_Kind (Target)), - "no field Interface_Declaration_Chain"); - return Get_Field5 (Target); - end Get_Interface_Declaration_Chain; - - procedure Set_Interface_Declaration_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Interface_Declaration_Chain (Get_Kind (Target)), - "no field Interface_Declaration_Chain"); - Set_Field5 (Target, Chain); - end Set_Interface_Declaration_Chain; - - function Get_Subprogram_Specification (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Specification (Get_Kind (Target)), - "no field Subprogram_Specification"); - return Get_Field6 (Target); - end Get_Subprogram_Specification; - - procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Specification (Get_Kind (Target)), - "no field Subprogram_Specification"); - Set_Field6 (Target, Spec); - end Set_Subprogram_Specification; - - function Get_Sequential_Statement_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Sequential_Statement_Chain (Get_Kind (Target)), - "no field Sequential_Statement_Chain"); - return Get_Field5 (Target); - end Get_Sequential_Statement_Chain; - - procedure Set_Sequential_Statement_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Sequential_Statement_Chain (Get_Kind (Target)), - "no field Sequential_Statement_Chain"); - Set_Field5 (Target, Chain); - end Set_Sequential_Statement_Chain; - - function Get_Subprogram_Body (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Body (Get_Kind (Target)), - "no field Subprogram_Body"); - return Get_Field9 (Target); - end Get_Subprogram_Body; - - procedure Set_Subprogram_Body (Target : Iir; A_Body : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Body (Get_Kind (Target)), - "no field Subprogram_Body"); - Set_Field9 (Target, A_Body); - end Set_Subprogram_Body; - - function Get_Overload_Number (Target : Iir) return Iir_Int32 is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Overload_Number (Get_Kind (Target)), - "no field Overload_Number"); - return Iir_Int32'Val (Get_Field12 (Target)); - end Get_Overload_Number; - - procedure Set_Overload_Number (Target : Iir; Val : Iir_Int32) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Overload_Number (Get_Kind (Target)), - "no field Overload_Number"); - Set_Field12 (Target, Iir_Int32'Pos (Val)); - end Set_Overload_Number; - - function Get_Subprogram_Depth (Target : Iir) return Iir_Int32 is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Depth (Get_Kind (Target)), - "no field Subprogram_Depth"); - return Iir_Int32'Val (Get_Field10 (Target)); - end Get_Subprogram_Depth; - - procedure Set_Subprogram_Depth (Target : Iir; Depth : Iir_Int32) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Depth (Get_Kind (Target)), - "no field Subprogram_Depth"); - Set_Field10 (Target, Iir_Int32'Pos (Depth)); - end Set_Subprogram_Depth; - - function Get_Subprogram_Hash (Target : Iir) return Iir_Int32 is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Hash (Get_Kind (Target)), - "no field Subprogram_Hash"); - return Iir_Int32'Val (Get_Field4 (Target)); - end Get_Subprogram_Hash; - - procedure Set_Subprogram_Hash (Target : Iir; Val : Iir_Int32) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Hash (Get_Kind (Target)), - "no field Subprogram_Hash"); - Set_Field4 (Target, Iir_Int32'Pos (Val)); - end Set_Subprogram_Hash; - - function Get_Impure_Depth (Target : Iir) return Iir_Int32 is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Impure_Depth (Get_Kind (Target)), - "no field Impure_Depth"); - return Iir_To_Iir_Int32 (Get_Field3 (Target)); - end Get_Impure_Depth; - - procedure Set_Impure_Depth (Target : Iir; Depth : Iir_Int32) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Impure_Depth (Get_Kind (Target)), - "no field Impure_Depth"); - Set_Field3 (Target, Iir_Int32_To_Iir (Depth)); - end Set_Impure_Depth; - - function Get_Return_Type (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Return_Type (Get_Kind (Target)), - "no field Return_Type"); - return Get_Field1 (Target); - end Get_Return_Type; - - procedure Set_Return_Type (Target : Iir; Decl : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Return_Type (Get_Kind (Target)), - "no field Return_Type"); - Set_Field1 (Target, Decl); - end Set_Return_Type; - - function Get_Implicit_Definition (D : Iir) return Iir_Predefined_Functions - is - begin - pragma Assert (D /= Null_Iir); - pragma Assert (Has_Implicit_Definition (Get_Kind (D)), - "no field Implicit_Definition"); - return Iir_Predefined_Functions'Val (Get_Field7 (D)); - end Get_Implicit_Definition; - - procedure Set_Implicit_Definition (D : Iir; Def : Iir_Predefined_Functions) - is - begin - pragma Assert (D /= Null_Iir); - pragma Assert (Has_Implicit_Definition (Get_Kind (D)), - "no field Implicit_Definition"); - Set_Field7 (D, Iir_Predefined_Functions'Pos (Def)); - end Set_Implicit_Definition; - - function Get_Default_Value (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Value (Get_Kind (Target)), - "no field Default_Value"); - return Get_Field4 (Target); - end Get_Default_Value; - - procedure Set_Default_Value (Target : Iir; Value : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Value (Get_Kind (Target)), - "no field Default_Value"); - Set_Field4 (Target, Value); - end Set_Default_Value; - - function Get_Deferred_Declaration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Deferred_Declaration (Get_Kind (Target)), - "no field Deferred_Declaration"); - return Get_Field6 (Target); - end Get_Deferred_Declaration; - - procedure Set_Deferred_Declaration (Target : Iir; Decl : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Deferred_Declaration (Get_Kind (Target)), - "no field Deferred_Declaration"); - Set_Field6 (Target, Decl); - end Set_Deferred_Declaration; - - function Get_Deferred_Declaration_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Deferred_Declaration_Flag (Get_Kind (Target)), - "no field Deferred_Declaration_Flag"); - return Get_Flag1 (Target); - end Get_Deferred_Declaration_Flag; - - procedure Set_Deferred_Declaration_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Deferred_Declaration_Flag (Get_Kind (Target)), - "no field Deferred_Declaration_Flag"); - Set_Flag1 (Target, Flag); - end Set_Deferred_Declaration_Flag; - - function Get_Shared_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Shared_Flag (Get_Kind (Target)), - "no field Shared_Flag"); - return Get_Flag2 (Target); - end Get_Shared_Flag; - - procedure Set_Shared_Flag (Target : Iir; Shared : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Shared_Flag (Get_Kind (Target)), - "no field Shared_Flag"); - Set_Flag2 (Target, Shared); - end Set_Shared_Flag; - - function Get_Design_Unit (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Design_Unit (Get_Kind (Target)), - "no field Design_Unit"); - return Get_Field0 (Target); - end Get_Design_Unit; - - procedure Set_Design_Unit (Target : Iir; Unit : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Design_Unit (Get_Kind (Target)), - "no field Design_Unit"); - Set_Field0 (Target, Unit); - end Set_Design_Unit; - - function Get_Block_Statement (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Statement (Get_Kind (Target)), - "no field Block_Statement"); - return Get_Field5 (Target); - end Get_Block_Statement; - - procedure Set_Block_Statement (Target : Iir; Block : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Statement (Get_Kind (Target)), - "no field Block_Statement"); - Set_Field5 (Target, Block); - end Set_Block_Statement; - - function Get_Signal_Driver (Target : Iir_Signal_Declaration) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_Driver (Get_Kind (Target)), - "no field Signal_Driver"); - return Get_Field7 (Target); - end Get_Signal_Driver; - - procedure Set_Signal_Driver (Target : Iir_Signal_Declaration; Driver : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Signal_Driver (Get_Kind (Target)), - "no field Signal_Driver"); - Set_Field7 (Target, Driver); - end Set_Signal_Driver; - - function Get_Declaration_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Declaration_Chain (Get_Kind (Target)), - "no field Declaration_Chain"); - return Get_Field1 (Target); - end Get_Declaration_Chain; - - procedure Set_Declaration_Chain (Target : Iir; Decls : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Declaration_Chain (Get_Kind (Target)), - "no field Declaration_Chain"); - Set_Field1 (Target, Decls); - end Set_Declaration_Chain; - - function Get_File_Logical_Name (Target : Iir_File_Declaration) return Iir - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Logical_Name (Get_Kind (Target)), - "no field File_Logical_Name"); - return Get_Field6 (Target); - end Get_File_Logical_Name; - - procedure Set_File_Logical_Name (Target : Iir_File_Declaration; Name : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Logical_Name (Get_Kind (Target)), - "no field File_Logical_Name"); - Set_Field6 (Target, Name); - end Set_File_Logical_Name; - - function Get_File_Open_Kind (Target : Iir_File_Declaration) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Open_Kind (Get_Kind (Target)), - "no field File_Open_Kind"); - return Get_Field7 (Target); - end Get_File_Open_Kind; - - procedure Set_File_Open_Kind (Target : Iir_File_Declaration; Kind : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Open_Kind (Get_Kind (Target)), - "no field File_Open_Kind"); - Set_Field7 (Target, Kind); - end Set_File_Open_Kind; - - function Get_Element_Position (Target : Iir) return Iir_Index32 is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Element_Position (Get_Kind (Target)), - "no field Element_Position"); - return Iir_Index32'Val (Get_Field4 (Target)); - end Get_Element_Position; - - procedure Set_Element_Position (Target : Iir; Pos : Iir_Index32) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Element_Position (Get_Kind (Target)), - "no field Element_Position"); - Set_Field4 (Target, Iir_Index32'Pos (Pos)); - end Set_Element_Position; - - function Get_Use_Clause_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Use_Clause_Chain (Get_Kind (Target)), - "no field Use_Clause_Chain"); - return Get_Field3 (Target); - end Get_Use_Clause_Chain; - - procedure Set_Use_Clause_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Use_Clause_Chain (Get_Kind (Target)), - "no field Use_Clause_Chain"); - Set_Field3 (Target, Chain); - end Set_Use_Clause_Chain; - - function Get_Context_Reference_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)), - "no field Context_Reference_Chain"); - return Get_Field3 (Target); - end Get_Context_Reference_Chain; - - procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)), - "no field Context_Reference_Chain"); - Set_Field3 (Target, Chain); - end Set_Context_Reference_Chain; - - function Get_Selected_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Selected_Name (Get_Kind (Target)), - "no field Selected_Name"); - return Get_Field1 (Target); - end Get_Selected_Name; - - procedure Set_Selected_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Selected_Name (Get_Kind (Target)), - "no field Selected_Name"); - Set_Field1 (Target, Name); - end Set_Selected_Name; - - function Get_Type_Declarator (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Type_Declarator (Get_Kind (Def)), - "no field Type_Declarator"); - return Get_Field3 (Def); - end Get_Type_Declarator; - - procedure Set_Type_Declarator (Def : Iir; Decl : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Type_Declarator (Get_Kind (Def)), - "no field Type_Declarator"); - Set_Field3 (Def, Decl); - end Set_Type_Declarator; - - function Get_Complete_Type_Definition (N : Iir) return Iir is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Complete_Type_Definition (Get_Kind (N)), - "no field Complete_Type_Definition"); - return Get_Field5 (N); - end Get_Complete_Type_Definition; - - procedure Set_Complete_Type_Definition (N : Iir; Def : Iir) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Complete_Type_Definition (Get_Kind (N)), - "no field Complete_Type_Definition"); - Set_Field5 (N, Def); - end Set_Complete_Type_Definition; - - function Get_Incomplete_Type_Ref_Chain (N : Iir) return Iir is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Incomplete_Type_Ref_Chain (Get_Kind (N)), - "no field Incomplete_Type_Ref_Chain"); - return Get_Field0 (N); - end Get_Incomplete_Type_Ref_Chain; - - procedure Set_Incomplete_Type_Ref_Chain (N : Iir; Def : Iir) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Incomplete_Type_Ref_Chain (Get_Kind (N)), - "no field Incomplete_Type_Ref_Chain"); - Set_Field0 (N, Def); - end Set_Incomplete_Type_Ref_Chain; - - function Get_Associated_Type (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Associated_Type (Get_Kind (Def)), - "no field Associated_Type"); - return Get_Field5 (Def); - end Get_Associated_Type; - - procedure Set_Associated_Type (Def : Iir; Atype : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Associated_Type (Get_Kind (Def)), - "no field Associated_Type"); - Set_Field5 (Def, Atype); - end Set_Associated_Type; - - function Get_Enumeration_Literal_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Enumeration_Literal_List (Get_Kind (Target)), - "no field Enumeration_Literal_List"); - return Iir_To_Iir_Flist (Get_Field2 (Target)); - end Get_Enumeration_Literal_List; - - procedure Set_Enumeration_Literal_List (Target : Iir; List : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Enumeration_Literal_List (Get_Kind (Target)), - "no field Enumeration_Literal_List"); - Set_Field2 (Target, Iir_Flist_To_Iir (List)); - end Set_Enumeration_Literal_List; - - function Get_Entity_Class_Entry_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Class_Entry_Chain (Get_Kind (Target)), - "no field Entity_Class_Entry_Chain"); - return Get_Field1 (Target); - end Get_Entity_Class_Entry_Chain; - - procedure Set_Entity_Class_Entry_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Class_Entry_Chain (Get_Kind (Target)), - "no field Entity_Class_Entry_Chain"); - Set_Field1 (Target, Chain); - end Set_Entity_Class_Entry_Chain; - - function Get_Group_Constituent_List (Group : Iir) return Iir_Flist is - begin - pragma Assert (Group /= Null_Iir); - pragma Assert (Has_Group_Constituent_List (Get_Kind (Group)), - "no field Group_Constituent_List"); - return Iir_To_Iir_Flist (Get_Field1 (Group)); - end Get_Group_Constituent_List; - - procedure Set_Group_Constituent_List (Group : Iir; List : Iir_Flist) is - begin - pragma Assert (Group /= Null_Iir); - pragma Assert (Has_Group_Constituent_List (Get_Kind (Group)), - "no field Group_Constituent_List"); - Set_Field1 (Group, Iir_Flist_To_Iir (List)); - end Set_Group_Constituent_List; - - function Get_Unit_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Unit_Chain (Get_Kind (Target)), - "no field Unit_Chain"); - return Get_Field2 (Target); - end Get_Unit_Chain; - - procedure Set_Unit_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Unit_Chain (Get_Kind (Target)), - "no field Unit_Chain"); - Set_Field2 (Target, Chain); - end Set_Unit_Chain; - - function Get_Primary_Unit (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Primary_Unit (Get_Kind (Target)), - "no field Primary_Unit"); - return Get_Field2 (Target); - end Get_Primary_Unit; - - procedure Set_Primary_Unit (Target : Iir; Unit : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Primary_Unit (Get_Kind (Target)), - "no field Primary_Unit"); - Set_Field2 (Target, Unit); - end Set_Primary_Unit; - - function Get_Identifier (Target : Iir) return Name_Id is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Identifier (Get_Kind (Target)), - "no field Identifier"); - return Iir_To_Name_Id (Get_Field3 (Target)); - end Get_Identifier; - - procedure Set_Identifier (Target : Iir; Identifier : Name_Id) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Identifier (Get_Kind (Target)), - "no field Identifier"); - Set_Field3 (Target, Name_Id_To_Iir (Identifier)); - end Set_Identifier; - - function Get_Label (Target : Iir) return Name_Id is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Label (Get_Kind (Target)), - "no field Label"); - return Iir_To_Name_Id (Get_Field3 (Target)); - end Get_Label; - - procedure Set_Label (Target : Iir; Label : Name_Id) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Label (Get_Kind (Target)), - "no field Label"); - Set_Field3 (Target, Name_Id_To_Iir (Label)); - end Set_Label; - - function Get_Visible_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Visible_Flag (Get_Kind (Target)), - "no field Visible_Flag"); - return Get_Flag4 (Target); - end Get_Visible_Flag; - - procedure Set_Visible_Flag (Target : Iir; Flag : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Visible_Flag (Get_Kind (Target)), - "no field Visible_Flag"); - Set_Flag4 (Target, Flag); - end Set_Visible_Flag; - - function Get_Range_Constraint (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Range_Constraint (Get_Kind (Target)), - "no field Range_Constraint"); - return Get_Field1 (Target); - end Get_Range_Constraint; - - procedure Set_Range_Constraint (Target : Iir; Constraint : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Range_Constraint (Get_Kind (Target)), - "no field Range_Constraint"); - Set_Field1 (Target, Constraint); - end Set_Range_Constraint; - - function Get_Direction (Decl : Iir) return Iir_Direction is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Direction (Get_Kind (Decl)), - "no field Direction"); - return Iir_Direction'Val (Get_State2 (Decl)); - end Get_Direction; - - procedure Set_Direction (Decl : Iir; Dir : Iir_Direction) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Direction (Get_Kind (Decl)), - "no field Direction"); - Set_State2 (Decl, Iir_Direction'Pos (Dir)); - end Set_Direction; - - function Get_Left_Limit (Decl : Iir_Range_Expression) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Left_Limit (Get_Kind (Decl)), - "no field Left_Limit"); - return Get_Field4 (Decl); - end Get_Left_Limit; - - procedure Set_Left_Limit (Decl : Iir_Range_Expression; Limit : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Left_Limit (Get_Kind (Decl)), - "no field Left_Limit"); - Set_Field4 (Decl, Limit); - end Set_Left_Limit; - - function Get_Right_Limit (Decl : Iir_Range_Expression) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Right_Limit (Get_Kind (Decl)), - "no field Right_Limit"); - return Get_Field5 (Decl); - end Get_Right_Limit; - - procedure Set_Right_Limit (Decl : Iir_Range_Expression; Limit : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Right_Limit (Get_Kind (Decl)), - "no field Right_Limit"); - Set_Field5 (Decl, Limit); - end Set_Right_Limit; - - function Get_Left_Limit_Expr (Decl : Iir_Range_Expression) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Left_Limit_Expr (Get_Kind (Decl)), - "no field Left_Limit_Expr"); - return Get_Field2 (Decl); - end Get_Left_Limit_Expr; - - procedure Set_Left_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Left_Limit_Expr (Get_Kind (Decl)), - "no field Left_Limit_Expr"); - Set_Field2 (Decl, Limit); - end Set_Left_Limit_Expr; - - function Get_Right_Limit_Expr (Decl : Iir_Range_Expression) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Right_Limit_Expr (Get_Kind (Decl)), - "no field Right_Limit_Expr"); - return Get_Field3 (Decl); - end Get_Right_Limit_Expr; - - procedure Set_Right_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir) - is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Right_Limit_Expr (Get_Kind (Decl)), - "no field Right_Limit_Expr"); - Set_Field3 (Decl, Limit); - end Set_Right_Limit_Expr; - - function Get_Base_Type (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Base_Type (Get_Kind (Decl)), - "no field Base_Type"); - return Get_Field4 (Decl); - end Get_Base_Type; - - procedure Set_Base_Type (Decl : Iir; Base_Type : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Base_Type (Get_Kind (Decl)), - "no field Base_Type"); - Set_Field4 (Decl, Base_Type); - end Set_Base_Type; - - function Get_Resolution_Indication (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Resolution_Indication (Get_Kind (Decl)), - "no field Resolution_Indication"); - return Get_Field5 (Decl); - end Get_Resolution_Indication; - - procedure Set_Resolution_Indication (Decl : Iir; Ind : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Resolution_Indication (Get_Kind (Decl)), - "no field Resolution_Indication"); - Set_Field5 (Decl, Ind); - end Set_Resolution_Indication; - - function Get_Record_Element_Resolution_Chain (Res : Iir) return Iir is - begin - pragma Assert (Res /= Null_Iir); - pragma Assert (Has_Record_Element_Resolution_Chain (Get_Kind (Res)), - "no field Record_Element_Resolution_Chain"); - return Get_Field1 (Res); - end Get_Record_Element_Resolution_Chain; - - procedure Set_Record_Element_Resolution_Chain (Res : Iir; Chain : Iir) is - begin - pragma Assert (Res /= Null_Iir); - pragma Assert (Has_Record_Element_Resolution_Chain (Get_Kind (Res)), - "no field Record_Element_Resolution_Chain"); - Set_Field1 (Res, Chain); - end Set_Record_Element_Resolution_Chain; - - function Get_Tolerance (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Tolerance (Get_Kind (Def)), - "no field Tolerance"); - return Get_Field7 (Def); - end Get_Tolerance; - - procedure Set_Tolerance (Def : Iir; Tol : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Tolerance (Get_Kind (Def)), - "no field Tolerance"); - Set_Field7 (Def, Tol); - end Set_Tolerance; - - function Get_Plus_Terminal (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Plus_Terminal (Get_Kind (Def)), - "no field Plus_Terminal"); - return Get_Field8 (Def); - end Get_Plus_Terminal; - - procedure Set_Plus_Terminal (Def : Iir; Terminal : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Plus_Terminal (Get_Kind (Def)), - "no field Plus_Terminal"); - Set_Field8 (Def, Terminal); - end Set_Plus_Terminal; - - function Get_Minus_Terminal (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Minus_Terminal (Get_Kind (Def)), - "no field Minus_Terminal"); - return Get_Field9 (Def); - end Get_Minus_Terminal; - - procedure Set_Minus_Terminal (Def : Iir; Terminal : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Minus_Terminal (Get_Kind (Def)), - "no field Minus_Terminal"); - Set_Field9 (Def, Terminal); - end Set_Minus_Terminal; - - function Get_Simultaneous_Left (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Simultaneous_Left (Get_Kind (Def)), - "no field Simultaneous_Left"); - return Get_Field5 (Def); - end Get_Simultaneous_Left; - - procedure Set_Simultaneous_Left (Def : Iir; Expr : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Simultaneous_Left (Get_Kind (Def)), - "no field Simultaneous_Left"); - Set_Field5 (Def, Expr); - end Set_Simultaneous_Left; - - function Get_Simultaneous_Right (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Simultaneous_Right (Get_Kind (Def)), - "no field Simultaneous_Right"); - return Get_Field6 (Def); - end Get_Simultaneous_Right; - - procedure Set_Simultaneous_Right (Def : Iir; Expr : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Simultaneous_Right (Get_Kind (Def)), - "no field Simultaneous_Right"); - Set_Field6 (Def, Expr); - end Set_Simultaneous_Right; - - function Get_Text_File_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Text_File_Flag (Get_Kind (Atype)), - "no field Text_File_Flag"); - return Get_Flag4 (Atype); - end Get_Text_File_Flag; - - procedure Set_Text_File_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Text_File_Flag (Get_Kind (Atype)), - "no field Text_File_Flag"); - Set_Flag4 (Atype, Flag); - end Set_Text_File_Flag; - - function Get_Only_Characters_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Only_Characters_Flag (Get_Kind (Atype)), - "no field Only_Characters_Flag"); - return Get_Flag4 (Atype); - end Get_Only_Characters_Flag; - - procedure Set_Only_Characters_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Only_Characters_Flag (Get_Kind (Atype)), - "no field Only_Characters_Flag"); - Set_Flag4 (Atype, Flag); - end Set_Only_Characters_Flag; - - function Get_Is_Character_Type (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Is_Character_Type (Get_Kind (Atype)), - "no field Is_Character_Type"); - return Get_Flag5 (Atype); - end Get_Is_Character_Type; - - procedure Set_Is_Character_Type (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Is_Character_Type (Get_Kind (Atype)), - "no field Is_Character_Type"); - Set_Flag5 (Atype, Flag); - end Set_Is_Character_Type; - - function Get_Type_Staticness (Atype : Iir) return Iir_Staticness is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Type_Staticness (Get_Kind (Atype)), - "no field Type_Staticness"); - return Iir_Staticness'Val (Get_State1 (Atype)); - end Get_Type_Staticness; - - procedure Set_Type_Staticness (Atype : Iir; Static : Iir_Staticness) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Type_Staticness (Get_Kind (Atype)), - "no field Type_Staticness"); - Set_State1 (Atype, Iir_Staticness'Pos (Static)); - end Set_Type_Staticness; - - function Get_Constraint_State (Atype : Iir) return Iir_Constraint is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Constraint_State (Get_Kind (Atype)), - "no field Constraint_State"); - return Iir_Constraint'Val (Get_State2 (Atype)); - end Get_Constraint_State; - - procedure Set_Constraint_State (Atype : Iir; State : Iir_Constraint) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Constraint_State (Get_Kind (Atype)), - "no field Constraint_State"); - Set_State2 (Atype, Iir_Constraint'Pos (State)); - end Set_Constraint_State; - - function Get_Index_Subtype_List (Decl : Iir) return Iir_Flist is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Index_Subtype_List (Get_Kind (Decl)), - "no field Index_Subtype_List"); - return Iir_To_Iir_Flist (Get_Field9 (Decl)); - end Get_Index_Subtype_List; - - procedure Set_Index_Subtype_List (Decl : Iir; List : Iir_Flist) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Index_Subtype_List (Get_Kind (Decl)), - "no field Index_Subtype_List"); - Set_Field9 (Decl, Iir_Flist_To_Iir (List)); - end Set_Index_Subtype_List; - - function Get_Index_Subtype_Definition_List (Def : Iir) return Iir_Flist is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Index_Subtype_Definition_List (Get_Kind (Def)), - "no field Index_Subtype_Definition_List"); - return Iir_To_Iir_Flist (Get_Field6 (Def)); - end Get_Index_Subtype_Definition_List; - - procedure Set_Index_Subtype_Definition_List (Def : Iir; Idx : Iir_Flist) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Index_Subtype_Definition_List (Get_Kind (Def)), - "no field Index_Subtype_Definition_List"); - Set_Field6 (Def, Iir_Flist_To_Iir (Idx)); - end Set_Index_Subtype_Definition_List; - - function Get_Element_Subtype_Indication (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Element_Subtype_Indication (Get_Kind (Decl)), - "no field Element_Subtype_Indication"); - return Get_Field2 (Decl); - end Get_Element_Subtype_Indication; - - procedure Set_Element_Subtype_Indication (Decl : Iir; Sub_Type : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Element_Subtype_Indication (Get_Kind (Decl)), - "no field Element_Subtype_Indication"); - Set_Field2 (Decl, Sub_Type); - end Set_Element_Subtype_Indication; - - function Get_Element_Subtype (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Element_Subtype (Get_Kind (Decl)), - "no field Element_Subtype"); - return Get_Field1 (Decl); - end Get_Element_Subtype; - - procedure Set_Element_Subtype (Decl : Iir; Sub_Type : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Element_Subtype (Get_Kind (Decl)), - "no field Element_Subtype"); - Set_Field1 (Decl, Sub_Type); - end Set_Element_Subtype; - - function Get_Index_Constraint_List (Def : Iir) return Iir_Flist is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Index_Constraint_List (Get_Kind (Def)), - "no field Index_Constraint_List"); - return Iir_To_Iir_Flist (Get_Field6 (Def)); - end Get_Index_Constraint_List; - - procedure Set_Index_Constraint_List (Def : Iir; List : Iir_Flist) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Index_Constraint_List (Get_Kind (Def)), - "no field Index_Constraint_List"); - Set_Field6 (Def, Iir_Flist_To_Iir (List)); - end Set_Index_Constraint_List; - - function Get_Array_Element_Constraint (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Array_Element_Constraint (Get_Kind (Def)), - "no field Array_Element_Constraint"); - return Get_Field8 (Def); - end Get_Array_Element_Constraint; - - procedure Set_Array_Element_Constraint (Def : Iir; El : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Array_Element_Constraint (Get_Kind (Def)), - "no field Array_Element_Constraint"); - Set_Field8 (Def, El); - end Set_Array_Element_Constraint; - - function Get_Elements_Declaration_List (Decl : Iir) return Iir_Flist is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Elements_Declaration_List (Get_Kind (Decl)), - "no field Elements_Declaration_List"); - return Iir_To_Iir_Flist (Get_Field1 (Decl)); - end Get_Elements_Declaration_List; - - procedure Set_Elements_Declaration_List (Decl : Iir; List : Iir_Flist) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Elements_Declaration_List (Get_Kind (Decl)), - "no field Elements_Declaration_List"); - Set_Field1 (Decl, Iir_Flist_To_Iir (List)); - end Set_Elements_Declaration_List; - - function Get_Owned_Elements_Chain (Atype : Iir) return Iir is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Owned_Elements_Chain (Get_Kind (Atype)), - "no field Owned_Elements_Chain"); - return Get_Field6 (Atype); - end Get_Owned_Elements_Chain; - - procedure Set_Owned_Elements_Chain (Atype : Iir; Chain : Iir) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Owned_Elements_Chain (Get_Kind (Atype)), - "no field Owned_Elements_Chain"); - Set_Field6 (Atype, Chain); - end Set_Owned_Elements_Chain; - - function Get_Designated_Type (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Designated_Type (Get_Kind (Target)), - "no field Designated_Type"); - return Get_Field1 (Target); - end Get_Designated_Type; - - procedure Set_Designated_Type (Target : Iir; Dtype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Designated_Type (Get_Kind (Target)), - "no field Designated_Type"); - Set_Field1 (Target, Dtype); - end Set_Designated_Type; - - function Get_Designated_Subtype_Indication (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Designated_Subtype_Indication (Get_Kind (Target)), - "no field Designated_Subtype_Indication"); - return Get_Field5 (Target); - end Get_Designated_Subtype_Indication; - - procedure Set_Designated_Subtype_Indication (Target : Iir; Dtype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Designated_Subtype_Indication (Get_Kind (Target)), - "no field Designated_Subtype_Indication"); - Set_Field5 (Target, Dtype); - end Set_Designated_Subtype_Indication; - - function Get_Index_List (Decl : Iir) return Iir_Flist is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Index_List (Get_Kind (Decl)), - "no field Index_List"); - return Iir_To_Iir_Flist (Get_Field2 (Decl)); - end Get_Index_List; - - procedure Set_Index_List (Decl : Iir; List : Iir_Flist) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Index_List (Get_Kind (Decl)), - "no field Index_List"); - Set_Field2 (Decl, Iir_Flist_To_Iir (List)); - end Set_Index_List; - - function Get_Reference (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Reference (Get_Kind (Def)), - "no field Reference"); - return Get_Field2 (Def); - end Get_Reference; - - procedure Set_Reference (Def : Iir; Ref : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Reference (Get_Kind (Def)), - "no field Reference"); - Set_Field2 (Def, Ref); - end Set_Reference; - - function Get_Nature_Declarator (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Nature_Declarator (Get_Kind (Def)), - "no field Nature_Declarator"); - return Get_Field3 (Def); - end Get_Nature_Declarator; - - procedure Set_Nature_Declarator (Def : Iir; Decl : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Nature_Declarator (Get_Kind (Def)), - "no field Nature_Declarator"); - Set_Field3 (Def, Decl); - end Set_Nature_Declarator; - - function Get_Across_Type (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Across_Type (Get_Kind (Def)), - "no field Across_Type"); - return Get_Field7 (Def); - end Get_Across_Type; - - procedure Set_Across_Type (Def : Iir; Atype : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Across_Type (Get_Kind (Def)), - "no field Across_Type"); - Set_Field7 (Def, Atype); - end Set_Across_Type; - - function Get_Through_Type (Def : Iir) return Iir is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Through_Type (Get_Kind (Def)), - "no field Through_Type"); - return Get_Field8 (Def); - end Get_Through_Type; - - procedure Set_Through_Type (Def : Iir; Atype : Iir) is - begin - pragma Assert (Def /= Null_Iir); - pragma Assert (Has_Through_Type (Get_Kind (Def)), - "no field Through_Type"); - Set_Field8 (Def, Atype); - end Set_Through_Type; - - function Get_Target (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Target (Get_Kind (Target)), - "no field Target"); - return Get_Field1 (Target); - end Get_Target; - - procedure Set_Target (Target : Iir; Atarget : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Target (Get_Kind (Target)), - "no field Target"); - Set_Field1 (Target, Atarget); - end Set_Target; - - function Get_Waveform_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Waveform_Chain (Get_Kind (Target)), - "no field Waveform_Chain"); - return Get_Field5 (Target); - end Get_Waveform_Chain; - - procedure Set_Waveform_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Waveform_Chain (Get_Kind (Target)), - "no field Waveform_Chain"); - Set_Field5 (Target, Chain); - end Set_Waveform_Chain; - - function Get_Guard (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard (Get_Kind (Target)), - "no field Guard"); - return Get_Field8 (Target); - end Get_Guard; - - procedure Set_Guard (Target : Iir; Guard : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard (Get_Kind (Target)), - "no field Guard"); - Set_Field8 (Target, Guard); - end Set_Guard; - - function Get_Delay_Mechanism (Target : Iir) return Iir_Delay_Mechanism is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Delay_Mechanism (Get_Kind (Target)), - "no field Delay_Mechanism"); - return Boolean_To_Iir_Delay_Mechanism (Get_Flag1 (Target)); - end Get_Delay_Mechanism; - - procedure Set_Delay_Mechanism (Target : Iir; Kind : Iir_Delay_Mechanism) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Delay_Mechanism (Get_Kind (Target)), - "no field Delay_Mechanism"); - Set_Flag1 (Target, Iir_Delay_Mechanism_To_Boolean (Kind)); - end Set_Delay_Mechanism; - - function Get_Reject_Time_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Reject_Time_Expression (Get_Kind (Target)), - "no field Reject_Time_Expression"); - return Get_Field4 (Target); - end Get_Reject_Time_Expression; - - procedure Set_Reject_Time_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Reject_Time_Expression (Get_Kind (Target)), - "no field Reject_Time_Expression"); - Set_Field4 (Target, Expr); - end Set_Reject_Time_Expression; - - function Get_Sensitivity_List (Wait : Iir) return Iir_List is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Sensitivity_List (Get_Kind (Wait)), - "no field Sensitivity_List"); - return Iir_To_Iir_List (Get_Field6 (Wait)); - end Get_Sensitivity_List; - - procedure Set_Sensitivity_List (Wait : Iir; List : Iir_List) is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Sensitivity_List (Get_Kind (Wait)), - "no field Sensitivity_List"); - Set_Field6 (Wait, Iir_List_To_Iir (List)); - end Set_Sensitivity_List; - - function Get_Process_Origin (Proc : Iir) return Iir is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Process_Origin (Get_Kind (Proc)), - "no field Process_Origin"); - return Get_Field8 (Proc); - end Get_Process_Origin; - - procedure Set_Process_Origin (Proc : Iir; Orig : Iir) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Process_Origin (Get_Kind (Proc)), - "no field Process_Origin"); - Set_Field8 (Proc, Orig); - end Set_Process_Origin; - - function Get_Package_Origin (Pkg : Iir) return Iir is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Origin (Get_Kind (Pkg)), - "no field Package_Origin"); - return Get_Field7 (Pkg); - end Get_Package_Origin; - - procedure Set_Package_Origin (Pkg : Iir; Orig : Iir) is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Origin (Get_Kind (Pkg)), - "no field Package_Origin"); - Set_Field7 (Pkg, Orig); - end Set_Package_Origin; - - function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Condition_Clause (Get_Kind (Wait)), - "no field Condition_Clause"); - return Get_Field5 (Wait); - end Get_Condition_Clause; - - procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir) is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Condition_Clause (Get_Kind (Wait)), - "no field Condition_Clause"); - Set_Field5 (Wait, Cond); - end Set_Condition_Clause; - - function Get_Timeout_Clause (Wait : Iir_Wait_Statement) return Iir is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Timeout_Clause (Get_Kind (Wait)), - "no field Timeout_Clause"); - return Get_Field1 (Wait); - end Get_Timeout_Clause; - - procedure Set_Timeout_Clause (Wait : Iir_Wait_Statement; Timeout : Iir) is - begin - pragma Assert (Wait /= Null_Iir); - pragma Assert (Has_Timeout_Clause (Get_Kind (Wait)), - "no field Timeout_Clause"); - Set_Field1 (Wait, Timeout); - end Set_Timeout_Clause; - - function Get_Postponed_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Postponed_Flag (Get_Kind (Target)), - "no field Postponed_Flag"); - return Get_Flag3 (Target); - end Get_Postponed_Flag; - - procedure Set_Postponed_Flag (Target : Iir; Value : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Postponed_Flag (Get_Kind (Target)), - "no field Postponed_Flag"); - Set_Flag3 (Target, Value); - end Set_Postponed_Flag; - - function Get_Callees_List (Proc : Iir) return Iir_List is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Callees_List (Get_Kind (Proc)), - "no field Callees_List"); - return Iir_To_Iir_List (Get_Field7 (Proc)); - end Get_Callees_List; - - procedure Set_Callees_List (Proc : Iir; List : Iir_List) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Callees_List (Get_Kind (Proc)), - "no field Callees_List"); - Set_Field7 (Proc, Iir_List_To_Iir (List)); - end Set_Callees_List; - - function Get_Passive_Flag (Proc : Iir) return Boolean is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Passive_Flag (Get_Kind (Proc)), - "no field Passive_Flag"); - return Get_Flag2 (Proc); - end Get_Passive_Flag; - - procedure Set_Passive_Flag (Proc : Iir; Flag : Boolean) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Passive_Flag (Get_Kind (Proc)), - "no field Passive_Flag"); - Set_Flag2 (Proc, Flag); - end Set_Passive_Flag; - - function Get_Resolution_Function_Flag (Func : Iir) return Boolean is - begin - pragma Assert (Func /= Null_Iir); - pragma Assert (Has_Resolution_Function_Flag (Get_Kind (Func)), - "no field Resolution_Function_Flag"); - return Get_Flag7 (Func); - end Get_Resolution_Function_Flag; - - procedure Set_Resolution_Function_Flag (Func : Iir; Flag : Boolean) is - begin - pragma Assert (Func /= Null_Iir); - pragma Assert (Has_Resolution_Function_Flag (Get_Kind (Func)), - "no field Resolution_Function_Flag"); - Set_Flag7 (Func, Flag); - end Set_Resolution_Function_Flag; - - function Get_Wait_State (Proc : Iir) return Tri_State_Type is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Wait_State (Get_Kind (Proc)), - "no field Wait_State"); - return Tri_State_Type'Val (Get_State1 (Proc)); - end Get_Wait_State; - - procedure Set_Wait_State (Proc : Iir; State : Tri_State_Type) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Wait_State (Get_Kind (Proc)), - "no field Wait_State"); - Set_State1 (Proc, Tri_State_Type'Pos (State)); - end Set_Wait_State; - - function Get_All_Sensitized_State (Proc : Iir) return Iir_All_Sensitized is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_All_Sensitized_State (Get_Kind (Proc)), - "no field All_Sensitized_State"); - return Iir_All_Sensitized'Val (Get_State3 (Proc)); - end Get_All_Sensitized_State; - - procedure Set_All_Sensitized_State (Proc : Iir; State : Iir_All_Sensitized) - is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_All_Sensitized_State (Get_Kind (Proc)), - "no field All_Sensitized_State"); - Set_State3 (Proc, Iir_All_Sensitized'Pos (State)); - end Set_All_Sensitized_State; - - function Get_Seen_Flag (Proc : Iir) return Boolean is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Seen_Flag (Get_Kind (Proc)), - "no field Seen_Flag"); - return Get_Flag1 (Proc); - end Get_Seen_Flag; - - procedure Set_Seen_Flag (Proc : Iir; Flag : Boolean) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Seen_Flag (Get_Kind (Proc)), - "no field Seen_Flag"); - Set_Flag1 (Proc, Flag); - end Set_Seen_Flag; - - function Get_Pure_Flag (Func : Iir) return Boolean is - begin - pragma Assert (Func /= Null_Iir); - pragma Assert (Has_Pure_Flag (Get_Kind (Func)), - "no field Pure_Flag"); - return Get_Flag2 (Func); - end Get_Pure_Flag; - - procedure Set_Pure_Flag (Func : Iir; Flag : Boolean) is - begin - pragma Assert (Func /= Null_Iir); - pragma Assert (Has_Pure_Flag (Get_Kind (Func)), - "no field Pure_Flag"); - Set_Flag2 (Func, Flag); - end Set_Pure_Flag; - - function Get_Foreign_Flag (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Foreign_Flag (Get_Kind (Decl)), - "no field Foreign_Flag"); - return Get_Flag3 (Decl); - end Get_Foreign_Flag; - - procedure Set_Foreign_Flag (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Foreign_Flag (Get_Kind (Decl)), - "no field Foreign_Flag"); - Set_Flag3 (Decl, Flag); - end Set_Foreign_Flag; - - function Get_Resolved_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Resolved_Flag (Get_Kind (Atype)), - "no field Resolved_Flag"); - return Get_Flag1 (Atype); - end Get_Resolved_Flag; - - procedure Set_Resolved_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Resolved_Flag (Get_Kind (Atype)), - "no field Resolved_Flag"); - Set_Flag1 (Atype, Flag); - end Set_Resolved_Flag; - - function Get_Signal_Type_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Signal_Type_Flag (Get_Kind (Atype)), - "no field Signal_Type_Flag"); - return Get_Flag2 (Atype); - end Get_Signal_Type_Flag; - - procedure Set_Signal_Type_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Signal_Type_Flag (Get_Kind (Atype)), - "no field Signal_Type_Flag"); - Set_Flag2 (Atype, Flag); - end Set_Signal_Type_Flag; - - function Get_Has_Signal_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Has_Signal_Flag (Get_Kind (Atype)), - "no field Has_Signal_Flag"); - return Get_Flag3 (Atype); - end Get_Has_Signal_Flag; - - procedure Set_Has_Signal_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Has_Signal_Flag (Get_Kind (Atype)), - "no field Has_Signal_Flag"); - Set_Flag3 (Atype, Flag); - end Set_Has_Signal_Flag; - - function Get_Purity_State (Proc : Iir) return Iir_Pure_State is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Purity_State (Get_Kind (Proc)), - "no field Purity_State"); - return Iir_Pure_State'Val (Get_State2 (Proc)); - end Get_Purity_State; - - procedure Set_Purity_State (Proc : Iir; State : Iir_Pure_State) is - begin - pragma Assert (Proc /= Null_Iir); - pragma Assert (Has_Purity_State (Get_Kind (Proc)), - "no field Purity_State"); - Set_State2 (Proc, Iir_Pure_State'Pos (State)); - end Set_Purity_State; - - function Get_Elab_Flag (Design : Iir) return Boolean is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Elab_Flag (Get_Kind (Design)), - "no field Elab_Flag"); - return Get_Flag3 (Design); - end Get_Elab_Flag; - - procedure Set_Elab_Flag (Design : Iir; Flag : Boolean) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Elab_Flag (Get_Kind (Design)), - "no field Elab_Flag"); - Set_Flag3 (Design, Flag); - end Set_Elab_Flag; - - function Get_Configuration_Mark_Flag (Design : Iir) return Boolean is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Configuration_Mark_Flag (Get_Kind (Design)), - "no field Configuration_Mark_Flag"); - return Get_Flag4 (Design); - end Get_Configuration_Mark_Flag; - - procedure Set_Configuration_Mark_Flag (Design : Iir; Flag : Boolean) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Configuration_Mark_Flag (Get_Kind (Design)), - "no field Configuration_Mark_Flag"); - Set_Flag4 (Design, Flag); - end Set_Configuration_Mark_Flag; - - function Get_Configuration_Done_Flag (Design : Iir) return Boolean is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Configuration_Done_Flag (Get_Kind (Design)), - "no field Configuration_Done_Flag"); - return Get_Flag5 (Design); - end Get_Configuration_Done_Flag; - - procedure Set_Configuration_Done_Flag (Design : Iir; Flag : Boolean) is - begin - pragma Assert (Design /= Null_Iir); - pragma Assert (Has_Configuration_Done_Flag (Get_Kind (Design)), - "no field Configuration_Done_Flag"); - Set_Flag5 (Design, Flag); - end Set_Configuration_Done_Flag; - - function Get_Index_Constraint_Flag (Atype : Iir) return Boolean is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Index_Constraint_Flag (Get_Kind (Atype)), - "no field Index_Constraint_Flag"); - return Get_Flag4 (Atype); - end Get_Index_Constraint_Flag; - - procedure Set_Index_Constraint_Flag (Atype : Iir; Flag : Boolean) is - begin - pragma Assert (Atype /= Null_Iir); - pragma Assert (Has_Index_Constraint_Flag (Get_Kind (Atype)), - "no field Index_Constraint_Flag"); - Set_Flag4 (Atype, Flag); - end Set_Index_Constraint_Flag; - - function Get_Hide_Implicit_Flag (Subprg : Iir) return Boolean is - begin - pragma Assert (Subprg /= Null_Iir); - pragma Assert (Has_Hide_Implicit_Flag (Get_Kind (Subprg)), - "no field Hide_Implicit_Flag"); - return Get_Flag12 (Subprg); - end Get_Hide_Implicit_Flag; - - procedure Set_Hide_Implicit_Flag (Subprg : Iir; Flag : Boolean) is - begin - pragma Assert (Subprg /= Null_Iir); - pragma Assert (Has_Hide_Implicit_Flag (Get_Kind (Subprg)), - "no field Hide_Implicit_Flag"); - Set_Flag12 (Subprg, Flag); - end Set_Hide_Implicit_Flag; - - function Get_Assertion_Condition (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Assertion_Condition (Get_Kind (Target)), - "no field Assertion_Condition"); - return Get_Field1 (Target); - end Get_Assertion_Condition; - - procedure Set_Assertion_Condition (Target : Iir; Cond : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Assertion_Condition (Get_Kind (Target)), - "no field Assertion_Condition"); - Set_Field1 (Target, Cond); - end Set_Assertion_Condition; - - function Get_Report_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Report_Expression (Get_Kind (Target)), - "no field Report_Expression"); - return Get_Field5 (Target); - end Get_Report_Expression; - - procedure Set_Report_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Report_Expression (Get_Kind (Target)), - "no field Report_Expression"); - Set_Field5 (Target, Expr); - end Set_Report_Expression; - - function Get_Severity_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Severity_Expression (Get_Kind (Target)), - "no field Severity_Expression"); - return Get_Field4 (Target); - end Get_Severity_Expression; - - procedure Set_Severity_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Severity_Expression (Get_Kind (Target)), - "no field Severity_Expression"); - Set_Field4 (Target, Expr); - end Set_Severity_Expression; - - function Get_Instantiated_Unit (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Instantiated_Unit (Get_Kind (Target)), - "no field Instantiated_Unit"); - return Get_Field1 (Target); - end Get_Instantiated_Unit; - - procedure Set_Instantiated_Unit (Target : Iir; Unit : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Instantiated_Unit (Get_Kind (Target)), - "no field Instantiated_Unit"); - Set_Field1 (Target, Unit); - end Set_Instantiated_Unit; - - function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generic_Map_Aspect_Chain (Get_Kind (Target)), - "no field Generic_Map_Aspect_Chain"); - return Get_Field8 (Target); - end Get_Generic_Map_Aspect_Chain; - - procedure Set_Generic_Map_Aspect_Chain (Target : Iir; Generics : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generic_Map_Aspect_Chain (Get_Kind (Target)), - "no field Generic_Map_Aspect_Chain"); - Set_Field8 (Target, Generics); - end Set_Generic_Map_Aspect_Chain; - - function Get_Port_Map_Aspect_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Port_Map_Aspect_Chain (Get_Kind (Target)), - "no field Port_Map_Aspect_Chain"); - return Get_Field9 (Target); - end Get_Port_Map_Aspect_Chain; - - procedure Set_Port_Map_Aspect_Chain (Target : Iir; Port : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Port_Map_Aspect_Chain (Get_Kind (Target)), - "no field Port_Map_Aspect_Chain"); - Set_Field9 (Target, Port); - end Set_Port_Map_Aspect_Chain; - - function Get_Configuration_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Name (Get_Kind (Target)), - "no field Configuration_Name"); - return Get_Field1 (Target); - end Get_Configuration_Name; - - procedure Set_Configuration_Name (Target : Iir; Conf : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Name (Get_Kind (Target)), - "no field Configuration_Name"); - Set_Field1 (Target, Conf); - end Set_Configuration_Name; - - function Get_Component_Configuration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Component_Configuration (Get_Kind (Target)), - "no field Component_Configuration"); - return Get_Field6 (Target); - end Get_Component_Configuration; - - procedure Set_Component_Configuration (Target : Iir; Conf : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Component_Configuration (Get_Kind (Target)), - "no field Component_Configuration"); - Set_Field6 (Target, Conf); - end Set_Component_Configuration; - - function Get_Configuration_Specification (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Specification (Get_Kind (Target)), - "no field Configuration_Specification"); - return Get_Field7 (Target); - end Get_Configuration_Specification; - - procedure Set_Configuration_Specification (Target : Iir; Conf : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Configuration_Specification (Get_Kind (Target)), - "no field Configuration_Specification"); - Set_Field7 (Target, Conf); - end Set_Configuration_Specification; - - function Get_Default_Binding_Indication (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Binding_Indication (Get_Kind (Target)), - "no field Default_Binding_Indication"); - return Get_Field5 (Target); - end Get_Default_Binding_Indication; - - procedure Set_Default_Binding_Indication (Target : Iir; Conf : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Binding_Indication (Get_Kind (Target)), - "no field Default_Binding_Indication"); - Set_Field5 (Target, Conf); - end Set_Default_Binding_Indication; - - function Get_Default_Configuration_Declaration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Configuration_Declaration (Get_Kind (Target)), - "no field Default_Configuration_Declaration"); - return Get_Field6 (Target); - end Get_Default_Configuration_Declaration; - - procedure Set_Default_Configuration_Declaration (Target : Iir; Conf : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Configuration_Declaration (Get_Kind (Target)), - "no field Default_Configuration_Declaration"); - Set_Field6 (Target, Conf); - end Set_Default_Configuration_Declaration; - - function Get_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Expression (Get_Kind (Target)), - "no field Expression"); - return Get_Field5 (Target); - end Get_Expression; - - procedure Set_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Expression (Get_Kind (Target)), - "no field Expression"); - Set_Field5 (Target, Expr); - end Set_Expression; - - function Get_Conditional_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Conditional_Expression (Get_Kind (Target)), - "no field Conditional_Expression"); - return Get_Field5 (Target); - end Get_Conditional_Expression; - - procedure Set_Conditional_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Conditional_Expression (Get_Kind (Target)), - "no field Conditional_Expression"); - Set_Field5 (Target, Expr); - end Set_Conditional_Expression; - - function Get_Allocator_Designated_Type (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Allocator_Designated_Type (Get_Kind (Target)), - "no field Allocator_Designated_Type"); - return Get_Field2 (Target); - end Get_Allocator_Designated_Type; - - procedure Set_Allocator_Designated_Type (Target : Iir; A_Type : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Allocator_Designated_Type (Get_Kind (Target)), - "no field Allocator_Designated_Type"); - Set_Field2 (Target, A_Type); - end Set_Allocator_Designated_Type; - - function Get_Selected_Waveform_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Selected_Waveform_Chain (Get_Kind (Target)), - "no field Selected_Waveform_Chain"); - return Get_Field7 (Target); - end Get_Selected_Waveform_Chain; - - procedure Set_Selected_Waveform_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Selected_Waveform_Chain (Get_Kind (Target)), - "no field Selected_Waveform_Chain"); - Set_Field7 (Target, Chain); - end Set_Selected_Waveform_Chain; - - function Get_Conditional_Waveform_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Conditional_Waveform_Chain (Get_Kind (Target)), - "no field Conditional_Waveform_Chain"); - return Get_Field5 (Target); - end Get_Conditional_Waveform_Chain; - - procedure Set_Conditional_Waveform_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Conditional_Waveform_Chain (Get_Kind (Target)), - "no field Conditional_Waveform_Chain"); - Set_Field5 (Target, Chain); - end Set_Conditional_Waveform_Chain; - - function Get_Guard_Expression (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard_Expression (Get_Kind (Target)), - "no field Guard_Expression"); - return Get_Field2 (Target); - end Get_Guard_Expression; - - procedure Set_Guard_Expression (Target : Iir; Expr : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard_Expression (Get_Kind (Target)), - "no field Guard_Expression"); - Set_Field2 (Target, Expr); - end Set_Guard_Expression; - - function Get_Guard_Decl (Target : Iir_Block_Statement) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard_Decl (Get_Kind (Target)), - "no field Guard_Decl"); - return Get_Field8 (Target); - end Get_Guard_Decl; - - procedure Set_Guard_Decl (Target : Iir_Block_Statement; Decl : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Guard_Decl (Get_Kind (Target)), - "no field Guard_Decl"); - Set_Field8 (Target, Decl); - end Set_Guard_Decl; - - function Get_Guard_Sensitivity_List (Guard : Iir) return Iir_List is - begin - pragma Assert (Guard /= Null_Iir); - pragma Assert (Has_Guard_Sensitivity_List (Get_Kind (Guard)), - "no field Guard_Sensitivity_List"); - return Iir_To_Iir_List (Get_Field4 (Guard)); - end Get_Guard_Sensitivity_List; - - procedure Set_Guard_Sensitivity_List (Guard : Iir; List : Iir_List) is - begin - pragma Assert (Guard /= Null_Iir); - pragma Assert (Has_Guard_Sensitivity_List (Get_Kind (Guard)), - "no field Guard_Sensitivity_List"); - Set_Field4 (Guard, Iir_List_To_Iir (List)); - end Set_Guard_Sensitivity_List; - - function Get_Signal_Attribute_Chain (Decl : Iir) return Iir is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Signal_Attribute_Chain (Get_Kind (Decl)), - "no field Signal_Attribute_Chain"); - return Get_Field3 (Decl); - end Get_Signal_Attribute_Chain; - - procedure Set_Signal_Attribute_Chain (Decl : Iir; Chain : Iir) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Signal_Attribute_Chain (Get_Kind (Decl)), - "no field Signal_Attribute_Chain"); - Set_Field3 (Decl, Chain); - end Set_Signal_Attribute_Chain; - - function Get_Block_Block_Configuration (Block : Iir) return Iir is - begin - pragma Assert (Block /= Null_Iir); - pragma Assert (Has_Block_Block_Configuration (Get_Kind (Block)), - "no field Block_Block_Configuration"); - return Get_Field6 (Block); - end Get_Block_Block_Configuration; - - procedure Set_Block_Block_Configuration (Block : Iir; Conf : Iir) is - begin - pragma Assert (Block /= Null_Iir); - pragma Assert (Has_Block_Block_Configuration (Get_Kind (Block)), - "no field Block_Block_Configuration"); - Set_Field6 (Block, Conf); - end Set_Block_Block_Configuration; - - function Get_Package_Header (Pkg : Iir) return Iir is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Header (Get_Kind (Pkg)), - "no field Package_Header"); - return Get_Field6 (Pkg); - end Get_Package_Header; - - procedure Set_Package_Header (Pkg : Iir; Header : Iir) is - begin - pragma Assert (Pkg /= Null_Iir); - pragma Assert (Has_Package_Header (Get_Kind (Pkg)), - "no field Package_Header"); - Set_Field6 (Pkg, Header); - end Set_Package_Header; - - function Get_Block_Header (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Header (Get_Kind (Target)), - "no field Block_Header"); - return Get_Field7 (Target); - end Get_Block_Header; - - procedure Set_Block_Header (Target : Iir; Header : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Block_Header (Get_Kind (Target)), - "no field Block_Header"); - Set_Field7 (Target, Header); - end Set_Block_Header; - - function Get_Uninstantiated_Package_Name (Inst : Iir) return Iir is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Uninstantiated_Package_Name (Get_Kind (Inst)), - "no field Uninstantiated_Package_Name"); - return Get_Field7 (Inst); - end Get_Uninstantiated_Package_Name; - - procedure Set_Uninstantiated_Package_Name (Inst : Iir; Name : Iir) is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Uninstantiated_Package_Name (Get_Kind (Inst)), - "no field Uninstantiated_Package_Name"); - Set_Field7 (Inst, Name); - end Set_Uninstantiated_Package_Name; - - function Get_Uninstantiated_Package_Decl (Inst : Iir) return Iir is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Uninstantiated_Package_Decl (Get_Kind (Inst)), - "no field Uninstantiated_Package_Decl"); - return Get_Field9 (Inst); - end Get_Uninstantiated_Package_Decl; - - procedure Set_Uninstantiated_Package_Decl (Inst : Iir; Pkg : Iir) is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Uninstantiated_Package_Decl (Get_Kind (Inst)), - "no field Uninstantiated_Package_Decl"); - Set_Field9 (Inst, Pkg); - end Set_Uninstantiated_Package_Decl; - - function Get_Instance_Source_File (Inst : Iir) return Source_File_Entry is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Instance_Source_File (Get_Kind (Inst)), - "no field Instance_Source_File"); - return Iir_To_Source_File_Entry (Get_Field10 (Inst)); - end Get_Instance_Source_File; - - procedure Set_Instance_Source_File (Inst : Iir; File : Source_File_Entry) - is - begin - pragma Assert (Inst /= Null_Iir); - pragma Assert (Has_Instance_Source_File (Get_Kind (Inst)), - "no field Instance_Source_File"); - Set_Field10 (Inst, Source_File_Entry_To_Iir (File)); - end Set_Instance_Source_File; - - function Get_Generate_Block_Configuration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Block_Configuration (Get_Kind (Target)), - "no field Generate_Block_Configuration"); - return Get_Field2 (Target); - end Get_Generate_Block_Configuration; - - procedure Set_Generate_Block_Configuration (Target : Iir; Conf : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Block_Configuration (Get_Kind (Target)), - "no field Generate_Block_Configuration"); - Set_Field2 (Target, Conf); - end Set_Generate_Block_Configuration; - - function Get_Generate_Statement_Body (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Statement_Body (Get_Kind (Target)), - "no field Generate_Statement_Body"); - return Get_Field4 (Target); - end Get_Generate_Statement_Body; - - procedure Set_Generate_Statement_Body (Target : Iir; Bod : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Statement_Body (Get_Kind (Target)), - "no field Generate_Statement_Body"); - Set_Field4 (Target, Bod); - end Set_Generate_Statement_Body; - - function Get_Alternative_Label (Target : Iir) return Name_Id is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Alternative_Label (Get_Kind (Target)), - "no field Alternative_Label"); - return Iir_To_Name_Id (Get_Field3 (Target)); - end Get_Alternative_Label; - - procedure Set_Alternative_Label (Target : Iir; Label : Name_Id) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Alternative_Label (Get_Kind (Target)), - "no field Alternative_Label"); - Set_Field3 (Target, Name_Id_To_Iir (Label)); - end Set_Alternative_Label; - - function Get_Generate_Else_Clause (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Else_Clause (Get_Kind (Target)), - "no field Generate_Else_Clause"); - return Get_Field5 (Target); - end Get_Generate_Else_Clause; - - procedure Set_Generate_Else_Clause (Target : Iir; Clause : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Generate_Else_Clause (Get_Kind (Target)), - "no field Generate_Else_Clause"); - Set_Field5 (Target, Clause); - end Set_Generate_Else_Clause; - - function Get_Condition (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Condition (Get_Kind (Target)), - "no field Condition"); - return Get_Field1 (Target); - end Get_Condition; - - procedure Set_Condition (Target : Iir; Condition : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Condition (Get_Kind (Target)), - "no field Condition"); - Set_Field1 (Target, Condition); - end Set_Condition; - - function Get_Else_Clause (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Else_Clause (Get_Kind (Target)), - "no field Else_Clause"); - return Get_Field4 (Target); - end Get_Else_Clause; - - procedure Set_Else_Clause (Target : Iir; Clause : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Else_Clause (Get_Kind (Target)), - "no field Else_Clause"); - Set_Field4 (Target, Clause); - end Set_Else_Clause; - - function Get_Parameter_Specification (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter_Specification (Get_Kind (Target)), - "no field Parameter_Specification"); - return Get_Field1 (Target); - end Get_Parameter_Specification; - - procedure Set_Parameter_Specification (Target : Iir; Param : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter_Specification (Get_Kind (Target)), - "no field Parameter_Specification"); - Set_Field1 (Target, Param); - end Set_Parameter_Specification; - - function Get_Parent (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parent (Get_Kind (Target)), - "no field Parent"); - return Get_Field0 (Target); - end Get_Parent; - - procedure Set_Parent (Target : Iir; Parent : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parent (Get_Kind (Target)), - "no field Parent"); - Set_Field0 (Target, Parent); - end Set_Parent; - - function Get_Loop_Label (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Loop_Label (Get_Kind (Target)), - "no field Loop_Label"); - return Get_Field5 (Target); - end Get_Loop_Label; - - procedure Set_Loop_Label (Target : Iir; Stmt : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Loop_Label (Get_Kind (Target)), - "no field Loop_Label"); - Set_Field5 (Target, Stmt); - end Set_Loop_Label; - - function Get_Component_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Component_Name (Get_Kind (Target)), - "no field Component_Name"); - return Get_Field4 (Target); - end Get_Component_Name; - - procedure Set_Component_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Component_Name (Get_Kind (Target)), - "no field Component_Name"); - Set_Field4 (Target, Name); - end Set_Component_Name; - - function Get_Instantiation_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Instantiation_List (Get_Kind (Target)), - "no field Instantiation_List"); - return Iir_To_Iir_Flist (Get_Field1 (Target)); - end Get_Instantiation_List; - - procedure Set_Instantiation_List (Target : Iir; List : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Instantiation_List (Get_Kind (Target)), - "no field Instantiation_List"); - Set_Field1 (Target, Iir_Flist_To_Iir (List)); - end Set_Instantiation_List; - - function Get_Entity_Aspect (Target : Iir_Binding_Indication) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Aspect (Get_Kind (Target)), - "no field Entity_Aspect"); - return Get_Field3 (Target); - end Get_Entity_Aspect; - - procedure Set_Entity_Aspect (Target : Iir_Binding_Indication; Entity : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Entity_Aspect (Get_Kind (Target)), - "no field Entity_Aspect"); - Set_Field3 (Target, Entity); - end Set_Entity_Aspect; - - function Get_Default_Entity_Aspect (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Entity_Aspect (Get_Kind (Target)), - "no field Default_Entity_Aspect"); - return Get_Field1 (Target); - end Get_Default_Entity_Aspect; - - procedure Set_Default_Entity_Aspect (Target : Iir; Aspect : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Default_Entity_Aspect (Get_Kind (Target)), - "no field Default_Entity_Aspect"); - Set_Field1 (Target, Aspect); - end Set_Default_Entity_Aspect; - - function Get_Binding_Indication (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Binding_Indication (Get_Kind (Target)), - "no field Binding_Indication"); - return Get_Field3 (Target); - end Get_Binding_Indication; - - procedure Set_Binding_Indication (Target : Iir; Binding : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Binding_Indication (Get_Kind (Target)), - "no field Binding_Indication"); - Set_Field3 (Target, Binding); - end Set_Binding_Indication; - - function Get_Named_Entity (Name : Iir) return Iir is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Named_Entity (Get_Kind (Name)), - "no field Named_Entity"); - return Get_Field4 (Name); - end Get_Named_Entity; - - procedure Set_Named_Entity (Name : Iir; Val : Iir) is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Named_Entity (Get_Kind (Name)), - "no field Named_Entity"); - Set_Field4 (Name, Val); - end Set_Named_Entity; - - function Get_Alias_Declaration (Name : Iir) return Iir is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), - "no field Alias_Declaration"); - return Get_Field2 (Name); - end Get_Alias_Declaration; - - procedure Set_Alias_Declaration (Name : Iir; Val : Iir) is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), - "no field Alias_Declaration"); - Set_Field2 (Name, Val); - end Set_Alias_Declaration; - - function Get_Referenced_Name (N : Iir) return Iir is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Referenced_Name (Get_Kind (N)), - "no field Referenced_Name"); - return Get_Field2 (N); - end Get_Referenced_Name; - - procedure Set_Referenced_Name (N : Iir; Name : Iir) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Referenced_Name (Get_Kind (N)), - "no field Referenced_Name"); - Set_Field2 (N, Name); - end Set_Referenced_Name; - - function Get_Expr_Staticness (Target : Iir) return Iir_Staticness is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Expr_Staticness (Get_Kind (Target)), - "no field Expr_Staticness"); - return Iir_Staticness'Val (Get_State1 (Target)); - end Get_Expr_Staticness; - - procedure Set_Expr_Staticness (Target : Iir; Static : Iir_Staticness) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Expr_Staticness (Get_Kind (Target)), - "no field Expr_Staticness"); - Set_State1 (Target, Iir_Staticness'Pos (Static)); - end Set_Expr_Staticness; - - function Get_Error_Origin (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Error_Origin (Get_Kind (Target)), - "no field Error_Origin"); - return Get_Field2 (Target); - end Get_Error_Origin; - - procedure Set_Error_Origin (Target : Iir; Origin : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Error_Origin (Get_Kind (Target)), - "no field Error_Origin"); - Set_Field2 (Target, Origin); - end Set_Error_Origin; - - function Get_Operand (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Operand (Get_Kind (Target)), - "no field Operand"); - return Get_Field2 (Target); - end Get_Operand; - - procedure Set_Operand (Target : Iir; An_Iir : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Operand (Get_Kind (Target)), - "no field Operand"); - Set_Field2 (Target, An_Iir); - end Set_Operand; - - function Get_Left (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Left (Get_Kind (Target)), - "no field Left"); - return Get_Field2 (Target); - end Get_Left; - - procedure Set_Left (Target : Iir; An_Iir : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Left (Get_Kind (Target)), - "no field Left"); - Set_Field2 (Target, An_Iir); - end Set_Left; - - function Get_Right (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Right (Get_Kind (Target)), - "no field Right"); - return Get_Field4 (Target); - end Get_Right; - - procedure Set_Right (Target : Iir; An_Iir : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Right (Get_Kind (Target)), - "no field Right"); - Set_Field4 (Target, An_Iir); - end Set_Right; - - function Get_Physical_Unit (Lit : Iir) return Iir is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Physical_Unit (Get_Kind (Lit)), - "no field Physical_Unit"); - return Get_Field3 (Lit); - end Get_Physical_Unit; - - procedure Set_Physical_Unit (Lit : Iir; Name : Iir) is - begin - pragma Assert (Lit /= Null_Iir); - pragma Assert (Has_Physical_Unit (Get_Kind (Lit)), - "no field Physical_Unit"); - Set_Field3 (Lit, Name); - end Set_Physical_Unit; - - function Get_Unit_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Unit_Name (Get_Kind (Target)), - "no field Unit_Name"); - return Get_Field0 (Target); - end Get_Unit_Name; - - procedure Set_Unit_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Unit_Name (Get_Kind (Target)), - "no field Unit_Name"); - Set_Field0 (Target, Name); - end Set_Unit_Name; - - function Get_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Name (Get_Kind (Target)), - "no field Name"); - return Get_Field4 (Target); - end Get_Name; - - procedure Set_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Name (Get_Kind (Target)), - "no field Name"); - Set_Field4 (Target, Name); - end Set_Name; - - function Get_Group_Template_Name (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Group_Template_Name (Get_Kind (Target)), - "no field Group_Template_Name"); - return Get_Field5 (Target); - end Get_Group_Template_Name; - - procedure Set_Group_Template_Name (Target : Iir; Name : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Group_Template_Name (Get_Kind (Target)), - "no field Group_Template_Name"); - Set_Field5 (Target, Name); - end Set_Group_Template_Name; - - function Get_Name_Staticness (Target : Iir) return Iir_Staticness is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Name_Staticness (Get_Kind (Target)), - "no field Name_Staticness"); - return Iir_Staticness'Val (Get_State2 (Target)); - end Get_Name_Staticness; - - procedure Set_Name_Staticness (Target : Iir; Static : Iir_Staticness) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Name_Staticness (Get_Kind (Target)), - "no field Name_Staticness"); - Set_State2 (Target, Iir_Staticness'Pos (Static)); - end Set_Name_Staticness; - - function Get_Prefix (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Prefix (Get_Kind (Target)), - "no field Prefix"); - return Get_Field0 (Target); - end Get_Prefix; - - procedure Set_Prefix (Target : Iir; Prefix : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Prefix (Get_Kind (Target)), - "no field Prefix"); - Set_Field0 (Target, Prefix); - end Set_Prefix; - - function Get_Signature_Prefix (Sign : Iir) return Iir is - begin - pragma Assert (Sign /= Null_Iir); - pragma Assert (Has_Signature_Prefix (Get_Kind (Sign)), - "no field Signature_Prefix"); - return Get_Field1 (Sign); - end Get_Signature_Prefix; - - procedure Set_Signature_Prefix (Sign : Iir; Prefix : Iir) is - begin - pragma Assert (Sign /= Null_Iir); - pragma Assert (Has_Signature_Prefix (Get_Kind (Sign)), - "no field Signature_Prefix"); - Set_Field1 (Sign, Prefix); - end Set_Signature_Prefix; - - function Get_External_Pathname (Name : Iir) return Iir is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_External_Pathname (Get_Kind (Name)), - "no field External_Pathname"); - return Get_Field3 (Name); - end Get_External_Pathname; - - procedure Set_External_Pathname (Name : Iir; Path : Iir) is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_External_Pathname (Get_Kind (Name)), - "no field External_Pathname"); - Set_Field3 (Name, Path); - end Set_External_Pathname; - - function Get_Pathname_Suffix (Path : Iir) return Iir is - begin - pragma Assert (Path /= Null_Iir); - pragma Assert (Has_Pathname_Suffix (Get_Kind (Path)), - "no field Pathname_Suffix"); - return Get_Field2 (Path); - end Get_Pathname_Suffix; - - procedure Set_Pathname_Suffix (Path : Iir; Suffix : Iir) is - begin - pragma Assert (Path /= Null_Iir); - pragma Assert (Has_Pathname_Suffix (Get_Kind (Path)), - "no field Pathname_Suffix"); - Set_Field2 (Path, Suffix); - end Set_Pathname_Suffix; - - function Get_Pathname_Expression (Path : Iir) return Iir is - begin - pragma Assert (Path /= Null_Iir); - pragma Assert (Has_Pathname_Expression (Get_Kind (Path)), - "no field Pathname_Expression"); - return Get_Field5 (Path); - end Get_Pathname_Expression; - - procedure Set_Pathname_Expression (Path : Iir; Expr : Iir) is - begin - pragma Assert (Path /= Null_Iir); - pragma Assert (Has_Pathname_Expression (Get_Kind (Path)), - "no field Pathname_Expression"); - Set_Field5 (Path, Expr); - end Set_Pathname_Expression; - - function Get_In_Formal_Flag (Name : Iir) return Boolean is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_In_Formal_Flag (Get_Kind (Name)), - "no field In_Formal_Flag"); - return Get_Flag4 (Name); - end Get_In_Formal_Flag; - - procedure Set_In_Formal_Flag (Name : Iir; Flag : Boolean) is - begin - pragma Assert (Name /= Null_Iir); - pragma Assert (Has_In_Formal_Flag (Get_Kind (Name)), - "no field In_Formal_Flag"); - Set_Flag4 (Name, Flag); - end Set_In_Formal_Flag; - - function Get_Slice_Subtype (Slice : Iir) return Iir is - begin - pragma Assert (Slice /= Null_Iir); - pragma Assert (Has_Slice_Subtype (Get_Kind (Slice)), - "no field Slice_Subtype"); - return Get_Field3 (Slice); - end Get_Slice_Subtype; - - procedure Set_Slice_Subtype (Slice : Iir; Atype : Iir) is - begin - pragma Assert (Slice /= Null_Iir); - pragma Assert (Has_Slice_Subtype (Get_Kind (Slice)), - "no field Slice_Subtype"); - Set_Field3 (Slice, Atype); - end Set_Slice_Subtype; - - function Get_Suffix (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Suffix (Get_Kind (Target)), - "no field Suffix"); - return Get_Field2 (Target); - end Get_Suffix; - - procedure Set_Suffix (Target : Iir; Suffix : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Suffix (Get_Kind (Target)), - "no field Suffix"); - Set_Field2 (Target, Suffix); - end Set_Suffix; - - function Get_Index_Subtype (Attr : Iir) return Iir is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Index_Subtype (Get_Kind (Attr)), - "no field Index_Subtype"); - return Get_Field2 (Attr); - end Get_Index_Subtype; - - procedure Set_Index_Subtype (Attr : Iir; St : Iir) is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Index_Subtype (Get_Kind (Attr)), - "no field Index_Subtype"); - Set_Field2 (Attr, St); - end Set_Index_Subtype; - - function Get_Parameter (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter (Get_Kind (Target)), - "no field Parameter"); - return Get_Field4 (Target); - end Get_Parameter; - - procedure Set_Parameter (Target : Iir; Param : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter (Get_Kind (Target)), - "no field Parameter"); - Set_Field4 (Target, Param); - end Set_Parameter; - - function Get_Attr_Chain (Attr : Iir) return Iir is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Attr_Chain (Get_Kind (Attr)), - "no field Attr_Chain"); - return Get_Field2 (Attr); - end Get_Attr_Chain; - - procedure Set_Attr_Chain (Attr : Iir; Chain : Iir) is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Attr_Chain (Get_Kind (Attr)), - "no field Attr_Chain"); - Set_Field2 (Attr, Chain); - end Set_Attr_Chain; - - function Get_Signal_Attribute_Declaration (Attr : Iir) return Iir is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Signal_Attribute_Declaration (Get_Kind (Attr)), - "no field Signal_Attribute_Declaration"); - return Get_Field3 (Attr); - end Get_Signal_Attribute_Declaration; - - procedure Set_Signal_Attribute_Declaration (Attr : Iir; Decl : Iir) is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Signal_Attribute_Declaration (Get_Kind (Attr)), - "no field Signal_Attribute_Declaration"); - Set_Field3 (Attr, Decl); - end Set_Signal_Attribute_Declaration; - - function Get_Actual_Type (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Type (Get_Kind (Target)), - "no field Actual_Type"); - return Get_Field5 (Target); - end Get_Actual_Type; - - procedure Set_Actual_Type (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Type (Get_Kind (Target)), - "no field Actual_Type"); - Set_Field5 (Target, Atype); - end Set_Actual_Type; - - function Get_Actual_Type_Definition (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Type_Definition (Get_Kind (Target)), - "no field Actual_Type_Definition"); - return Get_Field3 (Target); - end Get_Actual_Type_Definition; - - procedure Set_Actual_Type_Definition (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Actual_Type_Definition (Get_Kind (Target)), - "no field Actual_Type_Definition"); - Set_Field3 (Target, Atype); - end Set_Actual_Type_Definition; - - function Get_Association_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Association_Chain (Get_Kind (Target)), - "no field Association_Chain"); - return Get_Field2 (Target); - end Get_Association_Chain; - - procedure Set_Association_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Association_Chain (Get_Kind (Target)), - "no field Association_Chain"); - Set_Field2 (Target, Chain); - end Set_Association_Chain; - - function Get_Individual_Association_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Individual_Association_Chain (Get_Kind (Target)), - "no field Individual_Association_Chain"); - return Get_Field4 (Target); - end Get_Individual_Association_Chain; - - procedure Set_Individual_Association_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Individual_Association_Chain (Get_Kind (Target)), - "no field Individual_Association_Chain"); - Set_Field4 (Target, Chain); - end Set_Individual_Association_Chain; - - function Get_Subprogram_Association_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Association_Chain (Get_Kind (Target)), - "no field Subprogram_Association_Chain"); - return Get_Field4 (Target); - end Get_Subprogram_Association_Chain; - - procedure Set_Subprogram_Association_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subprogram_Association_Chain (Get_Kind (Target)), - "no field Subprogram_Association_Chain"); - Set_Field4 (Target, Chain); - end Set_Subprogram_Association_Chain; - - function Get_Aggregate_Info (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), - "no field Aggregate_Info"); - return Get_Field5 (Target); - end Get_Aggregate_Info; - - procedure Set_Aggregate_Info (Target : Iir; Info : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), - "no field Aggregate_Info"); - Set_Field5 (Target, Info); - end Set_Aggregate_Info; - - function Get_Sub_Aggregate_Info (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Sub_Aggregate_Info (Get_Kind (Target)), - "no field Sub_Aggregate_Info"); - return Get_Field1 (Target); - end Get_Sub_Aggregate_Info; - - procedure Set_Sub_Aggregate_Info (Target : Iir; Info : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Sub_Aggregate_Info (Get_Kind (Target)), - "no field Sub_Aggregate_Info"); - Set_Field1 (Target, Info); - end Set_Sub_Aggregate_Info; - - function Get_Aggr_Dynamic_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Dynamic_Flag (Get_Kind (Target)), - "no field Aggr_Dynamic_Flag"); - return Get_Flag3 (Target); - end Get_Aggr_Dynamic_Flag; - - procedure Set_Aggr_Dynamic_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Dynamic_Flag (Get_Kind (Target)), - "no field Aggr_Dynamic_Flag"); - Set_Flag3 (Target, Val); - end Set_Aggr_Dynamic_Flag; - - function Get_Aggr_Min_Length (Info : Iir_Aggregate_Info) return Iir_Int32 - is - begin - pragma Assert (Info /= Null_Iir); - pragma Assert (Has_Aggr_Min_Length (Get_Kind (Info)), - "no field Aggr_Min_Length"); - return Iir_To_Iir_Int32 (Get_Field4 (Info)); - end Get_Aggr_Min_Length; - - procedure Set_Aggr_Min_Length (Info : Iir_Aggregate_Info; Nbr : Iir_Int32) - is - begin - pragma Assert (Info /= Null_Iir); - pragma Assert (Has_Aggr_Min_Length (Get_Kind (Info)), - "no field Aggr_Min_Length"); - Set_Field4 (Info, Iir_Int32_To_Iir (Nbr)); - end Set_Aggr_Min_Length; - - function Get_Aggr_Low_Limit (Target : Iir_Aggregate_Info) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Low_Limit (Get_Kind (Target)), - "no field Aggr_Low_Limit"); - return Get_Field2 (Target); - end Get_Aggr_Low_Limit; - - procedure Set_Aggr_Low_Limit (Target : Iir_Aggregate_Info; Limit : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Low_Limit (Get_Kind (Target)), - "no field Aggr_Low_Limit"); - Set_Field2 (Target, Limit); - end Set_Aggr_Low_Limit; - - function Get_Aggr_High_Limit (Target : Iir_Aggregate_Info) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_High_Limit (Get_Kind (Target)), - "no field Aggr_High_Limit"); - return Get_Field3 (Target); - end Get_Aggr_High_Limit; - - procedure Set_Aggr_High_Limit (Target : Iir_Aggregate_Info; Limit : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_High_Limit (Get_Kind (Target)), - "no field Aggr_High_Limit"); - Set_Field3 (Target, Limit); - end Set_Aggr_High_Limit; - - function Get_Aggr_Others_Flag (Target : Iir_Aggregate_Info) return Boolean - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Others_Flag (Get_Kind (Target)), - "no field Aggr_Others_Flag"); - return Get_Flag2 (Target); - end Get_Aggr_Others_Flag; - - procedure Set_Aggr_Others_Flag (Target : Iir_Aggregate_Info; Val : Boolean) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Others_Flag (Get_Kind (Target)), - "no field Aggr_Others_Flag"); - Set_Flag2 (Target, Val); - end Set_Aggr_Others_Flag; - - function Get_Aggr_Named_Flag (Target : Iir_Aggregate_Info) return Boolean - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Named_Flag (Get_Kind (Target)), - "no field Aggr_Named_Flag"); - return Get_Flag4 (Target); - end Get_Aggr_Named_Flag; - - procedure Set_Aggr_Named_Flag (Target : Iir_Aggregate_Info; Val : Boolean) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Aggr_Named_Flag (Get_Kind (Target)), - "no field Aggr_Named_Flag"); - Set_Flag4 (Target, Val); - end Set_Aggr_Named_Flag; - - function Get_Aggregate_Expand_Flag (Aggr : Iir) return Boolean is - begin - pragma Assert (Aggr /= Null_Iir); - pragma Assert (Has_Aggregate_Expand_Flag (Get_Kind (Aggr)), - "no field Aggregate_Expand_Flag"); - return Get_Flag1 (Aggr); - end Get_Aggregate_Expand_Flag; - - procedure Set_Aggregate_Expand_Flag (Aggr : Iir; Flag : Boolean) is - begin - pragma Assert (Aggr /= Null_Iir); - pragma Assert (Has_Aggregate_Expand_Flag (Get_Kind (Aggr)), - "no field Aggregate_Expand_Flag"); - Set_Flag1 (Aggr, Flag); - end Set_Aggregate_Expand_Flag; - - function Get_Association_Choices_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Association_Choices_Chain (Get_Kind (Target)), - "no field Association_Choices_Chain"); - return Get_Field4 (Target); - end Get_Association_Choices_Chain; - - procedure Set_Association_Choices_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Association_Choices_Chain (Get_Kind (Target)), - "no field Association_Choices_Chain"); - Set_Field4 (Target, Chain); - end Set_Association_Choices_Chain; - - function Get_Case_Statement_Alternative_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Case_Statement_Alternative_Chain (Get_Kind (Target)), - "no field Case_Statement_Alternative_Chain"); - return Get_Field1 (Target); - end Get_Case_Statement_Alternative_Chain; - - procedure Set_Case_Statement_Alternative_Chain (Target : Iir; Chain : Iir) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Case_Statement_Alternative_Chain (Get_Kind (Target)), - "no field Case_Statement_Alternative_Chain"); - Set_Field1 (Target, Chain); - end Set_Case_Statement_Alternative_Chain; - - function Get_Choice_Staticness (Target : Iir) return Iir_Staticness is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Choice_Staticness (Get_Kind (Target)), - "no field Choice_Staticness"); - return Iir_Staticness'Val (Get_State1 (Target)); - end Get_Choice_Staticness; - - procedure Set_Choice_Staticness (Target : Iir; Staticness : Iir_Staticness) - is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Choice_Staticness (Get_Kind (Target)), - "no field Choice_Staticness"); - Set_State1 (Target, Iir_Staticness'Pos (Staticness)); - end Set_Choice_Staticness; - - function Get_Procedure_Call (Stmt : Iir) return Iir is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Procedure_Call (Get_Kind (Stmt)), - "no field Procedure_Call"); - return Get_Field1 (Stmt); - end Get_Procedure_Call; - - procedure Set_Procedure_Call (Stmt : Iir; Call : Iir) is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Procedure_Call (Get_Kind (Stmt)), - "no field Procedure_Call"); - Set_Field1 (Stmt, Call); - end Set_Procedure_Call; - - function Get_Implementation (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Implementation (Get_Kind (Target)), - "no field Implementation"); - return Get_Field3 (Target); - end Get_Implementation; - - procedure Set_Implementation (Target : Iir; Decl : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Implementation (Get_Kind (Target)), - "no field Implementation"); - Set_Field3 (Target, Decl); - end Set_Implementation; - - function Get_Parameter_Association_Chain (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter_Association_Chain (Get_Kind (Target)), - "no field Parameter_Association_Chain"); - return Get_Field2 (Target); - end Get_Parameter_Association_Chain; - - procedure Set_Parameter_Association_Chain (Target : Iir; Chain : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Parameter_Association_Chain (Get_Kind (Target)), - "no field Parameter_Association_Chain"); - Set_Field2 (Target, Chain); - end Set_Parameter_Association_Chain; - - function Get_Method_Object (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Method_Object (Get_Kind (Target)), - "no field Method_Object"); - return Get_Field4 (Target); - end Get_Method_Object; - - procedure Set_Method_Object (Target : Iir; Object : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Method_Object (Get_Kind (Target)), - "no field Method_Object"); - Set_Field4 (Target, Object); - end Set_Method_Object; - - function Get_Subtype_Type_Mark (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Type_Mark (Get_Kind (Target)), - "no field Subtype_Type_Mark"); - return Get_Field2 (Target); - end Get_Subtype_Type_Mark; - - procedure Set_Subtype_Type_Mark (Target : Iir; Mark : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Subtype_Type_Mark (Get_Kind (Target)), - "no field Subtype_Type_Mark"); - Set_Field2 (Target, Mark); - end Set_Subtype_Type_Mark; - - function Get_Type_Conversion_Subtype (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Conversion_Subtype (Get_Kind (Target)), - "no field Type_Conversion_Subtype"); - return Get_Field3 (Target); - end Get_Type_Conversion_Subtype; - - procedure Set_Type_Conversion_Subtype (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Conversion_Subtype (Get_Kind (Target)), - "no field Type_Conversion_Subtype"); - Set_Field3 (Target, Atype); - end Set_Type_Conversion_Subtype; - - function Get_Type_Mark (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Mark (Get_Kind (Target)), - "no field Type_Mark"); - return Get_Field4 (Target); - end Get_Type_Mark; - - procedure Set_Type_Mark (Target : Iir; Mark : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Mark (Get_Kind (Target)), - "no field Type_Mark"); - Set_Field4 (Target, Mark); - end Set_Type_Mark; - - function Get_File_Type_Mark (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Type_Mark (Get_Kind (Target)), - "no field File_Type_Mark"); - return Get_Field2 (Target); - end Get_File_Type_Mark; - - procedure Set_File_Type_Mark (Target : Iir; Mark : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_File_Type_Mark (Get_Kind (Target)), - "no field File_Type_Mark"); - Set_Field2 (Target, Mark); - end Set_File_Type_Mark; - - function Get_Return_Type_Mark (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Return_Type_Mark (Get_Kind (Target)), - "no field Return_Type_Mark"); - return Get_Field8 (Target); - end Get_Return_Type_Mark; - - procedure Set_Return_Type_Mark (Target : Iir; Mark : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Return_Type_Mark (Get_Kind (Target)), - "no field Return_Type_Mark"); - Set_Field8 (Target, Mark); - end Set_Return_Type_Mark; - - function Get_Has_Disconnect_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Has_Disconnect_Flag (Get_Kind (Target)), - "no field Has_Disconnect_Flag"); - return Get_Flag1 (Target); - end Get_Has_Disconnect_Flag; - - procedure Set_Has_Disconnect_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Has_Disconnect_Flag (Get_Kind (Target)), - "no field Has_Disconnect_Flag"); - Set_Flag1 (Target, Val); - end Set_Has_Disconnect_Flag; - - function Get_Has_Active_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Has_Active_Flag (Get_Kind (Target)), - "no field Has_Active_Flag"); - return Get_Flag2 (Target); - end Get_Has_Active_Flag; - - procedure Set_Has_Active_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Has_Active_Flag (Get_Kind (Target)), - "no field Has_Active_Flag"); - Set_Flag2 (Target, Val); - end Set_Has_Active_Flag; - - function Get_Is_Within_Flag (Target : Iir) return Boolean is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Is_Within_Flag (Get_Kind (Target)), - "no field Is_Within_Flag"); - return Get_Flag5 (Target); - end Get_Is_Within_Flag; - - procedure Set_Is_Within_Flag (Target : Iir; Val : Boolean) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Is_Within_Flag (Get_Kind (Target)), - "no field Is_Within_Flag"); - Set_Flag5 (Target, Val); - end Set_Is_Within_Flag; - - function Get_Type_Marks_List (Target : Iir) return Iir_Flist is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Marks_List (Get_Kind (Target)), - "no field Type_Marks_List"); - return Iir_To_Iir_Flist (Get_Field2 (Target)); - end Get_Type_Marks_List; - - procedure Set_Type_Marks_List (Target : Iir; List : Iir_Flist) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Type_Marks_List (Get_Kind (Target)), - "no field Type_Marks_List"); - Set_Field2 (Target, Iir_Flist_To_Iir (List)); - end Set_Type_Marks_List; - - function Get_Implicit_Alias_Flag (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Implicit_Alias_Flag (Get_Kind (Decl)), - "no field Implicit_Alias_Flag"); - return Get_Flag1 (Decl); - end Get_Implicit_Alias_Flag; - - procedure Set_Implicit_Alias_Flag (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Implicit_Alias_Flag (Get_Kind (Decl)), - "no field Implicit_Alias_Flag"); - Set_Flag1 (Decl, Flag); - end Set_Implicit_Alias_Flag; - - function Get_Alias_Signature (Alias : Iir) return Iir is - begin - pragma Assert (Alias /= Null_Iir); - pragma Assert (Has_Alias_Signature (Get_Kind (Alias)), - "no field Alias_Signature"); - return Get_Field5 (Alias); - end Get_Alias_Signature; - - procedure Set_Alias_Signature (Alias : Iir; Signature : Iir) is - begin - pragma Assert (Alias /= Null_Iir); - pragma Assert (Has_Alias_Signature (Get_Kind (Alias)), - "no field Alias_Signature"); - Set_Field5 (Alias, Signature); - end Set_Alias_Signature; - - function Get_Attribute_Signature (Attr : Iir) return Iir is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Attribute_Signature (Get_Kind (Attr)), - "no field Attribute_Signature"); - return Get_Field2 (Attr); - end Get_Attribute_Signature; - - procedure Set_Attribute_Signature (Attr : Iir; Signature : Iir) is - begin - pragma Assert (Attr /= Null_Iir); - pragma Assert (Has_Attribute_Signature (Get_Kind (Attr)), - "no field Attribute_Signature"); - Set_Field2 (Attr, Signature); - end Set_Attribute_Signature; - - function Get_Overload_List (Target : Iir) return Iir_List is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Overload_List (Get_Kind (Target)), - "no field Overload_List"); - return Iir_To_Iir_List (Get_Field1 (Target)); - end Get_Overload_List; - - procedure Set_Overload_List (Target : Iir; List : Iir_List) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Overload_List (Get_Kind (Target)), - "no field Overload_List"); - Set_Field1 (Target, Iir_List_To_Iir (List)); - end Set_Overload_List; - - function Get_Simple_Name_Identifier (Target : Iir) return Name_Id is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Name_Identifier (Get_Kind (Target)), - "no field Simple_Name_Identifier"); - return Iir_To_Name_Id (Get_Field3 (Target)); - end Get_Simple_Name_Identifier; - - procedure Set_Simple_Name_Identifier (Target : Iir; Ident : Name_Id) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Name_Identifier (Get_Kind (Target)), - "no field Simple_Name_Identifier"); - Set_Field3 (Target, Name_Id_To_Iir (Ident)); - end Set_Simple_Name_Identifier; - - function Get_Simple_Name_Subtype (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Name_Subtype (Get_Kind (Target)), - "no field Simple_Name_Subtype"); - return Get_Field4 (Target); - end Get_Simple_Name_Subtype; - - procedure Set_Simple_Name_Subtype (Target : Iir; Atype : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Simple_Name_Subtype (Get_Kind (Target)), - "no field Simple_Name_Subtype"); - Set_Field4 (Target, Atype); - end Set_Simple_Name_Subtype; - - function Get_Protected_Type_Body (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Protected_Type_Body (Get_Kind (Target)), - "no field Protected_Type_Body"); - return Get_Field2 (Target); - end Get_Protected_Type_Body; - - procedure Set_Protected_Type_Body (Target : Iir; Bod : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Protected_Type_Body (Get_Kind (Target)), - "no field Protected_Type_Body"); - Set_Field2 (Target, Bod); - end Set_Protected_Type_Body; - - function Get_Protected_Type_Declaration (Target : Iir) return Iir is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Protected_Type_Declaration (Get_Kind (Target)), - "no field Protected_Type_Declaration"); - return Get_Field4 (Target); - end Get_Protected_Type_Declaration; - - procedure Set_Protected_Type_Declaration (Target : Iir; Decl : Iir) is - begin - pragma Assert (Target /= Null_Iir); - pragma Assert (Has_Protected_Type_Declaration (Get_Kind (Target)), - "no field Protected_Type_Declaration"); - Set_Field4 (Target, Decl); - end Set_Protected_Type_Declaration; - - function Get_Use_Flag (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Use_Flag (Get_Kind (Decl)), - "no field Use_Flag"); - return Get_Flag6 (Decl); - end Get_Use_Flag; - - procedure Set_Use_Flag (Decl : Iir; Val : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Use_Flag (Get_Kind (Decl)), - "no field Use_Flag"); - Set_Flag6 (Decl, Val); - end Set_Use_Flag; - - function Get_End_Has_Reserved_Id (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Reserved_Id (Get_Kind (Decl)), - "no field End_Has_Reserved_Id"); - return Get_Flag8 (Decl); - end Get_End_Has_Reserved_Id; - - procedure Set_End_Has_Reserved_Id (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Reserved_Id (Get_Kind (Decl)), - "no field End_Has_Reserved_Id"); - Set_Flag8 (Decl, Flag); - end Set_End_Has_Reserved_Id; - - function Get_End_Has_Identifier (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Identifier (Get_Kind (Decl)), - "no field End_Has_Identifier"); - return Get_Flag9 (Decl); - end Get_End_Has_Identifier; - - procedure Set_End_Has_Identifier (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Identifier (Get_Kind (Decl)), - "no field End_Has_Identifier"); - Set_Flag9 (Decl, Flag); - end Set_End_Has_Identifier; - - function Get_End_Has_Postponed (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Postponed (Get_Kind (Decl)), - "no field End_Has_Postponed"); - return Get_Flag10 (Decl); - end Get_End_Has_Postponed; - - procedure Set_End_Has_Postponed (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_End_Has_Postponed (Get_Kind (Decl)), - "no field End_Has_Postponed"); - Set_Flag10 (Decl, Flag); - end Set_End_Has_Postponed; - - function Get_Has_Label (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Label (Get_Kind (Decl)), - "no field Has_Label"); - return Get_Flag6 (Decl); - end Get_Has_Label; - - procedure Set_Has_Label (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Label (Get_Kind (Decl)), - "no field Has_Label"); - Set_Flag6 (Decl, Flag); - end Set_Has_Label; - - function Get_Has_Begin (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Begin (Get_Kind (Decl)), - "no field Has_Begin"); - return Get_Flag10 (Decl); - end Get_Has_Begin; - - procedure Set_Has_Begin (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Begin (Get_Kind (Decl)), - "no field Has_Begin"); - Set_Flag10 (Decl, Flag); - end Set_Has_Begin; - - function Get_Has_End (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_End (Get_Kind (Decl)), - "no field Has_End"); - return Get_Flag11 (Decl); - end Get_Has_End; - - procedure Set_Has_End (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_End (Get_Kind (Decl)), - "no field Has_End"); - Set_Flag11 (Decl, Flag); - end Set_Has_End; - - function Get_Has_Is (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Is (Get_Kind (Decl)), - "no field Has_Is"); - return Get_Flag7 (Decl); - end Get_Has_Is; - - procedure Set_Has_Is (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Is (Get_Kind (Decl)), - "no field Has_Is"); - Set_Flag7 (Decl, Flag); - end Set_Has_Is; - - function Get_Has_Pure (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Pure (Get_Kind (Decl)), - "no field Has_Pure"); - return Get_Flag8 (Decl); - end Get_Has_Pure; - - procedure Set_Has_Pure (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Pure (Get_Kind (Decl)), - "no field Has_Pure"); - Set_Flag8 (Decl, Flag); - end Set_Has_Pure; - - function Get_Has_Body (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Body (Get_Kind (Decl)), - "no field Has_Body"); - return Get_Flag9 (Decl); - end Get_Has_Body; - - procedure Set_Has_Body (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Body (Get_Kind (Decl)), - "no field Has_Body"); - Set_Flag9 (Decl, Flag); - end Set_Has_Body; - - function Get_Has_Parameter (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Parameter (Get_Kind (Decl)), - "no field Has_Parameter"); - return Get_Flag10 (Decl); - end Get_Has_Parameter; - - procedure Set_Has_Parameter (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Parameter (Get_Kind (Decl)), - "no field Has_Parameter"); - Set_Flag10 (Decl, Flag); - end Set_Has_Parameter; - - function Get_Has_Component (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Component (Get_Kind (Decl)), - "no field Has_Component"); - return Get_Flag5 (Decl); - end Get_Has_Component; - - procedure Set_Has_Component (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Component (Get_Kind (Decl)), - "no field Has_Component"); - Set_Flag5 (Decl, Flag); - end Set_Has_Component; - - function Get_Has_Identifier_List (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Identifier_List (Get_Kind (Decl)), - "no field Has_Identifier_List"); - return Get_Flag3 (Decl); - end Get_Has_Identifier_List; - - procedure Set_Has_Identifier_List (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Identifier_List (Get_Kind (Decl)), - "no field Has_Identifier_List"); - Set_Flag3 (Decl, Flag); - end Set_Has_Identifier_List; - - function Get_Has_Mode (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Mode (Get_Kind (Decl)), - "no field Has_Mode"); - return Get_Flag10 (Decl); - end Get_Has_Mode; - - procedure Set_Has_Mode (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Mode (Get_Kind (Decl)), - "no field Has_Mode"); - Set_Flag10 (Decl, Flag); - end Set_Has_Mode; - - function Get_Has_Class (Decl : Iir) return Boolean is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Class (Get_Kind (Decl)), - "no field Has_Class"); - return Get_Flag11 (Decl); - end Get_Has_Class; - - procedure Set_Has_Class (Decl : Iir; Flag : Boolean) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Has_Class (Get_Kind (Decl)), - "no field Has_Class"); - Set_Flag11 (Decl, Flag); - end Set_Has_Class; - - function Get_Suspend_Flag (Stmt : Iir) return Boolean is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Suspend_Flag (Get_Kind (Stmt)), - "no field Suspend_Flag"); - return Get_Flag11 (Stmt); - end Get_Suspend_Flag; - - procedure Set_Suspend_Flag (Stmt : Iir; Flag : Boolean) is - begin - pragma Assert (Stmt /= Null_Iir); - pragma Assert (Has_Suspend_Flag (Get_Kind (Stmt)), - "no field Suspend_Flag"); - Set_Flag11 (Stmt, Flag); - end Set_Suspend_Flag; - - function Get_Is_Ref (N : Iir) return Boolean is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Is_Ref (Get_Kind (N)), - "no field Is_Ref"); - return Get_Flag12 (N); - end Get_Is_Ref; - - procedure Set_Is_Ref (N : Iir; Ref : Boolean) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Is_Ref (Get_Kind (N)), - "no field Is_Ref"); - Set_Flag12 (N, Ref); - end Set_Is_Ref; - - function Get_Is_Forward_Ref (N : Iir) return Boolean is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Is_Forward_Ref (Get_Kind (N)), - "no field Is_Forward_Ref"); - return Get_Flag1 (N); - end Get_Is_Forward_Ref; - - procedure Set_Is_Forward_Ref (N : Iir; Ref : Boolean) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Is_Forward_Ref (Get_Kind (N)), - "no field Is_Forward_Ref"); - Set_Flag1 (N, Ref); - end Set_Is_Forward_Ref; - - function Get_Psl_Property (Decl : Iir) return PSL_Node is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Property (Get_Kind (Decl)), - "no field Psl_Property"); - return Iir_To_PSL_Node (Get_Field1 (Decl)); - end Get_Psl_Property; - - procedure Set_Psl_Property (Decl : Iir; Prop : PSL_Node) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Property (Get_Kind (Decl)), - "no field Psl_Property"); - Set_Field1 (Decl, PSL_Node_To_Iir (Prop)); - end Set_Psl_Property; - - function Get_Psl_Sequence (Decl : Iir) return PSL_Node is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Sequence (Get_Kind (Decl)), - "no field Psl_Sequence"); - return Iir_To_PSL_Node (Get_Field1 (Decl)); - end Get_Psl_Sequence; - - procedure Set_Psl_Sequence (Decl : Iir; Prop : PSL_Node) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Sequence (Get_Kind (Decl)), - "no field Psl_Sequence"); - Set_Field1 (Decl, PSL_Node_To_Iir (Prop)); - end Set_Psl_Sequence; - - function Get_Psl_Declaration (Decl : Iir) return PSL_Node is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Declaration (Get_Kind (Decl)), - "no field Psl_Declaration"); - return Iir_To_PSL_Node (Get_Field6 (Decl)); - end Get_Psl_Declaration; - - procedure Set_Psl_Declaration (Decl : Iir; Prop : PSL_Node) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Declaration (Get_Kind (Decl)), - "no field Psl_Declaration"); - Set_Field6 (Decl, PSL_Node_To_Iir (Prop)); - end Set_Psl_Declaration; - - function Get_Psl_Expression (Decl : Iir) return PSL_Node is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Expression (Get_Kind (Decl)), - "no field Psl_Expression"); - return Iir_To_PSL_Node (Get_Field3 (Decl)); - end Get_Psl_Expression; - - procedure Set_Psl_Expression (Decl : Iir; Prop : PSL_Node) is - begin - pragma Assert (Decl /= Null_Iir); - pragma Assert (Has_Psl_Expression (Get_Kind (Decl)), - "no field Psl_Expression"); - Set_Field3 (Decl, PSL_Node_To_Iir (Prop)); - end Set_Psl_Expression; - - function Get_Psl_Boolean (N : Iir) return PSL_Node is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Psl_Boolean (Get_Kind (N)), - "no field Psl_Boolean"); - return Iir_To_PSL_Node (Get_Field1 (N)); - end Get_Psl_Boolean; - - procedure Set_Psl_Boolean (N : Iir; Bool : PSL_Node) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_Psl_Boolean (Get_Kind (N)), - "no field Psl_Boolean"); - Set_Field1 (N, PSL_Node_To_Iir (Bool)); - end Set_Psl_Boolean; - - function Get_PSL_Clock (N : Iir) return PSL_Node is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Clock (Get_Kind (N)), - "no field PSL_Clock"); - return Iir_To_PSL_Node (Get_Field7 (N)); - end Get_PSL_Clock; - - procedure Set_PSL_Clock (N : Iir; Clock : PSL_Node) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Clock (Get_Kind (N)), - "no field PSL_Clock"); - Set_Field7 (N, PSL_Node_To_Iir (Clock)); - end Set_PSL_Clock; - - function Get_PSL_NFA (N : Iir) return PSL_NFA is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_NFA (Get_Kind (N)), - "no field PSL_NFA"); - return Iir_To_PSL_NFA (Get_Field8 (N)); - end Get_PSL_NFA; - - procedure Set_PSL_NFA (N : Iir; Fa : PSL_NFA) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_NFA (Get_Kind (N)), - "no field PSL_NFA"); - Set_Field8 (N, PSL_NFA_To_Iir (Fa)); - end Set_PSL_NFA; - - function Get_PSL_Nbr_States (N : Iir) return Int32 is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Nbr_States (Get_Kind (N)), - "no field PSL_Nbr_States"); - return Iir_To_Int32 (Get_Field9 (N)); - end Get_PSL_Nbr_States; - - procedure Set_PSL_Nbr_States (N : Iir; Nbr : Int32) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Nbr_States (Get_Kind (N)), - "no field PSL_Nbr_States"); - Set_Field9 (N, Int32_To_Iir (Nbr)); - end Set_PSL_Nbr_States; - - function Get_PSL_Clock_Sensitivity (N : Iir) return Iir_List is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Clock_Sensitivity (Get_Kind (N)), - "no field PSL_Clock_Sensitivity"); - return Iir_To_Iir_List (Get_Field10 (N)); - end Get_PSL_Clock_Sensitivity; - - procedure Set_PSL_Clock_Sensitivity (N : Iir; List : Iir_List) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_Clock_Sensitivity (Get_Kind (N)), - "no field PSL_Clock_Sensitivity"); - Set_Field10 (N, Iir_List_To_Iir (List)); - end Set_PSL_Clock_Sensitivity; - - function Get_PSL_EOS_Flag (N : Iir) return Boolean is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_EOS_Flag (Get_Kind (N)), - "no field PSL_EOS_Flag"); - return Get_Flag1 (N); - end Get_PSL_EOS_Flag; - - procedure Set_PSL_EOS_Flag (N : Iir; Flag : Boolean) is - begin - pragma Assert (N /= Null_Iir); - pragma Assert (Has_PSL_EOS_Flag (Get_Kind (N)), - "no field PSL_EOS_Flag"); - Set_Flag1 (N, Flag); - end Set_PSL_EOS_Flag; - -end Iirs; diff --git a/src/vhdl/iirs.adb.in b/src/vhdl/iirs.adb.in deleted file mode 100644 index dc0d9547b..000000000 --- a/src/vhdl/iirs.adb.in +++ /dev/null @@ -1,948 +0,0 @@ --- Tree node definitions. --- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Conversion; -with Tables; -with Logging; use Logging; -with Lists; use Lists; -with Nodes_Meta; use Nodes_Meta; -with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv; - -package body Iirs is - -- A simple type that needs only 2 bits. - type Bit2_Type is range 0 .. 2 ** 2 - 1; - - type Kind_Type is range 0 .. 2 ** 9 - 1; - - -- Format of a node. - type Format_Type is - ( - Format_Short, - Format_Medium - ); - - -- Common fields are: - -- Flag1 : Boolean - -- Flag2 : Boolean - -- Flag3 : Boolean - -- Flag4 : Boolean - -- Flag5 : Boolean - -- Flag6 : Boolean - -- Flag7 : Boolean - -- Flag8 : Boolean - -- Flag9 : Boolean - -- Flag10 : Boolean - -- Flag11 : Boolean - -- Flag12 : Boolean - -- Flag13 : Boolean - -- Flag14 : Boolean - -- Flag15 : Boolean - -- Nkind : Kind_Type - -- State1 : Bit2_Type - -- State2 : Bit2_Type - -- Location : Location_Type - -- Field0 : Iir - -- Field1 : Iir - -- Field2 : Iir - -- Field3 : Iir - -- Field4 : Iir - -- Field5 : Iir - - -- Fields of Format_Short: - - -- Fields of Format_Medium: - -- State3 : Bit2_Type - -- State4 : Bit2_Type - -- Field6 : Iir (location) - -- Field7 : Iir (field0) - -- Field8 : Iir (field1) - -- Field9 : Iir (field2) - -- Field10 : Iir (field3) - -- Field11 : Iir (field4) - -- Field12 : Iir (field5) - - function Create_Node (Format : Format_Type) return Node_Type; - procedure Free_Node (N : Node_Type); - - function Get_Nkind (N : Node_Type) return Kind_Type; - pragma Inline (Get_Nkind); - procedure Set_Nkind (N : Node_Type; Kind : Kind_Type); - pragma Inline (Set_Nkind); - - function Get_Field0 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field0); - procedure Set_Field0 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field0); - - function Get_Field1 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field1); - procedure Set_Field1 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field1); - - function Get_Field2 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field2); - procedure Set_Field2 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field2); - - function Get_Field3 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field3); - procedure Set_Field3 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field3); - - function Get_Field4 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field4); - procedure Set_Field4 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field4); - - - function Get_Field5 (N : Node_Type) return Node_Type; - pragma Inline (Get_Field5); - procedure Set_Field5 (N : Node_Type; V : Node_Type); - pragma Inline (Set_Field5); - - function Get_Field6 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field6); - procedure Set_Field6 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field6); - - function Get_Field7 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field7); - procedure Set_Field7 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field7); - - function Get_Field8 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field8); - procedure Set_Field8 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field8); - - function Get_Field9 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field9); - procedure Set_Field9 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field9); - - function Get_Field10 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field10); - procedure Set_Field10 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field10); - - function Get_Field11 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field11); - procedure Set_Field11 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field11); - - function Get_Field12 (N: Node_Type) return Node_Type; - pragma Inline (Get_Field12); - procedure Set_Field12 (N: Node_Type; Val: Node_Type); - pragma Inline (Set_Field12); - - - function Get_Flag1 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag1); - procedure Set_Flag1 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag1); - - function Get_Flag2 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag2); - procedure Set_Flag2 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag2); - - function Get_Flag3 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag3); - procedure Set_Flag3 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag3); - - function Get_Flag4 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag4); - procedure Set_Flag4 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag4); - - function Get_Flag5 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag5); - procedure Set_Flag5 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag5); - - function Get_Flag6 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag6); - procedure Set_Flag6 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag6); - - function Get_Flag7 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag7); - procedure Set_Flag7 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag7); - - function Get_Flag8 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag8); - procedure Set_Flag8 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag8); - - function Get_Flag9 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag9); - procedure Set_Flag9 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag9); - - function Get_Flag10 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag10); - procedure Set_Flag10 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag10); - - function Get_Flag11 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag11); - procedure Set_Flag11 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag11); - - function Get_Flag12 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag12); - procedure Set_Flag12 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag12); - - function Get_Flag13 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag13); - procedure Set_Flag13 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag13); - - function Get_Flag14 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag14); - procedure Set_Flag14 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag14); - - function Get_Flag15 (N : Node_Type) return Boolean; - pragma Inline (Get_Flag15); - procedure Set_Flag15 (N : Node_Type; V : Boolean); - pragma Inline (Set_Flag15); - - - function Get_State1 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State1); - procedure Set_State1 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State1); - - function Get_State2 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State2); - procedure Set_State2 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State2); - - function Get_State3 (N : Node_Type) return Bit2_Type; - pragma Inline (Get_State3); - procedure Set_State3 (N : Node_Type; V : Bit2_Type); - pragma Inline (Set_State3); - - type Node_Record is record - -- First byte: - Format : Format_Type; - Flag1 : Boolean; - Flag2 : Boolean; - Flag3 : Boolean; - Flag4 : Boolean; - Flag5 : Boolean; - Flag6 : Boolean; - Flag7 : Boolean; - - -- Second byte: - Flag8 : Boolean; - Flag9 : Boolean; - Flag10 : Boolean; - Flag11 : Boolean; - Flag12 : Boolean; - Flag13 : Boolean; - Flag14 : Boolean; - Flag15 : Boolean; - - -- Third byte: - Flag16 : Boolean; - Flag17 : Boolean; - Flag18 : Boolean; - - -- 2*2 = 4 bits - State1 : Bit2_Type; - State2 : Bit2_Type; - - -- 9 bits - Kind : Kind_Type; - - -- Location. - Location: Location_Type; - - Field0 : Node_Type; - Field1 : Node_Type; - Field2 : Node_Type; - Field3 : Node_Type; - Field4 : Node_Type; - Field5 : Node_Type; - end record; - pragma Pack (Node_Record); - for Node_Record'Size use 8*32; - for Node_Record'Alignment use 4; - pragma Suppress_Initialization (Node_Record); - - Init_Node : constant Node_Record := Node_Record' - (Format => Format_Short, - Kind => 0, - State1 | State2 => 0, - Location => Location_Nil, - Field0 | Field1 | Field2 | Field3 | Field4 | Field5 => Null_Node, - others => False); - - -- Suppress the access check of the table base. This is really safe to - -- suppress this check because the table base cannot be null. - pragma Suppress (Access_Check); - - -- Suppress the index check on the table. - -- Could be done during non-debug, since this may catch errors (reading - -- Null_Node or Error_Node). - --pragma Suppress (Index_Check); - - package Nodet is new Tables - (Table_Component_Type => Node_Record, - Table_Index_Type => Node_Type, - Table_Low_Bound => 2, - Table_Initial => 1024); - - function Get_Last_Node return Iir is - begin - return Nodet.Last; - end Get_Last_Node; - - Free_Chain : Node_Type := Null_Node; - - function Create_Node (Format : Format_Type) return Node_Type - is - Res : Node_Type; - begin - case Format is - when Format_Medium => - -- Allocate a first node. - Nodet.Increment_Last; - Res := Nodet.Last; - -- Check alignment. - if Res mod 2 = 1 then - Set_Field1 (Res, Free_Chain); - Free_Chain := Res; - Nodet.Increment_Last; - Res := Nodet.Last; - end if; - -- Allocate the second node. - Nodet.Increment_Last; - Nodet.Table (Res) := Init_Node; - Nodet.Table (Res).Format := Format_Medium; - Nodet.Table (Res + 1) := Init_Node; - when Format_Short => - -- Check from free pool - if Free_Chain = Null_Node then - Nodet.Increment_Last; - Res := Nodet.Last; - else - Res := Free_Chain; - Free_Chain := Get_Field1 (Res); - end if; - Nodet.Table (Res) := Init_Node; - end case; - return Res; - end Create_Node; - - procedure Free_Node (N : Node_Type) - is - begin - if N /= Null_Node then - Set_Nkind (N, 0); - Set_Field1 (N, Free_Chain); - Free_Chain := N; - if Nodet.Table (N).Format = Format_Medium then - Set_Field1 (N + 1, Free_Chain); - Free_Chain := N + 1; - end if; - end if; - end Free_Node; - - procedure Free_Iir (Target : Iir) renames Free_Node; - - function Next_Node (N : Node_Type) return Node_Type is - begin - case Nodet.Table (N).Format is - when Format_Medium => - return N + 2; - when Format_Short => - return N + 1; - end case; - end Next_Node; - - function Get_Nkind (N : Node_Type) return Kind_Type is - begin - return Nodet.Table (N).Kind; - end Get_Nkind; - - procedure Set_Nkind (N : Node_Type; Kind : Kind_Type) is - begin - Nodet.Table (N).Kind := Kind; - end Set_Nkind; - - - procedure Set_Location (N : Iir; Location: Location_Type) is - begin - Nodet.Table (N).Location := Location; - end Set_Location; - - function Get_Location (N: Iir) return Location_Type is - begin - return Nodet.Table (N).Location; - end Get_Location; - - - procedure Set_Field0 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field0 := V; - end Set_Field0; - - function Get_Field0 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field0; - end Get_Field0; - - - function Get_Field1 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field1; - end Get_Field1; - - procedure Set_Field1 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field1 := V; - end Set_Field1; - - function Get_Field2 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field2; - end Get_Field2; - - procedure Set_Field2 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field2 := V; - end Set_Field2; - - function Get_Field3 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field3; - end Get_Field3; - - procedure Set_Field3 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field3 := V; - end Set_Field3; - - function Get_Field4 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field4; - end Get_Field4; - - procedure Set_Field4 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field4 := V; - end Set_Field4; - - function Get_Field5 (N : Node_Type) return Node_Type is - begin - return Nodet.Table (N).Field5; - end Get_Field5; - - procedure Set_Field5 (N : Node_Type; V : Node_Type) is - begin - Nodet.Table (N).Field5 := V; - end Set_Field5; - - function Get_Field6 (N: Node_Type) return Node_Type is - begin - return Node_Type (Nodet.Table (N + 1).Location); - end Get_Field6; - - procedure Set_Field6 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Location := Location_Type (Val); - end Set_Field6; - - function Get_Field7 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field0; - end Get_Field7; - - procedure Set_Field7 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field0 := Val; - end Set_Field7; - - function Get_Field8 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field1; - end Get_Field8; - - procedure Set_Field8 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field1 := Val; - end Set_Field8; - - function Get_Field9 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field2; - end Get_Field9; - - procedure Set_Field9 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field2 := Val; - end Set_Field9; - - function Get_Field10 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field3; - end Get_Field10; - - procedure Set_Field10 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field3 := Val; - end Set_Field10; - - function Get_Field11 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field4; - end Get_Field11; - - procedure Set_Field11 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field4 := Val; - end Set_Field11; - - function Get_Field12 (N: Node_Type) return Node_Type is - begin - return Nodet.Table (N + 1).Field5; - end Get_Field12; - - procedure Set_Field12 (N: Node_Type; Val: Node_Type) is - begin - Nodet.Table (N + 1).Field5 := Val; - end Set_Field12; - - - function Get_Flag1 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag1; - end Get_Flag1; - - procedure Set_Flag1 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag1 := V; - end Set_Flag1; - - function Get_Flag2 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag2; - end Get_Flag2; - - procedure Set_Flag2 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag2 := V; - end Set_Flag2; - - function Get_Flag3 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag3; - end Get_Flag3; - - procedure Set_Flag3 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag3 := V; - end Set_Flag3; - - function Get_Flag4 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag4; - end Get_Flag4; - - procedure Set_Flag4 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag4 := V; - end Set_Flag4; - - function Get_Flag5 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag5; - end Get_Flag5; - - procedure Set_Flag5 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag5 := V; - end Set_Flag5; - - function Get_Flag6 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag6; - end Get_Flag6; - - procedure Set_Flag6 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag6 := V; - end Set_Flag6; - - function Get_Flag7 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag7; - end Get_Flag7; - - procedure Set_Flag7 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag7 := V; - end Set_Flag7; - - function Get_Flag8 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag8; - end Get_Flag8; - - procedure Set_Flag8 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag8 := V; - end Set_Flag8; - - function Get_Flag9 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag9; - end Get_Flag9; - - procedure Set_Flag9 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag9 := V; - end Set_Flag9; - - function Get_Flag10 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag10; - end Get_Flag10; - - procedure Set_Flag10 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag10 := V; - end Set_Flag10; - - function Get_Flag11 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag11; - end Get_Flag11; - - procedure Set_Flag11 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag11 := V; - end Set_Flag11; - - function Get_Flag12 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag12; - end Get_Flag12; - - procedure Set_Flag12 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag12 := V; - end Set_Flag12; - - function Get_Flag13 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag13; - end Get_Flag13; - - procedure Set_Flag13 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag13 := V; - end Set_Flag13; - - function Get_Flag14 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag14; - end Get_Flag14; - - procedure Set_Flag14 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag14 := V; - end Set_Flag14; - - function Get_Flag15 (N : Node_Type) return Boolean is - begin - return Nodet.Table (N).Flag15; - end Get_Flag15; - - procedure Set_Flag15 (N : Node_Type; V : Boolean) is - begin - Nodet.Table (N).Flag15 := V; - end Set_Flag15; - - - function Get_State1 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N).State1; - end Get_State1; - - procedure Set_State1 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N).State1 := V; - end Set_State1; - - function Get_State2 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N).State2; - end Get_State2; - - procedure Set_State2 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N).State2 := V; - end Set_State2; - - function Get_State3 (N : Node_Type) return Bit2_Type is - begin - return Nodet.Table (N + 1).State1; - end Get_State3; - - procedure Set_State3 (N : Node_Type; V : Bit2_Type) is - begin - Nodet.Table (N + 1).State1 := V; - end Set_State3; - - procedure Initialize is - begin - Nodet.Free; - Nodet.Init; - end Initialize; - - function Is_Null (Node : Iir) return Boolean is - begin - return Node = Null_Iir; - end Is_Null; - - function Is_Null_List (Node : Iir_List) return Boolean is - begin - return Node = Null_Iir_List; - end Is_Null_List; - - function Is_Valid (Node : Iir) return Boolean is - begin - return Node /= Null_Iir; - end Is_Valid; - - --------------------------------------------------- - -- General subprograms that operate on every iir -- - --------------------------------------------------- - - function Get_Format (Kind : Iir_Kind) return Format_Type; - - function Create_Iir (Kind : Iir_Kind) return Iir - is - Res : Iir; - Format : Format_Type; - begin - Format := Get_Format (Kind); - Res := Create_Node (Format); - Set_Nkind (Res, Iir_Kind'Pos (Kind)); - return Res; - end Create_Iir; - - -- Statistics. - procedure Disp_Stats - is - type Num_Array is array (Iir_Kind) of Natural; - Num : Num_Array := (others => 0); - type Format_Array is array (Format_Type) of Natural; - Formats : Format_Array := (others => 0); - Kind : Iir_Kind; - I : Iir; - Last_I : Iir; - Format : Format_Type; - begin - I := Error_Node + 1; - Last_I := Get_Last_Node; - while I < Last_I loop - Kind := Get_Kind (I); - Num (Kind) := Num (Kind) + 1; - Format := Get_Format (Kind); - Formats (Format) := Formats (Format) + 1; - I := Next_Node (I); - end loop; - - Log_Line ("Stats per iir_kind:"); - for J in Iir_Kind loop - if Num (J) /= 0 then - Log_Line (' ' & Iir_Kind'Image (J) & ':' - & Natural'Image (Num (J))); - end if; - end loop; - Log_Line ("Stats per formats:"); - for J in Format_Type loop - Log_Line (' ' & Format_Type'Image (J) & ':' - & Natural'Image (Formats (J))); - end loop; - end Disp_Stats; - - function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean is - begin - return K = K1 or K = K2; - end Kind_In; - - function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) - return Boolean is - begin - case Func is - when Iir_Predefined_Bit_And - | Iir_Predefined_Bit_Or - | Iir_Predefined_Bit_Nand - | Iir_Predefined_Bit_Nor - | Iir_Predefined_Boolean_And - | Iir_Predefined_Boolean_Or - | Iir_Predefined_Boolean_Nand - | Iir_Predefined_Boolean_Nor => - return True; - when others => - return False; - end case; - end Iir_Predefined_Shortcut_P; - - function Create_Iir_Error return Iir - is - Res : Iir; - begin - Res := Create_Node (Format_Short); - Set_Nkind (Res, Iir_Kind'Pos (Iir_Kind_Error)); - Set_Base_Type (Res, Res); - return Res; - end Create_Iir_Error; - - procedure Location_Copy (Target : Iir; Src : Iir) is - begin - Set_Location (Target, Get_Location (Src)); - end Location_Copy; - - -- Get kind - function Get_Kind (N : Iir) return Iir_Kind - is - -- Speed up: avoid to check that nkind is in the bounds of Iir_Kind. - pragma Suppress (Range_Check); - begin - pragma Assert (N /= Null_Iir); - return Iir_Kind'Val (Get_Nkind (N)); - end Get_Kind; - - function Time_Stamp_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => Time_Stamp_Id, Target => Iir); - - function Iir_To_Time_Stamp_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => Time_Stamp_Id); - - function File_Checksum_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => File_Checksum_Id, Target => Iir); - - function Iir_To_File_Checksum_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => File_Checksum_Id); - - function Iir_To_Iir_List is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_List); - function Iir_List_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_List, Target => Iir); - - function Iir_To_Iir_Flist is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_Flist); - function Iir_Flist_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_Flist, Target => Iir); - - function Iir_To_Token_Type (N : Iir) return Token_Type is - begin - return Token_Type'Val (N); - end Iir_To_Token_Type; - - function Token_Type_To_Iir (T : Token_Type) return Iir is - begin - return Token_Type'Pos (T); - end Token_Type_To_Iir; - --- function Iir_To_Iir_Index32 (N : Iir) return Iir_Index32 is --- begin --- return Iir_Index32 (N); --- end Iir_To_Iir_Index32; - --- function Iir_Index32_To_Iir (V : Iir_Index32) return Iir is --- begin --- return Iir_Index32'Pos (V); --- end Iir_Index32_To_Iir; - - function Iir_To_Name_Id (N : Iir) return Name_Id is - begin - return Iir'Pos (N); - end Iir_To_Name_Id; - pragma Inline (Iir_To_Name_Id); - - function Name_Id_To_Iir (V : Name_Id) return Iir is - begin - return Name_Id'Pos (V); - end Name_Id_To_Iir; - - function Iir_To_Iir_Int32 is new Ada.Unchecked_Conversion - (Source => Iir, Target => Iir_Int32); - - function Iir_Int32_To_Iir is new Ada.Unchecked_Conversion - (Source => Iir_Int32, Target => Iir); - - function Iir_To_Source_Ptr (N : Iir) return Source_Ptr is - begin - return Source_Ptr (N); - end Iir_To_Source_Ptr; - - function Source_Ptr_To_Iir (P : Source_Ptr) return Iir is - begin - return Iir (P); - end Source_Ptr_To_Iir; - - function Iir_To_Source_File_Entry is new Ada.Unchecked_Conversion - (Source => Iir, Target => Source_File_Entry); - function Source_File_Entry_To_Iir is new Ada.Unchecked_Conversion - (Source => Source_File_Entry, Target => Iir); - - function Boolean_To_Iir_Delay_Mechanism is new Ada.Unchecked_Conversion - (Source => Boolean, Target => Iir_Delay_Mechanism); - function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion - (Source => Iir_Delay_Mechanism, Target => Boolean); - - function Boolean_To_Iir_Signal_Kind is new Ada.Unchecked_Conversion - (Source => Boolean, Target => Iir_Signal_Kind); - function Iir_Signal_Kind_To_Boolean is new Ada.Unchecked_Conversion - (Source => Iir_Signal_Kind, Target => Boolean); - - function Iir_To_String8_Id is new Ada.Unchecked_Conversion - (Source => Iir, Target => String8_Id); - function String8_Id_To_Iir is new Ada.Unchecked_Conversion - (Source => String8_Id, Target => Iir); - - function Iir_To_Int32 is new Ada.Unchecked_Conversion - (Source => Iir, Target => Int32); - function Int32_To_Iir is new Ada.Unchecked_Conversion - (Source => Int32, Target => Iir); - - function Iir_To_PSL_Node is new Ada.Unchecked_Conversion - (Source => Iir, Target => PSL_Node); - - function PSL_Node_To_Iir is new Ada.Unchecked_Conversion - (Source => PSL_Node, Target => Iir); - - function Iir_To_PSL_NFA is new Ada.Unchecked_Conversion - (Source => Iir, Target => PSL_NFA); - - function PSL_NFA_To_Iir is new Ada.Unchecked_Conversion - (Source => PSL_NFA, Target => Iir); - - -- Subprograms -end Iirs; diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads deleted file mode 100644 index df5391e79..000000000 --- a/src/vhdl/iirs.ads +++ /dev/null @@ -1,7549 +0,0 @@ --- Tree node definitions. --- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Deallocation; -with Types; use Types; -with Vhdl.Tokens; use Vhdl.Tokens; -with Vhdl.Nodes_Priv; -with Lists; -with Flists; - -package Iirs is - -- This package defines the semantic tree and functions to handle it. - -- The tree is roughly based on IIR (Internal Intermediate Representation), - -- [AIRE/CE Advanced Intermediate Representation with Extensibility, - -- Common Environment. http://www.vhdl.org/aire/index.html [DEAD LINK] ] - -- but oriented object features are not used, and often, functions - -- or fields have changed. - - -- Note: this tree is also used during syntaxic analysis, but with - -- a little bit different meanings for the fields. - -- The parser (parse package) build the tree. - -- The semantic pass (sem, sem_expr, sem_names, ...) transforms it into a - -- semantic tree. - - -- Documentation: - -- Only the semantic aspect is to be fully documented. - -- The syntaxic aspect is only used between parse and sem. - - -- Each node of the tree is a record of type iir, based on the private (so - -- hidden) type nodes.node_type. - -- - -- Each node in the tree should be referenced only once (as this is a - -- tree). There are some exceptions to this rule for space optimization - -- purpose: - -- - the interface list of implicit subprograms are shared among the - -- implicit subprograms. - -- - -- As the tree represents an AST it is in fact a graph: for there are links - -- from names to the declaration. However these links are marked - -- explicitely as Ref. A Ref doesn't own the node. - -- - -- The distinction between owner and reference is very important as it - -- allows to use this meta-model for processing: displaying the tree - -- (without creating infinite loops), copying the tree for instantiation... - -- - -- There is a little bit of overhead due to this choice: - -- - some fields looks duplicated: for example an object declaration has - -- both a type field and a subtype indication field, array subtypes - -- have both an index_subtype_list and an index_constraint_list. - -- - Maybe_Ref trick: the Is_Ref flag tells whether the Maybe_Ref are - -- owner or ref. - -- - Maybe_Forward_Ref: the Is_Forward_Ref tells whether the field is - -- ref or forward_ref - - -- The root of a semantic tree is a library_declaration. - -- All the library_declarations are kept in a private list, held by - -- package libraries. - -- Exemple of a tree: - -- library_declaration - -- +-- design_file - -- +-- design_unit - -- | +-- entity_declaration - -- +-- design_unit - -- +-- architecture_body - -- ... - - -- Since the tree can represent all the libraries and their contents, it - -- is not always loaded into memory. - -- When a library is loaded, only library_declaration, design_file, - -- design_unit and library_unit nodes are created. When a design_unit is - -- really loaded, the design_unit node is not replaced but modified (ie, - -- access to this node are still valid). - - -- To add a new kind of node: - -- the name should be of the form iir_kind_NAME - -- add iir_kind_NAME in the definition of type iir_kind_type - -- document the node below: grammar, methods. - -- for each methods, add the name if the case statement in the body - -- (this enables the methods) - -- add an entry in disp_tree (debugging) - -- handle this node in Errorout.Disp_Node - - -- Meta-grammar - -- This file is processed by a tool to automatically generate the body, so - -- it must follow a meta-grammar. - -- - -- The low level representation is described in nodes.ads. - -- - -- The literals for the nodes must be declared in this file like this: - -- type Iir_Kind is - -- ( - -- Iir_Kind_AAA, - -- ... - -- Iir_Kind_ZZZ - -- ); - -- The tool doesn't check for uniqness as this is done by the compiler. - -- - -- It is possible to declare ranges of kinds like this: - -- subtype Iir_Kinds_RANGE is Iir_Kind range - -- Iir_Kind_FIRST .. - -- --Iir_Kind_MID - -- Iir_Kind_LAST; - -- Literals Iir_Kind_MID are optionnal (FIXME: make them required ?), but - -- if present all the values between FIRST and LAST must be present. - -- - -- The methods appear after the comment: ' -- General methods.' - -- They have the following format: - -- -- Field: FIELD ATTR (CONV) - -- function Get_NAME (PNAME : PTYPE) return RTYPE; - -- procedure Set_NAME (PNAME : PTYPE; RNAME : RTYPE); - -- 'FIELD' indicate which field of the node is used to store the value. - -- ATTR is optional and if present must be one of: - -- Ref: the field is a reference to an existing node - -- Chain: the field contains a chain of nodes - -- Chain_Next: the field contains the next element of a chain (present - -- only on one field: Set/Get_Chain). - -- ' (CONV)' is present if the type of the value (indicated by RTYPE) is - -- different from the type of the field. CONV can be either 'uc' or 'pos'. - -- 'uc' indicates an unchecked conversion while 'pos' a pos/val conversion. - -- - -- Nodes content is described between ' -- Start of Iir_Kind.' and - -- ' -- End of Iir_Kind.' like this: - -- -- Iir_Kind_NODE1 (FORMAT1) - -- -- Iir_Kind_NODE2 (FORMAT2) - -- -- - -- -- Get/Set_NAME1 (FIELD1) - -- -- - -- -- Get/Set_NAME2 (FIELD2) - -- -- Get/Set_NAME3 (Alias FIELD2) - -- -- - -- -- Only for Iir_Kind_NODE1: - -- -- Get/Set_NAME4 (FIELD3) - -- Severals nodes can be described at once; at least one must be described. - -- Fields FIELD1, FIELD2, FIELD3 must be different, unless 'Alias ' is - -- present. The number of spaces is significant. The 'Only for ' lines - -- are optionnal and there may be severals of them. - - ------------------------------------------------- - -- General methods (can be used on all nodes): -- - ------------------------------------------------- - - -- Create a node of kind KIND. - -- function Create_Iir (Kind: Iir_Kind) return Iir; - -- - -- Deallocate a node. Deallocate fields that where allocated by - -- create_iir. - -- procedure Free_Iir (Target: in out Iir); - -- - -- Get the kind of the iir. - -- See below for the (public) list of kinds. - -- function Get_Kind (N : Iir) return Iir_Kind; - - -- Get the location of the node: ie the current position in the source - -- file when the node was created. This is a little bit fuzzy. - -- - -- procedure Set_Location (Target : Iir; Location: Location_Type); - -- function Get_Location (Target : Iir) return Location_Type; - -- - -- Copy a location from a node to another one. - -- procedure Location_Copy (Target: in out Iir; Src: in Iir); - - -- The next line marks the start of the node description. - -- Start of Iir_Kind. - - -------------------------------------------------- - -- A set of methods are associed with a kind. -- - -------------------------------------------------- - - -- Iir_Kind_Design_File (Medium) - -- LRM93 11 - -- design_file ::= design_unit { design_unit } - -- - -- The library containing this design file. - -- Get/Set_Library (Field0) - -- Get/Set_Parent (Alias Field0) - -- - -- Get/Set_File_Dependence_List (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Time when the whole file has been analyzed. This allows ordering - -- analysis and detecting obsolete units across libraries. - -- Get/Set_Analysis_Time_Stamp (Field3) - -- - -- Get/Set_File_Checksum (Field4) - -- - -- Get the chain of unit contained in the file. This is a simply linked - -- chain, but the tail is kept to speed-up appending operation. - -- Get/Set_First_Design_Unit (Field5) - -- - -- Get/Set_Last_Design_Unit (Field6) - -- - -- Get/Set_Design_File_Source (Field7) - -- - -- Identifier for the design file file name and dirname. - -- Get/Set_Design_File_Filename (Field12) - -- Get/Set_Design_File_Directory (Field11) - -- - -- Flag used during elaboration. Set when the file was already seen. - -- Get/Set_Elab_Flag (Flag3) - - -- Iir_Kind_Design_Unit (Medium) - -- LRM93 11 - -- design_unit ::= context_clause library_unit - -- - -- The design_file containing this design unit. - -- Get/Set_Design_File (Field0) - -- Get/Set_Parent (Alias Field0) - -- - -- Get the chain of context clause. - -- Get/Set_Context_Items (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- This is a symbolic date, only used as a order of analysis of design - -- units. - -- Get/Set_Date (Field4) - -- - -- Get/Set the library unit, which can be an entity, an architecture, - -- a package, a package body or a configuration. - -- Get/Set_Library_Unit (Field5) - -- - -- Collision chain for units. - -- Get/Set_Hash_Chain (Field7) - -- - -- Get the list of design units that must be analysed before this unit. - -- See LRM93 11.4 for the rules defining the order of analysis. - -- Get/Set_Dependence_List (Field8) - -- - -- FIXME: this field can be put in the library_unit, since it is only used - -- when the units have been analyzed. - -- Get/Set_Analysis_Checks_List (Field9) - -- - -- Set the line and the offset in the line, only for the library manager. - -- This is valid until the file is really loaded in memory. On loading, - -- location will contain all this informations. - -- Get/Set_Design_Unit_Source_Pos (Field10) - -- - -- Get/Set_Design_Unit_Source_Line (Field11) - -- - -- Get/Set_Design_Unit_Source_Col (Field12) - -- - -- Get/Set the date state, which indicates whether this design unit is in - -- memory or not. - -- Get/Set_Date_State (State1) - -- - -- Flag used during elaboration. Set when the file was already seen. - -- Get/Set_Elab_Flag (Flag3) - -- - -- Flags used during configuration - -- Get/Set_Configuration_Mark_Flag (Flag4) - -- Get/Set_Configuration_Done_Flag (Flag5) - - -- Iir_Kind_Library_Clause (Short) - -- - -- LRM08 13.2 Design libraries - -- - -- library_clause ::= LIBRARY logical_name_list ; - -- - -- logical_name_list ::= logical_name { , logical_name } - -- - -- logical_name ::= identifier - -- - -- Note: a library_clause node is created for every logical_name. - -- As a consequence, the scope of the library starts after the logical_name - -- and not after the library_clause. However, since an identifier - -- can only be used as a logical_name, and since the second occurence has - -- no effect, this is correct. - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Library_Declaration (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Has_Identifier_List (Flag3) - - --------------- - -- Literals -- - --------------- - - -- Iir_Kind_String_Literal8 (Short) - -- - -- Used for computed literals. Literal_Origin contains the expression - -- whose value was computed during analysis and replaces the expression. - -- Get/Set_Literal_Origin (Field2) - -- - -- Same as Type, but marked as property of that node. - -- Get/Set_Literal_Subtype (Field3) - -- - -- Get/Set_Type (Field1) - -- - -- Number of literals in the expanded string. - -- Get/Set_String_Length (Field4) - -- - -- Before analysis, this is the ASCII code of each character in the string. - -- After analysis, this is the position of each literal. - -- Get/Set_String8_Id (Field5) - -- - -- Base of the bit_string (corresponds to letters 'b', 'o', 'd' or 'x' in - -- the base specifier). - -- Get/Set_Bit_String_Base (Flag12,Flag13,Flag14) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- True if the bit string is signed, (ie letter 's' is present in the base - -- specifier). - -- Get/Set_Has_Signed (Flag1) - -- - -- True if the letter 'u' is present in the base specifier. - -- Get/Set_Has_Sign (Flag2) - -- - -- True if the integer specifying the length is present. - -- Get/Set_Has_Length (Flag3) - - -- Iir_Kind_Integer_Literal (Short) - -- - -- Get/Set the value of the integer. - -- Get/Set_Value (Field4,Field5) - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Floating_Point_Literal (Short) - -- - -- The value of the literal. - -- Get/Set_Fp_Value (Field4,Field5) - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Null_Literal (Short) - -- The null literal, which can be a disconnection or a null access. - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Physical_Int_Literal (Short) - -- Iir_Kind_Physical_Fp_Literal (Short) - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- The physical unit of the literal. - -- Get/Set_Physical_Unit (Field3) - -- - -- The name of the physical unit (if any). - -- Get/Set_Unit_Name (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Must be set to locally except for time literal, which is globally. - -- Get/Set_Expr_Staticness (State1) - -- - -- Only for Iir_Kind_Physical_Int_Literal: - -- The multiplicand. - -- Get/Set_Value (Field4,Field5) - -- - -- Only for Iir_Kind_Physical_Fp_Literal: - -- The multiplicand. - -- Get/Set_Fp_Value (Field4,Field5) - - -- Iir_Kind_Simple_Aggregate (Short) - -- This node can only be generated by evaluation: it is an unidimentional - -- positional aggregate. - -- - -- Same as Type, but marked as property of that node. - -- Get/Set_Literal_Subtype (Field3) - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- List of elements - -- Get/Set_Simple_Aggregate_List (Field4) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Overflow_Literal (Short) - -- This node can only be generated by evaluation to represent an error: out - -- of range, division by zero... - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Unaffected_Waveform (Short) - -- The 'unaffected' reserved word when it appears in the sources. - -- - -- Unaffected replaces a waveform element, so it is considered to be part - -- of a chain. But it is always alone in the chain. - -- Get/Set_Chain (Field2) - - ------------- - -- Tuples -- - ------------- - - -- Iir_Kind_Association_Element_By_Expression (Short) - -- Iir_Kind_Association_Element_Open (Short) - -- Iir_Kind_Association_Element_By_Individual (Short) - -- Iir_Kind_Association_Element_Package (Short) - -- Iir_Kind_Association_Element_Type (Short) - -- Iir_Kind_Association_Element_Subprogram (Short) - -- These are used for association element of an association list with - -- an interface (ie subprogram call, port map, generic map). - -- - -- Get/Set_Formal (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Only for Iir_Kind_Association_Element_By_Expression: - -- Only for Iir_Kind_Association_Element_Package: - -- Only for Iir_Kind_Association_Element_Type: - -- Only for Iir_Kind_Association_Element_Subprogram: - -- Get/Set_Actual (Field3) - -- - -- Only for Iir_Kind_Association_Element_By_Individual: - -- Get/Set_Individual_Association_Chain (Field4) - -- - -- A function call or a type conversion for the actual. - -- FIXME: should be a name ? - -- Only for Iir_Kind_Association_Element_By_Expression: - -- Get/Set_Actual_Conversion (Field4) - -- - -- Only for Iir_Kind_Association_Element_Type: - -- Get/Set_Subprogram_Association_Chain (Field4) - -- - -- A function call or a type conversion for the formal. - -- Only for Iir_Kind_Association_Element_By_Expression: - -- Get/Set_Formal_Conversion (Field5) - -- - -- Owner of Actual_Type if needed. - -- Only for Iir_Kind_Association_Element_By_Individual: - -- Get/Set_Actual_Type_Definition (Field3) - -- - -- Only for Iir_Kind_Association_Element_By_Individual: - -- Only for Iir_Kind_Association_Element_Type: - -- Get/Set_Actual_Type (Field5) - -- - -- Get/Set the whole association flag (true if the formal is associated in - -- whole and not individually, see LRM93 4.3.2.2) - -- Get/Set_Whole_Association_Flag (Flag1) - -- - -- Get/Set_Collapse_Signal_Flag (Flag2) - -- - -- Only for Iir_Kind_Association_Element_Open: - -- Get/Set_Artificial_Flag (Flag3) - -- - -- Get/Set_In_Formal_Flag (Flag4) - -- - -- Only for Iir_Kind_Association_Element_By_Individual: - -- Must be Locally unless there is an error on one choice. - -- Get/Set_Choice_Staticness (State1) - - -- Iir_Kind_Waveform_Element (Short) - -- - -- Get/Set_We_Value (Field1) - -- - -- Get/Set_Time (Field3) - -- - -- Get/Set_Chain (Field2) - - -- Iir_Kind_Conditional_Waveform (Short) - -- - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Waveform_Chain (Field5) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Conditional_Expression (Short) - -- LRM08 10.5.3 - -- conditional_expressions ::= - -- expression WHEN condition - -- { ELSE expression WHEN condition } - -- [ ELSE expression ] - -- - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Choice_By_Others (Short) - -- Iir_Kind_Choice_By_None (Short) - -- Iir_Kind_Choice_By_Range (Short) - -- Iir_Kind_Choice_By_Name (Short) - -- Iir_Kind_Choice_By_Expression (Short) - -- (Iir_Kinds_Choice) - -- - -- Used by: - -- Iir_Kind_Aggregate - -- Iir_Kind_Case_Statement - -- Iir_Kind_Case_Generate_Statement - -- Iir_Kind_Concurrent_Selected_Signal_Assignment - -- - -- The location of the first alternative is set on: - -- 'when' for case statement, selected assignment and case generate, - -- '(' or ',' for aggregates. - -- The location of the following alternatives is set on '|'. - -- - -- Get/Set_Parent (Field0) - -- - -- For a list of choices, only the first one is associated, the following - -- associations have the same_alternative_flag set. - -- Get/Set_Chain (Field2) - -- - -- Ordered position of the choice from 1 to N. 0 is reserved for others. - -- Get/Set_Choice_Order (Field1) - -- - -- Should be a simple_name. - -- Only for Iir_Kind_Choice_By_Name: - -- Get/Set_Choice_Name (Field5) - -- - -- Only for Iir_Kind_Choice_By_Expression: - -- Get/Set_Choice_Expression (Field5) - -- - -- Only for Iir_Kind_Choice_By_Range: - -- Get/Set_Choice_Range (Field5) - -- - -- Get/Set what is associated with the choice. There are two different - -- nodes, one for simple association and the other for chain association. - -- They don't have the same properties (normal vs chain), so the right - -- field must be selected according to the property to have working - -- walkers. Both fields are never used at the same time. - -- - -- For: - -- * an expression for an aggregate - -- * an individual association - -- * a generate_statement_body chain for a case_generate_statement - -- Get/Set_Associated_Expr (Field3) - -- Get/Set_Associated_Block (Alias Field3) - -- - -- For - -- * a waveform_chain for a concurrent_selected_signal_assignment, - -- * a sequential statement chain for a case_statement. - -- Get/Set_Associated_Chain (Field4) - -- - -- Set when share the same association as the previous one. - -- Get/Set_Same_Alternative_Flag (Flag1) - -- - -- For aggregates: if True, associated expression is for one element. - -- Get/Set_Element_Type_Flag (Flag2) - -- - -- Only for Iir_Kind_Choice_By_Range: - -- Only for Iir_Kind_Choice_By_Expression: - -- Get/Set_Choice_Staticness (State1) - - -- Iir_Kind_Entity_Aspect_Entity (Short) - -- - -- Get/Set_Entity_Name (Field2) - -- - -- A simple name for the architecture. The named entity can be: - -- * Null_Iir if the architecture is not known. - -- * a design unit if the architecture is known but not loaded. - -- * an architecture body if the architecture is loaded. - -- Get/Set_Architecture (Field3) - - -- Iir_Kind_Entity_Aspect_Open (Short) - - -- Iir_Kind_Entity_Aspect_Configuration (Short) - -- - -- Get/Set_Configuration_Name (Field1) - - -- Iir_Kind_Block_Configuration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Only use_clause are allowed here. - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Configuration_Item_Chain (Field3) - -- - -- Single linked list of block configuration that apply to the same - -- for scheme generate block. - -- Get/Set_Prev_Block_Configuration (Field4) - -- - -- Note: for default block configurations of iterative generate statement, - -- the block specification is an indexed_name, whose index_list is others. - -- The name designates either a block statement or a generate statement - -- body. - -- Get/Set_Block_Specification (Field5) - - -- Iir_Kind_Binding_Indication (Medium) - -- - -- Get/Set_Default_Entity_Aspect (Field1) - -- - -- The entity aspect. - -- It is a iir_kind_entity_aspect_entity, iir_kind_entity_aspect_open or - -- iir_kind_entity_aspect_configuration. This may be transformed into a - -- declaration by semantic. - -- Get/Set_Entity_Aspect (Field3) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Port_Map_Aspect_Chain (Field9) - - -- Iir_Kind_Component_Configuration (Short) - -- Iir_Kind_Configuration_Specification (Short) - -- - -- LRM08 7.3 Configuration specification - -- - -- configuration_specification ::= - -- simple_configuration_specification - -- | compound_configuration_specification - -- - -- simple_configuration_specification ::= - -- FOR component_specification binding_indication ; - -- [ END FOR ; ] - -- - -- compound_configuration_specification ::= - -- FOR component_specification binding_indication ; - -- verification_unit_binding_indication ; - -- { verification_unit_binding_indication ; } - -- END FOR ; - -- - -- component_specification ::= - -- instantiation_list : component_name - -- - -- instantiation_list ::= - -- instantiation_label { , instantiation_label } - -- | OTHERS - -- | ALL - -- - -- The location points to 'for'. - -- - -- The declaration containing this type declaration. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Component_Name (Field4) - -- - -- A list, list_others or list_all. - -- Get/Set_Instantiation_List (Field1) - -- - -- Only for Iir_Kind_Component_Configuration: - -- Get/Set_Block_Configuration (Field5) - -- - -- Get/Set_Binding_Indication (Field3) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Disconnection_Specification (Short) - -- - -- LRM08 7.4 Disconnection specification - -- - -- disconnection_specification ::= - -- DISCONNECT guarded_signal_specification AFTER time_expression ; - -- - -- guarded_signal_specification ::= - -- guarded_signal_list : type_mark - -- - -- signal_list ::= - -- signal_name { , signal_name } - -- | OTHERS - -- | ALL - -- - -- The declaration containing this type declaration. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Signal_List (Field3) - -- - -- Get/Set_Type_Mark (Field4) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Block_Header (Medium) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Port_Chain (Field7) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Port_Map_Aspect_Chain (Field9) - - -- Iir_Kind_Entity_Class (Short) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Entity_Class (Field3) - - -- Iir_Kind_Attribute_Specification (Medium) - -- - -- LRM08 7.2 Attribute specification - -- - -- attribute_specification ::= - -- ATTRIBUTE attribute_designator OF entity_specification - -- IS expression ; - -- - -- entity_specification ::= entity_name_list : entity_class - -- - -- entity_name_list ::= - -- entity_designator { , entity_designator } - -- | OTHERS - -- | ALL - -- - -- entity_designator ::= entity_tag [ signature ] - -- - -- entity_tag ::= simple_name | character_literal | operator_symbol - -- - -- LRM08 8.6 Attribute names - -- - -- attribute_designator ::= /attribute/_simple_name - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Entity_Class (Field3) - -- - -- Get/Set_Entity_Name_List (Field8) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Attribute_Value_Spec_Chain (Field4) - -- - -- Always a simple name. - -- Get/Set_Attribute_Designator (Field6) - -- - -- Get/Set_Attribute_Specification_Chain (Field7) - - -- Iir_Kind_Attribute_Value (Short) - -- An attribute value is the element of the chain of attribute of an - -- entity, marking the entity as decorated by the attribute. - -- This node is built only by sem. - -- In fact, the node is member of the chain of attribute of an entity, and - -- of the chain of entity of the attribute specification. - -- This makes elaboration (and more precisely, expression evaluation) - -- easier. - -- - -- Chain of attribute_value for the attribute specification - -- Get/Set_Spec_Chain (Field2) - -- - -- Get/Set_Type (Field1) - -- - -- Chain of all attribute_value for the node containing declarations - -- Get/Set_Value_Chain (Field0) - -- - -- Get/Set_Designated_Entity (Field3) - -- - -- Get/Set_Attribute_Specification (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Psl_Expression (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Psl_Expression (Field3) - - -- Iir_Kind_Signature (Medium) - -- - -- LRM08 4.5.3 Signatures - -- - -- signature ::= '[' [ type_mark { , type_mark } ] [ RETURN type_mark ] ']' - -- - -- Get/Set_Signature_Prefix (Field1) - -- - -- Get/Set_Type_Marks_List (Field2) - -- - -- Get/Set_Return_Type_Mark (Field8) - - -- Iir_Kind_Overload_List (Short) - -- - -- Get/Set_Overload_List (Field1) - - ------------------- - -- Declarations -- - ------------------- - - -- Iir_Kind_Entity_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Port_Chain (Field7) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Concurrent_Statement_Chain (Field5) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Has_Begin (Flag10) - - -- Iir_Kind_Architecture_Body (Medium) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Name of the entity declaration for the architecture. - -- Get/Set_Entity_Name (Field2) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Concurrent_Statement_Chain (Field5) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- The default configuration created by canon. This is a design unit. - -- Get/Set_Default_Configuration_Declaration (Field6) - -- - -- Get/Set_Foreign_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Configuration_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Name of the entity of a configuration. - -- Get/Set_Entity_Name (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Block_Configuration (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Package_Header (Medium) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - - -- Iir_Kind_Package_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Package_Header (Field6) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- For nested packages - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Package_Body (Field5) - -- - -- Get/Set_Package_Origin (Field7) - -- - -- If true, the package need a body. - -- Get/Set_Need_Body (Flag1) - -- - -- True for uninstantiated package that will be macro-expanded for - -- simulation. The macro-expansion is done by canon, so controlled by - -- back-end. The reason of macro-expansion is presence of interface - -- type. - -- Get/Set_Macro_Expanded_Flag (Flag2) - -- - -- True if the package declaration has least one package instantiation - -- declaration whose uninstantiated declaration needs both a body and - -- macro-expansion. In that case, the instantiation needs macro-expansion - -- of their body. - -- Get/Set_Need_Instance_Bodies (Flag3) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Package_Body (Short) - -- Note: a body is not a declaration, that's the reason why there is no - -- _declaration suffix in the name. - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- For nested packages. - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- The corresponding package declaration. - -- Get/Set_Package (Field5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Package_Instantiation_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- The name of the uninstantiated package as it appear in the sources. May - -- be Null_Iir. - -- Get/Set_Uninstantiated_Package_Name (Field7) - -- - -- The uninstantiated package declaration. - -- Get/Set_Uninstantiated_Package_Decl (Field9) - -- - -- Get/Set_Instance_Source_File (Field10) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- For nested packages - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- For macro-expanded packages: the body. - -- Get/Set_Instance_Package_Body (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Context_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- Get/Set_Design_Unit (Alias Field0) - -- - -- Get the chain of context clause. - -- Get/Set_Context_Items (Field1) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Library_Declaration (Short) - -- - -- Design files in the library. - -- Get/Set_Design_File_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- This node is used to contain all a library. Only internaly used. - -- Name (identifier) of the library. - -- Get/Set_Identifier (Field3) - -- - -- Most recent date in this library. - -- Get/Set_Date (Field4) - -- - -- Get/Set_Library_Directory (Field5) - -- - -- Used to compute dependences. - -- Get/Set_Elab_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Component_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Port_Chain (Field7) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Has_Is (Flag7) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- LRM08 6.6 Alias declarations - -- - -- alias_declaration ::= - -- ALIAS alias_designator [ : subtype_indication ] IS - -- name [ signature ] ; - -- - -- alias_designator ::= identifier | character_literal | operator_symbol - -- - -- Object aliases and non-object aliases are represented by two different - -- nodes, as their semantic is different. The parser only creates object - -- alias declaration nodes, but sem_decl replaces the node for non-object - -- alias declarations. - - -- Iir_Kind_Object_Alias_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Name (Field4) - -- - -- The subtype indication may not be present. - -- Get/Set_Subtype_Indication (Field5) - -- - -- The type can be deduced from the subtype indication, but this field is - -- present for uniformity (and speed). - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_After_Drivers_Flag (Flag5) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Non_Object_Alias_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Name (Field4) - -- - -- Get/Set_Alias_Signature (Field5) - -- - -- Set when the alias was implicitely created (by Sem) because of an - -- explicit alias of a type. - -- Get/Set_Implicit_Alias_Flag (Flag1) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Anonymous_Type_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type_Definition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Used for informative purpose only. - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Definition (Field4) - -- - -- Set if the type declaration completes an incomplete type declaration - -- Get/Set_Incomplete_Type_Declaration (Field5) - - -- Iir_Kind_Type_Declaration (Short) - -- - -- LRM08 6.3 Type declarations - -- - -- type_declaration ::= - -- full_type_declaration - -- | incomplete_type_declaration - -- - -- full_type_declaration ::= - -- TYPE identifier IS type_definition ; - -- - -- type_definition ::= - -- scalar_type_definition - -- | composite_type_definition - -- | access_type_definition - -- | file_type_definition - -- | protected_type_definition - -- - -- LRM08 5.4.2 Incomplete type declarations - -- - -- incomplete_type_declaration ::= - -- TYPE identifier ; - -- - -- Get/Set_Parent (Field0) - -- - -- Definition of the type. - -- Note: the type definition can be a real type (unconstrained array, - -- enumeration, file, record, access) or a subtype (integer, floating - -- point). - -- The parser set this field to null_iir for an incomplete type - -- declaration. This field is set to an incomplete_type_definition node - -- when analyzed. - -- Get/Set_Type_Definition (Field1) - -- Get/Set_Type (Alias Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Set if the type declaration completes an incomplete type declaration - -- Get/Set_Incomplete_Type_Declaration (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Subtype_Declaration (Short) - -- - -- LRM08 6.3 Subtype declarations - -- - -- subtype_declaration ::= - -- SUBTYPE identifier IS subtype_indication ; - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- For integer and real types, the subtype_indication of the implicitly - -- declared subtype for the type is the subtype definition. - -- Get/Set_Subtype_Indication (Field5) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Nature_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Nature (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Subnature_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Nature (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Interface_Signal_Declaration (Short) - -- Iir_Kind_Interface_Constant_Declaration (Short) - -- Iir_Kind_Interface_Variable_Declaration (Short) - -- Iir_Kind_Interface_File_Declaration (Short) - -- - -- Get/Set the parent of an interface declaration. - -- The parent is an entity declaration, a subprogram specification, a - -- component declaration, a loop statement, a block declaration or ?? - -- Useful to distinguish a port and an interface. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Must always be null_iir for iir_kind_interface_file_declaration. - -- Get/Set_Default_Value (Field4) - -- - -- The type can be deduced from the subtype indication, but this field is - -- present for uniformity (and speed). - -- Get/Set_Type (Field1) - -- - -- Get/Set_Mode (Flag13,Flag14,Flag15) - -- - -- Only for Iir_Kind_Interface_Signal_Declaration: - -- Get/Set_Has_Disconnect_Flag (Flag1) - -- - -- Only for Iir_Kind_Interface_Signal_Declaration: - -- Get/Set_Has_Active_Flag (Flag2) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_After_Drivers_Flag (Flag5) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Only for Iir_Kind_Interface_Signal_Declaration: - -- Get/Set_Guarded_Signal_Flag (Flag8) - -- - -- Only for Iir_Kind_Interface_Signal_Declaration: - -- Get/Set_Signal_Kind (Flag9) - -- - -- Get/Set_Has_Mode (Flag10) - -- - -- Get/Set_Has_Class (Flag11) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Only for Iir_Kind_Interface_Signal_Declaration: - -- Get/Set_Open_Flag (Flag7) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Interface_Type_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Interface_Type_Subprograms (Field4) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Interface_Package_Declaration (Medium) - -- - -- LRM08 6.5.5 Interface package declarations - -- - -- interface_package_declaration ::= - -- PACKAGE identifier IS NEW /uninstantiated_package/_name - -- interface_package_generic_map_aspect - -- - -- interface_package_generic_map_aspect ::= - -- generic_map_aspect - -- | GENERIC MAP ( <> ) -- Represented by Null_Iir - -- | GENERIC MAP ( DEFAULT ) -- Not yet implemented - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Uninstantiated_Package_Name (Field7) - -- - -- Get/Set_Uninstantiated_Package_Decl (Field9) - -- - -- Get/Set_Instance_Source_File (Field10) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - - -- Iir_Kind_Function_Declaration (Medium) - -- Iir_Kind_Procedure_Declaration (Medium) - -- - -- LRM08 4.2 Subprogram declarations - -- - -- subprogram_declaration ::= subprogram_specification ; - -- - -- subprogram_specification ::= - -- procedure_specification | function_specification - -- - -- procedure_specification ::= - -- PROCEDURE designator - -- subprogram_header - -- [ [ PARAMETER ] ( formal_parameter_list ) ] - -- - -- function_specification ::= - -- [ PURE | IMPURE ] FUNCTION designator - -- subprogram_header - -- [ [ PARAMETER ] ( formal_parameter_list ) ] RETURN type_mark - -- - -- designator ::= identifier | operator_symbol - -- - -- operator_symbol ::= string_literal - -- - -- Note: the subprogram specification of a body is kept, but should be - -- ignored if there is a subprogram declaration. The function - -- Is_Second_Subprogram_Specification returns True on such specification. - -- - -- The declaration containing this subrogram declaration. - -- Get/Set_Parent (Field0) - -- - -- Only for Iir_Kind_Function_Declaration: - -- Get/Set_Return_Type (Field1) - -- - -- Only for Iir_Kind_Function_Declaration: - -- Get/Set_Type (Alias Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- For string, the identifier is the corresponding reserved word. - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subprogram_Hash (Field4) - -- - -- Get/Set_Interface_Declaration_Chain (Field5) - -- - -- Get/Set_Generic_Chain (Field6) - -- - -- --Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Implicit_Definition (Field7) - -- - -- Get/Set_Return_Type_Mark (Field8) - -- - -- Get/Set_Subprogram_Body (Field9) - -- - -- Get/Set_Subprogram_Depth (Field10) - -- - -- Get/Set_Overload_Number (Field12) - -- - -- Get/Set_Seen_Flag (Flag1) - -- - -- Only for Iir_Kind_Function_Declaration: - -- Get/Set_Pure_Flag (Flag2) - -- - -- Only for Iir_Kind_Procedure_Declaration: - -- Get/Set_Passive_Flag (Flag2) - -- - -- Get/Set_Foreign_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Only for Iir_Kind_Function_Declaration: - -- Get/Set_Resolution_Function_Flag (Flag7) - -- - -- Only for Iir_Kind_Function_Declaration: - -- Get/Set_Has_Pure (Flag8) - -- - -- True is the specification is immediately followed by a body. - -- Get/Set_Has_Body (Flag9) - -- - -- Get/Set_Has_Parameter (Flag10) - -- - -- Only for Iir_Kind_Procedure_Declaration: - -- Get/Set_Suspend_Flag (Flag11) - -- - -- For an explicit subprogram: true if the declaration is an homograph of - -- an implicit operation of a type. - -- Get/Set_Hide_Implicit_Flag (Flag12) - -- - -- Get/Set_Wait_State (State1) - -- - -- Only for Iir_Kind_Procedure_Declaration: - -- Get/Set_Purity_State (State2) - -- - -- Get/Set_All_Sensitized_State (State3) - - -- Iir_Kind_Function_Body (Medium) - -- Iir_Kind_Procedure_Body (Medium) - -- - -- LRM08 4.3 Subprogram bodies - -- - -- subprogram_body ::= - -- subprogram_specification IS - -- subprogram_declarative_part - -- BEGIN - -- subprogram_statement_part - -- END [ subprogram_kind ] [ designator ] ; - -- - -- subprogram_kind ::= PROCEDURE | FUNCTION - -- - -- Get/Set_Parent (Field0) - -- - -- The parse stage always puts a declaration before a body. - -- Sem will remove the declaration if there is a forward declaration. - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Impure_Depth (Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Sequential_Statement_Chain (Field5) - -- - -- Get/Set_Subprogram_Specification (Field6) - -- - -- Get/Set_Callees_List (Field7) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Only for Iir_Kind_Procedure_Body: - -- Get/Set_Suspend_Flag (Flag11) - - -- Iir_Kind_Interface_Function_Declaration (Medium) - -- Iir_Kind_Interface_Procedure_Declaration (Medium) - -- - -- LRM08 6.5.4 Interface subprogram declarations - -- - -- interface_subprogram_declaration ::= - -- interface_subprogram_specification - -- [ IS interface_subprogram_default ] - -- - -- interface_subprogram_specification ::= - -- interface_procedure_specification | interface_function_specification - -- - -- interface_procedure_specification ::= - -- PROCEDURE designator - -- [ [ PARAMETER ] ( formal_parameter_list ) ] - -- - -- interface_function_specification ::= - -- [ PURE | IMPURE ] FUNCTION designator - -- [ [ PARAMETER ] ( formal_parameter_list ) ] RETURN type_mark - -- - -- Get/Set_Parent (Field0) - -- - -- Only for Iir_Kind_Interface_Function_Declaration: - -- Get/Set_Return_Type (Field1) - -- - -- Only for Iir_Kind_Interface_Function_Declaration: - -- Get/Set_Type (Alias Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- For string, the identifier is the corresponding reserved word. - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subprogram_Hash (Field4) - -- - -- Get/Set_Interface_Declaration_Chain (Field5) - -- - -- Get/Set_Return_Type_Mark (Field8) - -- - -- Get/Set_Subprogram_Depth (Field10) - -- - -- Get/Set_Seen_Flag (Flag1) - -- - -- Only for Iir_Kind_Interface_Function_Declaration: - -- Get/Set_Pure_Flag (Flag2) - -- - -- Get/Set_Foreign_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Only for Iir_Kind_Interface_Function_Declaration: - -- Get/Set_Resolution_Function_Flag (Flag7) - -- - -- Only for Iir_Kind_Interface_Function_Declaration: - -- Get/Set_Has_Pure (Flag8) - -- - -- Get/Set_Has_Parameter (Flag10) - -- - -- Get/Set_All_Sensitized_State (State3) - - -- Iir_Kind_Signal_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Get/Set_Default_Value (Field4) - -- - -- Get/Set_Type (Field1) - -- - -- For a non-resolved signal: null_iir if the signal has no driver, or - -- a process/concurrent_statement for which the signal should have a - -- driver. This is used to catch at analyse time unresolved signals with - -- several drivers. - -- -- Get/Set_Signal_Driver (Field7) - -- - -- Get/Set_Has_Disconnect_Flag (Flag1) - -- - -- Get/Set_Has_Active_Flag (Flag2) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_After_Drivers_Flag (Flag5) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Guarded_Signal_Flag (Flag8) - -- - -- Get/Set_Signal_Kind (Flag9) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Guard_Signal_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Guard_Expression (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Guard_Sensitivity_List (Field4) - -- - -- Get/Set_Block_Statement (Field5) - -- - -- Get/Set_Has_Active_Flag (Flag2) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Guarded_Signal_Flag (Flag8) - -- - -- Get/Set_Signal_Kind (Flag9) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Signal_Attribute_Declaration (Short) - -- - -- Chain of implicit signals created from signal attribute. This is just - -- an helper so that translation can create these implicit signals at the - -- same time as user signal declarations. - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Chain of signals - -- Get/Set_Signal_Attribute_Chain (Field3) - - -- Iir_Kind_Constant_Declaration (Medium) - -- Iir_Kind_Iterator_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- For iterator, this is the reconstructed subtype indication. - -- Get/Set_Subtype_Indication (Field5) - -- - -- Only for Iir_Kind_Iterator_Declaration: - -- Get/Set_Discrete_Range (Field6) - -- - -- Only for Iir_Kind_Constant_Declaration: - -- Default value of a deferred constant points to the full constant - -- declaration. - -- Get/Set_Default_Value (Field4) - -- - -- Note that the type may be extracted from the default_value if the subtype - -- indication is unconstrained. - -- Get/Set_Type (Field1) - -- - -- Only for Iir_Kind_Constant_Declaration: - -- Summary: - -- | constant C1 : integer; -- Deferred declaration (in a package) - -- | constant C2 : integer := 4; -- Declaration - -- | constant C1 : integer := 3; -- Full declaration (in a body) - -- | NAME Deferred_declaration Deferred_declaration_flag - -- | C1 Null_iir or C1' (*) True - -- | C2 Null_Iir False - -- | C1' C1 False - -- |(*): Deferred_declaration is Null_Iir as long as the full declaration - -- | has not been analyzed. - -- Get/Set_Deferred_Declaration (Field6) - -- - -- Only for Iir_Kind_Constant_Declaration: - -- Get/Set_Deferred_Declaration_Flag (Flag1) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Only for Iir_Kind_Constant_Declaration: - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Variable_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Get/Set_Default_Value (Field4) - -- - -- Get/Set_Type (Field1) - -- - -- True if the variable is a shared variable. - -- Get/Set_Shared_Flag (Flag2) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_File_Declaration (Medium) - -- - -- LRM08 6.4.2.5 File declarations - -- - -- file_declaration ::= - -- FILE identifier_list : subtype_indication [ file_open_information ] ; - -- - -- file_open_information ::= - -- [ OPEN file_open_kind_expression ] IS file_logical_name - -- - -- file_logical_name ::= string_expression - -- - -- LRM87 - -- - -- file_declaration ::= - -- FILE identifier : subtype_indication IS [ mode ] file_logical_name ; - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Get/Set_File_Logical_Name (Field6) - -- - -- This is not used in vhdl 87. - -- Get/Set_File_Open_Kind (Field7) - -- - -- This is used only in vhdl 87. - -- Get/Set_Mode (Flag13,Flag14,Flag15) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Has_Mode (Flag10) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Element_Declaration (Short) - -- - -- LRM08 5.3.3 Record types - -- - -- element_declaration ::= - -- identifier_list : element_subtype_definition ; - -- - -- identifier_list ::= identifier { , identifier } - -- - -- element_subtype_definition ::= subtype_indication - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Return the position of the element in the record, starting from 0 for - -- the first record element, increasing by one for each successive element. - -- Get/Set_Element_Position (Field4) - -- - -- The type can be deduced from the subtype indication, but this field is - -- present for uniformity (and speed). - -- Get/Set_Type (Field1) - -- - -- Get/Set_Has_Identifier_List (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Record_Element_Constraint (Short) - -- - -- Record subtype definition which defines this constraint. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- For Owned_Elements_Chain, so that the node has an owner. - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Return the position of the element in the record, starting from 0 for - -- the first record element, increasing by one for each successive element. - -- Get/Set_Element_Position (Field4) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Attribute_Declaration (Short) - -- - -- LRM08 6.7 Attribute declarations - -- - -- attribute_declaration ::= - -- ATTRIBUTE identifier : type_mark ; - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Type_Mark (Field4) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Group_Template_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- List of entity class entry. - -- To handle `<>', the last element of the list can be an entity_class of - -- kind tok_box. - -- Get/Set_Entity_Class_Entry_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Group_Declaration (Short) - -- - -- The declaration containing this type declaration. - -- Get/Set_Parent (Field0) - -- - -- List of constituents. - -- Get/Set_Group_Constituent_List (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Group_Template_Name (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Psl_Endpoint_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Always boolean. - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Psl_Declaration (Field6) - -- - -- Get/Set_PSL_Clock (Field7) - -- - -- Get/Set_PSL_NFA (Field8) - -- - -- Number of states in the NFA. - -- Get/Set_PSL_Nbr_States (Field9) - -- - -- Get/Set_PSL_Clock_Sensitivity (Field10) - -- - -- True if at least one of the NFA edge has the EOS flag. - -- Get/Set_PSL_EOS_Flag (Flag1) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Psl_Declaration (Medium) - -- A psl sequence or property declaration. - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Psl_Declaration (Field6) - -- - -- Valid only for property declaration. - -- Get/Set_PSL_Clock (Field7) - -- - -- Valid only for property declaration without parameters. - -- Get/Set_PSL_NFA (Field8) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - - -- Iir_Kind_Terminal_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Nature (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Has_Identifier_List (Flag3) - - -- Iir_Kind_Free_Quantity_Declaration (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Default_Value (Field4) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Across_Quantity_Declaration (Medium) - -- Iir_Kind_Through_Quantity_Declaration (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Default_Value (Field4) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Plus_Terminal (Field8) - -- - -- Get/Set_Minus_Terminal (Field9) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Use_Flag (Flag6) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Use_Clause (Short) - -- - -- LRM08 12.4 Use clauses - -- - -- use_clause ::= - -- USE selected_name { , selected_name } ; - -- - -- Location is on 'USE'. - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Selected_Name (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Use_Clause_Chain (Field3) - - -- Iir_Kind_Context_Reference (Short) - -- - -- LRM08 13.4 Context clauses - -- - -- context_reference ::= - -- CONTEXT selected_name { , selected_name } - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Selected_Name (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Context_Reference_Chain (Field3) - - - ----------------------- - -- type definitions -- - ----------------------- - - -- For Iir_Kinds_Type_And_Subtype_Definition: - -- - -- Type_Declarator: - -- Points to the type declaration or subtype declaration that has created - -- this definition. For some types, such as integer and floating point - -- types, both type and subtype points to the declaration. - -- However, there are cases where a type definition doesn't point to - -- a declarator: anonymous subtype created by index contraints, or - -- anonymous subtype created by an object declaration. - -- Note: a type definition cannot be anoynymous. - -- Get/Set_Type_Declarator (Field3) - -- - -- The base type. - -- For a subtype, it returns the type. - -- For a type, it must return the type itself. - -- Get/Set_Base_Type (Field4) - -- - -- The staticness of a type, according to LRM93 7.4.1. - -- Note: These types definition are always locally static: - -- enumeration, integer, floating. - -- However, their subtype are not necessary locally static. - -- Get/Set_Type_Staticness (State1) - -- - -- The resolved flag of a subtype, according to LRM93 2.4 - -- Get/Set_Resolved_Flag (Flag1) - -- - -- The signal_type flag of a type definition. - -- It is true when the type can be used for a signal. - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - - -- Iir_Kind_Enumeration_Type_Definition (Short) - -- - -- Return the list of literals. This list is created when the node is - -- created. - -- Get/Set_Enumeration_Literal_List (Field2) - -- - -- Get the range of the type (This is just an ascending range from the - -- first literal to the last declared literal). - -- Get/Set_Range_Constraint (Field1) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Always itself - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Only_Characters_Flag (Flag4) - -- - -- Get/Set_Is_Character_Type (Flag5) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Type_Staticness (State1) - - -- Iir_Kind_Enumeration_Literal (Short) - -- - -- Nota: two literals of the same type are equal iff their value is the - -- same; in other words, there may be severals literals with the same - -- value. - -- - -- The parent of an enumeration_literal is the same parent as the type - -- declaration. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- Get/Set_Return_Type (Alias Field1) - -- - -- Get/Set_Literal_Origin (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Subprogram_Hash (Field4) - -- - -- The value of an enumeration literal is the position. - -- Get/Set_Enum_Pos (Field5) - -- - -- Get/Set_Seen_Flag (Flag1) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Never set to true, but possible when used as a prefix of an expanded - -- name in a overloaded subprogram. - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Physical_Type_Definition (Short) - -- - -- The range_constraint from the type declaration. - -- Get/Set_Range_Constraint (Field1) - -- - -- Get/Set_Unit_Chain (Field2) - -- Get/Set_Primary_Unit (Alias Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Unit_Declaration (Short) - -- - -- LRM08 5.2.4 Physical types - -- - -- primary_unit_declaration ::= identifier ; - -- - -- secondary_unit_declaration ::= identifier = physical_literal ; - -- - -- physical_literal ::= [ abstract_literal ] /unit/_name - -- - -- The parent of a physical unit is the same parent as the type - -- declaration. - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- The Physical_Literal is the expression that defines the value of a - -- unit. It is evaluated during analysis and thus expressed as a multiple - -- of the primary unit. That's true even for the primary unit whose value - -- is thus 1. - -- Get/Set_Physical_Literal (Field4) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Used for time literals, to compute minimal resolution. - -- Get/Set_Use_Flag (Flag6) - - -- LRM08 5.2 Scalar types - -- - -- range_constraint ::= RANGE range - -- - -- range ::= - -- range_attribute_name - -- | simple_expression direction simple_expression - -- - -- direction ::= to | downto - - -- Iir_Kind_Integer_Type_Definition (Short) - -- Iir_Kind_Floating_Type_Definition (Short) - -- - -- The range_constraint from the type declaration. - -- Get/Set_Range_Constraint (Field1) - -- - -- The type declarator that has created this type. - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Type staticness is always locally. - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Array_Type_Definition (Medium) - -- - -- LRM08 5.3.2 Array types / LRM93 3.2.1 - -- - -- unbounded_array_definition ::= - -- ARRAY ( index_subtype_definition { , index_subtype_definition } ) - -- OF element_subtype_indication - -- - -- index_subtype_definition ::= type_mark RANGE <> - -- - -- This is a list of type marks. - -- Get/Set_Index_Subtype_Definition_List (Field6) - -- - -- Get/Set_Element_Subtype_Indication (Field2) - -- - -- Same as the index_subtype_definition_list. - -- Get/Set_Index_Subtype_List (Field9) - -- - -- Get/Set_Element_Subtype (Field1) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Constraint_State (State2) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Always false. - -- Get/Set_Index_Constraint_Flag (Flag4) - - -- Iir_Kind_Record_Type_Definition (Short) - -- - -- LRM08 5.3.3 Record types / LRM93 3.2.2 Record types - -- - -- record_type_definition ::= - -- RECORD - -- element_declaration - -- { element_declaration } - -- END RECORD [ /record_type/_simple_name ] - -- - -- Get/Set_Elements_Declaration_List (Field1) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Constraint_State (State2) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Always false for record type: elements are owned by this node. - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Access_Type_Definition (Short) - -- - -- LRM08 5.4 Access types - -- - -- access_type_definition ::= ACCESS subtype_indication - -- - -- The subtype_indication as it appears. Can designate an - -- incomplete_type_definition. - -- Get/Set_Designated_Subtype_Indication (Field5) - -- - -- The resolved designated type. - -- Get/Set_Designated_Type (Field1) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Next access type that also referenced the same incomplete type when - -- defined. - -- Get/Set_Incomplete_Type_Ref_Chain (Field0) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Type_Staticness (State1) - - -- Iir_Kind_File_Type_Definition (Short) - -- - -- Get/Set_File_Type_Mark (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- True if this is the std.textio.text file type, which may require special - -- handling. - -- Get/Set_Text_File_Flag (Flag4) - -- - -- Get/Set_Type_Staticness (State1) - - -- Iir_Kind_Incomplete_Type_Definition (Short) - -- Type definition for an incomplete type. This is created during the - -- analysis of the incomplete type declaration. - -- - -- Chain of access_type_definition that designated this type. This is - -- simply a forward_ref as the access type is declared after the - -- incomplete type. - -- Get/Set_Incomplete_Type_Ref_Chain (Field0) - -- - -- Set to the incomplete type declaration. - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Set to the complete type definition when completed. - -- Get/Set_Complete_Type_Definition (Field5) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - - -- Iir_Kind_Interface_Type_Definition (Short) - -- Type definition for an interface type. - -- - -- Set to interface type declaration. - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Set only during analysis of association: type associated with this - -- interface, so that references to this interface can use the actual - -- type. - -- Get/Set_Associated_Type (Field5) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - - -- Iir_Kind_Protected_Type_Declaration (Short) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Protected_Type_Body (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Protected_Type_Body (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Protected_Type_Declaration (Field4) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Wildcard_Type_Definition (Short) - -- A wildcard type doesn't correspond to a type defined by VHDL. It - -- is used only during analysis to temporary set the type of an entity - -- when the type is not precisely known but restricted to some class of - -- types. Eg: the type of an aggregate is not known before being - -- determined by the context, but can only be an array or a record. - -- Wildcard types are statically created by std_package and the set of - -- restrictions depends on the node. See std_package.ads - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Type_Staticness (State1) - - -------------------------- - -- subtype definitions -- - -------------------------- - - -- LRM08 6.3 Subtype declarations - -- - -- subtype_indication ::= - -- [ resolution_indication ] type_mark [ constraint ] - -- - -- There is no uniq representation for a subtype indication. If there is - -- only a type_mark, then a subtype indication is represented by a name - -- (a simple name or an expanded name); otherwise it is represented by one - -- of the subtype definition node. - -- - -- resolution_indication ::= - -- resolution_function_name | ( element_resolution ) - -- - -- element_resolution ::= array_element_resolution | record_resolution - -- - -- If there is no constraint but a resolution function name, the subtype - -- indication is represented by a subtype_definition (which will be - -- replaced by the correct subtype definition). If there is an array - -- element resolution the subtype indication is represented by an array - -- subtype definition, and if there is a record resolution, it is - -- represented by a record subtype definition. - -- - -- constraint ::= - -- range_constraint - -- | index_constraint - -- | array_constraint - -- | record_constraint - -- - -- There is no node for constraint, it is directly represented by one of - -- the rhs. - -- - -- element_constraint ::= - -- array_constraint - -- | record_constraint - -- - -- Likewise, there is no node for element_constraint. - -- - -- index_constraint ::= ( discrete_range { , discrete_range } ) - -- - -- An index_constraint is represented by an array_subtype_definition. - -- - -- discrete_range ::= /discrete/_subtype_indication | range - -- - -- array_constraint ::= - -- index_constraint [ array_element_constraint ] - -- | ( OPEN ) [ array_element_constraint ] - -- - -- An array_constraint is also represented by an array_subtype_definition. - -- - -- array_element_constraint ::= element_constraint - -- - -- There is no node for array_element_constraint. - -- - -- record_constraint ::= - -- ( record_element_constraint { , record_element_constraint } ) - -- - -- A record_constraint is represented by a record_subtype_definition. - -- - -- record_element_constraint ::= - -- record_element_simple_name element_constraint - -- - -- Represented by Record_Element_Constraint. - - -- Iir_Kind_Enumeration_Subtype_Definition (Short) - -- Iir_Kind_Integer_Subtype_Definition (Short) - -- Iir_Kind_Physical_Subtype_Definition (Short) - -- - -- Get/Set_Range_Constraint (Field1) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolution_Indication (Field5) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Type_Staticness (State1) - - -- Iir_Kind_Floating_Subtype_Definition (Medium) - -- - -- Get/Set_Range_Constraint (Field1) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolution_Indication (Field5) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Is_Ref (Flag12) - -- - -- Get/Set_Type_Staticness (State1) - - -- Iir_Kind_Access_Subtype_Definition (Short) - -- - -- Get/Set_Designated_Type (Field1) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Designated_Subtype_Indication (Field5) - -- - -- Note: no resolution function for access subtype. - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - - -- Iir_Kind_Array_Element_Resolution (Short) - -- - -- LRM08 6.3 Subtype declarations - -- - -- array_element_resolution ::= resolution_indication - -- - -- The indication as it appears in the sources. - -- Get/Set_Resolution_Indication (Field5) - -- - -- The subtype definition of the element. Owner of it. - -- Get/Set_Element_Subtype_Indication (Field2) - - -- Iir_Kind_Record_Resolution (Short) - -- - -- LRM08 6.3 Subtype declarations - -- - -- record_resolution ::= - -- record_element_resolution { , record_element_resolution } - -- - -- Get/Set_Record_Element_Resolution_Chain (Field1) - - -- Iir_Kind_Record_Element_Resolution (Short) - -- - -- LRM08 6.3 Subtype declarations - -- - -- record_element_resolution ::= - -- /record_element/_simple_name resolution_indication - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Resolution_Indication (Field5) - - -- Iir_Kind_Record_Subtype_Definition (Medium) - -- - -- Chain of new elements constraint. Needed only for internal consistency - -- of the tree (ownership). - -- Get/Set_Owned_Elements_Chain (Field6) - -- - -- Get/Set_Elements_Declaration_List (Field1) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Resolution_Indication (Field5) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Constraint_State (State2) - -- - -- Always false for record type: elements are owned through - -- Owned_Elements_Chain - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Array_Subtype_Definition (Medium) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Resolution_Indication (Field5) - -- - -- The index_constraint list as it appears in the subtype indication (if - -- present). This is a list of subtype indication. - -- Get/Set_Index_Constraint_List (Field6) - -- - -- The type of the index. This is either the index_constraint list or the - -- index subtypes of the type_mark. - -- Get/Set_Index_Subtype_List (Field9) - -- - -- Get/Set_Array_Element_Constraint (Field8) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Element_Subtype (Field1) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Constraint_State (State2) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - -- - -- Get/Set_Index_Constraint_Flag (Flag4) - - -- Iir_Kind_Range_Expression (Short) - -- - -- There are two fields for both limits: those that own the node - -- (Left_Limit_Expr and Right_Limit_Expr) and those that reference the node - -- (Left_Limit and Right_Limit). Always use the reference (they cannot be - -- Null_Iir, while the owner nodes can be Null_Iir. Set the owner nodes - -- only for owning purpose. - -- Get/Set_Left_Limit_Expr (Field2) - -- - -- Get/Set_Right_Limit_Expr (Field3) - -- - -- Get/Set_Range_Origin (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Left_Limit (Field4) - -- - -- Get/Set_Right_Limit (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Direction (State2) - - -- Iir_Kind_Subtype_Definition (Medium) - -- Such a node is only created by parse and transformed into the correct - -- kind (enumeration_subtype, integer_subtype...) by sem. - -- - -- Get/Set_Range_Constraint (Field1) - -- - -- Get/Set_Subtype_Type_Mark (Field2) - -- - -- Get/Set_Resolution_Indication (Field5) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Is_Ref (Flag12) - - ------------------------- - -- Nature definitions -- - ------------------------- - - -- Iir_Kind_Scalar_Nature_Definition (Medium) - -- - -- Get/Set_Reference (Field2) - -- - -- The declarator that has created this nature type. - -- Get/Set_Nature_Declarator (Field3) - -- - -- C-- Get/Set_Base_Type (Field4) - -- - -- Type staticness is always locally. - -- C-- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Across_Type (Field7) - -- - -- Get/Set_Through_Type (Field8) - - ---------------------------- - -- concurrent statements -- - ---------------------------- - - -- Iir_Kind_Concurrent_Conditional_Signal_Assignment (Medium) - -- Iir_Kind_Concurrent_Selected_Signal_Assignment (Medium) - -- Iir_Kind_Concurrent_Simple_Signal_Assignment (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Target (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Reject_Time_Expression (Field4) - -- - -- Only for Iir_Kind_Concurrent_Simple_Signal_Assignment: - -- Get/Set_Waveform_Chain (Field5) - -- - -- Only for Iir_Kind_Concurrent_Selected_Signal_Assignment: - -- Get/Set_Expression (Field5) - -- - -- Only for Iir_Kind_Concurrent_Conditional_Signal_Assignment: - -- Get/Set_Conditional_Waveform_Chain (Field5) - -- - -- Only for Iir_Kind_Concurrent_Selected_Signal_Assignment: - -- Get/Set_Selected_Waveform_Chain (Field7) - -- - -- If the assignment is guarded, then get_guard must return the - -- declaration of the signal guard, otherwise, null_iir. - -- If the guard signal decl is not known, as a kludge and only to mark this - -- assignment guarded, the guard can be this assignment. - -- Get/Set_Guard (Field8) - -- - -- Get/Set_Delay_Mechanism (Flag1) - -- - -- Get/Set_Postponed_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- True if the target of the assignment is guarded - -- Get/Set_Guarded_Target_State (State1) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Sensitized_Process_Statement (Medium) - -- Iir_Kind_Process_Statement (Medium) - -- - -- Location is on the label, or 'postponed' or 'process'. - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- The concurrent statement at the origin of that process. This is - -- Null_Iir for a user process. - -- Get/Set_Process_Origin (Field8) - -- - -- Get/Set_Sequential_Statement_Chain (Field5) - -- - -- Only for Iir_Kind_Sensitized_Process_Statement: - -- Get/Set_Sensitivity_List (Field6) - -- - -- Get/Set_Callees_List (Field7) - -- - -- Get/Set_Wait_State (State1) - -- - -- Get/Set_Seen_Flag (Flag1) - -- - -- Get/Set_Passive_Flag (Flag2) - -- - -- Get/Set_Postponed_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_Has_Label (Flag6) - -- - -- Get/Set_Has_Is (Flag7) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_End_Has_Postponed (Flag10) - -- - -- Only for Iir_Kind_Process_Statement: - -- Get/Set_Suspend_Flag (Flag11) - -- - -- Only for Iir_Kind_Sensitized_Process_Statement: - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Concurrent_Assertion_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Assertion_Condition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Severity_Expression (Field4) - -- - -- Get/Set_Report_Expression (Field5) - -- - -- Get/Set_Postponed_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Psl_Default_Clock (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Psl_Boolean (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - - -- Iir_Kind_Psl_Assert_Statement (Medium) - -- Iir_Kind_Psl_Cover_Statement (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Only for Iir_Kind_Psl_Assert_Statement: - -- Get/Set_Psl_Property (Field1) - -- - -- Only for Iir_Kind_Psl_Cover_Statement: - -- Get/Set_Psl_Sequence (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Severity_Expression (Field4) - -- - -- Get/Set_Report_Expression (Field5) - -- - -- The following fields are set by canon. - -- Get/Set_PSL_Clock (Field7) - -- - -- Get/Set_PSL_NFA (Field8) - -- - -- Number of states in the NFA. - -- Get/Set_PSL_Nbr_States (Field9) - -- - -- Get/Set_PSL_Clock_Sensitivity (Field10) - -- - -- True if at least one of the NFA edge has the EOS flag. - -- Get/Set_PSL_EOS_Flag (Flag1) - -- - -- Get/Set_Postponed_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Component_Instantiation_Statement (Medium) - -- - -- LRM08 11.7 Component instantiation statements - -- - -- component_instantiation_statement ::= - -- instantiation_label : - -- instantiated_unit - -- [ generic_map_aspect ] - -- [ port_map_aspect ] ; - -- - -- instantiated_unit ::= - -- [ COMPONENT ] component_name - -- | ENTITY entity_name [ ( architecture_identifier ) ] - -- | CONFIGURATION configuration_name - -- - -- Get/Set_Parent (Field0) - -- - -- Unit instantiated. This is a name, an entity_aspect_entity or an - -- entity_aspect_configuration. - -- Get/Set_Instantiated_Unit (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Default_Binding_Indication (Field5) - -- - -- Get/Set_Generic_Map_Aspect_Chain (Field8) - -- - -- Get/Set_Port_Map_Aspect_Chain (Field9) - -- - -- Configuration: - -- In case of a configuration specification, the node is put into - -- default configuration. In the absence of a specification, the - -- default entity aspect, if any; if none, this field is null_iir. - -- Get/Set_Configuration_Specification (Field7) - -- - -- During Sem and elaboration, the configuration field can be filled by - -- a component configuration declaration. - -- - -- Configuration for this component. - -- FIXME: must be get/set_binding_indication. - -- Get/Set_Component_Configuration (Field6) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Has_Component (Flag5) - - -- Iir_Kind_Block_Statement (Medium) - -- LRM08 11.2 Block statement - -- - -- block_statement ::= - -- block_label : - -- BLOCK [ ( guard_condition ) ] [ IS ] - -- block_header - -- block_declarative_part - -- BEGIN - -- block_statement_part - -- END BLOCK [ block_label ] ; - -- - -- Get/Set_Parent (Field0) - -- - -- get/set_guard_decl is used for semantic analysis, in order to add - -- a signal declaration. - -- Get/Set_Guard_Decl (Field8) - -- - -- Get/Set_Block_Header (Field7) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Concurrent_Statement_Chain (Field5) - -- - -- Get/Set_Block_Block_Configuration (Field6) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Generate_Statement_Body (Short) - -- LRM08 11.8 Generate statements - -- - -- generate_statement_body ::= - -- [ block_declarative_part - -- BEGIN ] - -- { concurrent_statement } - -- [ END [ alternative_label ] ; ] - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Declaration_Chain (Field1) - -- - -- The block configuration for this statement body. - -- Get/Set_Generate_Block_Configuration (Field2) - -- - -- Get/Set_Alternative_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Attribute_Value_Chain (Field4) - -- - -- Get/Set_Concurrent_Statement_Chain (Field5) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_Has_Label (Flag6) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Has_Begin (Flag10) - -- - -- Get/Set_Has_End (Flag11) - - -- Iir_Kind_For_Generate_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- The parameters specification is represented by an Iterator_Declaration. - -- Get/Set_Parameter_Specification (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Generate_Statement_Body (Field4) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_If_Generate_Else_Clause (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Null_Iir for the else clause. - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Generate_Statement_Body (Field4) - -- - -- Get/Set_Generate_Else_Clause (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_If_Generate_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Null_Iir for the else clause. - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Generate_Statement_Body (Field4) - -- - -- Get/Set_Generate_Else_Clause (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Case_Generate_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Chain is composed of Iir_Kind_Choice_By_XXX. - -- Get/Set_Case_Statement_Alternative_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Reserved_Id (Flag8) - -- - -- Get/Set_End_Has_Identifier (Flag9) - - -- Iir_Kind_Simple_Simultaneous_Statement (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Simultaneous_Left (Field5) - -- - -- Get/Set_Simultaneous_Right (Field6) - -- - -- Get/Set_Tolerance (Field7) - -- - -- Get/Set_Visible_Flag (Flag4) - - ---------------------------- - -- sequential statements -- - ---------------------------- - - -- Iir_Kind_If_Statement (Short) - -- Iir_Kind_Elsif (Short) - -- - -- LRM08 10.8 - -- if_statement ::= - -- [ /if/_label : ] - -- IF condition THEN - -- sequence_of_statements - -- { ELSIF condition THEN - -- sequence_of_statements } - -- [ ELSE - -- sequence_of_satements ] - -- END IF [ /if/_label ] ; - -- - -- Get/Set_Parent (Field0) - -- - -- Only for Iir_Kind_If_Statement: - -- Get/Set_Label (Field3) - -- - -- Only for Iir_Kind_If_Statement: - -- Get/Set_Identifier (Alias Field3) - -- - -- May be NULL only for an iir_kind_elsif node, and then means the else - -- clause. - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Sequential_Statement_Chain (Field5) - -- - -- Must be an Iir_kind_elsif node, or NULL for no more elsif clauses. - -- Get/Set_Else_Clause (Field4) - -- - -- Only for Iir_Kind_If_Statement: - -- Get/Set_Chain (Field2) - -- - -- Only for Iir_Kind_If_Statement: - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Only for Iir_Kind_If_Statement: - -- Get/Set_Suspend_Flag (Flag11) - -- - -- Get/Set_Is_Ref (Flag12) - - -- LRM08 10.10 Loop statement / LRM93 8.9 - -- - -- loop_statement ::= - -- [ loop_label : ] - -- [ iteration_scheme ] LOOP - -- sequence_of_statements - -- END LOOP [ loop_label ] ; - -- - -- iteration_scheme ::= - -- WHILE condition - -- | FOR loop_parameter_specification - -- - -- parameter_specification ::= - -- identifier IN discrete_range - - -- Iir_Kind_For_Loop_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- The parameters specification is represented by an Iterator_Declaration. - -- Get/Set_Parameter_Specification (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Sequential_Statement_Chain (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Within_Flag (Flag5) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Suspend_Flag (Flag11) - - -- Iir_Kind_While_Loop_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Sequential_Statement_Chain (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Suspend_Flag (Flag11) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Exit_Statement (Short) - -- Iir_Kind_Next_Statement (Short) - -- - -- LRM08 10.11 Next statement - -- - -- next_statement ::= - -- [ label : ] NEXT [ loop_label ] [ WHEN condition ] ; - -- - -- LRM08 10.12 Exit statement - -- - -- exit_statement ::= - -- [ label : ] exit [ loop_label ] [ when condition ] ; - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Condition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Loop_Label (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Simple_Signal_Assignment_Statement (Short) - -- Iir_Kind_Conditional_Signal_Assignment_Statement (Short) - -- Iir_Kind_Selected_Waveform_Assignment_Statement (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Target (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Reject_Time_Expression (Field4) - -- - -- Only for Iir_Kind_Simple_Signal_Assignment_Statement: - -- The waveform. - -- If the waveform_chain is null_iir, then the signal assignment is a - -- disconnection statement, ie TARGET <= null_iir after disconection_time, - -- where disconnection_time is specified by a disconnection specification. - -- Get/Set_Waveform_Chain (Field5) - -- - -- Only for Iir_Kind_Conditional_Signal_Assignment_Statement: - -- Get/Set_Conditional_Waveform_Chain (Field5) - -- - -- Only for Iir_Kind_Selected_Waveform_Assignment_Statement: - -- Get/Set_Expression (Field5) - -- - -- Only for Iir_Kind_Selected_Waveform_Assignment_Statement: - -- Get/Set_Selected_Waveform_Chain (Field7) - -- - -- Get/Set_Delay_Mechanism (Flag1) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- True if the target of the assignment is guarded - -- Get/Set_Guarded_Target_State (State1) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Variable_Assignment_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Target (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Conditional_Variable_Assignment_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Target (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Conditional_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Assertion_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Assertion_Condition (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Severity_Expression (Field4) - -- - -- Get/Set_Report_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Report_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Severity_Expression (Field4) - -- - -- Get/Set_Report_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Wait_Statement (Medium) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Timeout_Clause (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Condition_Clause (Field5) - -- - -- Get/Set_Sensitivity_List (Field6) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Is_Ref (Flag12) - - -- Iir_Kind_Return_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Type of the return value of the function. This is a copy of - -- return_type. - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - - -- Iir_Kind_Case_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Chain is composed of Iir_Kind_Choice_By_XXX. - -- Get/Set_Case_Statement_Alternative_Chain (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_End_Has_Identifier (Flag9) - -- - -- Get/Set_Suspend_Flag (Flag11) - - -- Iir_Kind_Procedure_Call_Statement (Short) - -- Iir_Kind_Concurrent_Procedure_Call_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Procedure_Call (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Only for Iir_Kind_Concurrent_Procedure_Call_Statement: - -- Get/Set_Postponed_Flag (Flag3) - -- - -- Get/Set_Visible_Flag (Flag4) - -- - -- Get/Set_Suspend_Flag (Flag11) - - -- Iir_Kind_Procedure_Call (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Parameter_Association_Chain (Field2) - -- - -- Procedure declaration corresponding to the procedure to call. - -- Get/Set_Implementation (Field3) - -- - -- Get/Set_Method_Object (Field4) - - -- Iir_Kind_Null_Statement (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_Label (Field3) - -- Get/Set_Identifier (Alias Field3) - -- - -- Get/Set_Visible_Flag (Flag4) - - ---------------- - -- operators -- - ---------------- - - -- Iir_Kinds_Monadic_Operator (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Operand (Field2) - -- - -- Function declaration corresponding to the function to call. - -- Get/Set_Implementation (Field3) - -- - -- Expr_staticness is defined by LRM93 7.4 - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kinds_Dyadic_Operator (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Left and Right operands. - -- Get/Set_Left (Field2) - -- - -- Function declaration corresponding to the function to call. - -- Get/Set_Implementation (Field3) - -- - -- Get/Set_Right (Field4) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Function_Call (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Parameter_Association_Chain (Field2) - -- - -- Function declaration corresponding to the function to call. - -- Get/Set_Implementation (Field3) - -- - -- Get/Set_Method_Object (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Aggregate (Short) - -- - -- Get/Set_Association_Choices_Chain (Field4) - -- - -- Same as Type, but marked as property of that node. - -- Get/Set_Literal_Subtype (Field3) - -- - -- Exist for symetry with other literals, but must never be set. The - -- content of the aggregate is modified during evaluation, not the - -- aggregate itself. - -- Get/Set_Literal_Origin (Field2) - -- - -- Get/Set_Aggregate_Info (Field5) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- If true, the aggregate can be statically built. This is an optimization - -- and the conditions are defined in sem_expr. - -- Get/Set_Aggregate_Expand_Flag (Flag1) - - -- Iir_Kind_Aggregate_Info (Short) - -- - -- Get info for the next dimension. NULL_IIR terminated. - -- Get/Set_Sub_Aggregate_Info (Field1) - -- - -- For array aggregate only: - -- If TRUE, the choices are not locally static. - -- This flag is only valid when the array aggregate is constrained, ie - -- has no 'others' choice. - -- Get/Set_Aggr_Dynamic_Flag (Flag3) - -- - -- If TRUE, the aggregate is named, else it is positionnal. - -- Get/Set_Aggr_Named_Flag (Flag4) - -- - -- The following three fields are used to check bounds of an array - -- aggregate. - -- For named aggregate, low and high bounds are computed, for positionnal - -- aggregate, the (minimum) number of elements is computed. - -- Note there may be elements beyond the bounds, due to other choice. - -- These fields may apply for the aggregate or for the aggregate and its - -- brothers if the node is for a sub-aggregate. - -- - -- The low and high index choice, if any. - -- Get/Set_Aggr_Low_Limit (Field2) - -- - -- Get/Set_Aggr_High_Limit (Field3) - -- - -- The minimum number of elements, if any. This is a minimax. - -- Get/Set_Aggr_Min_Length (Field4) - -- - -- True if the choice list has an 'others' choice. - -- Get/Set_Aggr_Others_Flag (Flag2) - - -- Iir_Kind_Parenthesis_Expression (Short) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Qualified_Expression (Short) - -- - -- LRM08 9.3.5 Qualified expressions - -- - -- qualified_expression ::= - -- type_mark ' ( expression ) - -- | type_mark ' aggregate - -- - -- Get/Set_Type_Mark (Field4) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Type_Conversion (Short) - -- - -- LRM08 9.3.6 Type conversions - -- - -- type_conversion ::= type_mark ( expression ) - -- - -- Get/Set_Type (Field1) - -- - -- If the type mark denotes an unconstrained array and the expression is - -- locally static, the result should be locally static according to vhdl93 - -- (which is not clear on that point). As a subtype is created, it is - -- referenced by this field. - -- Get/Set_Type_Conversion_Subtype (Field3) - -- - -- Get/Set_Type_Mark (Field4) - -- - -- Get/Set_Expression (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Allocator_By_Expression (Short) - -- Iir_Kind_Allocator_By_Subtype (Short) - -- - -- LRM08 9.3.7 Allocators - -- - -- allocator ::= - -- NEW subtype_indication - -- | NEW qualified_expression - -- - -- Get/Set_Type (Field1) - -- - -- Only for Iir_Kind_Allocator_By_Expression: - -- Contains the expression for a by expression allocator. - -- Get/Set_Expression (Field5) - -- - -- Only for Iir_Kind_Allocator_By_Subtype: - -- Contains the subtype indication for a by subtype allocator. - -- Get/Set_Subtype_Indication (Field5) - -- - -- Only for Iir_Kind_Allocator_By_Subtype: - -- Same as subtype indication but set when the allocator defines a new - -- subtype. Used to track when an anonymous subtype is created. - -- Get/Set_Allocator_Subtype (Field3) - -- - -- To ease analysis: set to the designated type (either the type of the - -- expression or the subtype) - -- Get/Set_Allocator_Designated_Type (Field2) - -- - -- Get/Set_Expr_Staticness (State1) - - ------------ - -- Names -- - ------------ - - -- Iir_Kind_Simple_Name (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Alias_Declaration (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Character_Literal (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Alias_Declaration (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Operator_Symbol (Short) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Alias_Declaration (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - - -- Iir_Kind_Reference_Name (Short) - -- - -- This doesn't correspond to a name in the sources. This is an artificial - -- name in the tree which is owned and reference another name. - -- - -- Get/Set_Named_Entity (Field4) - -- - -- The name from which the reference was created. Can be Null_Iir if the - -- reference was created directly from a declaration. - -- Get/Set_Referenced_Name (Field2) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - - -- Iir_Kind_Selected_Name (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Alias_Declaration (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_External_Constant_Name (Short) - -- Iir_Kind_External_Signal_Name (Short) - -- Iir_Kind_External_Variable_Name (Short) - -- - -- Get/Set_Parent (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Chain (Field2) - -- - -- Get/Set_External_Pathname (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Subtype_Indication (Field5) - -- - -- Only for Iir_Kind_External_Variable_Name: - -- Get/Set_Shared_Flag (Flag2) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Selected_By_All_Name (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - -- - -- Get/Set_Expr_Staticness (State1) - - -- Iir_Kind_Indexed_Name (Short) - -- Select the element designed with the INDEX_LIST from array PREFIX. - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Index_List (Field2) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Slice_Name (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Suffix (Field2) - -- - -- Get/Set_Slice_Subtype (Field3) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Parenthesis_Name (Short) - -- Created by the parser, and mutated into the correct iir node: it can be - -- either a function call, an indexed array, a type conversion or a slice - -- name. - -- - -- Get/Set_Prefix (Field0) - -- - -- Always returns null_iir. - -- Get/Set_Type (Field1) - -- - -- Get/Set_Association_Chain (Field2) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - - -- Iir_Kind_Selected_Element (Short) - -- A record element selection. This corresponds to a reffined selected - -- names. The production doesn't exist in the VHDL grammar. - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Identifier (Field3) - -- - -- The selected element. - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - -- - -- Always false. - -- Get/Set_Is_Forward_Ref (Flag1) - - -- Iir_Kind_Implicit_Dereference (Short) - -- Iir_Kind_Dereference (Short) - -- An implicit access dereference. - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Package_Pathname (Short) - -- This node represents only the library_logical_name. Package and object - -- simple_names are represented by Selected_Name. - -- - -- Get/Set_Pathname_Suffix (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - - -- Iir_Kind_Absolute_Pathname (Short) - -- Represents only the '.'. - -- - -- Get/Set_Pathname_Suffix (Field2) - - -- Iir_Kind_Relative_Pathname (Short) - -- Represents only one '^.' - -- - -- Get/Set_Pathname_Suffix (Field2) - - -- Iir_Kind_Pathname_Element (Short) - -- - -- Get/Set_Pathname_Suffix (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Pathname_Expression (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - - ----------------- - -- Attributes -- - ----------------- - - -- Iir_Kind_Attribute_Name (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Attribute_Signature (Field2) - -- - -- Get/Set_Identifier (Field3) - -- - -- Get/Set_Named_Entity (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Is_Forward_Ref (Flag1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Base_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - - -- Iir_Kind_Left_Type_Attribute (Short) - -- Iir_Kind_Right_Type_Attribute (Short) - -- Iir_Kind_High_Type_Attribute (Short) - -- Iir_Kind_Low_Type_Attribute (Short) - -- Iir_Kind_Ascending_Type_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Range_Array_Attribute (Short) - -- Iir_Kind_Reverse_Range_Array_Attribute (Short) - -- Iir_Kind_Left_Array_Attribute (Short) - -- Iir_Kind_Right_Array_Attribute (Short) - -- Iir_Kind_High_Array_Attribute (Short) - -- Iir_Kind_Low_Array_Attribute (Short) - -- Iir_Kind_Ascending_Array_Attribute (Short) - -- Iir_Kind_Length_Array_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Set only when known to be constrained. - -- Get/Set_Index_Subtype (Field2) - -- - -- Get/Set_Parameter (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Subtype_Attribute (Short) - -- Iir_Kind_Element_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Type_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Stable_Attribute (Short) - -- Iir_Kind_Delayed_Attribute (Short) - -- Iir_Kind_Quiet_Attribute (Short) - -- Iir_Kind_Transaction_Attribute (Short) - -- (Iir_Kinds_Signal_Attribute) - -- - -- Get/Set_Prefix (Field0) - -- - -- Not used by Iir_Kind_Transaction_Attribute - -- Get/Set_Parameter (Field4) - -- - -- Get/Set_Type (Field1) - -- - -- Next attribute signal in the chain owned by the - -- signal_attribute_declaration. Usual Get/Set_Chain is not used here as - -- the chain is composed only of forward references. - -- Get/Set_Attr_Chain (Field2) - -- - -- Head of the chain. Used only to ease the reconstruction of the chain. - -- Get/Set_Signal_Attribute_Declaration (Field3) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Has_Active_Flag (Flag2) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Event_Attribute (Short) - -- Iir_Kind_Last_Event_Attribute (Short) - -- Iir_Kind_Last_Value_Attribute (Short) - -- Iir_Kind_Active_Attribute (Short) - -- Iir_Kind_Last_Active_Attribute (Short) - -- Iir_Kind_Driving_Attribute (Short) - -- Iir_Kind_Driving_Value_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Pos_Attribute (Short) - -- Iir_Kind_Val_Attribute (Short) - -- Iir_Kind_Succ_Attribute (Short) - -- Iir_Kind_Pred_Attribute (Short) - -- Iir_Kind_Leftof_Attribute (Short) - -- Iir_Kind_Rightof_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Parameter (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Image_Attribute (Short) - -- Iir_Kind_Value_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Parameter (Field4) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Simple_Name_Attribute (Short) - -- Iir_Kind_Instance_Name_Attribute (Short) - -- Iir_Kind_Path_Name_Attribute (Short) - -- - -- Get/Set_Prefix (Field0) - -- - -- Only for Iir_Kind_Simple_Name_Attribute: - -- Get/Set_Simple_Name_Identifier (Field3) - -- - -- Only for Iir_Kind_Simple_Name_Attribute: - -- Get/Set_Simple_Name_Subtype (Field4) - -- - -- Get/Set_Type (Field1) - -- - -- Get/Set_Base_Name (Field5) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Name_Staticness (State2) - - -- Iir_Kind_Behavior_Attribute (Short) - -- Iir_Kind_Structure_Attribute (Short) - -- FIXME: to describe (Short) - - -- Iir_Kind_Error (Short) - -- Can be used instead of an expression or a type. - -- Get/Set_Type (Field1) - -- - -- Get/Set_Error_Origin (Field2) - -- - -- Get/Set_Type_Declarator (Field3) - -- - -- Get/Set_Base_Type (Field4) - -- - -- Get/Set_Expr_Staticness (State1) - -- - -- Get/Set_Type_Staticness (Alias State1) - -- - -- Get/Set_Resolved_Flag (Flag1) - -- - -- Get/Set_Signal_Type_Flag (Flag2) - -- - -- Get/Set_Has_Signal_Flag (Flag3) - - -- Iir_Kind_Unused (Short) - - -- End of Iir_Kind. - - - type Iir_Kind is - ( - Iir_Kind_Unused, - Iir_Kind_Error, - - Iir_Kind_Design_File, - Iir_Kind_Design_Unit, - Iir_Kind_Library_Clause, - Iir_Kind_Use_Clause, - Iir_Kind_Context_Reference, - - -- Literals. - Iir_Kind_Integer_Literal, - Iir_Kind_Floating_Point_Literal, - Iir_Kind_Null_Literal, - Iir_Kind_String_Literal8, - Iir_Kind_Physical_Int_Literal, - Iir_Kind_Physical_Fp_Literal, - Iir_Kind_Simple_Aggregate, - Iir_Kind_Overflow_Literal, - - Iir_Kind_Unaffected_Waveform, - - -- Tuple, - Iir_Kind_Waveform_Element, - Iir_Kind_Conditional_Waveform, - Iir_Kind_Conditional_Expression, - Iir_Kind_Association_Element_By_Expression, - Iir_Kind_Association_Element_By_Individual, - Iir_Kind_Association_Element_Open, - Iir_Kind_Association_Element_Package, - Iir_Kind_Association_Element_Type, - Iir_Kind_Association_Element_Subprogram, - Iir_Kind_Choice_By_Range, - Iir_Kind_Choice_By_Expression, - Iir_Kind_Choice_By_Others, - Iir_Kind_Choice_By_None, - Iir_Kind_Choice_By_Name, - Iir_Kind_Entity_Aspect_Entity, - Iir_Kind_Entity_Aspect_Configuration, - Iir_Kind_Entity_Aspect_Open, - Iir_Kind_Block_Configuration, - Iir_Kind_Block_Header, - Iir_Kind_Component_Configuration, - Iir_Kind_Binding_Indication, - Iir_Kind_Entity_Class, - Iir_Kind_Attribute_Value, - Iir_Kind_Signature, - Iir_Kind_Aggregate_Info, - Iir_Kind_Procedure_Call, - Iir_Kind_Record_Element_Constraint, - Iir_Kind_Array_Element_Resolution, - Iir_Kind_Record_Resolution, - Iir_Kind_Record_Element_Resolution, - - Iir_Kind_Attribute_Specification, - Iir_Kind_Disconnection_Specification, - Iir_Kind_Configuration_Specification, - - -- Type definitions. - -- iir_kinds_type_and_subtype_definition - -- kinds: disc: discrete, st: subtype. - Iir_Kind_Access_Type_Definition, - Iir_Kind_Incomplete_Type_Definition, - Iir_Kind_Interface_Type_Definition, - Iir_Kind_File_Type_Definition, - Iir_Kind_Protected_Type_Declaration, - Iir_Kind_Record_Type_Definition, -- composite - Iir_Kind_Array_Type_Definition, -- composite, array - Iir_Kind_Array_Subtype_Definition, -- composite, array, st - Iir_Kind_Record_Subtype_Definition, -- composite, st - Iir_Kind_Access_Subtype_Definition, -- st - Iir_Kind_Physical_Subtype_Definition, -- scalar, st, rng - Iir_Kind_Floating_Subtype_Definition, -- scalar, st, rng - Iir_Kind_Integer_Subtype_Definition, -- scalar, disc, st, rng - Iir_Kind_Enumeration_Subtype_Definition, -- scalar, disc, st, rng - Iir_Kind_Enumeration_Type_Definition, -- scalar, disc, rng - Iir_Kind_Integer_Type_Definition, -- scalar, disc - Iir_Kind_Floating_Type_Definition, -- scalar - Iir_Kind_Physical_Type_Definition, -- scalar - Iir_Kind_Range_Expression, - Iir_Kind_Protected_Type_Body, - Iir_Kind_Wildcard_Type_Definition, - Iir_Kind_Subtype_Definition, -- temporary (must not appear after sem). - - -- Nature definition - Iir_Kind_Scalar_Nature_Definition, - - -- Lists. - Iir_Kind_Overload_List, -- used internally by sem_expr. - - -- Declarations. - Iir_Kind_Type_Declaration, - Iir_Kind_Anonymous_Type_Declaration, - Iir_Kind_Subtype_Declaration, - Iir_Kind_Nature_Declaration, - Iir_Kind_Subnature_Declaration, - Iir_Kind_Entity_Declaration, - Iir_Kind_Configuration_Declaration, - Iir_Kind_Context_Declaration, - Iir_Kind_Package_Declaration, - Iir_Kind_Package_Instantiation_Declaration, - Iir_Kind_Package_Body, - Iir_Kind_Architecture_Body, - Iir_Kind_Package_Header, - Iir_Kind_Unit_Declaration, - Iir_Kind_Library_Declaration, - Iir_Kind_Component_Declaration, - Iir_Kind_Attribute_Declaration, - Iir_Kind_Group_Template_Declaration, - Iir_Kind_Group_Declaration, - Iir_Kind_Element_Declaration, - Iir_Kind_Non_Object_Alias_Declaration, - - Iir_Kind_Psl_Declaration, - Iir_Kind_Psl_Endpoint_Declaration, - Iir_Kind_Terminal_Declaration, - Iir_Kind_Free_Quantity_Declaration, - Iir_Kind_Across_Quantity_Declaration, - Iir_Kind_Through_Quantity_Declaration, - - Iir_Kind_Enumeration_Literal, - Iir_Kind_Function_Declaration, -- Subprg, Func - Iir_Kind_Procedure_Declaration, -- Subprg, Proc - Iir_Kind_Function_Body, - Iir_Kind_Procedure_Body, - - Iir_Kind_Object_Alias_Declaration, -- object - Iir_Kind_File_Declaration, -- object - Iir_Kind_Guard_Signal_Declaration, -- object - Iir_Kind_Signal_Declaration, -- object - Iir_Kind_Variable_Declaration, -- object - Iir_Kind_Constant_Declaration, -- object - Iir_Kind_Iterator_Declaration, -- object - Iir_Kind_Interface_Constant_Declaration, -- object, interface - Iir_Kind_Interface_Variable_Declaration, -- object, interface - Iir_Kind_Interface_Signal_Declaration, -- object, interface - Iir_Kind_Interface_File_Declaration, -- object, interface - Iir_Kind_Interface_Type_Declaration, -- interface - Iir_Kind_Interface_Package_Declaration, -- interface - Iir_Kind_Interface_Function_Declaration, -- interface - Iir_Kind_Interface_Procedure_Declaration, -- interface - - Iir_Kind_Signal_Attribute_Declaration, - - -- Expressions. - Iir_Kind_Identity_Operator, - Iir_Kind_Negation_Operator, - Iir_Kind_Absolute_Operator, - Iir_Kind_Not_Operator, - Iir_Kind_Implicit_Condition_Operator, - Iir_Kind_Condition_Operator, - Iir_Kind_Reduction_And_Operator, - Iir_Kind_Reduction_Or_Operator, - Iir_Kind_Reduction_Nand_Operator, - Iir_Kind_Reduction_Nor_Operator, - Iir_Kind_Reduction_Xor_Operator, - Iir_Kind_Reduction_Xnor_Operator, - Iir_Kind_And_Operator, - Iir_Kind_Or_Operator, - Iir_Kind_Nand_Operator, - Iir_Kind_Nor_Operator, - Iir_Kind_Xor_Operator, - Iir_Kind_Xnor_Operator, - Iir_Kind_Equality_Operator, - Iir_Kind_Inequality_Operator, - Iir_Kind_Less_Than_Operator, - Iir_Kind_Less_Than_Or_Equal_Operator, - Iir_Kind_Greater_Than_Operator, - Iir_Kind_Greater_Than_Or_Equal_Operator, - Iir_Kind_Match_Equality_Operator, - Iir_Kind_Match_Inequality_Operator, - Iir_Kind_Match_Less_Than_Operator, - Iir_Kind_Match_Less_Than_Or_Equal_Operator, - Iir_Kind_Match_Greater_Than_Operator, - Iir_Kind_Match_Greater_Than_Or_Equal_Operator, - Iir_Kind_Sll_Operator, - Iir_Kind_Sla_Operator, - Iir_Kind_Srl_Operator, - Iir_Kind_Sra_Operator, - Iir_Kind_Rol_Operator, - Iir_Kind_Ror_Operator, - Iir_Kind_Addition_Operator, - Iir_Kind_Substraction_Operator, - Iir_Kind_Concatenation_Operator, - Iir_Kind_Multiplication_Operator, - Iir_Kind_Division_Operator, - Iir_Kind_Modulus_Operator, - Iir_Kind_Remainder_Operator, - Iir_Kind_Exponentiation_Operator, - Iir_Kind_Function_Call, - Iir_Kind_Aggregate, - Iir_Kind_Parenthesis_Expression, - Iir_Kind_Qualified_Expression, - Iir_Kind_Type_Conversion, - Iir_Kind_Allocator_By_Expression, - Iir_Kind_Allocator_By_Subtype, - Iir_Kind_Selected_Element, - Iir_Kind_Dereference, - Iir_Kind_Implicit_Dereference, - Iir_Kind_Slice_Name, - Iir_Kind_Indexed_Name, - Iir_Kind_Psl_Expression, - - -- Concurrent statements. - Iir_Kind_Sensitized_Process_Statement, - Iir_Kind_Process_Statement, - Iir_Kind_Concurrent_Simple_Signal_Assignment, - Iir_Kind_Concurrent_Conditional_Signal_Assignment, - Iir_Kind_Concurrent_Selected_Signal_Assignment, - Iir_Kind_Concurrent_Assertion_Statement, - Iir_Kind_Concurrent_Procedure_Call_Statement, - Iir_Kind_Psl_Assert_Statement, - Iir_Kind_Psl_Cover_Statement, - Iir_Kind_Block_Statement, - Iir_Kind_If_Generate_Statement, - Iir_Kind_Case_Generate_Statement, - Iir_Kind_For_Generate_Statement, - Iir_Kind_Component_Instantiation_Statement, - - Iir_Kind_Psl_Default_Clock, - - Iir_Kind_Simple_Simultaneous_Statement, - - Iir_Kind_Generate_Statement_Body, - Iir_Kind_If_Generate_Else_Clause, - - -- Iir_Kind_Sequential_Statement - Iir_Kind_Simple_Signal_Assignment_Statement, - Iir_Kind_Conditional_Signal_Assignment_Statement, - Iir_Kind_Selected_Waveform_Assignment_Statement, - Iir_Kind_Null_Statement, - Iir_Kind_Assertion_Statement, - Iir_Kind_Report_Statement, - Iir_Kind_Wait_Statement, - Iir_Kind_Variable_Assignment_Statement, - Iir_Kind_Conditional_Variable_Assignment_Statement, - Iir_Kind_Return_Statement, - Iir_Kind_For_Loop_Statement, - Iir_Kind_While_Loop_Statement, - Iir_Kind_Next_Statement, - Iir_Kind_Exit_Statement, - Iir_Kind_Case_Statement, - Iir_Kind_Procedure_Call_Statement, - Iir_Kind_If_Statement, - Iir_Kind_Elsif, - - -- Names - Iir_Kind_Character_Literal, -- denoting_name - Iir_Kind_Simple_Name, -- denoting_name - Iir_Kind_Selected_Name, -- denoting_name - Iir_Kind_Operator_Symbol, -- denoting_name - Iir_Kind_Reference_Name, -- denoting_name - - Iir_Kind_External_Constant_Name, - Iir_Kind_External_Signal_Name, - Iir_Kind_External_Variable_Name, - - Iir_Kind_Selected_By_All_Name, - Iir_Kind_Parenthesis_Name, - - Iir_Kind_Package_Pathname, - Iir_Kind_Absolute_Pathname, - Iir_Kind_Relative_Pathname, - Iir_Kind_Pathname_Element, - - -- Attributes - Iir_Kind_Base_Attribute, - Iir_Kind_Subtype_Attribute, - Iir_Kind_Element_Attribute, - Iir_Kind_Left_Type_Attribute, -- type_attribute - Iir_Kind_Right_Type_Attribute, -- type_attribute - Iir_Kind_High_Type_Attribute, -- type_attribute - Iir_Kind_Low_Type_Attribute, -- type_attribute - Iir_Kind_Ascending_Type_Attribute, -- type_attribute - Iir_Kind_Image_Attribute, - Iir_Kind_Value_Attribute, - Iir_Kind_Pos_Attribute, -- scalar_type_attribute - Iir_Kind_Val_Attribute, -- scalar_type_attribute - Iir_Kind_Succ_Attribute, -- scalar_type_attribute - Iir_Kind_Pred_Attribute, -- scalar_type_attribute - Iir_Kind_Leftof_Attribute, -- scalar_type_attribute - Iir_Kind_Rightof_Attribute, -- scalar_type_attribute - Iir_Kind_Delayed_Attribute, -- signal_attribute - Iir_Kind_Stable_Attribute, -- signal_attribute - Iir_Kind_Quiet_Attribute, -- signal_attribute - Iir_Kind_Transaction_Attribute, -- signal_attribute - Iir_Kind_Event_Attribute, -- signal_value_attribute - Iir_Kind_Active_Attribute, -- signal_value_attribute - Iir_Kind_Last_Event_Attribute, -- signal_value_attribute - Iir_Kind_Last_Active_Attribute, -- signal_value_attribute - Iir_Kind_Last_Value_Attribute, -- signal_value_attribute - Iir_Kind_Driving_Attribute, -- signal_value_attribute - Iir_Kind_Driving_Value_Attribute, -- signal_value_attribute - Iir_Kind_Behavior_Attribute, - Iir_Kind_Structure_Attribute, - Iir_Kind_Simple_Name_Attribute, - Iir_Kind_Instance_Name_Attribute, - Iir_Kind_Path_Name_Attribute, - Iir_Kind_Left_Array_Attribute, -- array_attribute - Iir_Kind_Right_Array_Attribute, -- array_attribute - Iir_Kind_High_Array_Attribute, -- array_attribute - Iir_Kind_Low_Array_Attribute, -- array_attribute - Iir_Kind_Length_Array_Attribute, -- array_attribute - Iir_Kind_Ascending_Array_Attribute, -- array_attribute - Iir_Kind_Range_Array_Attribute, -- array_attribute - Iir_Kind_Reverse_Range_Array_Attribute, -- array_attribute - - Iir_Kind_Attribute_Name - ); - - -- Return TRUE iif K is K1 or K is K2. - function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean; - pragma Inline (Kind_In); - - type Iir_Signal_Kind is - ( - Iir_Register_Kind, - Iir_Bus_Kind - ); - - -- If the order of elements in IIR_MODE is modified, also modify the - -- order in GRT (types and rtis). - type Iir_Mode is - ( - Iir_Unknown_Mode, - Iir_Linkage_Mode, - Iir_Buffer_Mode, - Iir_Out_Mode, - Iir_Inout_Mode, - Iir_In_Mode - ); - - subtype Iir_In_Modes is Iir_Mode range Iir_Inout_Mode .. Iir_In_Mode; - subtype Iir_Out_Modes is Iir_Mode range Iir_Out_Mode .. Iir_Inout_Mode; - subtype Iir_Parameter_Modes is Iir_Mode range Iir_Out_Mode .. Iir_In_Mode; - - type Iir_Delay_Mechanism is - ( - Iir_Inertial_Delay, - Iir_Transport_Delay - ); - - type Iir_Direction is - ( - Iir_To, - Iir_Downto - ); - - -- LRM93 2.7 (conformance rules). - -- To keep this simple, the layout is stored as a bit-string. - -- Fields are: - -- Get_Has_type: set if the interface is the last of a list. - -- Get_Has_Mode: set if mode is explicit - -- has_class: set if class (constant, signal, variable or file) is explicit - -- - -- Exemple: - -- procedure P ( A, B: integer; - -- constant C: in bit; - -- D: inout bit; - -- variable E: bit; - -- F, G: in bit; - -- constant H, I: bit; - -- constant J, K: in bit); - -- A: - -- B: has_type - -- C, has_class, has_mode, has_type - -- D: has_mode, has_type - -- E, has_class, has_type - -- F: has_mode - -- G: has_mode, has_type - -- H: has_class - -- I: has_class, has_type - -- J: has_class, has_mode - -- K: has_class, has_mode, has_type - - -- List of predefined operators and functions. - type Iir_Predefined_Functions is - ( - Iir_Predefined_Error, - - -- Predefined operators for BOOLEAN type - - -- LRM08 9.2.2 Logical Operators - Iir_Predefined_Boolean_And, - Iir_Predefined_Boolean_Or, - Iir_Predefined_Boolean_Nand, - Iir_Predefined_Boolean_Nor, - Iir_Predefined_Boolean_Xor, - Iir_Predefined_Boolean_Xnor, - Iir_Predefined_Boolean_Not, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Boolean_Rising_Edge, - Iir_Predefined_Boolean_Falling_Edge, - - -- Predefined operators for any enumeration type. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Enum_Equality, - Iir_Predefined_Enum_Inequality, - Iir_Predefined_Enum_Less, - Iir_Predefined_Enum_Less_Equal, - Iir_Predefined_Enum_Greater, - Iir_Predefined_Enum_Greater_Equal, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Enum_Minimum, - Iir_Predefined_Enum_Maximum, - Iir_Predefined_Enum_To_String, - - -- Predefined operators for BIT type. - - -- LRM08 9.2.2 Logical Operators - Iir_Predefined_Bit_And, - Iir_Predefined_Bit_Or, - Iir_Predefined_Bit_Nand, - Iir_Predefined_Bit_Nor, - Iir_Predefined_Bit_Xor, - Iir_Predefined_Bit_Xnor, - Iir_Predefined_Bit_Not, - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Bit_Match_Equality, - Iir_Predefined_Bit_Match_Inequality, - Iir_Predefined_Bit_Match_Less, - Iir_Predefined_Bit_Match_Less_Equal, - Iir_Predefined_Bit_Match_Greater, - Iir_Predefined_Bit_Match_Greater_Equal, - - -- LRM08 9.2.9 Condition operator - Iir_Predefined_Bit_Condition, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Bit_Rising_Edge, - Iir_Predefined_Bit_Falling_Edge, - - -- Predefined operators for any integer type. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Integer_Equality, - Iir_Predefined_Integer_Inequality, - Iir_Predefined_Integer_Less, - Iir_Predefined_Integer_Less_Equal, - Iir_Predefined_Integer_Greater, - Iir_Predefined_Integer_Greater_Equal, - - -- LRM08 9.2.6 Sign operators - Iir_Predefined_Integer_Identity, - Iir_Predefined_Integer_Negation, - - -- LRM08 9.2.8 Miscellaneous operators - Iir_Predefined_Integer_Absolute, - - -- LRM08 9.2.5 Adding operators - Iir_Predefined_Integer_Plus, - Iir_Predefined_Integer_Minus, - - -- LRM08 9.2.7 Multiplying operators - Iir_Predefined_Integer_Mul, - Iir_Predefined_Integer_Div, - Iir_Predefined_Integer_Mod, - Iir_Predefined_Integer_Rem, - - -- LRM08 9.2.8 Miscellaneous operators - Iir_Predefined_Integer_Exp, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Integer_Minimum, - Iir_Predefined_Integer_Maximum, - Iir_Predefined_Integer_To_String, - - -- Predefined operators for any floating type. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Floating_Equality, - Iir_Predefined_Floating_Inequality, - Iir_Predefined_Floating_Less, - Iir_Predefined_Floating_Less_Equal, - Iir_Predefined_Floating_Greater, - Iir_Predefined_Floating_Greater_Equal, - - -- LRM08 9.2.6 Sign operators - Iir_Predefined_Floating_Identity, - Iir_Predefined_Floating_Negation, - - -- LRM08 9.2.8 Miscellaneous operators - Iir_Predefined_Floating_Absolute, - - -- LRM08 9.2.5 Adding operators - Iir_Predefined_Floating_Plus, - Iir_Predefined_Floating_Minus, - - -- LRM08 9.2.7 Multiplying operators - Iir_Predefined_Floating_Mul, - Iir_Predefined_Floating_Div, - - -- LRM08 9.2.8 Miscellaneous operators - Iir_Predefined_Floating_Exp, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Floating_Minimum, - Iir_Predefined_Floating_Maximum, - Iir_Predefined_Floating_To_String, - Iir_Predefined_Real_To_String_Digits, - Iir_Predefined_Real_To_String_Format, - - -- Predefined operator for universal types. - - -- LRM08 9.2.7 Multiplying operators - Iir_Predefined_Universal_R_I_Mul, - Iir_Predefined_Universal_I_R_Mul, - Iir_Predefined_Universal_R_I_Div, - - -- Predefined operators for physical types. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Physical_Equality, - Iir_Predefined_Physical_Inequality, - Iir_Predefined_Physical_Less, - Iir_Predefined_Physical_Less_Equal, - Iir_Predefined_Physical_Greater, - Iir_Predefined_Physical_Greater_Equal, - - -- LRM08 9.2.6 Sign operators - Iir_Predefined_Physical_Identity, - Iir_Predefined_Physical_Negation, - - -- LRM08 9.2.8 Miscellaneous operators - Iir_Predefined_Physical_Absolute, - - -- LRM08 9.2.5 Adding operators - Iir_Predefined_Physical_Plus, - Iir_Predefined_Physical_Minus, - - -- LRM08 9.2.7 Multiplying operators - Iir_Predefined_Physical_Integer_Mul, - Iir_Predefined_Physical_Real_Mul, - Iir_Predefined_Integer_Physical_Mul, - Iir_Predefined_Real_Physical_Mul, - Iir_Predefined_Physical_Integer_Div, - Iir_Predefined_Physical_Real_Div, - Iir_Predefined_Physical_Physical_Div, - - -- LRM08 5.2.6 Predefined operations on scalar types. - Iir_Predefined_Physical_Minimum, - Iir_Predefined_Physical_Maximum, - Iir_Predefined_Physical_To_String, - Iir_Predefined_Time_To_String_Unit, - - -- Predefined operators for access. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Access_Equality, - Iir_Predefined_Access_Inequality, - - -- Predefined operators for record. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Record_Equality, - Iir_Predefined_Record_Inequality, - - -- Predefined operators for array. - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Array_Equality, - Iir_Predefined_Array_Inequality, - Iir_Predefined_Array_Less, - Iir_Predefined_Array_Less_Equal, - Iir_Predefined_Array_Greater, - Iir_Predefined_Array_Greater_Equal, - - -- LRM08 9.2.5 Adding operators - Iir_Predefined_Array_Array_Concat, - Iir_Predefined_Array_Element_Concat, - Iir_Predefined_Element_Array_Concat, - Iir_Predefined_Element_Element_Concat, - - -- LRM08 5.3.2.4 Predefined operations on array types - Iir_Predefined_Array_Minimum, - Iir_Predefined_Array_Maximum, - Iir_Predefined_Vector_Minimum, - Iir_Predefined_Vector_Maximum, - - -- LRM08 9.2.4 Shift operators - Iir_Predefined_Array_Sll, - Iir_Predefined_Array_Srl, - Iir_Predefined_Array_Sla, - Iir_Predefined_Array_Sra, - Iir_Predefined_Array_Rol, - Iir_Predefined_Array_Ror, - - -- LRM08 9.2.2 Logical operators - -- Predefined operators for one dimensional array. - -- For bit and boolean type, the operations are the same. To be - -- neutral, we use TF (for True/False) instead of Bit, Boolean or - -- Logic. - Iir_Predefined_TF_Array_And, - Iir_Predefined_TF_Array_Or, - Iir_Predefined_TF_Array_Nand, - Iir_Predefined_TF_Array_Nor, - Iir_Predefined_TF_Array_Xor, - Iir_Predefined_TF_Array_Xnor, - Iir_Predefined_TF_Array_Not, - - -- LRM08 9.2.2 Logical operators - Iir_Predefined_TF_Reduction_And, - Iir_Predefined_TF_Reduction_Or, - Iir_Predefined_TF_Reduction_Nand, - Iir_Predefined_TF_Reduction_Nor, - Iir_Predefined_TF_Reduction_Xor, - Iir_Predefined_TF_Reduction_Xnor, - Iir_Predefined_TF_Reduction_Not, - - -- LRM08 9.2.2 Logical operators - Iir_Predefined_TF_Array_Element_And, - Iir_Predefined_TF_Element_Array_And, - Iir_Predefined_TF_Array_Element_Or, - Iir_Predefined_TF_Element_Array_Or, - Iir_Predefined_TF_Array_Element_Nand, - Iir_Predefined_TF_Element_Array_Nand, - Iir_Predefined_TF_Array_Element_Nor, - Iir_Predefined_TF_Element_Array_Nor, - Iir_Predefined_TF_Array_Element_Xor, - Iir_Predefined_TF_Element_Array_Xor, - Iir_Predefined_TF_Array_Element_Xnor, - Iir_Predefined_TF_Element_Array_Xnor, - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Bit_Array_Match_Equality, - Iir_Predefined_Bit_Array_Match_Inequality, - - -- LRM08 5.3.2.4 Predefined operations on array types - Iir_Predefined_Array_Char_To_String, - Iir_Predefined_Bit_Vector_To_Ostring, - Iir_Predefined_Bit_Vector_To_Hstring, - - -- LRM08 9.2.3 Relational Operators - -- IEEE.Std_Logic_1164.Std_Ulogic - Iir_Predefined_Std_Ulogic_Match_Equality, - Iir_Predefined_Std_Ulogic_Match_Inequality, - Iir_Predefined_Std_Ulogic_Match_Less, - Iir_Predefined_Std_Ulogic_Match_Less_Equal, - Iir_Predefined_Std_Ulogic_Match_Greater, - Iir_Predefined_Std_Ulogic_Match_Greater_Equal, - - -- LRM08 9.2.3 Relational Operators - Iir_Predefined_Std_Ulogic_Array_Match_Equality, - Iir_Predefined_Std_Ulogic_Array_Match_Inequality, - - -- -- Predefined attribute functions. - -- Iir_Predefined_Attribute_Image, - -- Iir_Predefined_Attribute_Value, - -- Iir_Predefined_Attribute_Pos, - -- Iir_Predefined_Attribute_Val, - -- Iir_Predefined_Attribute_Succ, - -- Iir_Predefined_Attribute_Pred, - -- Iir_Predefined_Attribute_Leftof, - -- Iir_Predefined_Attribute_Rightof, - -- Iir_Predefined_Attribute_Left, - -- Iir_Predefined_Attribute_Right, - -- Iir_Predefined_Attribute_Event, - -- Iir_Predefined_Attribute_Active, - -- Iir_Predefined_Attribute_Last_Event, - -- Iir_Predefined_Attribute_Last_Active, - -- Iir_Predefined_Attribute_Last_Value, - -- Iir_Predefined_Attribute_Driving, - -- Iir_Predefined_Attribute_Driving_Value, - - -- Impure subprograms. - - -- LRM08 5.4.3 Allocation and deallocation of objects - Iir_Predefined_Deallocate, - - -- LRM08 5.5.2 File operations - Iir_Predefined_File_Open, - Iir_Predefined_File_Open_Status, - Iir_Predefined_File_Close, - Iir_Predefined_Read, - Iir_Predefined_Read_Length, - Iir_Predefined_Flush, - Iir_Predefined_Write, - Iir_Predefined_Endfile, - - -- Misc impure functions. - Iir_Predefined_Now_Function, - - -- A not predefined and not known function. User function. - Iir_Predefined_None, - - -- Defined in package ieee.std_logic_1164 - - -- Std_Ulogic operations. - Iir_Predefined_Ieee_1164_Scalar_And, - Iir_Predefined_Ieee_1164_Scalar_Nand, - Iir_Predefined_Ieee_1164_Scalar_Or, - Iir_Predefined_Ieee_1164_Scalar_Nor, - Iir_Predefined_Ieee_1164_Scalar_Xor, - Iir_Predefined_Ieee_1164_Scalar_Xnor, - Iir_Predefined_Ieee_1164_Scalar_Not, - - -- Std_Logic_Vector or Std_Ulogic_Vector operations. - -- Length of the result is the length of the left operand. - Iir_Predefined_Ieee_1164_Vector_And, - Iir_Predefined_Ieee_1164_Vector_Nand, - Iir_Predefined_Ieee_1164_Vector_Or, - Iir_Predefined_Ieee_1164_Vector_Nor, - Iir_Predefined_Ieee_1164_Vector_Xor, - Iir_Predefined_Ieee_1164_Vector_Xnor, - Iir_Predefined_Ieee_1164_Vector_Not, - - -- Numeric_Std. - -- Abbreviations: - -- Uns: Unsigned, Sgn: Signed, Nat: Natural, Int: Integer. - Iir_Predefined_Ieee_Numeric_Std_Add_Uns_Uns, - Iir_Predefined_Ieee_Numeric_Std_Add_Uns_Nat, - Iir_Predefined_Ieee_Numeric_Std_Add_Nat_Uns, - Iir_Predefined_Ieee_Numeric_Std_Add_Sgn_Sgn, - Iir_Predefined_Ieee_Numeric_Std_Add_Sgn_Int, - Iir_Predefined_Ieee_Numeric_Std_Add_Int_Sgn, - - Iir_Predefined_Ieee_Numeric_Std_Eq_Uns_Uns, - Iir_Predefined_Ieee_Numeric_Std_Eq_Uns_Nat, - Iir_Predefined_Ieee_Numeric_Std_Eq_Nat_Uns, - Iir_Predefined_Ieee_Numeric_Std_Eq_Sgn_Sgn, - Iir_Predefined_Ieee_Numeric_Std_Eq_Sgn_Int, - Iir_Predefined_Ieee_Numeric_Std_Eq_Int_Sgn - ); - - -- Return TRUE iff FUNC is a short-cut predefined function. - function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) - return Boolean; - - -- Pure and impure functions form a partition of implicit functions. - subtype Iir_Predefined_Pure_Functions is Iir_Predefined_Functions range - Iir_Predefined_Boolean_And .. - Iir_Predefined_Functions'Pred (Iir_Predefined_Deallocate); - subtype Iir_Predefined_Impure_Functions is Iir_Predefined_Functions range - Iir_Predefined_Deallocate .. - Iir_Predefined_Functions'Pred (Iir_Predefined_None); - - subtype Iir_Predefined_TF_Array_Functions - is Iir_Predefined_Functions range - Iir_Predefined_TF_Array_And .. - --Iir_Predefined_TF_Array_Or - --Iir_Predefined_TF_Array_Nand - --Iir_Predefined_TF_Array_Nor - --Iir_Predefined_TF_Array_Xor - --Iir_Predefined_TF_Array_Xnor - Iir_Predefined_TF_Array_Not; - - subtype Iir_Predefined_Dyadic_TF_Array_Functions - is Iir_Predefined_Functions range - Iir_Predefined_TF_Array_And .. - --Iir_Predefined_TF_Array_Or - --Iir_Predefined_TF_Array_Nand - --Iir_Predefined_TF_Array_Nor - --Iir_Predefined_TF_Array_Xor - Iir_Predefined_TF_Array_Xnor; - - subtype Iir_Predefined_Shift_Functions is Iir_Predefined_Functions range - Iir_Predefined_Array_Sll .. - --Iir_Predefined_Array_Srl - --Iir_Predefined_Array_Sla - --Iir_Predefined_Array_Sra - --Iir_Predefined_Array_Rol - Iir_Predefined_Array_Ror; - - subtype Iir_Predefined_Concat_Functions is Iir_Predefined_Functions range - Iir_Predefined_Array_Array_Concat .. - --Iir_Predefined_Array_Element_Concat - --Iir_Predefined_Element_Array_Concat - Iir_Predefined_Element_Element_Concat; - - subtype Iir_Predefined_Std_Ulogic_Match_Ordering_Functions is - Iir_Predefined_Functions range - Iir_Predefined_Std_Ulogic_Match_Less .. - --Iir_Predefined_Std_Ulogic_Match_Less_Equal - --Iir_Predefined_Std_Ulogic_Match_Greater - Iir_Predefined_Std_Ulogic_Match_Greater_Equal; - - -- Subtype for implicit subprograms. These have no corresponding bodies. - -- Implicit and explicit subprograms are partitions: they are disjoint - -- and cover all the cases. - subtype Iir_Predefined_Implicit is Iir_Predefined_Functions range - Iir_Predefined_Error .. - Iir_Predefined_Functions'Pred (Iir_Predefined_None); - - -- Subtype for exlicit subprograms. These require a corresponding body. - subtype Iir_Predefined_Explicit is Iir_Predefined_Functions range - Iir_Predefined_None .. - Iir_Predefined_Functions'Last; - - -- Explicit known subprograms (from ieee) - subtype Iir_Predefined_IEEE_Explicit is Iir_Predefined_Functions range - Iir_Predefined_Functions'Succ (Iir_Predefined_None) .. - Iir_Predefined_Functions'Last; - - -- Staticness as defined by LRM93 6.1 and 7.4 - type Iir_Staticness is - ( - Unknown, - None, - Globally, - Locally - ); - - -- Staticness as defined by LRM93 6.1 and 7.4 - function Min (L,R: Iir_Staticness) return Iir_Staticness renames - Iir_Staticness'Min; - - -- Purity state of a procedure. - -- PURE means the procedure is pure. - -- IMPURE means the procedure is impure: it references a file object or - -- a signal or a variable declared outside a subprogram, or it calls an - -- impure subprogram. - -- MAYBE_IMPURE means the procedure references a signal or a variable - -- declared in a subprogram. The relative position of a parent has to - -- be considered. The list of callees must not be checked. - -- UNKNOWN is like MAYBE_IMPURE, but the subprogram has a list of callees - -- whose purity is not yet known. As a consequence, a direct or - -- indirect call to such a procedure cannot be proved to be allowed - -- in a pure function. - -- Note: UNKNOWN is the default state. At any impure call, the state is - -- set to IMPURE. Only at the end of body analysis and only if the - -- callee list is empty, the state can be set either to MAYBE_IMPURE or - -- PURE. - type Iir_Pure_State is (Unknown, Pure, Maybe_Impure, Impure); - - -- State of subprograms for validity of use in all-sensitized process. - -- INVALID_SIGNAL means that the subprogram is in a package and - -- reads a signal or that the subprogram calls (indirectly) such - -- a subprogram. In this case, the subprogram cannot be called from - -- an all-sensitized process. - -- READ_SIGNAL means that the subprogram reads a signal and is defined - -- in an entity or an architecture or that the subprogram calls - -- (indirectly) such a subprogram. In this case, the subprogram can - -- be called from an all-sensitized process and the reference will be - -- part of the sensitivity list. - -- NO_SIGNAL means that the subprogram doesn't read any signal and don't - -- call such a subprogram. The subprogram can be called from an - -- all-sensitized process but there is no need to track this call. - -- UNKNOWN means that the state is not yet defined. - type Iir_All_Sensitized is - (Unknown, No_Signal, Read_Signal, Invalid_Signal); - - -- Constraint state of a type. - -- See LRM08 5.1 for definition. - type Iir_Constraint is - ( - Unconstrained, - Partially_Constrained, - Fully_Constrained - ); - - -- The kind of an inteface list. - type Interface_Kind_Type is - ( - Generic_Interface_List, - Port_Interface_List, - Procedure_Parameter_Interface_List, - Function_Parameter_Interface_List - ); - subtype Parameter_Interface_List is Interface_Kind_Type range - Procedure_Parameter_Interface_List .. - Function_Parameter_Interface_List; - - --------------- - -- subranges -- - --------------- - -- These subtypes are used for ranges, for `case' statments or for the `in' - -- operator. - - -- In order to be correctly parsed by check_iir, the declaration must - -- follow these rules: - -- * the first line must be "subtype Iir_Kinds_NAME is Iir_Kind_range" - -- * the second line must be the lowest bound of the range, followed by ".. - -- * comments line - -- * the last line must be the highest bound of the range, followed by ";" - - subtype Iir_Kinds_Library_Unit is Iir_Kind range - Iir_Kind_Entity_Declaration .. - --Iir_Kind_Configuration_Declaration - --Iir_Kind_Context_Declaration - --Iir_Kind_Package_Declaration - --Iir_Kind_Package_Instantiation_Declaration - --Iir_Kind_Package_Body - Iir_Kind_Architecture_Body; - - subtype Iir_Kinds_Primary_Unit is Iir_Kind range - Iir_Kind_Entity_Declaration .. - --Iir_Kind_Configuration_Declaration - --Iir_Kind_Context_Declaration - --Iir_Kind_Package_Declaration - Iir_Kind_Package_Instantiation_Declaration; - - subtype Iir_Kinds_Secondary_Unit is Iir_Kind range - Iir_Kind_Package_Body .. - Iir_Kind_Architecture_Body; - - subtype Iir_Kinds_Package_Declaration is Iir_Kind range - Iir_Kind_Package_Declaration .. - Iir_Kind_Package_Instantiation_Declaration; - - -- Note: does not include iir_kind_enumeration_literal since it is - -- considered as a declaration. - subtype Iir_Kinds_Literal is Iir_Kind range - Iir_Kind_Integer_Literal .. - --Iir_Kind_Floating_Point_Literal - --Iir_Kind_Null_Literal - --Iir_Kind_String_Literal8 - --Iir_Kind_Physical_Int_Literal - Iir_Kind_Physical_Fp_Literal; - - subtype Iir_Kinds_Physical_Literal is Iir_Kind range - Iir_Kind_Physical_Int_Literal .. - Iir_Kind_Physical_Fp_Literal; - - subtype Iir_Kinds_Array_Type_Definition is Iir_Kind range - Iir_Kind_Array_Type_Definition .. - Iir_Kind_Array_Subtype_Definition; - - subtype Iir_Kinds_Type_And_Subtype_Definition is Iir_Kind range - Iir_Kind_Access_Type_Definition .. - --Iir_Kind_Incomplete_Type_Definition - --Iir_Kind_Interface_Type_Definition - --Iir_Kind_File_Type_Definition - --Iir_Kind_Protected_Type_Declaration - --Iir_Kind_Record_Type_Definition - --Iir_Kind_Array_Type_Definition - --Iir_Kind_Array_Subtype_Definition - --Iir_Kind_Record_Subtype_Definition - --Iir_Kind_Access_Subtype_Definition - --Iir_Kind_Physical_Subtype_Definition - --Iir_Kind_Floating_Subtype_Definition - --Iir_Kind_Integer_Subtype_Definition - --Iir_Kind_Enumeration_Subtype_Definition - --Iir_Kind_Enumeration_Type_Definition - --Iir_Kind_Integer_Type_Definition - --Iir_Kind_Floating_Type_Definition - Iir_Kind_Physical_Type_Definition; - - subtype Iir_Kinds_Subtype_Definition is Iir_Kind range - Iir_Kind_Array_Subtype_Definition .. - --Iir_Kind_Record_Subtype_Definition - --Iir_Kind_Access_Subtype_Definition - --Iir_Kind_Physical_Subtype_Definition - --Iir_Kind_Floating_Subtype_Definition - --Iir_Kind_Integer_Subtype_Definition - Iir_Kind_Enumeration_Subtype_Definition; - - subtype Iir_Kinds_Scalar_Subtype_Definition is Iir_Kind range - Iir_Kind_Physical_Subtype_Definition .. - --Iir_Kind_Floating_Subtype_Definition - --Iir_Kind_Integer_Subtype_Definition - Iir_Kind_Enumeration_Subtype_Definition; - - subtype Iir_Kinds_Scalar_Type_And_Subtype_Definition is Iir_Kind range - Iir_Kind_Physical_Subtype_Definition .. - --Iir_Kind_Floating_Subtype_Definition - --Iir_Kind_Integer_Subtype_Definition - --Iir_Kind_Enumeration_Subtype_Definition - --Iir_Kind_Enumeration_Type_Definition - --Iir_Kind_Integer_Type_Definition - --Iir_Kind_Floating_Type_Definition - Iir_Kind_Physical_Type_Definition; - - subtype Iir_Kinds_Range_Type_Definition is Iir_Kind range - Iir_Kind_Physical_Subtype_Definition .. - --Iir_Kind_Floating_Subtype_Definition - --Iir_Kind_Integer_Subtype_Definition - --Iir_Kind_Enumeration_Subtype_Definition - Iir_Kind_Enumeration_Type_Definition; - - subtype Iir_Kinds_Discrete_Type_Definition is Iir_Kind range - Iir_Kind_Integer_Subtype_Definition .. - --Iir_Kind_Enumeration_Subtype_Definition - --Iir_Kind_Enumeration_Type_Definition - Iir_Kind_Integer_Type_Definition; - --- subtype Iir_Kinds_Discrete_Subtype_Definition is Iir_Kind range --- Iir_Kind_Integer_Subtype_Definition .. --- Iir_Kind_Enumeration_Subtype_Definition; - - subtype Iir_Kinds_Composite_Type_Definition is Iir_Kind range - Iir_Kind_Record_Type_Definition .. - --Iir_Kind_Array_Type_Definition - --Iir_Kind_Array_Subtype_Definition - Iir_Kind_Record_Subtype_Definition; - - subtype Iir_Kinds_Composite_Subtype_Definition is Iir_Kind range - Iir_Kind_Array_Subtype_Definition .. - Iir_Kind_Record_Subtype_Definition; - - subtype Iir_Kinds_Type_Declaration is Iir_Kind range - Iir_Kind_Type_Declaration .. - --Iir_Kind_Anonymous_Type_Declaration - Iir_Kind_Subtype_Declaration; - - subtype Iir_Kinds_Nonoverloadable_Declaration is Iir_Kind range - Iir_Kind_Type_Declaration .. - Iir_Kind_Element_Declaration; - - subtype Iir_Kinds_Monadic_Operator is Iir_Kind range - Iir_Kind_Identity_Operator .. - --Iir_Kind_Negation_Operator - --Iir_Kind_Absolute_Operator - --Iir_Kind_Not_Operator - --Iir_Kind_Implicit_Condition_Operator - --Iir_Kind_Condition_Operator - --Iir_Kind_Reduction_And_Operator - --Iir_Kind_Reduction_Or_Operator - --Iir_Kind_Reduction_Nand_Operator - --Iir_Kind_Reduction_Nor_Operator - --Iir_Kind_Reduction_Xor_Operator - Iir_Kind_Reduction_Xnor_Operator; - - subtype Iir_Kinds_Dyadic_Operator is Iir_Kind range - Iir_Kind_And_Operator .. - --Iir_Kind_Or_Operator - --Iir_Kind_Nand_Operator - --Iir_Kind_Nor_Operator - --Iir_Kind_Xor_Operator - --Iir_Kind_Xnor_Operator - --Iir_Kind_Equality_Operator - --Iir_Kind_Inequality_Operator - --Iir_Kind_Less_Than_Operator - --Iir_Kind_Less_Than_Or_Equal_Operator - --Iir_Kind_Greater_Than_Operator - --Iir_Kind_Greater_Than_Or_Equal_Operator - --Iir_Kind_Match_Equality_Operator - --Iir_Kind_Match_Inequality_Operator - --Iir_Kind_Match_Less_Than_Operator - --Iir_Kind_Match_Less_Than_Or_Equal_Operator - --Iir_Kind_Match_Greater_Than_Operator - --Iir_Kind_Match_Greater_Than_Or_Equal_Operator - --Iir_Kind_Sll_Operator - --Iir_Kind_Sla_Operator - --Iir_Kind_Srl_Operator - --Iir_Kind_Sra_Operator - --Iir_Kind_Rol_Operator - --Iir_Kind_Ror_Operator - --Iir_Kind_Addition_Operator - --Iir_Kind_Substraction_Operator - --Iir_Kind_Concatenation_Operator - --Iir_Kind_Multiplication_Operator - --Iir_Kind_Division_Operator - --Iir_Kind_Modulus_Operator - --Iir_Kind_Remainder_Operator - Iir_Kind_Exponentiation_Operator; - - subtype Iir_Kinds_Functions_And_Literals is Iir_Kind range - Iir_Kind_Enumeration_Literal .. - Iir_Kind_Function_Declaration; - - subtype Iir_Kinds_Subprogram_Declaration is Iir_Kind range - Iir_Kind_Function_Declaration .. - Iir_Kind_Procedure_Declaration; - - subtype Iir_Kinds_Subprogram_Body is Iir_Kind range - Iir_Kind_Function_Body .. - Iir_Kind_Procedure_Body; - - subtype Iir_Kinds_Process_Statement is Iir_Kind range - Iir_Kind_Sensitized_Process_Statement .. - Iir_Kind_Process_Statement; - - subtype Iir_Kinds_Interface_Object_Declaration is Iir_Kind range - Iir_Kind_Interface_Constant_Declaration .. - --Iir_Kind_Interface_Variable_Declaration - --Iir_Kind_Interface_Signal_Declaration - Iir_Kind_Interface_File_Declaration; - - subtype Iir_Kinds_Interface_Subprogram_Declaration is Iir_Kind range - Iir_Kind_Interface_Function_Declaration .. - Iir_Kind_Interface_Procedure_Declaration; - - subtype Iir_Kinds_Interface_Declaration is Iir_Kind range - Iir_Kind_Interface_Constant_Declaration .. - --Iir_Kind_Interface_Variable_Declaration - --Iir_Kind_Interface_Signal_Declaration - --Iir_Kind_Interface_File_Declaration - --Iir_Kind_Interface_Type_Declaration - --Iir_Kind_Interface_Package_Declaration - --Iir_Kind_Interface_Function_Declaration - Iir_Kind_Interface_Procedure_Declaration; - - subtype Iir_Kinds_Object_Declaration is Iir_Kind range - Iir_Kind_Object_Alias_Declaration .. - --Iir_Kind_File_Declaration - --Iir_Kind_Guard_Signal_Declaration - --Iir_Kind_Signal_Declaration - --Iir_Kind_Variable_Declaration - --Iir_Kind_Constant_Declaration - --Iir_Kind_Iterator_Declaration - --Iir_Kind_Interface_Constant_Declaration - --Iir_Kind_Interface_Variable_Declaration - --Iir_Kind_Interface_Signal_Declaration - Iir_Kind_Interface_File_Declaration; - - subtype Iir_Kinds_Branch_Quantity_Declaration is Iir_Kind range - Iir_Kind_Across_Quantity_Declaration .. - Iir_Kind_Through_Quantity_Declaration; - - subtype Iir_Kinds_Quantity_Declaration is Iir_Kind range - Iir_Kind_Free_Quantity_Declaration .. - --Iir_Kind_Across_Quantity_Declaration - Iir_Kind_Through_Quantity_Declaration; - - subtype Iir_Kinds_Non_Alias_Object_Declaration is Iir_Kind range - Iir_Kind_File_Declaration .. - --Iir_Kind_Guard_Signal_Declaration - --Iir_Kind_Signal_Declaration - --Iir_Kind_Variable_Declaration - --Iir_Kind_Constant_Declaration - --Iir_Kind_Iterator_Declaration - --Iir_Kind_Interface_Constant_Declaration - --Iir_Kind_Interface_Variable_Declaration - --Iir_Kind_Interface_Signal_Declaration - Iir_Kind_Interface_File_Declaration; - - subtype Iir_Kinds_Association_Element is Iir_Kind range - Iir_Kind_Association_Element_By_Expression .. - --Iir_Kind_Association_Element_By_Individual - Iir_Kind_Association_Element_Open; - - subtype Iir_Kinds_Choice is Iir_Kind range - Iir_Kind_Choice_By_Range .. - --Iir_Kind_Choice_By_Expression - --Iir_Kind_Choice_By_Others - --Iir_Kind_Choice_By_None - Iir_Kind_Choice_By_Name; - - -- Choices in a case statement. - subtype Iir_Kinds_Case_Choice is Iir_Kind range - Iir_Kind_Choice_By_Range .. - --Iir_Kind_Choice_By_Expression - Iir_Kind_Choice_By_Others; - - -- Choices in array aggregate. - subtype Iir_Kinds_Array_Choice is Iir_Kind range - Iir_Kind_Choice_By_Range .. - --Iir_Kind_Choice_By_Expression - --Iir_Kind_Choice_By_Others - Iir_Kind_Choice_By_None; - - -- Choices in record aggregate. - subtype Iir_Kinds_Record_Choice is Iir_Kind range - Iir_Kind_Choice_By_Others .. - --Iir_Kind_Choice_By_None - Iir_Kind_Choice_By_Name; - - subtype Iir_Kinds_Entity_Aspect is Iir_Kind range - Iir_Kind_Entity_Aspect_Entity .. - --Iir_Kind_Entity_Aspect_Configuration - Iir_Kind_Entity_Aspect_Open; - - subtype Iir_Kinds_Denoting_Name is Iir_Kind range - Iir_Kind_Character_Literal .. - --Iir_Kind_Simple_Name - --Iir_Kind_Selected_Name - --Iir_Kind_Operator_Symbol - Iir_Kind_Reference_Name; - - subtype Iir_Kinds_Denoting_And_External_Name is Iir_Kind range - Iir_Kind_Character_Literal .. - --Iir_Kind_Simple_Name - --Iir_Kind_Selected_Name - --Iir_Kind_Operator_Symbol - --Iir_Kind_Reference_Name - --Iir_Kind_External_Constant_Name - --Iir_Kind_External_Signal_Name - Iir_Kind_External_Variable_Name; - - subtype Iir_Kinds_Name is Iir_Kind range - Iir_Kind_Character_Literal .. - --Iir_Kind_Simple_Name - --Iir_Kind_Selected_Name - --Iir_Kind_Operator_Symbol - --Iir_Kind_Reference_Name - --Iir_Kind_External_Constant_Name - --Iir_Kind_External_Signal_Name - --Iir_Kind_External_Variable_Name - --Iir_Kind_Selected_By_All_Name - Iir_Kind_Parenthesis_Name; - - subtype Iir_Kinds_Dereference is Iir_Kind range - Iir_Kind_Dereference .. - Iir_Kind_Implicit_Dereference; - - subtype Iir_Kinds_External_Name is Iir_Kind range - Iir_Kind_External_Constant_Name .. - --Iir_Kind_External_Signal_Name - Iir_Kind_External_Variable_Name; - - -- Any attribute that is an expression. - subtype Iir_Kinds_Expression_Attribute is Iir_Kind range - Iir_Kind_Left_Type_Attribute .. - --Iir_Kind_Right_Type_Attribute - --Iir_Kind_High_Type_Attribute - --Iir_Kind_Low_Type_Attribute - --Iir_Kind_Ascending_Type_Attribute - --Iir_Kind_Image_Attribute - --Iir_Kind_Value_Attribute - --Iir_Kind_Pos_Attribute - --Iir_Kind_Val_Attribute - --Iir_Kind_Succ_Attribute - --Iir_Kind_Pred_Attribute - --Iir_Kind_Leftof_Attribute - --Iir_Kind_Rightof_Attribute - --Iir_Kind_Delayed_Attribute - --Iir_Kind_Stable_Attribute - --Iir_Kind_Quiet_Attribute - --Iir_Kind_Transaction_Attribute - --Iir_Kind_Event_Attribute - --Iir_Kind_Active_Attribute - --Iir_Kind_Last_Event_Attribute - --Iir_Kind_Last_Active_Attribute - --Iir_Kind_Last_Value_Attribute - --Iir_Kind_Driving_Attribute - --Iir_Kind_Driving_Value_Attribute - --Iir_Kind_Behavior_Attribute - --Iir_Kind_Structure_Attribute - --Iir_Kind_Simple_Name_Attribute - --Iir_Kind_Instance_Name_Attribute - --Iir_Kind_Path_Name_Attribute - --Iir_Kind_Left_Array_Attribute - --Iir_Kind_Right_Array_Attribute - --Iir_Kind_High_Array_Attribute - --Iir_Kind_Low_Array_Attribute - --Iir_Kind_Length_Array_Attribute - Iir_Kind_Ascending_Array_Attribute; - - -- All the attributes. - subtype Iir_Kinds_Attribute is Iir_Kind range - Iir_Kind_Base_Attribute .. - Iir_Kind_Reverse_Range_Array_Attribute; - - -- Attributes of scalar types. - subtype Iir_Kinds_Type_Attribute is Iir_Kind range - Iir_Kind_Left_Type_Attribute .. - --Iir_Kind_Right_Type_Attribute - --Iir_Kind_High_Type_Attribute - --Iir_Kind_Low_Type_Attribute - Iir_Kind_Ascending_Type_Attribute; - - -- Attributes whose result is a type. - subtype Iir_Kinds_Subtype_Attribute is Iir_Kind range - Iir_Kind_Base_Attribute .. - --Iir_Kind_Subtype_Attribute - Iir_Kind_Element_Attribute; - - subtype Iir_Kinds_Scalar_Type_Attribute is Iir_Kind range - Iir_Kind_Pos_Attribute .. - --Iir_Kind_Val_Attribute - --Iir_Kind_Succ_Attribute - --Iir_Kind_Pred_Attribute - --Iir_Kind_Leftof_Attribute - Iir_Kind_Rightof_Attribute; - - subtype Iir_Kinds_Array_Attribute is Iir_Kind range - Iir_Kind_Left_Array_Attribute .. - --Iir_Kind_Right_Array_Attribute - --Iir_Kind_High_Array_Attribute - --Iir_Kind_Low_Array_Attribute - --Iir_Kind_Length_Array_Attribute - --Iir_Kind_Ascending_Array_Attribute - --Iir_Kind_Range_Array_Attribute - Iir_Kind_Reverse_Range_Array_Attribute; - - subtype Iir_Kinds_Range_Attribute is Iir_Kind range - Iir_Kind_Range_Array_Attribute .. - Iir_Kind_Reverse_Range_Array_Attribute; - - subtype Iir_Kinds_Signal_Attribute is Iir_Kind range - Iir_Kind_Delayed_Attribute .. - --Iir_Kind_Stable_Attribute - --Iir_Kind_Quiet_Attribute - Iir_Kind_Transaction_Attribute; - - subtype Iir_Kinds_Signal_Value_Attribute is Iir_Kind range - Iir_Kind_Event_Attribute .. - --Iir_Kind_Active_Attribute - --Iir_Kind_Last_Event_Attribute - --Iir_Kind_Last_Active_Attribute - --Iir_Kind_Last_Value_Attribute - --Iir_Kind_Driving_Attribute - Iir_Kind_Driving_Value_Attribute; - - subtype Iir_Kinds_Name_Attribute is Iir_Kind range - Iir_Kind_Simple_Name_Attribute .. - --Iir_Kind_Instance_Name_Attribute - Iir_Kind_Path_Name_Attribute; - - subtype Iir_Kinds_Concurrent_Statement is Iir_Kind range - Iir_Kind_Sensitized_Process_Statement .. - --Iir_Kind_Process_Statement - --Iir_Kind_Concurrent_Simple_Signal_Assignment - --Iir_Kind_Concurrent_Conditional_Signal_Assignment - --Iir_Kind_Concurrent_Selected_Signal_Assignment - --Iir_Kind_Concurrent_Assertion_Statement - --Iir_Kind_Concurrent_Procedure_Call_Statement - --Iir_Kind_Psl_Assert_Statement - --Iir_Kind_Psl_Cover_Statement - --Iir_Kind_Block_Statement - --Iir_Kind_If_Generate_Statement - --Iir_Kind_Case_Generate_Statement - --Iir_Kind_For_Generate_Statement - --Iir_Kind_Component_Instantiation_Statement - Iir_Kind_Psl_Default_Clock; - - subtype Iir_Kinds_Simple_Concurrent_Statement is Iir_Kind range - Iir_Kind_Sensitized_Process_Statement .. - --Iir_Kind_Process_Statement - --Iir_Kind_Concurrent_Simple_Signal_Assignment - --Iir_Kind_Concurrent_Conditional_Signal_Assignment - --Iir_Kind_Concurrent_Selected_Signal_Assignment - --Iir_Kind_Concurrent_Assertion_Statement - --Iir_Kind_Concurrent_Procedure_Call_Statement - --Iir_Kind_Psl_Assert_Statement - Iir_Kind_Psl_Cover_Statement; - - subtype Iir_Kinds_Concurrent_Signal_Assignment is Iir_Kind range - Iir_Kind_Concurrent_Simple_Signal_Assignment .. - --Iir_Kind_Concurrent_Conditional_Signal_Assignment - Iir_Kind_Concurrent_Selected_Signal_Assignment; - - subtype Iir_Kinds_If_Case_Generate_Statement is Iir_Kind range - Iir_Kind_If_Generate_Statement .. - Iir_Kind_Case_Generate_Statement; - - subtype Iir_Kinds_Sequential_Statement is Iir_Kind range - Iir_Kind_Simple_Signal_Assignment_Statement .. - --Iir_Kind_Conditional_Signal_Assignment_Statement - --Iir_Kind_Selected_Waveform_Assignment_Statement - --Iir_Kind_Null_Statement - --Iir_Kind_Assertion_Statement - --Iir_Kind_Report_Statement - --Iir_Kind_Wait_Statement - --Iir_Kind_Variable_Assignment_Statement - --Iir_Kind_Conditional_Variable_Assignment_Statement - --Iir_Kind_Return_Statement - --Iir_Kind_For_Loop_Statement - --Iir_Kind_While_Loop_Statement - --Iir_Kind_Next_Statement - --Iir_Kind_Exit_Statement - --Iir_Kind_Case_Statement - --Iir_Kind_Procedure_Call_Statement - Iir_Kind_If_Statement; - - subtype Iir_Kinds_Variable_Assignment_Statement is Iir_Kind range - Iir_Kind_Variable_Assignment_Statement .. - Iir_Kind_Conditional_Variable_Assignment_Statement; - - subtype Iir_Kinds_Allocator is Iir_Kind range - Iir_Kind_Allocator_By_Expression .. - Iir_Kind_Allocator_By_Subtype; - - subtype Iir_Kinds_Clause is Iir_Kind range - Iir_Kind_Library_Clause .. - --Iir_Kind_Use_Clause - Iir_Kind_Context_Reference; - - subtype Iir_Kinds_Specification is Iir_Kind range - Iir_Kind_Attribute_Specification .. - --Iir_Kind_Disconnection_Specification - Iir_Kind_Configuration_Specification; - - -- Nodes and lists. - - subtype Iir is Vhdl.Nodes_Priv.Node_Type; - - Null_Iir : constant Iir := 0; - - -- Return True iff Node is null / not set. - function Is_Null (Node : Iir) return Boolean; - pragma Inline (Is_Null); - - -- Return True iff Node is not null / set. - function Is_Valid (Node : Iir) return Boolean; - pragma Inline (Is_Valid); - - function "=" (L, R : Iir) return Boolean renames Vhdl.Nodes_Priv."="; - - -- Get the last node allocated. - function Get_Last_Node return Iir; - pragma Inline (Get_Last_Node); - - subtype Iir_List is Lists.List_Type; - Null_Iir_List : constant Iir_List := Lists.Null_List; - Iir_List_All : constant Iir_List := Lists.List_All; - - subtype List_Iterator is Lists.Iterator; - function Is_Null_List (Node : Iir_List) return Boolean; - pragma Inline (Is_Null_List); - - function Create_Iir_List return Iir_List - renames Lists.Create_List; - procedure Append_Element (L : Iir_List; E : Iir) - renames Lists.Append_Element; - procedure Add_Element (L : Iir_List; E : Iir) - renames Lists.Add_Element; - procedure Destroy_Iir_List (L : in out Iir_List) - renames Lists.Destroy_List; - function Get_Nbr_Elements (L : Iir_List) return Natural - renames Lists.Get_Nbr_Elements; - function Get_First_Element (L : Iir_List) return Iir - renames Lists.Get_First_Element; - function Is_Empty (L : Iir_List) return Boolean - renames Lists.Is_Empty; - - function List_Iterate (List : Iir_List) return List_Iterator - renames Lists.Iterate; - function List_Iterate_Safe (List : Iir_List) return List_Iterator - renames Lists.Iterate_Safe; - function Is_Valid (It : List_Iterator) return Boolean - renames Lists.Is_Valid; - procedure Next (It : in out List_Iterator) - renames Lists.Next; - function Get_Element (It : List_Iterator) return Iir - renames Lists.Get_Element; - procedure Set_Element (It : List_Iterator; El : Iir) - renames Lists.Set_Element; - - function "=" (L, R : Iir_List) return Boolean renames Lists."="; - - subtype Iir_Flist is Flists.Flist_Type; - Null_Iir_Flist : constant Iir_Flist := Flists.Null_Flist; - Iir_Flist_Others : constant Iir_Flist := Flists.Flist_Others; - Iir_Flist_All : constant Iir_Flist := Flists.Flist_All; - - subtype Iir_Flists_All_Others is Iir_Flist - range Iir_Flist_Others .. Iir_Flist_All; - - Flist_First : constant Natural := Flists.Ffirst; - function Flist_Last (Flist : Iir_Flist) return Natural - renames Flists.Flast; - function Create_Iir_Flist (Len : Natural) return Iir_Flist - renames Flists.Create_Flist; - function Get_Nth_Element (Flist : Iir_Flist; N : Natural) return Iir - renames Flists.Get_Nth_Element; - procedure Set_Nth_Element (Flist : Iir_Flist; N : Natural; El : Iir) - renames Flists.Set_Nth_Element; - function Get_Nbr_Elements (Flist : Iir_Flist) return Natural - renames Flists.Length; - procedure Destroy_Iir_Flist (Flist : in out Iir_Flist) - renames Flists.Destroy_Flist; - function "=" (L, R : Iir_Flist) return Boolean renames Flists."="; - - -- This is used only for lists. - type Iir_Array is array (Natural range <>) of Iir; - type Iir_Array_Acc is access Iir_Array; - procedure Free is new Ada.Unchecked_Deallocation - (Object => Iir_Array, Name => Iir_Array_Acc); - - -- Date State. - -- This indicates the origin of the data information. - -- This also indicates the state of the unit (loaded or not). - type Date_State_Type is - ( - -- The unit is not yet in the library. - Date_Extern, - - -- The unit is not loaded (still on the disk). - -- All the informations come from the library file. - Date_Disk, - - -- The unit has been parsed, but not analyzed. - -- Only the date information come from the library. - Date_Parse, - - -- The unit has been analyzed. - Date_Analyze - ); - - -- A date is used for analysis order. All design units from a library - -- are ordered according to the date. - type Date_Type is new Nat32; - - -- The unit is obsoleted (ie replaced) by a more recently analyzed design - -- unit. - -- If another design unit depends (directly or not) on an obseleted design - -- unit, it is also obsolete, and cannot be defined. - Date_Obsolete : constant Date_Type := 0; - -- A unit with the same name (could also be the same unit) is being - -- analyzed. Used to detect circular dependencies. - Date_Replacing : constant Date_Type := 1; - -- The unit was not analyzed. - Date_Parsed : constant Date_Type := 4; - -- The unit is being analyzed. - Date_Analyzing : constant Date_Type := 5; - -- This unit has just been analyzed and should be marked at the last - -- analyzed unit. - Date_Analyzed : constant Date_Type := 6; - -- Used only for default configuration. - -- Such units are always up-to-date. - Date_Uptodate : constant Date_Type := 7; - subtype Date_Valid is Date_Type range 10 .. Date_Type'Last; - - -- Predefined depth values. - -- Depth of a subprogram not declared in another subprogram. - Iir_Depth_Top : constant Iir_Int32 := 0; - -- Purity depth of a pure subprogram. - Iir_Depth_Pure : constant Iir_Int32 := Iir_Int32'Last; - -- Purity depth of an impure subprogram. - Iir_Depth_Impure : constant Iir_Int32 := -1; - - type Number_Base_Type is (Base_None, Base_2, Base_8, Base_10, Base_16); - - -- design file - subtype Iir_Design_File is Iir; - - subtype Iir_Design_Unit is Iir; - - subtype Iir_Library_Clause is Iir; - - -- Literals. - --subtype Iir_Text_Literal is Iir; - - subtype Iir_Character_Literal is Iir; - - subtype Iir_Integer_Literal is Iir; - - subtype Iir_Floating_Point_Literal is Iir; - - subtype Iir_Null_Literal is Iir; - - subtype Iir_Physical_Int_Literal is Iir; - - subtype Iir_Physical_Fp_Literal is Iir; - - subtype Iir_Enumeration_Literal is Iir; - - subtype Iir_Simple_Aggregate is Iir; - - subtype Iir_Enumeration_Type_Definition is Iir; - - subtype Iir_Enumeration_Subtype_Definition is Iir; - - subtype Iir_Range_Expression is Iir; - - subtype Iir_Integer_Subtype_Definition is Iir; - - subtype Iir_Integer_Type_Definition is Iir; - - subtype Iir_Floating_Subtype_Definition is Iir; - - subtype Iir_Floating_Type_Definition is Iir; - - subtype Iir_Array_Type_Definition is Iir; - - subtype Iir_Record_Type_Definition is Iir; - - subtype Iir_Protected_Type_Declaration is Iir; - - subtype Iir_Protected_Type_Body is Iir; - - subtype Iir_Subtype_Definition is Iir; - - subtype Iir_Array_Subtype_Definition is Iir; - - subtype Iir_Physical_Type_Definition is Iir; - - subtype Iir_Physical_Subtype_Definition is Iir; - - subtype Iir_Access_Type_Definition is Iir; - - subtype Iir_Access_Subtype_Definition is Iir; - - subtype Iir_File_Type_Definition is Iir; - - subtype Iir_Waveform_Element is Iir; - - subtype Iir_Conditional_Waveform is Iir; - - subtype Iir_Association_Element_By_Expression is Iir; - - subtype Iir_Association_Element_By_Individual is Iir; - - subtype Iir_Association_Element_Open is Iir; - - subtype Iir_Signature is Iir; - - subtype Iir_Unit_Declaration is Iir; - - subtype Iir_Entity_Aspect_Entity is Iir; - - subtype Iir_Entity_Aspect_Configuration is Iir; - - subtype Iir_Entity_Aspect_Open is Iir; - - subtype Iir_Block_Configuration is Iir; - - subtype Iir_Block_Header is Iir; - - subtype Iir_Component_Configuration is Iir; - - subtype Iir_Binding_Indication is Iir; - - subtype Iir_Entity_Class is Iir; - - subtype Iir_Attribute_Specification is Iir; - - subtype Iir_Attribute_Value is Iir; - - subtype Iir_Selected_Element is Iir; - - subtype Iir_Implicit_Dereference is Iir; - - subtype Iir_Aggregate_Info is Iir; - - subtype Iir_Procedure_Call is Iir; - - subtype Iir_Disconnection_Specification is Iir; - - -- Lists. - - subtype Iir_Design_Unit_List is Iir_List; - - subtype Iir_Attribute_Value_Chain is Iir_List; - - subtype Iir_Overload_List is Iir; - - subtype Iir_Callees_List is Iir_List; - - -- Declaration and children. - subtype Iir_Entity_Declaration is Iir; - - subtype Iir_Architecture_Body is Iir; - - subtype Iir_Interface_Signal_Declaration is Iir; - - subtype Iir_Configuration_Declaration is Iir; - - subtype Iir_Type_Declaration is Iir; - - subtype Iir_Anonymous_Type_Declaration is Iir; - - subtype Iir_Subtype_Declaration is Iir; - - subtype Iir_Package_Declaration is Iir; - subtype Iir_Package_Body is Iir; - - subtype Iir_Library_Declaration is Iir; - - subtype Iir_Function_Declaration is Iir; - - subtype Iir_Function_Body is Iir; - - subtype Iir_Procedure_Declaration is Iir; - - subtype Iir_Procedure_Body is Iir; - - subtype Iir_Use_Clause is Iir; - - subtype Iir_Constant_Declaration is Iir; - - subtype Iir_Iterator_Declaration is Iir; - - subtype Iir_Interface_Constant_Declaration is Iir; - - subtype Iir_Interface_Variable_Declaration is Iir; - - subtype Iir_Interface_File_Declaration is Iir; - - subtype Iir_Guard_Signal_Declaration is Iir; - - subtype Iir_Signal_Declaration is Iir; - - subtype Iir_Variable_Declaration is Iir; - - subtype Iir_Component_Declaration is Iir; - - subtype Iir_Element_Declaration is Iir; - - subtype Iir_Object_Alias_Declaration is Iir; - - subtype Iir_Non_Object_Alias_Declaration is Iir; - - subtype Iir_Interface_Declaration is Iir; - - subtype Iir_Configuration_Specification is Iir; - - subtype Iir_File_Declaration is Iir; - - subtype Iir_Attribute_Declaration is Iir; - - subtype Iir_Group_Template_Declaration is Iir; - - subtype Iir_Group_Declaration is Iir; - - -- concurrent_statement and children. - subtype Iir_Concurrent_Statement is Iir; - - subtype Iir_Concurrent_Conditional_Signal_Assignment is Iir; - - subtype Iir_Sensitized_Process_Statement is Iir; - - subtype Iir_Process_Statement is Iir; - - subtype Iir_Component_Instantiation_Statement is Iir; - - subtype Iir_Block_Statement is Iir; - - subtype Iir_Generate_Statement is Iir; - - -- sequential statements. - subtype Iir_If_Statement is Iir; - - subtype Iir_Elsif is Iir; - - subtype Iir_For_Loop_Statement is Iir; - - subtype Iir_While_Loop_Statement is Iir; - - subtype Iir_Exit_Statement is Iir; - subtype Iir_Next_Statement is Iir; - - subtype Iir_Variable_Assignment_Statement is Iir; - - subtype Iir_Signal_Assignment_Statement is Iir; - - subtype Iir_Assertion_Statement is Iir; - - subtype Iir_Report_Statement is Iir; - - subtype Iir_Wait_Statement is Iir; - - subtype Iir_Return_Statement is Iir; - - subtype Iir_Case_Statement is Iir; - - subtype Iir_Procedure_Call_Statement is Iir; - - -- expression and children. - subtype Iir_Expression is Iir; - - subtype Iir_Function_Call is Iir; - - subtype Iir_Aggregate is Iir; - - subtype Iir_Qualified_Expression is Iir; - - subtype Iir_Type_Conversion is Iir; - - subtype Iir_Allocator_By_Expression is Iir; - - subtype Iir_Allocator_By_Subtype is Iir; - - -- names. - subtype Iir_Simple_Name is Iir; - - subtype Iir_Slice_Name is Iir; - - subtype Iir_Selected_Name is Iir; - - subtype Iir_Selected_By_All_Name is Iir; - - subtype Iir_Indexed_Name is Iir; - - subtype Iir_Parenthesis_Name is Iir; - - -- attributes. - subtype Iir_Attribute_Name is Iir; - - -- General methods. - - -- Get the kind of the iir. - function Get_Kind (N : Iir) return Iir_Kind; - pragma Inline (Get_Kind); - - function Next_Node (N : Iir) return Iir; - - -- Create a new IIR of kind NEW_KIND, and copy fields from SRC to this - -- iir. Src fields are cleaned. - --function Clone_Iir (Src: Iir; New_Kind : Iir_Kind) return Iir; - - procedure Set_Location (N : Iir; Location : Location_Type); - function Get_Location (N : Iir) return Location_Type; - - procedure Location_Copy (Target : Iir; Src : Iir); - - function Create_Iir (Kind : Iir_Kind) return Iir; - function Create_Iir_Error return Iir; - procedure Free_Iir (Target : Iir); - - -- Free all and reinit. - procedure Initialize; - - -- Disp statistics about node usage. - procedure Disp_Stats; - - -- Design units contained in a design file. - -- Field: Field5 Chain - function Get_First_Design_Unit (Design : Iir) return Iir; - procedure Set_First_Design_Unit (Design : Iir; Chain : Iir); - - -- Field: Field6 Ref - function Get_Last_Design_Unit (Design : Iir) return Iir; - procedure Set_Last_Design_Unit (Design : Iir; Chain : Iir); - - -- Library declaration of a library clause. This is Forward_Ref as the - -- dependency of the unit on the library is not tracked. - -- Field: Field1 Forward_Ref - function Get_Library_Declaration (Design : Iir) return Iir; - procedure Set_Library_Declaration (Design : Iir; Library : Iir); - - -- File time stamp is the system time of the file last modification. - -- Field: Field4 (uc) - function Get_File_Checksum (Design : Iir) return File_Checksum_Id; - procedure Set_File_Checksum (Design : Iir; Checksum : File_Checksum_Id); - - -- Time stamp of the last analysis system time. - -- Field: Field3 (uc) - function Get_Analysis_Time_Stamp (Design : Iir) return Time_Stamp_Id; - procedure Set_Analysis_Time_Stamp (Design : Iir; Stamp : Time_Stamp_Id); - - -- Field: Field7 (uc) - function Get_Design_File_Source (Design : Iir) return Source_File_Entry; - procedure Set_Design_File_Source (Design : Iir; Sfe : Source_File_Entry); - - -- The library which FILE belongs to. - -- Field: Field0 Ref - function Get_Library (File : Iir_Design_File) return Iir; - procedure Set_Library (File : Iir_Design_File; Lib : Iir); - - -- List of files which this design file depends on. - -- Field: Field1 (uc) - function Get_File_Dependence_List (File : Iir_Design_File) return Iir_List; - procedure Set_File_Dependence_List (File : Iir_Design_File; Lst : Iir_List); - - -- Identifier for the design file file name. - -- Field: Field12 (pos) - function Get_Design_File_Filename (File : Iir_Design_File) return Name_Id; - procedure Set_Design_File_Filename (File : Iir_Design_File; Name : Name_Id); - - -- Directory of a design file. - -- Field: Field11 (pos) - function Get_Design_File_Directory (File : Iir_Design_File) return Name_Id; - procedure Set_Design_File_Directory (File : Iir_Design_File; Dir : Name_Id); - - -- The parent of a design unit is a design file. - -- Field: Field0 Ref - function Get_Design_File (Unit : Iir_Design_Unit) return Iir; - procedure Set_Design_File (Unit : Iir_Design_Unit; File : Iir); - - -- Design files of a library. - -- Field: Field1 Chain - function Get_Design_File_Chain (Library : Iir) return Iir; - procedure Set_Design_File_Chain (Library : Iir; Chain : Iir); - - -- System directory where the library is stored. - -- Field: Field5 (pos) - function Get_Library_Directory (Library : Iir) return Name_Id; - procedure Set_Library_Directory (Library : Iir; Dir : Name_Id); - - -- Symbolic date, used to order design units in a library. - -- Field: Field4 (pos) - function Get_Date (Target : Iir) return Date_Type; - procedure Set_Date (Target : Iir; Date : Date_Type); - - -- Chain of context clauses. - -- Field: Field1 Chain - function Get_Context_Items (Design_Unit : Iir) return Iir; - procedure Set_Context_Items (Design_Unit : Iir; Items_Chain : Iir); - - -- List of design units on which the design unit depends. There is an - -- exception: the architecture of an entity aspect (of a component - -- instantiation) may not have been analyzed. The Entity_Aspect_Entity - -- is added to this list (instead of the non-existing design unit). - -- Field: Field8 Of_Ref (uc) - function Get_Dependence_List (Unit : Iir) return Iir_List; - procedure Set_Dependence_List (Unit : Iir; List : Iir_List); - - -- List of functions or sensitized processes whose analysis checks are not - -- complete. - -- These elements have direct or indirect calls to procedure whose body is - -- not yet analyzed. Therefore, purity or wait checks are not complete. - -- Field: Field9 Of_Ref (uc) - function Get_Analysis_Checks_List (Unit : Iir) return Iir_List; - procedure Set_Analysis_Checks_List (Unit : Iir; List : Iir_List); - - -- Whether the unit is on disk, parsed or analyzed. - -- Field: State1 (pos) - function Get_Date_State (Unit : Iir_Design_Unit) return Date_State_Type; - procedure Set_Date_State (Unit : Iir_Design_Unit; State : Date_State_Type); - - -- If TRUE, the target of the signal assignment is guarded. - -- If FALSE, the target is not guarded. - -- This is determined during sem by examining the declaration(s) of the - -- target (there may be severals declarations in the case of a aggregate - -- target). - -- If UNKNOWN, this is not determined at compile time but at run-time. - -- This is the case for formal signal interfaces of subprograms. - -- Field: State1 (pos) - function Get_Guarded_Target_State (Stmt : Iir) return Tri_State_Type; - procedure Set_Guarded_Target_State (Stmt : Iir; State : Tri_State_Type); - - -- Library unit of a design unit. - -- Field: Field5 - function Get_Library_Unit (Design_Unit : Iir_Design_Unit) return Iir; - procedure Set_Library_Unit (Design_Unit : Iir_Design_Unit; Lib_Unit : Iir); - pragma Inline (Get_Library_Unit); - - -- Every design unit is put in an hash table to find quickly found by its - -- name. This field is a single chain for collisions. - -- Field: Field7 Forward_Ref - function Get_Hash_Chain (Design_Unit : Iir_Design_Unit) return Iir; - procedure Set_Hash_Chain (Design_Unit : Iir_Design_Unit; Chain : Iir); - - -- Set the line and the offset in the line, only for the library manager. - -- This is valid until the file is really loaded in memory. On loading, - -- location will contain all this informations. - -- Field: Field10 (uc) - function Get_Design_Unit_Source_Pos (Design_Unit : Iir) return Source_Ptr; - procedure Set_Design_Unit_Source_Pos (Design_Unit : Iir; Pos : Source_Ptr); - - -- Field: Field11 (uc) - function Get_Design_Unit_Source_Line (Design_Unit : Iir) return Int32; - procedure Set_Design_Unit_Source_Line (Design_Unit : Iir; Line : Int32); - - -- Field: Field12 (uc) - function Get_Design_Unit_Source_Col (Design_Unit : Iir) return Int32; - procedure Set_Design_Unit_Source_Col (Design_Unit : Iir; Line : Int32); - - -- literals. - - -- Value of an integer/physical literal. - -- Field: Field4,Field5 (grp) - function Get_Value (Lit : Iir) return Iir_Int64; - procedure Set_Value (Lit : Iir; Val : Iir_Int64); - - -- Position (same as lit_type'pos) of an enumeration literal. - -- Field: Field5 (pos) - function Get_Enum_Pos (Lit : Iir) return Iir_Int32; - procedure Set_Enum_Pos (Lit : Iir; Val : Iir_Int32); - - -- Field: Field4 - function Get_Physical_Literal (Unit : Iir) return Iir; - procedure Set_Physical_Literal (Unit : Iir; Lit : Iir); - - -- Value of a floating point literal. - -- Field: Field4,Field5 (grp) - function Get_Fp_Value (Lit : Iir) return Iir_Fp64; - procedure Set_Fp_Value (Lit : Iir; Val : Iir_Fp64); - - -- List of elements of a simple aggregate. - -- Field: Field4 Ref (uc) - function Get_Simple_Aggregate_List (Target : Iir) return Iir_Flist; - procedure Set_Simple_Aggregate_List (Target : Iir; List : Iir_Flist); - - -- For a string literal: the string identifier. - -- Field: Field5 (uc) - function Get_String8_Id (Lit : Iir) return String8_Id; - procedure Set_String8_Id (Lit : Iir; Id : String8_Id); - - -- For a string literal: the string length. - -- Field: Field4 (uc) - function Get_String_Length (Lit : Iir) return Int32; - procedure Set_String_Length (Lit : Iir; Len : Int32); - - -- Base of a bit string. Base_None for a string literal. - -- Field: Flag12,Flag13,Flag14 (grp) - function Get_Bit_String_Base (Lit : Iir) return Number_Base_Type; - procedure Set_Bit_String_Base (Lit : Iir; Base : Number_Base_Type); - - -- Bit string is signed. - -- Field: Flag1 - function Get_Has_Signed (Lit : Iir) return Boolean; - procedure Set_Has_Signed (Lit : Iir; Flag : Boolean); - - -- Bit string sign is explicit - -- Field: Flag2 - function Get_Has_Sign (Lit : Iir) return Boolean; - procedure Set_Has_Sign (Lit : Iir; Flag : Boolean); - - -- Bit string length is explicit - -- Field: Flag3 - function Get_Has_Length (Lit : Iir) return Boolean; - procedure Set_Has_Length (Lit : Iir; Flag : Boolean); - - -- The origin of a literal can be null_iir for a literal generated by the - -- parser, or a node which was statically evaluated to this literal. - -- Such nodes are created by eval_expr. - -- Field: Field2 - function Get_Literal_Origin (Lit : Iir) return Iir; - procedure Set_Literal_Origin (Lit : Iir; Orig : Iir); - - -- Field: Field0 - function Get_Range_Origin (Lit : Iir) return Iir; - procedure Set_Range_Origin (Lit : Iir; Orig : Iir); - - -- Same as Type, but not marked as Ref. This is when a literal has a - -- subtype (such as string or bit_string) created specially for the - -- literal. - -- Field: Field3 - function Get_Literal_Subtype (Lit : Iir) return Iir; - procedure Set_Literal_Subtype (Lit : Iir; Atype : Iir); - - -- Field: Field3 Ref - function Get_Allocator_Subtype (Lit : Iir) return Iir; - procedure Set_Allocator_Subtype (Lit : Iir; Atype : Iir); - - -- Field: Field3 (uc) - function Get_Entity_Class (Target : Iir) return Token_Type; - procedure Set_Entity_Class (Target : Iir; Kind : Token_Type); - - -- Field: Field8 (uc) - function Get_Entity_Name_List (Target : Iir) return Iir_Flist; - procedure Set_Entity_Name_List (Target : Iir; Names : Iir_Flist); - - -- Field: Field6 - function Get_Attribute_Designator (Target : Iir) return Iir; - procedure Set_Attribute_Designator (Target : Iir; Designator : Iir); - - -- Chain of attribute specifications. This is used only during sem, to - -- check that no named entity of a given class appear after an attr. spec. - -- with the entity name list OTHERS or ALL. - -- Field: Field7 Ref - function Get_Attribute_Specification_Chain (Target : Iir) return Iir; - procedure Set_Attribute_Specification_Chain (Target : Iir; Chain : Iir); - - -- Field: Field4 Ref - function Get_Attribute_Specification (Val : Iir) return Iir; - procedure Set_Attribute_Specification (Val : Iir; Attr : Iir); - - -- Field: Field3 Of_Maybe_Ref (uc) - function Get_Signal_List (Target : Iir) return Iir_Flist; - procedure Set_Signal_List (Target : Iir; List : Iir_Flist); - - -- Field: Field3 Forward_Ref - function Get_Designated_Entity (Val : Iir_Attribute_Value) return Iir; - procedure Set_Designated_Entity (Val : Iir_Attribute_Value; Entity : Iir); - - -- Field: Field1 - function Get_Formal (Target : Iir) return Iir; - procedure Set_Formal (Target : Iir; Formal : Iir); - - -- Field: Field3 - function Get_Actual (Target : Iir) return Iir; - procedure Set_Actual (Target : Iir; Actual : Iir); - - -- Field: Field4 - function Get_Actual_Conversion (Target : Iir) return Iir; - procedure Set_Actual_Conversion (Target : Iir; Conv : Iir); - - -- Field: Field5 - function Get_Formal_Conversion (Target : Iir) return Iir; - procedure Set_Formal_Conversion (Target : Iir; Conv : Iir); - - -- This flag is set when the formal is associated in whole (ie, not - -- individually). - -- Field: Flag1 - function Get_Whole_Association_Flag (Target : Iir) return Boolean; - procedure Set_Whole_Association_Flag (Target : Iir; Flag : Boolean); - - -- This flag is set when the formal signal can be the actual signal. In - -- this case, the formal signal is not created, and the actual is shared. - -- This is the signal collapsing optimisation. - -- Field: Flag2 - function Get_Collapse_Signal_Flag (Target : Iir) return Boolean; - procedure Set_Collapse_Signal_Flag (Target : Iir; Flag : Boolean); - - -- Set when the node was artificially created, eg by canon. - -- Currently used only by association_element_open. - -- Field: Flag3 - function Get_Artificial_Flag (Target : Iir) return Boolean; - procedure Set_Artificial_Flag (Target : Iir; Flag : Boolean); - - -- This flag is set for a very short time during the check that no in - -- port is unconnected. - -- Field: Flag7 - function Get_Open_Flag (Target : Iir) return Boolean; - procedure Set_Open_Flag (Target : Iir; Flag : Boolean); - - -- This flag is set by trans_analyze if there is a projected waveform - -- assignment in the process. - -- Field: Flag5 - function Get_After_Drivers_Flag (Target : Iir) return Boolean; - procedure Set_After_Drivers_Flag (Target : Iir; Flag : Boolean); - - -- Field: Field1 - function Get_We_Value (We : Iir_Waveform_Element) return Iir; - procedure Set_We_Value (We : Iir_Waveform_Element; An_Iir : Iir); - - -- Field: Field3 - function Get_Time (We : Iir_Waveform_Element) return Iir; - procedure Set_Time (We : Iir_Waveform_Element; An_Iir : Iir); - - -- Field: Field1 (pos) - function Get_Choice_Order (Choice : Iir) return Int32; - procedure Set_Choice_Order (Choice : Iir; Pos : Int32); - - -- Node associated with a choice. - -- Field: Field3 - function Get_Associated_Expr (Target : Iir) return Iir; - procedure Set_Associated_Expr (Target : Iir; Associated : Iir); - - -- Node associated with a choice. - -- Field: Field3 - function Get_Associated_Block (Target : Iir) return Iir; - procedure Set_Associated_Block (Target : Iir; Associated : Iir); - - -- Chain associated with a choice. - -- Field: Field4 Chain - function Get_Associated_Chain (Target : Iir) return Iir; - procedure Set_Associated_Chain (Target : Iir; Associated : Iir); - - -- Field: Field5 - function Get_Choice_Name (Choice : Iir) return Iir; - procedure Set_Choice_Name (Choice : Iir; Name : Iir); - - -- Field: Field5 - function Get_Choice_Expression (Choice : Iir) return Iir; - procedure Set_Choice_Expression (Choice : Iir; Name : Iir); - - -- Field: Field5 - function Get_Choice_Range (Choice : Iir) return Iir; - procedure Set_Choice_Range (Choice : Iir; Name : Iir); - - -- Set when a choice belongs to the same alternative as the previous one. - -- Field: Flag1 - function Get_Same_Alternative_Flag (Target : Iir) return Boolean; - procedure Set_Same_Alternative_Flag (Target : Iir; Val : Boolean); - - -- For one-dimensional aggregates: the value associated of the type of the - -- element (vs of the type of the aggregate). Always true before vhdl-08. - -- Field: Flag2 - function Get_Element_Type_Flag (Target : Iir) return Boolean; - procedure Set_Element_Type_Flag (Target : Iir; Val : Boolean); - - -- Field: Field3 - function Get_Architecture (Target : Iir_Entity_Aspect_Entity) return Iir; - procedure Set_Architecture (Target : Iir_Entity_Aspect_Entity; Arch : Iir); - - -- Field: Field5 - function Get_Block_Specification (Target : Iir) return Iir; - procedure Set_Block_Specification (Target : Iir; Block : Iir); - - -- Return the link of the previous block_configuration of a - -- block_configuration. - -- This single linked list is used to list all the block_configuration that - -- configuration the same block (which can only be an iterative generate - -- statement). - -- All elements of this list must belong to the same block configuration. - -- The order is not important. - -- Field: Field4 Ref - function Get_Prev_Block_Configuration (Target : Iir) return Iir; - procedure Set_Prev_Block_Configuration (Target : Iir; Block : Iir); - - -- Field: Field3 Chain - function Get_Configuration_Item_Chain (Target : Iir) return Iir; - procedure Set_Configuration_Item_Chain (Target : Iir; Chain : Iir); - - -- Chain of attribute values for declared items. - -- To be used with Get/Set_Value_Chain. - -- There is no order, therefore, a new attribute value may be always - -- prepended. - -- Field: Field4 Ref - function Get_Attribute_Value_Chain (Target : Iir) return Iir; - procedure Set_Attribute_Value_Chain (Target : Iir; Chain : Iir); - - -- Next attribute value in the attribute specification chain (of attribute - -- value). - -- FIXME: should be a Chain. - -- Field: Field2 - function Get_Spec_Chain (Target : Iir) return Iir; - procedure Set_Spec_Chain (Target : Iir; Chain : Iir); - - -- Next attribute value in the attribute specification chain (of attribute - -- value). - -- Field: Field0 Ref - function Get_Value_Chain (Target : Iir) return Iir; - procedure Set_Value_Chain (Target : Iir; Chain : Iir); - - -- Chain of attribute values for attribute specification. - -- To be used with Get/Set_Spec_Chain. - -- Field: Field4 - function Get_Attribute_Value_Spec_Chain (Target : Iir) return Iir; - procedure Set_Attribute_Value_Spec_Chain (Target : Iir; Chain : Iir); - - -- The entity name for an architecture or a configuration. - -- Field: Field2 - function Get_Entity_Name (Arch : Iir) return Iir; - procedure Set_Entity_Name (Arch : Iir; Entity : Iir); - - -- The package declaration corresponding to the body. - -- Field: Field5 Ref - function Get_Package (Package_Body : Iir) return Iir; - procedure Set_Package (Package_Body : Iir; Decl : Iir); - - -- The package body corresponding to the package declaration. - -- Field: Field5 Forward_Ref - function Get_Package_Body (Pkg : Iir) return Iir; - procedure Set_Package_Body (Pkg : Iir; Decl : Iir); - - -- The package body corresponding to the package declaration. - -- Field: Field5 - function Get_Instance_Package_Body (Pkg : Iir) return Iir; - procedure Set_Instance_Package_Body (Pkg : Iir; Decl : Iir); - - -- Field: Flag1 - function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean; - procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean); - - -- Field: Flag2 - function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean; - procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean); - - -- Field: Flag3 - function Get_Need_Instance_Bodies (Decl : Iir) return Boolean; - procedure Set_Need_Instance_Bodies (Decl : Iir; Flag : Boolean); - - -- Field: Field5 - function Get_Block_Configuration (Target : Iir) return Iir; - procedure Set_Block_Configuration (Target : Iir; Block : Iir); - - -- Field: Field5 Chain - function Get_Concurrent_Statement_Chain (Target : Iir) return Iir; - procedure Set_Concurrent_Statement_Chain (Target : Iir; First : Iir); - - -- Field: Field2 Chain_Next - function Get_Chain (Target : Iir) return Iir; - procedure Set_Chain (Target : Iir; Chain : Iir); - pragma Inline (Get_Chain); - - -- Field: Field7 Chain - function Get_Port_Chain (Target : Iir) return Iir; - procedure Set_Port_Chain (Target : Iir; Chain : Iir); - - -- Field: Field6 Chain - function Get_Generic_Chain (Target : Iir) return Iir; - procedure Set_Generic_Chain (Target : Iir; Generics : Iir); - - -- Field: Field1 Ref - function Get_Type (Target : Iir) return Iir; - procedure Set_Type (Target : Iir; Atype : Iir); - pragma Inline (Get_Type); - - -- The subtype indication of a declaration. If several declarations share - -- the same subtype_indication like in: - -- variable a, b : integer := 5; - -- then only the first declaration has a subtype_indication. - -- Field: Field5 - function Get_Subtype_Indication (Target : Iir) return Iir; - procedure Set_Subtype_Indication (Target : Iir; Atype : Iir); - - -- Discrete range of an iterator. During analysis, a subtype indiciation - -- is created from this range. - -- Field: Field6 - function Get_Discrete_Range (Target : Iir) return Iir; - procedure Set_Discrete_Range (Target : Iir; Rng : Iir); - - -- Field: Field1 - function Get_Type_Definition (Decl : Iir) return Iir; - procedure Set_Type_Definition (Decl : Iir; Atype : Iir); - - -- The subtype definition associated with the type declaration (if any). - -- Field: Field4 Forward_Ref - function Get_Subtype_Definition (Target : Iir) return Iir; - procedure Set_Subtype_Definition (Target : Iir; Def : Iir); - - -- Set if the type declaration completes an incomplete type declaration - -- Field: Field5 Ref - function Get_Incomplete_Type_Declaration (N : Iir) return Iir; - procedure Set_Incomplete_Type_Declaration (N : Iir; Decl : Iir); - - -- Implicit operations of an interface type declaration. - -- Field: Field4 Chain - function Get_Interface_Type_Subprograms (Target : Iir) return Iir; - procedure Set_Interface_Type_Subprograms (Target : Iir; Subprg : Iir); - - -- Field: Field1 - function Get_Nature (Target : Iir) return Iir; - procedure Set_Nature (Target : Iir; Nature : Iir); - - -- Mode of interfaces or file (v87). - -- Field: Flag13,Flag14,Flag15 (grp) - function Get_Mode (Target : Iir) return Iir_Mode; - procedure Set_Mode (Target : Iir; Mode : Iir_Mode); - - -- True if the signal is guarded (has a signal kind). - -- Field: Flag8 - function Get_Guarded_Signal_Flag (Target : Iir) return Boolean; - procedure Set_Guarded_Signal_Flag (Target : Iir; Guarded : Boolean); - - -- Field: Flag9 (uc) - function Get_Signal_Kind (Target : Iir) return Iir_Signal_Kind; - procedure Set_Signal_Kind (Target : Iir; Signal_Kind : Iir_Signal_Kind); - - -- The base name of a name is the node at the origin of the name. - -- The base name is a declaration (signal, object, constant or interface), - -- a selected_by_all name, an implicit_dereference name. - -- Field: Field5 Ref - function Get_Base_Name (Target : Iir) return Iir; - procedure Set_Base_Name (Target : Iir; Name : Iir); - pragma Inline (Get_Base_Name); - - -- Field: Field5 Chain - function Get_Interface_Declaration_Chain (Target : Iir) return Iir; - procedure Set_Interface_Declaration_Chain (Target : Iir; Chain : Iir); - pragma Inline (Get_Interface_Declaration_Chain); - - -- Field: Field6 Ref - function Get_Subprogram_Specification (Target : Iir) return Iir; - procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir); - - -- Field: Field5 Chain - function Get_Sequential_Statement_Chain (Target : Iir) return Iir; - procedure Set_Sequential_Statement_Chain (Target : Iir; Chain : Iir); - - -- Field: Field9 Forward_Ref - function Get_Subprogram_Body (Target : Iir) return Iir; - procedure Set_Subprogram_Body (Target : Iir; A_Body : Iir); - - -- Several subprograms in a declarative region may have the same - -- identifier. If the overload number is not 0, it is the rank of the - -- subprogram. If the overload number is 0, then the identifier is not - -- overloaded in the declarative region. - -- Field: Field12 (pos) - function Get_Overload_Number (Target : Iir) return Iir_Int32; - procedure Set_Overload_Number (Target : Iir; Val : Iir_Int32); - - -- Depth of a subprogram. - -- For a subprogram declared immediatly within an entity, architecture, - -- package, process, block, generate, the depth is 0. - -- For a subprogram declared immediatly within a subprogram of level N, - -- the depth is N + 1. - -- Depth is used with depth of impure objects to check purity rules. - -- Field: Field10 (pos) - function Get_Subprogram_Depth (Target : Iir) return Iir_Int32; - procedure Set_Subprogram_Depth (Target : Iir; Depth : Iir_Int32); - - -- Hash of a subprogram profile. - -- This is used to speed up subprogram profile comparaison, which is very - -- often used by overload. - -- Field: Field4 (pos) - function Get_Subprogram_Hash (Target : Iir) return Iir_Int32; - procedure Set_Subprogram_Hash (Target : Iir; Val : Iir_Int32); - pragma Inline (Get_Subprogram_Hash); - - -- Depth of the deepest impure object. - -- Field: Field3 (uc) - function Get_Impure_Depth (Target : Iir) return Iir_Int32; - procedure Set_Impure_Depth (Target : Iir; Depth : Iir_Int32); - - -- Field: Field1 Ref - function Get_Return_Type (Target : Iir) return Iir; - procedure Set_Return_Type (Target : Iir; Decl : Iir); - pragma Inline (Get_Return_Type); - - -- Code of an implicit subprogram definition. - -- Field: Field7 (pos) - function Get_Implicit_Definition (D : Iir) return Iir_Predefined_Functions; - procedure Set_Implicit_Definition (D : Iir; Def : Iir_Predefined_Functions); - - -- Get the default value of an object declaration. - -- Null_iir if no default value. - -- Note that this node can be shared between declarations if they are - -- separated by comma, such as in: - -- variable a, b : integer := 5; - -- procedure p (a, b : natural := 7); - -- Field: Field4 Maybe_Ref - function Get_Default_Value (Target : Iir) return Iir; - procedure Set_Default_Value (Target : Iir; Value : Iir); - - -- The deferred_declaration field points to the deferred constant - -- declaration for a full constant declaration, or is null_iir for a - -- usual or deferred constant declaration. - -- Set only during sem. - -- Field: Field6 Forward_Ref - function Get_Deferred_Declaration (Target : Iir) return Iir; - procedure Set_Deferred_Declaration (Target : Iir; Decl : Iir); - - -- The deferred_declaration_flag must be set if the constant declaration is - -- a deferred_constant declaration. - -- Set only during sem. - -- Field: Flag1 - function Get_Deferred_Declaration_Flag (Target : Iir) return Boolean; - procedure Set_Deferred_Declaration_Flag (Target : Iir; Flag : Boolean); - - -- If true, the variable is declared shared. - -- Field: Flag2 - function Get_Shared_Flag (Target : Iir) return Boolean; - procedure Set_Shared_Flag (Target : Iir; Shared : Boolean); - - -- Get the design unit in which the target is declared. - -- For a library unit, this is to get the design unit node. - -- Field: Field0 - function Get_Design_Unit (Target : Iir) return Iir; - procedure Set_Design_Unit (Target : Iir; Unit : Iir); - - -- Corresponding block statement for an implicit guard signal. - -- Field: Field5 Ref - function Get_Block_Statement (Target : Iir) return Iir; - procedure Set_Block_Statement (Target : Iir; Block : Iir); - - -- For a non-resolved signal: null_iir if the signal has no driver, or - -- a process/concurrent_statement for which the signal should have a - -- driver. This is used to catch at analyse time unresolved signals with - -- several drivers. - -- Field: Field7 - function Get_Signal_Driver (Target : Iir_Signal_Declaration) return Iir; - procedure Set_Signal_Driver (Target : Iir_Signal_Declaration; Driver : Iir); - - -- Field: Field1 Chain - function Get_Declaration_Chain (Target : Iir) return Iir; - procedure Set_Declaration_Chain (Target : Iir; Decls : Iir); - - -- Field: Field6 - function Get_File_Logical_Name (Target : Iir_File_Declaration) return Iir; - procedure Set_File_Logical_Name (Target : Iir_File_Declaration; Name : Iir); - - -- Field: Field7 - function Get_File_Open_Kind (Target : Iir_File_Declaration) return Iir; - procedure Set_File_Open_Kind (Target : Iir_File_Declaration; Kind : Iir); - - -- Field: Field4 (pos) - function Get_Element_Position (Target : Iir) return Iir_Index32; - procedure Set_Element_Position (Target : Iir; Pos : Iir_Index32); - - -- Selected names of an use_clause are chained. - -- Field: Field3 - function Get_Use_Clause_Chain (Target : Iir) return Iir; - procedure Set_Use_Clause_Chain (Target : Iir; Chain : Iir); - - -- Selected names of a context_reference are chained. - -- Field: Field3 - function Get_Context_Reference_Chain (Target : Iir) return Iir; - procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir); - - -- Selected name of an use_clause or context_reference - -- Field: Field1 - function Get_Selected_Name (Target : Iir) return Iir; - procedure Set_Selected_Name (Target : Iir; Name : Iir); - - -- The type declarator which declares the type definition DEF. - -- Field: Field3 Ref - function Get_Type_Declarator (Def : Iir) return Iir; - procedure Set_Type_Declarator (Def : Iir; Decl : Iir); - - -- Field: Field5 Forward_Ref - function Get_Complete_Type_Definition (N : Iir) return Iir; - procedure Set_Complete_Type_Definition (N : Iir; Def : Iir); - - -- Field: Field0 Forward_Ref - function Get_Incomplete_Type_Ref_Chain (N : Iir) return Iir; - procedure Set_Incomplete_Type_Ref_Chain (N : Iir; Def : Iir); - - -- Field: Field5 Ref - function Get_Associated_Type (Def : Iir) return Iir; - procedure Set_Associated_Type (Def : Iir; Atype : Iir); - - -- Field: Field2 (uc) - function Get_Enumeration_Literal_List (Target : Iir) return Iir_Flist; - procedure Set_Enumeration_Literal_List (Target : Iir; List : Iir_Flist); - - -- Field: Field1 Chain - function Get_Entity_Class_Entry_Chain (Target : Iir) return Iir; - procedure Set_Entity_Class_Entry_Chain (Target : Iir; Chain : Iir); - - -- Field: Field1 (uc) - function Get_Group_Constituent_List (Group : Iir) return Iir_Flist; - procedure Set_Group_Constituent_List (Group : Iir; List : Iir_Flist); - - -- Chain of physical type units. - -- The first unit is the primary unit. If you really need the primary - -- unit (and not the chain), you'd better to use Get_Primary_Unit. - -- Field: Field2 Chain - function Get_Unit_Chain (Target : Iir) return Iir; - procedure Set_Unit_Chain (Target : Iir; Chain : Iir); - - -- Alias of Get_Unit_Chain. - -- Return the primary unit of a physical type. - -- Field: Field2 Ref - function Get_Primary_Unit (Target : Iir) return Iir; - procedure Set_Primary_Unit (Target : Iir; Unit : Iir); - - -- Get/Set the identifier of a declaration. - -- Can also be used instead of get/set_label. - -- Field: Field3 (uc) - function Get_Identifier (Target : Iir) return Name_Id; - procedure Set_Identifier (Target : Iir; Identifier : Name_Id); - pragma Inline (Get_Identifier); - - -- Field: Field3 (uc) - function Get_Label (Target : Iir) return Name_Id; - procedure Set_Label (Target : Iir; Label : Name_Id); - - -- Get/Set the visible flag of a declaration. - -- The visible flag is true to make invalid the use of the identifier - -- during its declaration. It is set to false when the identifier is added - -- to the name table, and set to true when the declaration is finished. - -- Field: Flag4 - function Get_Visible_Flag (Target : Iir) return Boolean; - procedure Set_Visible_Flag (Target : Iir; Flag : Boolean); - - -- Field: Field1 Maybe_Ref - function Get_Range_Constraint (Target : Iir) return Iir; - procedure Set_Range_Constraint (Target : Iir; Constraint : Iir); - - -- Field: State2 (pos) - function Get_Direction (Decl : Iir) return Iir_Direction; - procedure Set_Direction (Decl : Iir; Dir : Iir_Direction); - - -- Field: Field4 Ref - function Get_Left_Limit (Decl : Iir_Range_Expression) return Iir; - procedure Set_Left_Limit (Decl : Iir_Range_Expression; Limit : Iir); - - -- Field: Field5 Ref - function Get_Right_Limit (Decl : Iir_Range_Expression) return Iir; - procedure Set_Right_Limit (Decl : Iir_Range_Expression; Limit : Iir); - - -- Field: Field2 - function Get_Left_Limit_Expr (Decl : Iir_Range_Expression) return Iir; - procedure Set_Left_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir); - - -- Field: Field3 - function Get_Right_Limit_Expr (Decl : Iir_Range_Expression) return Iir; - procedure Set_Right_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir); - - -- Field: Field4 Ref - function Get_Base_Type (Decl : Iir) return Iir; - procedure Set_Base_Type (Decl : Iir; Base_Type : Iir); - pragma Inline (Get_Base_Type); - - -- Either a resolution function name, an array_element_resolution or a - -- record_resolution - -- Field: Field5 - function Get_Resolution_Indication (Decl : Iir) return Iir; - procedure Set_Resolution_Indication (Decl : Iir; Ind : Iir); - - -- Field: Field1 Chain - function Get_Record_Element_Resolution_Chain (Res : Iir) return Iir; - procedure Set_Record_Element_Resolution_Chain (Res : Iir; Chain : Iir); - - -- Field: Field7 - function Get_Tolerance (Def : Iir) return Iir; - procedure Set_Tolerance (Def : Iir; Tol : Iir); - - -- Field: Field8 - function Get_Plus_Terminal (Def : Iir) return Iir; - procedure Set_Plus_Terminal (Def : Iir; Terminal : Iir); - - -- Field: Field9 - function Get_Minus_Terminal (Def : Iir) return Iir; - procedure Set_Minus_Terminal (Def : Iir; Terminal : Iir); - - -- Field: Field5 - function Get_Simultaneous_Left (Def : Iir) return Iir; - procedure Set_Simultaneous_Left (Def : Iir; Expr : Iir); - - -- Field: Field6 - function Get_Simultaneous_Right (Def : Iir) return Iir; - procedure Set_Simultaneous_Right (Def : Iir; Expr : Iir); - - -- True if ATYPE defines std.textio.text file type. - -- Field: Flag4 - function Get_Text_File_Flag (Atype : Iir) return Boolean; - procedure Set_Text_File_Flag (Atype : Iir; Flag : Boolean); - - -- True if enumeration type ATYPE has only character literals. - -- Field: Flag4 - function Get_Only_Characters_Flag (Atype : Iir) return Boolean; - procedure Set_Only_Characters_Flag (Atype : Iir; Flag : Boolean); - - -- True if enumeration type ATYPE is a character type. - -- Field: Flag5 - function Get_Is_Character_Type (Atype : Iir) return Boolean; - procedure Set_Is_Character_Type (Atype : Iir; Flag : Boolean); - - -- Field: State1 (pos) - function Get_Type_Staticness (Atype : Iir) return Iir_Staticness; - procedure Set_Type_Staticness (Atype : Iir; Static : Iir_Staticness); - - -- Field: State2 (pos) - function Get_Constraint_State (Atype : Iir) return Iir_Constraint; - procedure Set_Constraint_State (Atype : Iir; State : Iir_Constraint); - - -- Reference either index_subtype_definition_list of array_type_definition - -- or index_constraint_list of array_subtype_definition. Set only when - -- the index_sutype is constrained (to differentiate with unconstrained - -- index type). - -- Field: Field9 Ref (uc) - function Get_Index_Subtype_List (Decl : Iir) return Iir_Flist; - procedure Set_Index_Subtype_List (Decl : Iir; List : Iir_Flist); - - -- List of type marks for indexes type of array types. - -- Field: Field6 (uc) - function Get_Index_Subtype_Definition_List (Def : Iir) return Iir_Flist; - procedure Set_Index_Subtype_Definition_List (Def : Iir; Idx : Iir_Flist); - - -- The subtype_indication as it appears in a array type declaration. - -- Field: Field2 - function Get_Element_Subtype_Indication (Decl : Iir) return Iir; - procedure Set_Element_Subtype_Indication (Decl : Iir; Sub_Type : Iir); - - -- Field: Field1 Ref - function Get_Element_Subtype (Decl : Iir) return Iir; - procedure Set_Element_Subtype (Decl : Iir; Sub_Type : Iir); - - -- Field: Field6 (uc) - function Get_Index_Constraint_List (Def : Iir) return Iir_Flist; - procedure Set_Index_Constraint_List (Def : Iir; List : Iir_Flist); - - -- Field: Field8 - function Get_Array_Element_Constraint (Def : Iir) return Iir; - procedure Set_Array_Element_Constraint (Def : Iir; El : Iir); - - -- List of elements of a record. - -- For a record_type_definition: Is_Ref is false, as the elements - -- declaration are owned by the type definition. - -- For a record_subtype_definition: Is_Ref is false, as new constrained - -- elements are owned through the Owned_Elements_Chain list. - -- Field: Field1 Of_Maybe_Ref (uc) - function Get_Elements_Declaration_List (Decl : Iir) return Iir_Flist; - procedure Set_Elements_Declaration_List (Decl : Iir; List : Iir_Flist); - - -- Field: Field6 Chain - function Get_Owned_Elements_Chain (Atype : Iir) return Iir; - procedure Set_Owned_Elements_Chain (Atype : Iir; Chain : Iir); - - -- Field: Field1 Forward_Ref - function Get_Designated_Type (Target : Iir) return Iir; - procedure Set_Designated_Type (Target : Iir; Dtype : Iir); - - -- Field: Field5 - function Get_Designated_Subtype_Indication (Target : Iir) return Iir; - procedure Set_Designated_Subtype_Indication (Target : Iir; Dtype : Iir); - - -- List of indexes for indexed name. - -- Field: Field2 (uc) - function Get_Index_List (Decl : Iir) return Iir_Flist; - procedure Set_Index_List (Decl : Iir; List : Iir_Flist); - - -- The terminal declaration for the reference (ground) of a nature - -- Field: Field2 - function Get_Reference (Def : Iir) return Iir; - procedure Set_Reference (Def : Iir; Ref : Iir); - - -- Field: Field3 - function Get_Nature_Declarator (Def : Iir) return Iir; - procedure Set_Nature_Declarator (Def : Iir; Decl : Iir); - - -- Field: Field7 - function Get_Across_Type (Def : Iir) return Iir; - procedure Set_Across_Type (Def : Iir; Atype : Iir); - - -- Field: Field8 - function Get_Through_Type (Def : Iir) return Iir; - procedure Set_Through_Type (Def : Iir; Atype : Iir); - - -- Field: Field1 Maybe_Ref - function Get_Target (Target : Iir) return Iir; - procedure Set_Target (Target : Iir; Atarget : Iir); - - -- Field: Field5 Chain - function Get_Waveform_Chain (Target : Iir) return Iir; - procedure Set_Waveform_Chain (Target : Iir; Chain : Iir); - - -- Field: Field8 Ref - function Get_Guard (Target : Iir) return Iir; - procedure Set_Guard (Target : Iir; Guard : Iir); - - -- Field: Flag1 (uc) - function Get_Delay_Mechanism (Target : Iir) return Iir_Delay_Mechanism; - procedure Set_Delay_Mechanism (Target : Iir; Kind : Iir_Delay_Mechanism); - - -- Field: Field4 - function Get_Reject_Time_Expression (Target : Iir) return Iir; - procedure Set_Reject_Time_Expression (Target : Iir; Expr : Iir); - - -- The Is_Ref flag is set for extracted sensitivity lists. - -- Field: Field6 Of_Maybe_Ref (uc) - function Get_Sensitivity_List (Wait : Iir) return Iir_List; - procedure Set_Sensitivity_List (Wait : Iir; List : Iir_List); - - -- Field: Field8 - function Get_Process_Origin (Proc : Iir) return Iir; - procedure Set_Process_Origin (Proc : Iir; Orig : Iir); - - -- Field: Field7 - function Get_Package_Origin (Pkg : Iir) return Iir; - procedure Set_Package_Origin (Pkg : Iir; Orig : Iir); - - -- Field: Field5 - function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir; - procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir); - - -- Field: Field1 - function Get_Timeout_Clause (Wait : Iir_Wait_Statement) return Iir; - procedure Set_Timeout_Clause (Wait : Iir_Wait_Statement; Timeout : Iir); - - -- If set, the concurrent statement is postponed. - -- Field: Flag3 - function Get_Postponed_Flag (Target : Iir) return Boolean; - procedure Set_Postponed_Flag (Target : Iir; Value : Boolean); - - -- Returns the list of subprogram called in this subprogram or process. - -- Note: implicit function (such as implicit operators) are omitted - -- from this list, since the purpose of this list is to correctly set - -- flags for side effects (purity_state, wait_state). - -- Can return null_iir if there is no subprogram called. - -- Field: Field7 Of_Ref (uc) - function Get_Callees_List (Proc : Iir) return Iir_List; - procedure Set_Callees_List (Proc : Iir; List : Iir_List); - - -- Get/Set the passive flag of a process. - -- TRUE if the process must be passive. - -- FALSE if the process may be not passive. - -- For a procedure declaration, set if it is passive. - -- Field: Flag2 - function Get_Passive_Flag (Proc : Iir) return Boolean; - procedure Set_Passive_Flag (Proc : Iir; Flag : Boolean); - - -- True if the function is used as a resolution function. - -- Field: Flag7 - function Get_Resolution_Function_Flag (Func : Iir) return Boolean; - procedure Set_Resolution_Function_Flag (Func : Iir; Flag : Boolean); - - -- Get/Set the wait state of the current subprogram or process. - -- TRUE if it contains a wait statement, either directly or - -- indirectly. - -- FALSE if it doesn't contain a wait statement. - -- UNKNOWN if the wait status is not yet known. - -- Field: State1 (pos) - function Get_Wait_State (Proc : Iir) return Tri_State_Type; - procedure Set_Wait_State (Proc : Iir; State : Tri_State_Type); - - -- Get/Set whether the subprogram may be called by a sensitized process - -- whose sensitivity list is ALL. - -- FALSE if declared in a package unit and reads a signal that is not - -- one of its interface, or if it calls such a subprogram. - -- TRUE if it doesn't call a subprogram whose state is False and - -- either doesn't read a signal or declared within an entity or - -- architecture. - -- UNKNOWN if the status is not yet known. - -- Field: State3 (pos) - function Get_All_Sensitized_State (Proc : Iir) return Iir_All_Sensitized; - procedure Set_All_Sensitized_State (Proc : Iir; State : Iir_All_Sensitized); - - -- Get/Set the seen flag. - -- Used when the graph of callees is walked, to avoid infinite loops, since - -- the graph is not a DAG (there may be cycles). - -- Field: Flag1 - function Get_Seen_Flag (Proc : Iir) return Boolean; - procedure Set_Seen_Flag (Proc : Iir; Flag : Boolean); - - -- Get/Set the pure flag of a function. - -- TRUE if the function is declared pure. - -- FALSE if the function is declared impure. - -- Field: Flag2 - function Get_Pure_Flag (Func : Iir) return Boolean; - procedure Set_Pure_Flag (Func : Iir; Flag : Boolean); - - -- Get/Set the foreign flag of a declaration. - -- TRUE if the declaration was decored with the std.foreign attribute. - -- Field: Flag3 - function Get_Foreign_Flag (Decl : Iir) return Boolean; - procedure Set_Foreign_Flag (Decl : Iir; Flag : Boolean); - - -- Get/Set the resolved flag of a subtype definition. - -- A subtype definition may be resolved either because a - -- resolution_indication is present in the subtype_indication, or - -- because all elements type are resolved. - -- Field: Flag1 - function Get_Resolved_Flag (Atype : Iir) return Boolean; - procedure Set_Resolved_Flag (Atype : Iir; Flag : Boolean); - - -- Get/Set the signal_type flag of a type/subtype definition. - -- This flags indicates whether the type can be used as a signal type. - -- Access types, file types and composite types whose a sub-element is - -- an access type cannot be used as a signal type. - -- Field: Flag2 - function Get_Signal_Type_Flag (Atype : Iir) return Boolean; - procedure Set_Signal_Type_Flag (Atype : Iir; Flag : Boolean); - - -- True if ATYPE is used to declare a signal or to handle a signal - -- (such as slice or aliases). - -- Field: Flag3 - function Get_Has_Signal_Flag (Atype : Iir) return Boolean; - procedure Set_Has_Signal_Flag (Atype : Iir; Flag : Boolean); - - -- Get/Set the purity status of a subprogram. - -- Field: State2 (pos) - function Get_Purity_State (Proc : Iir) return Iir_Pure_State; - procedure Set_Purity_State (Proc : Iir; State : Iir_Pure_State); - - -- Set during binding when DESIGN is added in a list of file to bind. - -- Field: Flag3 - function Get_Elab_Flag (Design : Iir) return Boolean; - procedure Set_Elab_Flag (Design : Iir; Flag : Boolean); - - -- Used only by configuration to mark a design unit as already inserted in - -- the list of units. Used to avoid double insertion. - -- Field: Flag4 - function Get_Configuration_Mark_Flag (Design : Iir) return Boolean; - procedure Set_Configuration_Mark_Flag (Design : Iir; Flag : Boolean); - - -- Used only by configuration to flag units completely handled. Used to - -- detect recursion. - -- Field: Flag5 - function Get_Configuration_Done_Flag (Design : Iir) return Boolean; - procedure Set_Configuration_Done_Flag (Design : Iir; Flag : Boolean); - - -- Set on an array_subtype if there is an index constraint. - -- If not set, the subtype is unconstrained. - -- Field: Flag4 - function Get_Index_Constraint_Flag (Atype : Iir) return Boolean; - procedure Set_Index_Constraint_Flag (Atype : Iir; Flag : Boolean); - - -- Field: Flag12 - function Get_Hide_Implicit_Flag (Subprg : Iir) return Boolean; - procedure Set_Hide_Implicit_Flag (Subprg : Iir; Flag : Boolean); - - -- Condition of an assertion. - -- Field: Field1 - function Get_Assertion_Condition (Target : Iir) return Iir; - procedure Set_Assertion_Condition (Target : Iir; Cond : Iir); - - -- Report expression of an assertion or report statement. - -- Field: Field5 - function Get_Report_Expression (Target : Iir) return Iir; - procedure Set_Report_Expression (Target : Iir; Expr : Iir); - - -- Severity expression of an assertion or report statement. - -- Field: Field4 - function Get_Severity_Expression (Target : Iir) return Iir; - procedure Set_Severity_Expression (Target : Iir; Expr : Iir); - - -- Instantiated unit of a component instantiation statement. - -- Field: Field1 - function Get_Instantiated_Unit (Target : Iir) return Iir; - procedure Set_Instantiated_Unit (Target : Iir; Unit : Iir); - - -- Generic map aspect list. - -- Field: Field8 Chain - function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir; - procedure Set_Generic_Map_Aspect_Chain (Target : Iir; Generics : Iir); - - -- Port map aspect list. - -- Field: Field9 Chain - function Get_Port_Map_Aspect_Chain (Target : Iir) return Iir; - procedure Set_Port_Map_Aspect_Chain (Target : Iir; Port : Iir); - - -- Configuration of an entity_aspect_configuration. - -- Field: Field1 - function Get_Configuration_Name (Target : Iir) return Iir; - procedure Set_Configuration_Name (Target : Iir; Conf : Iir); - - -- Component configuration for a component_instantiation_statement. - -- Field: Field6 Forward_Ref - function Get_Component_Configuration (Target : Iir) return Iir; - procedure Set_Component_Configuration (Target : Iir; Conf : Iir); - - -- Configuration specification for a component_instantiation_statement. - -- Field: Field7 Ref - function Get_Configuration_Specification (Target : Iir) return Iir; - procedure Set_Configuration_Specification (Target : Iir; Conf : Iir); - - -- Set/Get the default binding indication of a configuration specification - -- or a component configuration. - -- Field: Field5 - function Get_Default_Binding_Indication (Target : Iir) return Iir; - procedure Set_Default_Binding_Indication (Target : Iir; Conf : Iir); - - -- Set/Get the default configuration of an architecture. - -- Field: Field6 - function Get_Default_Configuration_Declaration (Target : Iir) return Iir; - procedure Set_Default_Configuration_Declaration (Target : Iir; Conf : Iir); - - -- Expression for an various nodes. - -- Field: Field5 - function Get_Expression (Target : Iir) return Iir; - procedure Set_Expression (Target : Iir; Expr : Iir); - - -- A conditional expression. - -- Node kind is a Iir_Kind_Conditional_Expression. - -- Field: Field5 Chain - function Get_Conditional_Expression (Target : Iir) return Iir; - procedure Set_Conditional_Expression (Target : Iir; Expr : Iir); - - -- Set to the designated type (either the type of the expression or the - -- subtype) when the expression is analyzed. - -- Field: Field2 Ref - function Get_Allocator_Designated_Type (Target : Iir) return Iir; - procedure Set_Allocator_Designated_Type (Target : Iir; A_Type : Iir); - - -- Field: Field7 Chain - function Get_Selected_Waveform_Chain (Target : Iir) return Iir; - procedure Set_Selected_Waveform_Chain (Target : Iir; Chain : Iir); - - -- Field: Field5 Chain - function Get_Conditional_Waveform_Chain (Target : Iir) return Iir; - procedure Set_Conditional_Waveform_Chain (Target : Iir; Chain : Iir); - - -- Expression defining the value of the implicit guard signal. - -- Field: Field2 - function Get_Guard_Expression (Target : Iir) return Iir; - procedure Set_Guard_Expression (Target : Iir; Expr : Iir); - - -- The declaration (if any) of the implicit guard signal of a block - -- statement. - -- Field: Field8 - function Get_Guard_Decl (Target : Iir_Block_Statement) return Iir; - procedure Set_Guard_Decl (Target : Iir_Block_Statement; Decl : Iir); - - -- Sensitivity list for the implicit guard signal. - -- Field: Field4 Of_Ref (uc) - function Get_Guard_Sensitivity_List (Guard : Iir) return Iir_List; - procedure Set_Guard_Sensitivity_List (Guard : Iir; List : Iir_List); - - -- Field: Field3 Forward_Ref - function Get_Signal_Attribute_Chain (Decl : Iir) return Iir; - procedure Set_Signal_Attribute_Chain (Decl : Iir; Chain : Iir); - - -- Block_Configuration that applies to this block statement. - -- Field: Field6 Forward_Ref - function Get_Block_Block_Configuration (Block : Iir) return Iir; - procedure Set_Block_Block_Configuration (Block : Iir; Conf : Iir); - - -- Field: Field6 - function Get_Package_Header (Pkg : Iir) return Iir; - procedure Set_Package_Header (Pkg : Iir; Header : Iir); - - -- Field: Field7 - function Get_Block_Header (Target : Iir) return Iir; - procedure Set_Block_Header (Target : Iir; Header : Iir); - - -- Field: Field7 - function Get_Uninstantiated_Package_Name (Inst : Iir) return Iir; - procedure Set_Uninstantiated_Package_Name (Inst : Iir; Name : Iir); - - -- Field: Field9 Ref - function Get_Uninstantiated_Package_Decl (Inst : Iir) return Iir; - procedure Set_Uninstantiated_Package_Decl (Inst : Iir; Pkg : Iir); - - -- The created pseudo-file for relocating the instantiated nodes - -- (generics and declarations). - -- Field: Field10 (uc) - function Get_Instance_Source_File (Inst : Iir) return Source_File_Entry; - procedure Set_Instance_Source_File (Inst : Iir; File : Source_File_Entry); - - -- Get/Set the block_configuration (there may be several - -- block_configuration through the use of prev_configuration singly linked - -- list) that apply to this generate statement. - -- Field: Field2 Forward_Ref - function Get_Generate_Block_Configuration (Target : Iir) return Iir; - procedure Set_Generate_Block_Configuration (Target : Iir; Conf : Iir); - - -- Field: Field4 - function Get_Generate_Statement_Body (Target : Iir) return Iir; - procedure Set_Generate_Statement_Body (Target : Iir; Bod : Iir); - - -- Field: Field3 (uc) - function Get_Alternative_Label (Target : Iir) return Name_Id; - procedure Set_Alternative_Label (Target : Iir; Label : Name_Id); - - -- Field: Field5 - function Get_Generate_Else_Clause (Target : Iir) return Iir; - procedure Set_Generate_Else_Clause (Target : Iir; Clause : Iir); - - -- Condition of a conditional_waveform, if_statement, elsif, - -- while_loop_statement, next_statement or exit_statement. - -- Field: Field1 Maybe_Ref - function Get_Condition (Target : Iir) return Iir; - procedure Set_Condition (Target : Iir; Condition : Iir); - - -- Field: Field4 - function Get_Else_Clause (Target : Iir) return Iir; - procedure Set_Else_Clause (Target : Iir; Clause : Iir); - - -- Iterator of a for_loop_statement. - -- Field: Field1 - function Get_Parameter_Specification (Target : Iir) return Iir; - procedure Set_Parameter_Specification (Target : Iir; Param : Iir); - - -- Get/Set the statement in which TARGET appears. This is used to check - -- if next/exit is in a loop. - -- Field: Field0 Ref - function Get_Parent (Target : Iir) return Iir; - procedure Set_Parent (Target : Iir; Parent : Iir); - - -- Loop label for an exit_statement or next_statement. - -- Field: Field5 - function Get_Loop_Label (Target : Iir) return Iir; - procedure Set_Loop_Label (Target : Iir; Stmt : Iir); - - -- Component name for a component_configuration or - -- a configuration_specification. - -- Field: Field4 - function Get_Component_Name (Target : Iir) return Iir; - procedure Set_Component_Name (Target : Iir; Name : Iir); - - -- Field: Field1 (uc) - function Get_Instantiation_List (Target : Iir) return Iir_Flist; - procedure Set_Instantiation_List (Target : Iir; List : Iir_Flist); - - -- Field: Field3 - function Get_Entity_Aspect (Target : Iir_Binding_Indication) return Iir; - procedure Set_Entity_Aspect (Target : Iir_Binding_Indication; Entity : Iir); - - -- Field: Field1 - function Get_Default_Entity_Aspect (Target : Iir) return Iir; - procedure Set_Default_Entity_Aspect (Target : Iir; Aspect : Iir); - - -- Field: Field3 Maybe_Ref - function Get_Binding_Indication (Target : Iir) return Iir; - procedure Set_Binding_Indication (Target : Iir; Binding : Iir); - - -- The named entity designated by a name. - -- Field: Field4 Maybe_Forward_Ref - function Get_Named_Entity (Name : Iir) return Iir; - procedure Set_Named_Entity (Name : Iir; Val : Iir); - - -- If a name designate a non-object alias, the designated alias. - -- Named_Entity will designate the aliased entity. - -- Field: Field2 Ref - function Get_Alias_Declaration (Name : Iir) return Iir; - procedure Set_Alias_Declaration (Name : Iir; Val : Iir); - - -- Field: Field2 Ref - function Get_Referenced_Name (N : Iir) return Iir; - procedure Set_Referenced_Name (N : Iir; Name : Iir); - - -- Expression staticness, defined by rules of LRM 7.4 - -- Field: State1 (pos) - function Get_Expr_Staticness (Target : Iir) return Iir_Staticness; - procedure Set_Expr_Staticness (Target : Iir; Static : Iir_Staticness); - - -- Node which couldn't be correctly analyzed. - -- Field: Field2 - function Get_Error_Origin (Target : Iir) return Iir; - procedure Set_Error_Origin (Target : Iir; Origin : Iir); - - -- Operand of a monadic operator. - -- Field: Field2 - function Get_Operand (Target : Iir) return Iir; - procedure Set_Operand (Target : Iir; An_Iir : Iir); - - -- Left operand of a dyadic operator. - -- Field: Field2 - function Get_Left (Target : Iir) return Iir; - procedure Set_Left (Target : Iir; An_Iir : Iir); - - -- Right operand of a dyadic operator. - -- Field: Field4 - function Get_Right (Target : Iir) return Iir; - procedure Set_Right (Target : Iir; An_Iir : Iir); - - -- Field: Field3 Ref - function Get_Physical_Unit (Lit : Iir) return Iir; - procedure Set_Physical_Unit (Lit : Iir; Name : Iir); - - -- Field: Field0 - function Get_Unit_Name (Target : Iir) return Iir; - procedure Set_Unit_Name (Target : Iir; Name : Iir); - - -- Field: Field4 - function Get_Name (Target : Iir) return Iir; - procedure Set_Name (Target : Iir; Name : Iir); - - -- Field: Field5 - function Get_Group_Template_Name (Target : Iir) return Iir; - procedure Set_Group_Template_Name (Target : Iir; Name : Iir); - - -- Staticness of a name, according to rules of LRM 6.1 - -- Field: State2 (pos) - function Get_Name_Staticness (Target : Iir) return Iir_Staticness; - procedure Set_Name_Staticness (Target : Iir; Static : Iir_Staticness); - - -- Prefix of a name. - -- Field: Field0 - function Get_Prefix (Target : Iir) return Iir; - procedure Set_Prefix (Target : Iir; Prefix : Iir); - - -- Prefix of a name signature - -- Field: Field1 - function Get_Signature_Prefix (Sign : Iir) return Iir; - procedure Set_Signature_Prefix (Sign : Iir; Prefix : Iir); - - -- External pathname for an external name. - -- Field: Field3 - function Get_External_Pathname (Name : Iir) return Iir; - procedure Set_External_Pathname (Name : Iir; Path : Iir); - - -- Field: Field2 - function Get_Pathname_Suffix (Path : Iir) return Iir; - procedure Set_Pathname_Suffix (Path : Iir; Suffix : Iir); - - -- Field: Field5 - function Get_Pathname_Expression (Path : Iir) return Iir; - procedure Set_Pathname_Expression (Path : Iir; Expr : Iir); - - -- True if the name appears in a formal_part. In that case, some - -- checks must be disabled (eg: the expression of a type conversion can - -- be a write-only interface). - -- Field: Flag4 - function Get_In_Formal_Flag (Name : Iir) return Boolean; - procedure Set_In_Formal_Flag (Name : Iir; Flag : Boolean); - - -- The subtype of a slice. Contrary to the Type field, this is not a - -- reference. - -- Field: Field3 - function Get_Slice_Subtype (Slice : Iir) return Iir; - procedure Set_Slice_Subtype (Slice : Iir; Atype : Iir); - - -- Suffix of a slice or attribute. - -- Field: Field2 - function Get_Suffix (Target : Iir) return Iir; - procedure Set_Suffix (Target : Iir; Suffix : Iir); - - -- Set the designated index subtype of an array attribute. - -- Field: Field2 Ref - function Get_Index_Subtype (Attr : Iir) return Iir; - procedure Set_Index_Subtype (Attr : Iir; St : Iir); - - -- Parameter of an attribute. - -- Field: Field4 - function Get_Parameter (Target : Iir) return Iir; - procedure Set_Parameter (Target : Iir; Param : Iir); - - -- Field: Field2 Forward_Ref - function Get_Attr_Chain (Attr : Iir) return Iir; - procedure Set_Attr_Chain (Attr : Iir; Chain : Iir); - - -- Field: Field3 Forward_Ref - function Get_Signal_Attribute_Declaration (Attr : Iir) return Iir; - procedure Set_Signal_Attribute_Declaration (Attr : Iir; Decl : Iir); - - -- Type of the actual for an association by individual. - -- Unless the formal is an unconstrained array type, this is the same as - -- the formal type. - -- Subtype indiciation for a type association. - -- Field: Field5 Ref - function Get_Actual_Type (Target : Iir) return Iir; - procedure Set_Actual_Type (Target : Iir; Atype : Iir); - - -- Field: Field3 - function Get_Actual_Type_Definition (Target : Iir) return Iir; - procedure Set_Actual_Type_Definition (Target : Iir; Atype : Iir); - - -- List of individual associations for association_element_by_individual. - -- Associations for parenthesis_name. - -- Field: Field2 Chain - function Get_Association_Chain (Target : Iir) return Iir; - procedure Set_Association_Chain (Target : Iir; Chain : Iir); - - -- List of choices for association_element_by_individual. - -- Field: Field4 Chain - function Get_Individual_Association_Chain (Target : Iir) return Iir; - procedure Set_Individual_Association_Chain (Target : Iir; Chain : Iir); - - -- Chain of implicit subprogram associations for a type association. - -- Field: Field4 Chain - function Get_Subprogram_Association_Chain (Target : Iir) return Iir; - procedure Set_Subprogram_Association_Chain (Target : Iir; Chain : Iir); - - -- Get/Set info for the aggregate. - -- There is one aggregate_info for for each dimension. - -- Field: Field5 - function Get_Aggregate_Info (Target : Iir) return Iir; - procedure Set_Aggregate_Info (Target : Iir; Info : Iir); - - -- Get/Set the info node for the next dimension. - -- Field: Field1 - function Get_Sub_Aggregate_Info (Target : Iir) return Iir; - procedure Set_Sub_Aggregate_Info (Target : Iir; Info : Iir); - - -- TRUE when the length of the aggregate is not locally static. - -- Field: Flag3 - function Get_Aggr_Dynamic_Flag (Target : Iir) return Boolean; - procedure Set_Aggr_Dynamic_Flag (Target : Iir; Val : Boolean); - - -- Get/Set the minimum number of elements for the lowest dimension of - -- the aggregate or for the current dimension of a sub-aggregate. - -- The real number of elements may be greater than this number if there - -- is an 'other' choice. - -- Field: Field4 (uc) - function Get_Aggr_Min_Length (Info : Iir_Aggregate_Info) return Iir_Int32; - procedure Set_Aggr_Min_Length (Info : Iir_Aggregate_Info; Nbr : Iir_Int32); - - -- Highest index choice, if any. - -- Field: Field2 Ref - function Get_Aggr_Low_Limit (Target : Iir_Aggregate_Info) return Iir; - procedure Set_Aggr_Low_Limit (Target : Iir_Aggregate_Info; Limit : Iir); - - -- Highest index choice, if any. - -- Field: Field3 Ref - function Get_Aggr_High_Limit (Target : Iir_Aggregate_Info) return Iir; - procedure Set_Aggr_High_Limit (Target : Iir_Aggregate_Info; Limit : Iir); - - -- True if the aggregate has an 'others' choice. - -- Field: Flag2 - function Get_Aggr_Others_Flag (Target : Iir_Aggregate_Info) return Boolean; - procedure Set_Aggr_Others_Flag (Target : Iir_Aggregate_Info; Val : Boolean); - - -- True if the aggregate have named associations. - -- Field: Flag4 - function Get_Aggr_Named_Flag (Target : Iir_Aggregate_Info) return Boolean; - procedure Set_Aggr_Named_Flag (Target : Iir_Aggregate_Info; Val : Boolean); - - -- True if the aggregate can be statically built. - -- Field: Flag1 - function Get_Aggregate_Expand_Flag (Aggr : Iir) return Boolean; - procedure Set_Aggregate_Expand_Flag (Aggr : Iir; Flag : Boolean); - - -- Chain of choices. - -- Field: Field4 Chain - function Get_Association_Choices_Chain (Target : Iir) return Iir; - procedure Set_Association_Choices_Chain (Target : Iir; Chain : Iir); - - -- Chain of choices. - -- Field: Field1 Chain - function Get_Case_Statement_Alternative_Chain (Target : Iir) return Iir; - procedure Set_Case_Statement_Alternative_Chain (Target : Iir; Chain : Iir); - - -- Staticness of the choice. - -- Field: State1 (pos) - function Get_Choice_Staticness (Target : Iir) return Iir_Staticness; - procedure Set_Choice_Staticness (Target : Iir; Staticness : Iir_Staticness); - - -- Field: Field1 - function Get_Procedure_Call (Stmt : Iir) return Iir; - procedure Set_Procedure_Call (Stmt : Iir; Call : Iir); - - -- Subprogram to be called by a procedure, function call or operator. This - -- is the declaration of the subprogram (or a list of during analysis). - -- Field: Field3 Ref - function Get_Implementation (Target : Iir) return Iir; - procedure Set_Implementation (Target : Iir; Decl : Iir); - - -- Paramater associations for procedure and function call. - -- Field: Field2 Chain - function Get_Parameter_Association_Chain (Target : Iir) return Iir; - procedure Set_Parameter_Association_Chain (Target : Iir; Chain : Iir); - - -- Object of a method call. NULL_IIR if the subprogram is not a method. - -- Field: Field4 Ref - function Get_Method_Object (Target : Iir) return Iir; - procedure Set_Method_Object (Target : Iir; Object : Iir); - - -- The type_mark that appeared in the subtype indication. This is a name. - -- May be null_iir if there is no type mark (as in an iterator). - -- Field: Field2 - function Get_Subtype_Type_Mark (Target : Iir) return Iir; - procedure Set_Subtype_Type_Mark (Target : Iir; Mark : Iir); - - -- Field: Field3 - function Get_Type_Conversion_Subtype (Target : Iir) return Iir; - procedure Set_Type_Conversion_Subtype (Target : Iir; Atype : Iir); - - -- The type_mark that appeared in qualified expressions or type - -- conversions. - -- Field: Field4 - function Get_Type_Mark (Target : Iir) return Iir; - procedure Set_Type_Mark (Target : Iir; Mark : Iir); - - -- The type of values for a type file. - -- Field: Field2 - function Get_File_Type_Mark (Target : Iir) return Iir; - procedure Set_File_Type_Mark (Target : Iir; Mark : Iir); - - -- Field: Field8 - function Get_Return_Type_Mark (Target : Iir) return Iir; - procedure Set_Return_Type_Mark (Target : Iir; Mark : Iir); - - -- This flag is set on a signal_declaration, when a disconnection - -- specification applies to the signal (or a subelement of it). - -- This is used to check 'others' and 'all' designators. - -- Field: Flag1 - function Get_Has_Disconnect_Flag (Target : Iir) return Boolean; - procedure Set_Has_Disconnect_Flag (Target : Iir; Val : Boolean); - - -- This flag is set on a signal when its activity is read by the user. - -- Some signals handling can be optimized when this flag is set. - -- Field: Flag2 - function Get_Has_Active_Flag (Target : Iir) return Boolean; - procedure Set_Has_Active_Flag (Target : Iir; Val : Boolean); - - -- This flag is set is code being analyzed is textually within TARGET. - -- This is used for selected by name rule. - -- Field: Flag5 - function Get_Is_Within_Flag (Target : Iir) return Boolean; - procedure Set_Is_Within_Flag (Target : Iir; Val : Boolean); - - -- List of type_mark for an Iir_Kind_Signature - -- Field: Field2 (uc) - function Get_Type_Marks_List (Target : Iir) return Iir_Flist; - procedure Set_Type_Marks_List (Target : Iir; List : Iir_Flist); - - -- Field: Flag1 - function Get_Implicit_Alias_Flag (Decl : Iir) return Boolean; - procedure Set_Implicit_Alias_Flag (Decl : Iir; Flag : Boolean); - - -- Field: Field5 - function Get_Alias_Signature (Alias : Iir) return Iir; - procedure Set_Alias_Signature (Alias : Iir; Signature : Iir); - - -- Field: Field2 - function Get_Attribute_Signature (Attr : Iir) return Iir; - procedure Set_Attribute_Signature (Attr : Iir; Signature : Iir); - - -- Field: Field1 Of_Ref (uc) - function Get_Overload_List (Target : Iir) return Iir_List; - procedure Set_Overload_List (Target : Iir; List : Iir_List); - - -- Identifier of the simple_name attribute. - -- Field: Field3 (uc) - function Get_Simple_Name_Identifier (Target : Iir) return Name_Id; - procedure Set_Simple_Name_Identifier (Target : Iir; Ident : Name_Id); - - -- Subtype for Simple_Name attribute. - -- Field: Field4 - function Get_Simple_Name_Subtype (Target : Iir) return Iir; - procedure Set_Simple_Name_Subtype (Target : Iir; Atype : Iir); - - -- Body of a protected type declaration. - -- Field: Field2 Forward_Ref - function Get_Protected_Type_Body (Target : Iir) return Iir; - procedure Set_Protected_Type_Body (Target : Iir; Bod : Iir); - - -- Corresponsing protected type declaration of a protected type body. - -- Field: Field4 Ref - function Get_Protected_Type_Declaration (Target : Iir) return Iir; - procedure Set_Protected_Type_Declaration (Target : Iir; Decl : Iir); - - -- For a declaration: true if the declaration is used somewhere. - -- Field: Flag6 - function Get_Use_Flag (Decl : Iir) return Boolean; - procedure Set_Use_Flag (Decl : Iir; Val : Boolean); - - -- Layout flag: true if 'end' is followed by the reserved identifier. - -- Field: Flag8 - function Get_End_Has_Reserved_Id (Decl : Iir) return Boolean; - procedure Set_End_Has_Reserved_Id (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'end' is followed by the identifier. - -- Field: Flag9 - function Get_End_Has_Identifier (Decl : Iir) return Boolean; - procedure Set_End_Has_Identifier (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'end' is followed by 'postponed'. - -- Field: Flag10 - function Get_End_Has_Postponed (Decl : Iir) return Boolean; - procedure Set_End_Has_Postponed (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if a label is present. - -- Field: Flag6 - function Get_Has_Label (Decl : Iir) return Boolean; - procedure Set_Has_Label (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'begin' is present. - -- Field: Flag10 - function Get_Has_Begin (Decl : Iir) return Boolean; - procedure Set_Has_Begin (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'end' is present (only for generate body). - -- Field: Flag11 - function Get_Has_End (Decl : Iir) return Boolean; - procedure Set_Has_End (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'is' is present. - -- Field: Flag7 - function Get_Has_Is (Decl : Iir) return Boolean; - procedure Set_Has_Is (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'pure' or 'impure' is present. - -- Field: Flag8 - function Get_Has_Pure (Decl : Iir) return Boolean; - procedure Set_Has_Pure (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if body appears just after the specification. - -- Field: Flag9 - function Get_Has_Body (Decl : Iir) return Boolean; - procedure Set_Has_Body (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'parameter' reserved identifier is present. - -- Field: Flag10 - function Get_Has_Parameter (Decl : Iir) return Boolean; - procedure Set_Has_Parameter (Decl : Iir; Flag : Boolean); - - -- Layout flag: true if 'component' reserved identifier is present. - -- Field: Flag5 - function Get_Has_Component (Decl : Iir) return Boolean; - procedure Set_Has_Component (Decl : Iir; Flag : Boolean); - - -- Layout flag for object declaration. If True, the identifier of this - -- declaration is followed by an identifier (and separated by a comma). - -- This flag is set on all but the last declarations. - -- Eg: on 'signal A, B, C : Bit', the flag is set on A and B (but not C). - -- Field: Flag3 - function Get_Has_Identifier_List (Decl : Iir) return Boolean; - procedure Set_Has_Identifier_List (Decl : Iir; Flag : Boolean); - - -- Layout flag for object declaration. If True, the mode is present. - -- Field: Flag10 - function Get_Has_Mode (Decl : Iir) return Boolean; - procedure Set_Has_Mode (Decl : Iir; Flag : Boolean); - - -- Layout flag for object declaration. If True, the object class is - -- present. - -- Field: Flag11 - function Get_Has_Class (Decl : Iir) return Boolean; - procedure Set_Has_Class (Decl : Iir; Flag : Boolean); - - -- Set on wait, procedure call and composite statements when there is a - -- sub-statement that can suspend a procedure or a process. Also set - -- on procedure declaration. Note that the flag is conservative: it must - -- be true if the node contains directly or indirectly a wait statement, - -- but need not to be false otherwise. - -- Field: Flag11 - function Get_Suspend_Flag (Stmt : Iir) return Boolean; - procedure Set_Suspend_Flag (Stmt : Iir; Flag : Boolean); - - -- Set to True if Maybe_Ref fields are references. This cannot be shared - -- with Has_Identifier_List as: Is_Ref is set to True on all items but - -- the first, while Has_Identifier_List is set to True on all items but - -- the last. Furthermore Is_Ref appears in nodes where Has_Identifier_List - -- is not present. - -- Field: Flag12 - function Get_Is_Ref (N : Iir) return Boolean; - procedure Set_Is_Ref (N : Iir; Ref : Boolean); - - -- Field: Flag1 - function Get_Is_Forward_Ref (N : Iir) return Boolean; - procedure Set_Is_Forward_Ref (N : Iir; Ref : Boolean); - - -- Field: Field1 (uc) - function Get_Psl_Property (Decl : Iir) return PSL_Node; - procedure Set_Psl_Property (Decl : Iir; Prop : PSL_Node); - - -- Field: Field1 (uc) - function Get_Psl_Sequence (Decl : Iir) return PSL_Node; - procedure Set_Psl_Sequence (Decl : Iir; Prop : PSL_Node); - - -- Field: Field6 (uc) - function Get_Psl_Declaration (Decl : Iir) return PSL_Node; - procedure Set_Psl_Declaration (Decl : Iir; Prop : PSL_Node); - - -- Field: Field3 (uc) - function Get_Psl_Expression (Decl : Iir) return PSL_Node; - procedure Set_Psl_Expression (Decl : Iir; Prop : PSL_Node); - - -- Field: Field1 (uc) - function Get_Psl_Boolean (N : Iir) return PSL_Node; - procedure Set_Psl_Boolean (N : Iir; Bool : PSL_Node); - - -- Field: Field7 (uc) - function Get_PSL_Clock (N : Iir) return PSL_Node; - procedure Set_PSL_Clock (N : Iir; Clock : PSL_Node); - - -- Field: Field8 (uc) - function Get_PSL_NFA (N : Iir) return PSL_NFA; - procedure Set_PSL_NFA (N : Iir; Fa : PSL_NFA); - - -- Field: Field9 (uc) - function Get_PSL_Nbr_States (N : Iir) return Int32; - procedure Set_PSL_Nbr_States (N : Iir; Nbr : Int32); - - -- Field: Field10 (uc) - function Get_PSL_Clock_Sensitivity (N : Iir) return Iir_List; - procedure Set_PSL_Clock_Sensitivity (N : Iir; List : Iir_List); - - -- Field: Flag1 - function Get_PSL_EOS_Flag (N : Iir) return Boolean; - procedure Set_PSL_EOS_Flag (N : Iir; Flag : Boolean); - -end Iirs; diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb index 89b9d46ec..960a85c40 100644 --- a/src/vhdl/iirs_utils.adb +++ b/src/vhdl/iirs_utils.adb @@ -746,7 +746,7 @@ package body Iirs_Utils is -- Get identifier of NODE as a string. function Image_Identifier (Node : Iir) return String is begin - return Name_Table.Image (Iirs.Get_Identifier (Node)); + return Name_Table.Image (Vhdl.Nodes.Get_Identifier (Node)); end Image_Identifier; function Image_String_Lit (Str : Iir) return String is diff --git a/src/vhdl/iirs_utils.ads b/src/vhdl/iirs_utils.ads index d70096f09..acee1bc64 100644 --- a/src/vhdl/iirs_utils.ads +++ b/src/vhdl/iirs_utils.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Iirs_Utils is -- Transform the current token into an iir literal. diff --git a/src/vhdl/iirs_walk.ads b/src/vhdl/iirs_walk.ads index c00aa955d..ca0a9e88f 100644 --- a/src/vhdl/iirs_walk.ads +++ b/src/vhdl/iirs_walk.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Iirs_Walk is type Walk_Status is diff --git a/src/vhdl/nodes_meta.ads b/src/vhdl/nodes_meta.ads index e3a0113ca..a5d308043 100644 --- a/src/vhdl/nodes_meta.ads +++ b/src/vhdl/nodes_meta.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; use Vhdl.Tokens; package Nodes_Meta is diff --git a/src/vhdl/nodes_meta.ads.in b/src/vhdl/nodes_meta.ads.in index d48c9ec07..2f8b435d9 100644 --- a/src/vhdl/nodes_meta.ads.in +++ b/src/vhdl/nodes_meta.ads.in @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; use Vhdl.Tokens; package Nodes_Meta is diff --git a/src/vhdl/simulate/simul-annotations.ads b/src/vhdl/simulate/simul-annotations.ads index caed38cbb..36a158f1e 100644 --- a/src/vhdl/simulate/simul-annotations.ads +++ b/src/vhdl/simulate/simul-annotations.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; package Simul.Annotations is diff --git a/src/vhdl/simulate/simul-debugger.ads b/src/vhdl/simulate/simul-debugger.ads index f2aabd536..21d96df90 100644 --- a/src/vhdl/simulate/simul-debugger.ads +++ b/src/vhdl/simulate/simul-debugger.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; with Grt.Types; diff --git a/src/vhdl/simulate/simul-elaboration.ads b/src/vhdl/simulate/simul-elaboration.ads index e4af1f21c..22a912596 100644 --- a/src/vhdl/simulate/simul-elaboration.ads +++ b/src/vhdl/simulate/simul-elaboration.ads @@ -18,7 +18,7 @@ with Tables; with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; with Grt.Types; use Grt.Types; diff --git a/src/vhdl/simulate/simul-environments.ads b/src/vhdl/simulate/simul-environments.ads index 845c4fafc..ec3a5f9e3 100644 --- a/src/vhdl/simulate/simul-environments.ads +++ b/src/vhdl/simulate/simul-environments.ads @@ -18,7 +18,7 @@ with Ada.Unchecked_Deallocation; with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Grt.Types; use Grt.Types; with Grt.Signals; use Grt.Signals; with Grt.Files; diff --git a/src/vhdl/simulate/simul-execution.ads b/src/vhdl/simulate/simul-execution.ads index f85970048..ade4ac085 100644 --- a/src/vhdl/simulate/simul-execution.ads +++ b/src/vhdl/simulate/simul-execution.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; with Simul.Elaboration; use Simul.Elaboration; with Areapools; use Areapools; diff --git a/src/vhdl/simulate/simul-file_operation.ads b/src/vhdl/simulate/simul-file_operation.ads index 5844cea77..04944961f 100644 --- a/src/vhdl/simulate/simul-file_operation.ads +++ b/src/vhdl/simulate/simul-file_operation.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; with Grt.Files; use Grt.Files; with Grt.Types; use Grt.Types; diff --git a/src/vhdl/simulate/simul-grt_interface.adb b/src/vhdl/simulate/simul-grt_interface.adb index a8ff0a056..40069e908 100644 --- a/src/vhdl/simulate/simul-grt_interface.adb +++ b/src/vhdl/simulate/simul-grt_interface.adb @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Types; use Types; package body Simul.Grt_Interface is diff --git a/src/vhdl/simulate/simul-simulation.ads b/src/vhdl/simulate/simul-simulation.ads index 5ab01a6ff..0f976dae8 100644 --- a/src/vhdl/simulate/simul-simulation.ads +++ b/src/vhdl/simulate/simul-simulation.ads @@ -18,7 +18,7 @@ with System; with Grt.Types; use Grt.Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Simul.Environments; use Simul.Environments; package Simul.Simulation is diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb index 2ce7a34a4..9a0afe2e5 100644 --- a/src/vhdl/translate/ortho_front.adb +++ b/src/vhdl/translate/ortho_front.adb @@ -22,7 +22,7 @@ with Types; use Types; with Name_Table; with Hash; with Interning; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Libraries; with Iirs_Utils; use Iirs_Utils; with Vhdl.Std_Package; diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index bceaf986d..487e5dba9 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -19,7 +19,7 @@ with Ada.Unchecked_Deallocation; with Interfaces; use Interfaces; with Ortho_Nodes; use Ortho_Nodes; with Ortho_Ident; use Ortho_Ident; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Types; use Types; package Trans is diff --git a/src/vhdl/translate/trans_analyzes.ads b/src/vhdl/translate/trans_analyzes.ads index ecebb7597..3b021bc54 100644 --- a/src/vhdl/translate/trans_analyzes.ads +++ b/src/vhdl/translate/trans_analyzes.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Trans_Analyzes is -- Extract a list of drivers from PROC. diff --git a/src/vhdl/translate/trans_be.ads b/src/vhdl/translate/trans_be.ads index 95cf04c1a..ff0026fb8 100644 --- a/src/vhdl/translate/trans_be.ads +++ b/src/vhdl/translate/trans_be.ads @@ -15,7 +15,7 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Translation; package Trans_Be is diff --git a/src/vhdl/translate/translation.ads b/src/vhdl/translate/translation.ads index ca8877ad7..73c92c347 100644 --- a/src/vhdl/translate/translation.ads +++ b/src/vhdl/translate/translation.ads @@ -15,7 +15,7 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Ortho_Nodes; package Translation is diff --git a/src/vhdl/vhdl-back_end.ads b/src/vhdl/vhdl-back_end.ads index ea62ae80b..6aa351e7b 100644 --- a/src/vhdl/vhdl-back_end.ads +++ b/src/vhdl/vhdl-back_end.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Back_End is -- Back-end options. diff --git a/src/vhdl/vhdl-canon.ads b/src/vhdl/vhdl-canon.ads index ca32f5744..9b79a19a0 100644 --- a/src/vhdl/vhdl-canon.ads +++ b/src/vhdl/vhdl-canon.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Canon is -- If true, a label will be added to unlabelled concurrent statements. diff --git a/src/vhdl/vhdl-canon_psl.ads b/src/vhdl/vhdl-canon_psl.ads index 03e740acc..d5805d480 100644 --- a/src/vhdl/vhdl-canon_psl.ads +++ b/src/vhdl/vhdl-canon_psl.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Canon_PSL is -- Version of Canon.Canon_Extract_Sensitivity for PSL nodes. diff --git a/src/vhdl/vhdl-configuration.ads b/src/vhdl/vhdl-configuration.ads index 96d9851ed..d38b90366 100644 --- a/src/vhdl/vhdl-configuration.ads +++ b/src/vhdl/vhdl-configuration.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Tables; package Vhdl.Configuration is diff --git a/src/vhdl/vhdl-disp_tree.ads b/src/vhdl/vhdl-disp_tree.ads index 72aca5827..d2828b1bc 100644 --- a/src/vhdl/vhdl-disp_tree.ads +++ b/src/vhdl/vhdl-disp_tree.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; use Vhdl.Tokens; package Vhdl.Disp_Tree is diff --git a/src/vhdl/vhdl-disp_vhdl.ads b/src/vhdl/vhdl-disp_vhdl.ads index cdf5528ba..b29a1e736 100644 --- a/src/vhdl/vhdl-disp_vhdl.ads +++ b/src/vhdl/vhdl-disp_vhdl.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Disp_Vhdl is -- General procedure to display a node. diff --git a/src/vhdl/vhdl-elocations.ads b/src/vhdl/vhdl-elocations.ads index 8772aec1b..14c33999f 100644 --- a/src/vhdl/vhdl-elocations.ads +++ b/src/vhdl/vhdl-elocations.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Elocations is diff --git a/src/vhdl/vhdl-elocations_meta.ads b/src/vhdl/vhdl-elocations_meta.ads index ad389daca..41cd354f4 100644 --- a/src/vhdl/vhdl-elocations_meta.ads +++ b/src/vhdl/vhdl-elocations_meta.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Elocations_Meta is -- The enumeration of all fields defined in iirs. diff --git a/src/vhdl/vhdl-elocations_meta.ads.in b/src/vhdl/vhdl-elocations_meta.ads.in index dfbce3296..63ed26599 100644 --- a/src/vhdl/vhdl-elocations_meta.ads.in +++ b/src/vhdl/vhdl-elocations_meta.ads.in @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Elocations_Meta is -- The enumeration of all fields defined in iirs. diff --git a/src/vhdl/vhdl-evaluation.ads b/src/vhdl/vhdl-evaluation.ads index 12b8c778e..61c290ae1 100644 --- a/src/vhdl/vhdl-evaluation.ads +++ b/src/vhdl/vhdl-evaluation.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Evaluation is diff --git a/src/vhdl/vhdl-ieee.ads b/src/vhdl/vhdl-ieee.ads index 53a094ea7..87b9933a0 100644 --- a/src/vhdl/vhdl-ieee.ads +++ b/src/vhdl/vhdl-ieee.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Ieee is -- Skip constant string declaration for a copyright, if present. diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb new file mode 100644 index 000000000..82c99b95c --- /dev/null +++ b/src/vhdl/vhdl-nodes.adb @@ -0,0 +1,6569 @@ +-- Tree node definitions. +-- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Conversion; +with Tables; +with Logging; use Logging; +with Lists; use Lists; +with Nodes_Meta; use Nodes_Meta; +with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv; + +package body Vhdl.Nodes is + -- A simple type that needs only 2 bits. + type Bit2_Type is range 0 .. 2 ** 2 - 1; + + type Kind_Type is range 0 .. 2 ** 9 - 1; + + -- Format of a node. + type Format_Type is + ( + Format_Short, + Format_Medium + ); + + -- Common fields are: + -- Flag1 : Boolean + -- Flag2 : Boolean + -- Flag3 : Boolean + -- Flag4 : Boolean + -- Flag5 : Boolean + -- Flag6 : Boolean + -- Flag7 : Boolean + -- Flag8 : Boolean + -- Flag9 : Boolean + -- Flag10 : Boolean + -- Flag11 : Boolean + -- Flag12 : Boolean + -- Flag13 : Boolean + -- Flag14 : Boolean + -- Flag15 : Boolean + -- Nkind : Kind_Type + -- State1 : Bit2_Type + -- State2 : Bit2_Type + -- Location : Location_Type + -- Field0 : Iir + -- Field1 : Iir + -- Field2 : Iir + -- Field3 : Iir + -- Field4 : Iir + -- Field5 : Iir + + -- Fields of Format_Short: + + -- Fields of Format_Medium: + -- State3 : Bit2_Type + -- State4 : Bit2_Type + -- Field6 : Iir (location) + -- Field7 : Iir (field0) + -- Field8 : Iir (field1) + -- Field9 : Iir (field2) + -- Field10 : Iir (field3) + -- Field11 : Iir (field4) + -- Field12 : Iir (field5) + + function Create_Node (Format : Format_Type) return Node_Type; + procedure Free_Node (N : Node_Type); + + function Get_Nkind (N : Node_Type) return Kind_Type; + pragma Inline (Get_Nkind); + procedure Set_Nkind (N : Node_Type; Kind : Kind_Type); + pragma Inline (Set_Nkind); + + function Get_Field0 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field0); + procedure Set_Field0 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field0); + + function Get_Field1 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field1); + procedure Set_Field1 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field1); + + function Get_Field2 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field2); + procedure Set_Field2 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field2); + + function Get_Field3 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field3); + procedure Set_Field3 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field3); + + function Get_Field4 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field4); + procedure Set_Field4 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field4); + + + function Get_Field5 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field5); + procedure Set_Field5 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field5); + + function Get_Field6 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field6); + procedure Set_Field6 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field6); + + function Get_Field7 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field7); + procedure Set_Field7 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field7); + + function Get_Field8 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field8); + procedure Set_Field8 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field8); + + function Get_Field9 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field9); + procedure Set_Field9 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field9); + + function Get_Field10 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field10); + procedure Set_Field10 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field10); + + function Get_Field11 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field11); + procedure Set_Field11 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field11); + + function Get_Field12 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field12); + procedure Set_Field12 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field12); + + + function Get_Flag1 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag1); + procedure Set_Flag1 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag1); + + function Get_Flag2 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag2); + procedure Set_Flag2 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag2); + + function Get_Flag3 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag3); + procedure Set_Flag3 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag3); + + function Get_Flag4 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag4); + procedure Set_Flag4 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag4); + + function Get_Flag5 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag5); + procedure Set_Flag5 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag5); + + function Get_Flag6 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag6); + procedure Set_Flag6 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag6); + + function Get_Flag7 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag7); + procedure Set_Flag7 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag7); + + function Get_Flag8 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag8); + procedure Set_Flag8 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag8); + + function Get_Flag9 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag9); + procedure Set_Flag9 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag9); + + function Get_Flag10 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag10); + procedure Set_Flag10 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag10); + + function Get_Flag11 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag11); + procedure Set_Flag11 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag11); + + function Get_Flag12 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag12); + procedure Set_Flag12 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag12); + + function Get_Flag13 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag13); + procedure Set_Flag13 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag13); + + function Get_Flag14 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag14); + procedure Set_Flag14 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag14); + + function Get_Flag15 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag15); + procedure Set_Flag15 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag15); + + + function Get_State1 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State1); + procedure Set_State1 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State1); + + function Get_State2 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State2); + procedure Set_State2 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State2); + + function Get_State3 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State3); + procedure Set_State3 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State3); + + type Node_Record is record + -- First byte: + Format : Format_Type; + Flag1 : Boolean; + Flag2 : Boolean; + Flag3 : Boolean; + Flag4 : Boolean; + Flag5 : Boolean; + Flag6 : Boolean; + Flag7 : Boolean; + + -- Second byte: + Flag8 : Boolean; + Flag9 : Boolean; + Flag10 : Boolean; + Flag11 : Boolean; + Flag12 : Boolean; + Flag13 : Boolean; + Flag14 : Boolean; + Flag15 : Boolean; + + -- Third byte: + Flag16 : Boolean; + Flag17 : Boolean; + Flag18 : Boolean; + + -- 2*2 = 4 bits + State1 : Bit2_Type; + State2 : Bit2_Type; + + -- 9 bits + Kind : Kind_Type; + + -- Location. + Location: Location_Type; + + Field0 : Node_Type; + Field1 : Node_Type; + Field2 : Node_Type; + Field3 : Node_Type; + Field4 : Node_Type; + Field5 : Node_Type; + end record; + pragma Pack (Node_Record); + for Node_Record'Size use 8*32; + for Node_Record'Alignment use 4; + pragma Suppress_Initialization (Node_Record); + + Init_Node : constant Node_Record := Node_Record' + (Format => Format_Short, + Kind => 0, + State1 | State2 => 0, + Location => Location_Nil, + Field0 | Field1 | Field2 | Field3 | Field4 | Field5 => Null_Node, + others => False); + + -- Suppress the access check of the table base. This is really safe to + -- suppress this check because the table base cannot be null. + pragma Suppress (Access_Check); + + -- Suppress the index check on the table. + -- Could be done during non-debug, since this may catch errors (reading + -- Null_Node or Error_Node). + --pragma Suppress (Index_Check); + + package Nodet is new Tables + (Table_Component_Type => Node_Record, + Table_Index_Type => Node_Type, + Table_Low_Bound => 2, + Table_Initial => 1024); + + function Get_Last_Node return Iir is + begin + return Nodet.Last; + end Get_Last_Node; + + Free_Chain : Node_Type := Null_Node; + + function Create_Node (Format : Format_Type) return Node_Type + is + Res : Node_Type; + begin + case Format is + when Format_Medium => + -- Allocate a first node. + Nodet.Increment_Last; + Res := Nodet.Last; + -- Check alignment. + if Res mod 2 = 1 then + Set_Field1 (Res, Free_Chain); + Free_Chain := Res; + Nodet.Increment_Last; + Res := Nodet.Last; + end if; + -- Allocate the second node. + Nodet.Increment_Last; + Nodet.Table (Res) := Init_Node; + Nodet.Table (Res).Format := Format_Medium; + Nodet.Table (Res + 1) := Init_Node; + when Format_Short => + -- Check from free pool + if Free_Chain = Null_Node then + Nodet.Increment_Last; + Res := Nodet.Last; + else + Res := Free_Chain; + Free_Chain := Get_Field1 (Res); + end if; + Nodet.Table (Res) := Init_Node; + end case; + return Res; + end Create_Node; + + procedure Free_Node (N : Node_Type) + is + begin + if N /= Null_Node then + Set_Nkind (N, 0); + Set_Field1 (N, Free_Chain); + Free_Chain := N; + if Nodet.Table (N).Format = Format_Medium then + Set_Field1 (N + 1, Free_Chain); + Free_Chain := N + 1; + end if; + end if; + end Free_Node; + + procedure Free_Iir (Target : Iir) renames Free_Node; + + function Next_Node (N : Node_Type) return Node_Type is + begin + case Nodet.Table (N).Format is + when Format_Medium => + return N + 2; + when Format_Short => + return N + 1; + end case; + end Next_Node; + + function Get_Nkind (N : Node_Type) return Kind_Type is + begin + return Nodet.Table (N).Kind; + end Get_Nkind; + + procedure Set_Nkind (N : Node_Type; Kind : Kind_Type) is + begin + Nodet.Table (N).Kind := Kind; + end Set_Nkind; + + + procedure Set_Location (N : Iir; Location: Location_Type) is + begin + Nodet.Table (N).Location := Location; + end Set_Location; + + function Get_Location (N: Iir) return Location_Type is + begin + return Nodet.Table (N).Location; + end Get_Location; + + + procedure Set_Field0 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field0 := V; + end Set_Field0; + + function Get_Field0 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field0; + end Get_Field0; + + + function Get_Field1 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field1; + end Get_Field1; + + procedure Set_Field1 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field1 := V; + end Set_Field1; + + function Get_Field2 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field2; + end Get_Field2; + + procedure Set_Field2 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field2 := V; + end Set_Field2; + + function Get_Field3 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field3; + end Get_Field3; + + procedure Set_Field3 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field3 := V; + end Set_Field3; + + function Get_Field4 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field4; + end Get_Field4; + + procedure Set_Field4 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field4 := V; + end Set_Field4; + + function Get_Field5 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field5; + end Get_Field5; + + procedure Set_Field5 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field5 := V; + end Set_Field5; + + function Get_Field6 (N: Node_Type) return Node_Type is + begin + return Node_Type (Nodet.Table (N + 1).Location); + end Get_Field6; + + procedure Set_Field6 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Location := Location_Type (Val); + end Set_Field6; + + function Get_Field7 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field0; + end Get_Field7; + + procedure Set_Field7 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field0 := Val; + end Set_Field7; + + function Get_Field8 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field1; + end Get_Field8; + + procedure Set_Field8 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field1 := Val; + end Set_Field8; + + function Get_Field9 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field2; + end Get_Field9; + + procedure Set_Field9 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field2 := Val; + end Set_Field9; + + function Get_Field10 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field3; + end Get_Field10; + + procedure Set_Field10 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field3 := Val; + end Set_Field10; + + function Get_Field11 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field4; + end Get_Field11; + + procedure Set_Field11 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field4 := Val; + end Set_Field11; + + function Get_Field12 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field5; + end Get_Field12; + + procedure Set_Field12 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field5 := Val; + end Set_Field12; + + + function Get_Flag1 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag1; + end Get_Flag1; + + procedure Set_Flag1 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag1 := V; + end Set_Flag1; + + function Get_Flag2 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag2; + end Get_Flag2; + + procedure Set_Flag2 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag2 := V; + end Set_Flag2; + + function Get_Flag3 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag3; + end Get_Flag3; + + procedure Set_Flag3 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag3 := V; + end Set_Flag3; + + function Get_Flag4 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag4; + end Get_Flag4; + + procedure Set_Flag4 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag4 := V; + end Set_Flag4; + + function Get_Flag5 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag5; + end Get_Flag5; + + procedure Set_Flag5 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag5 := V; + end Set_Flag5; + + function Get_Flag6 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag6; + end Get_Flag6; + + procedure Set_Flag6 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag6 := V; + end Set_Flag6; + + function Get_Flag7 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag7; + end Get_Flag7; + + procedure Set_Flag7 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag7 := V; + end Set_Flag7; + + function Get_Flag8 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag8; + end Get_Flag8; + + procedure Set_Flag8 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag8 := V; + end Set_Flag8; + + function Get_Flag9 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag9; + end Get_Flag9; + + procedure Set_Flag9 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag9 := V; + end Set_Flag9; + + function Get_Flag10 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag10; + end Get_Flag10; + + procedure Set_Flag10 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag10 := V; + end Set_Flag10; + + function Get_Flag11 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag11; + end Get_Flag11; + + procedure Set_Flag11 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag11 := V; + end Set_Flag11; + + function Get_Flag12 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag12; + end Get_Flag12; + + procedure Set_Flag12 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag12 := V; + end Set_Flag12; + + function Get_Flag13 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag13; + end Get_Flag13; + + procedure Set_Flag13 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag13 := V; + end Set_Flag13; + + function Get_Flag14 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag14; + end Get_Flag14; + + procedure Set_Flag14 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag14 := V; + end Set_Flag14; + + function Get_Flag15 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag15; + end Get_Flag15; + + procedure Set_Flag15 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag15 := V; + end Set_Flag15; + + + function Get_State1 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N).State1; + end Get_State1; + + procedure Set_State1 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N).State1 := V; + end Set_State1; + + function Get_State2 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N).State2; + end Get_State2; + + procedure Set_State2 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N).State2 := V; + end Set_State2; + + function Get_State3 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N + 1).State1; + end Get_State3; + + procedure Set_State3 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N + 1).State1 := V; + end Set_State3; + + procedure Initialize is + begin + Nodet.Free; + Nodet.Init; + end Initialize; + + function Is_Null (Node : Iir) return Boolean is + begin + return Node = Null_Iir; + end Is_Null; + + function Is_Null_List (Node : Iir_List) return Boolean is + begin + return Node = Null_Iir_List; + end Is_Null_List; + + function Is_Valid (Node : Iir) return Boolean is + begin + return Node /= Null_Iir; + end Is_Valid; + + --------------------------------------------------- + -- General subprograms that operate on every iir -- + --------------------------------------------------- + + function Get_Format (Kind : Iir_Kind) return Format_Type; + + function Create_Iir (Kind : Iir_Kind) return Iir + is + Res : Iir; + Format : Format_Type; + begin + Format := Get_Format (Kind); + Res := Create_Node (Format); + Set_Nkind (Res, Iir_Kind'Pos (Kind)); + return Res; + end Create_Iir; + + -- Statistics. + procedure Disp_Stats + is + type Num_Array is array (Iir_Kind) of Natural; + Num : Num_Array := (others => 0); + type Format_Array is array (Format_Type) of Natural; + Formats : Format_Array := (others => 0); + Kind : Iir_Kind; + I : Iir; + Last_I : Iir; + Format : Format_Type; + begin + I := Error_Node + 1; + Last_I := Get_Last_Node; + while I < Last_I loop + Kind := Get_Kind (I); + Num (Kind) := Num (Kind) + 1; + Format := Get_Format (Kind); + Formats (Format) := Formats (Format) + 1; + I := Next_Node (I); + end loop; + + Log_Line ("Stats per iir_kind:"); + for J in Iir_Kind loop + if Num (J) /= 0 then + Log_Line (' ' & Iir_Kind'Image (J) & ':' + & Natural'Image (Num (J))); + end if; + end loop; + Log_Line ("Stats per formats:"); + for J in Format_Type loop + Log_Line (' ' & Format_Type'Image (J) & ':' + & Natural'Image (Formats (J))); + end loop; + end Disp_Stats; + + function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean is + begin + return K = K1 or K = K2; + end Kind_In; + + function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) + return Boolean is + begin + case Func is + when Iir_Predefined_Bit_And + | Iir_Predefined_Bit_Or + | Iir_Predefined_Bit_Nand + | Iir_Predefined_Bit_Nor + | Iir_Predefined_Boolean_And + | Iir_Predefined_Boolean_Or + | Iir_Predefined_Boolean_Nand + | Iir_Predefined_Boolean_Nor => + return True; + when others => + return False; + end case; + end Iir_Predefined_Shortcut_P; + + function Create_Iir_Error return Iir + is + Res : Iir; + begin + Res := Create_Node (Format_Short); + Set_Nkind (Res, Iir_Kind'Pos (Iir_Kind_Error)); + Set_Base_Type (Res, Res); + return Res; + end Create_Iir_Error; + + procedure Location_Copy (Target : Iir; Src : Iir) is + begin + Set_Location (Target, Get_Location (Src)); + end Location_Copy; + + -- Get kind + function Get_Kind (N : Iir) return Iir_Kind + is + -- Speed up: avoid to check that nkind is in the bounds of Iir_Kind. + pragma Suppress (Range_Check); + begin + pragma Assert (N /= Null_Iir); + return Iir_Kind'Val (Get_Nkind (N)); + end Get_Kind; + + function Time_Stamp_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => Time_Stamp_Id, Target => Iir); + + function Iir_To_Time_Stamp_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => Time_Stamp_Id); + + function File_Checksum_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => File_Checksum_Id, Target => Iir); + + function Iir_To_File_Checksum_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => File_Checksum_Id); + + function Iir_To_Iir_List is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_List); + function Iir_List_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_List, Target => Iir); + + function Iir_To_Iir_Flist is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_Flist); + function Iir_Flist_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_Flist, Target => Iir); + + function Iir_To_Token_Type (N : Iir) return Token_Type is + begin + return Token_Type'Val (N); + end Iir_To_Token_Type; + + function Token_Type_To_Iir (T : Token_Type) return Iir is + begin + return Token_Type'Pos (T); + end Token_Type_To_Iir; + +-- function Iir_To_Iir_Index32 (N : Iir) return Iir_Index32 is +-- begin +-- return Iir_Index32 (N); +-- end Iir_To_Iir_Index32; + +-- function Iir_Index32_To_Iir (V : Iir_Index32) return Iir is +-- begin +-- return Iir_Index32'Pos (V); +-- end Iir_Index32_To_Iir; + + function Iir_To_Name_Id (N : Iir) return Name_Id is + begin + return Iir'Pos (N); + end Iir_To_Name_Id; + pragma Inline (Iir_To_Name_Id); + + function Name_Id_To_Iir (V : Name_Id) return Iir is + begin + return Name_Id'Pos (V); + end Name_Id_To_Iir; + + function Iir_To_Iir_Int32 is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_Int32); + + function Iir_Int32_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_Int32, Target => Iir); + + function Iir_To_Source_Ptr (N : Iir) return Source_Ptr is + begin + return Source_Ptr (N); + end Iir_To_Source_Ptr; + + function Source_Ptr_To_Iir (P : Source_Ptr) return Iir is + begin + return Iir (P); + end Source_Ptr_To_Iir; + + function Iir_To_Source_File_Entry is new Ada.Unchecked_Conversion + (Source => Iir, Target => Source_File_Entry); + function Source_File_Entry_To_Iir is new Ada.Unchecked_Conversion + (Source => Source_File_Entry, Target => Iir); + + function Boolean_To_Iir_Delay_Mechanism is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Delay_Mechanism); + function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Delay_Mechanism, Target => Boolean); + + function Boolean_To_Iir_Signal_Kind is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Signal_Kind); + function Iir_Signal_Kind_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Signal_Kind, Target => Boolean); + + function Iir_To_String8_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => String8_Id); + function String8_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => String8_Id, Target => Iir); + + function Iir_To_Int32 is new Ada.Unchecked_Conversion + (Source => Iir, Target => Int32); + function Int32_To_Iir is new Ada.Unchecked_Conversion + (Source => Int32, Target => Iir); + + function Iir_To_PSL_Node is new Ada.Unchecked_Conversion + (Source => Iir, Target => PSL_Node); + + function PSL_Node_To_Iir is new Ada.Unchecked_Conversion + (Source => PSL_Node, Target => Iir); + + function Iir_To_PSL_NFA is new Ada.Unchecked_Conversion + (Source => Iir, Target => PSL_NFA); + + function PSL_NFA_To_Iir is new Ada.Unchecked_Conversion + (Source => PSL_NFA, Target => Iir); + + -- Subprograms + function Get_Format (Kind : Iir_Kind) return Format_Type is + begin + case Kind is + when Iir_Kind_Unused + | Iir_Kind_Error + | Iir_Kind_Library_Clause + | Iir_Kind_Use_Clause + | Iir_Kind_Context_Reference + | Iir_Kind_Integer_Literal + | Iir_Kind_Floating_Point_Literal + | Iir_Kind_Null_Literal + | Iir_Kind_String_Literal8 + | Iir_Kind_Physical_Int_Literal + | Iir_Kind_Physical_Fp_Literal + | Iir_Kind_Simple_Aggregate + | Iir_Kind_Overflow_Literal + | Iir_Kind_Unaffected_Waveform + | Iir_Kind_Waveform_Element + | Iir_Kind_Conditional_Waveform + | Iir_Kind_Conditional_Expression + | Iir_Kind_Association_Element_By_Expression + | Iir_Kind_Association_Element_By_Individual + | Iir_Kind_Association_Element_Open + | Iir_Kind_Association_Element_Package + | Iir_Kind_Association_Element_Type + | Iir_Kind_Association_Element_Subprogram + | Iir_Kind_Choice_By_Range + | Iir_Kind_Choice_By_Expression + | Iir_Kind_Choice_By_Others + | Iir_Kind_Choice_By_None + | Iir_Kind_Choice_By_Name + | Iir_Kind_Entity_Aspect_Entity + | Iir_Kind_Entity_Aspect_Configuration + | Iir_Kind_Entity_Aspect_Open + | Iir_Kind_Block_Configuration + | Iir_Kind_Component_Configuration + | Iir_Kind_Entity_Class + | Iir_Kind_Attribute_Value + | Iir_Kind_Aggregate_Info + | Iir_Kind_Procedure_Call + | Iir_Kind_Record_Element_Constraint + | Iir_Kind_Array_Element_Resolution + | Iir_Kind_Record_Resolution + | Iir_Kind_Record_Element_Resolution + | Iir_Kind_Disconnection_Specification + | Iir_Kind_Configuration_Specification + | Iir_Kind_Access_Type_Definition + | Iir_Kind_Incomplete_Type_Definition + | Iir_Kind_Interface_Type_Definition + | Iir_Kind_File_Type_Definition + | Iir_Kind_Protected_Type_Declaration + | Iir_Kind_Record_Type_Definition + | Iir_Kind_Access_Subtype_Definition + | Iir_Kind_Physical_Subtype_Definition + | Iir_Kind_Integer_Subtype_Definition + | Iir_Kind_Enumeration_Subtype_Definition + | Iir_Kind_Enumeration_Type_Definition + | Iir_Kind_Integer_Type_Definition + | Iir_Kind_Floating_Type_Definition + | Iir_Kind_Physical_Type_Definition + | Iir_Kind_Range_Expression + | Iir_Kind_Protected_Type_Body + | Iir_Kind_Wildcard_Type_Definition + | Iir_Kind_Overload_List + | Iir_Kind_Type_Declaration + | Iir_Kind_Anonymous_Type_Declaration + | Iir_Kind_Subtype_Declaration + | Iir_Kind_Nature_Declaration + | Iir_Kind_Subnature_Declaration + | Iir_Kind_Configuration_Declaration + | Iir_Kind_Context_Declaration + | Iir_Kind_Package_Body + | Iir_Kind_Unit_Declaration + | Iir_Kind_Library_Declaration + | Iir_Kind_Attribute_Declaration + | Iir_Kind_Group_Template_Declaration + | Iir_Kind_Group_Declaration + | Iir_Kind_Element_Declaration + | Iir_Kind_Non_Object_Alias_Declaration + | Iir_Kind_Terminal_Declaration + | Iir_Kind_Free_Quantity_Declaration + | Iir_Kind_Enumeration_Literal + | Iir_Kind_Object_Alias_Declaration + | Iir_Kind_Guard_Signal_Declaration + | Iir_Kind_Signal_Declaration + | Iir_Kind_Variable_Declaration + | Iir_Kind_Interface_Constant_Declaration + | Iir_Kind_Interface_Variable_Declaration + | Iir_Kind_Interface_Signal_Declaration + | Iir_Kind_Interface_File_Declaration + | Iir_Kind_Interface_Type_Declaration + | Iir_Kind_Signal_Attribute_Declaration + | Iir_Kind_Identity_Operator + | Iir_Kind_Negation_Operator + | Iir_Kind_Absolute_Operator + | Iir_Kind_Not_Operator + | Iir_Kind_Implicit_Condition_Operator + | Iir_Kind_Condition_Operator + | Iir_Kind_Reduction_And_Operator + | Iir_Kind_Reduction_Or_Operator + | Iir_Kind_Reduction_Nand_Operator + | Iir_Kind_Reduction_Nor_Operator + | Iir_Kind_Reduction_Xor_Operator + | Iir_Kind_Reduction_Xnor_Operator + | Iir_Kind_And_Operator + | Iir_Kind_Or_Operator + | Iir_Kind_Nand_Operator + | Iir_Kind_Nor_Operator + | Iir_Kind_Xor_Operator + | Iir_Kind_Xnor_Operator + | Iir_Kind_Equality_Operator + | Iir_Kind_Inequality_Operator + | Iir_Kind_Less_Than_Operator + | Iir_Kind_Less_Than_Or_Equal_Operator + | Iir_Kind_Greater_Than_Operator + | Iir_Kind_Greater_Than_Or_Equal_Operator + | Iir_Kind_Match_Equality_Operator + | Iir_Kind_Match_Inequality_Operator + | Iir_Kind_Match_Less_Than_Operator + | Iir_Kind_Match_Less_Than_Or_Equal_Operator + | Iir_Kind_Match_Greater_Than_Operator + | Iir_Kind_Match_Greater_Than_Or_Equal_Operator + | Iir_Kind_Sll_Operator + | Iir_Kind_Sla_Operator + | Iir_Kind_Srl_Operator + | Iir_Kind_Sra_Operator + | Iir_Kind_Rol_Operator + | Iir_Kind_Ror_Operator + | Iir_Kind_Addition_Operator + | Iir_Kind_Substraction_Operator + | Iir_Kind_Concatenation_Operator + | Iir_Kind_Multiplication_Operator + | Iir_Kind_Division_Operator + | Iir_Kind_Modulus_Operator + | Iir_Kind_Remainder_Operator + | Iir_Kind_Exponentiation_Operator + | Iir_Kind_Function_Call + | Iir_Kind_Aggregate + | Iir_Kind_Parenthesis_Expression + | Iir_Kind_Qualified_Expression + | Iir_Kind_Type_Conversion + | Iir_Kind_Allocator_By_Expression + | Iir_Kind_Allocator_By_Subtype + | Iir_Kind_Selected_Element + | Iir_Kind_Dereference + | Iir_Kind_Implicit_Dereference + | Iir_Kind_Slice_Name + | Iir_Kind_Indexed_Name + | Iir_Kind_Psl_Expression + | Iir_Kind_Concurrent_Assertion_Statement + | Iir_Kind_Concurrent_Procedure_Call_Statement + | Iir_Kind_If_Generate_Statement + | Iir_Kind_Case_Generate_Statement + | Iir_Kind_For_Generate_Statement + | Iir_Kind_Psl_Default_Clock + | Iir_Kind_Generate_Statement_Body + | Iir_Kind_If_Generate_Else_Clause + | Iir_Kind_Simple_Signal_Assignment_Statement + | Iir_Kind_Conditional_Signal_Assignment_Statement + | Iir_Kind_Null_Statement + | Iir_Kind_Assertion_Statement + | Iir_Kind_Report_Statement + | Iir_Kind_Variable_Assignment_Statement + | Iir_Kind_Conditional_Variable_Assignment_Statement + | Iir_Kind_Return_Statement + | Iir_Kind_For_Loop_Statement + | Iir_Kind_While_Loop_Statement + | Iir_Kind_Next_Statement + | Iir_Kind_Exit_Statement + | Iir_Kind_Case_Statement + | Iir_Kind_Procedure_Call_Statement + | Iir_Kind_If_Statement + | Iir_Kind_Elsif + | Iir_Kind_Character_Literal + | Iir_Kind_Simple_Name + | Iir_Kind_Selected_Name + | Iir_Kind_Operator_Symbol + | Iir_Kind_Reference_Name + | Iir_Kind_External_Constant_Name + | Iir_Kind_External_Signal_Name + | Iir_Kind_External_Variable_Name + | Iir_Kind_Selected_By_All_Name + | Iir_Kind_Parenthesis_Name + | Iir_Kind_Package_Pathname + | Iir_Kind_Absolute_Pathname + | Iir_Kind_Relative_Pathname + | Iir_Kind_Pathname_Element + | Iir_Kind_Base_Attribute + | Iir_Kind_Subtype_Attribute + | Iir_Kind_Element_Attribute + | Iir_Kind_Left_Type_Attribute + | Iir_Kind_Right_Type_Attribute + | Iir_Kind_High_Type_Attribute + | Iir_Kind_Low_Type_Attribute + | Iir_Kind_Ascending_Type_Attribute + | Iir_Kind_Image_Attribute + | Iir_Kind_Value_Attribute + | Iir_Kind_Pos_Attribute + | Iir_Kind_Val_Attribute + | Iir_Kind_Succ_Attribute + | Iir_Kind_Pred_Attribute + | Iir_Kind_Leftof_Attribute + | Iir_Kind_Rightof_Attribute + | Iir_Kind_Delayed_Attribute + | Iir_Kind_Stable_Attribute + | Iir_Kind_Quiet_Attribute + | Iir_Kind_Transaction_Attribute + | Iir_Kind_Event_Attribute + | Iir_Kind_Active_Attribute + | Iir_Kind_Last_Event_Attribute + | Iir_Kind_Last_Active_Attribute + | Iir_Kind_Last_Value_Attribute + | Iir_Kind_Driving_Attribute + | Iir_Kind_Driving_Value_Attribute + | Iir_Kind_Behavior_Attribute + | Iir_Kind_Structure_Attribute + | Iir_Kind_Simple_Name_Attribute + | Iir_Kind_Instance_Name_Attribute + | Iir_Kind_Path_Name_Attribute + | Iir_Kind_Left_Array_Attribute + | Iir_Kind_Right_Array_Attribute + | Iir_Kind_High_Array_Attribute + | Iir_Kind_Low_Array_Attribute + | Iir_Kind_Length_Array_Attribute + | Iir_Kind_Ascending_Array_Attribute + | Iir_Kind_Range_Array_Attribute + | Iir_Kind_Reverse_Range_Array_Attribute + | Iir_Kind_Attribute_Name => + return Format_Short; + when Iir_Kind_Design_File + | Iir_Kind_Design_Unit + | Iir_Kind_Block_Header + | Iir_Kind_Binding_Indication + | Iir_Kind_Signature + | Iir_Kind_Attribute_Specification + | Iir_Kind_Array_Type_Definition + | Iir_Kind_Array_Subtype_Definition + | Iir_Kind_Record_Subtype_Definition + | Iir_Kind_Floating_Subtype_Definition + | Iir_Kind_Subtype_Definition + | Iir_Kind_Scalar_Nature_Definition + | Iir_Kind_Entity_Declaration + | Iir_Kind_Package_Declaration + | Iir_Kind_Package_Instantiation_Declaration + | Iir_Kind_Architecture_Body + | Iir_Kind_Package_Header + | Iir_Kind_Component_Declaration + | Iir_Kind_Psl_Declaration + | Iir_Kind_Psl_Endpoint_Declaration + | Iir_Kind_Across_Quantity_Declaration + | Iir_Kind_Through_Quantity_Declaration + | Iir_Kind_Function_Declaration + | Iir_Kind_Procedure_Declaration + | Iir_Kind_Function_Body + | Iir_Kind_Procedure_Body + | Iir_Kind_File_Declaration + | Iir_Kind_Constant_Declaration + | Iir_Kind_Iterator_Declaration + | Iir_Kind_Interface_Package_Declaration + | Iir_Kind_Interface_Function_Declaration + | Iir_Kind_Interface_Procedure_Declaration + | Iir_Kind_Sensitized_Process_Statement + | Iir_Kind_Process_Statement + | Iir_Kind_Concurrent_Simple_Signal_Assignment + | Iir_Kind_Concurrent_Conditional_Signal_Assignment + | Iir_Kind_Concurrent_Selected_Signal_Assignment + | Iir_Kind_Psl_Assert_Statement + | Iir_Kind_Psl_Cover_Statement + | Iir_Kind_Block_Statement + | Iir_Kind_Component_Instantiation_Statement + | Iir_Kind_Simple_Simultaneous_Statement + | Iir_Kind_Selected_Waveform_Assignment_Statement + | Iir_Kind_Wait_Statement => + return Format_Medium; + end case; + end Get_Format; + + function Get_First_Design_Unit (Design : Iir) return Iir is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_First_Design_Unit (Get_Kind (Design)), + "no field First_Design_Unit"); + return Get_Field5 (Design); + end Get_First_Design_Unit; + + procedure Set_First_Design_Unit (Design : Iir; Chain : Iir) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_First_Design_Unit (Get_Kind (Design)), + "no field First_Design_Unit"); + Set_Field5 (Design, Chain); + end Set_First_Design_Unit; + + function Get_Last_Design_Unit (Design : Iir) return Iir is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Last_Design_Unit (Get_Kind (Design)), + "no field Last_Design_Unit"); + return Get_Field6 (Design); + end Get_Last_Design_Unit; + + procedure Set_Last_Design_Unit (Design : Iir; Chain : Iir) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Last_Design_Unit (Get_Kind (Design)), + "no field Last_Design_Unit"); + Set_Field6 (Design, Chain); + end Set_Last_Design_Unit; + + function Get_Library_Declaration (Design : Iir) return Iir is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Library_Declaration (Get_Kind (Design)), + "no field Library_Declaration"); + return Get_Field1 (Design); + end Get_Library_Declaration; + + procedure Set_Library_Declaration (Design : Iir; Library : Iir) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Library_Declaration (Get_Kind (Design)), + "no field Library_Declaration"); + Set_Field1 (Design, Library); + end Set_Library_Declaration; + + function Get_File_Checksum (Design : Iir) return File_Checksum_Id is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_File_Checksum (Get_Kind (Design)), + "no field File_Checksum"); + return Iir_To_File_Checksum_Id (Get_Field4 (Design)); + end Get_File_Checksum; + + procedure Set_File_Checksum (Design : Iir; Checksum : File_Checksum_Id) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_File_Checksum (Get_Kind (Design)), + "no field File_Checksum"); + Set_Field4 (Design, File_Checksum_Id_To_Iir (Checksum)); + end Set_File_Checksum; + + function Get_Analysis_Time_Stamp (Design : Iir) return Time_Stamp_Id is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Analysis_Time_Stamp (Get_Kind (Design)), + "no field Analysis_Time_Stamp"); + return Iir_To_Time_Stamp_Id (Get_Field3 (Design)); + end Get_Analysis_Time_Stamp; + + procedure Set_Analysis_Time_Stamp (Design : Iir; Stamp : Time_Stamp_Id) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Analysis_Time_Stamp (Get_Kind (Design)), + "no field Analysis_Time_Stamp"); + Set_Field3 (Design, Time_Stamp_Id_To_Iir (Stamp)); + end Set_Analysis_Time_Stamp; + + function Get_Design_File_Source (Design : Iir) return Source_File_Entry is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Design_File_Source (Get_Kind (Design)), + "no field Design_File_Source"); + return Iir_To_Source_File_Entry (Get_Field7 (Design)); + end Get_Design_File_Source; + + procedure Set_Design_File_Source (Design : Iir; Sfe : Source_File_Entry) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Design_File_Source (Get_Kind (Design)), + "no field Design_File_Source"); + Set_Field7 (Design, Source_File_Entry_To_Iir (Sfe)); + end Set_Design_File_Source; + + function Get_Library (File : Iir_Design_File) return Iir is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Library (Get_Kind (File)), + "no field Library"); + return Get_Field0 (File); + end Get_Library; + + procedure Set_Library (File : Iir_Design_File; Lib : Iir) is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Library (Get_Kind (File)), + "no field Library"); + Set_Field0 (File, Lib); + end Set_Library; + + function Get_File_Dependence_List (File : Iir_Design_File) return Iir_List + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_File_Dependence_List (Get_Kind (File)), + "no field File_Dependence_List"); + return Iir_To_Iir_List (Get_Field1 (File)); + end Get_File_Dependence_List; + + procedure Set_File_Dependence_List (File : Iir_Design_File; Lst : Iir_List) + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_File_Dependence_List (Get_Kind (File)), + "no field File_Dependence_List"); + Set_Field1 (File, Iir_List_To_Iir (Lst)); + end Set_File_Dependence_List; + + function Get_Design_File_Filename (File : Iir_Design_File) return Name_Id + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Design_File_Filename (Get_Kind (File)), + "no field Design_File_Filename"); + return Name_Id'Val (Get_Field12 (File)); + end Get_Design_File_Filename; + + procedure Set_Design_File_Filename (File : Iir_Design_File; Name : Name_Id) + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Design_File_Filename (Get_Kind (File)), + "no field Design_File_Filename"); + Set_Field12 (File, Name_Id'Pos (Name)); + end Set_Design_File_Filename; + + function Get_Design_File_Directory (File : Iir_Design_File) return Name_Id + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Design_File_Directory (Get_Kind (File)), + "no field Design_File_Directory"); + return Name_Id'Val (Get_Field11 (File)); + end Get_Design_File_Directory; + + procedure Set_Design_File_Directory (File : Iir_Design_File; Dir : Name_Id) + is + begin + pragma Assert (File /= Null_Iir); + pragma Assert (Has_Design_File_Directory (Get_Kind (File)), + "no field Design_File_Directory"); + Set_Field11 (File, Name_Id'Pos (Dir)); + end Set_Design_File_Directory; + + function Get_Design_File (Unit : Iir_Design_Unit) return Iir is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Design_File (Get_Kind (Unit)), + "no field Design_File"); + return Get_Field0 (Unit); + end Get_Design_File; + + procedure Set_Design_File (Unit : Iir_Design_Unit; File : Iir) is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Design_File (Get_Kind (Unit)), + "no field Design_File"); + Set_Field0 (Unit, File); + end Set_Design_File; + + function Get_Design_File_Chain (Library : Iir) return Iir is + begin + pragma Assert (Library /= Null_Iir); + pragma Assert (Has_Design_File_Chain (Get_Kind (Library)), + "no field Design_File_Chain"); + return Get_Field1 (Library); + end Get_Design_File_Chain; + + procedure Set_Design_File_Chain (Library : Iir; Chain : Iir) is + begin + pragma Assert (Library /= Null_Iir); + pragma Assert (Has_Design_File_Chain (Get_Kind (Library)), + "no field Design_File_Chain"); + Set_Field1 (Library, Chain); + end Set_Design_File_Chain; + + function Get_Library_Directory (Library : Iir) return Name_Id is + begin + pragma Assert (Library /= Null_Iir); + pragma Assert (Has_Library_Directory (Get_Kind (Library)), + "no field Library_Directory"); + return Name_Id'Val (Get_Field5 (Library)); + end Get_Library_Directory; + + procedure Set_Library_Directory (Library : Iir; Dir : Name_Id) is + begin + pragma Assert (Library /= Null_Iir); + pragma Assert (Has_Library_Directory (Get_Kind (Library)), + "no field Library_Directory"); + Set_Field5 (Library, Name_Id'Pos (Dir)); + end Set_Library_Directory; + + function Get_Date (Target : Iir) return Date_Type is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Date (Get_Kind (Target)), + "no field Date"); + return Date_Type'Val (Get_Field4 (Target)); + end Get_Date; + + procedure Set_Date (Target : Iir; Date : Date_Type) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Date (Get_Kind (Target)), + "no field Date"); + Set_Field4 (Target, Date_Type'Pos (Date)); + end Set_Date; + + function Get_Context_Items (Design_Unit : Iir) return Iir is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Context_Items (Get_Kind (Design_Unit)), + "no field Context_Items"); + return Get_Field1 (Design_Unit); + end Get_Context_Items; + + procedure Set_Context_Items (Design_Unit : Iir; Items_Chain : Iir) is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Context_Items (Get_Kind (Design_Unit)), + "no field Context_Items"); + Set_Field1 (Design_Unit, Items_Chain); + end Set_Context_Items; + + function Get_Dependence_List (Unit : Iir) return Iir_List is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Dependence_List (Get_Kind (Unit)), + "no field Dependence_List"); + return Iir_To_Iir_List (Get_Field8 (Unit)); + end Get_Dependence_List; + + procedure Set_Dependence_List (Unit : Iir; List : Iir_List) is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Dependence_List (Get_Kind (Unit)), + "no field Dependence_List"); + Set_Field8 (Unit, Iir_List_To_Iir (List)); + end Set_Dependence_List; + + function Get_Analysis_Checks_List (Unit : Iir) return Iir_List is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Analysis_Checks_List (Get_Kind (Unit)), + "no field Analysis_Checks_List"); + return Iir_To_Iir_List (Get_Field9 (Unit)); + end Get_Analysis_Checks_List; + + procedure Set_Analysis_Checks_List (Unit : Iir; List : Iir_List) is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Analysis_Checks_List (Get_Kind (Unit)), + "no field Analysis_Checks_List"); + Set_Field9 (Unit, Iir_List_To_Iir (List)); + end Set_Analysis_Checks_List; + + function Get_Date_State (Unit : Iir_Design_Unit) return Date_State_Type is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Date_State (Get_Kind (Unit)), + "no field Date_State"); + return Date_State_Type'Val (Get_State1 (Unit)); + end Get_Date_State; + + procedure Set_Date_State (Unit : Iir_Design_Unit; State : Date_State_Type) + is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Date_State (Get_Kind (Unit)), + "no field Date_State"); + Set_State1 (Unit, Date_State_Type'Pos (State)); + end Set_Date_State; + + function Get_Guarded_Target_State (Stmt : Iir) return Tri_State_Type is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Guarded_Target_State (Get_Kind (Stmt)), + "no field Guarded_Target_State"); + return Tri_State_Type'Val (Get_State1 (Stmt)); + end Get_Guarded_Target_State; + + procedure Set_Guarded_Target_State (Stmt : Iir; State : Tri_State_Type) is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Guarded_Target_State (Get_Kind (Stmt)), + "no field Guarded_Target_State"); + Set_State1 (Stmt, Tri_State_Type'Pos (State)); + end Set_Guarded_Target_State; + + function Get_Library_Unit (Design_Unit : Iir_Design_Unit) return Iir is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Library_Unit (Get_Kind (Design_Unit)), + "no field Library_Unit"); + return Get_Field5 (Design_Unit); + end Get_Library_Unit; + + procedure Set_Library_Unit (Design_Unit : Iir_Design_Unit; Lib_Unit : Iir) + is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Library_Unit (Get_Kind (Design_Unit)), + "no field Library_Unit"); + Set_Field5 (Design_Unit, Lib_Unit); + end Set_Library_Unit; + + function Get_Hash_Chain (Design_Unit : Iir_Design_Unit) return Iir is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Hash_Chain (Get_Kind (Design_Unit)), + "no field Hash_Chain"); + return Get_Field7 (Design_Unit); + end Get_Hash_Chain; + + procedure Set_Hash_Chain (Design_Unit : Iir_Design_Unit; Chain : Iir) is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Hash_Chain (Get_Kind (Design_Unit)), + "no field Hash_Chain"); + Set_Field7 (Design_Unit, Chain); + end Set_Hash_Chain; + + function Get_Design_Unit_Source_Pos (Design_Unit : Iir) return Source_Ptr + is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Pos (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Pos"); + return Iir_To_Source_Ptr (Get_Field10 (Design_Unit)); + end Get_Design_Unit_Source_Pos; + + procedure Set_Design_Unit_Source_Pos (Design_Unit : Iir; Pos : Source_Ptr) + is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Pos (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Pos"); + Set_Field10 (Design_Unit, Source_Ptr_To_Iir (Pos)); + end Set_Design_Unit_Source_Pos; + + function Get_Design_Unit_Source_Line (Design_Unit : Iir) return Int32 is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Line (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Line"); + return Iir_To_Int32 (Get_Field11 (Design_Unit)); + end Get_Design_Unit_Source_Line; + + procedure Set_Design_Unit_Source_Line (Design_Unit : Iir; Line : Int32) is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Line (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Line"); + Set_Field11 (Design_Unit, Int32_To_Iir (Line)); + end Set_Design_Unit_Source_Line; + + function Get_Design_Unit_Source_Col (Design_Unit : Iir) return Int32 is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Col (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Col"); + return Iir_To_Int32 (Get_Field12 (Design_Unit)); + end Get_Design_Unit_Source_Col; + + procedure Set_Design_Unit_Source_Col (Design_Unit : Iir; Line : Int32) is + begin + pragma Assert (Design_Unit /= Null_Iir); + pragma Assert (Has_Design_Unit_Source_Col (Get_Kind (Design_Unit)), + "no field Design_Unit_Source_Col"); + Set_Field12 (Design_Unit, Int32_To_Iir (Line)); + end Set_Design_Unit_Source_Col; + + type Iir_Int64_Conv is record + Field4: Iir; + Field5: Iir; + end record; + pragma Pack (Iir_Int64_Conv); + pragma Assert (Iir_Int64_Conv'Size = Iir_Int64'Size); + + function Get_Value (Lit : Iir) return Iir_Int64 + is + function To_Iir_Int64 is new Ada.Unchecked_Conversion + (Iir_Int64_Conv, Iir_Int64); + Conv : Iir_Int64_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Value (Get_Kind (Lit)), + "no field Value"); + Conv.Field4 := Get_Field4 (Lit); + Conv.Field5 := Get_Field5 (Lit); + return To_Iir_Int64 (Conv); + end Get_Value; + + procedure Set_Value (Lit : Iir; Val : Iir_Int64) + is + function To_Iir_Int64_Conv is new Ada.Unchecked_Conversion + (Iir_Int64, Iir_Int64_Conv); + Conv : Iir_Int64_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Value (Get_Kind (Lit)), + "no field Value"); + Conv := To_Iir_Int64_Conv (Val); + Set_Field4 (Lit, Conv.Field4); + Set_Field5 (Lit, Conv.Field5); + end Set_Value; + + function Get_Enum_Pos (Lit : Iir) return Iir_Int32 is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Enum_Pos (Get_Kind (Lit)), + "no field Enum_Pos"); + return Iir_Int32'Val (Get_Field5 (Lit)); + end Get_Enum_Pos; + + procedure Set_Enum_Pos (Lit : Iir; Val : Iir_Int32) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Enum_Pos (Get_Kind (Lit)), + "no field Enum_Pos"); + Set_Field5 (Lit, Iir_Int32'Pos (Val)); + end Set_Enum_Pos; + + function Get_Physical_Literal (Unit : Iir) return Iir is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Physical_Literal (Get_Kind (Unit)), + "no field Physical_Literal"); + return Get_Field4 (Unit); + end Get_Physical_Literal; + + procedure Set_Physical_Literal (Unit : Iir; Lit : Iir) is + begin + pragma Assert (Unit /= Null_Iir); + pragma Assert (Has_Physical_Literal (Get_Kind (Unit)), + "no field Physical_Literal"); + Set_Field4 (Unit, Lit); + end Set_Physical_Literal; + + type Iir_Fp64_Conv is record + Field4: Iir; + Field5: Iir; + end record; + pragma Pack (Iir_Fp64_Conv); + pragma Assert (Iir_Fp64_Conv'Size = Iir_Fp64'Size); + + function Get_Fp_Value (Lit : Iir) return Iir_Fp64 + is + function To_Iir_Fp64 is new Ada.Unchecked_Conversion + (Iir_Fp64_Conv, Iir_Fp64); + Conv : Iir_Fp64_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Fp_Value (Get_Kind (Lit)), + "no field Fp_Value"); + Conv.Field4 := Get_Field4 (Lit); + Conv.Field5 := Get_Field5 (Lit); + return To_Iir_Fp64 (Conv); + end Get_Fp_Value; + + procedure Set_Fp_Value (Lit : Iir; Val : Iir_Fp64) + is + function To_Iir_Fp64_Conv is new Ada.Unchecked_Conversion + (Iir_Fp64, Iir_Fp64_Conv); + Conv : Iir_Fp64_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Fp_Value (Get_Kind (Lit)), + "no field Fp_Value"); + Conv := To_Iir_Fp64_Conv (Val); + Set_Field4 (Lit, Conv.Field4); + Set_Field5 (Lit, Conv.Field5); + end Set_Fp_Value; + + function Get_Simple_Aggregate_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Aggregate_List (Get_Kind (Target)), + "no field Simple_Aggregate_List"); + return Iir_To_Iir_Flist (Get_Field4 (Target)); + end Get_Simple_Aggregate_List; + + procedure Set_Simple_Aggregate_List (Target : Iir; List : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Aggregate_List (Get_Kind (Target)), + "no field Simple_Aggregate_List"); + Set_Field4 (Target, Iir_Flist_To_Iir (List)); + end Set_Simple_Aggregate_List; + + function Get_String8_Id (Lit : Iir) return String8_Id is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_String8_Id (Get_Kind (Lit)), + "no field String8_Id"); + return Iir_To_String8_Id (Get_Field5 (Lit)); + end Get_String8_Id; + + procedure Set_String8_Id (Lit : Iir; Id : String8_Id) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_String8_Id (Get_Kind (Lit)), + "no field String8_Id"); + Set_Field5 (Lit, String8_Id_To_Iir (Id)); + end Set_String8_Id; + + function Get_String_Length (Lit : Iir) return Int32 is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_String_Length (Get_Kind (Lit)), + "no field String_Length"); + return Iir_To_Int32 (Get_Field4 (Lit)); + end Get_String_Length; + + procedure Set_String_Length (Lit : Iir; Len : Int32) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_String_Length (Get_Kind (Lit)), + "no field String_Length"); + Set_Field4 (Lit, Int32_To_Iir (Len)); + end Set_String_Length; + + type Number_Base_Type_Conv is record + Flag12: Boolean; + Flag13: Boolean; + Flag14: Boolean; + end record; + pragma Pack (Number_Base_Type_Conv); + pragma Assert (Number_Base_Type_Conv'Size = Number_Base_Type'Size); + + function Get_Bit_String_Base (Lit : Iir) return Number_Base_Type + is + function To_Number_Base_Type is new Ada.Unchecked_Conversion + (Number_Base_Type_Conv, Number_Base_Type); + Conv : Number_Base_Type_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Bit_String_Base (Get_Kind (Lit)), + "no field Bit_String_Base"); + Conv.Flag12 := Get_Flag12 (Lit); + Conv.Flag13 := Get_Flag13 (Lit); + Conv.Flag14 := Get_Flag14 (Lit); + return To_Number_Base_Type (Conv); + end Get_Bit_String_Base; + + procedure Set_Bit_String_Base (Lit : Iir; Base : Number_Base_Type) + is + function To_Number_Base_Type_Conv is new Ada.Unchecked_Conversion + (Number_Base_Type, Number_Base_Type_Conv); + Conv : Number_Base_Type_Conv; + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Bit_String_Base (Get_Kind (Lit)), + "no field Bit_String_Base"); + Conv := To_Number_Base_Type_Conv (Base); + Set_Flag12 (Lit, Conv.Flag12); + Set_Flag13 (Lit, Conv.Flag13); + Set_Flag14 (Lit, Conv.Flag14); + end Set_Bit_String_Base; + + function Get_Has_Signed (Lit : Iir) return Boolean is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Signed (Get_Kind (Lit)), + "no field Has_Signed"); + return Get_Flag1 (Lit); + end Get_Has_Signed; + + procedure Set_Has_Signed (Lit : Iir; Flag : Boolean) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Signed (Get_Kind (Lit)), + "no field Has_Signed"); + Set_Flag1 (Lit, Flag); + end Set_Has_Signed; + + function Get_Has_Sign (Lit : Iir) return Boolean is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Sign (Get_Kind (Lit)), + "no field Has_Sign"); + return Get_Flag2 (Lit); + end Get_Has_Sign; + + procedure Set_Has_Sign (Lit : Iir; Flag : Boolean) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Sign (Get_Kind (Lit)), + "no field Has_Sign"); + Set_Flag2 (Lit, Flag); + end Set_Has_Sign; + + function Get_Has_Length (Lit : Iir) return Boolean is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Length (Get_Kind (Lit)), + "no field Has_Length"); + return Get_Flag3 (Lit); + end Get_Has_Length; + + procedure Set_Has_Length (Lit : Iir; Flag : Boolean) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Has_Length (Get_Kind (Lit)), + "no field Has_Length"); + Set_Flag3 (Lit, Flag); + end Set_Has_Length; + + function Get_Literal_Origin (Lit : Iir) return Iir is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Literal_Origin (Get_Kind (Lit)), + "no field Literal_Origin"); + return Get_Field2 (Lit); + end Get_Literal_Origin; + + procedure Set_Literal_Origin (Lit : Iir; Orig : Iir) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Literal_Origin (Get_Kind (Lit)), + "no field Literal_Origin"); + Set_Field2 (Lit, Orig); + end Set_Literal_Origin; + + function Get_Range_Origin (Lit : Iir) return Iir is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Range_Origin (Get_Kind (Lit)), + "no field Range_Origin"); + return Get_Field0 (Lit); + end Get_Range_Origin; + + procedure Set_Range_Origin (Lit : Iir; Orig : Iir) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Range_Origin (Get_Kind (Lit)), + "no field Range_Origin"); + Set_Field0 (Lit, Orig); + end Set_Range_Origin; + + function Get_Literal_Subtype (Lit : Iir) return Iir is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Literal_Subtype (Get_Kind (Lit)), + "no field Literal_Subtype"); + return Get_Field3 (Lit); + end Get_Literal_Subtype; + + procedure Set_Literal_Subtype (Lit : Iir; Atype : Iir) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Literal_Subtype (Get_Kind (Lit)), + "no field Literal_Subtype"); + Set_Field3 (Lit, Atype); + end Set_Literal_Subtype; + + function Get_Allocator_Subtype (Lit : Iir) return Iir is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Allocator_Subtype (Get_Kind (Lit)), + "no field Allocator_Subtype"); + return Get_Field3 (Lit); + end Get_Allocator_Subtype; + + procedure Set_Allocator_Subtype (Lit : Iir; Atype : Iir) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Allocator_Subtype (Get_Kind (Lit)), + "no field Allocator_Subtype"); + Set_Field3 (Lit, Atype); + end Set_Allocator_Subtype; + + function Get_Entity_Class (Target : Iir) return Token_Type is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Class (Get_Kind (Target)), + "no field Entity_Class"); + return Iir_To_Token_Type (Get_Field3 (Target)); + end Get_Entity_Class; + + procedure Set_Entity_Class (Target : Iir; Kind : Token_Type) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Class (Get_Kind (Target)), + "no field Entity_Class"); + Set_Field3 (Target, Token_Type_To_Iir (Kind)); + end Set_Entity_Class; + + function Get_Entity_Name_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), + "no field Entity_Name_List"); + return Iir_To_Iir_Flist (Get_Field8 (Target)); + end Get_Entity_Name_List; + + procedure Set_Entity_Name_List (Target : Iir; Names : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Name_List (Get_Kind (Target)), + "no field Entity_Name_List"); + Set_Field8 (Target, Iir_Flist_To_Iir (Names)); + end Set_Entity_Name_List; + + function Get_Attribute_Designator (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Designator (Get_Kind (Target)), + "no field Attribute_Designator"); + return Get_Field6 (Target); + end Get_Attribute_Designator; + + procedure Set_Attribute_Designator (Target : Iir; Designator : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Designator (Get_Kind (Target)), + "no field Attribute_Designator"); + Set_Field6 (Target, Designator); + end Set_Attribute_Designator; + + function Get_Attribute_Specification_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Specification_Chain (Get_Kind (Target)), + "no field Attribute_Specification_Chain"); + return Get_Field7 (Target); + end Get_Attribute_Specification_Chain; + + procedure Set_Attribute_Specification_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Specification_Chain (Get_Kind (Target)), + "no field Attribute_Specification_Chain"); + Set_Field7 (Target, Chain); + end Set_Attribute_Specification_Chain; + + function Get_Attribute_Specification (Val : Iir) return Iir is + begin + pragma Assert (Val /= Null_Iir); + pragma Assert (Has_Attribute_Specification (Get_Kind (Val)), + "no field Attribute_Specification"); + return Get_Field4 (Val); + end Get_Attribute_Specification; + + procedure Set_Attribute_Specification (Val : Iir; Attr : Iir) is + begin + pragma Assert (Val /= Null_Iir); + pragma Assert (Has_Attribute_Specification (Get_Kind (Val)), + "no field Attribute_Specification"); + Set_Field4 (Val, Attr); + end Set_Attribute_Specification; + + function Get_Signal_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_List (Get_Kind (Target)), + "no field Signal_List"); + return Iir_To_Iir_Flist (Get_Field3 (Target)); + end Get_Signal_List; + + procedure Set_Signal_List (Target : Iir; List : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_List (Get_Kind (Target)), + "no field Signal_List"); + Set_Field3 (Target, Iir_Flist_To_Iir (List)); + end Set_Signal_List; + + function Get_Designated_Entity (Val : Iir_Attribute_Value) return Iir is + begin + pragma Assert (Val /= Null_Iir); + pragma Assert (Has_Designated_Entity (Get_Kind (Val)), + "no field Designated_Entity"); + return Get_Field3 (Val); + end Get_Designated_Entity; + + procedure Set_Designated_Entity (Val : Iir_Attribute_Value; Entity : Iir) + is + begin + pragma Assert (Val /= Null_Iir); + pragma Assert (Has_Designated_Entity (Get_Kind (Val)), + "no field Designated_Entity"); + Set_Field3 (Val, Entity); + end Set_Designated_Entity; + + function Get_Formal (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Formal (Get_Kind (Target)), + "no field Formal"); + return Get_Field1 (Target); + end Get_Formal; + + procedure Set_Formal (Target : Iir; Formal : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Formal (Get_Kind (Target)), + "no field Formal"); + Set_Field1 (Target, Formal); + end Set_Formal; + + function Get_Actual (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual (Get_Kind (Target)), + "no field Actual"); + return Get_Field3 (Target); + end Get_Actual; + + procedure Set_Actual (Target : Iir; Actual : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual (Get_Kind (Target)), + "no field Actual"); + Set_Field3 (Target, Actual); + end Set_Actual; + + function Get_Actual_Conversion (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Conversion (Get_Kind (Target)), + "no field Actual_Conversion"); + return Get_Field4 (Target); + end Get_Actual_Conversion; + + procedure Set_Actual_Conversion (Target : Iir; Conv : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Conversion (Get_Kind (Target)), + "no field Actual_Conversion"); + Set_Field4 (Target, Conv); + end Set_Actual_Conversion; + + function Get_Formal_Conversion (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Formal_Conversion (Get_Kind (Target)), + "no field Formal_Conversion"); + return Get_Field5 (Target); + end Get_Formal_Conversion; + + procedure Set_Formal_Conversion (Target : Iir; Conv : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Formal_Conversion (Get_Kind (Target)), + "no field Formal_Conversion"); + Set_Field5 (Target, Conv); + end Set_Formal_Conversion; + + function Get_Whole_Association_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Whole_Association_Flag (Get_Kind (Target)), + "no field Whole_Association_Flag"); + return Get_Flag1 (Target); + end Get_Whole_Association_Flag; + + procedure Set_Whole_Association_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Whole_Association_Flag (Get_Kind (Target)), + "no field Whole_Association_Flag"); + Set_Flag1 (Target, Flag); + end Set_Whole_Association_Flag; + + function Get_Collapse_Signal_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Collapse_Signal_Flag (Get_Kind (Target)), + "no field Collapse_Signal_Flag"); + return Get_Flag2 (Target); + end Get_Collapse_Signal_Flag; + + procedure Set_Collapse_Signal_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Collapse_Signal_Flag (Get_Kind (Target)), + "no field Collapse_Signal_Flag"); + Set_Flag2 (Target, Flag); + end Set_Collapse_Signal_Flag; + + function Get_Artificial_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Artificial_Flag (Get_Kind (Target)), + "no field Artificial_Flag"); + return Get_Flag3 (Target); + end Get_Artificial_Flag; + + procedure Set_Artificial_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Artificial_Flag (Get_Kind (Target)), + "no field Artificial_Flag"); + Set_Flag3 (Target, Flag); + end Set_Artificial_Flag; + + function Get_Open_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Open_Flag (Get_Kind (Target)), + "no field Open_Flag"); + return Get_Flag7 (Target); + end Get_Open_Flag; + + procedure Set_Open_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Open_Flag (Get_Kind (Target)), + "no field Open_Flag"); + Set_Flag7 (Target, Flag); + end Set_Open_Flag; + + function Get_After_Drivers_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_After_Drivers_Flag (Get_Kind (Target)), + "no field After_Drivers_Flag"); + return Get_Flag5 (Target); + end Get_After_Drivers_Flag; + + procedure Set_After_Drivers_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_After_Drivers_Flag (Get_Kind (Target)), + "no field After_Drivers_Flag"); + Set_Flag5 (Target, Flag); + end Set_After_Drivers_Flag; + + function Get_We_Value (We : Iir_Waveform_Element) return Iir is + begin + pragma Assert (We /= Null_Iir); + pragma Assert (Has_We_Value (Get_Kind (We)), + "no field We_Value"); + return Get_Field1 (We); + end Get_We_Value; + + procedure Set_We_Value (We : Iir_Waveform_Element; An_Iir : Iir) is + begin + pragma Assert (We /= Null_Iir); + pragma Assert (Has_We_Value (Get_Kind (We)), + "no field We_Value"); + Set_Field1 (We, An_Iir); + end Set_We_Value; + + function Get_Time (We : Iir_Waveform_Element) return Iir is + begin + pragma Assert (We /= Null_Iir); + pragma Assert (Has_Time (Get_Kind (We)), + "no field Time"); + return Get_Field3 (We); + end Get_Time; + + procedure Set_Time (We : Iir_Waveform_Element; An_Iir : Iir) is + begin + pragma Assert (We /= Null_Iir); + pragma Assert (Has_Time (Get_Kind (We)), + "no field Time"); + Set_Field3 (We, An_Iir); + end Set_Time; + + function Get_Choice_Order (Choice : Iir) return Int32 is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Order (Get_Kind (Choice)), + "no field Choice_Order"); + return Int32'Val (Get_Field1 (Choice)); + end Get_Choice_Order; + + procedure Set_Choice_Order (Choice : Iir; Pos : Int32) is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Order (Get_Kind (Choice)), + "no field Choice_Order"); + Set_Field1 (Choice, Int32'Pos (Pos)); + end Set_Choice_Order; + + function Get_Associated_Expr (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Expr (Get_Kind (Target)), + "no field Associated_Expr"); + return Get_Field3 (Target); + end Get_Associated_Expr; + + procedure Set_Associated_Expr (Target : Iir; Associated : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Expr (Get_Kind (Target)), + "no field Associated_Expr"); + Set_Field3 (Target, Associated); + end Set_Associated_Expr; + + function Get_Associated_Block (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Block (Get_Kind (Target)), + "no field Associated_Block"); + return Get_Field3 (Target); + end Get_Associated_Block; + + procedure Set_Associated_Block (Target : Iir; Associated : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Block (Get_Kind (Target)), + "no field Associated_Block"); + Set_Field3 (Target, Associated); + end Set_Associated_Block; + + function Get_Associated_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Chain (Get_Kind (Target)), + "no field Associated_Chain"); + return Get_Field4 (Target); + end Get_Associated_Chain; + + procedure Set_Associated_Chain (Target : Iir; Associated : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Associated_Chain (Get_Kind (Target)), + "no field Associated_Chain"); + Set_Field4 (Target, Associated); + end Set_Associated_Chain; + + function Get_Choice_Name (Choice : Iir) return Iir is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Name (Get_Kind (Choice)), + "no field Choice_Name"); + return Get_Field5 (Choice); + end Get_Choice_Name; + + procedure Set_Choice_Name (Choice : Iir; Name : Iir) is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Name (Get_Kind (Choice)), + "no field Choice_Name"); + Set_Field5 (Choice, Name); + end Set_Choice_Name; + + function Get_Choice_Expression (Choice : Iir) return Iir is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Expression (Get_Kind (Choice)), + "no field Choice_Expression"); + return Get_Field5 (Choice); + end Get_Choice_Expression; + + procedure Set_Choice_Expression (Choice : Iir; Name : Iir) is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Expression (Get_Kind (Choice)), + "no field Choice_Expression"); + Set_Field5 (Choice, Name); + end Set_Choice_Expression; + + function Get_Choice_Range (Choice : Iir) return Iir is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Range (Get_Kind (Choice)), + "no field Choice_Range"); + return Get_Field5 (Choice); + end Get_Choice_Range; + + procedure Set_Choice_Range (Choice : Iir; Name : Iir) is + begin + pragma Assert (Choice /= Null_Iir); + pragma Assert (Has_Choice_Range (Get_Kind (Choice)), + "no field Choice_Range"); + Set_Field5 (Choice, Name); + end Set_Choice_Range; + + function Get_Same_Alternative_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Same_Alternative_Flag (Get_Kind (Target)), + "no field Same_Alternative_Flag"); + return Get_Flag1 (Target); + end Get_Same_Alternative_Flag; + + procedure Set_Same_Alternative_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Same_Alternative_Flag (Get_Kind (Target)), + "no field Same_Alternative_Flag"); + Set_Flag1 (Target, Val); + end Set_Same_Alternative_Flag; + + function Get_Element_Type_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Element_Type_Flag (Get_Kind (Target)), + "no field Element_Type_Flag"); + return Get_Flag2 (Target); + end Get_Element_Type_Flag; + + procedure Set_Element_Type_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Element_Type_Flag (Get_Kind (Target)), + "no field Element_Type_Flag"); + Set_Flag2 (Target, Val); + end Set_Element_Type_Flag; + + function Get_Architecture (Target : Iir_Entity_Aspect_Entity) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Architecture (Get_Kind (Target)), + "no field Architecture"); + return Get_Field3 (Target); + end Get_Architecture; + + procedure Set_Architecture (Target : Iir_Entity_Aspect_Entity; Arch : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Architecture (Get_Kind (Target)), + "no field Architecture"); + Set_Field3 (Target, Arch); + end Set_Architecture; + + function Get_Block_Specification (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Specification (Get_Kind (Target)), + "no field Block_Specification"); + return Get_Field5 (Target); + end Get_Block_Specification; + + procedure Set_Block_Specification (Target : Iir; Block : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Specification (Get_Kind (Target)), + "no field Block_Specification"); + Set_Field5 (Target, Block); + end Set_Block_Specification; + + function Get_Prev_Block_Configuration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Prev_Block_Configuration (Get_Kind (Target)), + "no field Prev_Block_Configuration"); + return Get_Field4 (Target); + end Get_Prev_Block_Configuration; + + procedure Set_Prev_Block_Configuration (Target : Iir; Block : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Prev_Block_Configuration (Get_Kind (Target)), + "no field Prev_Block_Configuration"); + Set_Field4 (Target, Block); + end Set_Prev_Block_Configuration; + + function Get_Configuration_Item_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Item_Chain (Get_Kind (Target)), + "no field Configuration_Item_Chain"); + return Get_Field3 (Target); + end Get_Configuration_Item_Chain; + + procedure Set_Configuration_Item_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Item_Chain (Get_Kind (Target)), + "no field Configuration_Item_Chain"); + Set_Field3 (Target, Chain); + end Set_Configuration_Item_Chain; + + function Get_Attribute_Value_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Value_Chain (Get_Kind (Target)), + "no field Attribute_Value_Chain"); + return Get_Field4 (Target); + end Get_Attribute_Value_Chain; + + procedure Set_Attribute_Value_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Value_Chain (Get_Kind (Target)), + "no field Attribute_Value_Chain"); + Set_Field4 (Target, Chain); + end Set_Attribute_Value_Chain; + + function Get_Spec_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Spec_Chain (Get_Kind (Target)), + "no field Spec_Chain"); + return Get_Field2 (Target); + end Get_Spec_Chain; + + procedure Set_Spec_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Spec_Chain (Get_Kind (Target)), + "no field Spec_Chain"); + Set_Field2 (Target, Chain); + end Set_Spec_Chain; + + function Get_Value_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Value_Chain (Get_Kind (Target)), + "no field Value_Chain"); + return Get_Field0 (Target); + end Get_Value_Chain; + + procedure Set_Value_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Value_Chain (Get_Kind (Target)), + "no field Value_Chain"); + Set_Field0 (Target, Chain); + end Set_Value_Chain; + + function Get_Attribute_Value_Spec_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Value_Spec_Chain (Get_Kind (Target)), + "no field Attribute_Value_Spec_Chain"); + return Get_Field4 (Target); + end Get_Attribute_Value_Spec_Chain; + + procedure Set_Attribute_Value_Spec_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Attribute_Value_Spec_Chain (Get_Kind (Target)), + "no field Attribute_Value_Spec_Chain"); + Set_Field4 (Target, Chain); + end Set_Attribute_Value_Spec_Chain; + + function Get_Entity_Name (Arch : Iir) return Iir is + begin + pragma Assert (Arch /= Null_Iir); + pragma Assert (Has_Entity_Name (Get_Kind (Arch)), + "no field Entity_Name"); + return Get_Field2 (Arch); + end Get_Entity_Name; + + procedure Set_Entity_Name (Arch : Iir; Entity : Iir) is + begin + pragma Assert (Arch /= Null_Iir); + pragma Assert (Has_Entity_Name (Get_Kind (Arch)), + "no field Entity_Name"); + Set_Field2 (Arch, Entity); + end Set_Entity_Name; + + function Get_Package (Package_Body : Iir) return Iir is + begin + pragma Assert (Package_Body /= Null_Iir); + pragma Assert (Has_Package (Get_Kind (Package_Body)), + "no field Package"); + return Get_Field5 (Package_Body); + end Get_Package; + + procedure Set_Package (Package_Body : Iir; Decl : Iir) is + begin + pragma Assert (Package_Body /= Null_Iir); + pragma Assert (Has_Package (Get_Kind (Package_Body)), + "no field Package"); + Set_Field5 (Package_Body, Decl); + end Set_Package; + + function Get_Package_Body (Pkg : Iir) return Iir is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Body (Get_Kind (Pkg)), + "no field Package_Body"); + return Get_Field5 (Pkg); + end Get_Package_Body; + + procedure Set_Package_Body (Pkg : Iir; Decl : Iir) is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Body (Get_Kind (Pkg)), + "no field Package_Body"); + Set_Field5 (Pkg, Decl); + end Set_Package_Body; + + function Get_Instance_Package_Body (Pkg : Iir) return Iir is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Instance_Package_Body (Get_Kind (Pkg)), + "no field Instance_Package_Body"); + return Get_Field5 (Pkg); + end Get_Instance_Package_Body; + + procedure Set_Instance_Package_Body (Pkg : Iir; Decl : Iir) is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Instance_Package_Body (Get_Kind (Pkg)), + "no field Instance_Package_Body"); + Set_Field5 (Pkg, Decl); + end Set_Instance_Package_Body; + + function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Need_Body (Get_Kind (Decl)), + "no field Need_Body"); + return Get_Flag1 (Decl); + end Get_Need_Body; + + procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Need_Body (Get_Kind (Decl)), + "no field Need_Body"); + Set_Flag1 (Decl, Flag); + end Set_Need_Body; + + function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Macro_Expanded_Flag (Get_Kind (Decl)), + "no field Macro_Expanded_Flag"); + return Get_Flag2 (Decl); + end Get_Macro_Expanded_Flag; + + procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Macro_Expanded_Flag (Get_Kind (Decl)), + "no field Macro_Expanded_Flag"); + Set_Flag2 (Decl, Flag); + end Set_Macro_Expanded_Flag; + + function Get_Need_Instance_Bodies (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Need_Instance_Bodies (Get_Kind (Decl)), + "no field Need_Instance_Bodies"); + return Get_Flag3 (Decl); + end Get_Need_Instance_Bodies; + + procedure Set_Need_Instance_Bodies (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Need_Instance_Bodies (Get_Kind (Decl)), + "no field Need_Instance_Bodies"); + Set_Flag3 (Decl, Flag); + end Set_Need_Instance_Bodies; + + function Get_Block_Configuration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Configuration (Get_Kind (Target)), + "no field Block_Configuration"); + return Get_Field5 (Target); + end Get_Block_Configuration; + + procedure Set_Block_Configuration (Target : Iir; Block : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Configuration (Get_Kind (Target)), + "no field Block_Configuration"); + Set_Field5 (Target, Block); + end Set_Block_Configuration; + + function Get_Concurrent_Statement_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Concurrent_Statement_Chain (Get_Kind (Target)), + "no field Concurrent_Statement_Chain"); + return Get_Field5 (Target); + end Get_Concurrent_Statement_Chain; + + procedure Set_Concurrent_Statement_Chain (Target : Iir; First : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Concurrent_Statement_Chain (Get_Kind (Target)), + "no field Concurrent_Statement_Chain"); + Set_Field5 (Target, First); + end Set_Concurrent_Statement_Chain; + + function Get_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Chain (Get_Kind (Target)), + "no field Chain"); + return Get_Field2 (Target); + end Get_Chain; + + procedure Set_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Chain (Get_Kind (Target)), + "no field Chain"); + Set_Field2 (Target, Chain); + end Set_Chain; + + function Get_Port_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Port_Chain (Get_Kind (Target)), + "no field Port_Chain"); + return Get_Field7 (Target); + end Get_Port_Chain; + + procedure Set_Port_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Port_Chain (Get_Kind (Target)), + "no field Port_Chain"); + Set_Field7 (Target, Chain); + end Set_Port_Chain; + + function Get_Generic_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generic_Chain (Get_Kind (Target)), + "no field Generic_Chain"); + return Get_Field6 (Target); + end Get_Generic_Chain; + + procedure Set_Generic_Chain (Target : Iir; Generics : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generic_Chain (Get_Kind (Target)), + "no field Generic_Chain"); + Set_Field6 (Target, Generics); + end Set_Generic_Chain; + + function Get_Type (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type (Get_Kind (Target)), + "no field Type"); + return Get_Field1 (Target); + end Get_Type; + + procedure Set_Type (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type (Get_Kind (Target)), + "no field Type"); + Set_Field1 (Target, Atype); + end Set_Type; + + function Get_Subtype_Indication (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Indication (Get_Kind (Target)), + "no field Subtype_Indication"); + return Get_Field5 (Target); + end Get_Subtype_Indication; + + procedure Set_Subtype_Indication (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Indication (Get_Kind (Target)), + "no field Subtype_Indication"); + Set_Field5 (Target, Atype); + end Set_Subtype_Indication; + + function Get_Discrete_Range (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Discrete_Range (Get_Kind (Target)), + "no field Discrete_Range"); + return Get_Field6 (Target); + end Get_Discrete_Range; + + procedure Set_Discrete_Range (Target : Iir; Rng : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Discrete_Range (Get_Kind (Target)), + "no field Discrete_Range"); + Set_Field6 (Target, Rng); + end Set_Discrete_Range; + + function Get_Type_Definition (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Type_Definition (Get_Kind (Decl)), + "no field Type_Definition"); + return Get_Field1 (Decl); + end Get_Type_Definition; + + procedure Set_Type_Definition (Decl : Iir; Atype : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Type_Definition (Get_Kind (Decl)), + "no field Type_Definition"); + Set_Field1 (Decl, Atype); + end Set_Type_Definition; + + function Get_Subtype_Definition (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Definition (Get_Kind (Target)), + "no field Subtype_Definition"); + return Get_Field4 (Target); + end Get_Subtype_Definition; + + procedure Set_Subtype_Definition (Target : Iir; Def : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Definition (Get_Kind (Target)), + "no field Subtype_Definition"); + Set_Field4 (Target, Def); + end Set_Subtype_Definition; + + function Get_Incomplete_Type_Declaration (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Incomplete_Type_Declaration (Get_Kind (N)), + "no field Incomplete_Type_Declaration"); + return Get_Field5 (N); + end Get_Incomplete_Type_Declaration; + + procedure Set_Incomplete_Type_Declaration (N : Iir; Decl : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Incomplete_Type_Declaration (Get_Kind (N)), + "no field Incomplete_Type_Declaration"); + Set_Field5 (N, Decl); + end Set_Incomplete_Type_Declaration; + + function Get_Interface_Type_Subprograms (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Interface_Type_Subprograms (Get_Kind (Target)), + "no field Interface_Type_Subprograms"); + return Get_Field4 (Target); + end Get_Interface_Type_Subprograms; + + procedure Set_Interface_Type_Subprograms (Target : Iir; Subprg : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Interface_Type_Subprograms (Get_Kind (Target)), + "no field Interface_Type_Subprograms"); + Set_Field4 (Target, Subprg); + end Set_Interface_Type_Subprograms; + + function Get_Nature (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Nature (Get_Kind (Target)), + "no field Nature"); + return Get_Field1 (Target); + end Get_Nature; + + procedure Set_Nature (Target : Iir; Nature : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Nature (Get_Kind (Target)), + "no field Nature"); + Set_Field1 (Target, Nature); + end Set_Nature; + + type Iir_Mode_Conv is record + Flag13: Boolean; + Flag14: Boolean; + Flag15: Boolean; + end record; + pragma Pack (Iir_Mode_Conv); + pragma Assert (Iir_Mode_Conv'Size = Iir_Mode'Size); + + function Get_Mode (Target : Iir) return Iir_Mode + is + function To_Iir_Mode is new Ada.Unchecked_Conversion + (Iir_Mode_Conv, Iir_Mode); + Conv : Iir_Mode_Conv; + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Mode (Get_Kind (Target)), + "no field Mode"); + Conv.Flag13 := Get_Flag13 (Target); + Conv.Flag14 := Get_Flag14 (Target); + Conv.Flag15 := Get_Flag15 (Target); + return To_Iir_Mode (Conv); + end Get_Mode; + + procedure Set_Mode (Target : Iir; Mode : Iir_Mode) + is + function To_Iir_Mode_Conv is new Ada.Unchecked_Conversion + (Iir_Mode, Iir_Mode_Conv); + Conv : Iir_Mode_Conv; + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Mode (Get_Kind (Target)), + "no field Mode"); + Conv := To_Iir_Mode_Conv (Mode); + Set_Flag13 (Target, Conv.Flag13); + Set_Flag14 (Target, Conv.Flag14); + Set_Flag15 (Target, Conv.Flag15); + end Set_Mode; + + function Get_Guarded_Signal_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guarded_Signal_Flag (Get_Kind (Target)), + "no field Guarded_Signal_Flag"); + return Get_Flag8 (Target); + end Get_Guarded_Signal_Flag; + + procedure Set_Guarded_Signal_Flag (Target : Iir; Guarded : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guarded_Signal_Flag (Get_Kind (Target)), + "no field Guarded_Signal_Flag"); + Set_Flag8 (Target, Guarded); + end Set_Guarded_Signal_Flag; + + function Get_Signal_Kind (Target : Iir) return Iir_Signal_Kind is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_Kind (Get_Kind (Target)), + "no field Signal_Kind"); + return Boolean_To_Iir_Signal_Kind (Get_Flag9 (Target)); + end Get_Signal_Kind; + + procedure Set_Signal_Kind (Target : Iir; Signal_Kind : Iir_Signal_Kind) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_Kind (Get_Kind (Target)), + "no field Signal_Kind"); + Set_Flag9 (Target, Iir_Signal_Kind_To_Boolean (Signal_Kind)); + end Set_Signal_Kind; + + function Get_Base_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Base_Name (Get_Kind (Target)), + "no field Base_Name"); + return Get_Field5 (Target); + end Get_Base_Name; + + procedure Set_Base_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Base_Name (Get_Kind (Target)), + "no field Base_Name"); + Set_Field5 (Target, Name); + end Set_Base_Name; + + function Get_Interface_Declaration_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Interface_Declaration_Chain (Get_Kind (Target)), + "no field Interface_Declaration_Chain"); + return Get_Field5 (Target); + end Get_Interface_Declaration_Chain; + + procedure Set_Interface_Declaration_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Interface_Declaration_Chain (Get_Kind (Target)), + "no field Interface_Declaration_Chain"); + Set_Field5 (Target, Chain); + end Set_Interface_Declaration_Chain; + + function Get_Subprogram_Specification (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Specification (Get_Kind (Target)), + "no field Subprogram_Specification"); + return Get_Field6 (Target); + end Get_Subprogram_Specification; + + procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Specification (Get_Kind (Target)), + "no field Subprogram_Specification"); + Set_Field6 (Target, Spec); + end Set_Subprogram_Specification; + + function Get_Sequential_Statement_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Sequential_Statement_Chain (Get_Kind (Target)), + "no field Sequential_Statement_Chain"); + return Get_Field5 (Target); + end Get_Sequential_Statement_Chain; + + procedure Set_Sequential_Statement_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Sequential_Statement_Chain (Get_Kind (Target)), + "no field Sequential_Statement_Chain"); + Set_Field5 (Target, Chain); + end Set_Sequential_Statement_Chain; + + function Get_Subprogram_Body (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Body (Get_Kind (Target)), + "no field Subprogram_Body"); + return Get_Field9 (Target); + end Get_Subprogram_Body; + + procedure Set_Subprogram_Body (Target : Iir; A_Body : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Body (Get_Kind (Target)), + "no field Subprogram_Body"); + Set_Field9 (Target, A_Body); + end Set_Subprogram_Body; + + function Get_Overload_Number (Target : Iir) return Iir_Int32 is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Overload_Number (Get_Kind (Target)), + "no field Overload_Number"); + return Iir_Int32'Val (Get_Field12 (Target)); + end Get_Overload_Number; + + procedure Set_Overload_Number (Target : Iir; Val : Iir_Int32) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Overload_Number (Get_Kind (Target)), + "no field Overload_Number"); + Set_Field12 (Target, Iir_Int32'Pos (Val)); + end Set_Overload_Number; + + function Get_Subprogram_Depth (Target : Iir) return Iir_Int32 is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Depth (Get_Kind (Target)), + "no field Subprogram_Depth"); + return Iir_Int32'Val (Get_Field10 (Target)); + end Get_Subprogram_Depth; + + procedure Set_Subprogram_Depth (Target : Iir; Depth : Iir_Int32) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Depth (Get_Kind (Target)), + "no field Subprogram_Depth"); + Set_Field10 (Target, Iir_Int32'Pos (Depth)); + end Set_Subprogram_Depth; + + function Get_Subprogram_Hash (Target : Iir) return Iir_Int32 is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Hash (Get_Kind (Target)), + "no field Subprogram_Hash"); + return Iir_Int32'Val (Get_Field4 (Target)); + end Get_Subprogram_Hash; + + procedure Set_Subprogram_Hash (Target : Iir; Val : Iir_Int32) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Hash (Get_Kind (Target)), + "no field Subprogram_Hash"); + Set_Field4 (Target, Iir_Int32'Pos (Val)); + end Set_Subprogram_Hash; + + function Get_Impure_Depth (Target : Iir) return Iir_Int32 is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Impure_Depth (Get_Kind (Target)), + "no field Impure_Depth"); + return Iir_To_Iir_Int32 (Get_Field3 (Target)); + end Get_Impure_Depth; + + procedure Set_Impure_Depth (Target : Iir; Depth : Iir_Int32) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Impure_Depth (Get_Kind (Target)), + "no field Impure_Depth"); + Set_Field3 (Target, Iir_Int32_To_Iir (Depth)); + end Set_Impure_Depth; + + function Get_Return_Type (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Return_Type (Get_Kind (Target)), + "no field Return_Type"); + return Get_Field1 (Target); + end Get_Return_Type; + + procedure Set_Return_Type (Target : Iir; Decl : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Return_Type (Get_Kind (Target)), + "no field Return_Type"); + Set_Field1 (Target, Decl); + end Set_Return_Type; + + function Get_Implicit_Definition (D : Iir) return Iir_Predefined_Functions + is + begin + pragma Assert (D /= Null_Iir); + pragma Assert (Has_Implicit_Definition (Get_Kind (D)), + "no field Implicit_Definition"); + return Iir_Predefined_Functions'Val (Get_Field7 (D)); + end Get_Implicit_Definition; + + procedure Set_Implicit_Definition (D : Iir; Def : Iir_Predefined_Functions) + is + begin + pragma Assert (D /= Null_Iir); + pragma Assert (Has_Implicit_Definition (Get_Kind (D)), + "no field Implicit_Definition"); + Set_Field7 (D, Iir_Predefined_Functions'Pos (Def)); + end Set_Implicit_Definition; + + function Get_Default_Value (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Value (Get_Kind (Target)), + "no field Default_Value"); + return Get_Field4 (Target); + end Get_Default_Value; + + procedure Set_Default_Value (Target : Iir; Value : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Value (Get_Kind (Target)), + "no field Default_Value"); + Set_Field4 (Target, Value); + end Set_Default_Value; + + function Get_Deferred_Declaration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Deferred_Declaration (Get_Kind (Target)), + "no field Deferred_Declaration"); + return Get_Field6 (Target); + end Get_Deferred_Declaration; + + procedure Set_Deferred_Declaration (Target : Iir; Decl : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Deferred_Declaration (Get_Kind (Target)), + "no field Deferred_Declaration"); + Set_Field6 (Target, Decl); + end Set_Deferred_Declaration; + + function Get_Deferred_Declaration_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Deferred_Declaration_Flag (Get_Kind (Target)), + "no field Deferred_Declaration_Flag"); + return Get_Flag1 (Target); + end Get_Deferred_Declaration_Flag; + + procedure Set_Deferred_Declaration_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Deferred_Declaration_Flag (Get_Kind (Target)), + "no field Deferred_Declaration_Flag"); + Set_Flag1 (Target, Flag); + end Set_Deferred_Declaration_Flag; + + function Get_Shared_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Shared_Flag (Get_Kind (Target)), + "no field Shared_Flag"); + return Get_Flag2 (Target); + end Get_Shared_Flag; + + procedure Set_Shared_Flag (Target : Iir; Shared : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Shared_Flag (Get_Kind (Target)), + "no field Shared_Flag"); + Set_Flag2 (Target, Shared); + end Set_Shared_Flag; + + function Get_Design_Unit (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Design_Unit (Get_Kind (Target)), + "no field Design_Unit"); + return Get_Field0 (Target); + end Get_Design_Unit; + + procedure Set_Design_Unit (Target : Iir; Unit : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Design_Unit (Get_Kind (Target)), + "no field Design_Unit"); + Set_Field0 (Target, Unit); + end Set_Design_Unit; + + function Get_Block_Statement (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Statement (Get_Kind (Target)), + "no field Block_Statement"); + return Get_Field5 (Target); + end Get_Block_Statement; + + procedure Set_Block_Statement (Target : Iir; Block : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Statement (Get_Kind (Target)), + "no field Block_Statement"); + Set_Field5 (Target, Block); + end Set_Block_Statement; + + function Get_Signal_Driver (Target : Iir_Signal_Declaration) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_Driver (Get_Kind (Target)), + "no field Signal_Driver"); + return Get_Field7 (Target); + end Get_Signal_Driver; + + procedure Set_Signal_Driver (Target : Iir_Signal_Declaration; Driver : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Signal_Driver (Get_Kind (Target)), + "no field Signal_Driver"); + Set_Field7 (Target, Driver); + end Set_Signal_Driver; + + function Get_Declaration_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Declaration_Chain (Get_Kind (Target)), + "no field Declaration_Chain"); + return Get_Field1 (Target); + end Get_Declaration_Chain; + + procedure Set_Declaration_Chain (Target : Iir; Decls : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Declaration_Chain (Get_Kind (Target)), + "no field Declaration_Chain"); + Set_Field1 (Target, Decls); + end Set_Declaration_Chain; + + function Get_File_Logical_Name (Target : Iir_File_Declaration) return Iir + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Logical_Name (Get_Kind (Target)), + "no field File_Logical_Name"); + return Get_Field6 (Target); + end Get_File_Logical_Name; + + procedure Set_File_Logical_Name (Target : Iir_File_Declaration; Name : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Logical_Name (Get_Kind (Target)), + "no field File_Logical_Name"); + Set_Field6 (Target, Name); + end Set_File_Logical_Name; + + function Get_File_Open_Kind (Target : Iir_File_Declaration) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Open_Kind (Get_Kind (Target)), + "no field File_Open_Kind"); + return Get_Field7 (Target); + end Get_File_Open_Kind; + + procedure Set_File_Open_Kind (Target : Iir_File_Declaration; Kind : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Open_Kind (Get_Kind (Target)), + "no field File_Open_Kind"); + Set_Field7 (Target, Kind); + end Set_File_Open_Kind; + + function Get_Element_Position (Target : Iir) return Iir_Index32 is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Element_Position (Get_Kind (Target)), + "no field Element_Position"); + return Iir_Index32'Val (Get_Field4 (Target)); + end Get_Element_Position; + + procedure Set_Element_Position (Target : Iir; Pos : Iir_Index32) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Element_Position (Get_Kind (Target)), + "no field Element_Position"); + Set_Field4 (Target, Iir_Index32'Pos (Pos)); + end Set_Element_Position; + + function Get_Use_Clause_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Use_Clause_Chain (Get_Kind (Target)), + "no field Use_Clause_Chain"); + return Get_Field3 (Target); + end Get_Use_Clause_Chain; + + procedure Set_Use_Clause_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Use_Clause_Chain (Get_Kind (Target)), + "no field Use_Clause_Chain"); + Set_Field3 (Target, Chain); + end Set_Use_Clause_Chain; + + function Get_Context_Reference_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)), + "no field Context_Reference_Chain"); + return Get_Field3 (Target); + end Get_Context_Reference_Chain; + + procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)), + "no field Context_Reference_Chain"); + Set_Field3 (Target, Chain); + end Set_Context_Reference_Chain; + + function Get_Selected_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Selected_Name (Get_Kind (Target)), + "no field Selected_Name"); + return Get_Field1 (Target); + end Get_Selected_Name; + + procedure Set_Selected_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Selected_Name (Get_Kind (Target)), + "no field Selected_Name"); + Set_Field1 (Target, Name); + end Set_Selected_Name; + + function Get_Type_Declarator (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Type_Declarator (Get_Kind (Def)), + "no field Type_Declarator"); + return Get_Field3 (Def); + end Get_Type_Declarator; + + procedure Set_Type_Declarator (Def : Iir; Decl : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Type_Declarator (Get_Kind (Def)), + "no field Type_Declarator"); + Set_Field3 (Def, Decl); + end Set_Type_Declarator; + + function Get_Complete_Type_Definition (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Complete_Type_Definition (Get_Kind (N)), + "no field Complete_Type_Definition"); + return Get_Field5 (N); + end Get_Complete_Type_Definition; + + procedure Set_Complete_Type_Definition (N : Iir; Def : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Complete_Type_Definition (Get_Kind (N)), + "no field Complete_Type_Definition"); + Set_Field5 (N, Def); + end Set_Complete_Type_Definition; + + function Get_Incomplete_Type_Ref_Chain (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Incomplete_Type_Ref_Chain (Get_Kind (N)), + "no field Incomplete_Type_Ref_Chain"); + return Get_Field0 (N); + end Get_Incomplete_Type_Ref_Chain; + + procedure Set_Incomplete_Type_Ref_Chain (N : Iir; Def : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Incomplete_Type_Ref_Chain (Get_Kind (N)), + "no field Incomplete_Type_Ref_Chain"); + Set_Field0 (N, Def); + end Set_Incomplete_Type_Ref_Chain; + + function Get_Associated_Type (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Associated_Type (Get_Kind (Def)), + "no field Associated_Type"); + return Get_Field5 (Def); + end Get_Associated_Type; + + procedure Set_Associated_Type (Def : Iir; Atype : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Associated_Type (Get_Kind (Def)), + "no field Associated_Type"); + Set_Field5 (Def, Atype); + end Set_Associated_Type; + + function Get_Enumeration_Literal_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Enumeration_Literal_List (Get_Kind (Target)), + "no field Enumeration_Literal_List"); + return Iir_To_Iir_Flist (Get_Field2 (Target)); + end Get_Enumeration_Literal_List; + + procedure Set_Enumeration_Literal_List (Target : Iir; List : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Enumeration_Literal_List (Get_Kind (Target)), + "no field Enumeration_Literal_List"); + Set_Field2 (Target, Iir_Flist_To_Iir (List)); + end Set_Enumeration_Literal_List; + + function Get_Entity_Class_Entry_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Class_Entry_Chain (Get_Kind (Target)), + "no field Entity_Class_Entry_Chain"); + return Get_Field1 (Target); + end Get_Entity_Class_Entry_Chain; + + procedure Set_Entity_Class_Entry_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Class_Entry_Chain (Get_Kind (Target)), + "no field Entity_Class_Entry_Chain"); + Set_Field1 (Target, Chain); + end Set_Entity_Class_Entry_Chain; + + function Get_Group_Constituent_List (Group : Iir) return Iir_Flist is + begin + pragma Assert (Group /= Null_Iir); + pragma Assert (Has_Group_Constituent_List (Get_Kind (Group)), + "no field Group_Constituent_List"); + return Iir_To_Iir_Flist (Get_Field1 (Group)); + end Get_Group_Constituent_List; + + procedure Set_Group_Constituent_List (Group : Iir; List : Iir_Flist) is + begin + pragma Assert (Group /= Null_Iir); + pragma Assert (Has_Group_Constituent_List (Get_Kind (Group)), + "no field Group_Constituent_List"); + Set_Field1 (Group, Iir_Flist_To_Iir (List)); + end Set_Group_Constituent_List; + + function Get_Unit_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Unit_Chain (Get_Kind (Target)), + "no field Unit_Chain"); + return Get_Field2 (Target); + end Get_Unit_Chain; + + procedure Set_Unit_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Unit_Chain (Get_Kind (Target)), + "no field Unit_Chain"); + Set_Field2 (Target, Chain); + end Set_Unit_Chain; + + function Get_Primary_Unit (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Primary_Unit (Get_Kind (Target)), + "no field Primary_Unit"); + return Get_Field2 (Target); + end Get_Primary_Unit; + + procedure Set_Primary_Unit (Target : Iir; Unit : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Primary_Unit (Get_Kind (Target)), + "no field Primary_Unit"); + Set_Field2 (Target, Unit); + end Set_Primary_Unit; + + function Get_Identifier (Target : Iir) return Name_Id is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Identifier (Get_Kind (Target)), + "no field Identifier"); + return Iir_To_Name_Id (Get_Field3 (Target)); + end Get_Identifier; + + procedure Set_Identifier (Target : Iir; Identifier : Name_Id) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Identifier (Get_Kind (Target)), + "no field Identifier"); + Set_Field3 (Target, Name_Id_To_Iir (Identifier)); + end Set_Identifier; + + function Get_Label (Target : Iir) return Name_Id is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Label (Get_Kind (Target)), + "no field Label"); + return Iir_To_Name_Id (Get_Field3 (Target)); + end Get_Label; + + procedure Set_Label (Target : Iir; Label : Name_Id) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Label (Get_Kind (Target)), + "no field Label"); + Set_Field3 (Target, Name_Id_To_Iir (Label)); + end Set_Label; + + function Get_Visible_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Visible_Flag (Get_Kind (Target)), + "no field Visible_Flag"); + return Get_Flag4 (Target); + end Get_Visible_Flag; + + procedure Set_Visible_Flag (Target : Iir; Flag : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Visible_Flag (Get_Kind (Target)), + "no field Visible_Flag"); + Set_Flag4 (Target, Flag); + end Set_Visible_Flag; + + function Get_Range_Constraint (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Range_Constraint (Get_Kind (Target)), + "no field Range_Constraint"); + return Get_Field1 (Target); + end Get_Range_Constraint; + + procedure Set_Range_Constraint (Target : Iir; Constraint : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Range_Constraint (Get_Kind (Target)), + "no field Range_Constraint"); + Set_Field1 (Target, Constraint); + end Set_Range_Constraint; + + function Get_Direction (Decl : Iir) return Iir_Direction is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Direction (Get_Kind (Decl)), + "no field Direction"); + return Iir_Direction'Val (Get_State2 (Decl)); + end Get_Direction; + + procedure Set_Direction (Decl : Iir; Dir : Iir_Direction) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Direction (Get_Kind (Decl)), + "no field Direction"); + Set_State2 (Decl, Iir_Direction'Pos (Dir)); + end Set_Direction; + + function Get_Left_Limit (Decl : Iir_Range_Expression) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Left_Limit (Get_Kind (Decl)), + "no field Left_Limit"); + return Get_Field4 (Decl); + end Get_Left_Limit; + + procedure Set_Left_Limit (Decl : Iir_Range_Expression; Limit : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Left_Limit (Get_Kind (Decl)), + "no field Left_Limit"); + Set_Field4 (Decl, Limit); + end Set_Left_Limit; + + function Get_Right_Limit (Decl : Iir_Range_Expression) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Right_Limit (Get_Kind (Decl)), + "no field Right_Limit"); + return Get_Field5 (Decl); + end Get_Right_Limit; + + procedure Set_Right_Limit (Decl : Iir_Range_Expression; Limit : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Right_Limit (Get_Kind (Decl)), + "no field Right_Limit"); + Set_Field5 (Decl, Limit); + end Set_Right_Limit; + + function Get_Left_Limit_Expr (Decl : Iir_Range_Expression) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Left_Limit_Expr (Get_Kind (Decl)), + "no field Left_Limit_Expr"); + return Get_Field2 (Decl); + end Get_Left_Limit_Expr; + + procedure Set_Left_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Left_Limit_Expr (Get_Kind (Decl)), + "no field Left_Limit_Expr"); + Set_Field2 (Decl, Limit); + end Set_Left_Limit_Expr; + + function Get_Right_Limit_Expr (Decl : Iir_Range_Expression) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Right_Limit_Expr (Get_Kind (Decl)), + "no field Right_Limit_Expr"); + return Get_Field3 (Decl); + end Get_Right_Limit_Expr; + + procedure Set_Right_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir) + is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Right_Limit_Expr (Get_Kind (Decl)), + "no field Right_Limit_Expr"); + Set_Field3 (Decl, Limit); + end Set_Right_Limit_Expr; + + function Get_Base_Type (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Base_Type (Get_Kind (Decl)), + "no field Base_Type"); + return Get_Field4 (Decl); + end Get_Base_Type; + + procedure Set_Base_Type (Decl : Iir; Base_Type : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Base_Type (Get_Kind (Decl)), + "no field Base_Type"); + Set_Field4 (Decl, Base_Type); + end Set_Base_Type; + + function Get_Resolution_Indication (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Resolution_Indication (Get_Kind (Decl)), + "no field Resolution_Indication"); + return Get_Field5 (Decl); + end Get_Resolution_Indication; + + procedure Set_Resolution_Indication (Decl : Iir; Ind : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Resolution_Indication (Get_Kind (Decl)), + "no field Resolution_Indication"); + Set_Field5 (Decl, Ind); + end Set_Resolution_Indication; + + function Get_Record_Element_Resolution_Chain (Res : Iir) return Iir is + begin + pragma Assert (Res /= Null_Iir); + pragma Assert (Has_Record_Element_Resolution_Chain (Get_Kind (Res)), + "no field Record_Element_Resolution_Chain"); + return Get_Field1 (Res); + end Get_Record_Element_Resolution_Chain; + + procedure Set_Record_Element_Resolution_Chain (Res : Iir; Chain : Iir) is + begin + pragma Assert (Res /= Null_Iir); + pragma Assert (Has_Record_Element_Resolution_Chain (Get_Kind (Res)), + "no field Record_Element_Resolution_Chain"); + Set_Field1 (Res, Chain); + end Set_Record_Element_Resolution_Chain; + + function Get_Tolerance (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Tolerance (Get_Kind (Def)), + "no field Tolerance"); + return Get_Field7 (Def); + end Get_Tolerance; + + procedure Set_Tolerance (Def : Iir; Tol : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Tolerance (Get_Kind (Def)), + "no field Tolerance"); + Set_Field7 (Def, Tol); + end Set_Tolerance; + + function Get_Plus_Terminal (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Plus_Terminal (Get_Kind (Def)), + "no field Plus_Terminal"); + return Get_Field8 (Def); + end Get_Plus_Terminal; + + procedure Set_Plus_Terminal (Def : Iir; Terminal : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Plus_Terminal (Get_Kind (Def)), + "no field Plus_Terminal"); + Set_Field8 (Def, Terminal); + end Set_Plus_Terminal; + + function Get_Minus_Terminal (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Minus_Terminal (Get_Kind (Def)), + "no field Minus_Terminal"); + return Get_Field9 (Def); + end Get_Minus_Terminal; + + procedure Set_Minus_Terminal (Def : Iir; Terminal : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Minus_Terminal (Get_Kind (Def)), + "no field Minus_Terminal"); + Set_Field9 (Def, Terminal); + end Set_Minus_Terminal; + + function Get_Simultaneous_Left (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Simultaneous_Left (Get_Kind (Def)), + "no field Simultaneous_Left"); + return Get_Field5 (Def); + end Get_Simultaneous_Left; + + procedure Set_Simultaneous_Left (Def : Iir; Expr : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Simultaneous_Left (Get_Kind (Def)), + "no field Simultaneous_Left"); + Set_Field5 (Def, Expr); + end Set_Simultaneous_Left; + + function Get_Simultaneous_Right (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Simultaneous_Right (Get_Kind (Def)), + "no field Simultaneous_Right"); + return Get_Field6 (Def); + end Get_Simultaneous_Right; + + procedure Set_Simultaneous_Right (Def : Iir; Expr : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Simultaneous_Right (Get_Kind (Def)), + "no field Simultaneous_Right"); + Set_Field6 (Def, Expr); + end Set_Simultaneous_Right; + + function Get_Text_File_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Text_File_Flag (Get_Kind (Atype)), + "no field Text_File_Flag"); + return Get_Flag4 (Atype); + end Get_Text_File_Flag; + + procedure Set_Text_File_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Text_File_Flag (Get_Kind (Atype)), + "no field Text_File_Flag"); + Set_Flag4 (Atype, Flag); + end Set_Text_File_Flag; + + function Get_Only_Characters_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Only_Characters_Flag (Get_Kind (Atype)), + "no field Only_Characters_Flag"); + return Get_Flag4 (Atype); + end Get_Only_Characters_Flag; + + procedure Set_Only_Characters_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Only_Characters_Flag (Get_Kind (Atype)), + "no field Only_Characters_Flag"); + Set_Flag4 (Atype, Flag); + end Set_Only_Characters_Flag; + + function Get_Is_Character_Type (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Is_Character_Type (Get_Kind (Atype)), + "no field Is_Character_Type"); + return Get_Flag5 (Atype); + end Get_Is_Character_Type; + + procedure Set_Is_Character_Type (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Is_Character_Type (Get_Kind (Atype)), + "no field Is_Character_Type"); + Set_Flag5 (Atype, Flag); + end Set_Is_Character_Type; + + function Get_Type_Staticness (Atype : Iir) return Iir_Staticness is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Type_Staticness (Get_Kind (Atype)), + "no field Type_Staticness"); + return Iir_Staticness'Val (Get_State1 (Atype)); + end Get_Type_Staticness; + + procedure Set_Type_Staticness (Atype : Iir; Static : Iir_Staticness) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Type_Staticness (Get_Kind (Atype)), + "no field Type_Staticness"); + Set_State1 (Atype, Iir_Staticness'Pos (Static)); + end Set_Type_Staticness; + + function Get_Constraint_State (Atype : Iir) return Iir_Constraint is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Constraint_State (Get_Kind (Atype)), + "no field Constraint_State"); + return Iir_Constraint'Val (Get_State2 (Atype)); + end Get_Constraint_State; + + procedure Set_Constraint_State (Atype : Iir; State : Iir_Constraint) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Constraint_State (Get_Kind (Atype)), + "no field Constraint_State"); + Set_State2 (Atype, Iir_Constraint'Pos (State)); + end Set_Constraint_State; + + function Get_Index_Subtype_List (Decl : Iir) return Iir_Flist is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Index_Subtype_List (Get_Kind (Decl)), + "no field Index_Subtype_List"); + return Iir_To_Iir_Flist (Get_Field9 (Decl)); + end Get_Index_Subtype_List; + + procedure Set_Index_Subtype_List (Decl : Iir; List : Iir_Flist) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Index_Subtype_List (Get_Kind (Decl)), + "no field Index_Subtype_List"); + Set_Field9 (Decl, Iir_Flist_To_Iir (List)); + end Set_Index_Subtype_List; + + function Get_Index_Subtype_Definition_List (Def : Iir) return Iir_Flist is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Index_Subtype_Definition_List (Get_Kind (Def)), + "no field Index_Subtype_Definition_List"); + return Iir_To_Iir_Flist (Get_Field6 (Def)); + end Get_Index_Subtype_Definition_List; + + procedure Set_Index_Subtype_Definition_List (Def : Iir; Idx : Iir_Flist) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Index_Subtype_Definition_List (Get_Kind (Def)), + "no field Index_Subtype_Definition_List"); + Set_Field6 (Def, Iir_Flist_To_Iir (Idx)); + end Set_Index_Subtype_Definition_List; + + function Get_Element_Subtype_Indication (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Element_Subtype_Indication (Get_Kind (Decl)), + "no field Element_Subtype_Indication"); + return Get_Field2 (Decl); + end Get_Element_Subtype_Indication; + + procedure Set_Element_Subtype_Indication (Decl : Iir; Sub_Type : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Element_Subtype_Indication (Get_Kind (Decl)), + "no field Element_Subtype_Indication"); + Set_Field2 (Decl, Sub_Type); + end Set_Element_Subtype_Indication; + + function Get_Element_Subtype (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Element_Subtype (Get_Kind (Decl)), + "no field Element_Subtype"); + return Get_Field1 (Decl); + end Get_Element_Subtype; + + procedure Set_Element_Subtype (Decl : Iir; Sub_Type : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Element_Subtype (Get_Kind (Decl)), + "no field Element_Subtype"); + Set_Field1 (Decl, Sub_Type); + end Set_Element_Subtype; + + function Get_Index_Constraint_List (Def : Iir) return Iir_Flist is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Index_Constraint_List (Get_Kind (Def)), + "no field Index_Constraint_List"); + return Iir_To_Iir_Flist (Get_Field6 (Def)); + end Get_Index_Constraint_List; + + procedure Set_Index_Constraint_List (Def : Iir; List : Iir_Flist) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Index_Constraint_List (Get_Kind (Def)), + "no field Index_Constraint_List"); + Set_Field6 (Def, Iir_Flist_To_Iir (List)); + end Set_Index_Constraint_List; + + function Get_Array_Element_Constraint (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Array_Element_Constraint (Get_Kind (Def)), + "no field Array_Element_Constraint"); + return Get_Field8 (Def); + end Get_Array_Element_Constraint; + + procedure Set_Array_Element_Constraint (Def : Iir; El : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Array_Element_Constraint (Get_Kind (Def)), + "no field Array_Element_Constraint"); + Set_Field8 (Def, El); + end Set_Array_Element_Constraint; + + function Get_Elements_Declaration_List (Decl : Iir) return Iir_Flist is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Elements_Declaration_List (Get_Kind (Decl)), + "no field Elements_Declaration_List"); + return Iir_To_Iir_Flist (Get_Field1 (Decl)); + end Get_Elements_Declaration_List; + + procedure Set_Elements_Declaration_List (Decl : Iir; List : Iir_Flist) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Elements_Declaration_List (Get_Kind (Decl)), + "no field Elements_Declaration_List"); + Set_Field1 (Decl, Iir_Flist_To_Iir (List)); + end Set_Elements_Declaration_List; + + function Get_Owned_Elements_Chain (Atype : Iir) return Iir is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Owned_Elements_Chain (Get_Kind (Atype)), + "no field Owned_Elements_Chain"); + return Get_Field6 (Atype); + end Get_Owned_Elements_Chain; + + procedure Set_Owned_Elements_Chain (Atype : Iir; Chain : Iir) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Owned_Elements_Chain (Get_Kind (Atype)), + "no field Owned_Elements_Chain"); + Set_Field6 (Atype, Chain); + end Set_Owned_Elements_Chain; + + function Get_Designated_Type (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Designated_Type (Get_Kind (Target)), + "no field Designated_Type"); + return Get_Field1 (Target); + end Get_Designated_Type; + + procedure Set_Designated_Type (Target : Iir; Dtype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Designated_Type (Get_Kind (Target)), + "no field Designated_Type"); + Set_Field1 (Target, Dtype); + end Set_Designated_Type; + + function Get_Designated_Subtype_Indication (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Designated_Subtype_Indication (Get_Kind (Target)), + "no field Designated_Subtype_Indication"); + return Get_Field5 (Target); + end Get_Designated_Subtype_Indication; + + procedure Set_Designated_Subtype_Indication (Target : Iir; Dtype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Designated_Subtype_Indication (Get_Kind (Target)), + "no field Designated_Subtype_Indication"); + Set_Field5 (Target, Dtype); + end Set_Designated_Subtype_Indication; + + function Get_Index_List (Decl : Iir) return Iir_Flist is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Index_List (Get_Kind (Decl)), + "no field Index_List"); + return Iir_To_Iir_Flist (Get_Field2 (Decl)); + end Get_Index_List; + + procedure Set_Index_List (Decl : Iir; List : Iir_Flist) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Index_List (Get_Kind (Decl)), + "no field Index_List"); + Set_Field2 (Decl, Iir_Flist_To_Iir (List)); + end Set_Index_List; + + function Get_Reference (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Reference (Get_Kind (Def)), + "no field Reference"); + return Get_Field2 (Def); + end Get_Reference; + + procedure Set_Reference (Def : Iir; Ref : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Reference (Get_Kind (Def)), + "no field Reference"); + Set_Field2 (Def, Ref); + end Set_Reference; + + function Get_Nature_Declarator (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Nature_Declarator (Get_Kind (Def)), + "no field Nature_Declarator"); + return Get_Field3 (Def); + end Get_Nature_Declarator; + + procedure Set_Nature_Declarator (Def : Iir; Decl : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Nature_Declarator (Get_Kind (Def)), + "no field Nature_Declarator"); + Set_Field3 (Def, Decl); + end Set_Nature_Declarator; + + function Get_Across_Type (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Across_Type (Get_Kind (Def)), + "no field Across_Type"); + return Get_Field7 (Def); + end Get_Across_Type; + + procedure Set_Across_Type (Def : Iir; Atype : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Across_Type (Get_Kind (Def)), + "no field Across_Type"); + Set_Field7 (Def, Atype); + end Set_Across_Type; + + function Get_Through_Type (Def : Iir) return Iir is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Through_Type (Get_Kind (Def)), + "no field Through_Type"); + return Get_Field8 (Def); + end Get_Through_Type; + + procedure Set_Through_Type (Def : Iir; Atype : Iir) is + begin + pragma Assert (Def /= Null_Iir); + pragma Assert (Has_Through_Type (Get_Kind (Def)), + "no field Through_Type"); + Set_Field8 (Def, Atype); + end Set_Through_Type; + + function Get_Target (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Target (Get_Kind (Target)), + "no field Target"); + return Get_Field1 (Target); + end Get_Target; + + procedure Set_Target (Target : Iir; Atarget : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Target (Get_Kind (Target)), + "no field Target"); + Set_Field1 (Target, Atarget); + end Set_Target; + + function Get_Waveform_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Waveform_Chain (Get_Kind (Target)), + "no field Waveform_Chain"); + return Get_Field5 (Target); + end Get_Waveform_Chain; + + procedure Set_Waveform_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Waveform_Chain (Get_Kind (Target)), + "no field Waveform_Chain"); + Set_Field5 (Target, Chain); + end Set_Waveform_Chain; + + function Get_Guard (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard (Get_Kind (Target)), + "no field Guard"); + return Get_Field8 (Target); + end Get_Guard; + + procedure Set_Guard (Target : Iir; Guard : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard (Get_Kind (Target)), + "no field Guard"); + Set_Field8 (Target, Guard); + end Set_Guard; + + function Get_Delay_Mechanism (Target : Iir) return Iir_Delay_Mechanism is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Delay_Mechanism (Get_Kind (Target)), + "no field Delay_Mechanism"); + return Boolean_To_Iir_Delay_Mechanism (Get_Flag1 (Target)); + end Get_Delay_Mechanism; + + procedure Set_Delay_Mechanism (Target : Iir; Kind : Iir_Delay_Mechanism) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Delay_Mechanism (Get_Kind (Target)), + "no field Delay_Mechanism"); + Set_Flag1 (Target, Iir_Delay_Mechanism_To_Boolean (Kind)); + end Set_Delay_Mechanism; + + function Get_Reject_Time_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Reject_Time_Expression (Get_Kind (Target)), + "no field Reject_Time_Expression"); + return Get_Field4 (Target); + end Get_Reject_Time_Expression; + + procedure Set_Reject_Time_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Reject_Time_Expression (Get_Kind (Target)), + "no field Reject_Time_Expression"); + Set_Field4 (Target, Expr); + end Set_Reject_Time_Expression; + + function Get_Sensitivity_List (Wait : Iir) return Iir_List is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Sensitivity_List (Get_Kind (Wait)), + "no field Sensitivity_List"); + return Iir_To_Iir_List (Get_Field6 (Wait)); + end Get_Sensitivity_List; + + procedure Set_Sensitivity_List (Wait : Iir; List : Iir_List) is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Sensitivity_List (Get_Kind (Wait)), + "no field Sensitivity_List"); + Set_Field6 (Wait, Iir_List_To_Iir (List)); + end Set_Sensitivity_List; + + function Get_Process_Origin (Proc : Iir) return Iir is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Process_Origin (Get_Kind (Proc)), + "no field Process_Origin"); + return Get_Field8 (Proc); + end Get_Process_Origin; + + procedure Set_Process_Origin (Proc : Iir; Orig : Iir) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Process_Origin (Get_Kind (Proc)), + "no field Process_Origin"); + Set_Field8 (Proc, Orig); + end Set_Process_Origin; + + function Get_Package_Origin (Pkg : Iir) return Iir is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Origin (Get_Kind (Pkg)), + "no field Package_Origin"); + return Get_Field7 (Pkg); + end Get_Package_Origin; + + procedure Set_Package_Origin (Pkg : Iir; Orig : Iir) is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Origin (Get_Kind (Pkg)), + "no field Package_Origin"); + Set_Field7 (Pkg, Orig); + end Set_Package_Origin; + + function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Condition_Clause (Get_Kind (Wait)), + "no field Condition_Clause"); + return Get_Field5 (Wait); + end Get_Condition_Clause; + + procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir) is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Condition_Clause (Get_Kind (Wait)), + "no field Condition_Clause"); + Set_Field5 (Wait, Cond); + end Set_Condition_Clause; + + function Get_Timeout_Clause (Wait : Iir_Wait_Statement) return Iir is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Timeout_Clause (Get_Kind (Wait)), + "no field Timeout_Clause"); + return Get_Field1 (Wait); + end Get_Timeout_Clause; + + procedure Set_Timeout_Clause (Wait : Iir_Wait_Statement; Timeout : Iir) is + begin + pragma Assert (Wait /= Null_Iir); + pragma Assert (Has_Timeout_Clause (Get_Kind (Wait)), + "no field Timeout_Clause"); + Set_Field1 (Wait, Timeout); + end Set_Timeout_Clause; + + function Get_Postponed_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Postponed_Flag (Get_Kind (Target)), + "no field Postponed_Flag"); + return Get_Flag3 (Target); + end Get_Postponed_Flag; + + procedure Set_Postponed_Flag (Target : Iir; Value : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Postponed_Flag (Get_Kind (Target)), + "no field Postponed_Flag"); + Set_Flag3 (Target, Value); + end Set_Postponed_Flag; + + function Get_Callees_List (Proc : Iir) return Iir_List is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Callees_List (Get_Kind (Proc)), + "no field Callees_List"); + return Iir_To_Iir_List (Get_Field7 (Proc)); + end Get_Callees_List; + + procedure Set_Callees_List (Proc : Iir; List : Iir_List) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Callees_List (Get_Kind (Proc)), + "no field Callees_List"); + Set_Field7 (Proc, Iir_List_To_Iir (List)); + end Set_Callees_List; + + function Get_Passive_Flag (Proc : Iir) return Boolean is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Passive_Flag (Get_Kind (Proc)), + "no field Passive_Flag"); + return Get_Flag2 (Proc); + end Get_Passive_Flag; + + procedure Set_Passive_Flag (Proc : Iir; Flag : Boolean) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Passive_Flag (Get_Kind (Proc)), + "no field Passive_Flag"); + Set_Flag2 (Proc, Flag); + end Set_Passive_Flag; + + function Get_Resolution_Function_Flag (Func : Iir) return Boolean is + begin + pragma Assert (Func /= Null_Iir); + pragma Assert (Has_Resolution_Function_Flag (Get_Kind (Func)), + "no field Resolution_Function_Flag"); + return Get_Flag7 (Func); + end Get_Resolution_Function_Flag; + + procedure Set_Resolution_Function_Flag (Func : Iir; Flag : Boolean) is + begin + pragma Assert (Func /= Null_Iir); + pragma Assert (Has_Resolution_Function_Flag (Get_Kind (Func)), + "no field Resolution_Function_Flag"); + Set_Flag7 (Func, Flag); + end Set_Resolution_Function_Flag; + + function Get_Wait_State (Proc : Iir) return Tri_State_Type is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Wait_State (Get_Kind (Proc)), + "no field Wait_State"); + return Tri_State_Type'Val (Get_State1 (Proc)); + end Get_Wait_State; + + procedure Set_Wait_State (Proc : Iir; State : Tri_State_Type) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Wait_State (Get_Kind (Proc)), + "no field Wait_State"); + Set_State1 (Proc, Tri_State_Type'Pos (State)); + end Set_Wait_State; + + function Get_All_Sensitized_State (Proc : Iir) return Iir_All_Sensitized is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_All_Sensitized_State (Get_Kind (Proc)), + "no field All_Sensitized_State"); + return Iir_All_Sensitized'Val (Get_State3 (Proc)); + end Get_All_Sensitized_State; + + procedure Set_All_Sensitized_State (Proc : Iir; State : Iir_All_Sensitized) + is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_All_Sensitized_State (Get_Kind (Proc)), + "no field All_Sensitized_State"); + Set_State3 (Proc, Iir_All_Sensitized'Pos (State)); + end Set_All_Sensitized_State; + + function Get_Seen_Flag (Proc : Iir) return Boolean is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Seen_Flag (Get_Kind (Proc)), + "no field Seen_Flag"); + return Get_Flag1 (Proc); + end Get_Seen_Flag; + + procedure Set_Seen_Flag (Proc : Iir; Flag : Boolean) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Seen_Flag (Get_Kind (Proc)), + "no field Seen_Flag"); + Set_Flag1 (Proc, Flag); + end Set_Seen_Flag; + + function Get_Pure_Flag (Func : Iir) return Boolean is + begin + pragma Assert (Func /= Null_Iir); + pragma Assert (Has_Pure_Flag (Get_Kind (Func)), + "no field Pure_Flag"); + return Get_Flag2 (Func); + end Get_Pure_Flag; + + procedure Set_Pure_Flag (Func : Iir; Flag : Boolean) is + begin + pragma Assert (Func /= Null_Iir); + pragma Assert (Has_Pure_Flag (Get_Kind (Func)), + "no field Pure_Flag"); + Set_Flag2 (Func, Flag); + end Set_Pure_Flag; + + function Get_Foreign_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Foreign_Flag (Get_Kind (Decl)), + "no field Foreign_Flag"); + return Get_Flag3 (Decl); + end Get_Foreign_Flag; + + procedure Set_Foreign_Flag (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Foreign_Flag (Get_Kind (Decl)), + "no field Foreign_Flag"); + Set_Flag3 (Decl, Flag); + end Set_Foreign_Flag; + + function Get_Resolved_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Resolved_Flag (Get_Kind (Atype)), + "no field Resolved_Flag"); + return Get_Flag1 (Atype); + end Get_Resolved_Flag; + + procedure Set_Resolved_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Resolved_Flag (Get_Kind (Atype)), + "no field Resolved_Flag"); + Set_Flag1 (Atype, Flag); + end Set_Resolved_Flag; + + function Get_Signal_Type_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Signal_Type_Flag (Get_Kind (Atype)), + "no field Signal_Type_Flag"); + return Get_Flag2 (Atype); + end Get_Signal_Type_Flag; + + procedure Set_Signal_Type_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Signal_Type_Flag (Get_Kind (Atype)), + "no field Signal_Type_Flag"); + Set_Flag2 (Atype, Flag); + end Set_Signal_Type_Flag; + + function Get_Has_Signal_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Has_Signal_Flag (Get_Kind (Atype)), + "no field Has_Signal_Flag"); + return Get_Flag3 (Atype); + end Get_Has_Signal_Flag; + + procedure Set_Has_Signal_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Has_Signal_Flag (Get_Kind (Atype)), + "no field Has_Signal_Flag"); + Set_Flag3 (Atype, Flag); + end Set_Has_Signal_Flag; + + function Get_Purity_State (Proc : Iir) return Iir_Pure_State is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Purity_State (Get_Kind (Proc)), + "no field Purity_State"); + return Iir_Pure_State'Val (Get_State2 (Proc)); + end Get_Purity_State; + + procedure Set_Purity_State (Proc : Iir; State : Iir_Pure_State) is + begin + pragma Assert (Proc /= Null_Iir); + pragma Assert (Has_Purity_State (Get_Kind (Proc)), + "no field Purity_State"); + Set_State2 (Proc, Iir_Pure_State'Pos (State)); + end Set_Purity_State; + + function Get_Elab_Flag (Design : Iir) return Boolean is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Elab_Flag (Get_Kind (Design)), + "no field Elab_Flag"); + return Get_Flag3 (Design); + end Get_Elab_Flag; + + procedure Set_Elab_Flag (Design : Iir; Flag : Boolean) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Elab_Flag (Get_Kind (Design)), + "no field Elab_Flag"); + Set_Flag3 (Design, Flag); + end Set_Elab_Flag; + + function Get_Configuration_Mark_Flag (Design : Iir) return Boolean is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Configuration_Mark_Flag (Get_Kind (Design)), + "no field Configuration_Mark_Flag"); + return Get_Flag4 (Design); + end Get_Configuration_Mark_Flag; + + procedure Set_Configuration_Mark_Flag (Design : Iir; Flag : Boolean) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Configuration_Mark_Flag (Get_Kind (Design)), + "no field Configuration_Mark_Flag"); + Set_Flag4 (Design, Flag); + end Set_Configuration_Mark_Flag; + + function Get_Configuration_Done_Flag (Design : Iir) return Boolean is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Configuration_Done_Flag (Get_Kind (Design)), + "no field Configuration_Done_Flag"); + return Get_Flag5 (Design); + end Get_Configuration_Done_Flag; + + procedure Set_Configuration_Done_Flag (Design : Iir; Flag : Boolean) is + begin + pragma Assert (Design /= Null_Iir); + pragma Assert (Has_Configuration_Done_Flag (Get_Kind (Design)), + "no field Configuration_Done_Flag"); + Set_Flag5 (Design, Flag); + end Set_Configuration_Done_Flag; + + function Get_Index_Constraint_Flag (Atype : Iir) return Boolean is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Index_Constraint_Flag (Get_Kind (Atype)), + "no field Index_Constraint_Flag"); + return Get_Flag4 (Atype); + end Get_Index_Constraint_Flag; + + procedure Set_Index_Constraint_Flag (Atype : Iir; Flag : Boolean) is + begin + pragma Assert (Atype /= Null_Iir); + pragma Assert (Has_Index_Constraint_Flag (Get_Kind (Atype)), + "no field Index_Constraint_Flag"); + Set_Flag4 (Atype, Flag); + end Set_Index_Constraint_Flag; + + function Get_Hide_Implicit_Flag (Subprg : Iir) return Boolean is + begin + pragma Assert (Subprg /= Null_Iir); + pragma Assert (Has_Hide_Implicit_Flag (Get_Kind (Subprg)), + "no field Hide_Implicit_Flag"); + return Get_Flag12 (Subprg); + end Get_Hide_Implicit_Flag; + + procedure Set_Hide_Implicit_Flag (Subprg : Iir; Flag : Boolean) is + begin + pragma Assert (Subprg /= Null_Iir); + pragma Assert (Has_Hide_Implicit_Flag (Get_Kind (Subprg)), + "no field Hide_Implicit_Flag"); + Set_Flag12 (Subprg, Flag); + end Set_Hide_Implicit_Flag; + + function Get_Assertion_Condition (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Assertion_Condition (Get_Kind (Target)), + "no field Assertion_Condition"); + return Get_Field1 (Target); + end Get_Assertion_Condition; + + procedure Set_Assertion_Condition (Target : Iir; Cond : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Assertion_Condition (Get_Kind (Target)), + "no field Assertion_Condition"); + Set_Field1 (Target, Cond); + end Set_Assertion_Condition; + + function Get_Report_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Report_Expression (Get_Kind (Target)), + "no field Report_Expression"); + return Get_Field5 (Target); + end Get_Report_Expression; + + procedure Set_Report_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Report_Expression (Get_Kind (Target)), + "no field Report_Expression"); + Set_Field5 (Target, Expr); + end Set_Report_Expression; + + function Get_Severity_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Severity_Expression (Get_Kind (Target)), + "no field Severity_Expression"); + return Get_Field4 (Target); + end Get_Severity_Expression; + + procedure Set_Severity_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Severity_Expression (Get_Kind (Target)), + "no field Severity_Expression"); + Set_Field4 (Target, Expr); + end Set_Severity_Expression; + + function Get_Instantiated_Unit (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Instantiated_Unit (Get_Kind (Target)), + "no field Instantiated_Unit"); + return Get_Field1 (Target); + end Get_Instantiated_Unit; + + procedure Set_Instantiated_Unit (Target : Iir; Unit : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Instantiated_Unit (Get_Kind (Target)), + "no field Instantiated_Unit"); + Set_Field1 (Target, Unit); + end Set_Instantiated_Unit; + + function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generic_Map_Aspect_Chain (Get_Kind (Target)), + "no field Generic_Map_Aspect_Chain"); + return Get_Field8 (Target); + end Get_Generic_Map_Aspect_Chain; + + procedure Set_Generic_Map_Aspect_Chain (Target : Iir; Generics : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generic_Map_Aspect_Chain (Get_Kind (Target)), + "no field Generic_Map_Aspect_Chain"); + Set_Field8 (Target, Generics); + end Set_Generic_Map_Aspect_Chain; + + function Get_Port_Map_Aspect_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Port_Map_Aspect_Chain (Get_Kind (Target)), + "no field Port_Map_Aspect_Chain"); + return Get_Field9 (Target); + end Get_Port_Map_Aspect_Chain; + + procedure Set_Port_Map_Aspect_Chain (Target : Iir; Port : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Port_Map_Aspect_Chain (Get_Kind (Target)), + "no field Port_Map_Aspect_Chain"); + Set_Field9 (Target, Port); + end Set_Port_Map_Aspect_Chain; + + function Get_Configuration_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Name (Get_Kind (Target)), + "no field Configuration_Name"); + return Get_Field1 (Target); + end Get_Configuration_Name; + + procedure Set_Configuration_Name (Target : Iir; Conf : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Name (Get_Kind (Target)), + "no field Configuration_Name"); + Set_Field1 (Target, Conf); + end Set_Configuration_Name; + + function Get_Component_Configuration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Component_Configuration (Get_Kind (Target)), + "no field Component_Configuration"); + return Get_Field6 (Target); + end Get_Component_Configuration; + + procedure Set_Component_Configuration (Target : Iir; Conf : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Component_Configuration (Get_Kind (Target)), + "no field Component_Configuration"); + Set_Field6 (Target, Conf); + end Set_Component_Configuration; + + function Get_Configuration_Specification (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Specification (Get_Kind (Target)), + "no field Configuration_Specification"); + return Get_Field7 (Target); + end Get_Configuration_Specification; + + procedure Set_Configuration_Specification (Target : Iir; Conf : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Configuration_Specification (Get_Kind (Target)), + "no field Configuration_Specification"); + Set_Field7 (Target, Conf); + end Set_Configuration_Specification; + + function Get_Default_Binding_Indication (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Binding_Indication (Get_Kind (Target)), + "no field Default_Binding_Indication"); + return Get_Field5 (Target); + end Get_Default_Binding_Indication; + + procedure Set_Default_Binding_Indication (Target : Iir; Conf : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Binding_Indication (Get_Kind (Target)), + "no field Default_Binding_Indication"); + Set_Field5 (Target, Conf); + end Set_Default_Binding_Indication; + + function Get_Default_Configuration_Declaration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Configuration_Declaration (Get_Kind (Target)), + "no field Default_Configuration_Declaration"); + return Get_Field6 (Target); + end Get_Default_Configuration_Declaration; + + procedure Set_Default_Configuration_Declaration (Target : Iir; Conf : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Configuration_Declaration (Get_Kind (Target)), + "no field Default_Configuration_Declaration"); + Set_Field6 (Target, Conf); + end Set_Default_Configuration_Declaration; + + function Get_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Expression (Get_Kind (Target)), + "no field Expression"); + return Get_Field5 (Target); + end Get_Expression; + + procedure Set_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Expression (Get_Kind (Target)), + "no field Expression"); + Set_Field5 (Target, Expr); + end Set_Expression; + + function Get_Conditional_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Conditional_Expression (Get_Kind (Target)), + "no field Conditional_Expression"); + return Get_Field5 (Target); + end Get_Conditional_Expression; + + procedure Set_Conditional_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Conditional_Expression (Get_Kind (Target)), + "no field Conditional_Expression"); + Set_Field5 (Target, Expr); + end Set_Conditional_Expression; + + function Get_Allocator_Designated_Type (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Allocator_Designated_Type (Get_Kind (Target)), + "no field Allocator_Designated_Type"); + return Get_Field2 (Target); + end Get_Allocator_Designated_Type; + + procedure Set_Allocator_Designated_Type (Target : Iir; A_Type : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Allocator_Designated_Type (Get_Kind (Target)), + "no field Allocator_Designated_Type"); + Set_Field2 (Target, A_Type); + end Set_Allocator_Designated_Type; + + function Get_Selected_Waveform_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Selected_Waveform_Chain (Get_Kind (Target)), + "no field Selected_Waveform_Chain"); + return Get_Field7 (Target); + end Get_Selected_Waveform_Chain; + + procedure Set_Selected_Waveform_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Selected_Waveform_Chain (Get_Kind (Target)), + "no field Selected_Waveform_Chain"); + Set_Field7 (Target, Chain); + end Set_Selected_Waveform_Chain; + + function Get_Conditional_Waveform_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Conditional_Waveform_Chain (Get_Kind (Target)), + "no field Conditional_Waveform_Chain"); + return Get_Field5 (Target); + end Get_Conditional_Waveform_Chain; + + procedure Set_Conditional_Waveform_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Conditional_Waveform_Chain (Get_Kind (Target)), + "no field Conditional_Waveform_Chain"); + Set_Field5 (Target, Chain); + end Set_Conditional_Waveform_Chain; + + function Get_Guard_Expression (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard_Expression (Get_Kind (Target)), + "no field Guard_Expression"); + return Get_Field2 (Target); + end Get_Guard_Expression; + + procedure Set_Guard_Expression (Target : Iir; Expr : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard_Expression (Get_Kind (Target)), + "no field Guard_Expression"); + Set_Field2 (Target, Expr); + end Set_Guard_Expression; + + function Get_Guard_Decl (Target : Iir_Block_Statement) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard_Decl (Get_Kind (Target)), + "no field Guard_Decl"); + return Get_Field8 (Target); + end Get_Guard_Decl; + + procedure Set_Guard_Decl (Target : Iir_Block_Statement; Decl : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Guard_Decl (Get_Kind (Target)), + "no field Guard_Decl"); + Set_Field8 (Target, Decl); + end Set_Guard_Decl; + + function Get_Guard_Sensitivity_List (Guard : Iir) return Iir_List is + begin + pragma Assert (Guard /= Null_Iir); + pragma Assert (Has_Guard_Sensitivity_List (Get_Kind (Guard)), + "no field Guard_Sensitivity_List"); + return Iir_To_Iir_List (Get_Field4 (Guard)); + end Get_Guard_Sensitivity_List; + + procedure Set_Guard_Sensitivity_List (Guard : Iir; List : Iir_List) is + begin + pragma Assert (Guard /= Null_Iir); + pragma Assert (Has_Guard_Sensitivity_List (Get_Kind (Guard)), + "no field Guard_Sensitivity_List"); + Set_Field4 (Guard, Iir_List_To_Iir (List)); + end Set_Guard_Sensitivity_List; + + function Get_Signal_Attribute_Chain (Decl : Iir) return Iir is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Signal_Attribute_Chain (Get_Kind (Decl)), + "no field Signal_Attribute_Chain"); + return Get_Field3 (Decl); + end Get_Signal_Attribute_Chain; + + procedure Set_Signal_Attribute_Chain (Decl : Iir; Chain : Iir) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Signal_Attribute_Chain (Get_Kind (Decl)), + "no field Signal_Attribute_Chain"); + Set_Field3 (Decl, Chain); + end Set_Signal_Attribute_Chain; + + function Get_Block_Block_Configuration (Block : Iir) return Iir is + begin + pragma Assert (Block /= Null_Iir); + pragma Assert (Has_Block_Block_Configuration (Get_Kind (Block)), + "no field Block_Block_Configuration"); + return Get_Field6 (Block); + end Get_Block_Block_Configuration; + + procedure Set_Block_Block_Configuration (Block : Iir; Conf : Iir) is + begin + pragma Assert (Block /= Null_Iir); + pragma Assert (Has_Block_Block_Configuration (Get_Kind (Block)), + "no field Block_Block_Configuration"); + Set_Field6 (Block, Conf); + end Set_Block_Block_Configuration; + + function Get_Package_Header (Pkg : Iir) return Iir is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Header (Get_Kind (Pkg)), + "no field Package_Header"); + return Get_Field6 (Pkg); + end Get_Package_Header; + + procedure Set_Package_Header (Pkg : Iir; Header : Iir) is + begin + pragma Assert (Pkg /= Null_Iir); + pragma Assert (Has_Package_Header (Get_Kind (Pkg)), + "no field Package_Header"); + Set_Field6 (Pkg, Header); + end Set_Package_Header; + + function Get_Block_Header (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Header (Get_Kind (Target)), + "no field Block_Header"); + return Get_Field7 (Target); + end Get_Block_Header; + + procedure Set_Block_Header (Target : Iir; Header : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Block_Header (Get_Kind (Target)), + "no field Block_Header"); + Set_Field7 (Target, Header); + end Set_Block_Header; + + function Get_Uninstantiated_Package_Name (Inst : Iir) return Iir is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Uninstantiated_Package_Name (Get_Kind (Inst)), + "no field Uninstantiated_Package_Name"); + return Get_Field7 (Inst); + end Get_Uninstantiated_Package_Name; + + procedure Set_Uninstantiated_Package_Name (Inst : Iir; Name : Iir) is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Uninstantiated_Package_Name (Get_Kind (Inst)), + "no field Uninstantiated_Package_Name"); + Set_Field7 (Inst, Name); + end Set_Uninstantiated_Package_Name; + + function Get_Uninstantiated_Package_Decl (Inst : Iir) return Iir is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Uninstantiated_Package_Decl (Get_Kind (Inst)), + "no field Uninstantiated_Package_Decl"); + return Get_Field9 (Inst); + end Get_Uninstantiated_Package_Decl; + + procedure Set_Uninstantiated_Package_Decl (Inst : Iir; Pkg : Iir) is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Uninstantiated_Package_Decl (Get_Kind (Inst)), + "no field Uninstantiated_Package_Decl"); + Set_Field9 (Inst, Pkg); + end Set_Uninstantiated_Package_Decl; + + function Get_Instance_Source_File (Inst : Iir) return Source_File_Entry is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Instance_Source_File (Get_Kind (Inst)), + "no field Instance_Source_File"); + return Iir_To_Source_File_Entry (Get_Field10 (Inst)); + end Get_Instance_Source_File; + + procedure Set_Instance_Source_File (Inst : Iir; File : Source_File_Entry) + is + begin + pragma Assert (Inst /= Null_Iir); + pragma Assert (Has_Instance_Source_File (Get_Kind (Inst)), + "no field Instance_Source_File"); + Set_Field10 (Inst, Source_File_Entry_To_Iir (File)); + end Set_Instance_Source_File; + + function Get_Generate_Block_Configuration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Block_Configuration (Get_Kind (Target)), + "no field Generate_Block_Configuration"); + return Get_Field2 (Target); + end Get_Generate_Block_Configuration; + + procedure Set_Generate_Block_Configuration (Target : Iir; Conf : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Block_Configuration (Get_Kind (Target)), + "no field Generate_Block_Configuration"); + Set_Field2 (Target, Conf); + end Set_Generate_Block_Configuration; + + function Get_Generate_Statement_Body (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Statement_Body (Get_Kind (Target)), + "no field Generate_Statement_Body"); + return Get_Field4 (Target); + end Get_Generate_Statement_Body; + + procedure Set_Generate_Statement_Body (Target : Iir; Bod : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Statement_Body (Get_Kind (Target)), + "no field Generate_Statement_Body"); + Set_Field4 (Target, Bod); + end Set_Generate_Statement_Body; + + function Get_Alternative_Label (Target : Iir) return Name_Id is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Alternative_Label (Get_Kind (Target)), + "no field Alternative_Label"); + return Iir_To_Name_Id (Get_Field3 (Target)); + end Get_Alternative_Label; + + procedure Set_Alternative_Label (Target : Iir; Label : Name_Id) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Alternative_Label (Get_Kind (Target)), + "no field Alternative_Label"); + Set_Field3 (Target, Name_Id_To_Iir (Label)); + end Set_Alternative_Label; + + function Get_Generate_Else_Clause (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Else_Clause (Get_Kind (Target)), + "no field Generate_Else_Clause"); + return Get_Field5 (Target); + end Get_Generate_Else_Clause; + + procedure Set_Generate_Else_Clause (Target : Iir; Clause : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Generate_Else_Clause (Get_Kind (Target)), + "no field Generate_Else_Clause"); + Set_Field5 (Target, Clause); + end Set_Generate_Else_Clause; + + function Get_Condition (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Condition (Get_Kind (Target)), + "no field Condition"); + return Get_Field1 (Target); + end Get_Condition; + + procedure Set_Condition (Target : Iir; Condition : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Condition (Get_Kind (Target)), + "no field Condition"); + Set_Field1 (Target, Condition); + end Set_Condition; + + function Get_Else_Clause (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Else_Clause (Get_Kind (Target)), + "no field Else_Clause"); + return Get_Field4 (Target); + end Get_Else_Clause; + + procedure Set_Else_Clause (Target : Iir; Clause : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Else_Clause (Get_Kind (Target)), + "no field Else_Clause"); + Set_Field4 (Target, Clause); + end Set_Else_Clause; + + function Get_Parameter_Specification (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter_Specification (Get_Kind (Target)), + "no field Parameter_Specification"); + return Get_Field1 (Target); + end Get_Parameter_Specification; + + procedure Set_Parameter_Specification (Target : Iir; Param : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter_Specification (Get_Kind (Target)), + "no field Parameter_Specification"); + Set_Field1 (Target, Param); + end Set_Parameter_Specification; + + function Get_Parent (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parent (Get_Kind (Target)), + "no field Parent"); + return Get_Field0 (Target); + end Get_Parent; + + procedure Set_Parent (Target : Iir; Parent : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parent (Get_Kind (Target)), + "no field Parent"); + Set_Field0 (Target, Parent); + end Set_Parent; + + function Get_Loop_Label (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Loop_Label (Get_Kind (Target)), + "no field Loop_Label"); + return Get_Field5 (Target); + end Get_Loop_Label; + + procedure Set_Loop_Label (Target : Iir; Stmt : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Loop_Label (Get_Kind (Target)), + "no field Loop_Label"); + Set_Field5 (Target, Stmt); + end Set_Loop_Label; + + function Get_Component_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Component_Name (Get_Kind (Target)), + "no field Component_Name"); + return Get_Field4 (Target); + end Get_Component_Name; + + procedure Set_Component_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Component_Name (Get_Kind (Target)), + "no field Component_Name"); + Set_Field4 (Target, Name); + end Set_Component_Name; + + function Get_Instantiation_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Instantiation_List (Get_Kind (Target)), + "no field Instantiation_List"); + return Iir_To_Iir_Flist (Get_Field1 (Target)); + end Get_Instantiation_List; + + procedure Set_Instantiation_List (Target : Iir; List : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Instantiation_List (Get_Kind (Target)), + "no field Instantiation_List"); + Set_Field1 (Target, Iir_Flist_To_Iir (List)); + end Set_Instantiation_List; + + function Get_Entity_Aspect (Target : Iir_Binding_Indication) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Aspect (Get_Kind (Target)), + "no field Entity_Aspect"); + return Get_Field3 (Target); + end Get_Entity_Aspect; + + procedure Set_Entity_Aspect (Target : Iir_Binding_Indication; Entity : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Entity_Aspect (Get_Kind (Target)), + "no field Entity_Aspect"); + Set_Field3 (Target, Entity); + end Set_Entity_Aspect; + + function Get_Default_Entity_Aspect (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Entity_Aspect (Get_Kind (Target)), + "no field Default_Entity_Aspect"); + return Get_Field1 (Target); + end Get_Default_Entity_Aspect; + + procedure Set_Default_Entity_Aspect (Target : Iir; Aspect : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Default_Entity_Aspect (Get_Kind (Target)), + "no field Default_Entity_Aspect"); + Set_Field1 (Target, Aspect); + end Set_Default_Entity_Aspect; + + function Get_Binding_Indication (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Binding_Indication (Get_Kind (Target)), + "no field Binding_Indication"); + return Get_Field3 (Target); + end Get_Binding_Indication; + + procedure Set_Binding_Indication (Target : Iir; Binding : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Binding_Indication (Get_Kind (Target)), + "no field Binding_Indication"); + Set_Field3 (Target, Binding); + end Set_Binding_Indication; + + function Get_Named_Entity (Name : Iir) return Iir is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_Named_Entity (Get_Kind (Name)), + "no field Named_Entity"); + return Get_Field4 (Name); + end Get_Named_Entity; + + procedure Set_Named_Entity (Name : Iir; Val : Iir) is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_Named_Entity (Get_Kind (Name)), + "no field Named_Entity"); + Set_Field4 (Name, Val); + end Set_Named_Entity; + + function Get_Alias_Declaration (Name : Iir) return Iir is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), + "no field Alias_Declaration"); + return Get_Field2 (Name); + end Get_Alias_Declaration; + + procedure Set_Alias_Declaration (Name : Iir; Val : Iir) is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_Alias_Declaration (Get_Kind (Name)), + "no field Alias_Declaration"); + Set_Field2 (Name, Val); + end Set_Alias_Declaration; + + function Get_Referenced_Name (N : Iir) return Iir is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Referenced_Name (Get_Kind (N)), + "no field Referenced_Name"); + return Get_Field2 (N); + end Get_Referenced_Name; + + procedure Set_Referenced_Name (N : Iir; Name : Iir) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Referenced_Name (Get_Kind (N)), + "no field Referenced_Name"); + Set_Field2 (N, Name); + end Set_Referenced_Name; + + function Get_Expr_Staticness (Target : Iir) return Iir_Staticness is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Expr_Staticness (Get_Kind (Target)), + "no field Expr_Staticness"); + return Iir_Staticness'Val (Get_State1 (Target)); + end Get_Expr_Staticness; + + procedure Set_Expr_Staticness (Target : Iir; Static : Iir_Staticness) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Expr_Staticness (Get_Kind (Target)), + "no field Expr_Staticness"); + Set_State1 (Target, Iir_Staticness'Pos (Static)); + end Set_Expr_Staticness; + + function Get_Error_Origin (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Error_Origin (Get_Kind (Target)), + "no field Error_Origin"); + return Get_Field2 (Target); + end Get_Error_Origin; + + procedure Set_Error_Origin (Target : Iir; Origin : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Error_Origin (Get_Kind (Target)), + "no field Error_Origin"); + Set_Field2 (Target, Origin); + end Set_Error_Origin; + + function Get_Operand (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Operand (Get_Kind (Target)), + "no field Operand"); + return Get_Field2 (Target); + end Get_Operand; + + procedure Set_Operand (Target : Iir; An_Iir : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Operand (Get_Kind (Target)), + "no field Operand"); + Set_Field2 (Target, An_Iir); + end Set_Operand; + + function Get_Left (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Left (Get_Kind (Target)), + "no field Left"); + return Get_Field2 (Target); + end Get_Left; + + procedure Set_Left (Target : Iir; An_Iir : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Left (Get_Kind (Target)), + "no field Left"); + Set_Field2 (Target, An_Iir); + end Set_Left; + + function Get_Right (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Right (Get_Kind (Target)), + "no field Right"); + return Get_Field4 (Target); + end Get_Right; + + procedure Set_Right (Target : Iir; An_Iir : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Right (Get_Kind (Target)), + "no field Right"); + Set_Field4 (Target, An_Iir); + end Set_Right; + + function Get_Physical_Unit (Lit : Iir) return Iir is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Physical_Unit (Get_Kind (Lit)), + "no field Physical_Unit"); + return Get_Field3 (Lit); + end Get_Physical_Unit; + + procedure Set_Physical_Unit (Lit : Iir; Name : Iir) is + begin + pragma Assert (Lit /= Null_Iir); + pragma Assert (Has_Physical_Unit (Get_Kind (Lit)), + "no field Physical_Unit"); + Set_Field3 (Lit, Name); + end Set_Physical_Unit; + + function Get_Unit_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Unit_Name (Get_Kind (Target)), + "no field Unit_Name"); + return Get_Field0 (Target); + end Get_Unit_Name; + + procedure Set_Unit_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Unit_Name (Get_Kind (Target)), + "no field Unit_Name"); + Set_Field0 (Target, Name); + end Set_Unit_Name; + + function Get_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Name (Get_Kind (Target)), + "no field Name"); + return Get_Field4 (Target); + end Get_Name; + + procedure Set_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Name (Get_Kind (Target)), + "no field Name"); + Set_Field4 (Target, Name); + end Set_Name; + + function Get_Group_Template_Name (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Group_Template_Name (Get_Kind (Target)), + "no field Group_Template_Name"); + return Get_Field5 (Target); + end Get_Group_Template_Name; + + procedure Set_Group_Template_Name (Target : Iir; Name : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Group_Template_Name (Get_Kind (Target)), + "no field Group_Template_Name"); + Set_Field5 (Target, Name); + end Set_Group_Template_Name; + + function Get_Name_Staticness (Target : Iir) return Iir_Staticness is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Name_Staticness (Get_Kind (Target)), + "no field Name_Staticness"); + return Iir_Staticness'Val (Get_State2 (Target)); + end Get_Name_Staticness; + + procedure Set_Name_Staticness (Target : Iir; Static : Iir_Staticness) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Name_Staticness (Get_Kind (Target)), + "no field Name_Staticness"); + Set_State2 (Target, Iir_Staticness'Pos (Static)); + end Set_Name_Staticness; + + function Get_Prefix (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Prefix (Get_Kind (Target)), + "no field Prefix"); + return Get_Field0 (Target); + end Get_Prefix; + + procedure Set_Prefix (Target : Iir; Prefix : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Prefix (Get_Kind (Target)), + "no field Prefix"); + Set_Field0 (Target, Prefix); + end Set_Prefix; + + function Get_Signature_Prefix (Sign : Iir) return Iir is + begin + pragma Assert (Sign /= Null_Iir); + pragma Assert (Has_Signature_Prefix (Get_Kind (Sign)), + "no field Signature_Prefix"); + return Get_Field1 (Sign); + end Get_Signature_Prefix; + + procedure Set_Signature_Prefix (Sign : Iir; Prefix : Iir) is + begin + pragma Assert (Sign /= Null_Iir); + pragma Assert (Has_Signature_Prefix (Get_Kind (Sign)), + "no field Signature_Prefix"); + Set_Field1 (Sign, Prefix); + end Set_Signature_Prefix; + + function Get_External_Pathname (Name : Iir) return Iir is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_External_Pathname (Get_Kind (Name)), + "no field External_Pathname"); + return Get_Field3 (Name); + end Get_External_Pathname; + + procedure Set_External_Pathname (Name : Iir; Path : Iir) is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_External_Pathname (Get_Kind (Name)), + "no field External_Pathname"); + Set_Field3 (Name, Path); + end Set_External_Pathname; + + function Get_Pathname_Suffix (Path : Iir) return Iir is + begin + pragma Assert (Path /= Null_Iir); + pragma Assert (Has_Pathname_Suffix (Get_Kind (Path)), + "no field Pathname_Suffix"); + return Get_Field2 (Path); + end Get_Pathname_Suffix; + + procedure Set_Pathname_Suffix (Path : Iir; Suffix : Iir) is + begin + pragma Assert (Path /= Null_Iir); + pragma Assert (Has_Pathname_Suffix (Get_Kind (Path)), + "no field Pathname_Suffix"); + Set_Field2 (Path, Suffix); + end Set_Pathname_Suffix; + + function Get_Pathname_Expression (Path : Iir) return Iir is + begin + pragma Assert (Path /= Null_Iir); + pragma Assert (Has_Pathname_Expression (Get_Kind (Path)), + "no field Pathname_Expression"); + return Get_Field5 (Path); + end Get_Pathname_Expression; + + procedure Set_Pathname_Expression (Path : Iir; Expr : Iir) is + begin + pragma Assert (Path /= Null_Iir); + pragma Assert (Has_Pathname_Expression (Get_Kind (Path)), + "no field Pathname_Expression"); + Set_Field5 (Path, Expr); + end Set_Pathname_Expression; + + function Get_In_Formal_Flag (Name : Iir) return Boolean is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_In_Formal_Flag (Get_Kind (Name)), + "no field In_Formal_Flag"); + return Get_Flag4 (Name); + end Get_In_Formal_Flag; + + procedure Set_In_Formal_Flag (Name : Iir; Flag : Boolean) is + begin + pragma Assert (Name /= Null_Iir); + pragma Assert (Has_In_Formal_Flag (Get_Kind (Name)), + "no field In_Formal_Flag"); + Set_Flag4 (Name, Flag); + end Set_In_Formal_Flag; + + function Get_Slice_Subtype (Slice : Iir) return Iir is + begin + pragma Assert (Slice /= Null_Iir); + pragma Assert (Has_Slice_Subtype (Get_Kind (Slice)), + "no field Slice_Subtype"); + return Get_Field3 (Slice); + end Get_Slice_Subtype; + + procedure Set_Slice_Subtype (Slice : Iir; Atype : Iir) is + begin + pragma Assert (Slice /= Null_Iir); + pragma Assert (Has_Slice_Subtype (Get_Kind (Slice)), + "no field Slice_Subtype"); + Set_Field3 (Slice, Atype); + end Set_Slice_Subtype; + + function Get_Suffix (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Suffix (Get_Kind (Target)), + "no field Suffix"); + return Get_Field2 (Target); + end Get_Suffix; + + procedure Set_Suffix (Target : Iir; Suffix : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Suffix (Get_Kind (Target)), + "no field Suffix"); + Set_Field2 (Target, Suffix); + end Set_Suffix; + + function Get_Index_Subtype (Attr : Iir) return Iir is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Index_Subtype (Get_Kind (Attr)), + "no field Index_Subtype"); + return Get_Field2 (Attr); + end Get_Index_Subtype; + + procedure Set_Index_Subtype (Attr : Iir; St : Iir) is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Index_Subtype (Get_Kind (Attr)), + "no field Index_Subtype"); + Set_Field2 (Attr, St); + end Set_Index_Subtype; + + function Get_Parameter (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter (Get_Kind (Target)), + "no field Parameter"); + return Get_Field4 (Target); + end Get_Parameter; + + procedure Set_Parameter (Target : Iir; Param : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter (Get_Kind (Target)), + "no field Parameter"); + Set_Field4 (Target, Param); + end Set_Parameter; + + function Get_Attr_Chain (Attr : Iir) return Iir is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Attr_Chain (Get_Kind (Attr)), + "no field Attr_Chain"); + return Get_Field2 (Attr); + end Get_Attr_Chain; + + procedure Set_Attr_Chain (Attr : Iir; Chain : Iir) is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Attr_Chain (Get_Kind (Attr)), + "no field Attr_Chain"); + Set_Field2 (Attr, Chain); + end Set_Attr_Chain; + + function Get_Signal_Attribute_Declaration (Attr : Iir) return Iir is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Signal_Attribute_Declaration (Get_Kind (Attr)), + "no field Signal_Attribute_Declaration"); + return Get_Field3 (Attr); + end Get_Signal_Attribute_Declaration; + + procedure Set_Signal_Attribute_Declaration (Attr : Iir; Decl : Iir) is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Signal_Attribute_Declaration (Get_Kind (Attr)), + "no field Signal_Attribute_Declaration"); + Set_Field3 (Attr, Decl); + end Set_Signal_Attribute_Declaration; + + function Get_Actual_Type (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Type (Get_Kind (Target)), + "no field Actual_Type"); + return Get_Field5 (Target); + end Get_Actual_Type; + + procedure Set_Actual_Type (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Type (Get_Kind (Target)), + "no field Actual_Type"); + Set_Field5 (Target, Atype); + end Set_Actual_Type; + + function Get_Actual_Type_Definition (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Type_Definition (Get_Kind (Target)), + "no field Actual_Type_Definition"); + return Get_Field3 (Target); + end Get_Actual_Type_Definition; + + procedure Set_Actual_Type_Definition (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Actual_Type_Definition (Get_Kind (Target)), + "no field Actual_Type_Definition"); + Set_Field3 (Target, Atype); + end Set_Actual_Type_Definition; + + function Get_Association_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Association_Chain (Get_Kind (Target)), + "no field Association_Chain"); + return Get_Field2 (Target); + end Get_Association_Chain; + + procedure Set_Association_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Association_Chain (Get_Kind (Target)), + "no field Association_Chain"); + Set_Field2 (Target, Chain); + end Set_Association_Chain; + + function Get_Individual_Association_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Individual_Association_Chain (Get_Kind (Target)), + "no field Individual_Association_Chain"); + return Get_Field4 (Target); + end Get_Individual_Association_Chain; + + procedure Set_Individual_Association_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Individual_Association_Chain (Get_Kind (Target)), + "no field Individual_Association_Chain"); + Set_Field4 (Target, Chain); + end Set_Individual_Association_Chain; + + function Get_Subprogram_Association_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Association_Chain (Get_Kind (Target)), + "no field Subprogram_Association_Chain"); + return Get_Field4 (Target); + end Get_Subprogram_Association_Chain; + + procedure Set_Subprogram_Association_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subprogram_Association_Chain (Get_Kind (Target)), + "no field Subprogram_Association_Chain"); + Set_Field4 (Target, Chain); + end Set_Subprogram_Association_Chain; + + function Get_Aggregate_Info (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), + "no field Aggregate_Info"); + return Get_Field5 (Target); + end Get_Aggregate_Info; + + procedure Set_Aggregate_Info (Target : Iir; Info : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggregate_Info (Get_Kind (Target)), + "no field Aggregate_Info"); + Set_Field5 (Target, Info); + end Set_Aggregate_Info; + + function Get_Sub_Aggregate_Info (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Sub_Aggregate_Info (Get_Kind (Target)), + "no field Sub_Aggregate_Info"); + return Get_Field1 (Target); + end Get_Sub_Aggregate_Info; + + procedure Set_Sub_Aggregate_Info (Target : Iir; Info : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Sub_Aggregate_Info (Get_Kind (Target)), + "no field Sub_Aggregate_Info"); + Set_Field1 (Target, Info); + end Set_Sub_Aggregate_Info; + + function Get_Aggr_Dynamic_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Dynamic_Flag (Get_Kind (Target)), + "no field Aggr_Dynamic_Flag"); + return Get_Flag3 (Target); + end Get_Aggr_Dynamic_Flag; + + procedure Set_Aggr_Dynamic_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Dynamic_Flag (Get_Kind (Target)), + "no field Aggr_Dynamic_Flag"); + Set_Flag3 (Target, Val); + end Set_Aggr_Dynamic_Flag; + + function Get_Aggr_Min_Length (Info : Iir_Aggregate_Info) return Iir_Int32 + is + begin + pragma Assert (Info /= Null_Iir); + pragma Assert (Has_Aggr_Min_Length (Get_Kind (Info)), + "no field Aggr_Min_Length"); + return Iir_To_Iir_Int32 (Get_Field4 (Info)); + end Get_Aggr_Min_Length; + + procedure Set_Aggr_Min_Length (Info : Iir_Aggregate_Info; Nbr : Iir_Int32) + is + begin + pragma Assert (Info /= Null_Iir); + pragma Assert (Has_Aggr_Min_Length (Get_Kind (Info)), + "no field Aggr_Min_Length"); + Set_Field4 (Info, Iir_Int32_To_Iir (Nbr)); + end Set_Aggr_Min_Length; + + function Get_Aggr_Low_Limit (Target : Iir_Aggregate_Info) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Low_Limit (Get_Kind (Target)), + "no field Aggr_Low_Limit"); + return Get_Field2 (Target); + end Get_Aggr_Low_Limit; + + procedure Set_Aggr_Low_Limit (Target : Iir_Aggregate_Info; Limit : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Low_Limit (Get_Kind (Target)), + "no field Aggr_Low_Limit"); + Set_Field2 (Target, Limit); + end Set_Aggr_Low_Limit; + + function Get_Aggr_High_Limit (Target : Iir_Aggregate_Info) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_High_Limit (Get_Kind (Target)), + "no field Aggr_High_Limit"); + return Get_Field3 (Target); + end Get_Aggr_High_Limit; + + procedure Set_Aggr_High_Limit (Target : Iir_Aggregate_Info; Limit : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_High_Limit (Get_Kind (Target)), + "no field Aggr_High_Limit"); + Set_Field3 (Target, Limit); + end Set_Aggr_High_Limit; + + function Get_Aggr_Others_Flag (Target : Iir_Aggregate_Info) return Boolean + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Others_Flag (Get_Kind (Target)), + "no field Aggr_Others_Flag"); + return Get_Flag2 (Target); + end Get_Aggr_Others_Flag; + + procedure Set_Aggr_Others_Flag (Target : Iir_Aggregate_Info; Val : Boolean) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Others_Flag (Get_Kind (Target)), + "no field Aggr_Others_Flag"); + Set_Flag2 (Target, Val); + end Set_Aggr_Others_Flag; + + function Get_Aggr_Named_Flag (Target : Iir_Aggregate_Info) return Boolean + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Named_Flag (Get_Kind (Target)), + "no field Aggr_Named_Flag"); + return Get_Flag4 (Target); + end Get_Aggr_Named_Flag; + + procedure Set_Aggr_Named_Flag (Target : Iir_Aggregate_Info; Val : Boolean) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Aggr_Named_Flag (Get_Kind (Target)), + "no field Aggr_Named_Flag"); + Set_Flag4 (Target, Val); + end Set_Aggr_Named_Flag; + + function Get_Aggregate_Expand_Flag (Aggr : Iir) return Boolean is + begin + pragma Assert (Aggr /= Null_Iir); + pragma Assert (Has_Aggregate_Expand_Flag (Get_Kind (Aggr)), + "no field Aggregate_Expand_Flag"); + return Get_Flag1 (Aggr); + end Get_Aggregate_Expand_Flag; + + procedure Set_Aggregate_Expand_Flag (Aggr : Iir; Flag : Boolean) is + begin + pragma Assert (Aggr /= Null_Iir); + pragma Assert (Has_Aggregate_Expand_Flag (Get_Kind (Aggr)), + "no field Aggregate_Expand_Flag"); + Set_Flag1 (Aggr, Flag); + end Set_Aggregate_Expand_Flag; + + function Get_Association_Choices_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Association_Choices_Chain (Get_Kind (Target)), + "no field Association_Choices_Chain"); + return Get_Field4 (Target); + end Get_Association_Choices_Chain; + + procedure Set_Association_Choices_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Association_Choices_Chain (Get_Kind (Target)), + "no field Association_Choices_Chain"); + Set_Field4 (Target, Chain); + end Set_Association_Choices_Chain; + + function Get_Case_Statement_Alternative_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Case_Statement_Alternative_Chain (Get_Kind (Target)), + "no field Case_Statement_Alternative_Chain"); + return Get_Field1 (Target); + end Get_Case_Statement_Alternative_Chain; + + procedure Set_Case_Statement_Alternative_Chain (Target : Iir; Chain : Iir) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Case_Statement_Alternative_Chain (Get_Kind (Target)), + "no field Case_Statement_Alternative_Chain"); + Set_Field1 (Target, Chain); + end Set_Case_Statement_Alternative_Chain; + + function Get_Choice_Staticness (Target : Iir) return Iir_Staticness is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Choice_Staticness (Get_Kind (Target)), + "no field Choice_Staticness"); + return Iir_Staticness'Val (Get_State1 (Target)); + end Get_Choice_Staticness; + + procedure Set_Choice_Staticness (Target : Iir; Staticness : Iir_Staticness) + is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Choice_Staticness (Get_Kind (Target)), + "no field Choice_Staticness"); + Set_State1 (Target, Iir_Staticness'Pos (Staticness)); + end Set_Choice_Staticness; + + function Get_Procedure_Call (Stmt : Iir) return Iir is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Procedure_Call (Get_Kind (Stmt)), + "no field Procedure_Call"); + return Get_Field1 (Stmt); + end Get_Procedure_Call; + + procedure Set_Procedure_Call (Stmt : Iir; Call : Iir) is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Procedure_Call (Get_Kind (Stmt)), + "no field Procedure_Call"); + Set_Field1 (Stmt, Call); + end Set_Procedure_Call; + + function Get_Implementation (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Implementation (Get_Kind (Target)), + "no field Implementation"); + return Get_Field3 (Target); + end Get_Implementation; + + procedure Set_Implementation (Target : Iir; Decl : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Implementation (Get_Kind (Target)), + "no field Implementation"); + Set_Field3 (Target, Decl); + end Set_Implementation; + + function Get_Parameter_Association_Chain (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter_Association_Chain (Get_Kind (Target)), + "no field Parameter_Association_Chain"); + return Get_Field2 (Target); + end Get_Parameter_Association_Chain; + + procedure Set_Parameter_Association_Chain (Target : Iir; Chain : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Parameter_Association_Chain (Get_Kind (Target)), + "no field Parameter_Association_Chain"); + Set_Field2 (Target, Chain); + end Set_Parameter_Association_Chain; + + function Get_Method_Object (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Method_Object (Get_Kind (Target)), + "no field Method_Object"); + return Get_Field4 (Target); + end Get_Method_Object; + + procedure Set_Method_Object (Target : Iir; Object : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Method_Object (Get_Kind (Target)), + "no field Method_Object"); + Set_Field4 (Target, Object); + end Set_Method_Object; + + function Get_Subtype_Type_Mark (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Type_Mark (Get_Kind (Target)), + "no field Subtype_Type_Mark"); + return Get_Field2 (Target); + end Get_Subtype_Type_Mark; + + procedure Set_Subtype_Type_Mark (Target : Iir; Mark : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Subtype_Type_Mark (Get_Kind (Target)), + "no field Subtype_Type_Mark"); + Set_Field2 (Target, Mark); + end Set_Subtype_Type_Mark; + + function Get_Type_Conversion_Subtype (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Conversion_Subtype (Get_Kind (Target)), + "no field Type_Conversion_Subtype"); + return Get_Field3 (Target); + end Get_Type_Conversion_Subtype; + + procedure Set_Type_Conversion_Subtype (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Conversion_Subtype (Get_Kind (Target)), + "no field Type_Conversion_Subtype"); + Set_Field3 (Target, Atype); + end Set_Type_Conversion_Subtype; + + function Get_Type_Mark (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Mark (Get_Kind (Target)), + "no field Type_Mark"); + return Get_Field4 (Target); + end Get_Type_Mark; + + procedure Set_Type_Mark (Target : Iir; Mark : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Mark (Get_Kind (Target)), + "no field Type_Mark"); + Set_Field4 (Target, Mark); + end Set_Type_Mark; + + function Get_File_Type_Mark (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Type_Mark (Get_Kind (Target)), + "no field File_Type_Mark"); + return Get_Field2 (Target); + end Get_File_Type_Mark; + + procedure Set_File_Type_Mark (Target : Iir; Mark : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_File_Type_Mark (Get_Kind (Target)), + "no field File_Type_Mark"); + Set_Field2 (Target, Mark); + end Set_File_Type_Mark; + + function Get_Return_Type_Mark (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Return_Type_Mark (Get_Kind (Target)), + "no field Return_Type_Mark"); + return Get_Field8 (Target); + end Get_Return_Type_Mark; + + procedure Set_Return_Type_Mark (Target : Iir; Mark : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Return_Type_Mark (Get_Kind (Target)), + "no field Return_Type_Mark"); + Set_Field8 (Target, Mark); + end Set_Return_Type_Mark; + + function Get_Has_Disconnect_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Has_Disconnect_Flag (Get_Kind (Target)), + "no field Has_Disconnect_Flag"); + return Get_Flag1 (Target); + end Get_Has_Disconnect_Flag; + + procedure Set_Has_Disconnect_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Has_Disconnect_Flag (Get_Kind (Target)), + "no field Has_Disconnect_Flag"); + Set_Flag1 (Target, Val); + end Set_Has_Disconnect_Flag; + + function Get_Has_Active_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Has_Active_Flag (Get_Kind (Target)), + "no field Has_Active_Flag"); + return Get_Flag2 (Target); + end Get_Has_Active_Flag; + + procedure Set_Has_Active_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Has_Active_Flag (Get_Kind (Target)), + "no field Has_Active_Flag"); + Set_Flag2 (Target, Val); + end Set_Has_Active_Flag; + + function Get_Is_Within_Flag (Target : Iir) return Boolean is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Is_Within_Flag (Get_Kind (Target)), + "no field Is_Within_Flag"); + return Get_Flag5 (Target); + end Get_Is_Within_Flag; + + procedure Set_Is_Within_Flag (Target : Iir; Val : Boolean) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Is_Within_Flag (Get_Kind (Target)), + "no field Is_Within_Flag"); + Set_Flag5 (Target, Val); + end Set_Is_Within_Flag; + + function Get_Type_Marks_List (Target : Iir) return Iir_Flist is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Marks_List (Get_Kind (Target)), + "no field Type_Marks_List"); + return Iir_To_Iir_Flist (Get_Field2 (Target)); + end Get_Type_Marks_List; + + procedure Set_Type_Marks_List (Target : Iir; List : Iir_Flist) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Type_Marks_List (Get_Kind (Target)), + "no field Type_Marks_List"); + Set_Field2 (Target, Iir_Flist_To_Iir (List)); + end Set_Type_Marks_List; + + function Get_Implicit_Alias_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Implicit_Alias_Flag (Get_Kind (Decl)), + "no field Implicit_Alias_Flag"); + return Get_Flag1 (Decl); + end Get_Implicit_Alias_Flag; + + procedure Set_Implicit_Alias_Flag (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Implicit_Alias_Flag (Get_Kind (Decl)), + "no field Implicit_Alias_Flag"); + Set_Flag1 (Decl, Flag); + end Set_Implicit_Alias_Flag; + + function Get_Alias_Signature (Alias : Iir) return Iir is + begin + pragma Assert (Alias /= Null_Iir); + pragma Assert (Has_Alias_Signature (Get_Kind (Alias)), + "no field Alias_Signature"); + return Get_Field5 (Alias); + end Get_Alias_Signature; + + procedure Set_Alias_Signature (Alias : Iir; Signature : Iir) is + begin + pragma Assert (Alias /= Null_Iir); + pragma Assert (Has_Alias_Signature (Get_Kind (Alias)), + "no field Alias_Signature"); + Set_Field5 (Alias, Signature); + end Set_Alias_Signature; + + function Get_Attribute_Signature (Attr : Iir) return Iir is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Attribute_Signature (Get_Kind (Attr)), + "no field Attribute_Signature"); + return Get_Field2 (Attr); + end Get_Attribute_Signature; + + procedure Set_Attribute_Signature (Attr : Iir; Signature : Iir) is + begin + pragma Assert (Attr /= Null_Iir); + pragma Assert (Has_Attribute_Signature (Get_Kind (Attr)), + "no field Attribute_Signature"); + Set_Field2 (Attr, Signature); + end Set_Attribute_Signature; + + function Get_Overload_List (Target : Iir) return Iir_List is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Overload_List (Get_Kind (Target)), + "no field Overload_List"); + return Iir_To_Iir_List (Get_Field1 (Target)); + end Get_Overload_List; + + procedure Set_Overload_List (Target : Iir; List : Iir_List) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Overload_List (Get_Kind (Target)), + "no field Overload_List"); + Set_Field1 (Target, Iir_List_To_Iir (List)); + end Set_Overload_List; + + function Get_Simple_Name_Identifier (Target : Iir) return Name_Id is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Name_Identifier (Get_Kind (Target)), + "no field Simple_Name_Identifier"); + return Iir_To_Name_Id (Get_Field3 (Target)); + end Get_Simple_Name_Identifier; + + procedure Set_Simple_Name_Identifier (Target : Iir; Ident : Name_Id) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Name_Identifier (Get_Kind (Target)), + "no field Simple_Name_Identifier"); + Set_Field3 (Target, Name_Id_To_Iir (Ident)); + end Set_Simple_Name_Identifier; + + function Get_Simple_Name_Subtype (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Name_Subtype (Get_Kind (Target)), + "no field Simple_Name_Subtype"); + return Get_Field4 (Target); + end Get_Simple_Name_Subtype; + + procedure Set_Simple_Name_Subtype (Target : Iir; Atype : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Simple_Name_Subtype (Get_Kind (Target)), + "no field Simple_Name_Subtype"); + Set_Field4 (Target, Atype); + end Set_Simple_Name_Subtype; + + function Get_Protected_Type_Body (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Protected_Type_Body (Get_Kind (Target)), + "no field Protected_Type_Body"); + return Get_Field2 (Target); + end Get_Protected_Type_Body; + + procedure Set_Protected_Type_Body (Target : Iir; Bod : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Protected_Type_Body (Get_Kind (Target)), + "no field Protected_Type_Body"); + Set_Field2 (Target, Bod); + end Set_Protected_Type_Body; + + function Get_Protected_Type_Declaration (Target : Iir) return Iir is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Protected_Type_Declaration (Get_Kind (Target)), + "no field Protected_Type_Declaration"); + return Get_Field4 (Target); + end Get_Protected_Type_Declaration; + + procedure Set_Protected_Type_Declaration (Target : Iir; Decl : Iir) is + begin + pragma Assert (Target /= Null_Iir); + pragma Assert (Has_Protected_Type_Declaration (Get_Kind (Target)), + "no field Protected_Type_Declaration"); + Set_Field4 (Target, Decl); + end Set_Protected_Type_Declaration; + + function Get_Use_Flag (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Use_Flag (Get_Kind (Decl)), + "no field Use_Flag"); + return Get_Flag6 (Decl); + end Get_Use_Flag; + + procedure Set_Use_Flag (Decl : Iir; Val : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Use_Flag (Get_Kind (Decl)), + "no field Use_Flag"); + Set_Flag6 (Decl, Val); + end Set_Use_Flag; + + function Get_End_Has_Reserved_Id (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Reserved_Id (Get_Kind (Decl)), + "no field End_Has_Reserved_Id"); + return Get_Flag8 (Decl); + end Get_End_Has_Reserved_Id; + + procedure Set_End_Has_Reserved_Id (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Reserved_Id (Get_Kind (Decl)), + "no field End_Has_Reserved_Id"); + Set_Flag8 (Decl, Flag); + end Set_End_Has_Reserved_Id; + + function Get_End_Has_Identifier (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Identifier (Get_Kind (Decl)), + "no field End_Has_Identifier"); + return Get_Flag9 (Decl); + end Get_End_Has_Identifier; + + procedure Set_End_Has_Identifier (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Identifier (Get_Kind (Decl)), + "no field End_Has_Identifier"); + Set_Flag9 (Decl, Flag); + end Set_End_Has_Identifier; + + function Get_End_Has_Postponed (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Postponed (Get_Kind (Decl)), + "no field End_Has_Postponed"); + return Get_Flag10 (Decl); + end Get_End_Has_Postponed; + + procedure Set_End_Has_Postponed (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_End_Has_Postponed (Get_Kind (Decl)), + "no field End_Has_Postponed"); + Set_Flag10 (Decl, Flag); + end Set_End_Has_Postponed; + + function Get_Has_Label (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Label (Get_Kind (Decl)), + "no field Has_Label"); + return Get_Flag6 (Decl); + end Get_Has_Label; + + procedure Set_Has_Label (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Label (Get_Kind (Decl)), + "no field Has_Label"); + Set_Flag6 (Decl, Flag); + end Set_Has_Label; + + function Get_Has_Begin (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Begin (Get_Kind (Decl)), + "no field Has_Begin"); + return Get_Flag10 (Decl); + end Get_Has_Begin; + + procedure Set_Has_Begin (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Begin (Get_Kind (Decl)), + "no field Has_Begin"); + Set_Flag10 (Decl, Flag); + end Set_Has_Begin; + + function Get_Has_End (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_End (Get_Kind (Decl)), + "no field Has_End"); + return Get_Flag11 (Decl); + end Get_Has_End; + + procedure Set_Has_End (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_End (Get_Kind (Decl)), + "no field Has_End"); + Set_Flag11 (Decl, Flag); + end Set_Has_End; + + function Get_Has_Is (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Is (Get_Kind (Decl)), + "no field Has_Is"); + return Get_Flag7 (Decl); + end Get_Has_Is; + + procedure Set_Has_Is (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Is (Get_Kind (Decl)), + "no field Has_Is"); + Set_Flag7 (Decl, Flag); + end Set_Has_Is; + + function Get_Has_Pure (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Pure (Get_Kind (Decl)), + "no field Has_Pure"); + return Get_Flag8 (Decl); + end Get_Has_Pure; + + procedure Set_Has_Pure (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Pure (Get_Kind (Decl)), + "no field Has_Pure"); + Set_Flag8 (Decl, Flag); + end Set_Has_Pure; + + function Get_Has_Body (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Body (Get_Kind (Decl)), + "no field Has_Body"); + return Get_Flag9 (Decl); + end Get_Has_Body; + + procedure Set_Has_Body (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Body (Get_Kind (Decl)), + "no field Has_Body"); + Set_Flag9 (Decl, Flag); + end Set_Has_Body; + + function Get_Has_Parameter (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Parameter (Get_Kind (Decl)), + "no field Has_Parameter"); + return Get_Flag10 (Decl); + end Get_Has_Parameter; + + procedure Set_Has_Parameter (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Parameter (Get_Kind (Decl)), + "no field Has_Parameter"); + Set_Flag10 (Decl, Flag); + end Set_Has_Parameter; + + function Get_Has_Component (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Component (Get_Kind (Decl)), + "no field Has_Component"); + return Get_Flag5 (Decl); + end Get_Has_Component; + + procedure Set_Has_Component (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Component (Get_Kind (Decl)), + "no field Has_Component"); + Set_Flag5 (Decl, Flag); + end Set_Has_Component; + + function Get_Has_Identifier_List (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Identifier_List (Get_Kind (Decl)), + "no field Has_Identifier_List"); + return Get_Flag3 (Decl); + end Get_Has_Identifier_List; + + procedure Set_Has_Identifier_List (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Identifier_List (Get_Kind (Decl)), + "no field Has_Identifier_List"); + Set_Flag3 (Decl, Flag); + end Set_Has_Identifier_List; + + function Get_Has_Mode (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Mode (Get_Kind (Decl)), + "no field Has_Mode"); + return Get_Flag10 (Decl); + end Get_Has_Mode; + + procedure Set_Has_Mode (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Mode (Get_Kind (Decl)), + "no field Has_Mode"); + Set_Flag10 (Decl, Flag); + end Set_Has_Mode; + + function Get_Has_Class (Decl : Iir) return Boolean is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Class (Get_Kind (Decl)), + "no field Has_Class"); + return Get_Flag11 (Decl); + end Get_Has_Class; + + procedure Set_Has_Class (Decl : Iir; Flag : Boolean) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Has_Class (Get_Kind (Decl)), + "no field Has_Class"); + Set_Flag11 (Decl, Flag); + end Set_Has_Class; + + function Get_Suspend_Flag (Stmt : Iir) return Boolean is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Suspend_Flag (Get_Kind (Stmt)), + "no field Suspend_Flag"); + return Get_Flag11 (Stmt); + end Get_Suspend_Flag; + + procedure Set_Suspend_Flag (Stmt : Iir; Flag : Boolean) is + begin + pragma Assert (Stmt /= Null_Iir); + pragma Assert (Has_Suspend_Flag (Get_Kind (Stmt)), + "no field Suspend_Flag"); + Set_Flag11 (Stmt, Flag); + end Set_Suspend_Flag; + + function Get_Is_Ref (N : Iir) return Boolean is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Is_Ref (Get_Kind (N)), + "no field Is_Ref"); + return Get_Flag12 (N); + end Get_Is_Ref; + + procedure Set_Is_Ref (N : Iir; Ref : Boolean) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Is_Ref (Get_Kind (N)), + "no field Is_Ref"); + Set_Flag12 (N, Ref); + end Set_Is_Ref; + + function Get_Is_Forward_Ref (N : Iir) return Boolean is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Is_Forward_Ref (Get_Kind (N)), + "no field Is_Forward_Ref"); + return Get_Flag1 (N); + end Get_Is_Forward_Ref; + + procedure Set_Is_Forward_Ref (N : Iir; Ref : Boolean) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Is_Forward_Ref (Get_Kind (N)), + "no field Is_Forward_Ref"); + Set_Flag1 (N, Ref); + end Set_Is_Forward_Ref; + + function Get_Psl_Property (Decl : Iir) return PSL_Node is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Property (Get_Kind (Decl)), + "no field Psl_Property"); + return Iir_To_PSL_Node (Get_Field1 (Decl)); + end Get_Psl_Property; + + procedure Set_Psl_Property (Decl : Iir; Prop : PSL_Node) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Property (Get_Kind (Decl)), + "no field Psl_Property"); + Set_Field1 (Decl, PSL_Node_To_Iir (Prop)); + end Set_Psl_Property; + + function Get_Psl_Sequence (Decl : Iir) return PSL_Node is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Sequence (Get_Kind (Decl)), + "no field Psl_Sequence"); + return Iir_To_PSL_Node (Get_Field1 (Decl)); + end Get_Psl_Sequence; + + procedure Set_Psl_Sequence (Decl : Iir; Prop : PSL_Node) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Sequence (Get_Kind (Decl)), + "no field Psl_Sequence"); + Set_Field1 (Decl, PSL_Node_To_Iir (Prop)); + end Set_Psl_Sequence; + + function Get_Psl_Declaration (Decl : Iir) return PSL_Node is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Declaration (Get_Kind (Decl)), + "no field Psl_Declaration"); + return Iir_To_PSL_Node (Get_Field6 (Decl)); + end Get_Psl_Declaration; + + procedure Set_Psl_Declaration (Decl : Iir; Prop : PSL_Node) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Declaration (Get_Kind (Decl)), + "no field Psl_Declaration"); + Set_Field6 (Decl, PSL_Node_To_Iir (Prop)); + end Set_Psl_Declaration; + + function Get_Psl_Expression (Decl : Iir) return PSL_Node is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Expression (Get_Kind (Decl)), + "no field Psl_Expression"); + return Iir_To_PSL_Node (Get_Field3 (Decl)); + end Get_Psl_Expression; + + procedure Set_Psl_Expression (Decl : Iir; Prop : PSL_Node) is + begin + pragma Assert (Decl /= Null_Iir); + pragma Assert (Has_Psl_Expression (Get_Kind (Decl)), + "no field Psl_Expression"); + Set_Field3 (Decl, PSL_Node_To_Iir (Prop)); + end Set_Psl_Expression; + + function Get_Psl_Boolean (N : Iir) return PSL_Node is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Psl_Boolean (Get_Kind (N)), + "no field Psl_Boolean"); + return Iir_To_PSL_Node (Get_Field1 (N)); + end Get_Psl_Boolean; + + procedure Set_Psl_Boolean (N : Iir; Bool : PSL_Node) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_Psl_Boolean (Get_Kind (N)), + "no field Psl_Boolean"); + Set_Field1 (N, PSL_Node_To_Iir (Bool)); + end Set_Psl_Boolean; + + function Get_PSL_Clock (N : Iir) return PSL_Node is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Clock (Get_Kind (N)), + "no field PSL_Clock"); + return Iir_To_PSL_Node (Get_Field7 (N)); + end Get_PSL_Clock; + + procedure Set_PSL_Clock (N : Iir; Clock : PSL_Node) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Clock (Get_Kind (N)), + "no field PSL_Clock"); + Set_Field7 (N, PSL_Node_To_Iir (Clock)); + end Set_PSL_Clock; + + function Get_PSL_NFA (N : Iir) return PSL_NFA is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_NFA (Get_Kind (N)), + "no field PSL_NFA"); + return Iir_To_PSL_NFA (Get_Field8 (N)); + end Get_PSL_NFA; + + procedure Set_PSL_NFA (N : Iir; Fa : PSL_NFA) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_NFA (Get_Kind (N)), + "no field PSL_NFA"); + Set_Field8 (N, PSL_NFA_To_Iir (Fa)); + end Set_PSL_NFA; + + function Get_PSL_Nbr_States (N : Iir) return Int32 is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Nbr_States (Get_Kind (N)), + "no field PSL_Nbr_States"); + return Iir_To_Int32 (Get_Field9 (N)); + end Get_PSL_Nbr_States; + + procedure Set_PSL_Nbr_States (N : Iir; Nbr : Int32) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Nbr_States (Get_Kind (N)), + "no field PSL_Nbr_States"); + Set_Field9 (N, Int32_To_Iir (Nbr)); + end Set_PSL_Nbr_States; + + function Get_PSL_Clock_Sensitivity (N : Iir) return Iir_List is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Clock_Sensitivity (Get_Kind (N)), + "no field PSL_Clock_Sensitivity"); + return Iir_To_Iir_List (Get_Field10 (N)); + end Get_PSL_Clock_Sensitivity; + + procedure Set_PSL_Clock_Sensitivity (N : Iir; List : Iir_List) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_Clock_Sensitivity (Get_Kind (N)), + "no field PSL_Clock_Sensitivity"); + Set_Field10 (N, Iir_List_To_Iir (List)); + end Set_PSL_Clock_Sensitivity; + + function Get_PSL_EOS_Flag (N : Iir) return Boolean is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_EOS_Flag (Get_Kind (N)), + "no field PSL_EOS_Flag"); + return Get_Flag1 (N); + end Get_PSL_EOS_Flag; + + procedure Set_PSL_EOS_Flag (N : Iir; Flag : Boolean) is + begin + pragma Assert (N /= Null_Iir); + pragma Assert (Has_PSL_EOS_Flag (Get_Kind (N)), + "no field PSL_EOS_Flag"); + Set_Flag1 (N, Flag); + end Set_PSL_EOS_Flag; + +end Vhdl.Nodes; diff --git a/src/vhdl/vhdl-nodes.adb.in b/src/vhdl/vhdl-nodes.adb.in new file mode 100644 index 000000000..0dee1df81 --- /dev/null +++ b/src/vhdl/vhdl-nodes.adb.in @@ -0,0 +1,948 @@ +-- Tree node definitions. +-- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Conversion; +with Tables; +with Logging; use Logging; +with Lists; use Lists; +with Nodes_Meta; use Nodes_Meta; +with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv; + +package body Vhdl.Nodes is + -- A simple type that needs only 2 bits. + type Bit2_Type is range 0 .. 2 ** 2 - 1; + + type Kind_Type is range 0 .. 2 ** 9 - 1; + + -- Format of a node. + type Format_Type is + ( + Format_Short, + Format_Medium + ); + + -- Common fields are: + -- Flag1 : Boolean + -- Flag2 : Boolean + -- Flag3 : Boolean + -- Flag4 : Boolean + -- Flag5 : Boolean + -- Flag6 : Boolean + -- Flag7 : Boolean + -- Flag8 : Boolean + -- Flag9 : Boolean + -- Flag10 : Boolean + -- Flag11 : Boolean + -- Flag12 : Boolean + -- Flag13 : Boolean + -- Flag14 : Boolean + -- Flag15 : Boolean + -- Nkind : Kind_Type + -- State1 : Bit2_Type + -- State2 : Bit2_Type + -- Location : Location_Type + -- Field0 : Iir + -- Field1 : Iir + -- Field2 : Iir + -- Field3 : Iir + -- Field4 : Iir + -- Field5 : Iir + + -- Fields of Format_Short: + + -- Fields of Format_Medium: + -- State3 : Bit2_Type + -- State4 : Bit2_Type + -- Field6 : Iir (location) + -- Field7 : Iir (field0) + -- Field8 : Iir (field1) + -- Field9 : Iir (field2) + -- Field10 : Iir (field3) + -- Field11 : Iir (field4) + -- Field12 : Iir (field5) + + function Create_Node (Format : Format_Type) return Node_Type; + procedure Free_Node (N : Node_Type); + + function Get_Nkind (N : Node_Type) return Kind_Type; + pragma Inline (Get_Nkind); + procedure Set_Nkind (N : Node_Type; Kind : Kind_Type); + pragma Inline (Set_Nkind); + + function Get_Field0 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field0); + procedure Set_Field0 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field0); + + function Get_Field1 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field1); + procedure Set_Field1 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field1); + + function Get_Field2 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field2); + procedure Set_Field2 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field2); + + function Get_Field3 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field3); + procedure Set_Field3 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field3); + + function Get_Field4 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field4); + procedure Set_Field4 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field4); + + + function Get_Field5 (N : Node_Type) return Node_Type; + pragma Inline (Get_Field5); + procedure Set_Field5 (N : Node_Type; V : Node_Type); + pragma Inline (Set_Field5); + + function Get_Field6 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field6); + procedure Set_Field6 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field6); + + function Get_Field7 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field7); + procedure Set_Field7 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field7); + + function Get_Field8 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field8); + procedure Set_Field8 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field8); + + function Get_Field9 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field9); + procedure Set_Field9 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field9); + + function Get_Field10 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field10); + procedure Set_Field10 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field10); + + function Get_Field11 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field11); + procedure Set_Field11 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field11); + + function Get_Field12 (N: Node_Type) return Node_Type; + pragma Inline (Get_Field12); + procedure Set_Field12 (N: Node_Type; Val: Node_Type); + pragma Inline (Set_Field12); + + + function Get_Flag1 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag1); + procedure Set_Flag1 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag1); + + function Get_Flag2 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag2); + procedure Set_Flag2 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag2); + + function Get_Flag3 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag3); + procedure Set_Flag3 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag3); + + function Get_Flag4 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag4); + procedure Set_Flag4 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag4); + + function Get_Flag5 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag5); + procedure Set_Flag5 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag5); + + function Get_Flag6 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag6); + procedure Set_Flag6 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag6); + + function Get_Flag7 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag7); + procedure Set_Flag7 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag7); + + function Get_Flag8 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag8); + procedure Set_Flag8 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag8); + + function Get_Flag9 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag9); + procedure Set_Flag9 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag9); + + function Get_Flag10 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag10); + procedure Set_Flag10 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag10); + + function Get_Flag11 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag11); + procedure Set_Flag11 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag11); + + function Get_Flag12 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag12); + procedure Set_Flag12 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag12); + + function Get_Flag13 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag13); + procedure Set_Flag13 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag13); + + function Get_Flag14 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag14); + procedure Set_Flag14 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag14); + + function Get_Flag15 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag15); + procedure Set_Flag15 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag15); + + + function Get_State1 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State1); + procedure Set_State1 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State1); + + function Get_State2 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State2); + procedure Set_State2 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State2); + + function Get_State3 (N : Node_Type) return Bit2_Type; + pragma Inline (Get_State3); + procedure Set_State3 (N : Node_Type; V : Bit2_Type); + pragma Inline (Set_State3); + + type Node_Record is record + -- First byte: + Format : Format_Type; + Flag1 : Boolean; + Flag2 : Boolean; + Flag3 : Boolean; + Flag4 : Boolean; + Flag5 : Boolean; + Flag6 : Boolean; + Flag7 : Boolean; + + -- Second byte: + Flag8 : Boolean; + Flag9 : Boolean; + Flag10 : Boolean; + Flag11 : Boolean; + Flag12 : Boolean; + Flag13 : Boolean; + Flag14 : Boolean; + Flag15 : Boolean; + + -- Third byte: + Flag16 : Boolean; + Flag17 : Boolean; + Flag18 : Boolean; + + -- 2*2 = 4 bits + State1 : Bit2_Type; + State2 : Bit2_Type; + + -- 9 bits + Kind : Kind_Type; + + -- Location. + Location: Location_Type; + + Field0 : Node_Type; + Field1 : Node_Type; + Field2 : Node_Type; + Field3 : Node_Type; + Field4 : Node_Type; + Field5 : Node_Type; + end record; + pragma Pack (Node_Record); + for Node_Record'Size use 8*32; + for Node_Record'Alignment use 4; + pragma Suppress_Initialization (Node_Record); + + Init_Node : constant Node_Record := Node_Record' + (Format => Format_Short, + Kind => 0, + State1 | State2 => 0, + Location => Location_Nil, + Field0 | Field1 | Field2 | Field3 | Field4 | Field5 => Null_Node, + others => False); + + -- Suppress the access check of the table base. This is really safe to + -- suppress this check because the table base cannot be null. + pragma Suppress (Access_Check); + + -- Suppress the index check on the table. + -- Could be done during non-debug, since this may catch errors (reading + -- Null_Node or Error_Node). + --pragma Suppress (Index_Check); + + package Nodet is new Tables + (Table_Component_Type => Node_Record, + Table_Index_Type => Node_Type, + Table_Low_Bound => 2, + Table_Initial => 1024); + + function Get_Last_Node return Iir is + begin + return Nodet.Last; + end Get_Last_Node; + + Free_Chain : Node_Type := Null_Node; + + function Create_Node (Format : Format_Type) return Node_Type + is + Res : Node_Type; + begin + case Format is + when Format_Medium => + -- Allocate a first node. + Nodet.Increment_Last; + Res := Nodet.Last; + -- Check alignment. + if Res mod 2 = 1 then + Set_Field1 (Res, Free_Chain); + Free_Chain := Res; + Nodet.Increment_Last; + Res := Nodet.Last; + end if; + -- Allocate the second node. + Nodet.Increment_Last; + Nodet.Table (Res) := Init_Node; + Nodet.Table (Res).Format := Format_Medium; + Nodet.Table (Res + 1) := Init_Node; + when Format_Short => + -- Check from free pool + if Free_Chain = Null_Node then + Nodet.Increment_Last; + Res := Nodet.Last; + else + Res := Free_Chain; + Free_Chain := Get_Field1 (Res); + end if; + Nodet.Table (Res) := Init_Node; + end case; + return Res; + end Create_Node; + + procedure Free_Node (N : Node_Type) + is + begin + if N /= Null_Node then + Set_Nkind (N, 0); + Set_Field1 (N, Free_Chain); + Free_Chain := N; + if Nodet.Table (N).Format = Format_Medium then + Set_Field1 (N + 1, Free_Chain); + Free_Chain := N + 1; + end if; + end if; + end Free_Node; + + procedure Free_Iir (Target : Iir) renames Free_Node; + + function Next_Node (N : Node_Type) return Node_Type is + begin + case Nodet.Table (N).Format is + when Format_Medium => + return N + 2; + when Format_Short => + return N + 1; + end case; + end Next_Node; + + function Get_Nkind (N : Node_Type) return Kind_Type is + begin + return Nodet.Table (N).Kind; + end Get_Nkind; + + procedure Set_Nkind (N : Node_Type; Kind : Kind_Type) is + begin + Nodet.Table (N).Kind := Kind; + end Set_Nkind; + + + procedure Set_Location (N : Iir; Location: Location_Type) is + begin + Nodet.Table (N).Location := Location; + end Set_Location; + + function Get_Location (N: Iir) return Location_Type is + begin + return Nodet.Table (N).Location; + end Get_Location; + + + procedure Set_Field0 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field0 := V; + end Set_Field0; + + function Get_Field0 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field0; + end Get_Field0; + + + function Get_Field1 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field1; + end Get_Field1; + + procedure Set_Field1 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field1 := V; + end Set_Field1; + + function Get_Field2 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field2; + end Get_Field2; + + procedure Set_Field2 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field2 := V; + end Set_Field2; + + function Get_Field3 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field3; + end Get_Field3; + + procedure Set_Field3 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field3 := V; + end Set_Field3; + + function Get_Field4 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field4; + end Get_Field4; + + procedure Set_Field4 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field4 := V; + end Set_Field4; + + function Get_Field5 (N : Node_Type) return Node_Type is + begin + return Nodet.Table (N).Field5; + end Get_Field5; + + procedure Set_Field5 (N : Node_Type; V : Node_Type) is + begin + Nodet.Table (N).Field5 := V; + end Set_Field5; + + function Get_Field6 (N: Node_Type) return Node_Type is + begin + return Node_Type (Nodet.Table (N + 1).Location); + end Get_Field6; + + procedure Set_Field6 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Location := Location_Type (Val); + end Set_Field6; + + function Get_Field7 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field0; + end Get_Field7; + + procedure Set_Field7 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field0 := Val; + end Set_Field7; + + function Get_Field8 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field1; + end Get_Field8; + + procedure Set_Field8 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field1 := Val; + end Set_Field8; + + function Get_Field9 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field2; + end Get_Field9; + + procedure Set_Field9 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field2 := Val; + end Set_Field9; + + function Get_Field10 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field3; + end Get_Field10; + + procedure Set_Field10 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field3 := Val; + end Set_Field10; + + function Get_Field11 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field4; + end Get_Field11; + + procedure Set_Field11 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field4 := Val; + end Set_Field11; + + function Get_Field12 (N: Node_Type) return Node_Type is + begin + return Nodet.Table (N + 1).Field5; + end Get_Field12; + + procedure Set_Field12 (N: Node_Type; Val: Node_Type) is + begin + Nodet.Table (N + 1).Field5 := Val; + end Set_Field12; + + + function Get_Flag1 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag1; + end Get_Flag1; + + procedure Set_Flag1 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag1 := V; + end Set_Flag1; + + function Get_Flag2 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag2; + end Get_Flag2; + + procedure Set_Flag2 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag2 := V; + end Set_Flag2; + + function Get_Flag3 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag3; + end Get_Flag3; + + procedure Set_Flag3 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag3 := V; + end Set_Flag3; + + function Get_Flag4 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag4; + end Get_Flag4; + + procedure Set_Flag4 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag4 := V; + end Set_Flag4; + + function Get_Flag5 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag5; + end Get_Flag5; + + procedure Set_Flag5 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag5 := V; + end Set_Flag5; + + function Get_Flag6 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag6; + end Get_Flag6; + + procedure Set_Flag6 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag6 := V; + end Set_Flag6; + + function Get_Flag7 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag7; + end Get_Flag7; + + procedure Set_Flag7 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag7 := V; + end Set_Flag7; + + function Get_Flag8 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag8; + end Get_Flag8; + + procedure Set_Flag8 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag8 := V; + end Set_Flag8; + + function Get_Flag9 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag9; + end Get_Flag9; + + procedure Set_Flag9 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag9 := V; + end Set_Flag9; + + function Get_Flag10 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag10; + end Get_Flag10; + + procedure Set_Flag10 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag10 := V; + end Set_Flag10; + + function Get_Flag11 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag11; + end Get_Flag11; + + procedure Set_Flag11 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag11 := V; + end Set_Flag11; + + function Get_Flag12 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag12; + end Get_Flag12; + + procedure Set_Flag12 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag12 := V; + end Set_Flag12; + + function Get_Flag13 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag13; + end Get_Flag13; + + procedure Set_Flag13 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag13 := V; + end Set_Flag13; + + function Get_Flag14 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag14; + end Get_Flag14; + + procedure Set_Flag14 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag14 := V; + end Set_Flag14; + + function Get_Flag15 (N : Node_Type) return Boolean is + begin + return Nodet.Table (N).Flag15; + end Get_Flag15; + + procedure Set_Flag15 (N : Node_Type; V : Boolean) is + begin + Nodet.Table (N).Flag15 := V; + end Set_Flag15; + + + function Get_State1 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N).State1; + end Get_State1; + + procedure Set_State1 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N).State1 := V; + end Set_State1; + + function Get_State2 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N).State2; + end Get_State2; + + procedure Set_State2 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N).State2 := V; + end Set_State2; + + function Get_State3 (N : Node_Type) return Bit2_Type is + begin + return Nodet.Table (N + 1).State1; + end Get_State3; + + procedure Set_State3 (N : Node_Type; V : Bit2_Type) is + begin + Nodet.Table (N + 1).State1 := V; + end Set_State3; + + procedure Initialize is + begin + Nodet.Free; + Nodet.Init; + end Initialize; + + function Is_Null (Node : Iir) return Boolean is + begin + return Node = Null_Iir; + end Is_Null; + + function Is_Null_List (Node : Iir_List) return Boolean is + begin + return Node = Null_Iir_List; + end Is_Null_List; + + function Is_Valid (Node : Iir) return Boolean is + begin + return Node /= Null_Iir; + end Is_Valid; + + --------------------------------------------------- + -- General subprograms that operate on every iir -- + --------------------------------------------------- + + function Get_Format (Kind : Iir_Kind) return Format_Type; + + function Create_Iir (Kind : Iir_Kind) return Iir + is + Res : Iir; + Format : Format_Type; + begin + Format := Get_Format (Kind); + Res := Create_Node (Format); + Set_Nkind (Res, Iir_Kind'Pos (Kind)); + return Res; + end Create_Iir; + + -- Statistics. + procedure Disp_Stats + is + type Num_Array is array (Iir_Kind) of Natural; + Num : Num_Array := (others => 0); + type Format_Array is array (Format_Type) of Natural; + Formats : Format_Array := (others => 0); + Kind : Iir_Kind; + I : Iir; + Last_I : Iir; + Format : Format_Type; + begin + I := Error_Node + 1; + Last_I := Get_Last_Node; + while I < Last_I loop + Kind := Get_Kind (I); + Num (Kind) := Num (Kind) + 1; + Format := Get_Format (Kind); + Formats (Format) := Formats (Format) + 1; + I := Next_Node (I); + end loop; + + Log_Line ("Stats per iir_kind:"); + for J in Iir_Kind loop + if Num (J) /= 0 then + Log_Line (' ' & Iir_Kind'Image (J) & ':' + & Natural'Image (Num (J))); + end if; + end loop; + Log_Line ("Stats per formats:"); + for J in Format_Type loop + Log_Line (' ' & Format_Type'Image (J) & ':' + & Natural'Image (Formats (J))); + end loop; + end Disp_Stats; + + function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean is + begin + return K = K1 or K = K2; + end Kind_In; + + function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) + return Boolean is + begin + case Func is + when Iir_Predefined_Bit_And + | Iir_Predefined_Bit_Or + | Iir_Predefined_Bit_Nand + | Iir_Predefined_Bit_Nor + | Iir_Predefined_Boolean_And + | Iir_Predefined_Boolean_Or + | Iir_Predefined_Boolean_Nand + | Iir_Predefined_Boolean_Nor => + return True; + when others => + return False; + end case; + end Iir_Predefined_Shortcut_P; + + function Create_Iir_Error return Iir + is + Res : Iir; + begin + Res := Create_Node (Format_Short); + Set_Nkind (Res, Iir_Kind'Pos (Iir_Kind_Error)); + Set_Base_Type (Res, Res); + return Res; + end Create_Iir_Error; + + procedure Location_Copy (Target : Iir; Src : Iir) is + begin + Set_Location (Target, Get_Location (Src)); + end Location_Copy; + + -- Get kind + function Get_Kind (N : Iir) return Iir_Kind + is + -- Speed up: avoid to check that nkind is in the bounds of Iir_Kind. + pragma Suppress (Range_Check); + begin + pragma Assert (N /= Null_Iir); + return Iir_Kind'Val (Get_Nkind (N)); + end Get_Kind; + + function Time_Stamp_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => Time_Stamp_Id, Target => Iir); + + function Iir_To_Time_Stamp_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => Time_Stamp_Id); + + function File_Checksum_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => File_Checksum_Id, Target => Iir); + + function Iir_To_File_Checksum_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => File_Checksum_Id); + + function Iir_To_Iir_List is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_List); + function Iir_List_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_List, Target => Iir); + + function Iir_To_Iir_Flist is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_Flist); + function Iir_Flist_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_Flist, Target => Iir); + + function Iir_To_Token_Type (N : Iir) return Token_Type is + begin + return Token_Type'Val (N); + end Iir_To_Token_Type; + + function Token_Type_To_Iir (T : Token_Type) return Iir is + begin + return Token_Type'Pos (T); + end Token_Type_To_Iir; + +-- function Iir_To_Iir_Index32 (N : Iir) return Iir_Index32 is +-- begin +-- return Iir_Index32 (N); +-- end Iir_To_Iir_Index32; + +-- function Iir_Index32_To_Iir (V : Iir_Index32) return Iir is +-- begin +-- return Iir_Index32'Pos (V); +-- end Iir_Index32_To_Iir; + + function Iir_To_Name_Id (N : Iir) return Name_Id is + begin + return Iir'Pos (N); + end Iir_To_Name_Id; + pragma Inline (Iir_To_Name_Id); + + function Name_Id_To_Iir (V : Name_Id) return Iir is + begin + return Name_Id'Pos (V); + end Name_Id_To_Iir; + + function Iir_To_Iir_Int32 is new Ada.Unchecked_Conversion + (Source => Iir, Target => Iir_Int32); + + function Iir_Int32_To_Iir is new Ada.Unchecked_Conversion + (Source => Iir_Int32, Target => Iir); + + function Iir_To_Source_Ptr (N : Iir) return Source_Ptr is + begin + return Source_Ptr (N); + end Iir_To_Source_Ptr; + + function Source_Ptr_To_Iir (P : Source_Ptr) return Iir is + begin + return Iir (P); + end Source_Ptr_To_Iir; + + function Iir_To_Source_File_Entry is new Ada.Unchecked_Conversion + (Source => Iir, Target => Source_File_Entry); + function Source_File_Entry_To_Iir is new Ada.Unchecked_Conversion + (Source => Source_File_Entry, Target => Iir); + + function Boolean_To_Iir_Delay_Mechanism is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Delay_Mechanism); + function Iir_Delay_Mechanism_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Delay_Mechanism, Target => Boolean); + + function Boolean_To_Iir_Signal_Kind is new Ada.Unchecked_Conversion + (Source => Boolean, Target => Iir_Signal_Kind); + function Iir_Signal_Kind_To_Boolean is new Ada.Unchecked_Conversion + (Source => Iir_Signal_Kind, Target => Boolean); + + function Iir_To_String8_Id is new Ada.Unchecked_Conversion + (Source => Iir, Target => String8_Id); + function String8_Id_To_Iir is new Ada.Unchecked_Conversion + (Source => String8_Id, Target => Iir); + + function Iir_To_Int32 is new Ada.Unchecked_Conversion + (Source => Iir, Target => Int32); + function Int32_To_Iir is new Ada.Unchecked_Conversion + (Source => Int32, Target => Iir); + + function Iir_To_PSL_Node is new Ada.Unchecked_Conversion + (Source => Iir, Target => PSL_Node); + + function PSL_Node_To_Iir is new Ada.Unchecked_Conversion + (Source => PSL_Node, Target => Iir); + + function Iir_To_PSL_NFA is new Ada.Unchecked_Conversion + (Source => Iir, Target => PSL_NFA); + + function PSL_NFA_To_Iir is new Ada.Unchecked_Conversion + (Source => PSL_NFA, Target => Iir); + + -- Subprograms +end Vhdl.Nodes; diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads new file mode 100644 index 000000000..7ffa117d6 --- /dev/null +++ b/src/vhdl/vhdl-nodes.ads @@ -0,0 +1,7549 @@ +-- Tree node definitions. +-- Copyright (C) 2002, 2003, 2004, 2005 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 Ada.Unchecked_Deallocation; +with Types; use Types; +with Vhdl.Tokens; use Vhdl.Tokens; +with Vhdl.Nodes_Priv; +with Lists; +with Flists; + +package Vhdl.Nodes is + -- This package defines the semantic tree and functions to handle it. + -- The tree is roughly based on IIR (Internal Intermediate Representation), + -- [AIRE/CE Advanced Intermediate Representation with Extensibility, + -- Common Environment. http://www.vhdl.org/aire/index.html [DEAD LINK] ] + -- but oriented object features are not used, and often, functions + -- or fields have changed. + + -- Note: this tree is also used during syntaxic analysis, but with + -- a little bit different meanings for the fields. + -- The parser (parse package) build the tree. + -- The semantic pass (sem, sem_expr, sem_names, ...) transforms it into a + -- semantic tree. + + -- Documentation: + -- Only the semantic aspect is to be fully documented. + -- The syntaxic aspect is only used between parse and sem. + + -- Each node of the tree is a record of type iir, based on the private (so + -- hidden) type nodes.node_type. + -- + -- Each node in the tree should be referenced only once (as this is a + -- tree). There are some exceptions to this rule for space optimization + -- purpose: + -- - the interface list of implicit subprograms are shared among the + -- implicit subprograms. + -- + -- As the tree represents an AST it is in fact a graph: for there are links + -- from names to the declaration. However these links are marked + -- explicitely as Ref. A Ref doesn't own the node. + -- + -- The distinction between owner and reference is very important as it + -- allows to use this meta-model for processing: displaying the tree + -- (without creating infinite loops), copying the tree for instantiation... + -- + -- There is a little bit of overhead due to this choice: + -- - some fields looks duplicated: for example an object declaration has + -- both a type field and a subtype indication field, array subtypes + -- have both an index_subtype_list and an index_constraint_list. + -- - Maybe_Ref trick: the Is_Ref flag tells whether the Maybe_Ref are + -- owner or ref. + -- - Maybe_Forward_Ref: the Is_Forward_Ref tells whether the field is + -- ref or forward_ref + + -- The root of a semantic tree is a library_declaration. + -- All the library_declarations are kept in a private list, held by + -- package libraries. + -- Exemple of a tree: + -- library_declaration + -- +-- design_file + -- +-- design_unit + -- | +-- entity_declaration + -- +-- design_unit + -- +-- architecture_body + -- ... + + -- Since the tree can represent all the libraries and their contents, it + -- is not always loaded into memory. + -- When a library is loaded, only library_declaration, design_file, + -- design_unit and library_unit nodes are created. When a design_unit is + -- really loaded, the design_unit node is not replaced but modified (ie, + -- access to this node are still valid). + + -- To add a new kind of node: + -- the name should be of the form iir_kind_NAME + -- add iir_kind_NAME in the definition of type iir_kind_type + -- document the node below: grammar, methods. + -- for each methods, add the name if the case statement in the body + -- (this enables the methods) + -- add an entry in disp_tree (debugging) + -- handle this node in Errorout.Disp_Node + + -- Meta-grammar + -- This file is processed by a tool to automatically generate the body, so + -- it must follow a meta-grammar. + -- + -- The low level representation is described in nodes.ads. + -- + -- The literals for the nodes must be declared in this file like this: + -- type Iir_Kind is + -- ( + -- Iir_Kind_AAA, + -- ... + -- Iir_Kind_ZZZ + -- ); + -- The tool doesn't check for uniqness as this is done by the compiler. + -- + -- It is possible to declare ranges of kinds like this: + -- subtype Iir_Kinds_RANGE is Iir_Kind range + -- Iir_Kind_FIRST .. + -- --Iir_Kind_MID + -- Iir_Kind_LAST; + -- Literals Iir_Kind_MID are optionnal (FIXME: make them required ?), but + -- if present all the values between FIRST and LAST must be present. + -- + -- The methods appear after the comment: ' -- General methods.' + -- They have the following format: + -- -- Field: FIELD ATTR (CONV) + -- function Get_NAME (PNAME : PTYPE) return RTYPE; + -- procedure Set_NAME (PNAME : PTYPE; RNAME : RTYPE); + -- 'FIELD' indicate which field of the node is used to store the value. + -- ATTR is optional and if present must be one of: + -- Ref: the field is a reference to an existing node + -- Chain: the field contains a chain of nodes + -- Chain_Next: the field contains the next element of a chain (present + -- only on one field: Set/Get_Chain). + -- ' (CONV)' is present if the type of the value (indicated by RTYPE) is + -- different from the type of the field. CONV can be either 'uc' or 'pos'. + -- 'uc' indicates an unchecked conversion while 'pos' a pos/val conversion. + -- + -- Nodes content is described between ' -- Start of Iir_Kind.' and + -- ' -- End of Iir_Kind.' like this: + -- -- Iir_Kind_NODE1 (FORMAT1) + -- -- Iir_Kind_NODE2 (FORMAT2) + -- -- + -- -- Get/Set_NAME1 (FIELD1) + -- -- + -- -- Get/Set_NAME2 (FIELD2) + -- -- Get/Set_NAME3 (Alias FIELD2) + -- -- + -- -- Only for Iir_Kind_NODE1: + -- -- Get/Set_NAME4 (FIELD3) + -- Severals nodes can be described at once; at least one must be described. + -- Fields FIELD1, FIELD2, FIELD3 must be different, unless 'Alias ' is + -- present. The number of spaces is significant. The 'Only for ' lines + -- are optionnal and there may be severals of them. + + ------------------------------------------------- + -- General methods (can be used on all nodes): -- + ------------------------------------------------- + + -- Create a node of kind KIND. + -- function Create_Iir (Kind: Iir_Kind) return Iir; + -- + -- Deallocate a node. Deallocate fields that where allocated by + -- create_iir. + -- procedure Free_Iir (Target: in out Iir); + -- + -- Get the kind of the iir. + -- See below for the (public) list of kinds. + -- function Get_Kind (N : Iir) return Iir_Kind; + + -- Get the location of the node: ie the current position in the source + -- file when the node was created. This is a little bit fuzzy. + -- + -- procedure Set_Location (Target : Iir; Location: Location_Type); + -- function Get_Location (Target : Iir) return Location_Type; + -- + -- Copy a location from a node to another one. + -- procedure Location_Copy (Target: in out Iir; Src: in Iir); + + -- The next line marks the start of the node description. + -- Start of Iir_Kind. + + -------------------------------------------------- + -- A set of methods are associed with a kind. -- + -------------------------------------------------- + + -- Iir_Kind_Design_File (Medium) + -- LRM93 11 + -- design_file ::= design_unit { design_unit } + -- + -- The library containing this design file. + -- Get/Set_Library (Field0) + -- Get/Set_Parent (Alias Field0) + -- + -- Get/Set_File_Dependence_List (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Time when the whole file has been analyzed. This allows ordering + -- analysis and detecting obsolete units across libraries. + -- Get/Set_Analysis_Time_Stamp (Field3) + -- + -- Get/Set_File_Checksum (Field4) + -- + -- Get the chain of unit contained in the file. This is a simply linked + -- chain, but the tail is kept to speed-up appending operation. + -- Get/Set_First_Design_Unit (Field5) + -- + -- Get/Set_Last_Design_Unit (Field6) + -- + -- Get/Set_Design_File_Source (Field7) + -- + -- Identifier for the design file file name and dirname. + -- Get/Set_Design_File_Filename (Field12) + -- Get/Set_Design_File_Directory (Field11) + -- + -- Flag used during elaboration. Set when the file was already seen. + -- Get/Set_Elab_Flag (Flag3) + + -- Iir_Kind_Design_Unit (Medium) + -- LRM93 11 + -- design_unit ::= context_clause library_unit + -- + -- The design_file containing this design unit. + -- Get/Set_Design_File (Field0) + -- Get/Set_Parent (Alias Field0) + -- + -- Get the chain of context clause. + -- Get/Set_Context_Items (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- This is a symbolic date, only used as a order of analysis of design + -- units. + -- Get/Set_Date (Field4) + -- + -- Get/Set the library unit, which can be an entity, an architecture, + -- a package, a package body or a configuration. + -- Get/Set_Library_Unit (Field5) + -- + -- Collision chain for units. + -- Get/Set_Hash_Chain (Field7) + -- + -- Get the list of design units that must be analysed before this unit. + -- See LRM93 11.4 for the rules defining the order of analysis. + -- Get/Set_Dependence_List (Field8) + -- + -- FIXME: this field can be put in the library_unit, since it is only used + -- when the units have been analyzed. + -- Get/Set_Analysis_Checks_List (Field9) + -- + -- Set the line and the offset in the line, only for the library manager. + -- This is valid until the file is really loaded in memory. On loading, + -- location will contain all this informations. + -- Get/Set_Design_Unit_Source_Pos (Field10) + -- + -- Get/Set_Design_Unit_Source_Line (Field11) + -- + -- Get/Set_Design_Unit_Source_Col (Field12) + -- + -- Get/Set the date state, which indicates whether this design unit is in + -- memory or not. + -- Get/Set_Date_State (State1) + -- + -- Flag used during elaboration. Set when the file was already seen. + -- Get/Set_Elab_Flag (Flag3) + -- + -- Flags used during configuration + -- Get/Set_Configuration_Mark_Flag (Flag4) + -- Get/Set_Configuration_Done_Flag (Flag5) + + -- Iir_Kind_Library_Clause (Short) + -- + -- LRM08 13.2 Design libraries + -- + -- library_clause ::= LIBRARY logical_name_list ; + -- + -- logical_name_list ::= logical_name { , logical_name } + -- + -- logical_name ::= identifier + -- + -- Note: a library_clause node is created for every logical_name. + -- As a consequence, the scope of the library starts after the logical_name + -- and not after the library_clause. However, since an identifier + -- can only be used as a logical_name, and since the second occurence has + -- no effect, this is correct. + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Library_Declaration (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Has_Identifier_List (Flag3) + + --------------- + -- Literals -- + --------------- + + -- Iir_Kind_String_Literal8 (Short) + -- + -- Used for computed literals. Literal_Origin contains the expression + -- whose value was computed during analysis and replaces the expression. + -- Get/Set_Literal_Origin (Field2) + -- + -- Same as Type, but marked as property of that node. + -- Get/Set_Literal_Subtype (Field3) + -- + -- Get/Set_Type (Field1) + -- + -- Number of literals in the expanded string. + -- Get/Set_String_Length (Field4) + -- + -- Before analysis, this is the ASCII code of each character in the string. + -- After analysis, this is the position of each literal. + -- Get/Set_String8_Id (Field5) + -- + -- Base of the bit_string (corresponds to letters 'b', 'o', 'd' or 'x' in + -- the base specifier). + -- Get/Set_Bit_String_Base (Flag12,Flag13,Flag14) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- True if the bit string is signed, (ie letter 's' is present in the base + -- specifier). + -- Get/Set_Has_Signed (Flag1) + -- + -- True if the letter 'u' is present in the base specifier. + -- Get/Set_Has_Sign (Flag2) + -- + -- True if the integer specifying the length is present. + -- Get/Set_Has_Length (Flag3) + + -- Iir_Kind_Integer_Literal (Short) + -- + -- Get/Set the value of the integer. + -- Get/Set_Value (Field4,Field5) + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Floating_Point_Literal (Short) + -- + -- The value of the literal. + -- Get/Set_Fp_Value (Field4,Field5) + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Null_Literal (Short) + -- The null literal, which can be a disconnection or a null access. + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Physical_Int_Literal (Short) + -- Iir_Kind_Physical_Fp_Literal (Short) + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- The physical unit of the literal. + -- Get/Set_Physical_Unit (Field3) + -- + -- The name of the physical unit (if any). + -- Get/Set_Unit_Name (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Must be set to locally except for time literal, which is globally. + -- Get/Set_Expr_Staticness (State1) + -- + -- Only for Iir_Kind_Physical_Int_Literal: + -- The multiplicand. + -- Get/Set_Value (Field4,Field5) + -- + -- Only for Iir_Kind_Physical_Fp_Literal: + -- The multiplicand. + -- Get/Set_Fp_Value (Field4,Field5) + + -- Iir_Kind_Simple_Aggregate (Short) + -- This node can only be generated by evaluation: it is an unidimentional + -- positional aggregate. + -- + -- Same as Type, but marked as property of that node. + -- Get/Set_Literal_Subtype (Field3) + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- List of elements + -- Get/Set_Simple_Aggregate_List (Field4) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Overflow_Literal (Short) + -- This node can only be generated by evaluation to represent an error: out + -- of range, division by zero... + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Unaffected_Waveform (Short) + -- The 'unaffected' reserved word when it appears in the sources. + -- + -- Unaffected replaces a waveform element, so it is considered to be part + -- of a chain. But it is always alone in the chain. + -- Get/Set_Chain (Field2) + + ------------- + -- Tuples -- + ------------- + + -- Iir_Kind_Association_Element_By_Expression (Short) + -- Iir_Kind_Association_Element_Open (Short) + -- Iir_Kind_Association_Element_By_Individual (Short) + -- Iir_Kind_Association_Element_Package (Short) + -- Iir_Kind_Association_Element_Type (Short) + -- Iir_Kind_Association_Element_Subprogram (Short) + -- These are used for association element of an association list with + -- an interface (ie subprogram call, port map, generic map). + -- + -- Get/Set_Formal (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Only for Iir_Kind_Association_Element_By_Expression: + -- Only for Iir_Kind_Association_Element_Package: + -- Only for Iir_Kind_Association_Element_Type: + -- Only for Iir_Kind_Association_Element_Subprogram: + -- Get/Set_Actual (Field3) + -- + -- Only for Iir_Kind_Association_Element_By_Individual: + -- Get/Set_Individual_Association_Chain (Field4) + -- + -- A function call or a type conversion for the actual. + -- FIXME: should be a name ? + -- Only for Iir_Kind_Association_Element_By_Expression: + -- Get/Set_Actual_Conversion (Field4) + -- + -- Only for Iir_Kind_Association_Element_Type: + -- Get/Set_Subprogram_Association_Chain (Field4) + -- + -- A function call or a type conversion for the formal. + -- Only for Iir_Kind_Association_Element_By_Expression: + -- Get/Set_Formal_Conversion (Field5) + -- + -- Owner of Actual_Type if needed. + -- Only for Iir_Kind_Association_Element_By_Individual: + -- Get/Set_Actual_Type_Definition (Field3) + -- + -- Only for Iir_Kind_Association_Element_By_Individual: + -- Only for Iir_Kind_Association_Element_Type: + -- Get/Set_Actual_Type (Field5) + -- + -- Get/Set the whole association flag (true if the formal is associated in + -- whole and not individually, see LRM93 4.3.2.2) + -- Get/Set_Whole_Association_Flag (Flag1) + -- + -- Get/Set_Collapse_Signal_Flag (Flag2) + -- + -- Only for Iir_Kind_Association_Element_Open: + -- Get/Set_Artificial_Flag (Flag3) + -- + -- Get/Set_In_Formal_Flag (Flag4) + -- + -- Only for Iir_Kind_Association_Element_By_Individual: + -- Must be Locally unless there is an error on one choice. + -- Get/Set_Choice_Staticness (State1) + + -- Iir_Kind_Waveform_Element (Short) + -- + -- Get/Set_We_Value (Field1) + -- + -- Get/Set_Time (Field3) + -- + -- Get/Set_Chain (Field2) + + -- Iir_Kind_Conditional_Waveform (Short) + -- + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Waveform_Chain (Field5) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Conditional_Expression (Short) + -- LRM08 10.5.3 + -- conditional_expressions ::= + -- expression WHEN condition + -- { ELSE expression WHEN condition } + -- [ ELSE expression ] + -- + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Choice_By_Others (Short) + -- Iir_Kind_Choice_By_None (Short) + -- Iir_Kind_Choice_By_Range (Short) + -- Iir_Kind_Choice_By_Name (Short) + -- Iir_Kind_Choice_By_Expression (Short) + -- (Iir_Kinds_Choice) + -- + -- Used by: + -- Iir_Kind_Aggregate + -- Iir_Kind_Case_Statement + -- Iir_Kind_Case_Generate_Statement + -- Iir_Kind_Concurrent_Selected_Signal_Assignment + -- + -- The location of the first alternative is set on: + -- 'when' for case statement, selected assignment and case generate, + -- '(' or ',' for aggregates. + -- The location of the following alternatives is set on '|'. + -- + -- Get/Set_Parent (Field0) + -- + -- For a list of choices, only the first one is associated, the following + -- associations have the same_alternative_flag set. + -- Get/Set_Chain (Field2) + -- + -- Ordered position of the choice from 1 to N. 0 is reserved for others. + -- Get/Set_Choice_Order (Field1) + -- + -- Should be a simple_name. + -- Only for Iir_Kind_Choice_By_Name: + -- Get/Set_Choice_Name (Field5) + -- + -- Only for Iir_Kind_Choice_By_Expression: + -- Get/Set_Choice_Expression (Field5) + -- + -- Only for Iir_Kind_Choice_By_Range: + -- Get/Set_Choice_Range (Field5) + -- + -- Get/Set what is associated with the choice. There are two different + -- nodes, one for simple association and the other for chain association. + -- They don't have the same properties (normal vs chain), so the right + -- field must be selected according to the property to have working + -- walkers. Both fields are never used at the same time. + -- + -- For: + -- * an expression for an aggregate + -- * an individual association + -- * a generate_statement_body chain for a case_generate_statement + -- Get/Set_Associated_Expr (Field3) + -- Get/Set_Associated_Block (Alias Field3) + -- + -- For + -- * a waveform_chain for a concurrent_selected_signal_assignment, + -- * a sequential statement chain for a case_statement. + -- Get/Set_Associated_Chain (Field4) + -- + -- Set when share the same association as the previous one. + -- Get/Set_Same_Alternative_Flag (Flag1) + -- + -- For aggregates: if True, associated expression is for one element. + -- Get/Set_Element_Type_Flag (Flag2) + -- + -- Only for Iir_Kind_Choice_By_Range: + -- Only for Iir_Kind_Choice_By_Expression: + -- Get/Set_Choice_Staticness (State1) + + -- Iir_Kind_Entity_Aspect_Entity (Short) + -- + -- Get/Set_Entity_Name (Field2) + -- + -- A simple name for the architecture. The named entity can be: + -- * Null_Iir if the architecture is not known. + -- * a design unit if the architecture is known but not loaded. + -- * an architecture body if the architecture is loaded. + -- Get/Set_Architecture (Field3) + + -- Iir_Kind_Entity_Aspect_Open (Short) + + -- Iir_Kind_Entity_Aspect_Configuration (Short) + -- + -- Get/Set_Configuration_Name (Field1) + + -- Iir_Kind_Block_Configuration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Only use_clause are allowed here. + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Configuration_Item_Chain (Field3) + -- + -- Single linked list of block configuration that apply to the same + -- for scheme generate block. + -- Get/Set_Prev_Block_Configuration (Field4) + -- + -- Note: for default block configurations of iterative generate statement, + -- the block specification is an indexed_name, whose index_list is others. + -- The name designates either a block statement or a generate statement + -- body. + -- Get/Set_Block_Specification (Field5) + + -- Iir_Kind_Binding_Indication (Medium) + -- + -- Get/Set_Default_Entity_Aspect (Field1) + -- + -- The entity aspect. + -- It is a iir_kind_entity_aspect_entity, iir_kind_entity_aspect_open or + -- iir_kind_entity_aspect_configuration. This may be transformed into a + -- declaration by semantic. + -- Get/Set_Entity_Aspect (Field3) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Port_Map_Aspect_Chain (Field9) + + -- Iir_Kind_Component_Configuration (Short) + -- Iir_Kind_Configuration_Specification (Short) + -- + -- LRM08 7.3 Configuration specification + -- + -- configuration_specification ::= + -- simple_configuration_specification + -- | compound_configuration_specification + -- + -- simple_configuration_specification ::= + -- FOR component_specification binding_indication ; + -- [ END FOR ; ] + -- + -- compound_configuration_specification ::= + -- FOR component_specification binding_indication ; + -- verification_unit_binding_indication ; + -- { verification_unit_binding_indication ; } + -- END FOR ; + -- + -- component_specification ::= + -- instantiation_list : component_name + -- + -- instantiation_list ::= + -- instantiation_label { , instantiation_label } + -- | OTHERS + -- | ALL + -- + -- The location points to 'for'. + -- + -- The declaration containing this type declaration. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Component_Name (Field4) + -- + -- A list, list_others or list_all. + -- Get/Set_Instantiation_List (Field1) + -- + -- Only for Iir_Kind_Component_Configuration: + -- Get/Set_Block_Configuration (Field5) + -- + -- Get/Set_Binding_Indication (Field3) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Disconnection_Specification (Short) + -- + -- LRM08 7.4 Disconnection specification + -- + -- disconnection_specification ::= + -- DISCONNECT guarded_signal_specification AFTER time_expression ; + -- + -- guarded_signal_specification ::= + -- guarded_signal_list : type_mark + -- + -- signal_list ::= + -- signal_name { , signal_name } + -- | OTHERS + -- | ALL + -- + -- The declaration containing this type declaration. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Signal_List (Field3) + -- + -- Get/Set_Type_Mark (Field4) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Block_Header (Medium) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Port_Chain (Field7) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Port_Map_Aspect_Chain (Field9) + + -- Iir_Kind_Entity_Class (Short) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Entity_Class (Field3) + + -- Iir_Kind_Attribute_Specification (Medium) + -- + -- LRM08 7.2 Attribute specification + -- + -- attribute_specification ::= + -- ATTRIBUTE attribute_designator OF entity_specification + -- IS expression ; + -- + -- entity_specification ::= entity_name_list : entity_class + -- + -- entity_name_list ::= + -- entity_designator { , entity_designator } + -- | OTHERS + -- | ALL + -- + -- entity_designator ::= entity_tag [ signature ] + -- + -- entity_tag ::= simple_name | character_literal | operator_symbol + -- + -- LRM08 8.6 Attribute names + -- + -- attribute_designator ::= /attribute/_simple_name + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Entity_Class (Field3) + -- + -- Get/Set_Entity_Name_List (Field8) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Attribute_Value_Spec_Chain (Field4) + -- + -- Always a simple name. + -- Get/Set_Attribute_Designator (Field6) + -- + -- Get/Set_Attribute_Specification_Chain (Field7) + + -- Iir_Kind_Attribute_Value (Short) + -- An attribute value is the element of the chain of attribute of an + -- entity, marking the entity as decorated by the attribute. + -- This node is built only by sem. + -- In fact, the node is member of the chain of attribute of an entity, and + -- of the chain of entity of the attribute specification. + -- This makes elaboration (and more precisely, expression evaluation) + -- easier. + -- + -- Chain of attribute_value for the attribute specification + -- Get/Set_Spec_Chain (Field2) + -- + -- Get/Set_Type (Field1) + -- + -- Chain of all attribute_value for the node containing declarations + -- Get/Set_Value_Chain (Field0) + -- + -- Get/Set_Designated_Entity (Field3) + -- + -- Get/Set_Attribute_Specification (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Psl_Expression (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Psl_Expression (Field3) + + -- Iir_Kind_Signature (Medium) + -- + -- LRM08 4.5.3 Signatures + -- + -- signature ::= '[' [ type_mark { , type_mark } ] [ RETURN type_mark ] ']' + -- + -- Get/Set_Signature_Prefix (Field1) + -- + -- Get/Set_Type_Marks_List (Field2) + -- + -- Get/Set_Return_Type_Mark (Field8) + + -- Iir_Kind_Overload_List (Short) + -- + -- Get/Set_Overload_List (Field1) + + ------------------- + -- Declarations -- + ------------------- + + -- Iir_Kind_Entity_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Port_Chain (Field7) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Concurrent_Statement_Chain (Field5) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Has_Begin (Flag10) + + -- Iir_Kind_Architecture_Body (Medium) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Name of the entity declaration for the architecture. + -- Get/Set_Entity_Name (Field2) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Concurrent_Statement_Chain (Field5) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- The default configuration created by canon. This is a design unit. + -- Get/Set_Default_Configuration_Declaration (Field6) + -- + -- Get/Set_Foreign_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Configuration_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Name of the entity of a configuration. + -- Get/Set_Entity_Name (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Block_Configuration (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Package_Header (Medium) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + + -- Iir_Kind_Package_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Package_Header (Field6) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- For nested packages + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Package_Body (Field5) + -- + -- Get/Set_Package_Origin (Field7) + -- + -- If true, the package need a body. + -- Get/Set_Need_Body (Flag1) + -- + -- True for uninstantiated package that will be macro-expanded for + -- simulation. The macro-expansion is done by canon, so controlled by + -- back-end. The reason of macro-expansion is presence of interface + -- type. + -- Get/Set_Macro_Expanded_Flag (Flag2) + -- + -- True if the package declaration has least one package instantiation + -- declaration whose uninstantiated declaration needs both a body and + -- macro-expansion. In that case, the instantiation needs macro-expansion + -- of their body. + -- Get/Set_Need_Instance_Bodies (Flag3) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Package_Body (Short) + -- Note: a body is not a declaration, that's the reason why there is no + -- _declaration suffix in the name. + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- For nested packages. + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- The corresponding package declaration. + -- Get/Set_Package (Field5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Package_Instantiation_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- The name of the uninstantiated package as it appear in the sources. May + -- be Null_Iir. + -- Get/Set_Uninstantiated_Package_Name (Field7) + -- + -- The uninstantiated package declaration. + -- Get/Set_Uninstantiated_Package_Decl (Field9) + -- + -- Get/Set_Instance_Source_File (Field10) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- For nested packages + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- For macro-expanded packages: the body. + -- Get/Set_Instance_Package_Body (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Context_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- Get/Set_Design_Unit (Alias Field0) + -- + -- Get the chain of context clause. + -- Get/Set_Context_Items (Field1) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Library_Declaration (Short) + -- + -- Design files in the library. + -- Get/Set_Design_File_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- This node is used to contain all a library. Only internaly used. + -- Name (identifier) of the library. + -- Get/Set_Identifier (Field3) + -- + -- Most recent date in this library. + -- Get/Set_Date (Field4) + -- + -- Get/Set_Library_Directory (Field5) + -- + -- Used to compute dependences. + -- Get/Set_Elab_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Component_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Port_Chain (Field7) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Has_Is (Flag7) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- LRM08 6.6 Alias declarations + -- + -- alias_declaration ::= + -- ALIAS alias_designator [ : subtype_indication ] IS + -- name [ signature ] ; + -- + -- alias_designator ::= identifier | character_literal | operator_symbol + -- + -- Object aliases and non-object aliases are represented by two different + -- nodes, as their semantic is different. The parser only creates object + -- alias declaration nodes, but sem_decl replaces the node for non-object + -- alias declarations. + + -- Iir_Kind_Object_Alias_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Name (Field4) + -- + -- The subtype indication may not be present. + -- Get/Set_Subtype_Indication (Field5) + -- + -- The type can be deduced from the subtype indication, but this field is + -- present for uniformity (and speed). + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_After_Drivers_Flag (Flag5) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Non_Object_Alias_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Name (Field4) + -- + -- Get/Set_Alias_Signature (Field5) + -- + -- Set when the alias was implicitely created (by Sem) because of an + -- explicit alias of a type. + -- Get/Set_Implicit_Alias_Flag (Flag1) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Anonymous_Type_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type_Definition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Used for informative purpose only. + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Definition (Field4) + -- + -- Set if the type declaration completes an incomplete type declaration + -- Get/Set_Incomplete_Type_Declaration (Field5) + + -- Iir_Kind_Type_Declaration (Short) + -- + -- LRM08 6.3 Type declarations + -- + -- type_declaration ::= + -- full_type_declaration + -- | incomplete_type_declaration + -- + -- full_type_declaration ::= + -- TYPE identifier IS type_definition ; + -- + -- type_definition ::= + -- scalar_type_definition + -- | composite_type_definition + -- | access_type_definition + -- | file_type_definition + -- | protected_type_definition + -- + -- LRM08 5.4.2 Incomplete type declarations + -- + -- incomplete_type_declaration ::= + -- TYPE identifier ; + -- + -- Get/Set_Parent (Field0) + -- + -- Definition of the type. + -- Note: the type definition can be a real type (unconstrained array, + -- enumeration, file, record, access) or a subtype (integer, floating + -- point). + -- The parser set this field to null_iir for an incomplete type + -- declaration. This field is set to an incomplete_type_definition node + -- when analyzed. + -- Get/Set_Type_Definition (Field1) + -- Get/Set_Type (Alias Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Set if the type declaration completes an incomplete type declaration + -- Get/Set_Incomplete_Type_Declaration (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Subtype_Declaration (Short) + -- + -- LRM08 6.3 Subtype declarations + -- + -- subtype_declaration ::= + -- SUBTYPE identifier IS subtype_indication ; + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- For integer and real types, the subtype_indication of the implicitly + -- declared subtype for the type is the subtype definition. + -- Get/Set_Subtype_Indication (Field5) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Nature_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Nature (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Subnature_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Nature (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Interface_Signal_Declaration (Short) + -- Iir_Kind_Interface_Constant_Declaration (Short) + -- Iir_Kind_Interface_Variable_Declaration (Short) + -- Iir_Kind_Interface_File_Declaration (Short) + -- + -- Get/Set the parent of an interface declaration. + -- The parent is an entity declaration, a subprogram specification, a + -- component declaration, a loop statement, a block declaration or ?? + -- Useful to distinguish a port and an interface. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Must always be null_iir for iir_kind_interface_file_declaration. + -- Get/Set_Default_Value (Field4) + -- + -- The type can be deduced from the subtype indication, but this field is + -- present for uniformity (and speed). + -- Get/Set_Type (Field1) + -- + -- Get/Set_Mode (Flag13,Flag14,Flag15) + -- + -- Only for Iir_Kind_Interface_Signal_Declaration: + -- Get/Set_Has_Disconnect_Flag (Flag1) + -- + -- Only for Iir_Kind_Interface_Signal_Declaration: + -- Get/Set_Has_Active_Flag (Flag2) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_After_Drivers_Flag (Flag5) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Only for Iir_Kind_Interface_Signal_Declaration: + -- Get/Set_Guarded_Signal_Flag (Flag8) + -- + -- Only for Iir_Kind_Interface_Signal_Declaration: + -- Get/Set_Signal_Kind (Flag9) + -- + -- Get/Set_Has_Mode (Flag10) + -- + -- Get/Set_Has_Class (Flag11) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Only for Iir_Kind_Interface_Signal_Declaration: + -- Get/Set_Open_Flag (Flag7) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Interface_Type_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Interface_Type_Subprograms (Field4) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Interface_Package_Declaration (Medium) + -- + -- LRM08 6.5.5 Interface package declarations + -- + -- interface_package_declaration ::= + -- PACKAGE identifier IS NEW /uninstantiated_package/_name + -- interface_package_generic_map_aspect + -- + -- interface_package_generic_map_aspect ::= + -- generic_map_aspect + -- | GENERIC MAP ( <> ) -- Represented by Null_Iir + -- | GENERIC MAP ( DEFAULT ) -- Not yet implemented + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Uninstantiated_Package_Name (Field7) + -- + -- Get/Set_Uninstantiated_Package_Decl (Field9) + -- + -- Get/Set_Instance_Source_File (Field10) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + + -- Iir_Kind_Function_Declaration (Medium) + -- Iir_Kind_Procedure_Declaration (Medium) + -- + -- LRM08 4.2 Subprogram declarations + -- + -- subprogram_declaration ::= subprogram_specification ; + -- + -- subprogram_specification ::= + -- procedure_specification | function_specification + -- + -- procedure_specification ::= + -- PROCEDURE designator + -- subprogram_header + -- [ [ PARAMETER ] ( formal_parameter_list ) ] + -- + -- function_specification ::= + -- [ PURE | IMPURE ] FUNCTION designator + -- subprogram_header + -- [ [ PARAMETER ] ( formal_parameter_list ) ] RETURN type_mark + -- + -- designator ::= identifier | operator_symbol + -- + -- operator_symbol ::= string_literal + -- + -- Note: the subprogram specification of a body is kept, but should be + -- ignored if there is a subprogram declaration. The function + -- Is_Second_Subprogram_Specification returns True on such specification. + -- + -- The declaration containing this subrogram declaration. + -- Get/Set_Parent (Field0) + -- + -- Only for Iir_Kind_Function_Declaration: + -- Get/Set_Return_Type (Field1) + -- + -- Only for Iir_Kind_Function_Declaration: + -- Get/Set_Type (Alias Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- For string, the identifier is the corresponding reserved word. + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subprogram_Hash (Field4) + -- + -- Get/Set_Interface_Declaration_Chain (Field5) + -- + -- Get/Set_Generic_Chain (Field6) + -- + -- --Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Implicit_Definition (Field7) + -- + -- Get/Set_Return_Type_Mark (Field8) + -- + -- Get/Set_Subprogram_Body (Field9) + -- + -- Get/Set_Subprogram_Depth (Field10) + -- + -- Get/Set_Overload_Number (Field12) + -- + -- Get/Set_Seen_Flag (Flag1) + -- + -- Only for Iir_Kind_Function_Declaration: + -- Get/Set_Pure_Flag (Flag2) + -- + -- Only for Iir_Kind_Procedure_Declaration: + -- Get/Set_Passive_Flag (Flag2) + -- + -- Get/Set_Foreign_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Only for Iir_Kind_Function_Declaration: + -- Get/Set_Resolution_Function_Flag (Flag7) + -- + -- Only for Iir_Kind_Function_Declaration: + -- Get/Set_Has_Pure (Flag8) + -- + -- True is the specification is immediately followed by a body. + -- Get/Set_Has_Body (Flag9) + -- + -- Get/Set_Has_Parameter (Flag10) + -- + -- Only for Iir_Kind_Procedure_Declaration: + -- Get/Set_Suspend_Flag (Flag11) + -- + -- For an explicit subprogram: true if the declaration is an homograph of + -- an implicit operation of a type. + -- Get/Set_Hide_Implicit_Flag (Flag12) + -- + -- Get/Set_Wait_State (State1) + -- + -- Only for Iir_Kind_Procedure_Declaration: + -- Get/Set_Purity_State (State2) + -- + -- Get/Set_All_Sensitized_State (State3) + + -- Iir_Kind_Function_Body (Medium) + -- Iir_Kind_Procedure_Body (Medium) + -- + -- LRM08 4.3 Subprogram bodies + -- + -- subprogram_body ::= + -- subprogram_specification IS + -- subprogram_declarative_part + -- BEGIN + -- subprogram_statement_part + -- END [ subprogram_kind ] [ designator ] ; + -- + -- subprogram_kind ::= PROCEDURE | FUNCTION + -- + -- Get/Set_Parent (Field0) + -- + -- The parse stage always puts a declaration before a body. + -- Sem will remove the declaration if there is a forward declaration. + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Impure_Depth (Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Sequential_Statement_Chain (Field5) + -- + -- Get/Set_Subprogram_Specification (Field6) + -- + -- Get/Set_Callees_List (Field7) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Only for Iir_Kind_Procedure_Body: + -- Get/Set_Suspend_Flag (Flag11) + + -- Iir_Kind_Interface_Function_Declaration (Medium) + -- Iir_Kind_Interface_Procedure_Declaration (Medium) + -- + -- LRM08 6.5.4 Interface subprogram declarations + -- + -- interface_subprogram_declaration ::= + -- interface_subprogram_specification + -- [ IS interface_subprogram_default ] + -- + -- interface_subprogram_specification ::= + -- interface_procedure_specification | interface_function_specification + -- + -- interface_procedure_specification ::= + -- PROCEDURE designator + -- [ [ PARAMETER ] ( formal_parameter_list ) ] + -- + -- interface_function_specification ::= + -- [ PURE | IMPURE ] FUNCTION designator + -- [ [ PARAMETER ] ( formal_parameter_list ) ] RETURN type_mark + -- + -- Get/Set_Parent (Field0) + -- + -- Only for Iir_Kind_Interface_Function_Declaration: + -- Get/Set_Return_Type (Field1) + -- + -- Only for Iir_Kind_Interface_Function_Declaration: + -- Get/Set_Type (Alias Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- For string, the identifier is the corresponding reserved word. + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subprogram_Hash (Field4) + -- + -- Get/Set_Interface_Declaration_Chain (Field5) + -- + -- Get/Set_Return_Type_Mark (Field8) + -- + -- Get/Set_Subprogram_Depth (Field10) + -- + -- Get/Set_Seen_Flag (Flag1) + -- + -- Only for Iir_Kind_Interface_Function_Declaration: + -- Get/Set_Pure_Flag (Flag2) + -- + -- Get/Set_Foreign_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Only for Iir_Kind_Interface_Function_Declaration: + -- Get/Set_Resolution_Function_Flag (Flag7) + -- + -- Only for Iir_Kind_Interface_Function_Declaration: + -- Get/Set_Has_Pure (Flag8) + -- + -- Get/Set_Has_Parameter (Flag10) + -- + -- Get/Set_All_Sensitized_State (State3) + + -- Iir_Kind_Signal_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Get/Set_Default_Value (Field4) + -- + -- Get/Set_Type (Field1) + -- + -- For a non-resolved signal: null_iir if the signal has no driver, or + -- a process/concurrent_statement for which the signal should have a + -- driver. This is used to catch at analyse time unresolved signals with + -- several drivers. + -- -- Get/Set_Signal_Driver (Field7) + -- + -- Get/Set_Has_Disconnect_Flag (Flag1) + -- + -- Get/Set_Has_Active_Flag (Flag2) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_After_Drivers_Flag (Flag5) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Guarded_Signal_Flag (Flag8) + -- + -- Get/Set_Signal_Kind (Flag9) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Guard_Signal_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Guard_Expression (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Guard_Sensitivity_List (Field4) + -- + -- Get/Set_Block_Statement (Field5) + -- + -- Get/Set_Has_Active_Flag (Flag2) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Guarded_Signal_Flag (Flag8) + -- + -- Get/Set_Signal_Kind (Flag9) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Signal_Attribute_Declaration (Short) + -- + -- Chain of implicit signals created from signal attribute. This is just + -- an helper so that translation can create these implicit signals at the + -- same time as user signal declarations. + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Chain of signals + -- Get/Set_Signal_Attribute_Chain (Field3) + + -- Iir_Kind_Constant_Declaration (Medium) + -- Iir_Kind_Iterator_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- For iterator, this is the reconstructed subtype indication. + -- Get/Set_Subtype_Indication (Field5) + -- + -- Only for Iir_Kind_Iterator_Declaration: + -- Get/Set_Discrete_Range (Field6) + -- + -- Only for Iir_Kind_Constant_Declaration: + -- Default value of a deferred constant points to the full constant + -- declaration. + -- Get/Set_Default_Value (Field4) + -- + -- Note that the type may be extracted from the default_value if the subtype + -- indication is unconstrained. + -- Get/Set_Type (Field1) + -- + -- Only for Iir_Kind_Constant_Declaration: + -- Summary: + -- | constant C1 : integer; -- Deferred declaration (in a package) + -- | constant C2 : integer := 4; -- Declaration + -- | constant C1 : integer := 3; -- Full declaration (in a body) + -- | NAME Deferred_declaration Deferred_declaration_flag + -- | C1 Null_iir or C1' (*) True + -- | C2 Null_Iir False + -- | C1' C1 False + -- |(*): Deferred_declaration is Null_Iir as long as the full declaration + -- | has not been analyzed. + -- Get/Set_Deferred_Declaration (Field6) + -- + -- Only for Iir_Kind_Constant_Declaration: + -- Get/Set_Deferred_Declaration_Flag (Flag1) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Only for Iir_Kind_Constant_Declaration: + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Variable_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Get/Set_Default_Value (Field4) + -- + -- Get/Set_Type (Field1) + -- + -- True if the variable is a shared variable. + -- Get/Set_Shared_Flag (Flag2) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_File_Declaration (Medium) + -- + -- LRM08 6.4.2.5 File declarations + -- + -- file_declaration ::= + -- FILE identifier_list : subtype_indication [ file_open_information ] ; + -- + -- file_open_information ::= + -- [ OPEN file_open_kind_expression ] IS file_logical_name + -- + -- file_logical_name ::= string_expression + -- + -- LRM87 + -- + -- file_declaration ::= + -- FILE identifier : subtype_indication IS [ mode ] file_logical_name ; + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Get/Set_File_Logical_Name (Field6) + -- + -- This is not used in vhdl 87. + -- Get/Set_File_Open_Kind (Field7) + -- + -- This is used only in vhdl 87. + -- Get/Set_Mode (Flag13,Flag14,Flag15) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Has_Mode (Flag10) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Element_Declaration (Short) + -- + -- LRM08 5.3.3 Record types + -- + -- element_declaration ::= + -- identifier_list : element_subtype_definition ; + -- + -- identifier_list ::= identifier { , identifier } + -- + -- element_subtype_definition ::= subtype_indication + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Return the position of the element in the record, starting from 0 for + -- the first record element, increasing by one for each successive element. + -- Get/Set_Element_Position (Field4) + -- + -- The type can be deduced from the subtype indication, but this field is + -- present for uniformity (and speed). + -- Get/Set_Type (Field1) + -- + -- Get/Set_Has_Identifier_List (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Record_Element_Constraint (Short) + -- + -- Record subtype definition which defines this constraint. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- For Owned_Elements_Chain, so that the node has an owner. + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Return the position of the element in the record, starting from 0 for + -- the first record element, increasing by one for each successive element. + -- Get/Set_Element_Position (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Attribute_Declaration (Short) + -- + -- LRM08 6.7 Attribute declarations + -- + -- attribute_declaration ::= + -- ATTRIBUTE identifier : type_mark ; + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Type_Mark (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Group_Template_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- List of entity class entry. + -- To handle `<>', the last element of the list can be an entity_class of + -- kind tok_box. + -- Get/Set_Entity_Class_Entry_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Group_Declaration (Short) + -- + -- The declaration containing this type declaration. + -- Get/Set_Parent (Field0) + -- + -- List of constituents. + -- Get/Set_Group_Constituent_List (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Group_Template_Name (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Psl_Endpoint_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Always boolean. + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Psl_Declaration (Field6) + -- + -- Get/Set_PSL_Clock (Field7) + -- + -- Get/Set_PSL_NFA (Field8) + -- + -- Number of states in the NFA. + -- Get/Set_PSL_Nbr_States (Field9) + -- + -- Get/Set_PSL_Clock_Sensitivity (Field10) + -- + -- True if at least one of the NFA edge has the EOS flag. + -- Get/Set_PSL_EOS_Flag (Flag1) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Psl_Declaration (Medium) + -- A psl sequence or property declaration. + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Psl_Declaration (Field6) + -- + -- Valid only for property declaration. + -- Get/Set_PSL_Clock (Field7) + -- + -- Valid only for property declaration without parameters. + -- Get/Set_PSL_NFA (Field8) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + + -- Iir_Kind_Terminal_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Nature (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Has_Identifier_List (Flag3) + + -- Iir_Kind_Free_Quantity_Declaration (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Default_Value (Field4) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Across_Quantity_Declaration (Medium) + -- Iir_Kind_Through_Quantity_Declaration (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Default_Value (Field4) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Plus_Terminal (Field8) + -- + -- Get/Set_Minus_Terminal (Field9) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Use_Flag (Flag6) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Use_Clause (Short) + -- + -- LRM08 12.4 Use clauses + -- + -- use_clause ::= + -- USE selected_name { , selected_name } ; + -- + -- Location is on 'USE'. + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Selected_Name (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Use_Clause_Chain (Field3) + + -- Iir_Kind_Context_Reference (Short) + -- + -- LRM08 13.4 Context clauses + -- + -- context_reference ::= + -- CONTEXT selected_name { , selected_name } + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Selected_Name (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Context_Reference_Chain (Field3) + + + ----------------------- + -- type definitions -- + ----------------------- + + -- For Iir_Kinds_Type_And_Subtype_Definition: + -- + -- Type_Declarator: + -- Points to the type declaration or subtype declaration that has created + -- this definition. For some types, such as integer and floating point + -- types, both type and subtype points to the declaration. + -- However, there are cases where a type definition doesn't point to + -- a declarator: anonymous subtype created by index contraints, or + -- anonymous subtype created by an object declaration. + -- Note: a type definition cannot be anoynymous. + -- Get/Set_Type_Declarator (Field3) + -- + -- The base type. + -- For a subtype, it returns the type. + -- For a type, it must return the type itself. + -- Get/Set_Base_Type (Field4) + -- + -- The staticness of a type, according to LRM93 7.4.1. + -- Note: These types definition are always locally static: + -- enumeration, integer, floating. + -- However, their subtype are not necessary locally static. + -- Get/Set_Type_Staticness (State1) + -- + -- The resolved flag of a subtype, according to LRM93 2.4 + -- Get/Set_Resolved_Flag (Flag1) + -- + -- The signal_type flag of a type definition. + -- It is true when the type can be used for a signal. + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + + -- Iir_Kind_Enumeration_Type_Definition (Short) + -- + -- Return the list of literals. This list is created when the node is + -- created. + -- Get/Set_Enumeration_Literal_List (Field2) + -- + -- Get the range of the type (This is just an ascending range from the + -- first literal to the last declared literal). + -- Get/Set_Range_Constraint (Field1) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Always itself + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Only_Characters_Flag (Flag4) + -- + -- Get/Set_Is_Character_Type (Flag5) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Type_Staticness (State1) + + -- Iir_Kind_Enumeration_Literal (Short) + -- + -- Nota: two literals of the same type are equal iff their value is the + -- same; in other words, there may be severals literals with the same + -- value. + -- + -- The parent of an enumeration_literal is the same parent as the type + -- declaration. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- Get/Set_Return_Type (Alias Field1) + -- + -- Get/Set_Literal_Origin (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Subprogram_Hash (Field4) + -- + -- The value of an enumeration literal is the position. + -- Get/Set_Enum_Pos (Field5) + -- + -- Get/Set_Seen_Flag (Flag1) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Never set to true, but possible when used as a prefix of an expanded + -- name in a overloaded subprogram. + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Physical_Type_Definition (Short) + -- + -- The range_constraint from the type declaration. + -- Get/Set_Range_Constraint (Field1) + -- + -- Get/Set_Unit_Chain (Field2) + -- Get/Set_Primary_Unit (Alias Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Unit_Declaration (Short) + -- + -- LRM08 5.2.4 Physical types + -- + -- primary_unit_declaration ::= identifier ; + -- + -- secondary_unit_declaration ::= identifier = physical_literal ; + -- + -- physical_literal ::= [ abstract_literal ] /unit/_name + -- + -- The parent of a physical unit is the same parent as the type + -- declaration. + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- The Physical_Literal is the expression that defines the value of a + -- unit. It is evaluated during analysis and thus expressed as a multiple + -- of the primary unit. That's true even for the primary unit whose value + -- is thus 1. + -- Get/Set_Physical_Literal (Field4) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Used for time literals, to compute minimal resolution. + -- Get/Set_Use_Flag (Flag6) + + -- LRM08 5.2 Scalar types + -- + -- range_constraint ::= RANGE range + -- + -- range ::= + -- range_attribute_name + -- | simple_expression direction simple_expression + -- + -- direction ::= to | downto + + -- Iir_Kind_Integer_Type_Definition (Short) + -- Iir_Kind_Floating_Type_Definition (Short) + -- + -- The range_constraint from the type declaration. + -- Get/Set_Range_Constraint (Field1) + -- + -- The type declarator that has created this type. + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Type staticness is always locally. + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Array_Type_Definition (Medium) + -- + -- LRM08 5.3.2 Array types / LRM93 3.2.1 + -- + -- unbounded_array_definition ::= + -- ARRAY ( index_subtype_definition { , index_subtype_definition } ) + -- OF element_subtype_indication + -- + -- index_subtype_definition ::= type_mark RANGE <> + -- + -- This is a list of type marks. + -- Get/Set_Index_Subtype_Definition_List (Field6) + -- + -- Get/Set_Element_Subtype_Indication (Field2) + -- + -- Same as the index_subtype_definition_list. + -- Get/Set_Index_Subtype_List (Field9) + -- + -- Get/Set_Element_Subtype (Field1) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Constraint_State (State2) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Always false. + -- Get/Set_Index_Constraint_Flag (Flag4) + + -- Iir_Kind_Record_Type_Definition (Short) + -- + -- LRM08 5.3.3 Record types / LRM93 3.2.2 Record types + -- + -- record_type_definition ::= + -- RECORD + -- element_declaration + -- { element_declaration } + -- END RECORD [ /record_type/_simple_name ] + -- + -- Get/Set_Elements_Declaration_List (Field1) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Constraint_State (State2) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Always false for record type: elements are owned by this node. + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Access_Type_Definition (Short) + -- + -- LRM08 5.4 Access types + -- + -- access_type_definition ::= ACCESS subtype_indication + -- + -- The subtype_indication as it appears. Can designate an + -- incomplete_type_definition. + -- Get/Set_Designated_Subtype_Indication (Field5) + -- + -- The resolved designated type. + -- Get/Set_Designated_Type (Field1) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Next access type that also referenced the same incomplete type when + -- defined. + -- Get/Set_Incomplete_Type_Ref_Chain (Field0) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Type_Staticness (State1) + + -- Iir_Kind_File_Type_Definition (Short) + -- + -- Get/Set_File_Type_Mark (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- True if this is the std.textio.text file type, which may require special + -- handling. + -- Get/Set_Text_File_Flag (Flag4) + -- + -- Get/Set_Type_Staticness (State1) + + -- Iir_Kind_Incomplete_Type_Definition (Short) + -- Type definition for an incomplete type. This is created during the + -- analysis of the incomplete type declaration. + -- + -- Chain of access_type_definition that designated this type. This is + -- simply a forward_ref as the access type is declared after the + -- incomplete type. + -- Get/Set_Incomplete_Type_Ref_Chain (Field0) + -- + -- Set to the incomplete type declaration. + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Set to the complete type definition when completed. + -- Get/Set_Complete_Type_Definition (Field5) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + + -- Iir_Kind_Interface_Type_Definition (Short) + -- Type definition for an interface type. + -- + -- Set to interface type declaration. + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Set only during analysis of association: type associated with this + -- interface, so that references to this interface can use the actual + -- type. + -- Get/Set_Associated_Type (Field5) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + + -- Iir_Kind_Protected_Type_Declaration (Short) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Protected_Type_Body (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Protected_Type_Body (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Protected_Type_Declaration (Field4) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Wildcard_Type_Definition (Short) + -- A wildcard type doesn't correspond to a type defined by VHDL. It + -- is used only during analysis to temporary set the type of an entity + -- when the type is not precisely known but restricted to some class of + -- types. Eg: the type of an aggregate is not known before being + -- determined by the context, but can only be an array or a record. + -- Wildcard types are statically created by std_package and the set of + -- restrictions depends on the node. See std_package.ads + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Type_Staticness (State1) + + -------------------------- + -- subtype definitions -- + -------------------------- + + -- LRM08 6.3 Subtype declarations + -- + -- subtype_indication ::= + -- [ resolution_indication ] type_mark [ constraint ] + -- + -- There is no uniq representation for a subtype indication. If there is + -- only a type_mark, then a subtype indication is represented by a name + -- (a simple name or an expanded name); otherwise it is represented by one + -- of the subtype definition node. + -- + -- resolution_indication ::= + -- resolution_function_name | ( element_resolution ) + -- + -- element_resolution ::= array_element_resolution | record_resolution + -- + -- If there is no constraint but a resolution function name, the subtype + -- indication is represented by a subtype_definition (which will be + -- replaced by the correct subtype definition). If there is an array + -- element resolution the subtype indication is represented by an array + -- subtype definition, and if there is a record resolution, it is + -- represented by a record subtype definition. + -- + -- constraint ::= + -- range_constraint + -- | index_constraint + -- | array_constraint + -- | record_constraint + -- + -- There is no node for constraint, it is directly represented by one of + -- the rhs. + -- + -- element_constraint ::= + -- array_constraint + -- | record_constraint + -- + -- Likewise, there is no node for element_constraint. + -- + -- index_constraint ::= ( discrete_range { , discrete_range } ) + -- + -- An index_constraint is represented by an array_subtype_definition. + -- + -- discrete_range ::= /discrete/_subtype_indication | range + -- + -- array_constraint ::= + -- index_constraint [ array_element_constraint ] + -- | ( OPEN ) [ array_element_constraint ] + -- + -- An array_constraint is also represented by an array_subtype_definition. + -- + -- array_element_constraint ::= element_constraint + -- + -- There is no node for array_element_constraint. + -- + -- record_constraint ::= + -- ( record_element_constraint { , record_element_constraint } ) + -- + -- A record_constraint is represented by a record_subtype_definition. + -- + -- record_element_constraint ::= + -- record_element_simple_name element_constraint + -- + -- Represented by Record_Element_Constraint. + + -- Iir_Kind_Enumeration_Subtype_Definition (Short) + -- Iir_Kind_Integer_Subtype_Definition (Short) + -- Iir_Kind_Physical_Subtype_Definition (Short) + -- + -- Get/Set_Range_Constraint (Field1) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolution_Indication (Field5) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Type_Staticness (State1) + + -- Iir_Kind_Floating_Subtype_Definition (Medium) + -- + -- Get/Set_Range_Constraint (Field1) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolution_Indication (Field5) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Is_Ref (Flag12) + -- + -- Get/Set_Type_Staticness (State1) + + -- Iir_Kind_Access_Subtype_Definition (Short) + -- + -- Get/Set_Designated_Type (Field1) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Designated_Subtype_Indication (Field5) + -- + -- Note: no resolution function for access subtype. + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + + -- Iir_Kind_Array_Element_Resolution (Short) + -- + -- LRM08 6.3 Subtype declarations + -- + -- array_element_resolution ::= resolution_indication + -- + -- The indication as it appears in the sources. + -- Get/Set_Resolution_Indication (Field5) + -- + -- The subtype definition of the element. Owner of it. + -- Get/Set_Element_Subtype_Indication (Field2) + + -- Iir_Kind_Record_Resolution (Short) + -- + -- LRM08 6.3 Subtype declarations + -- + -- record_resolution ::= + -- record_element_resolution { , record_element_resolution } + -- + -- Get/Set_Record_Element_Resolution_Chain (Field1) + + -- Iir_Kind_Record_Element_Resolution (Short) + -- + -- LRM08 6.3 Subtype declarations + -- + -- record_element_resolution ::= + -- /record_element/_simple_name resolution_indication + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Resolution_Indication (Field5) + + -- Iir_Kind_Record_Subtype_Definition (Medium) + -- + -- Chain of new elements constraint. Needed only for internal consistency + -- of the tree (ownership). + -- Get/Set_Owned_Elements_Chain (Field6) + -- + -- Get/Set_Elements_Declaration_List (Field1) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Resolution_Indication (Field5) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Constraint_State (State2) + -- + -- Always false for record type: elements are owned through + -- Owned_Elements_Chain + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Array_Subtype_Definition (Medium) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Resolution_Indication (Field5) + -- + -- The index_constraint list as it appears in the subtype indication (if + -- present). This is a list of subtype indication. + -- Get/Set_Index_Constraint_List (Field6) + -- + -- The type of the index. This is either the index_constraint list or the + -- index subtypes of the type_mark. + -- Get/Set_Index_Subtype_List (Field9) + -- + -- Get/Set_Array_Element_Constraint (Field8) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Element_Subtype (Field1) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Constraint_State (State2) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + -- + -- Get/Set_Index_Constraint_Flag (Flag4) + + -- Iir_Kind_Range_Expression (Short) + -- + -- There are two fields for both limits: those that own the node + -- (Left_Limit_Expr and Right_Limit_Expr) and those that reference the node + -- (Left_Limit and Right_Limit). Always use the reference (they cannot be + -- Null_Iir, while the owner nodes can be Null_Iir. Set the owner nodes + -- only for owning purpose. + -- Get/Set_Left_Limit_Expr (Field2) + -- + -- Get/Set_Right_Limit_Expr (Field3) + -- + -- Get/Set_Range_Origin (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Left_Limit (Field4) + -- + -- Get/Set_Right_Limit (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Direction (State2) + + -- Iir_Kind_Subtype_Definition (Medium) + -- Such a node is only created by parse and transformed into the correct + -- kind (enumeration_subtype, integer_subtype...) by sem. + -- + -- Get/Set_Range_Constraint (Field1) + -- + -- Get/Set_Subtype_Type_Mark (Field2) + -- + -- Get/Set_Resolution_Indication (Field5) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Is_Ref (Flag12) + + ------------------------- + -- Nature definitions -- + ------------------------- + + -- Iir_Kind_Scalar_Nature_Definition (Medium) + -- + -- Get/Set_Reference (Field2) + -- + -- The declarator that has created this nature type. + -- Get/Set_Nature_Declarator (Field3) + -- + -- C-- Get/Set_Base_Type (Field4) + -- + -- Type staticness is always locally. + -- C-- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Across_Type (Field7) + -- + -- Get/Set_Through_Type (Field8) + + ---------------------------- + -- concurrent statements -- + ---------------------------- + + -- Iir_Kind_Concurrent_Conditional_Signal_Assignment (Medium) + -- Iir_Kind_Concurrent_Selected_Signal_Assignment (Medium) + -- Iir_Kind_Concurrent_Simple_Signal_Assignment (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Target (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Reject_Time_Expression (Field4) + -- + -- Only for Iir_Kind_Concurrent_Simple_Signal_Assignment: + -- Get/Set_Waveform_Chain (Field5) + -- + -- Only for Iir_Kind_Concurrent_Selected_Signal_Assignment: + -- Get/Set_Expression (Field5) + -- + -- Only for Iir_Kind_Concurrent_Conditional_Signal_Assignment: + -- Get/Set_Conditional_Waveform_Chain (Field5) + -- + -- Only for Iir_Kind_Concurrent_Selected_Signal_Assignment: + -- Get/Set_Selected_Waveform_Chain (Field7) + -- + -- If the assignment is guarded, then get_guard must return the + -- declaration of the signal guard, otherwise, null_iir. + -- If the guard signal decl is not known, as a kludge and only to mark this + -- assignment guarded, the guard can be this assignment. + -- Get/Set_Guard (Field8) + -- + -- Get/Set_Delay_Mechanism (Flag1) + -- + -- Get/Set_Postponed_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- True if the target of the assignment is guarded + -- Get/Set_Guarded_Target_State (State1) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Sensitized_Process_Statement (Medium) + -- Iir_Kind_Process_Statement (Medium) + -- + -- Location is on the label, or 'postponed' or 'process'. + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- The concurrent statement at the origin of that process. This is + -- Null_Iir for a user process. + -- Get/Set_Process_Origin (Field8) + -- + -- Get/Set_Sequential_Statement_Chain (Field5) + -- + -- Only for Iir_Kind_Sensitized_Process_Statement: + -- Get/Set_Sensitivity_List (Field6) + -- + -- Get/Set_Callees_List (Field7) + -- + -- Get/Set_Wait_State (State1) + -- + -- Get/Set_Seen_Flag (Flag1) + -- + -- Get/Set_Passive_Flag (Flag2) + -- + -- Get/Set_Postponed_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_Has_Label (Flag6) + -- + -- Get/Set_Has_Is (Flag7) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_End_Has_Postponed (Flag10) + -- + -- Only for Iir_Kind_Process_Statement: + -- Get/Set_Suspend_Flag (Flag11) + -- + -- Only for Iir_Kind_Sensitized_Process_Statement: + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Concurrent_Assertion_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Assertion_Condition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Severity_Expression (Field4) + -- + -- Get/Set_Report_Expression (Field5) + -- + -- Get/Set_Postponed_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Psl_Default_Clock (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Psl_Boolean (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + + -- Iir_Kind_Psl_Assert_Statement (Medium) + -- Iir_Kind_Psl_Cover_Statement (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Only for Iir_Kind_Psl_Assert_Statement: + -- Get/Set_Psl_Property (Field1) + -- + -- Only for Iir_Kind_Psl_Cover_Statement: + -- Get/Set_Psl_Sequence (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Severity_Expression (Field4) + -- + -- Get/Set_Report_Expression (Field5) + -- + -- The following fields are set by canon. + -- Get/Set_PSL_Clock (Field7) + -- + -- Get/Set_PSL_NFA (Field8) + -- + -- Number of states in the NFA. + -- Get/Set_PSL_Nbr_States (Field9) + -- + -- Get/Set_PSL_Clock_Sensitivity (Field10) + -- + -- True if at least one of the NFA edge has the EOS flag. + -- Get/Set_PSL_EOS_Flag (Flag1) + -- + -- Get/Set_Postponed_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Component_Instantiation_Statement (Medium) + -- + -- LRM08 11.7 Component instantiation statements + -- + -- component_instantiation_statement ::= + -- instantiation_label : + -- instantiated_unit + -- [ generic_map_aspect ] + -- [ port_map_aspect ] ; + -- + -- instantiated_unit ::= + -- [ COMPONENT ] component_name + -- | ENTITY entity_name [ ( architecture_identifier ) ] + -- | CONFIGURATION configuration_name + -- + -- Get/Set_Parent (Field0) + -- + -- Unit instantiated. This is a name, an entity_aspect_entity or an + -- entity_aspect_configuration. + -- Get/Set_Instantiated_Unit (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Default_Binding_Indication (Field5) + -- + -- Get/Set_Generic_Map_Aspect_Chain (Field8) + -- + -- Get/Set_Port_Map_Aspect_Chain (Field9) + -- + -- Configuration: + -- In case of a configuration specification, the node is put into + -- default configuration. In the absence of a specification, the + -- default entity aspect, if any; if none, this field is null_iir. + -- Get/Set_Configuration_Specification (Field7) + -- + -- During Sem and elaboration, the configuration field can be filled by + -- a component configuration declaration. + -- + -- Configuration for this component. + -- FIXME: must be get/set_binding_indication. + -- Get/Set_Component_Configuration (Field6) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Has_Component (Flag5) + + -- Iir_Kind_Block_Statement (Medium) + -- LRM08 11.2 Block statement + -- + -- block_statement ::= + -- block_label : + -- BLOCK [ ( guard_condition ) ] [ IS ] + -- block_header + -- block_declarative_part + -- BEGIN + -- block_statement_part + -- END BLOCK [ block_label ] ; + -- + -- Get/Set_Parent (Field0) + -- + -- get/set_guard_decl is used for semantic analysis, in order to add + -- a signal declaration. + -- Get/Set_Guard_Decl (Field8) + -- + -- Get/Set_Block_Header (Field7) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Concurrent_Statement_Chain (Field5) + -- + -- Get/Set_Block_Block_Configuration (Field6) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Generate_Statement_Body (Short) + -- LRM08 11.8 Generate statements + -- + -- generate_statement_body ::= + -- [ block_declarative_part + -- BEGIN ] + -- { concurrent_statement } + -- [ END [ alternative_label ] ; ] + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Declaration_Chain (Field1) + -- + -- The block configuration for this statement body. + -- Get/Set_Generate_Block_Configuration (Field2) + -- + -- Get/Set_Alternative_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Attribute_Value_Chain (Field4) + -- + -- Get/Set_Concurrent_Statement_Chain (Field5) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_Has_Label (Flag6) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Has_Begin (Flag10) + -- + -- Get/Set_Has_End (Flag11) + + -- Iir_Kind_For_Generate_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- The parameters specification is represented by an Iterator_Declaration. + -- Get/Set_Parameter_Specification (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Generate_Statement_Body (Field4) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_If_Generate_Else_Clause (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Null_Iir for the else clause. + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Generate_Statement_Body (Field4) + -- + -- Get/Set_Generate_Else_Clause (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_If_Generate_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Null_Iir for the else clause. + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Generate_Statement_Body (Field4) + -- + -- Get/Set_Generate_Else_Clause (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Case_Generate_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Chain is composed of Iir_Kind_Choice_By_XXX. + -- Get/Set_Case_Statement_Alternative_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Reserved_Id (Flag8) + -- + -- Get/Set_End_Has_Identifier (Flag9) + + -- Iir_Kind_Simple_Simultaneous_Statement (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Simultaneous_Left (Field5) + -- + -- Get/Set_Simultaneous_Right (Field6) + -- + -- Get/Set_Tolerance (Field7) + -- + -- Get/Set_Visible_Flag (Flag4) + + ---------------------------- + -- sequential statements -- + ---------------------------- + + -- Iir_Kind_If_Statement (Short) + -- Iir_Kind_Elsif (Short) + -- + -- LRM08 10.8 + -- if_statement ::= + -- [ /if/_label : ] + -- IF condition THEN + -- sequence_of_statements + -- { ELSIF condition THEN + -- sequence_of_statements } + -- [ ELSE + -- sequence_of_satements ] + -- END IF [ /if/_label ] ; + -- + -- Get/Set_Parent (Field0) + -- + -- Only for Iir_Kind_If_Statement: + -- Get/Set_Label (Field3) + -- + -- Only for Iir_Kind_If_Statement: + -- Get/Set_Identifier (Alias Field3) + -- + -- May be NULL only for an iir_kind_elsif node, and then means the else + -- clause. + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Sequential_Statement_Chain (Field5) + -- + -- Must be an Iir_kind_elsif node, or NULL for no more elsif clauses. + -- Get/Set_Else_Clause (Field4) + -- + -- Only for Iir_Kind_If_Statement: + -- Get/Set_Chain (Field2) + -- + -- Only for Iir_Kind_If_Statement: + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Only for Iir_Kind_If_Statement: + -- Get/Set_Suspend_Flag (Flag11) + -- + -- Get/Set_Is_Ref (Flag12) + + -- LRM08 10.10 Loop statement / LRM93 8.9 + -- + -- loop_statement ::= + -- [ loop_label : ] + -- [ iteration_scheme ] LOOP + -- sequence_of_statements + -- END LOOP [ loop_label ] ; + -- + -- iteration_scheme ::= + -- WHILE condition + -- | FOR loop_parameter_specification + -- + -- parameter_specification ::= + -- identifier IN discrete_range + + -- Iir_Kind_For_Loop_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- The parameters specification is represented by an Iterator_Declaration. + -- Get/Set_Parameter_Specification (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Sequential_Statement_Chain (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Within_Flag (Flag5) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Suspend_Flag (Flag11) + + -- Iir_Kind_While_Loop_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Sequential_Statement_Chain (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Suspend_Flag (Flag11) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Exit_Statement (Short) + -- Iir_Kind_Next_Statement (Short) + -- + -- LRM08 10.11 Next statement + -- + -- next_statement ::= + -- [ label : ] NEXT [ loop_label ] [ WHEN condition ] ; + -- + -- LRM08 10.12 Exit statement + -- + -- exit_statement ::= + -- [ label : ] exit [ loop_label ] [ when condition ] ; + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Condition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Loop_Label (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Simple_Signal_Assignment_Statement (Short) + -- Iir_Kind_Conditional_Signal_Assignment_Statement (Short) + -- Iir_Kind_Selected_Waveform_Assignment_Statement (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Target (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Reject_Time_Expression (Field4) + -- + -- Only for Iir_Kind_Simple_Signal_Assignment_Statement: + -- The waveform. + -- If the waveform_chain is null_iir, then the signal assignment is a + -- disconnection statement, ie TARGET <= null_iir after disconection_time, + -- where disconnection_time is specified by a disconnection specification. + -- Get/Set_Waveform_Chain (Field5) + -- + -- Only for Iir_Kind_Conditional_Signal_Assignment_Statement: + -- Get/Set_Conditional_Waveform_Chain (Field5) + -- + -- Only for Iir_Kind_Selected_Waveform_Assignment_Statement: + -- Get/Set_Expression (Field5) + -- + -- Only for Iir_Kind_Selected_Waveform_Assignment_Statement: + -- Get/Set_Selected_Waveform_Chain (Field7) + -- + -- Get/Set_Delay_Mechanism (Flag1) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- True if the target of the assignment is guarded + -- Get/Set_Guarded_Target_State (State1) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Variable_Assignment_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Target (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Conditional_Variable_Assignment_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Target (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Conditional_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Assertion_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Assertion_Condition (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Severity_Expression (Field4) + -- + -- Get/Set_Report_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Report_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Severity_Expression (Field4) + -- + -- Get/Set_Report_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Wait_Statement (Medium) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Timeout_Clause (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Condition_Clause (Field5) + -- + -- Get/Set_Sensitivity_List (Field6) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Is_Ref (Flag12) + + -- Iir_Kind_Return_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Type of the return value of the function. This is a copy of + -- return_type. + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + + -- Iir_Kind_Case_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Chain is composed of Iir_Kind_Choice_By_XXX. + -- Get/Set_Case_Statement_Alternative_Chain (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_End_Has_Identifier (Flag9) + -- + -- Get/Set_Suspend_Flag (Flag11) + + -- Iir_Kind_Procedure_Call_Statement (Short) + -- Iir_Kind_Concurrent_Procedure_Call_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Procedure_Call (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Only for Iir_Kind_Concurrent_Procedure_Call_Statement: + -- Get/Set_Postponed_Flag (Flag3) + -- + -- Get/Set_Visible_Flag (Flag4) + -- + -- Get/Set_Suspend_Flag (Flag11) + + -- Iir_Kind_Procedure_Call (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Parameter_Association_Chain (Field2) + -- + -- Procedure declaration corresponding to the procedure to call. + -- Get/Set_Implementation (Field3) + -- + -- Get/Set_Method_Object (Field4) + + -- Iir_Kind_Null_Statement (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_Label (Field3) + -- Get/Set_Identifier (Alias Field3) + -- + -- Get/Set_Visible_Flag (Flag4) + + ---------------- + -- operators -- + ---------------- + + -- Iir_Kinds_Monadic_Operator (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Operand (Field2) + -- + -- Function declaration corresponding to the function to call. + -- Get/Set_Implementation (Field3) + -- + -- Expr_staticness is defined by LRM93 7.4 + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kinds_Dyadic_Operator (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Left and Right operands. + -- Get/Set_Left (Field2) + -- + -- Function declaration corresponding to the function to call. + -- Get/Set_Implementation (Field3) + -- + -- Get/Set_Right (Field4) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Function_Call (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Parameter_Association_Chain (Field2) + -- + -- Function declaration corresponding to the function to call. + -- Get/Set_Implementation (Field3) + -- + -- Get/Set_Method_Object (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Aggregate (Short) + -- + -- Get/Set_Association_Choices_Chain (Field4) + -- + -- Same as Type, but marked as property of that node. + -- Get/Set_Literal_Subtype (Field3) + -- + -- Exist for symetry with other literals, but must never be set. The + -- content of the aggregate is modified during evaluation, not the + -- aggregate itself. + -- Get/Set_Literal_Origin (Field2) + -- + -- Get/Set_Aggregate_Info (Field5) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- If true, the aggregate can be statically built. This is an optimization + -- and the conditions are defined in sem_expr. + -- Get/Set_Aggregate_Expand_Flag (Flag1) + + -- Iir_Kind_Aggregate_Info (Short) + -- + -- Get info for the next dimension. NULL_IIR terminated. + -- Get/Set_Sub_Aggregate_Info (Field1) + -- + -- For array aggregate only: + -- If TRUE, the choices are not locally static. + -- This flag is only valid when the array aggregate is constrained, ie + -- has no 'others' choice. + -- Get/Set_Aggr_Dynamic_Flag (Flag3) + -- + -- If TRUE, the aggregate is named, else it is positionnal. + -- Get/Set_Aggr_Named_Flag (Flag4) + -- + -- The following three fields are used to check bounds of an array + -- aggregate. + -- For named aggregate, low and high bounds are computed, for positionnal + -- aggregate, the (minimum) number of elements is computed. + -- Note there may be elements beyond the bounds, due to other choice. + -- These fields may apply for the aggregate or for the aggregate and its + -- brothers if the node is for a sub-aggregate. + -- + -- The low and high index choice, if any. + -- Get/Set_Aggr_Low_Limit (Field2) + -- + -- Get/Set_Aggr_High_Limit (Field3) + -- + -- The minimum number of elements, if any. This is a minimax. + -- Get/Set_Aggr_Min_Length (Field4) + -- + -- True if the choice list has an 'others' choice. + -- Get/Set_Aggr_Others_Flag (Flag2) + + -- Iir_Kind_Parenthesis_Expression (Short) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Qualified_Expression (Short) + -- + -- LRM08 9.3.5 Qualified expressions + -- + -- qualified_expression ::= + -- type_mark ' ( expression ) + -- | type_mark ' aggregate + -- + -- Get/Set_Type_Mark (Field4) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Type_Conversion (Short) + -- + -- LRM08 9.3.6 Type conversions + -- + -- type_conversion ::= type_mark ( expression ) + -- + -- Get/Set_Type (Field1) + -- + -- If the type mark denotes an unconstrained array and the expression is + -- locally static, the result should be locally static according to vhdl93 + -- (which is not clear on that point). As a subtype is created, it is + -- referenced by this field. + -- Get/Set_Type_Conversion_Subtype (Field3) + -- + -- Get/Set_Type_Mark (Field4) + -- + -- Get/Set_Expression (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Allocator_By_Expression (Short) + -- Iir_Kind_Allocator_By_Subtype (Short) + -- + -- LRM08 9.3.7 Allocators + -- + -- allocator ::= + -- NEW subtype_indication + -- | NEW qualified_expression + -- + -- Get/Set_Type (Field1) + -- + -- Only for Iir_Kind_Allocator_By_Expression: + -- Contains the expression for a by expression allocator. + -- Get/Set_Expression (Field5) + -- + -- Only for Iir_Kind_Allocator_By_Subtype: + -- Contains the subtype indication for a by subtype allocator. + -- Get/Set_Subtype_Indication (Field5) + -- + -- Only for Iir_Kind_Allocator_By_Subtype: + -- Same as subtype indication but set when the allocator defines a new + -- subtype. Used to track when an anonymous subtype is created. + -- Get/Set_Allocator_Subtype (Field3) + -- + -- To ease analysis: set to the designated type (either the type of the + -- expression or the subtype) + -- Get/Set_Allocator_Designated_Type (Field2) + -- + -- Get/Set_Expr_Staticness (State1) + + ------------ + -- Names -- + ------------ + + -- Iir_Kind_Simple_Name (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Alias_Declaration (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Character_Literal (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Alias_Declaration (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Operator_Symbol (Short) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Alias_Declaration (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + + -- Iir_Kind_Reference_Name (Short) + -- + -- This doesn't correspond to a name in the sources. This is an artificial + -- name in the tree which is owned and reference another name. + -- + -- Get/Set_Named_Entity (Field4) + -- + -- The name from which the reference was created. Can be Null_Iir if the + -- reference was created directly from a declaration. + -- Get/Set_Referenced_Name (Field2) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + + -- Iir_Kind_Selected_Name (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Alias_Declaration (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_External_Constant_Name (Short) + -- Iir_Kind_External_Signal_Name (Short) + -- Iir_Kind_External_Variable_Name (Short) + -- + -- Get/Set_Parent (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Chain (Field2) + -- + -- Get/Set_External_Pathname (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Subtype_Indication (Field5) + -- + -- Only for Iir_Kind_External_Variable_Name: + -- Get/Set_Shared_Flag (Flag2) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Selected_By_All_Name (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + -- + -- Get/Set_Expr_Staticness (State1) + + -- Iir_Kind_Indexed_Name (Short) + -- Select the element designed with the INDEX_LIST from array PREFIX. + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Index_List (Field2) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Slice_Name (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Suffix (Field2) + -- + -- Get/Set_Slice_Subtype (Field3) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Parenthesis_Name (Short) + -- Created by the parser, and mutated into the correct iir node: it can be + -- either a function call, an indexed array, a type conversion or a slice + -- name. + -- + -- Get/Set_Prefix (Field0) + -- + -- Always returns null_iir. + -- Get/Set_Type (Field1) + -- + -- Get/Set_Association_Chain (Field2) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + + -- Iir_Kind_Selected_Element (Short) + -- A record element selection. This corresponds to a reffined selected + -- names. The production doesn't exist in the VHDL grammar. + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Identifier (Field3) + -- + -- The selected element. + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + -- + -- Always false. + -- Get/Set_Is_Forward_Ref (Flag1) + + -- Iir_Kind_Implicit_Dereference (Short) + -- Iir_Kind_Dereference (Short) + -- An implicit access dereference. + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Package_Pathname (Short) + -- This node represents only the library_logical_name. Package and object + -- simple_names are represented by Selected_Name. + -- + -- Get/Set_Pathname_Suffix (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + + -- Iir_Kind_Absolute_Pathname (Short) + -- Represents only the '.'. + -- + -- Get/Set_Pathname_Suffix (Field2) + + -- Iir_Kind_Relative_Pathname (Short) + -- Represents only one '^.' + -- + -- Get/Set_Pathname_Suffix (Field2) + + -- Iir_Kind_Pathname_Element (Short) + -- + -- Get/Set_Pathname_Suffix (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Pathname_Expression (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + + ----------------- + -- Attributes -- + ----------------- + + -- Iir_Kind_Attribute_Name (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Attribute_Signature (Field2) + -- + -- Get/Set_Identifier (Field3) + -- + -- Get/Set_Named_Entity (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Is_Forward_Ref (Flag1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Base_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + + -- Iir_Kind_Left_Type_Attribute (Short) + -- Iir_Kind_Right_Type_Attribute (Short) + -- Iir_Kind_High_Type_Attribute (Short) + -- Iir_Kind_Low_Type_Attribute (Short) + -- Iir_Kind_Ascending_Type_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Range_Array_Attribute (Short) + -- Iir_Kind_Reverse_Range_Array_Attribute (Short) + -- Iir_Kind_Left_Array_Attribute (Short) + -- Iir_Kind_Right_Array_Attribute (Short) + -- Iir_Kind_High_Array_Attribute (Short) + -- Iir_Kind_Low_Array_Attribute (Short) + -- Iir_Kind_Ascending_Array_Attribute (Short) + -- Iir_Kind_Length_Array_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Set only when known to be constrained. + -- Get/Set_Index_Subtype (Field2) + -- + -- Get/Set_Parameter (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Subtype_Attribute (Short) + -- Iir_Kind_Element_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Type_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Stable_Attribute (Short) + -- Iir_Kind_Delayed_Attribute (Short) + -- Iir_Kind_Quiet_Attribute (Short) + -- Iir_Kind_Transaction_Attribute (Short) + -- (Iir_Kinds_Signal_Attribute) + -- + -- Get/Set_Prefix (Field0) + -- + -- Not used by Iir_Kind_Transaction_Attribute + -- Get/Set_Parameter (Field4) + -- + -- Get/Set_Type (Field1) + -- + -- Next attribute signal in the chain owned by the + -- signal_attribute_declaration. Usual Get/Set_Chain is not used here as + -- the chain is composed only of forward references. + -- Get/Set_Attr_Chain (Field2) + -- + -- Head of the chain. Used only to ease the reconstruction of the chain. + -- Get/Set_Signal_Attribute_Declaration (Field3) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Has_Active_Flag (Flag2) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Event_Attribute (Short) + -- Iir_Kind_Last_Event_Attribute (Short) + -- Iir_Kind_Last_Value_Attribute (Short) + -- Iir_Kind_Active_Attribute (Short) + -- Iir_Kind_Last_Active_Attribute (Short) + -- Iir_Kind_Driving_Attribute (Short) + -- Iir_Kind_Driving_Value_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Pos_Attribute (Short) + -- Iir_Kind_Val_Attribute (Short) + -- Iir_Kind_Succ_Attribute (Short) + -- Iir_Kind_Pred_Attribute (Short) + -- Iir_Kind_Leftof_Attribute (Short) + -- Iir_Kind_Rightof_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Parameter (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Image_Attribute (Short) + -- Iir_Kind_Value_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Parameter (Field4) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Simple_Name_Attribute (Short) + -- Iir_Kind_Instance_Name_Attribute (Short) + -- Iir_Kind_Path_Name_Attribute (Short) + -- + -- Get/Set_Prefix (Field0) + -- + -- Only for Iir_Kind_Simple_Name_Attribute: + -- Get/Set_Simple_Name_Identifier (Field3) + -- + -- Only for Iir_Kind_Simple_Name_Attribute: + -- Get/Set_Simple_Name_Subtype (Field4) + -- + -- Get/Set_Type (Field1) + -- + -- Get/Set_Base_Name (Field5) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Name_Staticness (State2) + + -- Iir_Kind_Behavior_Attribute (Short) + -- Iir_Kind_Structure_Attribute (Short) + -- FIXME: to describe (Short) + + -- Iir_Kind_Error (Short) + -- Can be used instead of an expression or a type. + -- Get/Set_Type (Field1) + -- + -- Get/Set_Error_Origin (Field2) + -- + -- Get/Set_Type_Declarator (Field3) + -- + -- Get/Set_Base_Type (Field4) + -- + -- Get/Set_Expr_Staticness (State1) + -- + -- Get/Set_Type_Staticness (Alias State1) + -- + -- Get/Set_Resolved_Flag (Flag1) + -- + -- Get/Set_Signal_Type_Flag (Flag2) + -- + -- Get/Set_Has_Signal_Flag (Flag3) + + -- Iir_Kind_Unused (Short) + + -- End of Iir_Kind. + + + type Iir_Kind is + ( + Iir_Kind_Unused, + Iir_Kind_Error, + + Iir_Kind_Design_File, + Iir_Kind_Design_Unit, + Iir_Kind_Library_Clause, + Iir_Kind_Use_Clause, + Iir_Kind_Context_Reference, + + -- Literals. + Iir_Kind_Integer_Literal, + Iir_Kind_Floating_Point_Literal, + Iir_Kind_Null_Literal, + Iir_Kind_String_Literal8, + Iir_Kind_Physical_Int_Literal, + Iir_Kind_Physical_Fp_Literal, + Iir_Kind_Simple_Aggregate, + Iir_Kind_Overflow_Literal, + + Iir_Kind_Unaffected_Waveform, + + -- Tuple, + Iir_Kind_Waveform_Element, + Iir_Kind_Conditional_Waveform, + Iir_Kind_Conditional_Expression, + Iir_Kind_Association_Element_By_Expression, + Iir_Kind_Association_Element_By_Individual, + Iir_Kind_Association_Element_Open, + Iir_Kind_Association_Element_Package, + Iir_Kind_Association_Element_Type, + Iir_Kind_Association_Element_Subprogram, + Iir_Kind_Choice_By_Range, + Iir_Kind_Choice_By_Expression, + Iir_Kind_Choice_By_Others, + Iir_Kind_Choice_By_None, + Iir_Kind_Choice_By_Name, + Iir_Kind_Entity_Aspect_Entity, + Iir_Kind_Entity_Aspect_Configuration, + Iir_Kind_Entity_Aspect_Open, + Iir_Kind_Block_Configuration, + Iir_Kind_Block_Header, + Iir_Kind_Component_Configuration, + Iir_Kind_Binding_Indication, + Iir_Kind_Entity_Class, + Iir_Kind_Attribute_Value, + Iir_Kind_Signature, + Iir_Kind_Aggregate_Info, + Iir_Kind_Procedure_Call, + Iir_Kind_Record_Element_Constraint, + Iir_Kind_Array_Element_Resolution, + Iir_Kind_Record_Resolution, + Iir_Kind_Record_Element_Resolution, + + Iir_Kind_Attribute_Specification, + Iir_Kind_Disconnection_Specification, + Iir_Kind_Configuration_Specification, + + -- Type definitions. + -- iir_kinds_type_and_subtype_definition + -- kinds: disc: discrete, st: subtype. + Iir_Kind_Access_Type_Definition, + Iir_Kind_Incomplete_Type_Definition, + Iir_Kind_Interface_Type_Definition, + Iir_Kind_File_Type_Definition, + Iir_Kind_Protected_Type_Declaration, + Iir_Kind_Record_Type_Definition, -- composite + Iir_Kind_Array_Type_Definition, -- composite, array + Iir_Kind_Array_Subtype_Definition, -- composite, array, st + Iir_Kind_Record_Subtype_Definition, -- composite, st + Iir_Kind_Access_Subtype_Definition, -- st + Iir_Kind_Physical_Subtype_Definition, -- scalar, st, rng + Iir_Kind_Floating_Subtype_Definition, -- scalar, st, rng + Iir_Kind_Integer_Subtype_Definition, -- scalar, disc, st, rng + Iir_Kind_Enumeration_Subtype_Definition, -- scalar, disc, st, rng + Iir_Kind_Enumeration_Type_Definition, -- scalar, disc, rng + Iir_Kind_Integer_Type_Definition, -- scalar, disc + Iir_Kind_Floating_Type_Definition, -- scalar + Iir_Kind_Physical_Type_Definition, -- scalar + Iir_Kind_Range_Expression, + Iir_Kind_Protected_Type_Body, + Iir_Kind_Wildcard_Type_Definition, + Iir_Kind_Subtype_Definition, -- temporary (must not appear after sem). + + -- Nature definition + Iir_Kind_Scalar_Nature_Definition, + + -- Lists. + Iir_Kind_Overload_List, -- used internally by sem_expr. + + -- Declarations. + Iir_Kind_Type_Declaration, + Iir_Kind_Anonymous_Type_Declaration, + Iir_Kind_Subtype_Declaration, + Iir_Kind_Nature_Declaration, + Iir_Kind_Subnature_Declaration, + Iir_Kind_Entity_Declaration, + Iir_Kind_Configuration_Declaration, + Iir_Kind_Context_Declaration, + Iir_Kind_Package_Declaration, + Iir_Kind_Package_Instantiation_Declaration, + Iir_Kind_Package_Body, + Iir_Kind_Architecture_Body, + Iir_Kind_Package_Header, + Iir_Kind_Unit_Declaration, + Iir_Kind_Library_Declaration, + Iir_Kind_Component_Declaration, + Iir_Kind_Attribute_Declaration, + Iir_Kind_Group_Template_Declaration, + Iir_Kind_Group_Declaration, + Iir_Kind_Element_Declaration, + Iir_Kind_Non_Object_Alias_Declaration, + + Iir_Kind_Psl_Declaration, + Iir_Kind_Psl_Endpoint_Declaration, + Iir_Kind_Terminal_Declaration, + Iir_Kind_Free_Quantity_Declaration, + Iir_Kind_Across_Quantity_Declaration, + Iir_Kind_Through_Quantity_Declaration, + + Iir_Kind_Enumeration_Literal, + Iir_Kind_Function_Declaration, -- Subprg, Func + Iir_Kind_Procedure_Declaration, -- Subprg, Proc + Iir_Kind_Function_Body, + Iir_Kind_Procedure_Body, + + Iir_Kind_Object_Alias_Declaration, -- object + Iir_Kind_File_Declaration, -- object + Iir_Kind_Guard_Signal_Declaration, -- object + Iir_Kind_Signal_Declaration, -- object + Iir_Kind_Variable_Declaration, -- object + Iir_Kind_Constant_Declaration, -- object + Iir_Kind_Iterator_Declaration, -- object + Iir_Kind_Interface_Constant_Declaration, -- object, interface + Iir_Kind_Interface_Variable_Declaration, -- object, interface + Iir_Kind_Interface_Signal_Declaration, -- object, interface + Iir_Kind_Interface_File_Declaration, -- object, interface + Iir_Kind_Interface_Type_Declaration, -- interface + Iir_Kind_Interface_Package_Declaration, -- interface + Iir_Kind_Interface_Function_Declaration, -- interface + Iir_Kind_Interface_Procedure_Declaration, -- interface + + Iir_Kind_Signal_Attribute_Declaration, + + -- Expressions. + Iir_Kind_Identity_Operator, + Iir_Kind_Negation_Operator, + Iir_Kind_Absolute_Operator, + Iir_Kind_Not_Operator, + Iir_Kind_Implicit_Condition_Operator, + Iir_Kind_Condition_Operator, + Iir_Kind_Reduction_And_Operator, + Iir_Kind_Reduction_Or_Operator, + Iir_Kind_Reduction_Nand_Operator, + Iir_Kind_Reduction_Nor_Operator, + Iir_Kind_Reduction_Xor_Operator, + Iir_Kind_Reduction_Xnor_Operator, + Iir_Kind_And_Operator, + Iir_Kind_Or_Operator, + Iir_Kind_Nand_Operator, + Iir_Kind_Nor_Operator, + Iir_Kind_Xor_Operator, + Iir_Kind_Xnor_Operator, + Iir_Kind_Equality_Operator, + Iir_Kind_Inequality_Operator, + Iir_Kind_Less_Than_Operator, + Iir_Kind_Less_Than_Or_Equal_Operator, + Iir_Kind_Greater_Than_Operator, + Iir_Kind_Greater_Than_Or_Equal_Operator, + Iir_Kind_Match_Equality_Operator, + Iir_Kind_Match_Inequality_Operator, + Iir_Kind_Match_Less_Than_Operator, + Iir_Kind_Match_Less_Than_Or_Equal_Operator, + Iir_Kind_Match_Greater_Than_Operator, + Iir_Kind_Match_Greater_Than_Or_Equal_Operator, + Iir_Kind_Sll_Operator, + Iir_Kind_Sla_Operator, + Iir_Kind_Srl_Operator, + Iir_Kind_Sra_Operator, + Iir_Kind_Rol_Operator, + Iir_Kind_Ror_Operator, + Iir_Kind_Addition_Operator, + Iir_Kind_Substraction_Operator, + Iir_Kind_Concatenation_Operator, + Iir_Kind_Multiplication_Operator, + Iir_Kind_Division_Operator, + Iir_Kind_Modulus_Operator, + Iir_Kind_Remainder_Operator, + Iir_Kind_Exponentiation_Operator, + Iir_Kind_Function_Call, + Iir_Kind_Aggregate, + Iir_Kind_Parenthesis_Expression, + Iir_Kind_Qualified_Expression, + Iir_Kind_Type_Conversion, + Iir_Kind_Allocator_By_Expression, + Iir_Kind_Allocator_By_Subtype, + Iir_Kind_Selected_Element, + Iir_Kind_Dereference, + Iir_Kind_Implicit_Dereference, + Iir_Kind_Slice_Name, + Iir_Kind_Indexed_Name, + Iir_Kind_Psl_Expression, + + -- Concurrent statements. + Iir_Kind_Sensitized_Process_Statement, + Iir_Kind_Process_Statement, + Iir_Kind_Concurrent_Simple_Signal_Assignment, + Iir_Kind_Concurrent_Conditional_Signal_Assignment, + Iir_Kind_Concurrent_Selected_Signal_Assignment, + Iir_Kind_Concurrent_Assertion_Statement, + Iir_Kind_Concurrent_Procedure_Call_Statement, + Iir_Kind_Psl_Assert_Statement, + Iir_Kind_Psl_Cover_Statement, + Iir_Kind_Block_Statement, + Iir_Kind_If_Generate_Statement, + Iir_Kind_Case_Generate_Statement, + Iir_Kind_For_Generate_Statement, + Iir_Kind_Component_Instantiation_Statement, + + Iir_Kind_Psl_Default_Clock, + + Iir_Kind_Simple_Simultaneous_Statement, + + Iir_Kind_Generate_Statement_Body, + Iir_Kind_If_Generate_Else_Clause, + + -- Iir_Kind_Sequential_Statement + Iir_Kind_Simple_Signal_Assignment_Statement, + Iir_Kind_Conditional_Signal_Assignment_Statement, + Iir_Kind_Selected_Waveform_Assignment_Statement, + Iir_Kind_Null_Statement, + Iir_Kind_Assertion_Statement, + Iir_Kind_Report_Statement, + Iir_Kind_Wait_Statement, + Iir_Kind_Variable_Assignment_Statement, + Iir_Kind_Conditional_Variable_Assignment_Statement, + Iir_Kind_Return_Statement, + Iir_Kind_For_Loop_Statement, + Iir_Kind_While_Loop_Statement, + Iir_Kind_Next_Statement, + Iir_Kind_Exit_Statement, + Iir_Kind_Case_Statement, + Iir_Kind_Procedure_Call_Statement, + Iir_Kind_If_Statement, + Iir_Kind_Elsif, + + -- Names + Iir_Kind_Character_Literal, -- denoting_name + Iir_Kind_Simple_Name, -- denoting_name + Iir_Kind_Selected_Name, -- denoting_name + Iir_Kind_Operator_Symbol, -- denoting_name + Iir_Kind_Reference_Name, -- denoting_name + + Iir_Kind_External_Constant_Name, + Iir_Kind_External_Signal_Name, + Iir_Kind_External_Variable_Name, + + Iir_Kind_Selected_By_All_Name, + Iir_Kind_Parenthesis_Name, + + Iir_Kind_Package_Pathname, + Iir_Kind_Absolute_Pathname, + Iir_Kind_Relative_Pathname, + Iir_Kind_Pathname_Element, + + -- Attributes + Iir_Kind_Base_Attribute, + Iir_Kind_Subtype_Attribute, + Iir_Kind_Element_Attribute, + Iir_Kind_Left_Type_Attribute, -- type_attribute + Iir_Kind_Right_Type_Attribute, -- type_attribute + Iir_Kind_High_Type_Attribute, -- type_attribute + Iir_Kind_Low_Type_Attribute, -- type_attribute + Iir_Kind_Ascending_Type_Attribute, -- type_attribute + Iir_Kind_Image_Attribute, + Iir_Kind_Value_Attribute, + Iir_Kind_Pos_Attribute, -- scalar_type_attribute + Iir_Kind_Val_Attribute, -- scalar_type_attribute + Iir_Kind_Succ_Attribute, -- scalar_type_attribute + Iir_Kind_Pred_Attribute, -- scalar_type_attribute + Iir_Kind_Leftof_Attribute, -- scalar_type_attribute + Iir_Kind_Rightof_Attribute, -- scalar_type_attribute + Iir_Kind_Delayed_Attribute, -- signal_attribute + Iir_Kind_Stable_Attribute, -- signal_attribute + Iir_Kind_Quiet_Attribute, -- signal_attribute + Iir_Kind_Transaction_Attribute, -- signal_attribute + Iir_Kind_Event_Attribute, -- signal_value_attribute + Iir_Kind_Active_Attribute, -- signal_value_attribute + Iir_Kind_Last_Event_Attribute, -- signal_value_attribute + Iir_Kind_Last_Active_Attribute, -- signal_value_attribute + Iir_Kind_Last_Value_Attribute, -- signal_value_attribute + Iir_Kind_Driving_Attribute, -- signal_value_attribute + Iir_Kind_Driving_Value_Attribute, -- signal_value_attribute + Iir_Kind_Behavior_Attribute, + Iir_Kind_Structure_Attribute, + Iir_Kind_Simple_Name_Attribute, + Iir_Kind_Instance_Name_Attribute, + Iir_Kind_Path_Name_Attribute, + Iir_Kind_Left_Array_Attribute, -- array_attribute + Iir_Kind_Right_Array_Attribute, -- array_attribute + Iir_Kind_High_Array_Attribute, -- array_attribute + Iir_Kind_Low_Array_Attribute, -- array_attribute + Iir_Kind_Length_Array_Attribute, -- array_attribute + Iir_Kind_Ascending_Array_Attribute, -- array_attribute + Iir_Kind_Range_Array_Attribute, -- array_attribute + Iir_Kind_Reverse_Range_Array_Attribute, -- array_attribute + + Iir_Kind_Attribute_Name + ); + + -- Return TRUE iif K is K1 or K is K2. + function Kind_In (K : Iir_Kind; K1, K2 : Iir_Kind) return Boolean; + pragma Inline (Kind_In); + + type Iir_Signal_Kind is + ( + Iir_Register_Kind, + Iir_Bus_Kind + ); + + -- If the order of elements in IIR_MODE is modified, also modify the + -- order in GRT (types and rtis). + type Iir_Mode is + ( + Iir_Unknown_Mode, + Iir_Linkage_Mode, + Iir_Buffer_Mode, + Iir_Out_Mode, + Iir_Inout_Mode, + Iir_In_Mode + ); + + subtype Iir_In_Modes is Iir_Mode range Iir_Inout_Mode .. Iir_In_Mode; + subtype Iir_Out_Modes is Iir_Mode range Iir_Out_Mode .. Iir_Inout_Mode; + subtype Iir_Parameter_Modes is Iir_Mode range Iir_Out_Mode .. Iir_In_Mode; + + type Iir_Delay_Mechanism is + ( + Iir_Inertial_Delay, + Iir_Transport_Delay + ); + + type Iir_Direction is + ( + Iir_To, + Iir_Downto + ); + + -- LRM93 2.7 (conformance rules). + -- To keep this simple, the layout is stored as a bit-string. + -- Fields are: + -- Get_Has_type: set if the interface is the last of a list. + -- Get_Has_Mode: set if mode is explicit + -- has_class: set if class (constant, signal, variable or file) is explicit + -- + -- Exemple: + -- procedure P ( A, B: integer; + -- constant C: in bit; + -- D: inout bit; + -- variable E: bit; + -- F, G: in bit; + -- constant H, I: bit; + -- constant J, K: in bit); + -- A: + -- B: has_type + -- C, has_class, has_mode, has_type + -- D: has_mode, has_type + -- E, has_class, has_type + -- F: has_mode + -- G: has_mode, has_type + -- H: has_class + -- I: has_class, has_type + -- J: has_class, has_mode + -- K: has_class, has_mode, has_type + + -- List of predefined operators and functions. + type Iir_Predefined_Functions is + ( + Iir_Predefined_Error, + + -- Predefined operators for BOOLEAN type + + -- LRM08 9.2.2 Logical Operators + Iir_Predefined_Boolean_And, + Iir_Predefined_Boolean_Or, + Iir_Predefined_Boolean_Nand, + Iir_Predefined_Boolean_Nor, + Iir_Predefined_Boolean_Xor, + Iir_Predefined_Boolean_Xnor, + Iir_Predefined_Boolean_Not, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Boolean_Rising_Edge, + Iir_Predefined_Boolean_Falling_Edge, + + -- Predefined operators for any enumeration type. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Enum_Equality, + Iir_Predefined_Enum_Inequality, + Iir_Predefined_Enum_Less, + Iir_Predefined_Enum_Less_Equal, + Iir_Predefined_Enum_Greater, + Iir_Predefined_Enum_Greater_Equal, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Enum_Minimum, + Iir_Predefined_Enum_Maximum, + Iir_Predefined_Enum_To_String, + + -- Predefined operators for BIT type. + + -- LRM08 9.2.2 Logical Operators + Iir_Predefined_Bit_And, + Iir_Predefined_Bit_Or, + Iir_Predefined_Bit_Nand, + Iir_Predefined_Bit_Nor, + Iir_Predefined_Bit_Xor, + Iir_Predefined_Bit_Xnor, + Iir_Predefined_Bit_Not, + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Bit_Match_Equality, + Iir_Predefined_Bit_Match_Inequality, + Iir_Predefined_Bit_Match_Less, + Iir_Predefined_Bit_Match_Less_Equal, + Iir_Predefined_Bit_Match_Greater, + Iir_Predefined_Bit_Match_Greater_Equal, + + -- LRM08 9.2.9 Condition operator + Iir_Predefined_Bit_Condition, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Bit_Rising_Edge, + Iir_Predefined_Bit_Falling_Edge, + + -- Predefined operators for any integer type. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Integer_Equality, + Iir_Predefined_Integer_Inequality, + Iir_Predefined_Integer_Less, + Iir_Predefined_Integer_Less_Equal, + Iir_Predefined_Integer_Greater, + Iir_Predefined_Integer_Greater_Equal, + + -- LRM08 9.2.6 Sign operators + Iir_Predefined_Integer_Identity, + Iir_Predefined_Integer_Negation, + + -- LRM08 9.2.8 Miscellaneous operators + Iir_Predefined_Integer_Absolute, + + -- LRM08 9.2.5 Adding operators + Iir_Predefined_Integer_Plus, + Iir_Predefined_Integer_Minus, + + -- LRM08 9.2.7 Multiplying operators + Iir_Predefined_Integer_Mul, + Iir_Predefined_Integer_Div, + Iir_Predefined_Integer_Mod, + Iir_Predefined_Integer_Rem, + + -- LRM08 9.2.8 Miscellaneous operators + Iir_Predefined_Integer_Exp, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Integer_Minimum, + Iir_Predefined_Integer_Maximum, + Iir_Predefined_Integer_To_String, + + -- Predefined operators for any floating type. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Floating_Equality, + Iir_Predefined_Floating_Inequality, + Iir_Predefined_Floating_Less, + Iir_Predefined_Floating_Less_Equal, + Iir_Predefined_Floating_Greater, + Iir_Predefined_Floating_Greater_Equal, + + -- LRM08 9.2.6 Sign operators + Iir_Predefined_Floating_Identity, + Iir_Predefined_Floating_Negation, + + -- LRM08 9.2.8 Miscellaneous operators + Iir_Predefined_Floating_Absolute, + + -- LRM08 9.2.5 Adding operators + Iir_Predefined_Floating_Plus, + Iir_Predefined_Floating_Minus, + + -- LRM08 9.2.7 Multiplying operators + Iir_Predefined_Floating_Mul, + Iir_Predefined_Floating_Div, + + -- LRM08 9.2.8 Miscellaneous operators + Iir_Predefined_Floating_Exp, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Floating_Minimum, + Iir_Predefined_Floating_Maximum, + Iir_Predefined_Floating_To_String, + Iir_Predefined_Real_To_String_Digits, + Iir_Predefined_Real_To_String_Format, + + -- Predefined operator for universal types. + + -- LRM08 9.2.7 Multiplying operators + Iir_Predefined_Universal_R_I_Mul, + Iir_Predefined_Universal_I_R_Mul, + Iir_Predefined_Universal_R_I_Div, + + -- Predefined operators for physical types. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Physical_Equality, + Iir_Predefined_Physical_Inequality, + Iir_Predefined_Physical_Less, + Iir_Predefined_Physical_Less_Equal, + Iir_Predefined_Physical_Greater, + Iir_Predefined_Physical_Greater_Equal, + + -- LRM08 9.2.6 Sign operators + Iir_Predefined_Physical_Identity, + Iir_Predefined_Physical_Negation, + + -- LRM08 9.2.8 Miscellaneous operators + Iir_Predefined_Physical_Absolute, + + -- LRM08 9.2.5 Adding operators + Iir_Predefined_Physical_Plus, + Iir_Predefined_Physical_Minus, + + -- LRM08 9.2.7 Multiplying operators + Iir_Predefined_Physical_Integer_Mul, + Iir_Predefined_Physical_Real_Mul, + Iir_Predefined_Integer_Physical_Mul, + Iir_Predefined_Real_Physical_Mul, + Iir_Predefined_Physical_Integer_Div, + Iir_Predefined_Physical_Real_Div, + Iir_Predefined_Physical_Physical_Div, + + -- LRM08 5.2.6 Predefined operations on scalar types. + Iir_Predefined_Physical_Minimum, + Iir_Predefined_Physical_Maximum, + Iir_Predefined_Physical_To_String, + Iir_Predefined_Time_To_String_Unit, + + -- Predefined operators for access. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Access_Equality, + Iir_Predefined_Access_Inequality, + + -- Predefined operators for record. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Record_Equality, + Iir_Predefined_Record_Inequality, + + -- Predefined operators for array. + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Array_Equality, + Iir_Predefined_Array_Inequality, + Iir_Predefined_Array_Less, + Iir_Predefined_Array_Less_Equal, + Iir_Predefined_Array_Greater, + Iir_Predefined_Array_Greater_Equal, + + -- LRM08 9.2.5 Adding operators + Iir_Predefined_Array_Array_Concat, + Iir_Predefined_Array_Element_Concat, + Iir_Predefined_Element_Array_Concat, + Iir_Predefined_Element_Element_Concat, + + -- LRM08 5.3.2.4 Predefined operations on array types + Iir_Predefined_Array_Minimum, + Iir_Predefined_Array_Maximum, + Iir_Predefined_Vector_Minimum, + Iir_Predefined_Vector_Maximum, + + -- LRM08 9.2.4 Shift operators + Iir_Predefined_Array_Sll, + Iir_Predefined_Array_Srl, + Iir_Predefined_Array_Sla, + Iir_Predefined_Array_Sra, + Iir_Predefined_Array_Rol, + Iir_Predefined_Array_Ror, + + -- LRM08 9.2.2 Logical operators + -- Predefined operators for one dimensional array. + -- For bit and boolean type, the operations are the same. To be + -- neutral, we use TF (for True/False) instead of Bit, Boolean or + -- Logic. + Iir_Predefined_TF_Array_And, + Iir_Predefined_TF_Array_Or, + Iir_Predefined_TF_Array_Nand, + Iir_Predefined_TF_Array_Nor, + Iir_Predefined_TF_Array_Xor, + Iir_Predefined_TF_Array_Xnor, + Iir_Predefined_TF_Array_Not, + + -- LRM08 9.2.2 Logical operators + Iir_Predefined_TF_Reduction_And, + Iir_Predefined_TF_Reduction_Or, + Iir_Predefined_TF_Reduction_Nand, + Iir_Predefined_TF_Reduction_Nor, + Iir_Predefined_TF_Reduction_Xor, + Iir_Predefined_TF_Reduction_Xnor, + Iir_Predefined_TF_Reduction_Not, + + -- LRM08 9.2.2 Logical operators + Iir_Predefined_TF_Array_Element_And, + Iir_Predefined_TF_Element_Array_And, + Iir_Predefined_TF_Array_Element_Or, + Iir_Predefined_TF_Element_Array_Or, + Iir_Predefined_TF_Array_Element_Nand, + Iir_Predefined_TF_Element_Array_Nand, + Iir_Predefined_TF_Array_Element_Nor, + Iir_Predefined_TF_Element_Array_Nor, + Iir_Predefined_TF_Array_Element_Xor, + Iir_Predefined_TF_Element_Array_Xor, + Iir_Predefined_TF_Array_Element_Xnor, + Iir_Predefined_TF_Element_Array_Xnor, + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Bit_Array_Match_Equality, + Iir_Predefined_Bit_Array_Match_Inequality, + + -- LRM08 5.3.2.4 Predefined operations on array types + Iir_Predefined_Array_Char_To_String, + Iir_Predefined_Bit_Vector_To_Ostring, + Iir_Predefined_Bit_Vector_To_Hstring, + + -- LRM08 9.2.3 Relational Operators + -- IEEE.Std_Logic_1164.Std_Ulogic + Iir_Predefined_Std_Ulogic_Match_Equality, + Iir_Predefined_Std_Ulogic_Match_Inequality, + Iir_Predefined_Std_Ulogic_Match_Less, + Iir_Predefined_Std_Ulogic_Match_Less_Equal, + Iir_Predefined_Std_Ulogic_Match_Greater, + Iir_Predefined_Std_Ulogic_Match_Greater_Equal, + + -- LRM08 9.2.3 Relational Operators + Iir_Predefined_Std_Ulogic_Array_Match_Equality, + Iir_Predefined_Std_Ulogic_Array_Match_Inequality, + + -- -- Predefined attribute functions. + -- Iir_Predefined_Attribute_Image, + -- Iir_Predefined_Attribute_Value, + -- Iir_Predefined_Attribute_Pos, + -- Iir_Predefined_Attribute_Val, + -- Iir_Predefined_Attribute_Succ, + -- Iir_Predefined_Attribute_Pred, + -- Iir_Predefined_Attribute_Leftof, + -- Iir_Predefined_Attribute_Rightof, + -- Iir_Predefined_Attribute_Left, + -- Iir_Predefined_Attribute_Right, + -- Iir_Predefined_Attribute_Event, + -- Iir_Predefined_Attribute_Active, + -- Iir_Predefined_Attribute_Last_Event, + -- Iir_Predefined_Attribute_Last_Active, + -- Iir_Predefined_Attribute_Last_Value, + -- Iir_Predefined_Attribute_Driving, + -- Iir_Predefined_Attribute_Driving_Value, + + -- Impure subprograms. + + -- LRM08 5.4.3 Allocation and deallocation of objects + Iir_Predefined_Deallocate, + + -- LRM08 5.5.2 File operations + Iir_Predefined_File_Open, + Iir_Predefined_File_Open_Status, + Iir_Predefined_File_Close, + Iir_Predefined_Read, + Iir_Predefined_Read_Length, + Iir_Predefined_Flush, + Iir_Predefined_Write, + Iir_Predefined_Endfile, + + -- Misc impure functions. + Iir_Predefined_Now_Function, + + -- A not predefined and not known function. User function. + Iir_Predefined_None, + + -- Defined in package ieee.std_logic_1164 + + -- Std_Ulogic operations. + Iir_Predefined_Ieee_1164_Scalar_And, + Iir_Predefined_Ieee_1164_Scalar_Nand, + Iir_Predefined_Ieee_1164_Scalar_Or, + Iir_Predefined_Ieee_1164_Scalar_Nor, + Iir_Predefined_Ieee_1164_Scalar_Xor, + Iir_Predefined_Ieee_1164_Scalar_Xnor, + Iir_Predefined_Ieee_1164_Scalar_Not, + + -- Std_Logic_Vector or Std_Ulogic_Vector operations. + -- Length of the result is the length of the left operand. + Iir_Predefined_Ieee_1164_Vector_And, + Iir_Predefined_Ieee_1164_Vector_Nand, + Iir_Predefined_Ieee_1164_Vector_Or, + Iir_Predefined_Ieee_1164_Vector_Nor, + Iir_Predefined_Ieee_1164_Vector_Xor, + Iir_Predefined_Ieee_1164_Vector_Xnor, + Iir_Predefined_Ieee_1164_Vector_Not, + + -- Numeric_Std. + -- Abbreviations: + -- Uns: Unsigned, Sgn: Signed, Nat: Natural, Int: Integer. + Iir_Predefined_Ieee_Numeric_Std_Add_Uns_Uns, + Iir_Predefined_Ieee_Numeric_Std_Add_Uns_Nat, + Iir_Predefined_Ieee_Numeric_Std_Add_Nat_Uns, + Iir_Predefined_Ieee_Numeric_Std_Add_Sgn_Sgn, + Iir_Predefined_Ieee_Numeric_Std_Add_Sgn_Int, + Iir_Predefined_Ieee_Numeric_Std_Add_Int_Sgn, + + Iir_Predefined_Ieee_Numeric_Std_Eq_Uns_Uns, + Iir_Predefined_Ieee_Numeric_Std_Eq_Uns_Nat, + Iir_Predefined_Ieee_Numeric_Std_Eq_Nat_Uns, + Iir_Predefined_Ieee_Numeric_Std_Eq_Sgn_Sgn, + Iir_Predefined_Ieee_Numeric_Std_Eq_Sgn_Int, + Iir_Predefined_Ieee_Numeric_Std_Eq_Int_Sgn + ); + + -- Return TRUE iff FUNC is a short-cut predefined function. + function Iir_Predefined_Shortcut_P (Func : Iir_Predefined_Functions) + return Boolean; + + -- Pure and impure functions form a partition of implicit functions. + subtype Iir_Predefined_Pure_Functions is Iir_Predefined_Functions range + Iir_Predefined_Boolean_And .. + Iir_Predefined_Functions'Pred (Iir_Predefined_Deallocate); + subtype Iir_Predefined_Impure_Functions is Iir_Predefined_Functions range + Iir_Predefined_Deallocate .. + Iir_Predefined_Functions'Pred (Iir_Predefined_None); + + subtype Iir_Predefined_TF_Array_Functions + is Iir_Predefined_Functions range + Iir_Predefined_TF_Array_And .. + --Iir_Predefined_TF_Array_Or + --Iir_Predefined_TF_Array_Nand + --Iir_Predefined_TF_Array_Nor + --Iir_Predefined_TF_Array_Xor + --Iir_Predefined_TF_Array_Xnor + Iir_Predefined_TF_Array_Not; + + subtype Iir_Predefined_Dyadic_TF_Array_Functions + is Iir_Predefined_Functions range + Iir_Predefined_TF_Array_And .. + --Iir_Predefined_TF_Array_Or + --Iir_Predefined_TF_Array_Nand + --Iir_Predefined_TF_Array_Nor + --Iir_Predefined_TF_Array_Xor + Iir_Predefined_TF_Array_Xnor; + + subtype Iir_Predefined_Shift_Functions is Iir_Predefined_Functions range + Iir_Predefined_Array_Sll .. + --Iir_Predefined_Array_Srl + --Iir_Predefined_Array_Sla + --Iir_Predefined_Array_Sra + --Iir_Predefined_Array_Rol + Iir_Predefined_Array_Ror; + + subtype Iir_Predefined_Concat_Functions is Iir_Predefined_Functions range + Iir_Predefined_Array_Array_Concat .. + --Iir_Predefined_Array_Element_Concat + --Iir_Predefined_Element_Array_Concat + Iir_Predefined_Element_Element_Concat; + + subtype Iir_Predefined_Std_Ulogic_Match_Ordering_Functions is + Iir_Predefined_Functions range + Iir_Predefined_Std_Ulogic_Match_Less .. + --Iir_Predefined_Std_Ulogic_Match_Less_Equal + --Iir_Predefined_Std_Ulogic_Match_Greater + Iir_Predefined_Std_Ulogic_Match_Greater_Equal; + + -- Subtype for implicit subprograms. These have no corresponding bodies. + -- Implicit and explicit subprograms are partitions: they are disjoint + -- and cover all the cases. + subtype Iir_Predefined_Implicit is Iir_Predefined_Functions range + Iir_Predefined_Error .. + Iir_Predefined_Functions'Pred (Iir_Predefined_None); + + -- Subtype for exlicit subprograms. These require a corresponding body. + subtype Iir_Predefined_Explicit is Iir_Predefined_Functions range + Iir_Predefined_None .. + Iir_Predefined_Functions'Last; + + -- Explicit known subprograms (from ieee) + subtype Iir_Predefined_IEEE_Explicit is Iir_Predefined_Functions range + Iir_Predefined_Functions'Succ (Iir_Predefined_None) .. + Iir_Predefined_Functions'Last; + + -- Staticness as defined by LRM93 6.1 and 7.4 + type Iir_Staticness is + ( + Unknown, + None, + Globally, + Locally + ); + + -- Staticness as defined by LRM93 6.1 and 7.4 + function Min (L,R: Iir_Staticness) return Iir_Staticness renames + Iir_Staticness'Min; + + -- Purity state of a procedure. + -- PURE means the procedure is pure. + -- IMPURE means the procedure is impure: it references a file object or + -- a signal or a variable declared outside a subprogram, or it calls an + -- impure subprogram. + -- MAYBE_IMPURE means the procedure references a signal or a variable + -- declared in a subprogram. The relative position of a parent has to + -- be considered. The list of callees must not be checked. + -- UNKNOWN is like MAYBE_IMPURE, but the subprogram has a list of callees + -- whose purity is not yet known. As a consequence, a direct or + -- indirect call to such a procedure cannot be proved to be allowed + -- in a pure function. + -- Note: UNKNOWN is the default state. At any impure call, the state is + -- set to IMPURE. Only at the end of body analysis and only if the + -- callee list is empty, the state can be set either to MAYBE_IMPURE or + -- PURE. + type Iir_Pure_State is (Unknown, Pure, Maybe_Impure, Impure); + + -- State of subprograms for validity of use in all-sensitized process. + -- INVALID_SIGNAL means that the subprogram is in a package and + -- reads a signal or that the subprogram calls (indirectly) such + -- a subprogram. In this case, the subprogram cannot be called from + -- an all-sensitized process. + -- READ_SIGNAL means that the subprogram reads a signal and is defined + -- in an entity or an architecture or that the subprogram calls + -- (indirectly) such a subprogram. In this case, the subprogram can + -- be called from an all-sensitized process and the reference will be + -- part of the sensitivity list. + -- NO_SIGNAL means that the subprogram doesn't read any signal and don't + -- call such a subprogram. The subprogram can be called from an + -- all-sensitized process but there is no need to track this call. + -- UNKNOWN means that the state is not yet defined. + type Iir_All_Sensitized is + (Unknown, No_Signal, Read_Signal, Invalid_Signal); + + -- Constraint state of a type. + -- See LRM08 5.1 for definition. + type Iir_Constraint is + ( + Unconstrained, + Partially_Constrained, + Fully_Constrained + ); + + -- The kind of an inteface list. + type Interface_Kind_Type is + ( + Generic_Interface_List, + Port_Interface_List, + Procedure_Parameter_Interface_List, + Function_Parameter_Interface_List + ); + subtype Parameter_Interface_List is Interface_Kind_Type range + Procedure_Parameter_Interface_List .. + Function_Parameter_Interface_List; + + --------------- + -- subranges -- + --------------- + -- These subtypes are used for ranges, for `case' statments or for the `in' + -- operator. + + -- In order to be correctly parsed by check_iir, the declaration must + -- follow these rules: + -- * the first line must be "subtype Iir_Kinds_NAME is Iir_Kind_range" + -- * the second line must be the lowest bound of the range, followed by ".. + -- * comments line + -- * the last line must be the highest bound of the range, followed by ";" + + subtype Iir_Kinds_Library_Unit is Iir_Kind range + Iir_Kind_Entity_Declaration .. + --Iir_Kind_Configuration_Declaration + --Iir_Kind_Context_Declaration + --Iir_Kind_Package_Declaration + --Iir_Kind_Package_Instantiation_Declaration + --Iir_Kind_Package_Body + Iir_Kind_Architecture_Body; + + subtype Iir_Kinds_Primary_Unit is Iir_Kind range + Iir_Kind_Entity_Declaration .. + --Iir_Kind_Configuration_Declaration + --Iir_Kind_Context_Declaration + --Iir_Kind_Package_Declaration + Iir_Kind_Package_Instantiation_Declaration; + + subtype Iir_Kinds_Secondary_Unit is Iir_Kind range + Iir_Kind_Package_Body .. + Iir_Kind_Architecture_Body; + + subtype Iir_Kinds_Package_Declaration is Iir_Kind range + Iir_Kind_Package_Declaration .. + Iir_Kind_Package_Instantiation_Declaration; + + -- Note: does not include iir_kind_enumeration_literal since it is + -- considered as a declaration. + subtype Iir_Kinds_Literal is Iir_Kind range + Iir_Kind_Integer_Literal .. + --Iir_Kind_Floating_Point_Literal + --Iir_Kind_Null_Literal + --Iir_Kind_String_Literal8 + --Iir_Kind_Physical_Int_Literal + Iir_Kind_Physical_Fp_Literal; + + subtype Iir_Kinds_Physical_Literal is Iir_Kind range + Iir_Kind_Physical_Int_Literal .. + Iir_Kind_Physical_Fp_Literal; + + subtype Iir_Kinds_Array_Type_Definition is Iir_Kind range + Iir_Kind_Array_Type_Definition .. + Iir_Kind_Array_Subtype_Definition; + + subtype Iir_Kinds_Type_And_Subtype_Definition is Iir_Kind range + Iir_Kind_Access_Type_Definition .. + --Iir_Kind_Incomplete_Type_Definition + --Iir_Kind_Interface_Type_Definition + --Iir_Kind_File_Type_Definition + --Iir_Kind_Protected_Type_Declaration + --Iir_Kind_Record_Type_Definition + --Iir_Kind_Array_Type_Definition + --Iir_Kind_Array_Subtype_Definition + --Iir_Kind_Record_Subtype_Definition + --Iir_Kind_Access_Subtype_Definition + --Iir_Kind_Physical_Subtype_Definition + --Iir_Kind_Floating_Subtype_Definition + --Iir_Kind_Integer_Subtype_Definition + --Iir_Kind_Enumeration_Subtype_Definition + --Iir_Kind_Enumeration_Type_Definition + --Iir_Kind_Integer_Type_Definition + --Iir_Kind_Floating_Type_Definition + Iir_Kind_Physical_Type_Definition; + + subtype Iir_Kinds_Subtype_Definition is Iir_Kind range + Iir_Kind_Array_Subtype_Definition .. + --Iir_Kind_Record_Subtype_Definition + --Iir_Kind_Access_Subtype_Definition + --Iir_Kind_Physical_Subtype_Definition + --Iir_Kind_Floating_Subtype_Definition + --Iir_Kind_Integer_Subtype_Definition + Iir_Kind_Enumeration_Subtype_Definition; + + subtype Iir_Kinds_Scalar_Subtype_Definition is Iir_Kind range + Iir_Kind_Physical_Subtype_Definition .. + --Iir_Kind_Floating_Subtype_Definition + --Iir_Kind_Integer_Subtype_Definition + Iir_Kind_Enumeration_Subtype_Definition; + + subtype Iir_Kinds_Scalar_Type_And_Subtype_Definition is Iir_Kind range + Iir_Kind_Physical_Subtype_Definition .. + --Iir_Kind_Floating_Subtype_Definition + --Iir_Kind_Integer_Subtype_Definition + --Iir_Kind_Enumeration_Subtype_Definition + --Iir_Kind_Enumeration_Type_Definition + --Iir_Kind_Integer_Type_Definition + --Iir_Kind_Floating_Type_Definition + Iir_Kind_Physical_Type_Definition; + + subtype Iir_Kinds_Range_Type_Definition is Iir_Kind range + Iir_Kind_Physical_Subtype_Definition .. + --Iir_Kind_Floating_Subtype_Definition + --Iir_Kind_Integer_Subtype_Definition + --Iir_Kind_Enumeration_Subtype_Definition + Iir_Kind_Enumeration_Type_Definition; + + subtype Iir_Kinds_Discrete_Type_Definition is Iir_Kind range + Iir_Kind_Integer_Subtype_Definition .. + --Iir_Kind_Enumeration_Subtype_Definition + --Iir_Kind_Enumeration_Type_Definition + Iir_Kind_Integer_Type_Definition; + +-- subtype Iir_Kinds_Discrete_Subtype_Definition is Iir_Kind range +-- Iir_Kind_Integer_Subtype_Definition .. +-- Iir_Kind_Enumeration_Subtype_Definition; + + subtype Iir_Kinds_Composite_Type_Definition is Iir_Kind range + Iir_Kind_Record_Type_Definition .. + --Iir_Kind_Array_Type_Definition + --Iir_Kind_Array_Subtype_Definition + Iir_Kind_Record_Subtype_Definition; + + subtype Iir_Kinds_Composite_Subtype_Definition is Iir_Kind range + Iir_Kind_Array_Subtype_Definition .. + Iir_Kind_Record_Subtype_Definition; + + subtype Iir_Kinds_Type_Declaration is Iir_Kind range + Iir_Kind_Type_Declaration .. + --Iir_Kind_Anonymous_Type_Declaration + Iir_Kind_Subtype_Declaration; + + subtype Iir_Kinds_Nonoverloadable_Declaration is Iir_Kind range + Iir_Kind_Type_Declaration .. + Iir_Kind_Element_Declaration; + + subtype Iir_Kinds_Monadic_Operator is Iir_Kind range + Iir_Kind_Identity_Operator .. + --Iir_Kind_Negation_Operator + --Iir_Kind_Absolute_Operator + --Iir_Kind_Not_Operator + --Iir_Kind_Implicit_Condition_Operator + --Iir_Kind_Condition_Operator + --Iir_Kind_Reduction_And_Operator + --Iir_Kind_Reduction_Or_Operator + --Iir_Kind_Reduction_Nand_Operator + --Iir_Kind_Reduction_Nor_Operator + --Iir_Kind_Reduction_Xor_Operator + Iir_Kind_Reduction_Xnor_Operator; + + subtype Iir_Kinds_Dyadic_Operator is Iir_Kind range + Iir_Kind_And_Operator .. + --Iir_Kind_Or_Operator + --Iir_Kind_Nand_Operator + --Iir_Kind_Nor_Operator + --Iir_Kind_Xor_Operator + --Iir_Kind_Xnor_Operator + --Iir_Kind_Equality_Operator + --Iir_Kind_Inequality_Operator + --Iir_Kind_Less_Than_Operator + --Iir_Kind_Less_Than_Or_Equal_Operator + --Iir_Kind_Greater_Than_Operator + --Iir_Kind_Greater_Than_Or_Equal_Operator + --Iir_Kind_Match_Equality_Operator + --Iir_Kind_Match_Inequality_Operator + --Iir_Kind_Match_Less_Than_Operator + --Iir_Kind_Match_Less_Than_Or_Equal_Operator + --Iir_Kind_Match_Greater_Than_Operator + --Iir_Kind_Match_Greater_Than_Or_Equal_Operator + --Iir_Kind_Sll_Operator + --Iir_Kind_Sla_Operator + --Iir_Kind_Srl_Operator + --Iir_Kind_Sra_Operator + --Iir_Kind_Rol_Operator + --Iir_Kind_Ror_Operator + --Iir_Kind_Addition_Operator + --Iir_Kind_Substraction_Operator + --Iir_Kind_Concatenation_Operator + --Iir_Kind_Multiplication_Operator + --Iir_Kind_Division_Operator + --Iir_Kind_Modulus_Operator + --Iir_Kind_Remainder_Operator + Iir_Kind_Exponentiation_Operator; + + subtype Iir_Kinds_Functions_And_Literals is Iir_Kind range + Iir_Kind_Enumeration_Literal .. + Iir_Kind_Function_Declaration; + + subtype Iir_Kinds_Subprogram_Declaration is Iir_Kind range + Iir_Kind_Function_Declaration .. + Iir_Kind_Procedure_Declaration; + + subtype Iir_Kinds_Subprogram_Body is Iir_Kind range + Iir_Kind_Function_Body .. + Iir_Kind_Procedure_Body; + + subtype Iir_Kinds_Process_Statement is Iir_Kind range + Iir_Kind_Sensitized_Process_Statement .. + Iir_Kind_Process_Statement; + + subtype Iir_Kinds_Interface_Object_Declaration is Iir_Kind range + Iir_Kind_Interface_Constant_Declaration .. + --Iir_Kind_Interface_Variable_Declaration + --Iir_Kind_Interface_Signal_Declaration + Iir_Kind_Interface_File_Declaration; + + subtype Iir_Kinds_Interface_Subprogram_Declaration is Iir_Kind range + Iir_Kind_Interface_Function_Declaration .. + Iir_Kind_Interface_Procedure_Declaration; + + subtype Iir_Kinds_Interface_Declaration is Iir_Kind range + Iir_Kind_Interface_Constant_Declaration .. + --Iir_Kind_Interface_Variable_Declaration + --Iir_Kind_Interface_Signal_Declaration + --Iir_Kind_Interface_File_Declaration + --Iir_Kind_Interface_Type_Declaration + --Iir_Kind_Interface_Package_Declaration + --Iir_Kind_Interface_Function_Declaration + Iir_Kind_Interface_Procedure_Declaration; + + subtype Iir_Kinds_Object_Declaration is Iir_Kind range + Iir_Kind_Object_Alias_Declaration .. + --Iir_Kind_File_Declaration + --Iir_Kind_Guard_Signal_Declaration + --Iir_Kind_Signal_Declaration + --Iir_Kind_Variable_Declaration + --Iir_Kind_Constant_Declaration + --Iir_Kind_Iterator_Declaration + --Iir_Kind_Interface_Constant_Declaration + --Iir_Kind_Interface_Variable_Declaration + --Iir_Kind_Interface_Signal_Declaration + Iir_Kind_Interface_File_Declaration; + + subtype Iir_Kinds_Branch_Quantity_Declaration is Iir_Kind range + Iir_Kind_Across_Quantity_Declaration .. + Iir_Kind_Through_Quantity_Declaration; + + subtype Iir_Kinds_Quantity_Declaration is Iir_Kind range + Iir_Kind_Free_Quantity_Declaration .. + --Iir_Kind_Across_Quantity_Declaration + Iir_Kind_Through_Quantity_Declaration; + + subtype Iir_Kinds_Non_Alias_Object_Declaration is Iir_Kind range + Iir_Kind_File_Declaration .. + --Iir_Kind_Guard_Signal_Declaration + --Iir_Kind_Signal_Declaration + --Iir_Kind_Variable_Declaration + --Iir_Kind_Constant_Declaration + --Iir_Kind_Iterator_Declaration + --Iir_Kind_Interface_Constant_Declaration + --Iir_Kind_Interface_Variable_Declaration + --Iir_Kind_Interface_Signal_Declaration + Iir_Kind_Interface_File_Declaration; + + subtype Iir_Kinds_Association_Element is Iir_Kind range + Iir_Kind_Association_Element_By_Expression .. + --Iir_Kind_Association_Element_By_Individual + Iir_Kind_Association_Element_Open; + + subtype Iir_Kinds_Choice is Iir_Kind range + Iir_Kind_Choice_By_Range .. + --Iir_Kind_Choice_By_Expression + --Iir_Kind_Choice_By_Others + --Iir_Kind_Choice_By_None + Iir_Kind_Choice_By_Name; + + -- Choices in a case statement. + subtype Iir_Kinds_Case_Choice is Iir_Kind range + Iir_Kind_Choice_By_Range .. + --Iir_Kind_Choice_By_Expression + Iir_Kind_Choice_By_Others; + + -- Choices in array aggregate. + subtype Iir_Kinds_Array_Choice is Iir_Kind range + Iir_Kind_Choice_By_Range .. + --Iir_Kind_Choice_By_Expression + --Iir_Kind_Choice_By_Others + Iir_Kind_Choice_By_None; + + -- Choices in record aggregate. + subtype Iir_Kinds_Record_Choice is Iir_Kind range + Iir_Kind_Choice_By_Others .. + --Iir_Kind_Choice_By_None + Iir_Kind_Choice_By_Name; + + subtype Iir_Kinds_Entity_Aspect is Iir_Kind range + Iir_Kind_Entity_Aspect_Entity .. + --Iir_Kind_Entity_Aspect_Configuration + Iir_Kind_Entity_Aspect_Open; + + subtype Iir_Kinds_Denoting_Name is Iir_Kind range + Iir_Kind_Character_Literal .. + --Iir_Kind_Simple_Name + --Iir_Kind_Selected_Name + --Iir_Kind_Operator_Symbol + Iir_Kind_Reference_Name; + + subtype Iir_Kinds_Denoting_And_External_Name is Iir_Kind range + Iir_Kind_Character_Literal .. + --Iir_Kind_Simple_Name + --Iir_Kind_Selected_Name + --Iir_Kind_Operator_Symbol + --Iir_Kind_Reference_Name + --Iir_Kind_External_Constant_Name + --Iir_Kind_External_Signal_Name + Iir_Kind_External_Variable_Name; + + subtype Iir_Kinds_Name is Iir_Kind range + Iir_Kind_Character_Literal .. + --Iir_Kind_Simple_Name + --Iir_Kind_Selected_Name + --Iir_Kind_Operator_Symbol + --Iir_Kind_Reference_Name + --Iir_Kind_External_Constant_Name + --Iir_Kind_External_Signal_Name + --Iir_Kind_External_Variable_Name + --Iir_Kind_Selected_By_All_Name + Iir_Kind_Parenthesis_Name; + + subtype Iir_Kinds_Dereference is Iir_Kind range + Iir_Kind_Dereference .. + Iir_Kind_Implicit_Dereference; + + subtype Iir_Kinds_External_Name is Iir_Kind range + Iir_Kind_External_Constant_Name .. + --Iir_Kind_External_Signal_Name + Iir_Kind_External_Variable_Name; + + -- Any attribute that is an expression. + subtype Iir_Kinds_Expression_Attribute is Iir_Kind range + Iir_Kind_Left_Type_Attribute .. + --Iir_Kind_Right_Type_Attribute + --Iir_Kind_High_Type_Attribute + --Iir_Kind_Low_Type_Attribute + --Iir_Kind_Ascending_Type_Attribute + --Iir_Kind_Image_Attribute + --Iir_Kind_Value_Attribute + --Iir_Kind_Pos_Attribute + --Iir_Kind_Val_Attribute + --Iir_Kind_Succ_Attribute + --Iir_Kind_Pred_Attribute + --Iir_Kind_Leftof_Attribute + --Iir_Kind_Rightof_Attribute + --Iir_Kind_Delayed_Attribute + --Iir_Kind_Stable_Attribute + --Iir_Kind_Quiet_Attribute + --Iir_Kind_Transaction_Attribute + --Iir_Kind_Event_Attribute + --Iir_Kind_Active_Attribute + --Iir_Kind_Last_Event_Attribute + --Iir_Kind_Last_Active_Attribute + --Iir_Kind_Last_Value_Attribute + --Iir_Kind_Driving_Attribute + --Iir_Kind_Driving_Value_Attribute + --Iir_Kind_Behavior_Attribute + --Iir_Kind_Structure_Attribute + --Iir_Kind_Simple_Name_Attribute + --Iir_Kind_Instance_Name_Attribute + --Iir_Kind_Path_Name_Attribute + --Iir_Kind_Left_Array_Attribute + --Iir_Kind_Right_Array_Attribute + --Iir_Kind_High_Array_Attribute + --Iir_Kind_Low_Array_Attribute + --Iir_Kind_Length_Array_Attribute + Iir_Kind_Ascending_Array_Attribute; + + -- All the attributes. + subtype Iir_Kinds_Attribute is Iir_Kind range + Iir_Kind_Base_Attribute .. + Iir_Kind_Reverse_Range_Array_Attribute; + + -- Attributes of scalar types. + subtype Iir_Kinds_Type_Attribute is Iir_Kind range + Iir_Kind_Left_Type_Attribute .. + --Iir_Kind_Right_Type_Attribute + --Iir_Kind_High_Type_Attribute + --Iir_Kind_Low_Type_Attribute + Iir_Kind_Ascending_Type_Attribute; + + -- Attributes whose result is a type. + subtype Iir_Kinds_Subtype_Attribute is Iir_Kind range + Iir_Kind_Base_Attribute .. + --Iir_Kind_Subtype_Attribute + Iir_Kind_Element_Attribute; + + subtype Iir_Kinds_Scalar_Type_Attribute is Iir_Kind range + Iir_Kind_Pos_Attribute .. + --Iir_Kind_Val_Attribute + --Iir_Kind_Succ_Attribute + --Iir_Kind_Pred_Attribute + --Iir_Kind_Leftof_Attribute + Iir_Kind_Rightof_Attribute; + + subtype Iir_Kinds_Array_Attribute is Iir_Kind range + Iir_Kind_Left_Array_Attribute .. + --Iir_Kind_Right_Array_Attribute + --Iir_Kind_High_Array_Attribute + --Iir_Kind_Low_Array_Attribute + --Iir_Kind_Length_Array_Attribute + --Iir_Kind_Ascending_Array_Attribute + --Iir_Kind_Range_Array_Attribute + Iir_Kind_Reverse_Range_Array_Attribute; + + subtype Iir_Kinds_Range_Attribute is Iir_Kind range + Iir_Kind_Range_Array_Attribute .. + Iir_Kind_Reverse_Range_Array_Attribute; + + subtype Iir_Kinds_Signal_Attribute is Iir_Kind range + Iir_Kind_Delayed_Attribute .. + --Iir_Kind_Stable_Attribute + --Iir_Kind_Quiet_Attribute + Iir_Kind_Transaction_Attribute; + + subtype Iir_Kinds_Signal_Value_Attribute is Iir_Kind range + Iir_Kind_Event_Attribute .. + --Iir_Kind_Active_Attribute + --Iir_Kind_Last_Event_Attribute + --Iir_Kind_Last_Active_Attribute + --Iir_Kind_Last_Value_Attribute + --Iir_Kind_Driving_Attribute + Iir_Kind_Driving_Value_Attribute; + + subtype Iir_Kinds_Name_Attribute is Iir_Kind range + Iir_Kind_Simple_Name_Attribute .. + --Iir_Kind_Instance_Name_Attribute + Iir_Kind_Path_Name_Attribute; + + subtype Iir_Kinds_Concurrent_Statement is Iir_Kind range + Iir_Kind_Sensitized_Process_Statement .. + --Iir_Kind_Process_Statement + --Iir_Kind_Concurrent_Simple_Signal_Assignment + --Iir_Kind_Concurrent_Conditional_Signal_Assignment + --Iir_Kind_Concurrent_Selected_Signal_Assignment + --Iir_Kind_Concurrent_Assertion_Statement + --Iir_Kind_Concurrent_Procedure_Call_Statement + --Iir_Kind_Psl_Assert_Statement + --Iir_Kind_Psl_Cover_Statement + --Iir_Kind_Block_Statement + --Iir_Kind_If_Generate_Statement + --Iir_Kind_Case_Generate_Statement + --Iir_Kind_For_Generate_Statement + --Iir_Kind_Component_Instantiation_Statement + Iir_Kind_Psl_Default_Clock; + + subtype Iir_Kinds_Simple_Concurrent_Statement is Iir_Kind range + Iir_Kind_Sensitized_Process_Statement .. + --Iir_Kind_Process_Statement + --Iir_Kind_Concurrent_Simple_Signal_Assignment + --Iir_Kind_Concurrent_Conditional_Signal_Assignment + --Iir_Kind_Concurrent_Selected_Signal_Assignment + --Iir_Kind_Concurrent_Assertion_Statement + --Iir_Kind_Concurrent_Procedure_Call_Statement + --Iir_Kind_Psl_Assert_Statement + Iir_Kind_Psl_Cover_Statement; + + subtype Iir_Kinds_Concurrent_Signal_Assignment is Iir_Kind range + Iir_Kind_Concurrent_Simple_Signal_Assignment .. + --Iir_Kind_Concurrent_Conditional_Signal_Assignment + Iir_Kind_Concurrent_Selected_Signal_Assignment; + + subtype Iir_Kinds_If_Case_Generate_Statement is Iir_Kind range + Iir_Kind_If_Generate_Statement .. + Iir_Kind_Case_Generate_Statement; + + subtype Iir_Kinds_Sequential_Statement is Iir_Kind range + Iir_Kind_Simple_Signal_Assignment_Statement .. + --Iir_Kind_Conditional_Signal_Assignment_Statement + --Iir_Kind_Selected_Waveform_Assignment_Statement + --Iir_Kind_Null_Statement + --Iir_Kind_Assertion_Statement + --Iir_Kind_Report_Statement + --Iir_Kind_Wait_Statement + --Iir_Kind_Variable_Assignment_Statement + --Iir_Kind_Conditional_Variable_Assignment_Statement + --Iir_Kind_Return_Statement + --Iir_Kind_For_Loop_Statement + --Iir_Kind_While_Loop_Statement + --Iir_Kind_Next_Statement + --Iir_Kind_Exit_Statement + --Iir_Kind_Case_Statement + --Iir_Kind_Procedure_Call_Statement + Iir_Kind_If_Statement; + + subtype Iir_Kinds_Variable_Assignment_Statement is Iir_Kind range + Iir_Kind_Variable_Assignment_Statement .. + Iir_Kind_Conditional_Variable_Assignment_Statement; + + subtype Iir_Kinds_Allocator is Iir_Kind range + Iir_Kind_Allocator_By_Expression .. + Iir_Kind_Allocator_By_Subtype; + + subtype Iir_Kinds_Clause is Iir_Kind range + Iir_Kind_Library_Clause .. + --Iir_Kind_Use_Clause + Iir_Kind_Context_Reference; + + subtype Iir_Kinds_Specification is Iir_Kind range + Iir_Kind_Attribute_Specification .. + --Iir_Kind_Disconnection_Specification + Iir_Kind_Configuration_Specification; + + -- Nodes and lists. + + subtype Iir is Vhdl.Nodes_Priv.Node_Type; + + Null_Iir : constant Iir := 0; + + -- Return True iff Node is null / not set. + function Is_Null (Node : Iir) return Boolean; + pragma Inline (Is_Null); + + -- Return True iff Node is not null / set. + function Is_Valid (Node : Iir) return Boolean; + pragma Inline (Is_Valid); + + function "=" (L, R : Iir) return Boolean renames Vhdl.Nodes_Priv."="; + + -- Get the last node allocated. + function Get_Last_Node return Iir; + pragma Inline (Get_Last_Node); + + subtype Iir_List is Lists.List_Type; + Null_Iir_List : constant Iir_List := Lists.Null_List; + Iir_List_All : constant Iir_List := Lists.List_All; + + subtype List_Iterator is Lists.Iterator; + function Is_Null_List (Node : Iir_List) return Boolean; + pragma Inline (Is_Null_List); + + function Create_Iir_List return Iir_List + renames Lists.Create_List; + procedure Append_Element (L : Iir_List; E : Iir) + renames Lists.Append_Element; + procedure Add_Element (L : Iir_List; E : Iir) + renames Lists.Add_Element; + procedure Destroy_Iir_List (L : in out Iir_List) + renames Lists.Destroy_List; + function Get_Nbr_Elements (L : Iir_List) return Natural + renames Lists.Get_Nbr_Elements; + function Get_First_Element (L : Iir_List) return Iir + renames Lists.Get_First_Element; + function Is_Empty (L : Iir_List) return Boolean + renames Lists.Is_Empty; + + function List_Iterate (List : Iir_List) return List_Iterator + renames Lists.Iterate; + function List_Iterate_Safe (List : Iir_List) return List_Iterator + renames Lists.Iterate_Safe; + function Is_Valid (It : List_Iterator) return Boolean + renames Lists.Is_Valid; + procedure Next (It : in out List_Iterator) + renames Lists.Next; + function Get_Element (It : List_Iterator) return Iir + renames Lists.Get_Element; + procedure Set_Element (It : List_Iterator; El : Iir) + renames Lists.Set_Element; + + function "=" (L, R : Iir_List) return Boolean renames Lists."="; + + subtype Iir_Flist is Flists.Flist_Type; + Null_Iir_Flist : constant Iir_Flist := Flists.Null_Flist; + Iir_Flist_Others : constant Iir_Flist := Flists.Flist_Others; + Iir_Flist_All : constant Iir_Flist := Flists.Flist_All; + + subtype Iir_Flists_All_Others is Iir_Flist + range Iir_Flist_Others .. Iir_Flist_All; + + Flist_First : constant Natural := Flists.Ffirst; + function Flist_Last (Flist : Iir_Flist) return Natural + renames Flists.Flast; + function Create_Iir_Flist (Len : Natural) return Iir_Flist + renames Flists.Create_Flist; + function Get_Nth_Element (Flist : Iir_Flist; N : Natural) return Iir + renames Flists.Get_Nth_Element; + procedure Set_Nth_Element (Flist : Iir_Flist; N : Natural; El : Iir) + renames Flists.Set_Nth_Element; + function Get_Nbr_Elements (Flist : Iir_Flist) return Natural + renames Flists.Length; + procedure Destroy_Iir_Flist (Flist : in out Iir_Flist) + renames Flists.Destroy_Flist; + function "=" (L, R : Iir_Flist) return Boolean renames Flists."="; + + -- This is used only for lists. + type Iir_Array is array (Natural range <>) of Iir; + type Iir_Array_Acc is access Iir_Array; + procedure Free is new Ada.Unchecked_Deallocation + (Object => Iir_Array, Name => Iir_Array_Acc); + + -- Date State. + -- This indicates the origin of the data information. + -- This also indicates the state of the unit (loaded or not). + type Date_State_Type is + ( + -- The unit is not yet in the library. + Date_Extern, + + -- The unit is not loaded (still on the disk). + -- All the informations come from the library file. + Date_Disk, + + -- The unit has been parsed, but not analyzed. + -- Only the date information come from the library. + Date_Parse, + + -- The unit has been analyzed. + Date_Analyze + ); + + -- A date is used for analysis order. All design units from a library + -- are ordered according to the date. + type Date_Type is new Nat32; + + -- The unit is obsoleted (ie replaced) by a more recently analyzed design + -- unit. + -- If another design unit depends (directly or not) on an obseleted design + -- unit, it is also obsolete, and cannot be defined. + Date_Obsolete : constant Date_Type := 0; + -- A unit with the same name (could also be the same unit) is being + -- analyzed. Used to detect circular dependencies. + Date_Replacing : constant Date_Type := 1; + -- The unit was not analyzed. + Date_Parsed : constant Date_Type := 4; + -- The unit is being analyzed. + Date_Analyzing : constant Date_Type := 5; + -- This unit has just been analyzed and should be marked at the last + -- analyzed unit. + Date_Analyzed : constant Date_Type := 6; + -- Used only for default configuration. + -- Such units are always up-to-date. + Date_Uptodate : constant Date_Type := 7; + subtype Date_Valid is Date_Type range 10 .. Date_Type'Last; + + -- Predefined depth values. + -- Depth of a subprogram not declared in another subprogram. + Iir_Depth_Top : constant Iir_Int32 := 0; + -- Purity depth of a pure subprogram. + Iir_Depth_Pure : constant Iir_Int32 := Iir_Int32'Last; + -- Purity depth of an impure subprogram. + Iir_Depth_Impure : constant Iir_Int32 := -1; + + type Number_Base_Type is (Base_None, Base_2, Base_8, Base_10, Base_16); + + -- design file + subtype Iir_Design_File is Iir; + + subtype Iir_Design_Unit is Iir; + + subtype Iir_Library_Clause is Iir; + + -- Literals. + --subtype Iir_Text_Literal is Iir; + + subtype Iir_Character_Literal is Iir; + + subtype Iir_Integer_Literal is Iir; + + subtype Iir_Floating_Point_Literal is Iir; + + subtype Iir_Null_Literal is Iir; + + subtype Iir_Physical_Int_Literal is Iir; + + subtype Iir_Physical_Fp_Literal is Iir; + + subtype Iir_Enumeration_Literal is Iir; + + subtype Iir_Simple_Aggregate is Iir; + + subtype Iir_Enumeration_Type_Definition is Iir; + + subtype Iir_Enumeration_Subtype_Definition is Iir; + + subtype Iir_Range_Expression is Iir; + + subtype Iir_Integer_Subtype_Definition is Iir; + + subtype Iir_Integer_Type_Definition is Iir; + + subtype Iir_Floating_Subtype_Definition is Iir; + + subtype Iir_Floating_Type_Definition is Iir; + + subtype Iir_Array_Type_Definition is Iir; + + subtype Iir_Record_Type_Definition is Iir; + + subtype Iir_Protected_Type_Declaration is Iir; + + subtype Iir_Protected_Type_Body is Iir; + + subtype Iir_Subtype_Definition is Iir; + + subtype Iir_Array_Subtype_Definition is Iir; + + subtype Iir_Physical_Type_Definition is Iir; + + subtype Iir_Physical_Subtype_Definition is Iir; + + subtype Iir_Access_Type_Definition is Iir; + + subtype Iir_Access_Subtype_Definition is Iir; + + subtype Iir_File_Type_Definition is Iir; + + subtype Iir_Waveform_Element is Iir; + + subtype Iir_Conditional_Waveform is Iir; + + subtype Iir_Association_Element_By_Expression is Iir; + + subtype Iir_Association_Element_By_Individual is Iir; + + subtype Iir_Association_Element_Open is Iir; + + subtype Iir_Signature is Iir; + + subtype Iir_Unit_Declaration is Iir; + + subtype Iir_Entity_Aspect_Entity is Iir; + + subtype Iir_Entity_Aspect_Configuration is Iir; + + subtype Iir_Entity_Aspect_Open is Iir; + + subtype Iir_Block_Configuration is Iir; + + subtype Iir_Block_Header is Iir; + + subtype Iir_Component_Configuration is Iir; + + subtype Iir_Binding_Indication is Iir; + + subtype Iir_Entity_Class is Iir; + + subtype Iir_Attribute_Specification is Iir; + + subtype Iir_Attribute_Value is Iir; + + subtype Iir_Selected_Element is Iir; + + subtype Iir_Implicit_Dereference is Iir; + + subtype Iir_Aggregate_Info is Iir; + + subtype Iir_Procedure_Call is Iir; + + subtype Iir_Disconnection_Specification is Iir; + + -- Lists. + + subtype Iir_Design_Unit_List is Iir_List; + + subtype Iir_Attribute_Value_Chain is Iir_List; + + subtype Iir_Overload_List is Iir; + + subtype Iir_Callees_List is Iir_List; + + -- Declaration and children. + subtype Iir_Entity_Declaration is Iir; + + subtype Iir_Architecture_Body is Iir; + + subtype Iir_Interface_Signal_Declaration is Iir; + + subtype Iir_Configuration_Declaration is Iir; + + subtype Iir_Type_Declaration is Iir; + + subtype Iir_Anonymous_Type_Declaration is Iir; + + subtype Iir_Subtype_Declaration is Iir; + + subtype Iir_Package_Declaration is Iir; + subtype Iir_Package_Body is Iir; + + subtype Iir_Library_Declaration is Iir; + + subtype Iir_Function_Declaration is Iir; + + subtype Iir_Function_Body is Iir; + + subtype Iir_Procedure_Declaration is Iir; + + subtype Iir_Procedure_Body is Iir; + + subtype Iir_Use_Clause is Iir; + + subtype Iir_Constant_Declaration is Iir; + + subtype Iir_Iterator_Declaration is Iir; + + subtype Iir_Interface_Constant_Declaration is Iir; + + subtype Iir_Interface_Variable_Declaration is Iir; + + subtype Iir_Interface_File_Declaration is Iir; + + subtype Iir_Guard_Signal_Declaration is Iir; + + subtype Iir_Signal_Declaration is Iir; + + subtype Iir_Variable_Declaration is Iir; + + subtype Iir_Component_Declaration is Iir; + + subtype Iir_Element_Declaration is Iir; + + subtype Iir_Object_Alias_Declaration is Iir; + + subtype Iir_Non_Object_Alias_Declaration is Iir; + + subtype Iir_Interface_Declaration is Iir; + + subtype Iir_Configuration_Specification is Iir; + + subtype Iir_File_Declaration is Iir; + + subtype Iir_Attribute_Declaration is Iir; + + subtype Iir_Group_Template_Declaration is Iir; + + subtype Iir_Group_Declaration is Iir; + + -- concurrent_statement and children. + subtype Iir_Concurrent_Statement is Iir; + + subtype Iir_Concurrent_Conditional_Signal_Assignment is Iir; + + subtype Iir_Sensitized_Process_Statement is Iir; + + subtype Iir_Process_Statement is Iir; + + subtype Iir_Component_Instantiation_Statement is Iir; + + subtype Iir_Block_Statement is Iir; + + subtype Iir_Generate_Statement is Iir; + + -- sequential statements. + subtype Iir_If_Statement is Iir; + + subtype Iir_Elsif is Iir; + + subtype Iir_For_Loop_Statement is Iir; + + subtype Iir_While_Loop_Statement is Iir; + + subtype Iir_Exit_Statement is Iir; + subtype Iir_Next_Statement is Iir; + + subtype Iir_Variable_Assignment_Statement is Iir; + + subtype Iir_Signal_Assignment_Statement is Iir; + + subtype Iir_Assertion_Statement is Iir; + + subtype Iir_Report_Statement is Iir; + + subtype Iir_Wait_Statement is Iir; + + subtype Iir_Return_Statement is Iir; + + subtype Iir_Case_Statement is Iir; + + subtype Iir_Procedure_Call_Statement is Iir; + + -- expression and children. + subtype Iir_Expression is Iir; + + subtype Iir_Function_Call is Iir; + + subtype Iir_Aggregate is Iir; + + subtype Iir_Qualified_Expression is Iir; + + subtype Iir_Type_Conversion is Iir; + + subtype Iir_Allocator_By_Expression is Iir; + + subtype Iir_Allocator_By_Subtype is Iir; + + -- names. + subtype Iir_Simple_Name is Iir; + + subtype Iir_Slice_Name is Iir; + + subtype Iir_Selected_Name is Iir; + + subtype Iir_Selected_By_All_Name is Iir; + + subtype Iir_Indexed_Name is Iir; + + subtype Iir_Parenthesis_Name is Iir; + + -- attributes. + subtype Iir_Attribute_Name is Iir; + + -- General methods. + + -- Get the kind of the iir. + function Get_Kind (N : Iir) return Iir_Kind; + pragma Inline (Get_Kind); + + function Next_Node (N : Iir) return Iir; + + -- Create a new IIR of kind NEW_KIND, and copy fields from SRC to this + -- iir. Src fields are cleaned. + --function Clone_Iir (Src: Iir; New_Kind : Iir_Kind) return Iir; + + procedure Set_Location (N : Iir; Location : Location_Type); + function Get_Location (N : Iir) return Location_Type; + + procedure Location_Copy (Target : Iir; Src : Iir); + + function Create_Iir (Kind : Iir_Kind) return Iir; + function Create_Iir_Error return Iir; + procedure Free_Iir (Target : Iir); + + -- Free all and reinit. + procedure Initialize; + + -- Disp statistics about node usage. + procedure Disp_Stats; + + -- Design units contained in a design file. + -- Field: Field5 Chain + function Get_First_Design_Unit (Design : Iir) return Iir; + procedure Set_First_Design_Unit (Design : Iir; Chain : Iir); + + -- Field: Field6 Ref + function Get_Last_Design_Unit (Design : Iir) return Iir; + procedure Set_Last_Design_Unit (Design : Iir; Chain : Iir); + + -- Library declaration of a library clause. This is Forward_Ref as the + -- dependency of the unit on the library is not tracked. + -- Field: Field1 Forward_Ref + function Get_Library_Declaration (Design : Iir) return Iir; + procedure Set_Library_Declaration (Design : Iir; Library : Iir); + + -- File time stamp is the system time of the file last modification. + -- Field: Field4 (uc) + function Get_File_Checksum (Design : Iir) return File_Checksum_Id; + procedure Set_File_Checksum (Design : Iir; Checksum : File_Checksum_Id); + + -- Time stamp of the last analysis system time. + -- Field: Field3 (uc) + function Get_Analysis_Time_Stamp (Design : Iir) return Time_Stamp_Id; + procedure Set_Analysis_Time_Stamp (Design : Iir; Stamp : Time_Stamp_Id); + + -- Field: Field7 (uc) + function Get_Design_File_Source (Design : Iir) return Source_File_Entry; + procedure Set_Design_File_Source (Design : Iir; Sfe : Source_File_Entry); + + -- The library which FILE belongs to. + -- Field: Field0 Ref + function Get_Library (File : Iir_Design_File) return Iir; + procedure Set_Library (File : Iir_Design_File; Lib : Iir); + + -- List of files which this design file depends on. + -- Field: Field1 (uc) + function Get_File_Dependence_List (File : Iir_Design_File) return Iir_List; + procedure Set_File_Dependence_List (File : Iir_Design_File; Lst : Iir_List); + + -- Identifier for the design file file name. + -- Field: Field12 (pos) + function Get_Design_File_Filename (File : Iir_Design_File) return Name_Id; + procedure Set_Design_File_Filename (File : Iir_Design_File; Name : Name_Id); + + -- Directory of a design file. + -- Field: Field11 (pos) + function Get_Design_File_Directory (File : Iir_Design_File) return Name_Id; + procedure Set_Design_File_Directory (File : Iir_Design_File; Dir : Name_Id); + + -- The parent of a design unit is a design file. + -- Field: Field0 Ref + function Get_Design_File (Unit : Iir_Design_Unit) return Iir; + procedure Set_Design_File (Unit : Iir_Design_Unit; File : Iir); + + -- Design files of a library. + -- Field: Field1 Chain + function Get_Design_File_Chain (Library : Iir) return Iir; + procedure Set_Design_File_Chain (Library : Iir; Chain : Iir); + + -- System directory where the library is stored. + -- Field: Field5 (pos) + function Get_Library_Directory (Library : Iir) return Name_Id; + procedure Set_Library_Directory (Library : Iir; Dir : Name_Id); + + -- Symbolic date, used to order design units in a library. + -- Field: Field4 (pos) + function Get_Date (Target : Iir) return Date_Type; + procedure Set_Date (Target : Iir; Date : Date_Type); + + -- Chain of context clauses. + -- Field: Field1 Chain + function Get_Context_Items (Design_Unit : Iir) return Iir; + procedure Set_Context_Items (Design_Unit : Iir; Items_Chain : Iir); + + -- List of design units on which the design unit depends. There is an + -- exception: the architecture of an entity aspect (of a component + -- instantiation) may not have been analyzed. The Entity_Aspect_Entity + -- is added to this list (instead of the non-existing design unit). + -- Field: Field8 Of_Ref (uc) + function Get_Dependence_List (Unit : Iir) return Iir_List; + procedure Set_Dependence_List (Unit : Iir; List : Iir_List); + + -- List of functions or sensitized processes whose analysis checks are not + -- complete. + -- These elements have direct or indirect calls to procedure whose body is + -- not yet analyzed. Therefore, purity or wait checks are not complete. + -- Field: Field9 Of_Ref (uc) + function Get_Analysis_Checks_List (Unit : Iir) return Iir_List; + procedure Set_Analysis_Checks_List (Unit : Iir; List : Iir_List); + + -- Whether the unit is on disk, parsed or analyzed. + -- Field: State1 (pos) + function Get_Date_State (Unit : Iir_Design_Unit) return Date_State_Type; + procedure Set_Date_State (Unit : Iir_Design_Unit; State : Date_State_Type); + + -- If TRUE, the target of the signal assignment is guarded. + -- If FALSE, the target is not guarded. + -- This is determined during sem by examining the declaration(s) of the + -- target (there may be severals declarations in the case of a aggregate + -- target). + -- If UNKNOWN, this is not determined at compile time but at run-time. + -- This is the case for formal signal interfaces of subprograms. + -- Field: State1 (pos) + function Get_Guarded_Target_State (Stmt : Iir) return Tri_State_Type; + procedure Set_Guarded_Target_State (Stmt : Iir; State : Tri_State_Type); + + -- Library unit of a design unit. + -- Field: Field5 + function Get_Library_Unit (Design_Unit : Iir_Design_Unit) return Iir; + procedure Set_Library_Unit (Design_Unit : Iir_Design_Unit; Lib_Unit : Iir); + pragma Inline (Get_Library_Unit); + + -- Every design unit is put in an hash table to find quickly found by its + -- name. This field is a single chain for collisions. + -- Field: Field7 Forward_Ref + function Get_Hash_Chain (Design_Unit : Iir_Design_Unit) return Iir; + procedure Set_Hash_Chain (Design_Unit : Iir_Design_Unit; Chain : Iir); + + -- Set the line and the offset in the line, only for the library manager. + -- This is valid until the file is really loaded in memory. On loading, + -- location will contain all this informations. + -- Field: Field10 (uc) + function Get_Design_Unit_Source_Pos (Design_Unit : Iir) return Source_Ptr; + procedure Set_Design_Unit_Source_Pos (Design_Unit : Iir; Pos : Source_Ptr); + + -- Field: Field11 (uc) + function Get_Design_Unit_Source_Line (Design_Unit : Iir) return Int32; + procedure Set_Design_Unit_Source_Line (Design_Unit : Iir; Line : Int32); + + -- Field: Field12 (uc) + function Get_Design_Unit_Source_Col (Design_Unit : Iir) return Int32; + procedure Set_Design_Unit_Source_Col (Design_Unit : Iir; Line : Int32); + + -- literals. + + -- Value of an integer/physical literal. + -- Field: Field4,Field5 (grp) + function Get_Value (Lit : Iir) return Iir_Int64; + procedure Set_Value (Lit : Iir; Val : Iir_Int64); + + -- Position (same as lit_type'pos) of an enumeration literal. + -- Field: Field5 (pos) + function Get_Enum_Pos (Lit : Iir) return Iir_Int32; + procedure Set_Enum_Pos (Lit : Iir; Val : Iir_Int32); + + -- Field: Field4 + function Get_Physical_Literal (Unit : Iir) return Iir; + procedure Set_Physical_Literal (Unit : Iir; Lit : Iir); + + -- Value of a floating point literal. + -- Field: Field4,Field5 (grp) + function Get_Fp_Value (Lit : Iir) return Iir_Fp64; + procedure Set_Fp_Value (Lit : Iir; Val : Iir_Fp64); + + -- List of elements of a simple aggregate. + -- Field: Field4 Ref (uc) + function Get_Simple_Aggregate_List (Target : Iir) return Iir_Flist; + procedure Set_Simple_Aggregate_List (Target : Iir; List : Iir_Flist); + + -- For a string literal: the string identifier. + -- Field: Field5 (uc) + function Get_String8_Id (Lit : Iir) return String8_Id; + procedure Set_String8_Id (Lit : Iir; Id : String8_Id); + + -- For a string literal: the string length. + -- Field: Field4 (uc) + function Get_String_Length (Lit : Iir) return Int32; + procedure Set_String_Length (Lit : Iir; Len : Int32); + + -- Base of a bit string. Base_None for a string literal. + -- Field: Flag12,Flag13,Flag14 (grp) + function Get_Bit_String_Base (Lit : Iir) return Number_Base_Type; + procedure Set_Bit_String_Base (Lit : Iir; Base : Number_Base_Type); + + -- Bit string is signed. + -- Field: Flag1 + function Get_Has_Signed (Lit : Iir) return Boolean; + procedure Set_Has_Signed (Lit : Iir; Flag : Boolean); + + -- Bit string sign is explicit + -- Field: Flag2 + function Get_Has_Sign (Lit : Iir) return Boolean; + procedure Set_Has_Sign (Lit : Iir; Flag : Boolean); + + -- Bit string length is explicit + -- Field: Flag3 + function Get_Has_Length (Lit : Iir) return Boolean; + procedure Set_Has_Length (Lit : Iir; Flag : Boolean); + + -- The origin of a literal can be null_iir for a literal generated by the + -- parser, or a node which was statically evaluated to this literal. + -- Such nodes are created by eval_expr. + -- Field: Field2 + function Get_Literal_Origin (Lit : Iir) return Iir; + procedure Set_Literal_Origin (Lit : Iir; Orig : Iir); + + -- Field: Field0 + function Get_Range_Origin (Lit : Iir) return Iir; + procedure Set_Range_Origin (Lit : Iir; Orig : Iir); + + -- Same as Type, but not marked as Ref. This is when a literal has a + -- subtype (such as string or bit_string) created specially for the + -- literal. + -- Field: Field3 + function Get_Literal_Subtype (Lit : Iir) return Iir; + procedure Set_Literal_Subtype (Lit : Iir; Atype : Iir); + + -- Field: Field3 Ref + function Get_Allocator_Subtype (Lit : Iir) return Iir; + procedure Set_Allocator_Subtype (Lit : Iir; Atype : Iir); + + -- Field: Field3 (uc) + function Get_Entity_Class (Target : Iir) return Token_Type; + procedure Set_Entity_Class (Target : Iir; Kind : Token_Type); + + -- Field: Field8 (uc) + function Get_Entity_Name_List (Target : Iir) return Iir_Flist; + procedure Set_Entity_Name_List (Target : Iir; Names : Iir_Flist); + + -- Field: Field6 + function Get_Attribute_Designator (Target : Iir) return Iir; + procedure Set_Attribute_Designator (Target : Iir; Designator : Iir); + + -- Chain of attribute specifications. This is used only during sem, to + -- check that no named entity of a given class appear after an attr. spec. + -- with the entity name list OTHERS or ALL. + -- Field: Field7 Ref + function Get_Attribute_Specification_Chain (Target : Iir) return Iir; + procedure Set_Attribute_Specification_Chain (Target : Iir; Chain : Iir); + + -- Field: Field4 Ref + function Get_Attribute_Specification (Val : Iir) return Iir; + procedure Set_Attribute_Specification (Val : Iir; Attr : Iir); + + -- Field: Field3 Of_Maybe_Ref (uc) + function Get_Signal_List (Target : Iir) return Iir_Flist; + procedure Set_Signal_List (Target : Iir; List : Iir_Flist); + + -- Field: Field3 Forward_Ref + function Get_Designated_Entity (Val : Iir_Attribute_Value) return Iir; + procedure Set_Designated_Entity (Val : Iir_Attribute_Value; Entity : Iir); + + -- Field: Field1 + function Get_Formal (Target : Iir) return Iir; + procedure Set_Formal (Target : Iir; Formal : Iir); + + -- Field: Field3 + function Get_Actual (Target : Iir) return Iir; + procedure Set_Actual (Target : Iir; Actual : Iir); + + -- Field: Field4 + function Get_Actual_Conversion (Target : Iir) return Iir; + procedure Set_Actual_Conversion (Target : Iir; Conv : Iir); + + -- Field: Field5 + function Get_Formal_Conversion (Target : Iir) return Iir; + procedure Set_Formal_Conversion (Target : Iir; Conv : Iir); + + -- This flag is set when the formal is associated in whole (ie, not + -- individually). + -- Field: Flag1 + function Get_Whole_Association_Flag (Target : Iir) return Boolean; + procedure Set_Whole_Association_Flag (Target : Iir; Flag : Boolean); + + -- This flag is set when the formal signal can be the actual signal. In + -- this case, the formal signal is not created, and the actual is shared. + -- This is the signal collapsing optimisation. + -- Field: Flag2 + function Get_Collapse_Signal_Flag (Target : Iir) return Boolean; + procedure Set_Collapse_Signal_Flag (Target : Iir; Flag : Boolean); + + -- Set when the node was artificially created, eg by canon. + -- Currently used only by association_element_open. + -- Field: Flag3 + function Get_Artificial_Flag (Target : Iir) return Boolean; + procedure Set_Artificial_Flag (Target : Iir; Flag : Boolean); + + -- This flag is set for a very short time during the check that no in + -- port is unconnected. + -- Field: Flag7 + function Get_Open_Flag (Target : Iir) return Boolean; + procedure Set_Open_Flag (Target : Iir; Flag : Boolean); + + -- This flag is set by trans_analyze if there is a projected waveform + -- assignment in the process. + -- Field: Flag5 + function Get_After_Drivers_Flag (Target : Iir) return Boolean; + procedure Set_After_Drivers_Flag (Target : Iir; Flag : Boolean); + + -- Field: Field1 + function Get_We_Value (We : Iir_Waveform_Element) return Iir; + procedure Set_We_Value (We : Iir_Waveform_Element; An_Iir : Iir); + + -- Field: Field3 + function Get_Time (We : Iir_Waveform_Element) return Iir; + procedure Set_Time (We : Iir_Waveform_Element; An_Iir : Iir); + + -- Field: Field1 (pos) + function Get_Choice_Order (Choice : Iir) return Int32; + procedure Set_Choice_Order (Choice : Iir; Pos : Int32); + + -- Node associated with a choice. + -- Field: Field3 + function Get_Associated_Expr (Target : Iir) return Iir; + procedure Set_Associated_Expr (Target : Iir; Associated : Iir); + + -- Node associated with a choice. + -- Field: Field3 + function Get_Associated_Block (Target : Iir) return Iir; + procedure Set_Associated_Block (Target : Iir; Associated : Iir); + + -- Chain associated with a choice. + -- Field: Field4 Chain + function Get_Associated_Chain (Target : Iir) return Iir; + procedure Set_Associated_Chain (Target : Iir; Associated : Iir); + + -- Field: Field5 + function Get_Choice_Name (Choice : Iir) return Iir; + procedure Set_Choice_Name (Choice : Iir; Name : Iir); + + -- Field: Field5 + function Get_Choice_Expression (Choice : Iir) return Iir; + procedure Set_Choice_Expression (Choice : Iir; Name : Iir); + + -- Field: Field5 + function Get_Choice_Range (Choice : Iir) return Iir; + procedure Set_Choice_Range (Choice : Iir; Name : Iir); + + -- Set when a choice belongs to the same alternative as the previous one. + -- Field: Flag1 + function Get_Same_Alternative_Flag (Target : Iir) return Boolean; + procedure Set_Same_Alternative_Flag (Target : Iir; Val : Boolean); + + -- For one-dimensional aggregates: the value associated of the type of the + -- element (vs of the type of the aggregate). Always true before vhdl-08. + -- Field: Flag2 + function Get_Element_Type_Flag (Target : Iir) return Boolean; + procedure Set_Element_Type_Flag (Target : Iir; Val : Boolean); + + -- Field: Field3 + function Get_Architecture (Target : Iir_Entity_Aspect_Entity) return Iir; + procedure Set_Architecture (Target : Iir_Entity_Aspect_Entity; Arch : Iir); + + -- Field: Field5 + function Get_Block_Specification (Target : Iir) return Iir; + procedure Set_Block_Specification (Target : Iir; Block : Iir); + + -- Return the link of the previous block_configuration of a + -- block_configuration. + -- This single linked list is used to list all the block_configuration that + -- configuration the same block (which can only be an iterative generate + -- statement). + -- All elements of this list must belong to the same block configuration. + -- The order is not important. + -- Field: Field4 Ref + function Get_Prev_Block_Configuration (Target : Iir) return Iir; + procedure Set_Prev_Block_Configuration (Target : Iir; Block : Iir); + + -- Field: Field3 Chain + function Get_Configuration_Item_Chain (Target : Iir) return Iir; + procedure Set_Configuration_Item_Chain (Target : Iir; Chain : Iir); + + -- Chain of attribute values for declared items. + -- To be used with Get/Set_Value_Chain. + -- There is no order, therefore, a new attribute value may be always + -- prepended. + -- Field: Field4 Ref + function Get_Attribute_Value_Chain (Target : Iir) return Iir; + procedure Set_Attribute_Value_Chain (Target : Iir; Chain : Iir); + + -- Next attribute value in the attribute specification chain (of attribute + -- value). + -- FIXME: should be a Chain. + -- Field: Field2 + function Get_Spec_Chain (Target : Iir) return Iir; + procedure Set_Spec_Chain (Target : Iir; Chain : Iir); + + -- Next attribute value in the attribute specification chain (of attribute + -- value). + -- Field: Field0 Ref + function Get_Value_Chain (Target : Iir) return Iir; + procedure Set_Value_Chain (Target : Iir; Chain : Iir); + + -- Chain of attribute values for attribute specification. + -- To be used with Get/Set_Spec_Chain. + -- Field: Field4 + function Get_Attribute_Value_Spec_Chain (Target : Iir) return Iir; + procedure Set_Attribute_Value_Spec_Chain (Target : Iir; Chain : Iir); + + -- The entity name for an architecture or a configuration. + -- Field: Field2 + function Get_Entity_Name (Arch : Iir) return Iir; + procedure Set_Entity_Name (Arch : Iir; Entity : Iir); + + -- The package declaration corresponding to the body. + -- Field: Field5 Ref + function Get_Package (Package_Body : Iir) return Iir; + procedure Set_Package (Package_Body : Iir; Decl : Iir); + + -- The package body corresponding to the package declaration. + -- Field: Field5 Forward_Ref + function Get_Package_Body (Pkg : Iir) return Iir; + procedure Set_Package_Body (Pkg : Iir; Decl : Iir); + + -- The package body corresponding to the package declaration. + -- Field: Field5 + function Get_Instance_Package_Body (Pkg : Iir) return Iir; + procedure Set_Instance_Package_Body (Pkg : Iir; Decl : Iir); + + -- Field: Flag1 + function Get_Need_Body (Decl : Iir_Package_Declaration) return Boolean; + procedure Set_Need_Body (Decl : Iir_Package_Declaration; Flag : Boolean); + + -- Field: Flag2 + function Get_Macro_Expanded_Flag (Decl : Iir) return Boolean; + procedure Set_Macro_Expanded_Flag (Decl : Iir; Flag : Boolean); + + -- Field: Flag3 + function Get_Need_Instance_Bodies (Decl : Iir) return Boolean; + procedure Set_Need_Instance_Bodies (Decl : Iir; Flag : Boolean); + + -- Field: Field5 + function Get_Block_Configuration (Target : Iir) return Iir; + procedure Set_Block_Configuration (Target : Iir; Block : Iir); + + -- Field: Field5 Chain + function Get_Concurrent_Statement_Chain (Target : Iir) return Iir; + procedure Set_Concurrent_Statement_Chain (Target : Iir; First : Iir); + + -- Field: Field2 Chain_Next + function Get_Chain (Target : Iir) return Iir; + procedure Set_Chain (Target : Iir; Chain : Iir); + pragma Inline (Get_Chain); + + -- Field: Field7 Chain + function Get_Port_Chain (Target : Iir) return Iir; + procedure Set_Port_Chain (Target : Iir; Chain : Iir); + + -- Field: Field6 Chain + function Get_Generic_Chain (Target : Iir) return Iir; + procedure Set_Generic_Chain (Target : Iir; Generics : Iir); + + -- Field: Field1 Ref + function Get_Type (Target : Iir) return Iir; + procedure Set_Type (Target : Iir; Atype : Iir); + pragma Inline (Get_Type); + + -- The subtype indication of a declaration. If several declarations share + -- the same subtype_indication like in: + -- variable a, b : integer := 5; + -- then only the first declaration has a subtype_indication. + -- Field: Field5 + function Get_Subtype_Indication (Target : Iir) return Iir; + procedure Set_Subtype_Indication (Target : Iir; Atype : Iir); + + -- Discrete range of an iterator. During analysis, a subtype indiciation + -- is created from this range. + -- Field: Field6 + function Get_Discrete_Range (Target : Iir) return Iir; + procedure Set_Discrete_Range (Target : Iir; Rng : Iir); + + -- Field: Field1 + function Get_Type_Definition (Decl : Iir) return Iir; + procedure Set_Type_Definition (Decl : Iir; Atype : Iir); + + -- The subtype definition associated with the type declaration (if any). + -- Field: Field4 Forward_Ref + function Get_Subtype_Definition (Target : Iir) return Iir; + procedure Set_Subtype_Definition (Target : Iir; Def : Iir); + + -- Set if the type declaration completes an incomplete type declaration + -- Field: Field5 Ref + function Get_Incomplete_Type_Declaration (N : Iir) return Iir; + procedure Set_Incomplete_Type_Declaration (N : Iir; Decl : Iir); + + -- Implicit operations of an interface type declaration. + -- Field: Field4 Chain + function Get_Interface_Type_Subprograms (Target : Iir) return Iir; + procedure Set_Interface_Type_Subprograms (Target : Iir; Subprg : Iir); + + -- Field: Field1 + function Get_Nature (Target : Iir) return Iir; + procedure Set_Nature (Target : Iir; Nature : Iir); + + -- Mode of interfaces or file (v87). + -- Field: Flag13,Flag14,Flag15 (grp) + function Get_Mode (Target : Iir) return Iir_Mode; + procedure Set_Mode (Target : Iir; Mode : Iir_Mode); + + -- True if the signal is guarded (has a signal kind). + -- Field: Flag8 + function Get_Guarded_Signal_Flag (Target : Iir) return Boolean; + procedure Set_Guarded_Signal_Flag (Target : Iir; Guarded : Boolean); + + -- Field: Flag9 (uc) + function Get_Signal_Kind (Target : Iir) return Iir_Signal_Kind; + procedure Set_Signal_Kind (Target : Iir; Signal_Kind : Iir_Signal_Kind); + + -- The base name of a name is the node at the origin of the name. + -- The base name is a declaration (signal, object, constant or interface), + -- a selected_by_all name, an implicit_dereference name. + -- Field: Field5 Ref + function Get_Base_Name (Target : Iir) return Iir; + procedure Set_Base_Name (Target : Iir; Name : Iir); + pragma Inline (Get_Base_Name); + + -- Field: Field5 Chain + function Get_Interface_Declaration_Chain (Target : Iir) return Iir; + procedure Set_Interface_Declaration_Chain (Target : Iir; Chain : Iir); + pragma Inline (Get_Interface_Declaration_Chain); + + -- Field: Field6 Ref + function Get_Subprogram_Specification (Target : Iir) return Iir; + procedure Set_Subprogram_Specification (Target : Iir; Spec : Iir); + + -- Field: Field5 Chain + function Get_Sequential_Statement_Chain (Target : Iir) return Iir; + procedure Set_Sequential_Statement_Chain (Target : Iir; Chain : Iir); + + -- Field: Field9 Forward_Ref + function Get_Subprogram_Body (Target : Iir) return Iir; + procedure Set_Subprogram_Body (Target : Iir; A_Body : Iir); + + -- Several subprograms in a declarative region may have the same + -- identifier. If the overload number is not 0, it is the rank of the + -- subprogram. If the overload number is 0, then the identifier is not + -- overloaded in the declarative region. + -- Field: Field12 (pos) + function Get_Overload_Number (Target : Iir) return Iir_Int32; + procedure Set_Overload_Number (Target : Iir; Val : Iir_Int32); + + -- Depth of a subprogram. + -- For a subprogram declared immediatly within an entity, architecture, + -- package, process, block, generate, the depth is 0. + -- For a subprogram declared immediatly within a subprogram of level N, + -- the depth is N + 1. + -- Depth is used with depth of impure objects to check purity rules. + -- Field: Field10 (pos) + function Get_Subprogram_Depth (Target : Iir) return Iir_Int32; + procedure Set_Subprogram_Depth (Target : Iir; Depth : Iir_Int32); + + -- Hash of a subprogram profile. + -- This is used to speed up subprogram profile comparaison, which is very + -- often used by overload. + -- Field: Field4 (pos) + function Get_Subprogram_Hash (Target : Iir) return Iir_Int32; + procedure Set_Subprogram_Hash (Target : Iir; Val : Iir_Int32); + pragma Inline (Get_Subprogram_Hash); + + -- Depth of the deepest impure object. + -- Field: Field3 (uc) + function Get_Impure_Depth (Target : Iir) return Iir_Int32; + procedure Set_Impure_Depth (Target : Iir; Depth : Iir_Int32); + + -- Field: Field1 Ref + function Get_Return_Type (Target : Iir) return Iir; + procedure Set_Return_Type (Target : Iir; Decl : Iir); + pragma Inline (Get_Return_Type); + + -- Code of an implicit subprogram definition. + -- Field: Field7 (pos) + function Get_Implicit_Definition (D : Iir) return Iir_Predefined_Functions; + procedure Set_Implicit_Definition (D : Iir; Def : Iir_Predefined_Functions); + + -- Get the default value of an object declaration. + -- Null_iir if no default value. + -- Note that this node can be shared between declarations if they are + -- separated by comma, such as in: + -- variable a, b : integer := 5; + -- procedure p (a, b : natural := 7); + -- Field: Field4 Maybe_Ref + function Get_Default_Value (Target : Iir) return Iir; + procedure Set_Default_Value (Target : Iir; Value : Iir); + + -- The deferred_declaration field points to the deferred constant + -- declaration for a full constant declaration, or is null_iir for a + -- usual or deferred constant declaration. + -- Set only during sem. + -- Field: Field6 Forward_Ref + function Get_Deferred_Declaration (Target : Iir) return Iir; + procedure Set_Deferred_Declaration (Target : Iir; Decl : Iir); + + -- The deferred_declaration_flag must be set if the constant declaration is + -- a deferred_constant declaration. + -- Set only during sem. + -- Field: Flag1 + function Get_Deferred_Declaration_Flag (Target : Iir) return Boolean; + procedure Set_Deferred_Declaration_Flag (Target : Iir; Flag : Boolean); + + -- If true, the variable is declared shared. + -- Field: Flag2 + function Get_Shared_Flag (Target : Iir) return Boolean; + procedure Set_Shared_Flag (Target : Iir; Shared : Boolean); + + -- Get the design unit in which the target is declared. + -- For a library unit, this is to get the design unit node. + -- Field: Field0 + function Get_Design_Unit (Target : Iir) return Iir; + procedure Set_Design_Unit (Target : Iir; Unit : Iir); + + -- Corresponding block statement for an implicit guard signal. + -- Field: Field5 Ref + function Get_Block_Statement (Target : Iir) return Iir; + procedure Set_Block_Statement (Target : Iir; Block : Iir); + + -- For a non-resolved signal: null_iir if the signal has no driver, or + -- a process/concurrent_statement for which the signal should have a + -- driver. This is used to catch at analyse time unresolved signals with + -- several drivers. + -- Field: Field7 + function Get_Signal_Driver (Target : Iir_Signal_Declaration) return Iir; + procedure Set_Signal_Driver (Target : Iir_Signal_Declaration; Driver : Iir); + + -- Field: Field1 Chain + function Get_Declaration_Chain (Target : Iir) return Iir; + procedure Set_Declaration_Chain (Target : Iir; Decls : Iir); + + -- Field: Field6 + function Get_File_Logical_Name (Target : Iir_File_Declaration) return Iir; + procedure Set_File_Logical_Name (Target : Iir_File_Declaration; Name : Iir); + + -- Field: Field7 + function Get_File_Open_Kind (Target : Iir_File_Declaration) return Iir; + procedure Set_File_Open_Kind (Target : Iir_File_Declaration; Kind : Iir); + + -- Field: Field4 (pos) + function Get_Element_Position (Target : Iir) return Iir_Index32; + procedure Set_Element_Position (Target : Iir; Pos : Iir_Index32); + + -- Selected names of an use_clause are chained. + -- Field: Field3 + function Get_Use_Clause_Chain (Target : Iir) return Iir; + procedure Set_Use_Clause_Chain (Target : Iir; Chain : Iir); + + -- Selected names of a context_reference are chained. + -- Field: Field3 + function Get_Context_Reference_Chain (Target : Iir) return Iir; + procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir); + + -- Selected name of an use_clause or context_reference + -- Field: Field1 + function Get_Selected_Name (Target : Iir) return Iir; + procedure Set_Selected_Name (Target : Iir; Name : Iir); + + -- The type declarator which declares the type definition DEF. + -- Field: Field3 Ref + function Get_Type_Declarator (Def : Iir) return Iir; + procedure Set_Type_Declarator (Def : Iir; Decl : Iir); + + -- Field: Field5 Forward_Ref + function Get_Complete_Type_Definition (N : Iir) return Iir; + procedure Set_Complete_Type_Definition (N : Iir; Def : Iir); + + -- Field: Field0 Forward_Ref + function Get_Incomplete_Type_Ref_Chain (N : Iir) return Iir; + procedure Set_Incomplete_Type_Ref_Chain (N : Iir; Def : Iir); + + -- Field: Field5 Ref + function Get_Associated_Type (Def : Iir) return Iir; + procedure Set_Associated_Type (Def : Iir; Atype : Iir); + + -- Field: Field2 (uc) + function Get_Enumeration_Literal_List (Target : Iir) return Iir_Flist; + procedure Set_Enumeration_Literal_List (Target : Iir; List : Iir_Flist); + + -- Field: Field1 Chain + function Get_Entity_Class_Entry_Chain (Target : Iir) return Iir; + procedure Set_Entity_Class_Entry_Chain (Target : Iir; Chain : Iir); + + -- Field: Field1 (uc) + function Get_Group_Constituent_List (Group : Iir) return Iir_Flist; + procedure Set_Group_Constituent_List (Group : Iir; List : Iir_Flist); + + -- Chain of physical type units. + -- The first unit is the primary unit. If you really need the primary + -- unit (and not the chain), you'd better to use Get_Primary_Unit. + -- Field: Field2 Chain + function Get_Unit_Chain (Target : Iir) return Iir; + procedure Set_Unit_Chain (Target : Iir; Chain : Iir); + + -- Alias of Get_Unit_Chain. + -- Return the primary unit of a physical type. + -- Field: Field2 Ref + function Get_Primary_Unit (Target : Iir) return Iir; + procedure Set_Primary_Unit (Target : Iir; Unit : Iir); + + -- Get/Set the identifier of a declaration. + -- Can also be used instead of get/set_label. + -- Field: Field3 (uc) + function Get_Identifier (Target : Iir) return Name_Id; + procedure Set_Identifier (Target : Iir; Identifier : Name_Id); + pragma Inline (Get_Identifier); + + -- Field: Field3 (uc) + function Get_Label (Target : Iir) return Name_Id; + procedure Set_Label (Target : Iir; Label : Name_Id); + + -- Get/Set the visible flag of a declaration. + -- The visible flag is true to make invalid the use of the identifier + -- during its declaration. It is set to false when the identifier is added + -- to the name table, and set to true when the declaration is finished. + -- Field: Flag4 + function Get_Visible_Flag (Target : Iir) return Boolean; + procedure Set_Visible_Flag (Target : Iir; Flag : Boolean); + + -- Field: Field1 Maybe_Ref + function Get_Range_Constraint (Target : Iir) return Iir; + procedure Set_Range_Constraint (Target : Iir; Constraint : Iir); + + -- Field: State2 (pos) + function Get_Direction (Decl : Iir) return Iir_Direction; + procedure Set_Direction (Decl : Iir; Dir : Iir_Direction); + + -- Field: Field4 Ref + function Get_Left_Limit (Decl : Iir_Range_Expression) return Iir; + procedure Set_Left_Limit (Decl : Iir_Range_Expression; Limit : Iir); + + -- Field: Field5 Ref + function Get_Right_Limit (Decl : Iir_Range_Expression) return Iir; + procedure Set_Right_Limit (Decl : Iir_Range_Expression; Limit : Iir); + + -- Field: Field2 + function Get_Left_Limit_Expr (Decl : Iir_Range_Expression) return Iir; + procedure Set_Left_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir); + + -- Field: Field3 + function Get_Right_Limit_Expr (Decl : Iir_Range_Expression) return Iir; + procedure Set_Right_Limit_Expr (Decl : Iir_Range_Expression; Limit : Iir); + + -- Field: Field4 Ref + function Get_Base_Type (Decl : Iir) return Iir; + procedure Set_Base_Type (Decl : Iir; Base_Type : Iir); + pragma Inline (Get_Base_Type); + + -- Either a resolution function name, an array_element_resolution or a + -- record_resolution + -- Field: Field5 + function Get_Resolution_Indication (Decl : Iir) return Iir; + procedure Set_Resolution_Indication (Decl : Iir; Ind : Iir); + + -- Field: Field1 Chain + function Get_Record_Element_Resolution_Chain (Res : Iir) return Iir; + procedure Set_Record_Element_Resolution_Chain (Res : Iir; Chain : Iir); + + -- Field: Field7 + function Get_Tolerance (Def : Iir) return Iir; + procedure Set_Tolerance (Def : Iir; Tol : Iir); + + -- Field: Field8 + function Get_Plus_Terminal (Def : Iir) return Iir; + procedure Set_Plus_Terminal (Def : Iir; Terminal : Iir); + + -- Field: Field9 + function Get_Minus_Terminal (Def : Iir) return Iir; + procedure Set_Minus_Terminal (Def : Iir; Terminal : Iir); + + -- Field: Field5 + function Get_Simultaneous_Left (Def : Iir) return Iir; + procedure Set_Simultaneous_Left (Def : Iir; Expr : Iir); + + -- Field: Field6 + function Get_Simultaneous_Right (Def : Iir) return Iir; + procedure Set_Simultaneous_Right (Def : Iir; Expr : Iir); + + -- True if ATYPE defines std.textio.text file type. + -- Field: Flag4 + function Get_Text_File_Flag (Atype : Iir) return Boolean; + procedure Set_Text_File_Flag (Atype : Iir; Flag : Boolean); + + -- True if enumeration type ATYPE has only character literals. + -- Field: Flag4 + function Get_Only_Characters_Flag (Atype : Iir) return Boolean; + procedure Set_Only_Characters_Flag (Atype : Iir; Flag : Boolean); + + -- True if enumeration type ATYPE is a character type. + -- Field: Flag5 + function Get_Is_Character_Type (Atype : Iir) return Boolean; + procedure Set_Is_Character_Type (Atype : Iir; Flag : Boolean); + + -- Field: State1 (pos) + function Get_Type_Staticness (Atype : Iir) return Iir_Staticness; + procedure Set_Type_Staticness (Atype : Iir; Static : Iir_Staticness); + + -- Field: State2 (pos) + function Get_Constraint_State (Atype : Iir) return Iir_Constraint; + procedure Set_Constraint_State (Atype : Iir; State : Iir_Constraint); + + -- Reference either index_subtype_definition_list of array_type_definition + -- or index_constraint_list of array_subtype_definition. Set only when + -- the index_sutype is constrained (to differentiate with unconstrained + -- index type). + -- Field: Field9 Ref (uc) + function Get_Index_Subtype_List (Decl : Iir) return Iir_Flist; + procedure Set_Index_Subtype_List (Decl : Iir; List : Iir_Flist); + + -- List of type marks for indexes type of array types. + -- Field: Field6 (uc) + function Get_Index_Subtype_Definition_List (Def : Iir) return Iir_Flist; + procedure Set_Index_Subtype_Definition_List (Def : Iir; Idx : Iir_Flist); + + -- The subtype_indication as it appears in a array type declaration. + -- Field: Field2 + function Get_Element_Subtype_Indication (Decl : Iir) return Iir; + procedure Set_Element_Subtype_Indication (Decl : Iir; Sub_Type : Iir); + + -- Field: Field1 Ref + function Get_Element_Subtype (Decl : Iir) return Iir; + procedure Set_Element_Subtype (Decl : Iir; Sub_Type : Iir); + + -- Field: Field6 (uc) + function Get_Index_Constraint_List (Def : Iir) return Iir_Flist; + procedure Set_Index_Constraint_List (Def : Iir; List : Iir_Flist); + + -- Field: Field8 + function Get_Array_Element_Constraint (Def : Iir) return Iir; + procedure Set_Array_Element_Constraint (Def : Iir; El : Iir); + + -- List of elements of a record. + -- For a record_type_definition: Is_Ref is false, as the elements + -- declaration are owned by the type definition. + -- For a record_subtype_definition: Is_Ref is false, as new constrained + -- elements are owned through the Owned_Elements_Chain list. + -- Field: Field1 Of_Maybe_Ref (uc) + function Get_Elements_Declaration_List (Decl : Iir) return Iir_Flist; + procedure Set_Elements_Declaration_List (Decl : Iir; List : Iir_Flist); + + -- Field: Field6 Chain + function Get_Owned_Elements_Chain (Atype : Iir) return Iir; + procedure Set_Owned_Elements_Chain (Atype : Iir; Chain : Iir); + + -- Field: Field1 Forward_Ref + function Get_Designated_Type (Target : Iir) return Iir; + procedure Set_Designated_Type (Target : Iir; Dtype : Iir); + + -- Field: Field5 + function Get_Designated_Subtype_Indication (Target : Iir) return Iir; + procedure Set_Designated_Subtype_Indication (Target : Iir; Dtype : Iir); + + -- List of indexes for indexed name. + -- Field: Field2 (uc) + function Get_Index_List (Decl : Iir) return Iir_Flist; + procedure Set_Index_List (Decl : Iir; List : Iir_Flist); + + -- The terminal declaration for the reference (ground) of a nature + -- Field: Field2 + function Get_Reference (Def : Iir) return Iir; + procedure Set_Reference (Def : Iir; Ref : Iir); + + -- Field: Field3 + function Get_Nature_Declarator (Def : Iir) return Iir; + procedure Set_Nature_Declarator (Def : Iir; Decl : Iir); + + -- Field: Field7 + function Get_Across_Type (Def : Iir) return Iir; + procedure Set_Across_Type (Def : Iir; Atype : Iir); + + -- Field: Field8 + function Get_Through_Type (Def : Iir) return Iir; + procedure Set_Through_Type (Def : Iir; Atype : Iir); + + -- Field: Field1 Maybe_Ref + function Get_Target (Target : Iir) return Iir; + procedure Set_Target (Target : Iir; Atarget : Iir); + + -- Field: Field5 Chain + function Get_Waveform_Chain (Target : Iir) return Iir; + procedure Set_Waveform_Chain (Target : Iir; Chain : Iir); + + -- Field: Field8 Ref + function Get_Guard (Target : Iir) return Iir; + procedure Set_Guard (Target : Iir; Guard : Iir); + + -- Field: Flag1 (uc) + function Get_Delay_Mechanism (Target : Iir) return Iir_Delay_Mechanism; + procedure Set_Delay_Mechanism (Target : Iir; Kind : Iir_Delay_Mechanism); + + -- Field: Field4 + function Get_Reject_Time_Expression (Target : Iir) return Iir; + procedure Set_Reject_Time_Expression (Target : Iir; Expr : Iir); + + -- The Is_Ref flag is set for extracted sensitivity lists. + -- Field: Field6 Of_Maybe_Ref (uc) + function Get_Sensitivity_List (Wait : Iir) return Iir_List; + procedure Set_Sensitivity_List (Wait : Iir; List : Iir_List); + + -- Field: Field8 + function Get_Process_Origin (Proc : Iir) return Iir; + procedure Set_Process_Origin (Proc : Iir; Orig : Iir); + + -- Field: Field7 + function Get_Package_Origin (Pkg : Iir) return Iir; + procedure Set_Package_Origin (Pkg : Iir; Orig : Iir); + + -- Field: Field5 + function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir; + procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir); + + -- Field: Field1 + function Get_Timeout_Clause (Wait : Iir_Wait_Statement) return Iir; + procedure Set_Timeout_Clause (Wait : Iir_Wait_Statement; Timeout : Iir); + + -- If set, the concurrent statement is postponed. + -- Field: Flag3 + function Get_Postponed_Flag (Target : Iir) return Boolean; + procedure Set_Postponed_Flag (Target : Iir; Value : Boolean); + + -- Returns the list of subprogram called in this subprogram or process. + -- Note: implicit function (such as implicit operators) are omitted + -- from this list, since the purpose of this list is to correctly set + -- flags for side effects (purity_state, wait_state). + -- Can return null_iir if there is no subprogram called. + -- Field: Field7 Of_Ref (uc) + function Get_Callees_List (Proc : Iir) return Iir_List; + procedure Set_Callees_List (Proc : Iir; List : Iir_List); + + -- Get/Set the passive flag of a process. + -- TRUE if the process must be passive. + -- FALSE if the process may be not passive. + -- For a procedure declaration, set if it is passive. + -- Field: Flag2 + function Get_Passive_Flag (Proc : Iir) return Boolean; + procedure Set_Passive_Flag (Proc : Iir; Flag : Boolean); + + -- True if the function is used as a resolution function. + -- Field: Flag7 + function Get_Resolution_Function_Flag (Func : Iir) return Boolean; + procedure Set_Resolution_Function_Flag (Func : Iir; Flag : Boolean); + + -- Get/Set the wait state of the current subprogram or process. + -- TRUE if it contains a wait statement, either directly or + -- indirectly. + -- FALSE if it doesn't contain a wait statement. + -- UNKNOWN if the wait status is not yet known. + -- Field: State1 (pos) + function Get_Wait_State (Proc : Iir) return Tri_State_Type; + procedure Set_Wait_State (Proc : Iir; State : Tri_State_Type); + + -- Get/Set whether the subprogram may be called by a sensitized process + -- whose sensitivity list is ALL. + -- FALSE if declared in a package unit and reads a signal that is not + -- one of its interface, or if it calls such a subprogram. + -- TRUE if it doesn't call a subprogram whose state is False and + -- either doesn't read a signal or declared within an entity or + -- architecture. + -- UNKNOWN if the status is not yet known. + -- Field: State3 (pos) + function Get_All_Sensitized_State (Proc : Iir) return Iir_All_Sensitized; + procedure Set_All_Sensitized_State (Proc : Iir; State : Iir_All_Sensitized); + + -- Get/Set the seen flag. + -- Used when the graph of callees is walked, to avoid infinite loops, since + -- the graph is not a DAG (there may be cycles). + -- Field: Flag1 + function Get_Seen_Flag (Proc : Iir) return Boolean; + procedure Set_Seen_Flag (Proc : Iir; Flag : Boolean); + + -- Get/Set the pure flag of a function. + -- TRUE if the function is declared pure. + -- FALSE if the function is declared impure. + -- Field: Flag2 + function Get_Pure_Flag (Func : Iir) return Boolean; + procedure Set_Pure_Flag (Func : Iir; Flag : Boolean); + + -- Get/Set the foreign flag of a declaration. + -- TRUE if the declaration was decored with the std.foreign attribute. + -- Field: Flag3 + function Get_Foreign_Flag (Decl : Iir) return Boolean; + procedure Set_Foreign_Flag (Decl : Iir; Flag : Boolean); + + -- Get/Set the resolved flag of a subtype definition. + -- A subtype definition may be resolved either because a + -- resolution_indication is present in the subtype_indication, or + -- because all elements type are resolved. + -- Field: Flag1 + function Get_Resolved_Flag (Atype : Iir) return Boolean; + procedure Set_Resolved_Flag (Atype : Iir; Flag : Boolean); + + -- Get/Set the signal_type flag of a type/subtype definition. + -- This flags indicates whether the type can be used as a signal type. + -- Access types, file types and composite types whose a sub-element is + -- an access type cannot be used as a signal type. + -- Field: Flag2 + function Get_Signal_Type_Flag (Atype : Iir) return Boolean; + procedure Set_Signal_Type_Flag (Atype : Iir; Flag : Boolean); + + -- True if ATYPE is used to declare a signal or to handle a signal + -- (such as slice or aliases). + -- Field: Flag3 + function Get_Has_Signal_Flag (Atype : Iir) return Boolean; + procedure Set_Has_Signal_Flag (Atype : Iir; Flag : Boolean); + + -- Get/Set the purity status of a subprogram. + -- Field: State2 (pos) + function Get_Purity_State (Proc : Iir) return Iir_Pure_State; + procedure Set_Purity_State (Proc : Iir; State : Iir_Pure_State); + + -- Set during binding when DESIGN is added in a list of file to bind. + -- Field: Flag3 + function Get_Elab_Flag (Design : Iir) return Boolean; + procedure Set_Elab_Flag (Design : Iir; Flag : Boolean); + + -- Used only by configuration to mark a design unit as already inserted in + -- the list of units. Used to avoid double insertion. + -- Field: Flag4 + function Get_Configuration_Mark_Flag (Design : Iir) return Boolean; + procedure Set_Configuration_Mark_Flag (Design : Iir; Flag : Boolean); + + -- Used only by configuration to flag units completely handled. Used to + -- detect recursion. + -- Field: Flag5 + function Get_Configuration_Done_Flag (Design : Iir) return Boolean; + procedure Set_Configuration_Done_Flag (Design : Iir; Flag : Boolean); + + -- Set on an array_subtype if there is an index constraint. + -- If not set, the subtype is unconstrained. + -- Field: Flag4 + function Get_Index_Constraint_Flag (Atype : Iir) return Boolean; + procedure Set_Index_Constraint_Flag (Atype : Iir; Flag : Boolean); + + -- Field: Flag12 + function Get_Hide_Implicit_Flag (Subprg : Iir) return Boolean; + procedure Set_Hide_Implicit_Flag (Subprg : Iir; Flag : Boolean); + + -- Condition of an assertion. + -- Field: Field1 + function Get_Assertion_Condition (Target : Iir) return Iir; + procedure Set_Assertion_Condition (Target : Iir; Cond : Iir); + + -- Report expression of an assertion or report statement. + -- Field: Field5 + function Get_Report_Expression (Target : Iir) return Iir; + procedure Set_Report_Expression (Target : Iir; Expr : Iir); + + -- Severity expression of an assertion or report statement. + -- Field: Field4 + function Get_Severity_Expression (Target : Iir) return Iir; + procedure Set_Severity_Expression (Target : Iir; Expr : Iir); + + -- Instantiated unit of a component instantiation statement. + -- Field: Field1 + function Get_Instantiated_Unit (Target : Iir) return Iir; + procedure Set_Instantiated_Unit (Target : Iir; Unit : Iir); + + -- Generic map aspect list. + -- Field: Field8 Chain + function Get_Generic_Map_Aspect_Chain (Target : Iir) return Iir; + procedure Set_Generic_Map_Aspect_Chain (Target : Iir; Generics : Iir); + + -- Port map aspect list. + -- Field: Field9 Chain + function Get_Port_Map_Aspect_Chain (Target : Iir) return Iir; + procedure Set_Port_Map_Aspect_Chain (Target : Iir; Port : Iir); + + -- Configuration of an entity_aspect_configuration. + -- Field: Field1 + function Get_Configuration_Name (Target : Iir) return Iir; + procedure Set_Configuration_Name (Target : Iir; Conf : Iir); + + -- Component configuration for a component_instantiation_statement. + -- Field: Field6 Forward_Ref + function Get_Component_Configuration (Target : Iir) return Iir; + procedure Set_Component_Configuration (Target : Iir; Conf : Iir); + + -- Configuration specification for a component_instantiation_statement. + -- Field: Field7 Ref + function Get_Configuration_Specification (Target : Iir) return Iir; + procedure Set_Configuration_Specification (Target : Iir; Conf : Iir); + + -- Set/Get the default binding indication of a configuration specification + -- or a component configuration. + -- Field: Field5 + function Get_Default_Binding_Indication (Target : Iir) return Iir; + procedure Set_Default_Binding_Indication (Target : Iir; Conf : Iir); + + -- Set/Get the default configuration of an architecture. + -- Field: Field6 + function Get_Default_Configuration_Declaration (Target : Iir) return Iir; + procedure Set_Default_Configuration_Declaration (Target : Iir; Conf : Iir); + + -- Expression for an various nodes. + -- Field: Field5 + function Get_Expression (Target : Iir) return Iir; + procedure Set_Expression (Target : Iir; Expr : Iir); + + -- A conditional expression. + -- Node kind is a Iir_Kind_Conditional_Expression. + -- Field: Field5 Chain + function Get_Conditional_Expression (Target : Iir) return Iir; + procedure Set_Conditional_Expression (Target : Iir; Expr : Iir); + + -- Set to the designated type (either the type of the expression or the + -- subtype) when the expression is analyzed. + -- Field: Field2 Ref + function Get_Allocator_Designated_Type (Target : Iir) return Iir; + procedure Set_Allocator_Designated_Type (Target : Iir; A_Type : Iir); + + -- Field: Field7 Chain + function Get_Selected_Waveform_Chain (Target : Iir) return Iir; + procedure Set_Selected_Waveform_Chain (Target : Iir; Chain : Iir); + + -- Field: Field5 Chain + function Get_Conditional_Waveform_Chain (Target : Iir) return Iir; + procedure Set_Conditional_Waveform_Chain (Target : Iir; Chain : Iir); + + -- Expression defining the value of the implicit guard signal. + -- Field: Field2 + function Get_Guard_Expression (Target : Iir) return Iir; + procedure Set_Guard_Expression (Target : Iir; Expr : Iir); + + -- The declaration (if any) of the implicit guard signal of a block + -- statement. + -- Field: Field8 + function Get_Guard_Decl (Target : Iir_Block_Statement) return Iir; + procedure Set_Guard_Decl (Target : Iir_Block_Statement; Decl : Iir); + + -- Sensitivity list for the implicit guard signal. + -- Field: Field4 Of_Ref (uc) + function Get_Guard_Sensitivity_List (Guard : Iir) return Iir_List; + procedure Set_Guard_Sensitivity_List (Guard : Iir; List : Iir_List); + + -- Field: Field3 Forward_Ref + function Get_Signal_Attribute_Chain (Decl : Iir) return Iir; + procedure Set_Signal_Attribute_Chain (Decl : Iir; Chain : Iir); + + -- Block_Configuration that applies to this block statement. + -- Field: Field6 Forward_Ref + function Get_Block_Block_Configuration (Block : Iir) return Iir; + procedure Set_Block_Block_Configuration (Block : Iir; Conf : Iir); + + -- Field: Field6 + function Get_Package_Header (Pkg : Iir) return Iir; + procedure Set_Package_Header (Pkg : Iir; Header : Iir); + + -- Field: Field7 + function Get_Block_Header (Target : Iir) return Iir; + procedure Set_Block_Header (Target : Iir; Header : Iir); + + -- Field: Field7 + function Get_Uninstantiated_Package_Name (Inst : Iir) return Iir; + procedure Set_Uninstantiated_Package_Name (Inst : Iir; Name : Iir); + + -- Field: Field9 Ref + function Get_Uninstantiated_Package_Decl (Inst : Iir) return Iir; + procedure Set_Uninstantiated_Package_Decl (Inst : Iir; Pkg : Iir); + + -- The created pseudo-file for relocating the instantiated nodes + -- (generics and declarations). + -- Field: Field10 (uc) + function Get_Instance_Source_File (Inst : Iir) return Source_File_Entry; + procedure Set_Instance_Source_File (Inst : Iir; File : Source_File_Entry); + + -- Get/Set the block_configuration (there may be several + -- block_configuration through the use of prev_configuration singly linked + -- list) that apply to this generate statement. + -- Field: Field2 Forward_Ref + function Get_Generate_Block_Configuration (Target : Iir) return Iir; + procedure Set_Generate_Block_Configuration (Target : Iir; Conf : Iir); + + -- Field: Field4 + function Get_Generate_Statement_Body (Target : Iir) return Iir; + procedure Set_Generate_Statement_Body (Target : Iir; Bod : Iir); + + -- Field: Field3 (uc) + function Get_Alternative_Label (Target : Iir) return Name_Id; + procedure Set_Alternative_Label (Target : Iir; Label : Name_Id); + + -- Field: Field5 + function Get_Generate_Else_Clause (Target : Iir) return Iir; + procedure Set_Generate_Else_Clause (Target : Iir; Clause : Iir); + + -- Condition of a conditional_waveform, if_statement, elsif, + -- while_loop_statement, next_statement or exit_statement. + -- Field: Field1 Maybe_Ref + function Get_Condition (Target : Iir) return Iir; + procedure Set_Condition (Target : Iir; Condition : Iir); + + -- Field: Field4 + function Get_Else_Clause (Target : Iir) return Iir; + procedure Set_Else_Clause (Target : Iir; Clause : Iir); + + -- Iterator of a for_loop_statement. + -- Field: Field1 + function Get_Parameter_Specification (Target : Iir) return Iir; + procedure Set_Parameter_Specification (Target : Iir; Param : Iir); + + -- Get/Set the statement in which TARGET appears. This is used to check + -- if next/exit is in a loop. + -- Field: Field0 Ref + function Get_Parent (Target : Iir) return Iir; + procedure Set_Parent (Target : Iir; Parent : Iir); + + -- Loop label for an exit_statement or next_statement. + -- Field: Field5 + function Get_Loop_Label (Target : Iir) return Iir; + procedure Set_Loop_Label (Target : Iir; Stmt : Iir); + + -- Component name for a component_configuration or + -- a configuration_specification. + -- Field: Field4 + function Get_Component_Name (Target : Iir) return Iir; + procedure Set_Component_Name (Target : Iir; Name : Iir); + + -- Field: Field1 (uc) + function Get_Instantiation_List (Target : Iir) return Iir_Flist; + procedure Set_Instantiation_List (Target : Iir; List : Iir_Flist); + + -- Field: Field3 + function Get_Entity_Aspect (Target : Iir_Binding_Indication) return Iir; + procedure Set_Entity_Aspect (Target : Iir_Binding_Indication; Entity : Iir); + + -- Field: Field1 + function Get_Default_Entity_Aspect (Target : Iir) return Iir; + procedure Set_Default_Entity_Aspect (Target : Iir; Aspect : Iir); + + -- Field: Field3 Maybe_Ref + function Get_Binding_Indication (Target : Iir) return Iir; + procedure Set_Binding_Indication (Target : Iir; Binding : Iir); + + -- The named entity designated by a name. + -- Field: Field4 Maybe_Forward_Ref + function Get_Named_Entity (Name : Iir) return Iir; + procedure Set_Named_Entity (Name : Iir; Val : Iir); + + -- If a name designate a non-object alias, the designated alias. + -- Named_Entity will designate the aliased entity. + -- Field: Field2 Ref + function Get_Alias_Declaration (Name : Iir) return Iir; + procedure Set_Alias_Declaration (Name : Iir; Val : Iir); + + -- Field: Field2 Ref + function Get_Referenced_Name (N : Iir) return Iir; + procedure Set_Referenced_Name (N : Iir; Name : Iir); + + -- Expression staticness, defined by rules of LRM 7.4 + -- Field: State1 (pos) + function Get_Expr_Staticness (Target : Iir) return Iir_Staticness; + procedure Set_Expr_Staticness (Target : Iir; Static : Iir_Staticness); + + -- Node which couldn't be correctly analyzed. + -- Field: Field2 + function Get_Error_Origin (Target : Iir) return Iir; + procedure Set_Error_Origin (Target : Iir; Origin : Iir); + + -- Operand of a monadic operator. + -- Field: Field2 + function Get_Operand (Target : Iir) return Iir; + procedure Set_Operand (Target : Iir; An_Iir : Iir); + + -- Left operand of a dyadic operator. + -- Field: Field2 + function Get_Left (Target : Iir) return Iir; + procedure Set_Left (Target : Iir; An_Iir : Iir); + + -- Right operand of a dyadic operator. + -- Field: Field4 + function Get_Right (Target : Iir) return Iir; + procedure Set_Right (Target : Iir; An_Iir : Iir); + + -- Field: Field3 Ref + function Get_Physical_Unit (Lit : Iir) return Iir; + procedure Set_Physical_Unit (Lit : Iir; Name : Iir); + + -- Field: Field0 + function Get_Unit_Name (Target : Iir) return Iir; + procedure Set_Unit_Name (Target : Iir; Name : Iir); + + -- Field: Field4 + function Get_Name (Target : Iir) return Iir; + procedure Set_Name (Target : Iir; Name : Iir); + + -- Field: Field5 + function Get_Group_Template_Name (Target : Iir) return Iir; + procedure Set_Group_Template_Name (Target : Iir; Name : Iir); + + -- Staticness of a name, according to rules of LRM 6.1 + -- Field: State2 (pos) + function Get_Name_Staticness (Target : Iir) return Iir_Staticness; + procedure Set_Name_Staticness (Target : Iir; Static : Iir_Staticness); + + -- Prefix of a name. + -- Field: Field0 + function Get_Prefix (Target : Iir) return Iir; + procedure Set_Prefix (Target : Iir; Prefix : Iir); + + -- Prefix of a name signature + -- Field: Field1 + function Get_Signature_Prefix (Sign : Iir) return Iir; + procedure Set_Signature_Prefix (Sign : Iir; Prefix : Iir); + + -- External pathname for an external name. + -- Field: Field3 + function Get_External_Pathname (Name : Iir) return Iir; + procedure Set_External_Pathname (Name : Iir; Path : Iir); + + -- Field: Field2 + function Get_Pathname_Suffix (Path : Iir) return Iir; + procedure Set_Pathname_Suffix (Path : Iir; Suffix : Iir); + + -- Field: Field5 + function Get_Pathname_Expression (Path : Iir) return Iir; + procedure Set_Pathname_Expression (Path : Iir; Expr : Iir); + + -- True if the name appears in a formal_part. In that case, some + -- checks must be disabled (eg: the expression of a type conversion can + -- be a write-only interface). + -- Field: Flag4 + function Get_In_Formal_Flag (Name : Iir) return Boolean; + procedure Set_In_Formal_Flag (Name : Iir; Flag : Boolean); + + -- The subtype of a slice. Contrary to the Type field, this is not a + -- reference. + -- Field: Field3 + function Get_Slice_Subtype (Slice : Iir) return Iir; + procedure Set_Slice_Subtype (Slice : Iir; Atype : Iir); + + -- Suffix of a slice or attribute. + -- Field: Field2 + function Get_Suffix (Target : Iir) return Iir; + procedure Set_Suffix (Target : Iir; Suffix : Iir); + + -- Set the designated index subtype of an array attribute. + -- Field: Field2 Ref + function Get_Index_Subtype (Attr : Iir) return Iir; + procedure Set_Index_Subtype (Attr : Iir; St : Iir); + + -- Parameter of an attribute. + -- Field: Field4 + function Get_Parameter (Target : Iir) return Iir; + procedure Set_Parameter (Target : Iir; Param : Iir); + + -- Field: Field2 Forward_Ref + function Get_Attr_Chain (Attr : Iir) return Iir; + procedure Set_Attr_Chain (Attr : Iir; Chain : Iir); + + -- Field: Field3 Forward_Ref + function Get_Signal_Attribute_Declaration (Attr : Iir) return Iir; + procedure Set_Signal_Attribute_Declaration (Attr : Iir; Decl : Iir); + + -- Type of the actual for an association by individual. + -- Unless the formal is an unconstrained array type, this is the same as + -- the formal type. + -- Subtype indiciation for a type association. + -- Field: Field5 Ref + function Get_Actual_Type (Target : Iir) return Iir; + procedure Set_Actual_Type (Target : Iir; Atype : Iir); + + -- Field: Field3 + function Get_Actual_Type_Definition (Target : Iir) return Iir; + procedure Set_Actual_Type_Definition (Target : Iir; Atype : Iir); + + -- List of individual associations for association_element_by_individual. + -- Associations for parenthesis_name. + -- Field: Field2 Chain + function Get_Association_Chain (Target : Iir) return Iir; + procedure Set_Association_Chain (Target : Iir; Chain : Iir); + + -- List of choices for association_element_by_individual. + -- Field: Field4 Chain + function Get_Individual_Association_Chain (Target : Iir) return Iir; + procedure Set_Individual_Association_Chain (Target : Iir; Chain : Iir); + + -- Chain of implicit subprogram associations for a type association. + -- Field: Field4 Chain + function Get_Subprogram_Association_Chain (Target : Iir) return Iir; + procedure Set_Subprogram_Association_Chain (Target : Iir; Chain : Iir); + + -- Get/Set info for the aggregate. + -- There is one aggregate_info for for each dimension. + -- Field: Field5 + function Get_Aggregate_Info (Target : Iir) return Iir; + procedure Set_Aggregate_Info (Target : Iir; Info : Iir); + + -- Get/Set the info node for the next dimension. + -- Field: Field1 + function Get_Sub_Aggregate_Info (Target : Iir) return Iir; + procedure Set_Sub_Aggregate_Info (Target : Iir; Info : Iir); + + -- TRUE when the length of the aggregate is not locally static. + -- Field: Flag3 + function Get_Aggr_Dynamic_Flag (Target : Iir) return Boolean; + procedure Set_Aggr_Dynamic_Flag (Target : Iir; Val : Boolean); + + -- Get/Set the minimum number of elements for the lowest dimension of + -- the aggregate or for the current dimension of a sub-aggregate. + -- The real number of elements may be greater than this number if there + -- is an 'other' choice. + -- Field: Field4 (uc) + function Get_Aggr_Min_Length (Info : Iir_Aggregate_Info) return Iir_Int32; + procedure Set_Aggr_Min_Length (Info : Iir_Aggregate_Info; Nbr : Iir_Int32); + + -- Highest index choice, if any. + -- Field: Field2 Ref + function Get_Aggr_Low_Limit (Target : Iir_Aggregate_Info) return Iir; + procedure Set_Aggr_Low_Limit (Target : Iir_Aggregate_Info; Limit : Iir); + + -- Highest index choice, if any. + -- Field: Field3 Ref + function Get_Aggr_High_Limit (Target : Iir_Aggregate_Info) return Iir; + procedure Set_Aggr_High_Limit (Target : Iir_Aggregate_Info; Limit : Iir); + + -- True if the aggregate has an 'others' choice. + -- Field: Flag2 + function Get_Aggr_Others_Flag (Target : Iir_Aggregate_Info) return Boolean; + procedure Set_Aggr_Others_Flag (Target : Iir_Aggregate_Info; Val : Boolean); + + -- True if the aggregate have named associations. + -- Field: Flag4 + function Get_Aggr_Named_Flag (Target : Iir_Aggregate_Info) return Boolean; + procedure Set_Aggr_Named_Flag (Target : Iir_Aggregate_Info; Val : Boolean); + + -- True if the aggregate can be statically built. + -- Field: Flag1 + function Get_Aggregate_Expand_Flag (Aggr : Iir) return Boolean; + procedure Set_Aggregate_Expand_Flag (Aggr : Iir; Flag : Boolean); + + -- Chain of choices. + -- Field: Field4 Chain + function Get_Association_Choices_Chain (Target : Iir) return Iir; + procedure Set_Association_Choices_Chain (Target : Iir; Chain : Iir); + + -- Chain of choices. + -- Field: Field1 Chain + function Get_Case_Statement_Alternative_Chain (Target : Iir) return Iir; + procedure Set_Case_Statement_Alternative_Chain (Target : Iir; Chain : Iir); + + -- Staticness of the choice. + -- Field: State1 (pos) + function Get_Choice_Staticness (Target : Iir) return Iir_Staticness; + procedure Set_Choice_Staticness (Target : Iir; Staticness : Iir_Staticness); + + -- Field: Field1 + function Get_Procedure_Call (Stmt : Iir) return Iir; + procedure Set_Procedure_Call (Stmt : Iir; Call : Iir); + + -- Subprogram to be called by a procedure, function call or operator. This + -- is the declaration of the subprogram (or a list of during analysis). + -- Field: Field3 Ref + function Get_Implementation (Target : Iir) return Iir; + procedure Set_Implementation (Target : Iir; Decl : Iir); + + -- Paramater associations for procedure and function call. + -- Field: Field2 Chain + function Get_Parameter_Association_Chain (Target : Iir) return Iir; + procedure Set_Parameter_Association_Chain (Target : Iir; Chain : Iir); + + -- Object of a method call. NULL_IIR if the subprogram is not a method. + -- Field: Field4 Ref + function Get_Method_Object (Target : Iir) return Iir; + procedure Set_Method_Object (Target : Iir; Object : Iir); + + -- The type_mark that appeared in the subtype indication. This is a name. + -- May be null_iir if there is no type mark (as in an iterator). + -- Field: Field2 + function Get_Subtype_Type_Mark (Target : Iir) return Iir; + procedure Set_Subtype_Type_Mark (Target : Iir; Mark : Iir); + + -- Field: Field3 + function Get_Type_Conversion_Subtype (Target : Iir) return Iir; + procedure Set_Type_Conversion_Subtype (Target : Iir; Atype : Iir); + + -- The type_mark that appeared in qualified expressions or type + -- conversions. + -- Field: Field4 + function Get_Type_Mark (Target : Iir) return Iir; + procedure Set_Type_Mark (Target : Iir; Mark : Iir); + + -- The type of values for a type file. + -- Field: Field2 + function Get_File_Type_Mark (Target : Iir) return Iir; + procedure Set_File_Type_Mark (Target : Iir; Mark : Iir); + + -- Field: Field8 + function Get_Return_Type_Mark (Target : Iir) return Iir; + procedure Set_Return_Type_Mark (Target : Iir; Mark : Iir); + + -- This flag is set on a signal_declaration, when a disconnection + -- specification applies to the signal (or a subelement of it). + -- This is used to check 'others' and 'all' designators. + -- Field: Flag1 + function Get_Has_Disconnect_Flag (Target : Iir) return Boolean; + procedure Set_Has_Disconnect_Flag (Target : Iir; Val : Boolean); + + -- This flag is set on a signal when its activity is read by the user. + -- Some signals handling can be optimized when this flag is set. + -- Field: Flag2 + function Get_Has_Active_Flag (Target : Iir) return Boolean; + procedure Set_Has_Active_Flag (Target : Iir; Val : Boolean); + + -- This flag is set is code being analyzed is textually within TARGET. + -- This is used for selected by name rule. + -- Field: Flag5 + function Get_Is_Within_Flag (Target : Iir) return Boolean; + procedure Set_Is_Within_Flag (Target : Iir; Val : Boolean); + + -- List of type_mark for an Iir_Kind_Signature + -- Field: Field2 (uc) + function Get_Type_Marks_List (Target : Iir) return Iir_Flist; + procedure Set_Type_Marks_List (Target : Iir; List : Iir_Flist); + + -- Field: Flag1 + function Get_Implicit_Alias_Flag (Decl : Iir) return Boolean; + procedure Set_Implicit_Alias_Flag (Decl : Iir; Flag : Boolean); + + -- Field: Field5 + function Get_Alias_Signature (Alias : Iir) return Iir; + procedure Set_Alias_Signature (Alias : Iir; Signature : Iir); + + -- Field: Field2 + function Get_Attribute_Signature (Attr : Iir) return Iir; + procedure Set_Attribute_Signature (Attr : Iir; Signature : Iir); + + -- Field: Field1 Of_Ref (uc) + function Get_Overload_List (Target : Iir) return Iir_List; + procedure Set_Overload_List (Target : Iir; List : Iir_List); + + -- Identifier of the simple_name attribute. + -- Field: Field3 (uc) + function Get_Simple_Name_Identifier (Target : Iir) return Name_Id; + procedure Set_Simple_Name_Identifier (Target : Iir; Ident : Name_Id); + + -- Subtype for Simple_Name attribute. + -- Field: Field4 + function Get_Simple_Name_Subtype (Target : Iir) return Iir; + procedure Set_Simple_Name_Subtype (Target : Iir; Atype : Iir); + + -- Body of a protected type declaration. + -- Field: Field2 Forward_Ref + function Get_Protected_Type_Body (Target : Iir) return Iir; + procedure Set_Protected_Type_Body (Target : Iir; Bod : Iir); + + -- Corresponsing protected type declaration of a protected type body. + -- Field: Field4 Ref + function Get_Protected_Type_Declaration (Target : Iir) return Iir; + procedure Set_Protected_Type_Declaration (Target : Iir; Decl : Iir); + + -- For a declaration: true if the declaration is used somewhere. + -- Field: Flag6 + function Get_Use_Flag (Decl : Iir) return Boolean; + procedure Set_Use_Flag (Decl : Iir; Val : Boolean); + + -- Layout flag: true if 'end' is followed by the reserved identifier. + -- Field: Flag8 + function Get_End_Has_Reserved_Id (Decl : Iir) return Boolean; + procedure Set_End_Has_Reserved_Id (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'end' is followed by the identifier. + -- Field: Flag9 + function Get_End_Has_Identifier (Decl : Iir) return Boolean; + procedure Set_End_Has_Identifier (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'end' is followed by 'postponed'. + -- Field: Flag10 + function Get_End_Has_Postponed (Decl : Iir) return Boolean; + procedure Set_End_Has_Postponed (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if a label is present. + -- Field: Flag6 + function Get_Has_Label (Decl : Iir) return Boolean; + procedure Set_Has_Label (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'begin' is present. + -- Field: Flag10 + function Get_Has_Begin (Decl : Iir) return Boolean; + procedure Set_Has_Begin (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'end' is present (only for generate body). + -- Field: Flag11 + function Get_Has_End (Decl : Iir) return Boolean; + procedure Set_Has_End (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'is' is present. + -- Field: Flag7 + function Get_Has_Is (Decl : Iir) return Boolean; + procedure Set_Has_Is (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'pure' or 'impure' is present. + -- Field: Flag8 + function Get_Has_Pure (Decl : Iir) return Boolean; + procedure Set_Has_Pure (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if body appears just after the specification. + -- Field: Flag9 + function Get_Has_Body (Decl : Iir) return Boolean; + procedure Set_Has_Body (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'parameter' reserved identifier is present. + -- Field: Flag10 + function Get_Has_Parameter (Decl : Iir) return Boolean; + procedure Set_Has_Parameter (Decl : Iir; Flag : Boolean); + + -- Layout flag: true if 'component' reserved identifier is present. + -- Field: Flag5 + function Get_Has_Component (Decl : Iir) return Boolean; + procedure Set_Has_Component (Decl : Iir; Flag : Boolean); + + -- Layout flag for object declaration. If True, the identifier of this + -- declaration is followed by an identifier (and separated by a comma). + -- This flag is set on all but the last declarations. + -- Eg: on 'signal A, B, C : Bit', the flag is set on A and B (but not C). + -- Field: Flag3 + function Get_Has_Identifier_List (Decl : Iir) return Boolean; + procedure Set_Has_Identifier_List (Decl : Iir; Flag : Boolean); + + -- Layout flag for object declaration. If True, the mode is present. + -- Field: Flag10 + function Get_Has_Mode (Decl : Iir) return Boolean; + procedure Set_Has_Mode (Decl : Iir; Flag : Boolean); + + -- Layout flag for object declaration. If True, the object class is + -- present. + -- Field: Flag11 + function Get_Has_Class (Decl : Iir) return Boolean; + procedure Set_Has_Class (Decl : Iir; Flag : Boolean); + + -- Set on wait, procedure call and composite statements when there is a + -- sub-statement that can suspend a procedure or a process. Also set + -- on procedure declaration. Note that the flag is conservative: it must + -- be true if the node contains directly or indirectly a wait statement, + -- but need not to be false otherwise. + -- Field: Flag11 + function Get_Suspend_Flag (Stmt : Iir) return Boolean; + procedure Set_Suspend_Flag (Stmt : Iir; Flag : Boolean); + + -- Set to True if Maybe_Ref fields are references. This cannot be shared + -- with Has_Identifier_List as: Is_Ref is set to True on all items but + -- the first, while Has_Identifier_List is set to True on all items but + -- the last. Furthermore Is_Ref appears in nodes where Has_Identifier_List + -- is not present. + -- Field: Flag12 + function Get_Is_Ref (N : Iir) return Boolean; + procedure Set_Is_Ref (N : Iir; Ref : Boolean); + + -- Field: Flag1 + function Get_Is_Forward_Ref (N : Iir) return Boolean; + procedure Set_Is_Forward_Ref (N : Iir; Ref : Boolean); + + -- Field: Field1 (uc) + function Get_Psl_Property (Decl : Iir) return PSL_Node; + procedure Set_Psl_Property (Decl : Iir; Prop : PSL_Node); + + -- Field: Field1 (uc) + function Get_Psl_Sequence (Decl : Iir) return PSL_Node; + procedure Set_Psl_Sequence (Decl : Iir; Prop : PSL_Node); + + -- Field: Field6 (uc) + function Get_Psl_Declaration (Decl : Iir) return PSL_Node; + procedure Set_Psl_Declaration (Decl : Iir; Prop : PSL_Node); + + -- Field: Field3 (uc) + function Get_Psl_Expression (Decl : Iir) return PSL_Node; + procedure Set_Psl_Expression (Decl : Iir; Prop : PSL_Node); + + -- Field: Field1 (uc) + function Get_Psl_Boolean (N : Iir) return PSL_Node; + procedure Set_Psl_Boolean (N : Iir; Bool : PSL_Node); + + -- Field: Field7 (uc) + function Get_PSL_Clock (N : Iir) return PSL_Node; + procedure Set_PSL_Clock (N : Iir; Clock : PSL_Node); + + -- Field: Field8 (uc) + function Get_PSL_NFA (N : Iir) return PSL_NFA; + procedure Set_PSL_NFA (N : Iir; Fa : PSL_NFA); + + -- Field: Field9 (uc) + function Get_PSL_Nbr_States (N : Iir) return Int32; + procedure Set_PSL_Nbr_States (N : Iir; Nbr : Int32); + + -- Field: Field10 (uc) + function Get_PSL_Clock_Sensitivity (N : Iir) return Iir_List; + procedure Set_PSL_Clock_Sensitivity (N : Iir; List : Iir_List); + + -- Field: Flag1 + function Get_PSL_EOS_Flag (N : Iir) return Boolean; + procedure Set_PSL_EOS_Flag (N : Iir; Flag : Boolean); + +end Vhdl.Nodes; diff --git a/src/vhdl/vhdl-nodes_gc.adb b/src/vhdl/vhdl-nodes_gc.adb index d20f2a89e..1dc54f4bd 100644 --- a/src/vhdl/vhdl-nodes_gc.adb +++ b/src/vhdl/vhdl-nodes_gc.adb @@ -376,7 +376,7 @@ package body Vhdl.Nodes_GC is is use Vhdl.Std_Package; begin - Markers := new Marker_Array'(Null_Iir .. Iirs.Get_Last_Node => False); + Markers := new Marker_Array'(Null_Iir .. Nodes.Get_Last_Node => False); Has_Error := False; diff --git a/src/vhdl/vhdl-nodes_gc.ads b/src/vhdl/vhdl-nodes_gc.ads index 258ab7ab9..77fa67f0c 100644 --- a/src/vhdl/vhdl-nodes_gc.ads +++ b/src/vhdl/vhdl-nodes_gc.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Nodes_GC is Flag_Disp_Multiref : Boolean := True; diff --git a/src/vhdl/vhdl-parse.ads b/src/vhdl/vhdl-parse.ads index c399fc475..4e7b54a12 100644 --- a/src/vhdl/vhdl-parse.ads +++ b/src/vhdl/vhdl-parse.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Parse is -- If True, create nodes for parenthesis expressions. diff --git a/src/vhdl/vhdl-parse_psl.adb b/src/vhdl/vhdl-parse_psl.adb index f20094231..3c44b7213 100644 --- a/src/vhdl/vhdl-parse_psl.adb +++ b/src/vhdl/vhdl-parse_psl.adb @@ -18,13 +18,15 @@ with Errorout; use Errorout; with PSL.Nodes; use PSL.Nodes; -with Iirs; +with Vhdl.Nodes; with Vhdl.Scanner; use Vhdl.Scanner; with PSL.Errors; use PSL.Errors; with PSL.Priorities; use PSL.Priorities; with Vhdl.Parse; package body Vhdl.Parse_Psl is + subtype Vhdl_Node is Vhdl.Nodes.Iir; + procedure Error_Msg_Parse (Msg: String) is begin Report_Msg (Msgid_Error, Errorout.Parse, No_Location, Msg); @@ -72,12 +74,12 @@ package body Vhdl.Parse_Psl is end if; end Parse_Count; - function Psl_To_Vhdl (N : Node) return Iirs.Iir; + function Psl_To_Vhdl (N : Node) return Vhdl_Node; - function Binary_Psl_Operator_To_Vhdl (N : Node; Kind : Iirs.Iir_Kind) - return Iirs.Iir + function Binary_Psl_Operator_To_Vhdl (N : Node; Kind : Vhdl.Nodes.Iir_Kind) + return Vhdl_Node is - use Iirs; + use Vhdl.Nodes; Res : Iir; begin Res := Create_Iir (Kind); @@ -87,14 +89,14 @@ package body Vhdl.Parse_Psl is return Res; end Binary_Psl_Operator_To_Vhdl; - function Psl_To_Vhdl (N : Node) return Iirs.Iir + function Psl_To_Vhdl (N : Node) return Vhdl_Node is - use Iirs; + use Vhdl.Nodes; Res : Iir; begin case Get_Kind (N) is when N_HDL_Expr => - Res := Iirs.Iir (Get_HDL_Node (N)); + Res := Vhdl_Node (Get_HDL_Node (N)); when N_And_Prop => Res := Binary_Psl_Operator_To_Vhdl (N, Iir_Kind_And_Operator); when N_Or_Prop => @@ -109,9 +111,9 @@ package body Vhdl.Parse_Psl is return Res; end Psl_To_Vhdl; - function Vhdl_To_Psl (N : Iirs.Iir) return Node + function Vhdl_To_Psl (N : Vhdl_Node) return Node is - use Iirs; + use Vhdl.Nodes; Res : Node; begin Res := Create_Node_Loc (N_HDL_Expr); @@ -129,7 +131,7 @@ package body Vhdl.Parse_Psl is function Parse_Unary_Boolean (Full_Hdl_Expr : Boolean) return Node is use Parse; - use Iirs; + use Vhdl.Nodes; Left, Expr : Iir; Op : Iir_Kind; begin @@ -444,7 +446,7 @@ package body Vhdl.Parse_Psl is if Get_Kind (Res) = N_HDL_Expr then declare - N : Iirs.Iir; + N : Vhdl_Node; begin N := Psl_To_Vhdl (Res); N := Parse.Parse_Binary_Expression (N, Parse.Prio_Expression); diff --git a/src/vhdl/vhdl-post_sems.ads b/src/vhdl/vhdl-post_sems.ads index 09effa2c0..8f8c93740 100644 --- a/src/vhdl/vhdl-post_sems.ads +++ b/src/vhdl/vhdl-post_sems.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Post_Sems is -- Do post analyze checks, such as VITAL checks. diff --git a/src/vhdl/vhdl-sem.ads b/src/vhdl/vhdl-sem.ads index c6bb46bd8..ab1056899 100644 --- a/src/vhdl/vhdl-sem.ads +++ b/src/vhdl/vhdl-sem.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Types; use Types; package Vhdl.Sem is diff --git a/src/vhdl/vhdl-sem_assocs.ads b/src/vhdl/vhdl-sem_assocs.ads index 632956c3d..1e66ad02b 100644 --- a/src/vhdl/vhdl-sem_assocs.ads +++ b/src/vhdl/vhdl-sem_assocs.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Sem_Expr; use Vhdl.Sem_Expr; package Vhdl.Sem_Assocs is diff --git a/src/vhdl/vhdl-sem_decls.ads b/src/vhdl/vhdl-sem_decls.ads index 99609b5e3..f22cd8791 100644 --- a/src/vhdl/vhdl-sem_decls.ads +++ b/src/vhdl/vhdl-sem_decls.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Decls is -- Analyze an interface chain. diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 09316fa11..5fa584758 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -3464,8 +3464,8 @@ package body Vhdl.Sem_Expr is | Iir_Kind_Choice_By_Expression => Is_Positional := False; Choice_Staticness := - Iirs.Min (Choice_Staticness, - Get_Choice_Staticness (Choice)); + Nodes.Min (Choice_Staticness, + Get_Choice_Staticness (Choice)); -- FIXME: not true for range. Len := Len + 1; when Iir_Kind_Choice_By_None => @@ -3490,7 +3490,7 @@ package body Vhdl.Sem_Expr is Len := Len + Natural (Eval_Discrete_Type_Length (Expr_Index)); when Globally | None => - Len_Staticness := Iirs.Min + Len_Staticness := Nodes.Min (Len_Staticness, Index_Staticness); when Unknown => -- Must have been caught by Is_Error. diff --git a/src/vhdl/vhdl-sem_expr.ads b/src/vhdl/vhdl-sem_expr.ads index 4e96aa5be..c58a26e86 100644 --- a/src/vhdl/vhdl-sem_expr.ads +++ b/src/vhdl/vhdl-sem_expr.ads @@ -18,7 +18,7 @@ with Ada.Unchecked_Deallocation; with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Expr is -- Set semantic to EXPR. diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb index 8550e0650..699b5b3e8 100644 --- a/src/vhdl/vhdl-sem_inst.adb +++ b/src/vhdl/vhdl-sem_inst.adb @@ -49,7 +49,7 @@ package body Vhdl.Sem_Inst is procedure Expand_Origin_Table is use Vhdl.Nodes_Priv; - Last : constant Iir := Iirs.Get_Last_Node; + Last : constant Iir := Nodes.Get_Last_Node; El : constant Iir := Origin_Table.Last; begin if El < Last then diff --git a/src/vhdl/vhdl-sem_inst.ads b/src/vhdl/vhdl-sem_inst.ads index 48d72b770..8ec8aa195 100644 --- a/src/vhdl/vhdl-sem_inst.ads +++ b/src/vhdl/vhdl-sem_inst.ads @@ -14,7 +14,7 @@ -- package to its duplicated node. Links from instantiated declaration to -- the original declaration are also stored in that table. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Inst is -- Return the origin of node N, the node from which N was instantiated. diff --git a/src/vhdl/vhdl-sem_lib.ads b/src/vhdl/vhdl-sem_lib.ads index 812279b90..544359bf3 100644 --- a/src/vhdl/vhdl-sem_lib.ads +++ b/src/vhdl/vhdl-sem_lib.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Lib is -- Start the analyse a file (ie load and parse it). diff --git a/src/vhdl/vhdl-sem_names.ads b/src/vhdl/vhdl-sem_names.ads index d5ed1a462..49ccd2ca7 100644 --- a/src/vhdl/vhdl-sem_names.ads +++ b/src/vhdl/vhdl-sem_names.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Names is -- In VHDL, most of name notations are ambiguous: diff --git a/src/vhdl/vhdl-sem_psl.ads b/src/vhdl/vhdl-sem_psl.ads index 396927f4d..36a20a81c 100644 --- a/src/vhdl/vhdl-sem_psl.ads +++ b/src/vhdl/vhdl-sem_psl.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Psl is procedure Sem_Psl_Declaration (Stmt : Iir); diff --git a/src/vhdl/vhdl-sem_scopes.ads b/src/vhdl/vhdl-sem_scopes.ads index 93aad18cd..762cccfa9 100644 --- a/src/vhdl/vhdl-sem_scopes.ads +++ b/src/vhdl/vhdl-sem_scopes.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Types; use Types; package Vhdl.Sem_Scopes is diff --git a/src/vhdl/vhdl-sem_specs.ads b/src/vhdl/vhdl-sem_specs.ads index 5c4fef962..d626a9bfb 100644 --- a/src/vhdl/vhdl-sem_specs.ads +++ b/src/vhdl/vhdl-sem_specs.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; with Vhdl.Tokens; package Vhdl.Sem_Specs is diff --git a/src/vhdl/vhdl-sem_stmts.ads b/src/vhdl/vhdl-sem_stmts.ads index 81c7806aa..526af45ec 100644 --- a/src/vhdl/vhdl-sem_stmts.ads +++ b/src/vhdl/vhdl-sem_stmts.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Stmts is -- Analyze declarations and concurrent statements of BLK, which is diff --git a/src/vhdl/vhdl-sem_types.ads b/src/vhdl/vhdl-sem_types.ads index 33648b870..6ba20166c 100644 --- a/src/vhdl/vhdl-sem_types.ads +++ b/src/vhdl/vhdl-sem_types.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Types is -- Analyze of types (LRM93 3 / LRM08 5) diff --git a/src/vhdl/vhdl-sem_utils.ads b/src/vhdl/vhdl-sem_utils.ads index b7fc8082e..726342cdf 100644 --- a/src/vhdl/vhdl-sem_utils.ads +++ b/src/vhdl/vhdl-sem_utils.ads @@ -15,7 +15,7 @@ -- 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; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Sem_Utils is -- Compute and set the hash profile of a subprogram or enumeration clause. diff --git a/src/vhdl/vhdl-std_package.ads b/src/vhdl/vhdl-std_package.ads index f20364e10..b851eeae1 100644 --- a/src/vhdl/vhdl-std_package.ads +++ b/src/vhdl/vhdl-std_package.ads @@ -17,7 +17,7 @@ -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Vhdl.Std_Package is diff --git a/src/vhdl/xrefs.adb b/src/vhdl/xrefs.adb index d59b34f60..0c510892b 100644 --- a/src/vhdl/xrefs.adb +++ b/src/vhdl/xrefs.adb @@ -219,7 +219,7 @@ package body Xrefs is -- Note: nodes of std_standard have the same location. FIXME ? N1 := Get_Xref_Node (Op1); N2 := Get_Xref_Node (Op2); - if Iirs."/=" (N1, N2) then + if Vhdl.Nodes."/=" (N1, N2) then return Vhdl.Nodes_Priv."<" (N1, N2); end if; diff --git a/src/vhdl/xrefs.ads b/src/vhdl/xrefs.ads index c89470e9b..766d123c1 100644 --- a/src/vhdl/xrefs.ads +++ b/src/vhdl/xrefs.ads @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Types; use Types; -with Iirs; use Iirs; +with Vhdl.Nodes; use Vhdl.Nodes; package Xrefs is type Xref_Kind is diff --git a/src/xtools/pnodes.py b/src/xtools/pnodes.py index 82c1a69b2..f573cc417 100755 --- a/src/xtools/pnodes.py +++ b/src/xtools/pnodes.py @@ -885,7 +885,7 @@ def main(): global formats, fields, nodes, kinds, kinds_ranges, funcs global type_name, prefix_name, template_file, node_type, meta_base_file - global prefix_range_name, flag_keep_order + global prefix_range_name, flag_keep_order, kind_file type_name = args.kind_type prefix_name = args.kind_prefix -- cgit v1.2.3