comparison gcc/ada/expander.ads @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- E X P A N D E R -- 5 -- E X P A N D E R --
6 -- -- 6 -- --
7 -- S p e c -- 7 -- S p e c --
8 -- -- 8 -- --
9 -- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
133 -- 133 --
134 -- (a) when starting/completing the processing of a generic definition 134 -- (a) when starting/completing the processing of a generic definition
135 -- or declaration (see routines Start_Generic_Processing and 135 -- or declaration (see routines Start_Generic_Processing and
136 -- End_Generic_Processing in Sem_Ch12) 136 -- End_Generic_Processing in Sem_Ch12)
137 -- 137 --
138 -- (b) when starting/completing the pre-analysis of an expression 138 -- (b) when starting/completing the preanalysis of an expression
139 -- (see the spec of package Sem for more info on pre-analysis.) 139 -- (see the spec of package Sem for more info on preanalysis.)
140 -- 140 --
141 -- Note that when processing a spec expression (In_Spec_Expression 141 -- Note that when processing a spec expression (In_Spec_Expression
142 -- is True) or performing semantic analysis of a generic spec or body 142 -- is True) or performing semantic analysis of a generic spec or body
143 -- (Inside_A_Generic) or when performing pre-analysis (Full_Analysis is 143 -- (Inside_A_Generic) or when performing preanalysis (Full_Analysis is
144 -- False) the Expander_Active flag is False. 144 -- False) the Expander_Active flag is False.
145 145
146 procedure Expand (N : Node_Id); 146 procedure Expand (N : Node_Id);
147 -- Expand node N, as described above 147 -- Expand node N, as described above
148 148