src/vhdl/translate/trans-foreach_non_composite.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

--  Iir to ortho translator.
--  Copyright (C) 2002 - 2014 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 GCC; see the file COPYING.  If not, write to the Free
--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
--  02111-1307, USA.

--  Handle a composite type TARG/TARG_TYPE and apply DO_NON_COMPOSITE
--  on each non composite type.
--  There is a generic parameter DATA which may be updated
--    before indexing an array by UPDATE_DATA_ARRAY.
generic
   type Data_Type is private;
   type Composite_Data_Type is private;
   with procedure Do_Non_Composite (Targ      : Mnode;
                                    Targ_Type : Iir;
                                    Data      : Data_Type);

   --  This function should extract the base of DATA.
   with function Prepare_Data_Array (Targ      : Mnode;
                                     Targ_Type : Iir;
                                     Data      : Data_Type)
                                    return Composite_Data_Type;

   --  This function should index DATA.
   with function Update_Data_Array (Data      : Composite_Data_Type;
                                    Targ_Type : Iir;
                                    Index     : O_Dnode)
                                   return Data_Type;

   --  This function is called at the end of a record process.
   with procedure Finish_Data_Array (Data : in out Composite_Data_Type)
      is null;

   --  This function should stabilize DATA.
   with function Prepare_Data_Record (Targ      : Mnode;
                                      Targ_Type : Iir;
                                      Data      : Data_Type)
                                     return Composite_Data_Type;

   --  This function should extract field EL of DATA.
   with function Update_Data_Record (Data      : Composite_Data_Type;
                                     Targ_Type : Iir;
                                     El        : Iir_Element_Declaration)
                                    return Data_Type;

   --  This function is called at the end of a record process.
   with procedure Finish_Data_Record (Data : in out Composite_Data_Type)
     is null;

procedure Trans.Foreach_Non_Composite (Targ      : Mnode;
                                       Targ_Type : Iir;
                                       Data      : Data_Type);