| blob | 451d7b20c43c31ad697f5af01d227134154a7661 |
1 2021-12-28 Martin Liska <mliska@suse.cz>
3 * doc/share/gnu_free_documentation_license.rst: Replace http:// with https.
4 * gnat-style.texi: Likewise.
5 * gnat_rm.texi: Likewise.
6 * gnat_ugn.texi: Likewise.
8 2021-12-09 Jakub Jelinek <jakub@redhat.com>
10 PR pch/71934
11 * gcc-interface/decl.c (gt_pch_nx): Pass NULL as new middle argument
12 to op.
14 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
16 * gcc-interface/Make-lang.in (ADA_GENERATED_FILES): Add warning.
18 2021-12-02 Marc Poulhiès <poulhies@adacore.com>
20 * gcc-interface/a-assert.ads, gcc-interface/a-assert.adb: Remove.
22 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
24 * gcc-interface/decl.c (gnat_to_gnu_entity): Do not back-annotate a
25 maximum size for the Esize of limited record and concurrent types.
27 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
29 * gcc-interface/gigi.h (aggregate_type_contains_array_p): Delete.
30 (type_has_variable_size): Declare.
31 * gcc-interface/decl.c (adjust_packed): Return 0 only if the field
32 type is an array with variable size.
33 * gcc-interface/utils.c (aggregate_type_contains_array_p): Make
34 static and remove SELF_REFERENTIAL parameter.
35 (type_has_variable_size): Make public.
36 (create_field_decl): Adjust call to aggregate_type_contains_array_p.
38 2021-12-02 Justin Squirek <squirek@adacore.com>
40 * gcc-interface/decl.c (gnat_to_gnu_entity): Skip normal
41 processing for Itypes that are E_Class_Wide_Subtype with
42 Equivalent_Type set.
44 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
46 * gcc-interface/trans.c (Call_to_gnu): Rename GNAT_NAME variable
47 into GNAT_SUBPROG to avoid later shadowing.
49 2021-12-02 Yannick Moy <moy@adacore.com>
51 * libgnat/s-arit32.adb: Add ghost instances and lemmas.
52 (Scaled_Divide32): Add ghost code to prove. Minor code
53 modification to return early in error when divisor is zero.
54 * libgnat/s-arit32.ads: Add ghost instances and utilities.
55 (Scaled_Divide32): Add contract.
57 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
59 * sprint.adb (Source_Dump): Set both Print_Generated_Code and
60 Debug_Generated_Code to False at the end.
62 2021-12-02 Marc Poulhiès <poulhies@adacore.com>
64 * sem_aggr.adb (Resolve_Array_Aggregate): Filter out nodes not
65 coming from source before emitting the warning.
67 2021-12-02 Yannick Moy <moy@adacore.com>
69 * libgnat/s-aridou.adb (Log_Single_Size, Big_0): New ghost
70 constants.
71 (Lemma_Mult_Non_Negative, Lemma_Mult_Non_Positive,
72 Lemma_Not_In_Range_Big2xx64): New lemmas on big integers.
73 (Double_Divide): Remove justifications. Amend for that local
74 lemma Prove_Overflow_Case.
75 (Scaled_Divide): Remove justifications. Insert for that local
76 lemmas Prove_Negative_Dividend, Prove_Positive_Dividend and
77 Prove_Q_Too_Big, and amend local lemma Prove_Overflow. To prove
78 the loop invariant on (Shift mod 2 = 0), introduce local ghost
79 variable Iter to count loop iterations, and relate its value to
80 the value of Shift through Log_Single_Size, with the help of
81 local lemma Prove_Power. Deal with proof regression by adding
82 new local lemma Prove_First_Iteration and local ghost variable
83 D123.
84 * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64): Remove
85 unnecessary Pure_Function on function as package is Pure.
87 2021-12-02 Yannick Moy <moy@adacore.com>
89 * libgnat/s-widthi.adb: Add pragma Annotate.
91 2021-12-02 Yannick Moy <moy@adacore.com>
93 * libgnat/s-widint.ads: Mark in SPARK.
94 * libgnat/s-widlli.ads: Likewise.
95 * libgnat/s-widllli.ads: Likewise.
96 * libgnat/s-widlllu.ads: Likewise.
97 * libgnat/s-widllu.ads: Disable ghost/contract.
98 * libgnat/s-widthi.adb: Replicate and adapt the proof from
99 s-widthu.adb.
100 * libgnat/s-widthi.ads: Add minimal postcondition.
101 * libgnat/s-widthu.adb: Fix comments in the modular case.
102 * libgnat/s-widthu.ads: Add minimal postcondition.
103 * libgnat/s-widuns.ads: Disable ghost/contract.
105 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
107 * rtsfind.ads (RE_Id, RE_Unit_Table): Add RE_Suspension_Object.
108 * sem_util.adb (Is_Descendant_Of_Suspension_Object): Use Is_RTE.
109 (Is_Suspension_Object): Remove body.
110 * sem_util.ads (Is_Suspension_Object): Remove spec.
111 * snames.ads-tmpl (Name_Suspension_Object): Remove, now
112 unreferenced.
114 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
116 * exp_util.adb (Append_Freeze_Action): Tune whitespace to make
117 the code look similar to Append_Freeze_Actions, which takes a
118 List_Id.
119 * sem_ch6.adb (Analyze_Return_Type): Cleanup with
120 Append_Freeze_Action.
121 * exp_ch3.adb (Build_Access_Subprogram_Wrapper_Body): Likewise.
122 * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Likewise.
123 * contracts.adb (Add_Indirect_Call_Wrapper): Remove extra call
124 to Ensure_Freeze_Node.
125 (Add_Call_Helper): Likewise.
126 * freeze.adb (Check_Inherited_Conditions): Likewise.
127 (Attribute_Renaming): Likewise.
128 * sem_ch8.adb: Likewise.
130 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
132 * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst
133 (No_Dispatching_Calls): Fix whitespace in example code.
134 * gnat_rm.texi: Regenerate.
135 * exp_ch13.adb (Expand_N_Freeze_Entity): Replace low-level
136 membership test with a high-level wrapper.
137 * exp_ch3.adb (Expand_Freeze_Record_Type): Remove unnecessary
138 initialization of list of wrapper declarations and unnecessary
139 guard for list of their bodies (if no bodies are created then
140 Append_Freeze_Actions is a no-op).
142 2021-12-02 Marc Poulhiès <poulhies@adacore.com>
144 * exp_imgv.adb (Append_Table_To): Add new parameter to
145 Make_Aggregate call.
146 * gen_il-fields.ads (Opt_Field_Enum):
147 Add Is_Parenthesis_Aggregate and Is_Enum_Array_Aggregate.
148 * gen_il-gen-gen_nodes.adb (Union): Add Is_Enum_Array_Aggregate
149 and Is_Parenthesis_Aggregate field to N_Aggregate.
150 * libgnarl/s-interr.adb (User_Handler, User_Entry, Blocked)
151 (Ignored, Last_Unblocker, Server_ID): Likewise.
152 * libgnarl/s-intman.ads (Keep_Unmasked, Reserve): Likewise.
153 * libgnarl/s-intman__posix.adb (Exception_Interrupts)
154 (Initialize): Likewise.
155 * libgnarl/s-mudido__affinity.adb (Create): Likewise.
156 * libgnarl/s-osinte__linux.ads (Unmasked, Reserved): Likewise.
157 * libgnarl/s-taprop__linux.adb (Create_Task, Set_Task_Affinity)
158 * libgnarl/s-tasdeb.adb (Trace_On): Likewise.
159 * libgnarl/s-tasdeb.ads (Known_Tasks): Likewise.
160 * libgnarl/s-tasinf__linux.ads (Any_CPU, No_CPU): Likewise.
161 * libgnarl/s-taskin.adb (Initialize_ATCB): Likewise.
162 * libgnarl/s-taskin.ads (Ada_Task_Control_Block): Likewise.
163 * libgnarl/s-tasren.adb (Default_Treatment)
164 (New_State): Likewise.
165 * libgnarl/s-tassta.adb (Trace_Unhandled_Exception_In_Task):
166 Likewise.
167 * libgnarl/s-tataat.adb (Index_Array): Likewise.
168 * libgnarl/s-tpobop.adb (New_State): Likewise.
169 * libgnat/a-calend.adb (Cumulative_Days_Before_Month)
170 (Leap_Second_Times): Likewise.
171 * libgnat/a-calend.ads (Days_In_Month): Likewise.
172 * libgnat/a-cfinve.adb (Insert): Likewise.
173 * libgnat/a-chahan.adb (Char_Map): Likewise.
174 * libgnat/a-chtgbo.adb (Clear): Likewise.
175 * libgnat/a-cobove.adb ("&", Insert, To_Vector): Likewise.
176 * libgnat/a-cofove.adb (Insert, To_Vector): Likewise.
177 * libgnat/a-cohata.ads (Hash_Table_Type): Likewise.
178 * libgnat/a-coinve.adb (Merge, Insert, Insert_Space): Likewise.
179 * libgnat/a-convec.adb (Insert, To_Vector): Likewise.
180 * libgnat/a-coprnu.ads (Primes): Likewise.
181 * libgnat/a-direct.adb (Empty_String): Use regular "" instead
182 of aggregate.
183 (Start_Search_Internal, Name_Case_Equivalence, Search)
184 (Start_Search, Start_Search_Internal): Use bracket for
185 aggregate.
186 * libgnat/a-direct.ads (Start_Search,Search): Likewise.
187 * libgnat/a-direio.adb (Zeroes): Likewise.
188 * libgnat/a-nbnbre.adb (Leading_Padding, Trailing_Padding)
189 (Numerator_Image): Likewise.
190 * libgnat/a-ngrear.adb (Jacobi): Likewise.
191 * libgnat/a-stbubo.adb (Get_UTF_8): Likewise.
192 * libgnat/a-stbufo.adb (Put): Likewise.
193 * libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
194 * libgnat/a-stbuut.adb (Put_7bit, Put_Character)
195 (Put_Wide_Character, Put_Wide_Wide_Character): Likewise.
196 * libgnat/a-stmaco.ads (Control_Set,Graphic_Set,Letter_Set)
197 (Lower_Set, Upper_Set, Basic_Set, Decimal_Digit_Set)
198 (Hexadecimal_Digit_Set, Alphanumeric_Set, Special_Set)
199 (ISO_646_Set): Likewise.
200 * libgnat/a-strbou.ads (Insert, Tail, "*", Replicate)
201 (Null_Bounded_String): Likewise.
202 * libgnat/a-strfix.ads (Head, Tail): Likewise.
203 * libgnat/a-strmap.adb (To_Domain, Lemma_Is_Sorted): Likewise.
204 * libgnat/a-strmap.ads (Null_Set): Likewise.
205 * libgnat/a-strsup.adb (Super_Head, Super_Replicate)
206 (Super_Tail): Likewise.
207 * libgnat/a-strsup.ads (Super_Head, Super_Tail, Times)
208 (Super_Replicate): Likewise.
209 * libgnat/a-sttebu.adb (Put_UTF8, Wide_Put_UTF_16): Likewise.
210 * libgnat/a-stuten.ads (BOM_16): Likewise.
211 * libgnat/a-stwibo.ads (Null_Bounded_Wide_String): Likewise.
212 * libgnat/a-stwima.ads (Null_Range): Likewise.
213 * libgnat/a-stwisu.adb (Super_Head, Super_Replicate)
214 (Super_Tail): Likewise.
215 * libgnat/a-stzbou.ads
216 (Null_Bounded_Wide_Wide_String): Likewise.
217 * libgnat/a-stzmap.ads (Null_Range): Likewise.
218 * libgnat/a-stzsup.adb (Super_Head, Super_Replicate)
219 (Super_Tail, Super_Trim): Likewise.
220 * libgnat/a-swmwco.ads (Control_Ranges, Graphic_Ranges)
221 (Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
222 (Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
223 (Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
224 (Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
225 (Basic_Mapping): Likewise.
226 * libgnat/a-szmzco.ads (Control_Ranges, Graphic_Ranges)
227 (Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
228 (Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
229 (Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
230 (Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
231 (Basic_Mapping): Likewise.
232 * libgnat/a-teioed.adb (Format_Number): Likewise.
233 * libgnat/a-wtedit.adb (Format_Number): Likewise.
234 * libgnat/a-ztedit.adb (Format_Number): Likewise.
235 * libgnat/g-arrspl.adb (Separators): Likewise.
236 * libgnat/g-catiio.adb (Month_Name_To_Number): Likewise.
237 * libgnat/g-cgideb.adb (NL, Title): Likewise.
238 * libgnat/g-comlin.adb (Internal_Initialize_Option_Scan)
239 (Display_Section_Help): Likewise.
240 * libgnat/g-comlin.ads (Opt_Parser_Data): Likewise.
241 * libgnat/g-debpoo.adb (Set_Dead_Beef, Dump): Likewise.
242 * libgnat/g-expect.adb (Expect, Has_Process, Send): Likewise.
243 * libgnat/g-forstr.adb ("+", Get_Formatted): Likewise.
244 * libgnat/g-memdum.adb (Dump): Likewise.
245 * libgnat/g-rannum.adb (Image): Likewise.
246 * libgnat/g-sechas.adb (Final, HMAC_Initial_Context): Likewise.
247 * libgnat/g-sehamd.ads (Initial_State): Likewise.
248 * libgnat/g-sehash.ads (Initial_State): Likewise.
249 * libgnat/g-sercom.ads (Data_Rate_Value): Likewise.
250 * libgnat/g-sercom__linux.adb (C_Data_Rate, C_Bits, C_Stop_Bits)
251 (C_Parity): Likewise.
252 * libgnat/g-shsh32.ads (K, Transform): Likewise.
253 * libgnat/g-shsh64.ads (K, Transform): Likewise.
254 * libgnat/g-socket.adb (Levels, Modes, Shutmodes, Requests)
255 (Options, Flags, Get_Name_Info, Image): Likewise.
256 * libgnat/g-socket.ads (Inet_Addr_Bytes_Length, Inet_Addr_Type)
257 (IPv4_To_IPv6_Prefix, Any_Inet_Addr, Any_Inet6_Addr)
258 (No_Inet_Addr, Broadcast_Inet_Addr, Loopback_Inet_Addr)
259 (Loopback_Inet6_Addr, Unspecified_Group_Inet_Addr)
260 (All_Hosts_Group_Inet_Addr, All_Routers_Group_Inet_Addr)
261 (Unspecified_Group_Inet6_Addr, All_Hosts_Group_Inet6_Addr)
262 (All_Routers_Group_Inet6_Addr): Likewise.
263 * libgnat/g-socpol.adb (To_C, Status, Get_Events): Likewise.
264 * libgnat/g-socpol.ads (Input_Event, Output_Event, Both_Event)
265 (Error_Event): Likewise.
266 * libgnat/g-sothco.ads (Families, Lengths, Sockaddr): Likewise.
267 * libgnat/g-spipat.adb (OK_For_Simple_Arbno): Likewise.
268 * libgnat/i-cobol.ads (Ada_To_COBOL, COBOL_To_Ada): Likewise.
269 * libgnat/i-pacdec.adb (Packed_Byte): Likewise.
270 * libgnat/i-pacdec.ads (Packed_Size): Likewise.
271 * libgnat/s-bitops.adb (Masks): Likewise.
272 * libgnat/s-crc32.adb (Table): Likewise.
273 * libgnat/s-gearop.adb (Unit_Matrix, Unit_Vector): Likewise.
274 * libgnat/s-genbig.adb (Out_data, Zero_Data, Big_Exp, Big_Mul)
275 (To_Bignum, To_String, Image, Leading_Padding): Likewise.
276 * libgnat/s-htable.adb (Reset): Likewise.
277 * libgnat/s-imgcha.adb (C0, C1): Likewise.
278 * libgnat/s-powflt.ads (Powten): Likewise.
279 * libgnat/s-powlfl.ads (Powten): Likewise.
280 * libgnat/s-powllf.ads (Powten): Likewise.
281 * libgnat/s-rannum.adb (Matrix_A, Random_Float_Template, Image):
282 Likewise.
283 * libgnat/s-rannum.ads (Generator): Likewise.
284 * libgnat/s-regexp.adb (Compile,Create_Primary_Table)
285 (Create_Primary_Table_Glob, Create_Secondary_Table, Compile):
286 Likewise.
287 * libgnat/s-regpat.adb (Bit_Conversion, Set, Dump_Until)
288 (Dump_Current, Dump_Error, Try, Reset_Class): Likewise.
289 * libgnat/s-regpat.ads (Pattern_Matcher, Never_Match): Likewise.
290 * libgnat/s-scaval__128.adb (Initialize): Likewise.
291 * libgnat/s-statxd.adb (Fields, W_F, W_LF)
292 (W_LLF, W_SF): Likewise.
293 * libgnat/s-stausa.adb (Initialize, Initialize_Analyzer)
294 (Output_Results): Likewise.
295 * libgnat/s-strops.adb (Str_Concat_SC): Likewise.
296 * libgnat/s-valrea.adb (Maxexp32, Maxexp64, Maxexp80): Likewise.
297 * libgnat/s-wchcon.ads (WC_Encoding_Letters)
298 (WC_Longest_Sequences): Likewise.
299 * par-ch4.adb (P_Aggregate_Or_Paren_Expr): Set
300 Is_Parenthesis_Aggregate when creating a N_Aggregate using
301 parenthesis.
302 * scng.adb (Scan): Lower version needed for bracket syntax from
303 Extensions to Ada2022.
304 * sem_aggr.adb (Resolve_Aggregate): Raise error for container
305 aggregate using parenthesis instead of bracket.
306 (Resolve_Array_Aggregate): Raise warning for aggregate using
307 parenthesis in Ada2022 with obsolescent warning enabled and not
308 in GNAT mode.
309 * sem_util.ads (Check_Ambiguous_Aggregate): Typo fix in comment.
311 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
313 * libgnarl/a-taside.ads (Activation_Is_Complete): Add pragma
314 Inline.
316 2021-12-02 Eric Botcazou <ebotcazou@adacore.com>
318 * sem_ch12.adb (Freeze_Package_Instance): Consistently consider
319 the freeze node of the parent and use large inequality for
320 Slocs.
321 (Freeze_Subprogram_Instance): Likewise.
322 (Insert_Freeze_Node_For_Instance): For an instance in a package
323 spec with no source body that immediately follows, consider the
324 body of the package for the placement of the freeze node and go
325 to the outer level if there is no such body.
327 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
329 * exp_ch13.ads (Expand_N_Freeze_Entity): Add note about a SPARK
330 twin.
331 * exp_ch3.ads (Freeze_Type): Likewise.
332 * exp_spark.adb (Expand_SPARK_N_Freeze_Entity): Mimic what is
333 done in Freeze_Entity.
334 (SPARK_Freeze_Type): Mimic what is done in Freeze_Type; add call
335 to Make_Predefined_Primitive_Eq_Spec.
337 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
339 * exp_ch3.adb (Make_Predefined_Primitive_Specs): Move code for
340 spec of dispatching equality.
341 (Predefined_Primitive_Bodies): Move code for body if dispatching
342 equality.
343 (Make_Predefined_Primitive_Eq_Spec): Separated code for spec of
344 dispatching equality.
345 (Predefined_Primitive_Eq_Body): Separated code for body of
346 dispatching equality.
347 * exp_ch3.ads: Update.
349 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
351 * libgnat/s-valuti.ads (Scan_Natural_Ghost): Split body from
352 spec and put it into private part, so that GNATprove can pick it
353 both when analysing the unit and its clients.
355 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
357 * exp_aggr.adb, exp_ch6.adb, par-ch4.adb, sem_ch13.adb: Remove
358 extra space after ":=" symbol.
359 * gen_il-gen.adb: Likewise; add missing headerbox.
361 2021-12-02 Richard Kenner <kenner@adacore.com>
363 * rtsfind.adb (Maybe_Add_With): Ensure that the added "with" is
364 never marked as ignored ghost code.
366 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
368 * freeze.adb (Freeze_Entity): Replace First_Entity/Next_Entity
369 with First_Component/Next_Component; remove condition with Ekind
370 equal to E_Component.
371 * sem_ch13.adb (Check_Record_Representation_Clause): Likewise
372 for component-or-discriminant.
373 * sem_util.adb (Is_Fully_Initialized_Type): Likewise; rename Ent
374 to a more specific Comp.
375 * sem_warn.adb (Check_References): Likewise.
377 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
379 * sem_warn.adb (Warn_On_Unassigned_Out_Parameter): Move inner
380 loop at the beginning of subprogram, so it is executed only
381 once; fix order in the "add an ad hoc" phrase.
383 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
385 * sem_warn.adb (Check_References): Remove redundant condition.
387 2021-12-02 Doug Rupp <rupp@adacore.com>
389 * vxworks7-cert-rtp-link__ppcXX.spec: New file.
390 * Makefile.rtl: Use it.
392 2021-12-02 Yannick Moy <moy@adacore.com>
394 * libgnat/i-c.adb: Add ghost code.
395 (C_Length_Ghost): New ghost functions to query the C length of a
396 string.
397 (To_Ada): Insert constant Count_Cst where needed to comply with
398 SPARK. Homogeneize code between variants for char, wchar_t,
399 char16_t and char32_t. Use char16_nul and char32_nul
400 systematically instead of their value. Fix the type of index To
401 to be Integer instead of Positive, to avoid a possible range
402 check failure on an empty Target. Insert an exit statement to
403 avoid a possible overflow failure when the last index in Target
404 is Natural'Last (possibly on a small string as well).
405 * libgnat/i-c.ads: Add contracts.
406 (C_Length_Ghost): New ghost functions to query the C length of a
407 string.
408 * libgnat/s-os_lib.adb: Remove pragma Compiler_Unit_Warning
409 causing a spurious error during compilation of GNAT, as this
410 pragma is not needed anymore now that we bootstrap (stage1) with
411 the base compiler runtime.
413 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
415 * libgnarl/a-taside.ads (Activation_Is_Complete): Add
416 precondition.
418 2021-12-02 Piotr Trojanek <trojanek@adacore.com>
420 * sem_ch3.adb (Check_Derived_Type): Rename local variables; fix
421 style in comment.
423 2021-12-02 Yannick Moy <moy@adacore.com>
425 * libgnat/s-valboo.adb (First_Non_Space_Ghost): Move to
426 utilities.
427 (Value_Boolean): Prefix call to First_Non_Space_Ghost.
428 * libgnat/s-valboo.ads (First_Non_Space_Ghost): Move to
429 utilities.
430 (Is_Boolean_Image_Ghost, Value_Boolean): Prefix call to
431 First_Non_Space_Ghost.
432 * libgnat/s-valuer.adb (Scan_Raw_Real): Adapt to change of
433 function Scan_Exponent to procedure.
434 * libgnat/s-valueu.adb (Scan_Raw_Unsigned): Adapt to change of
435 function Scan_Exponent to procedure.
436 * libgnat/s-valuti.adb (First_Non_Space_Ghost): Function moved
437 here.
438 (Last_Number_Ghost): New ghost query function.
439 (Scan_Exponent): Change function with side-effects into
440 procedure, to mark in SPARK. Prove procedure wrt contract.
441 Change type of local P to avoid possible range check failure (it
442 is not known whether this can be activated by callers).
443 (Scan_Plus_Sign, Scan_Sign): Change type of local P to avoid
444 possible range check failure. Add loop invariants and assertions
445 for proof.
446 (Scan_Trailing_Blanks): Add loop invariant.
447 (Scan_Underscore): Remove SPARK_Mode Off.
448 * libgnat/s-valuti.ads (First_Non_Space_Ghost): Function moved
449 here.
450 (Last_Number_Ghost, Only_Number_Ghost, Is_Natural_Format_Ghost,
451 Scan_Natural_Ghost): New ghost query functions.
452 (Scan_Plus_Sign, Scan_Sign, Scan_Exponent, Scan_Trailing_Blanks,
453 Scan_Underscore): Add functional contracts.
455 2021-12-02 Yannick Moy <moy@adacore.com>
457 * libgnat/s-imgboo.adb: Mark in SPARK.
458 * libgnat/s-imgboo.ads: Mark in SPARK. Change from Pure to
459 Preelaborate unit in order to be able to depend on
460 System.Val_Bool.
461 (Image_Boolean): Functionally specify the result of the
462 procedure by calling System.Val_Bool.Value_Boolean on the
463 result.
464 * libgnat/s-valboo.adb: Mark in SPARK.
465 (First_Non_Space_Ghost): New ghost function.
466 (Value_Boolean): Change type of L and F to avoid possible range
467 check failure on empty Str.
468 * libgnat/s-valboo.ads: Mark in SPARK. Duplicate with-clause
469 from body in the spec to be able to call
470 System.Val_Util.Only_Space_Ghost in the contract.
471 (First_Non_Space_Ghost): New ghost function computing the first
472 non-space character in a string.
473 (Is_Boolean_Image_Ghost): New ghost function computing whether a
474 string is the image of a boolean value.
475 (Value_Boolean): Add in precondition the conditions to avoid
476 raising Constraint_Error. This precondition is never executed,
477 and only used in proof, thanks to the use of pragma
478 Assertion_Policy. Given that precondition, the postcondition can
479 simply check the first non-space character to decide whether
480 True or False is read.
481 * libgnat/s-valuti.adb: Mark in SPARK, but use SPARK_Mode Off on
482 all subprograms not yet proved.
483 (Bad_Value): Annotate expected exception.
484 (Normalize_String): Rewrite to avoid possible overflow when
485 incrementing F in the first loop. Add loop invariants.
486 * libgnat/s-valuti.ads: Mark in SPARK.
487 (Bad_Value): Add Depends contract to avoid warning on unused S.
488 (Only_Space_Ghost): New ghost function to query if string has
489 only space in the specified range.
490 (Normalize_String): Add functional contract.
491 (Scan_Exponent): Mark spec as not in SPARK as this function has
492 side-effects.
494 2021-12-02 Pascal Obry <obry@adacore.com>
496 * libgnat/g-socket.ads (Max_Name_Length): Initialize with
497 NI_MAXHOST.
499 2021-12-02 Pascal Obry <obry@adacore.com>
501 * libgnat/g-socket.ads: Minor style fix.
503 2021-12-01 Eric Botcazou <ebotcazou@adacore.com>
505 * einfo.ads (E_Decimal_Fixed_Point_Subtype): Fix pasto.
506 * freeze.adb (Freeze_Fixed_Point_Type): Retrieve the underlying type
507 of the first subtype and do not use a stale value of Small_Value.
508 * sem_res.adb (Resolve_Real_Literal): In the case of a fixed-point
509 type, make sure that the base type is frozen and use its Small_Value
510 to compute the corresponding integer value of the literal.
512 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
514 * libgnat/a-cbdlli.ads (List): Remove extra space in Aggregate
515 aspect.
517 2021-12-01 Gary Dismukes <dismukes@adacore.com>
519 * doc/gnat_rm/implementation_defined_pragmas.rst: Add
520 documentation of the new form of formal subprogram default in
521 the section on language extensions (pragma Extensions_Allowed).
522 * gnat_rm.texi: Regenerate.
523 * gen_il-gen-gen_nodes.adb: Add Expression as a syntactic field
524 of N_Formal_(Abstract|Concrete)_Subprogram_Declaration nodes.
525 * par-ch12.adb (P_Formal_Subprogram_Declaration): Add parsing
526 support for the new default of a parenthesized expression for
527 formal functions. Issue an error when extensions are not
528 allowed, suggesting use of -gnatX. Update comment with extended
529 syntax for SUBPROGRAM_DEFAULT.
530 * sem_ch12.adb (Analyze_Formal_Subprogram_Declaration): Issue an
531 error when an expression default is given for an abstract formal
532 function. When a default expression is present for a formal
533 function, install the function's formals and preanalyze the
534 expression.
535 (Instantiate_Formal_Subprogram): Fix typo in RM paragraph in a
536 comment. When a formal function has a default expression,
537 create a body for the function that will evaluate the expression
538 and will be called when the default applies in an instantiation.
539 The implicit function is marked as inlined and as having
540 convention Intrinsic.
542 2021-12-01 Eric Botcazou <ebotcazou@adacore.com>
544 * sem_elab.adb (Previous_Suitable_Construct): New function declared
545 in the Early_Call_Region_Processor package.
546 (Find_ECR): Call it to get the previous node at the start.
547 (Include): Call it to get the previous node during the traversal.
549 2021-12-01 Bob Duff <duff@adacore.com>
551 * sem_prag.adb (Process_Compile_Time_Warning_Or_Error): Do not
552 follow the Corresponding_Spec pointer if Acts_As_Spec is True,
553 because Corresponding_Spec is Empty in that case, so we would
554 exit the loop prematurely, and incorrectly think we are not
555 inside a generic unit when we are.
557 2021-12-01 Bob Duff <duff@adacore.com>
559 * par-ch3.adb (P_Access_Type_Definition): If Not_Null_Subtype is
560 True, give an error in the access-to-subprogram cases.
562 2021-12-01 Eric Botcazou <ebotcazou@adacore.com>
564 * sem_ch12.adb (Freeze_Package_Instance): Move up.
566 2021-12-01 Eric Botcazou <ebotcazou@adacore.com>
568 * sem_ch12.adb (Freeze_Subprogram_Body): Rename into...
569 (Freeze_Subprogram_Instance): ...this and change the name of the
570 first parameter and local variables for the sake of consistency.
571 (Insert_Freeze_Node_For_Instance): Use local variable Par_Inst.
572 (Install_Body): Rename into...
573 (Freeze_Package_Instance): ...this, remove first parameter and
574 change the name of local variables for the sake of consistency.
575 Do not deal with the special case of incomplete actual types here
576 and do not insert the body.
577 (Instantiate_Package_Body): Deal with the special case of incomplete
578 actual types here and insert the body. Call Freeze_Package_Instance
579 only if expansion is done.
580 (Instantiate_Subprogram_Body): Minor consistency tweak.
582 2021-12-01 Etienne Servais <servais@adacore.com>
584 * sem_aggr.adb (Resolve_Aggregate): Fix typo in comment.
586 2021-12-01 Steve Baird <baird@adacore.com>
588 * sem_case.adb (Check_Bindings): Provide a second strategy for
589 implementing bindings and choose which strategy to use for a
590 given binding. The previous approach was to introduce a new
591 object and assign the bound value to the object. The new
592 approach is to introduce a renaming of a dereference of an
593 access value that references the appropriate subcomponent, so no
594 copies are made. The original strategy is still used if the
595 type of the object is elementary. When the renaming approach is
596 used, the initialization of the access value is not generated
597 until expansion. Until this missing initialization is added, the
598 tree looks like a known-at-compile-time dereference of a null
599 access value: Temp : Some_Access_Type; Obj : Designated_Type
600 renames Temp.all; This leads to problems, so a bogus initial
601 value is provided here and then later deleted during expansion.
602 (Check_Composite_Case_Selector): Disallow a case selector
603 expression that requires finalization. Note that it is ok if the
604 selector's type requires finalization, as long as the expression
605 itself doesn't have any "newly constructed" parts.
606 * exp_ch5.adb (Pattern_Match): Detect the case where analysis of
607 a general (i.e., composite selector type) case statement chose
608 to implement a binding as a renaming rather than by making a
609 copy. In that case, generate the assignments to initialize the
610 access-valued object whose designated value is later renamed
611 (and remove the bogus initial value for that object that was
612 added during analysis).
613 * sem_util.ads, sem_util.adb: Add new function
614 Is_Newly_Constructed corresponding to RM 4.4 term.
616 2021-12-01 Richard Kenner <kenner@adacore.com>
618 * frontend.adb (Frontend): Do unnesting after ignored ghost code
619 has been removed.
620 * inline.adb (Analyze_Inlined_Bodies): Don't put ignored ghost
621 entities on inlined subprogram list.
623 2021-12-01 Ghjuvan Lacambre <lacambre@adacore.com>
625 * libgnarl/s-tasren.adb (Timed_Task_Entry_Call): Replace
626 Defer_Abort and Undefer_Abort with Defer_Abort_Nestable and
627 Undefer_Abort_Nestable.
629 2021-12-01 Ghjuvan Lacambre <lacambre@adacore.com>
631 * exp_ch7.adb (Cleanup_Record): Don't process parent.
633 2021-12-01 Justin Squirek <squirek@adacore.com>
635 * sem_attr.adb (Type_Key): Avoid premature use warnings when the
636 prefix is a generic actual.
638 2021-12-01 Richard Kenner <kenner@adacore.com>
640 * gnat1drv.adb (Gnat1drv): Force generation of object file if
641 compilation unit is an ignored ghost.
643 2021-12-01 Patrick Bernardi <bernardi@adacore.com>
645 * tracebak.c: Add AArch64 RTEMS support.
647 2021-12-01 Patrick Bernardi <bernardi@adacore.com>
649 * init.c: Add __gnat_error_handler and __gnat_install_handler
650 for RTEMS.
652 2021-12-01 Eric Botcazou <ebotcazou@adacore.com>
654 * sprint.ads (Source_Dump): Fix typo in comment.
655 * sprint.adb (Source_Dump): Set Dump_Freeze_Null for both -gnatG
656 and -gnatD.
657 * switch-c.adb (Scan_Front_End_Switches) <'D'>: Remove obsolete
658 kludge.
660 2021-12-01 Yannick Moy <moy@adacore.com>
662 * einfo.ads (Direct_Primitive_Operations): Update the doc to
663 indicate that this field is used for all types now.
664 * sem_ch4.adb (Try_Object_Operation): Add parameter
665 Allow_Extensions set to True to pretend that extensions are
666 allowed.
667 * sem_ch4.ads: Same.
668 * sem_ch6.adb: Do not require Extensions_Allowed.
669 * sem_ch8.adb (Find_Selected_Component): Remove duplicate
670 "where" in comment. Improve the error messages regarding use of
671 prefixed calls.
673 2021-12-01 Yannick Moy <moy@adacore.com>
675 * sem_util.adb (Is_Extended_Precision_Floating_Point_Type): New
676 function.
677 * sem_util.ads (Is_Extended_Precision_Floating_Point_Type): New
678 function.
680 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
682 * exp_aggr.adb, sem_cat.adb, sem_ch10.adb, sem_ch12.adb,
683 sem_elim.adb, sem_util.adb: Replace uses of Subprogram_Kind with
684 Is_Subprogram.
686 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
688 * libgnat/a-coinho.ads: Sync whitespace with
689 a-coinho__shared.ads.
690 * libgnat/a-coinho__shared.ads: Sync whitespace with
691 a-coinho.ads.
693 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
695 * Makefile.rtl (GNATRTL_TASKING_OBJS): Sort.
696 (GNATRTL_NONTASKING_OBJS): Sort.
698 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
700 * Makefile.rtl: Remove extra whitespace in special compilation
701 rules.
703 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
705 * doc/gnat_rm/the_gnat_library.rst (System.Atomic_Counters):
706 Sync description with comment in s-atocou.ads.
707 * gnat-style.texi, gnat_rm.texi, gnat_ugn.texi: Regenerate.
709 2021-12-01 Yannick Moy <moy@adacore.com>
711 * sem_ch10.adb (Is_Private_Library_Unit): Move query to
712 Sem_Util for sharing.
713 * sem_ch7.adb (Analyze_Package_Body_Helper): Add continuation
714 message.
715 * sem_prag.adb (Analyze_Part_Of): Call new function
716 Is_Private_Library_Unit.
717 (Check_Valid_Library_Unit_Pragma): Specialize error messages on
718 misplaced pragmas.
719 (Analyze_Refined_State_In_Decl_Part): Recognize missing Part_Of
720 on object in private part.
721 * sem_util.adb (Check_State_Refinements): Add continuation
722 message.
723 (Find_Placement_In_State_Space): Fix detection of placement,
724 which relied wrongly on queries In_Package_Body/In_Private_Part
725 which do not provide the right information here for all cases.
726 (Is_Private_Library_Unit): Move query here for sharing.
727 * sem_util.ads (Is_Private_Library_Unit): Move query here for
728 sharing.
730 2021-12-01 Gary Dismukes <dismukes@adacore.com>
732 * sem_ch3.adb (Analyze_Full_Type_Declaration): If the full type
733 has a primitives list but its base type doesn't, set the base
734 type's list to the full type's list (covers certain constrained
735 cases, such as for arrays).
736 (Analyze_Incomplete_Type_Decl): Unconditionally initialize an
737 incomplete type's primitives list.
738 (Analyze_Subtype_Declaration): Unconditionally set a subtype's
739 primitives list to the base type's list, so the lists are
740 shared.
741 (Build_Derived_Private_Type): Unconditionally initialize a
742 derived private type's list to a new empty list.
743 (Build_Derived_Record_Type): Unconditionally initialize a
744 derived record type's list to a new empty list (now a single
745 call for tagged and untagged cases).
746 (Derived_Type_Declaration): Unconditionally initialize a derived
747 type's list to a new empty list in error cases (when Parent_Type
748 is undefined or illegal).
749 (Process_Full_View): Unconditionally copy the primitive
750 operations from the private view to the full view (rather than
751 conditioning it on whether extensions are enabled).
752 * sem_ch7.adb (New_Private_Type): Unconditionally initialize an
753 untagged private type's primitives list to a new empty list.
755 2021-12-01 Etienne Servais <servais@adacore.com>
757 * libgnat/a-cbhase.adb, libgnat/a-cborse.adb,
758 libgnat/a-cihase.adb, libgnat/a-ciorse.adb,
759 libgnat/a-cohase.adb, libgnat/a-coorse.adb
760 (Constant_Reference,Reference_Preserving_Key): Refactor using
761 the equivalence stated in the RM.
763 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
765 * exp_ch3.adb (Make_Eq_Body): Refactor to avoid appending to an
766 empty list; also, when exiting early we will not create any
767 list; fix style in comment.
769 2021-12-01 Piotr Trojanek <trojanek@adacore.com>
771 * repinfo.adb (List_Entities): Simplify detection of entries;
772 refactor potentially redundant comparison.
774 2021-11-29 Eric Gallager <egallager@gcc.gnu.org>
776 PR other/103021
777 * gcc-interface/Make-lang.in: Use ETAGS variable in
778 TAGS target.
780 2021-11-15 Iain Sandoe <iain@sandoe.co.uk>
782 * gcc-interface/Makefile.in: Use DSYMUTIL_FOR_TARGET in
783 libgnat/libgnarl recipies.
785 2021-11-10 Eric Botcazou <ebotcazou@adacore.com>
787 * gcc-interface/ada-tree.h (DECL_STUBBED_P): Delete.
788 * gcc-interface/decl.c (gnat_to_gnu_entity): Do not set it.
789 * gcc-interface/trans.c (Call_to_gnu): Use GNAT_NAME local variable
790 and adjust accordingly. Replace test on DECL_STUBBED_P with direct
791 test on Convention and move it down in the processing.
793 2021-11-10 Bob Duff <duff@adacore.com>
795 * scng.adb (Check_Bidi): New procedure to give warning. Note
796 that this is called only for non-ASCII characters, so should not
797 be an efficiency issue.
798 (Slit): Call Check_Bidi for wide characters in string_literals.
799 (Minus_Case): Call Check_Bidi for wide characters in comments.
800 (Char_Literal_Case): Call Check_Bidi for wide characters in
801 character_literals. Move Accumulate_Checksum down, because
802 otherwise, if Err is True, the Code is uninitialized.
803 * errout.ads: Make the obsolete nature of "Insertion character
804 ?" more prominent; one should not have to read several
805 paragraphs before finding out that it's obsolete.
807 2021-11-10 Bob Duff <duff@adacore.com>
809 * repinfo.adb (List_Component_Layout): Initialize Sbit.
811 2021-11-10 Piotr Trojanek <trojanek@adacore.com>
813 * exp_ch4.adb (Expand_Array_Equality): Fix inconsistent casing
814 in comment about the template for expansion of array equality;
815 now we use lower case for true/false/boolean.
816 (Handle_One_Dimension): Fix comment about the template for
817 expansion of array equality.
819 2021-11-10 Bob Duff <duff@adacore.com>
821 * repinfo.adb (List_Common_Type_Info, List_Object_Info): Add
822 check for In_Generic_Scope.
823 (List_Component_Layout): Check for known static values.
824 * sem_ch13.adb (Check_Record_Representation_Clause): Add check
825 for In_Generic_Scope.
827 2021-11-10 Etienne Servais <servais@adacore.com>
829 * aspects.adb, aspects.ads (Is_Aspect_Id): New function.
830 * namet-sp.ads, namet-sp.adb (Aspect_Spell_Check,
831 Attribute_Spell_Check): New Functions.
832 * par-ch13.adb (Possible_Misspelled_Aspect): Removed.
833 (With_Present): Use Aspect_Spell_Check, use Is_Aspect_Id.
834 (Get_Aspect_Specifications): Use Aspect_Spell_Check,
835 Is_Aspect_Id, Bad_Aspect.
836 * par-sync.adb (Resync_Past_Malformed_Aspect): Use Is_Aspect_Id.
837 * sem_ch13.adb (Check_One_Attr): Use Is_Aspect_Id.
838 * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
839 Introduce the Process_No_Specification_Of_Aspect, emit a warning
840 instead of an error on unknown aspect, hint for typos.
841 Introduce Process_No_Use_Of_Attribute to add spell check for
842 attributes too.
843 (Set_Error_Msg_To_Profile_Name): Use Is_Aspect_Id.
844 * sem_util.adb (Bad_Attribute): Use Attribute_Spell_Check.
845 (Bad_Aspect): New function.
846 * sem_util.ads (Bad_Aspect): New function.
848 2021-11-10 Patrick Bernardi <bernardi@adacore.com>
850 * libgnarl/s-taskin.adb (Initialize_ATCB): Initialize
851 T.Common.Current_Priority to Priority'First.
852 * libgnarl/s-taskin.ads (Unspecified_Priority): Redefined as -1.
853 * libgnat/system-rtems.ads: Start priority range from 1, as 0 is
854 reserved by the operating system.
856 2021-11-10 Pierre-Alexandre Bazin <bazin@adacore.com>
858 * libgnat/a-nbnbig.ads: Mark the unit as Pure.
859 * libgnat/s-aridou.adb: Add contracts and ghost code for proof.
860 (Scaled_Divide): Reorder operations and use of temporaries in
861 two places to facilitate proof.
862 * libgnat/s-aridou.ads: Add full functional contracts.
863 * libgnat/s-arit64.adb: Mark in SPARK.
864 * libgnat/s-arit64.ads: Add contracts similar to those from
865 s-aridou.ads.
866 * rtsfind.ads: Document the limitation that runtime units
867 loading does not work for private with-clauses.
869 2021-11-10 Piotr Trojanek <trojanek@adacore.com>
871 * exp_ch3.adb (Make_Eq_Body): Adapt call to
872 Expand_Record_Equality.
873 * exp_ch4.ads, exp_ch4.adb (Expand_Composite_Equality): Remove
874 Bodies parameter; adapt comment; fix style in body; adapt calls
875 to Expand_Record_Equality.
876 (Expand_Array_Equality): Adapt calls to
877 Expand_Composite_Equality.
878 (Expand_Record_Equality): Remove Bodies parameter; adapt
879 comment; adapt call to Expand_Composite_Equality.
880 * exp_ch8.adb (Build_Body_For_Renaming): Adapt call to
881 Expand_Record_Equality.
883 2021-11-10 Piotr Trojanek <trojanek@adacore.com>
885 * exp_ch4.adb (Expand_Composite_Equality): Handle arrays inside
886 records just like scalars; only records inside records need
887 dedicated handling.
889 2021-11-10 Eric Botcazou <ebotcazou@adacore.com>
891 * sem_type.ads (Has_Compatible_Type): Add For_Comparison parameter.
892 * sem_type.adb (Has_Compatible_Type): Put back the reversed calls
893 to Covers guarded with For_Comparison.
894 * sem_ch4.adb (Analyze_Membership_Op) <Try_One_Interp>: Remove new
895 reversed call to Covers and set For_Comparison to true instead.
896 (Find_Comparison_Types) <Try_One_Interp>: Likewise
897 (Find_Equality_Types) <Try_One_Interp>: Likewise.
899 2021-11-10 Yannick Moy <moy@adacore.com>
901 * Makefile.rtl: Add unit.
902 * libgnat/a-nbnbin__ghost.adb: Move...
903 * libgnat/a-nbnbig.adb: ... here. Mark ghost as ignored.
904 * libgnat/a-nbnbin__ghost.ads: Move...
905 * libgnat/a-nbnbig.ads: ... here. Add comment for purpose of
906 this unit. Mark ghost as ignored.
907 * libgnat/s-widthu.adb: Use new unit.
908 * sem_aux.adb (First_Subtype): Adapt to the case of a ghost type
909 whose freeze node is rewritten to a null statement.
911 2021-11-10 Etienne Servais <servais@adacore.com>
913 * libgnat/s-regexp.adb (Check_Well_Formed_Pattern): Fix
914 Constraint_Error on missing close bracket.
916 2021-11-10 Piotr Trojanek <trojanek@adacore.com>
918 * exp_ch4.adb (Expand_Array_Equality): Remove check of the array
919 bound being an N_Range node; use Type_High_Bound/Type_Low_Bound,
920 which handle all kinds of array bounds.
922 2021-11-10 Etienne Servais <servais@adacore.com>
924 * sem_ch3.adb (Derived_Type_Declaration): Introduce a subprogram
925 for tree transformation. If a tree transformation is performed,
926 then warn that it would be better to reorder the interfaces.
928 2021-11-10 Eric Botcazou <ebotcazou@adacore.com>
930 * sem_ch4.adb (Find_Non_Universal_Interpretations): Add guard.
932 2021-11-10 Yannick Moy <moy@adacore.com>
934 * par-ch4.adb (P_Primary): Adapt test for getting error message
935 on missing parentheses.
937 2021-11-09 Ghjuvan Lacambre <lacambre@adacore.com>
939 * freeze.adb (Check_Inherited_Conditions): Initialize
940 Ifaces_List.
942 2021-11-09 Eric Botcazou <ebotcazou@adacore.com>
944 * sem_ch4.adb (Analyze_Membership_Op) <Find_Interpretation>: Handle
945 both overloaded and non-overloaded cases.
946 <Try_One_Interp>: Do a reversed call to Covers if the outcome of the
947 call to Has_Compatible_Type is false.
948 Simplify implementation after change to Find_Interpretation.
949 (Analyze_User_Defined_Binary_Op): Be prepared for previous errors.
950 (Find_Comparison_Types) <Try_One_Interp>: Do a reversed call to
951 Covers if the outcome of the call to Has_Compatible_Type is false.
952 (Find_Equality_Types) <Try_One_Interp>: Likewise.
953 * sem_type.adb (Has_Compatible_Type): Remove the reversed calls to
954 Covers. Add explicit return on all paths.
956 2021-11-09 Justin Squirek <squirek@adacore.com>
958 * gnatls.adb (Initialize_Default_Project_Path): Remove early
959 abort on invalid path.
961 2021-11-09 Eric Botcazou <ebotcazou@adacore.com>
963 * sprint.adb (Sprint_Node_Actual) <N_Allocator>: Also print the
964 Procedure_To_Call field if it is present.
965 <N_Extended_Return_Statement>: Also print the Storage_Pool and
966 Procedure_To_Call fields if they are present.
967 <N_Free_Statement>: Likewise.
968 <N_Simple_Return_Statement>: Likewise.
970 2021-11-09 Patrick Bernardi <bernardi@adacore.com>
972 * libgnarl/s-tasini.adb (Check_Abort_Status): Don't return 1 if
973 the task is aborting.
974 * libgnarl/s-tasini.ads (Check_Abort_Status): Update comment.
976 2021-11-09 Patrick Bernardi <bernardi@adacore.com>
978 * Makefile.rtl: Add ATOMICS_TARGET_PAIRS and
979 ATOMICS_BUILTINS_TARGET_PAIRS to LIBGNAT_TARGET_PAIRS for
980 aarch64-rtems.
982 2021-11-09 Justin Squirek <squirek@adacore.com>
984 * exp_util.adb (Ancestor_Primitive): Prevent return of an
985 subprogram alias when the ancestor primitive of the alias is the
986 same as Subp.
988 2021-11-09 Justin Squirek <squirek@adacore.com>
990 * exp_ch4.adb (Tagged_Membership): Use corresponding record type
991 when expanding a tagged membership test on protected types.
993 2021-11-09 Alexandre Oliva <oliva@adacore.com>
995 * strub.adb, strub.ads: New files.
996 * exp_attr.adb (Access_Cases): Copy strub mode to subprogram type.
997 * exp_disp.adb (Expand_Dispatching_Call): Likewise.
998 * freeze.adb (Check_Inherited_Conditions): Check that strub modes
999 match overridden subprograms and interfaces.
1000 (Freeze_All): Renaming declarations too.
1001 * sem_attr.adb (Resolve_Attribute): Reject 'Access to
1002 strub-annotated data object.
1003 * sem_ch3.adb (Derive_Subprogram): Copy strub mode to
1004 inherited subprogram.
1005 * sem_prag.adb (Analyze_Pragma): Propagate Strub Machine_Attribute
1006 from access-to-subprogram to subprogram type when required,
1007 but not from access-to-data to data type. Mark the entity that
1008 got the pragma as having a gigi rep item.
1009 * sem_res.adb (Resolve): Reject implicit conversions that
1010 would change strub modes.
1011 (Resolve_Type_Conversions): Reject checked conversions
1012 between incompatible strub modes.
1013 * doc/gnat_rm/security_hardening_features.rst: Update.
1014 * gnat_rm.texi: Regenerate.
1015 * libgnat/a-except.ads (Raise_Exception): Revert strub-callable
1016 annotation in public subprogram.
1017 * libgnat/s-arit128.ads (Multiply_With_Ovflo_Check128): Likewise.
1018 * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64): Likewise.
1019 * libgnat/s-secsta.ads (SS_Allocate): Likewise.
1020 (SS_Mark, SS_Release): Likewise.
1021 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add ada/strub.o.
1023 2021-11-09 Etienne Servais <servais@adacore.com>
1025 * sinput.ads: Initialize Current_Source_Unit to No_Unit.
1027 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1029 * Makefile.rtl (ARM and Aarch64 VxWorks): Use atomic variants of
1030 runtime units.
1031 * libgnat/a-strunb__shared.ads: Mention AARCH64 and ARM as
1032 supported.
1033 * libgnat/s-atocou.ads: Likewise.
1035 2021-11-09 Ghjuvan Lacambre <lacambre@adacore.com>
1037 * sem_util.adb (Accessibility_Level): Use init_proc_level_formal
1038 instead of computing a new accessibility level from Scope_Depth
1039 (E).
1041 2021-11-09 Johannes Kliemann <kliemann@adacore.com>
1043 * vxworks7-cert-rtp-link.spec: Replace the definition of
1044 __wrs_rtp_base with the base_link spec.
1045 * vxworks7-cert-rtp-base-link.spec: Add base_link spec with
1046 __wrs_rtp_base definition for all architectures.
1047 * vxworks7-cert-rtp-base-link__ppc64.spec: Add base_link spec
1048 with __wrs_rtp_base definition for ppc64.
1049 * vxworks7-cert-rtp-base-link__x86.spec: Add base_link spec with
1050 __wrs_rtp_base definition for x86.
1051 * vxworks7-cert-rtp-base-link__x86_64.spec: Add base_link spec
1052 with __wrs_rtp_base definition for x86_64.
1054 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1056 * sem_util.adb (Copy_Parameter_List): Refactor to remove
1057 repeated calls to First_Formal.
1059 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1061 * exp_ch8.adb (Build_Body_For_Renaming): Remove unnecessary
1062 calls to Sloc; set Handled_Statement_Sequence when building
1063 subprogram body; whitespace cleanup.
1065 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1067 * exp_ch4.adb (Handle_One_Dimension): Parameter N must be always
1068 positive, because it is translated into expression of 'First and
1069 'Last.
1071 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1073 * tbuild.adb (New_Occurrence_Of): Simplify by reusing
1074 Make_Identifier.
1076 2021-11-09 Etienne Servais <servais@adacore.com>
1078 * scng.adb (Set_Start_Column): Return Column_Number'Last when
1079 handling Constraint_Error. Plus reformat a strangely 7 level if
1080 loop.
1082 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1084 * exp_ch4.adb (Test_Empty_Arrays): Simplify with Evolve_Or_Else;
1085 remove unnecessary call to Relocate_Node.
1086 (Test_Lengths_Correspond): Likewise.
1088 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1090 * libgnat/a-strunb.adb (Deallocate): Rename Reference_Copy to
1091 Old, to make the code similar to other routines in this package.
1092 (Realloc_For_Chunk): Use a temporary, deallocate the previous
1093 string using a null-allowing copy of the string reference.
1095 2021-11-09 Ghjuvan Lacambre <lacambre@adacore.com>
1097 * sem_util.adb (Accessibility_Level): Fix typos.
1099 2021-11-09 Tom Tromey <tromey@adacore.com>
1101 * doc/gnat_ugn/platform_specific_information.rst: Document the
1102 SuSE kernel bug.
1103 * gnat_ugn.texi: Regenerate.
1105 2021-11-09 Gary Dismukes <dismukes@adacore.com>
1107 * sem_ch13.adb (Freeze_Entity_Checks): Analyze the expression of
1108 a pragma Predicate associated with an aspect at the freeze point
1109 of the type, to ensure that references to globals get saved when
1110 the aspect occurs within a generic body. Also, add
1111 Aspect_Static_Predicate to the choices of the membership test of
1112 the enclosing guard.
1114 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1116 * exp_ch4.adb (Arr_Attr): Refine type of the parameter from Int
1117 to Pos; refine name of the parameter from Num to Dim; fix
1118 reference to "Expr" in comment.
1120 2021-11-09 Steve Baird <baird@adacore.com>
1122 * libgnat/s-regexp.adb (Compile.Check_Well_Formed_Patern): When
1123 a "|" operator is encountered in a pattern, check that it is not
1124 the last character of the pattern.
1126 2021-11-09 Yannick Moy <moy@adacore.com>
1128 * sem_ch3.adb (Analyze_Subtype_Declaration,
1129 Derived_Type_Declaration): Initialize list of primitive
1130 operations when Extensions_Allowed.
1132 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1134 * checks.adb (Apply_Constraint_Check): Guard against calling
1135 Choices when the first association in an array aggregate is a
1136 N_Iterated_Component_Association node.
1138 2021-11-09 Yannick Moy <moy@adacore.com>
1140 * sem_ch3.adb (Analyze_Incomplete_Type_Decl): Add the missing
1141 initialization.
1143 2021-11-09 Piotr Trojanek <trojanek@adacore.com>
1145 * sem_prag.adb (Check_Usage): Guard against calling Usage_Error
1146 with illegal Item_Id. The intention to do this was already
1147 described in the comment but not implemented.
1149 2021-11-09 Etienne Servais <servais@adacore.com>
1151 * exp_ch6.adb (Expand_Actuals): Add a condition to check for the
1152 possibility of task.
1154 2021-11-05 Iain Sandoe <iain@sandoe.co.uk>
1156 * gcc-interface/Make-lang.in: Use iOS signal trampoline code
1157 for hosted Ada tools.
1158 * sigtramp-ios.c: Wrap the declarations in extern "C" when
1159 the code is built by a C++ compiler.
1161 2021-10-30 Alexandre Oliva <oliva@adacore.com>
1163 * doc/gnat_rm/security_hardening_features.rst: Mention
1164 optimization to operations with implied compares.
1166 2021-10-28 Alexandre Oliva <oliva@adacore.com>
1168 * doc/gnat_rm/security_hardening_features.rst
1169 (Hardened Conditionals): New.
1171 2021-10-25 Arnaud Charlet <charlet@adacore.com>
1173 * gcc-interface/Make-lang.in, gcc-interface/Makefile.in: Remove
1174 gnatfind and gnatxref.
1176 2021-10-25 Ed Schonberg <schonberg@adacore.com>
1178 * sem_ch4.adb (Has_Possible_Literal_Aspects): If analysis of an
1179 operator node fails to find a possible interpretation, and one
1180 of its operands is a literal or a named number, assign to the
1181 node the corresponding class type (Any_Integer, Any_String,
1182 etc).
1183 (Operator_Check): Call it before emitting a type error.
1184 * sem_res.adb (Has_Applicable_User_Defined_Literal): Given a
1185 literal and a type, determine whether the type has a
1186 user_defined aspect that can apply to the literal, and rewrite
1187 the node as call to the corresponding function. Most of the code
1188 was previously in procedure Resolve.
1189 (Try_User_Defined_Literal): Check operands of a predefined
1190 operator that fails to resolve, and apply
1191 Has_Applicable_User_Defined_Literal to literal operands if any,
1192 to find if a conversion will allow the operator to resolve
1193 properly.
1194 (Resolve): Call the above when a literal or an operator with a
1195 literal operand fails to resolve.
1197 2021-10-25 Bob Duff <duff@adacore.com>
1199 * freeze.adb (Freeze_Fixed_Point_Type): Remove
1200 previously-inserted test for Uint_0; no longer needed.
1201 * gen_il-gen.ads: Improve comments.
1202 * repinfo.adb (Rep_Value): Use Ubool type for B.
1203 * repinfo.ads (Node_Ref): Use Unegative type.
1204 (Node_Ref_Or_Val): Document that values of this type can be
1205 No_Uint.
1206 * exp_disp.adb (Make_Disp_Requeue_Body): Minor comment fix.
1207 * sem_ch3.adb: Likewise.
1208 * sem_ch8.adb: Likewise.
1209 * sinfo-utils.adb (End_Location): End_Span can never be No_Uint,
1210 so remove the "if No (L)" test.
1211 * uintp.adb (Image_String): Use "for ... of" loop.
1212 * uintp.ads (Unegative): New type for negative integers. We
1213 give it a long name (unlike Unat and Upos) because it is rarely
1214 used.
1216 2021-10-25 Etienne Servais <servais@adacore.com>
1218 * errout.adb (Skip_Msg_Insertion_Warning): Adapt and format as
1219 Erroutc.Prescan_Message.Parse_Message_Class.
1220 (Warn_Insertion): Adapt to new format.
1221 * errout.ads: Update documentation.
1222 * erroutc.adb (Get_Warning_Tag): Adapt to new format.
1223 (Prescan_Message): Introduce Parse_Message_Class function.
1224 (Validate_Specific_Warnings): Update ?W? to ?.w?.
1225 * erroutc.ads: Update type and documentation.
1226 * checks.adb (Validity_Check_Range): Update ?X? to ?.x?.
1227 * exp_ch11.adb (Possible_Local_Raise): Update ?X? to ?.x?.
1228 (Warn_If_No_Local_Raise): Likewise.
1229 (Warn_If_No_Propagation): Likewise.
1230 (Warn_No_Exception_Propagation_Active): Likewise.
1231 * exp_ch4.adb (Expand_N_Allocator): Attach warning message to
1232 -gnatw_a.
1233 * exp_prag.adb (Expand_Pragma_Check): Update ?A? to ?.a?.
1234 * exp_util.adb (Activate_Atomic_Synchronization): Update ?N? to
1235 ?.n?.
1236 (Add_Invariant_Check): Update ?L? to ?.l?.
1237 * freeze.adb (Check_Suspicious_Modulus): Update ?M? to ?.m?.
1238 (Freeze_Entity): Update ?T? to ?.t?, ?Z? to ?.z?.
1239 * par-util.adb (Warn_If_Standard_Redefinition): Update ?K? to
1240 ?.k?.
1241 * sem_attr.adb (Min_Max): Update ?U? to ?.u?.
1242 * sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order): Update ?V?
1243 to ?.v?.
1244 (Adjust_Record_For_Reverse_Bit_Order_Ada_95): Update ?V? to ?.v?.
1245 (Component_Size_Case): Update ?S? to ?.s?.
1246 (Analyze_Record_Representation_Clause): Update ?S? to ?.s? and
1247 ?C? to ?.c?.
1248 (Add_Call): Update ?L? to ?.l?.
1249 (Component_Order_Check): Attach warning message to -gnatw_r.
1250 (Check_Component_List): Update ?H? to ?.h?.
1251 (Set_Biased): Update ?B? to ?.b?.
1252 * sem_ch3.adb (Modular_Type_Declaration): Update ?M? to ?.m?.
1253 * sem_ch4.adb (Analyze_Mod): Update ?M? to ?.m?.
1254 (Analyze_Quantified_Expression): Update ?T? to ?.t?.
1255 * sem_ch6.adb (Check_Conformance): Attach warning message to
1256 -gnatw_p.
1257 (List_Inherited_Pre_Post_Aspects): Update ?L? to ?.l?.
1258 * sem_ch7.adb (Unit_Requires_Body_Info): Update ?Y? to ?.y?.
1259 * sem_ch8.adb (Analyze_Object_Renaming): Update ?R? to ?.r?.
1260 * sem_prag.adb (Validate_Compile_Time_Warning_Or_Error): Attach
1261 warning message to -gnatw_c.
1262 * sem_res.adb (Check_Argument_Order): Update ?P? to ?.p?.
1263 (Resolve_Comparison_Op): Update ?U? to ?.u?.
1264 (Resolve_Range): Update ?U? to ?.u?.
1265 (Resolve_Short_Circuit): Update ?A? to ?.a?.
1266 (Resolve_Unary_Op): Update ?M? to ?.m?.
1267 * sem_util.adb (Check_Result_And_Post_State): Update ?T? to ?.t?.
1268 * sem_warn.adb (Output_Unused_Warnings_Off_Warnings): Update ?W?
1269 to ?.w?.
1270 * warnsw.ads: Update documentation for -gnatw_c.
1272 2021-10-25 Bob Duff <duff@adacore.com>
1274 * inline.adb (Establish_Actual_Mapping_For_Inlined_Call): Fix
1275 comment.
1277 2021-10-25 Bob Duff <duff@adacore.com>
1279 * gen_il-gen.adb (Put_Seinfo): Generate type
1280 Seinfo.Type_Only_Enum based on type
1281 Gen_IL.Internals.Type_Only_Enum. Automatically generating a copy
1282 of the type will help keep them in sync. (Note that there are
1283 no Ada compiler packages imported into Gen_IL.) Add a Type_Only
1284 field to Field_Descriptor, so this information is available in
1285 the Ada compiler (as opposed to just in the Gen_IL "compiler").
1286 (One_Comp): Add initialization of the Type_Only field of
1287 Field_Descriptor.
1288 * gen_il-internals.ads (Image): Image function for
1289 Type_Only_Enum.
1290 * atree.ads (Node_To_Fetch_From): New function to compute which
1291 node to fetch from, based on the Type_Only aspect.
1292 * atree.adb (Get_Field_Value): Call Node_To_Fetch_From.
1293 * treepr.adb (Print_Entity_Field): Call Node_To_Fetch_From.
1294 (Print_Node_Field): Assert.
1295 * sinfo-utils.adb (Walk_Sinfo_Fields,
1296 Walk_Sinfo_Fields_Pairwise): Asserts.
1298 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1300 * exp_ch4.adb (Expand_Composite_Equality): Fix style.
1301 (Element_To_Compare): Simplify loop.
1302 (Expand_Record_Equality): Adapt calls to Element_To_Compare.
1304 2021-10-25 Steve Baird <baird@adacore.com>
1306 * sem_case.adb (Composite_Case_Ops.Box_Value_Required): A new
1307 function which takes a component type and returns a Boolean.
1308 Returns True for the cases which were formerly forbidden as
1309 components (these checks were formerly performed in the
1310 now-deleted procedure
1311 Check_Composite_Case_Selector.Check_Component_Subtype).
1312 (Composite_Case_Ops.Normalized_Case_Expr_Type): Hoist this
1313 function out of the Array_Case_Ops package because it has been
1314 generalized to also do the analogous thing in the case of a
1315 discriminated type.
1316 (Composite_Case_Ops.Scalar_Part_Count): Return 0 if
1317 Box_Value_Required returns True for the given type/subtype.
1318 (Composite_Case_Ops.Choice_Analysis.Choice_Analysis.Component_Bounds_Info.
1319 Traverse_Discrete_Parts): Return without doing anything if
1320 Box_Value_Required returns True for the given type/subtype.
1321 (Composite_Case_Ops.Choice_Analysis.Parse_Choice.Traverse_Choice):
1322 If Box_Value_Required yields True for a given component type,
1323 then check that the value of that component in a choice
1324 expression is indeed a box (in which case the component is
1325 ignored).
1326 * doc/gnat_rm/implementation_defined_pragmas.rst: Update
1327 documentation.
1328 * gnat_rm.texi: Regenerate.
1330 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1332 * libgnat/a-nbnbin__gmp.adb (From_String): Fix predicate
1333 mismatch between subprogram declaration and body.
1335 2021-10-25 Bob Duff <duff@adacore.com>
1337 * einfo-utils.adb (Declaration_Node): Avoid returning the
1338 following node kinds: N_Assignment_Statement, N_Integer_Literal,
1339 N_Procedure_Call_Statement, N_Subtype_Indication, and
1340 N_Type_Conversion. Assert that the result is in N_Is_Decl or
1341 empty.
1342 * gen_il-gen-gen_nodes.adb (N_Is_Decl): Modify to match the
1343 things that Declaration_Node can return.
1345 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1347 * libgnat/a-strsup.ads (Super_Length, Super_Element,
1348 Super_Slice): Add Global contracts.
1350 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1352 * exp_ch3.adb (Predefined_Primitive_Bodies): Simplify detection
1353 of existing equality operator.
1355 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1357 * exp_ch3.adb (Predefined_Primitive_Bodies): Remove redundant
1358 conditions related to interface types.
1360 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1362 * adaint.c (__gnat_portable_spawn): Do not expect execv to
1363 return 0.
1364 (__gnat_portable_no_block_spawn): Likewise.
1366 2021-10-25 Ghjuvan Lacambre <lacambre@adacore.com>
1368 * sem_ch8.adb (Analyze_Subprogram_Renaming): Set New_S to Empty.
1370 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1372 * libgnat/a-strunb.ads (Unbounded_String): Reference is never
1373 null.
1374 * libgnat/a-strunb.adb (Finalize): Copy reference while it needs
1375 to be deallocated.
1377 2021-10-25 Piotr Trojanek <trojanek@adacore.com>
1379 * lib-xref.adb (Get_Through_Renamings): Exit loop when an
1380 enumeration literal is found.
1382 2021-10-25 Arnaud Charlet <charlet@adacore.com>
1384 * libgnat/s-widthu.adb: Add pragma Annotate.
1386 2021-10-25 Javier Miranda <miranda@adacore.com>
1388 * sem_ch8.adb (Build_Class_Wide_Wrapper): Previous version split
1389 in two subprograms to factorize its functionality:
1390 Find_Suitable_Candidate, and Build_Class_Wide_Wrapper. These
1391 routines are also placed in the new subprogram
1392 Handle_Instance_With_Class_Wide_Type.
1393 (Handle_Instance_With_Class_Wide_Type): New subprogram that
1394 encapsulates all the code that handles instantiations with
1395 class-wide types.
1396 (Analyze_Subprogram_Renaming): Adjust code to invoke the new
1397 nested subprogram Handle_Instance_With_Class_Wide_Type; adjust
1398 documentation.
1400 2021-10-25 Bob Duff <duff@adacore.com>
1402 * einfo-utils.ads, einfo-utils.adb (Alias, Set_Alias,
1403 Renamed_Entity, Set_Renamed_Entity, Renamed_Object,
1404 Set_Renamed_Object): Add assertions that reflect how these are
1405 supposed to be used and what they are supposed to return.
1406 (Renamed_Entity_Or_Object): New getter.
1407 (Set_Renamed_Object_Of_Possibly_Void): Setter that allows N to
1408 be E_Void.
1409 * checks.adb (Ensure_Valid): Use Renamed_Entity_Or_Object
1410 because this is called for both cases.
1411 * exp_dbug.adb (Debug_Renaming_Declaration): Use
1412 Renamed_Entity_Or_Object because this is called for both cases.
1413 Add assertions.
1414 * exp_util.adb (Possible_Bit_Aligned_Component): Likewise.
1415 * freeze.adb (Freeze_All_Ent): Likewise.
1416 * sem_ch5.adb (Within_Function): Likewise.
1417 * exp_attr.adb (Calculate_Header_Size): Call Renamed_Entity
1418 instead of Renamed_Object.
1419 * exp_ch11.adb (Expand_N_Raise_Statement): Likewise.
1420 * repinfo.adb (Find_Declaration): Likewise.
1421 * sem_ch10.adb (Same_Unit, Process_Spec_Clauses,
1422 Analyze_With_Clause, Install_Parents): Likewise.
1423 * sem_ch12.adb (Build_Local_Package, Needs_Body_Instantiated,
1424 Build_Subprogram_Renaming, Check_Formal_Package_Instance,
1425 Check_Generic_Actuals, In_Enclosing_Instance,
1426 Denotes_Formal_Package, Process_Nested_Formal,
1427 Check_Initialized_Types, Map_Formal_Package_Entities,
1428 Restore_Nested_Formal): Likewise.
1429 * sem_ch6.adb (Report_Conflict): Likewise.
1430 * sem_ch8.adb (Analyze_Exception_Renaming,
1431 Analyze_Generic_Renaming, Analyze_Package_Renaming,
1432 Is_Primitive_Operator_In_Use, Declared_In_Actual,
1433 Note_Redundant_Use): Likewise.
1434 * sem_warn.adb (Find_Package_Renaming): Likewise.
1435 * sem_elab.adb (Ultimate_Variable): Call Renamed_Object instead
1436 of Renamed_Entity.
1437 * exp_ch6.adb (Get_Function_Id): Call
1438 Set_Renamed_Object_Of_Possibly_Void, because the defining
1439 identifer is still E_Void at this point.
1440 * sem_util.adb (Function_Call_Or_Allocator_Level): Likewise.
1441 Remove redundant (unreachable) code.
1442 (Is_Object_Renaming, Is_Valid_Renaming): Call Renamed_Object
1443 instead of Renamed_Entity.
1444 (Get_Fullest_View): Call Renamed_Entity instead of
1445 Renamed_Object.
1446 (Copy_Node_With_Replacement): Call
1447 Set_Renamed_Object_Of_Possibly_Void because the defining entity
1448 is sometimes E_Void.
1449 * exp_ch5.adb (Expand_N_Assignment_Statement): Protect a call to
1450 Renamed_Object with Is_Object to avoid assertion failure.
1451 * einfo.ads: Minor comment fixes.
1452 * inline.adb: Minor comment fixes.
1453 * tbuild.ads: Minor comment fixes.
1455 2021-10-25 Arnaud Charlet <charlet@adacore.com>
1457 * sem_ch13.adb (Build_Discrete_Static_Predicate): Remove use of
1458 exception propagation since this code is exercised during the
1459 bootstrap.
1461 2021-10-25 Yannick Moy <moy@adacore.com>
1463 * sem_ch13.adb (Freeze_Entity_Checks): Perform same check on
1464 predicate expression inside pragma as inside aspect.
1465 * sem_util.adb (Is_Current_Instance): Recognize possible
1466 occurrence of subtype as current instance inside the pragma
1467 Predicate.
1469 2021-10-25 Ghjuvan Lacambre <lacambre@adacore.com>
1471 * erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count
1472 deleted warnings.
1474 2021-10-22 Eric Gallager <egallager@gcc.gnu.org>
1476 PR other/102663
1477 * gcc-interface/Make-lang.in: Allow dvi-formatted
1478 documentation to be installed.
1480 2021-10-20 Bob Duff <duff@adacore.com>
1482 * gcc-interface/decl.c (gnat_to_gnu_entity): Remove unnecessary
1483 call to No_Uint_To_0.
1485 2021-10-20 Richard Kenner <kenner@adacore.com>
1487 * exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
1488 instrinsic subprograms as nested.
1490 2021-10-20 Yannick Moy <moy@adacore.com>
1492 * libgnat/s-widlllu.ads: Mark in SPARK.
1493 * libgnat/s-widllu.ads: Likewise.
1494 * libgnat/s-widuns.ads: Likewise.
1495 * libgnat/s-widthu.adb: Add ghost code and a
1496 pseudo-postcondition.
1498 2021-10-20 Yannick Moy <moy@adacore.com>
1500 * libgnat/a-nbnbin__ghost.adb (Signed_Conversions,
1501 Unsigned_Conversions): Mark subprograms as not imported.
1502 * libgnat/a-nbnbin__ghost.ads: Provide a dummy body.
1504 2021-10-20 Eric Botcazou <ebotcazou@adacore.com>
1506 * sem_eval.adb (Eval_Type_Conversion): If the target subtype is
1507 a static floating-point subtype and the result is a real literal,
1508 consider its machine-rounded value to raise Constraint_Error.
1509 (Test_In_Range): Turn local variables into constants.
1511 2021-10-20 Doug Rupp <rupp@adacore.com>
1513 * libgnat/g-io-put__vxworks.adb: Remove (unused)
1514 * libgnat/s-parame__ae653.ads: Likewise.
1515 * libgnat/s-thread.ads: Likewise.
1516 * libgnat/s-thread__ae653.adb: Likewise.
1518 2021-10-20 Eric Botcazou <ebotcazou@adacore.com>
1520 * sem_eval.ads (Machine_Number): New inline function.
1521 * sem_eval.adb (Machine_Number): New function body implementing
1522 the machine rounding operation specified by RM 4.9(38/2).
1523 (Check_Non_Static_Context): Call Machine_Number and set the
1524 Is_Machine_Number flag consistently on the resulting node.
1525 * sem_attr.adb (Eval_Attribute) <Attribute_Machine>: Likewise.
1526 * checks.adb (Apply_Float_Conversion_Check): Call Machine_Number.
1527 (Round_Machine): Likewise.
1529 2021-10-20 Johannes Kliemann <kliemann@adacore.com>
1531 * vxworks7-cert-rtp-link.spec: Add the definition of
1532 __wrs_rtp_base.
1534 2021-10-20 Piotr Trojanek <trojanek@adacore.com>
1536 * sem_aggr.adb (Resolve_Delta_Record_Aggregate): Reject boxes in
1537 record delta aggregates.
1539 2021-10-20 Justin Squirek <squirek@adacore.com>
1541 * sem_ch6.adb (Check_Return_Construct_Accessibility): Modify
1542 generation of accessibility checks to be more consolidated and
1543 get triggered properly in required cases.
1544 * sem_util.adb (Accessibility_Level): Add extra check within
1545 condition to handle aliased formals properly in more cases.
1547 2021-10-20 Justin Squirek <squirek@adacore.com>
1549 * exp_ch7.adb (Make_Final_Call): Detect expanded protected types
1550 and use original protected type in order to calculate
1551 appropriate finalization routine.
1553 2021-10-20 Johannes Kliemann <kliemann@adacore.com>
1555 * libgnat/a-nbnbin__ghost.ads: Add ghost package.
1557 2021-10-20 Piotr Trojanek <trojanek@adacore.com>
1559 * sem_aggr.adb (Variant_Depth): Refine type from Integer to
1560 Natural.
1562 2021-10-20 Bob Duff <duff@adacore.com>
1564 * atree.ads: Comment improvements. How is a "completely new
1565 node" different from a "new node"? Document default values
1566 corresponding to field types.
1567 * exp_ch7.adb (Process_Tagged_Type_Declaration): Use
1568 higher-level Scope_Depth instead of Scope_Depth_Value. Remove
1569 confusing comment: not clear what a "true" library level package
1570 is.
1571 * uintp.adb (Image_Out): Print No_Uint in a more readable way.
1572 * gen_il-gen.adb, gen_il-gen-gen_entities.adb,
1573 gen_il-gen-gen_nodes.adb, gen_il-types.ads: Tighten up the
1574 subtypes of fields whose type is Uint, where possible; use
1575 more-constrained subtypes such as Unat.
1576 * einfo-utils.adb, einfo-utils.ads, exp_attr.adb,
1577 exp_ch3.adb, exp_intr.adb, exp_unst.adb, exp_util.adb,
1578 freeze.adb, repinfo.adb, sem.adb, sem_ch12.adb, sem_ch13.adb,
1579 sem_ch3.adb, sem_ch8.adb, sem_util.adb, sprint.adb, treepr.adb:
1580 No longer use Uint_0 to indicate "unknown" or "not yet known"
1581 for various fields whose type is Uint. Use No_Uint for that,
1582 except in a small number of legacy cases that cause test
1583 failures. Protect many queries of such fields with calls to
1584 Known_... functions. Improve comments.
1585 * exp_aggr.adb: Likewise.
1586 (Is_OK_Aggregate): Check whether Csiz is present.
1587 (Aggr_Assignment_OK_For_Backend): Ensure we do not access an
1588 uninitialized size.
1589 * exp_strm.adb (Build_Elementary_Input_Call,
1590 Build_Elementary_Write_Call): Check whether P_Size is present.
1591 * cstand.adb: Leave Component_Size of Any_Composite unknown.
1592 Similar for RM_Size of Standard_Exception_Type. These should
1593 not be used.
1594 * einfo.ads: Comment improvements.
1595 * exp_disp.ads: Minor.
1596 * gen_il-internals.ads, gen_il-internals.adb: Minor.
1597 * sinfo-utils.adb: Take advantage of full-coverage rules.
1598 * types.h: Minor.
1600 2021-10-20 Gary Dismukes <dismukes@adacore.com>
1602 * sem_ch6.adb: Add with and use of Warnsw.
1603 (Check_Conformance): Report a warning when subtypes or
1604 designated subtypes of formal parameters or result subtypes
1605 denote different declarations between the spec and body of the
1606 (Subprogram_Subtypes_Have_Same_Declaration): New function nested
1607 within Check_Conformance that determines whether two subtype
1608 entities referenced in a subprogram come from the same
1609 declaration. Returns True immediately if the subprogram is in a
1610 generic instantiation, or the subprogram is marked Is_Internal
1611 or is declared in an internal (GNAT library) unit, or GNAT_Mode
1612 is enabled, otherwise compares the nonlimited views of the
1613 entities (or their designated subtypes' nonlimited views in the
1614 anonymous access cases).
1615 (Nonlimited_View_Of_Subtype): New function nested within
1616 function Subprogram_Subtypes_Have_Same_Declaration that returns
1617 Non_Limited_View of a type or subtype that is an incomplete or
1618 class-wide type that comes from a limited of a
1619 package (From_Limited_With is True for the entity), or returns
1620 Full_View when the nonlimited view is an incomplete type.
1621 Otherwise returns the entity passed in.
1622 * warnsw.ads (Warn_On_Pedantic_Checks): New warning flag.
1623 (type Warning_Record): New component Warn_On_Pedantic_Checks.
1624 * warnsw.adb (All_Warnings): Set Warn_On_Pedantic_Checks from
1625 parameter Setting.
1626 (Restore_Warnings): Restore the value of the
1627 Warn_On_Pedantic_Checks flag.
1628 (Save_Warnings): Save the value of the Warn_On_Pedantic_Checks
1629 flag.
1630 (Set_Underscore_Warning_Switch): Add settings of the
1631 Warn_On_Pedantic flag according to the switch ("-gnatw_p" vs.
1632 "-gnatw_P").
1633 * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Add
1634 documentation of new switches -gnatw_p and -gnatw_P (warnings
1635 for pedantic checks).
1636 * gnat_ugn.texi: Regenerate.
1637 * usage.adb: Add Warn_On_Pedantic_Checks.
1639 2021-10-20 Piotr Trojanek <trojanek@adacore.com>
1641 * exp_spark.adb (Expand_SPARK_N_Attribute_Reference): Guard
1642 against equality of an uninitialized RM_Size field.
1644 2021-10-20 Eric Botcazou <ebotcazou@adacore.com>
1646 * sem_ch12.adb (Analyze_Subprogram_Instantiation): Also propagate an
1647 interface name on an intrinsic subprogram. Remove obsolete comment.
1648 * libgnat/s-atopri.ads (Atomic_Load): New generic intrinsic function
1649 (Atomic_Load_8): Rewrite into instantiation.
1650 (Atomic_Load_16): Likewise.
1651 (Atomic_Load_32): Likewise.
1652 (Atomic_Load_64): Likewise.
1653 (Sync_Compare_And_Swap): New generic intrinsic function.
1654 (Sync_Compare_And_Swap_8): Rewrite into instantiation.
1655 (Sync_Compare_And_Swap_16): Likewise.
1656 (Sync_Compare_And_Swap_32): Likewise.
1657 (Sync_Compare_And_Swap_64): Likewise.
1658 (Lock_Free_Read): New generic inline function.
1659 (Lock_Free_Read_8): Rewrite into instantiation.
1660 (Lock_Free_Read_16): Likewise.
1661 (Lock_Free_Read_32): Likewise.
1662 (Lock_Free_Read_64): Likewise.
1663 (Lock_Free_Try_Write): New generic inline function.
1664 (Lock_Free_Try_Write_8): Rewrite into instantiation.
1665 (Lock_Free_Try_Write_16): Likewise.
1666 (Lock_Free_Try_Write_32): Likewise.
1667 (Lock_Free_Try_Write_64): Likewise.
1668 * libgnat/s-atopri.adb (Lock_Free_Read): New function body.
1669 (Lock_Free_Read_8): Delete.
1670 (Lock_Free_Read_16): Likewise.
1671 (Lock_Free_Read_32): Likewise.
1672 (Lock_Free_Read_64): Likewise.
1673 (Lock_Free_Try_Write): New function body.
1674 (Lock_Free_Try_Write_8): Delete.
1675 (Lock_Free_Try_Write_16): Likewise.
1676 (Lock_Free_Try_Write_32): Likewise.
1677 (Lock_Free_Try_Write_64): Likewise.
1678 * libgnat/s-aoinar.adb (Atomic_Fetch_And_Add): Use type-generic GCC
1679 atomic builtin and tidy up implementation.
1680 (Atomic_Fetch_And_Subtract): Likewise.
1681 * libgnat/s-aomoar.adb (Atomic_Fetch_And_Add): Likewise.
1682 (Atomic_Fetch_And_Subtract): Likewise.
1683 * libgnat/s-atopex.adb (Atomic_Exchange): Likewise.
1684 (Atomic_Compare_And_Exchange): Likewise.
1686 2021-10-20 Eric Botcazou <ebotcazou@adacore.com>
1688 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Subprogram_Type>:
1689 Replace test on Convention_Intrinsic with Is_Intrinsic_Subprogram.
1690 (gnat_to_gnu_param): Likewise.
1691 (gnat_to_gnu_subprog_type): Likewise.
1692 * gcc-interface/trans.c (elaborate_all_entities_for_package): Ditto.
1694 2021-10-20 Eric Botcazou <ebotcazou@adacore.com>
1696 * sem_eval.ads (Check_Non_Static_Context): Update documentation.
1697 * sem_eval.adb (In_Any_Integer_Context): Change parameter type,
1698 adjust accordingly and remove unreachable case.
1699 (Eval_Integer_Literal): Consider the node kind throughout and
1700 trim down verbose condition.
1702 2021-10-20 Doug Rupp <rupp@adacore.com>
1704 * Makefile.rtl: Remove references to system-vxworks-ppc.ads
1705 and system-vxworks-x86.ads.
1706 * libgnat/system-vxworks-ppc.ads: Remove.
1707 * libgnat/system-vxworks-ppc-ravenscar.ads: Likewise.
1708 * libgnat/system-vxworks-x86.ads: Likewise.
1710 2021-10-20 Yannick Moy <moy@adacore.com>
1712 * sem_ch4.adb (Analyze_QUantified_Expression): Issue warning on
1713 conjunct/disjunct sub-expression of the full expression inside a
1714 quantified expression, when it does not reference the quantified
1715 variable.
1717 2021-10-20 Marc Poulhiès <poulhies@adacore.com>
1719 * checks.adb (Insert_Valid_Check): in case of checked type
1720 conversion, update Typ to match Exp's type and add call to
1721 Analyze_And_Resolve.
1723 2021-10-20 Arnaud Charlet <charlet@adacore.com>
1725 PR ada/100486
1726 * sem_prag.adb (Check_Valid_Library_Unit_Pragma): Do not raise an
1727 exception as part of the bootstrap.
1729 2021-10-15 Richard Biener <rguenther@suse.de>
1731 * gcc-interface/misc.c (gnat_post_options): Do not warn
1732 about DBX_DEBUG use here.
1734 2021-10-14 Alexandre Oliva <oliva@adacore.com>
1736 * par-ch10.adb (P_Compilation_Unit): Reenable ada83 library
1737 unit renaming test and error.
1739 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1741 * gcc-interface/gigi.h (resolve_atomic_size): Declare.
1742 (list_third): New inline function.
1743 * gcc-interface/decl.c (type_for_atomic_builtin_p): New function.
1744 (resolve_atomic_builtin): Likewise.
1745 (gnat_to_gnu_subprog_type): Perform type resolution for most of
1746 type-generic GCC atomic builtins and give an error for the rest.
1747 * gcc-interface/utils2.c (resolve_atomic_size): Make public.
1749 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1751 * gcc-interface/trans.c (gnat_to_gnu) <N_Pop_Constraint_Error_Label>:
1752 Given the warning only if No_Exception_Propagation is active.
1753 <N_Pop_Storage_Error_Label>: Likewise.
1754 <N_Pop_Program_Error_Label>: Likewise.
1756 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1758 * gcc-interface/decl.c (promote_object_alignment): Add GNU_SIZE
1759 parameter and use it for the size of the object if not null.
1760 (gnat_to_gnu_entity) <E_Variable>: Perform the automatic alignment
1761 promotion for objects whose nominal subtype is of variable size.
1762 (gnat_to_gnu_field): Adjust call to promote_object_alignment.
1764 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1766 * gcc-interface/decl.c (gnat_to_gnu_param): Strip padding types
1767 only if the size does not change in the process. Rename local
1768 variable and add bypass for initialization procedures.
1770 2021-10-11 Doug Rupp <rupp@adacore.com>
1772 * libgnat/s-thread.ads: Fix comments. Remove unused package
1773 imports.
1774 (Thread_Body_Exception_Exit): Remove Exception_Occurrence
1775 parameter.
1776 (ATSD): Declare type locally.
1777 * libgnat/s-thread__ae653.adb: Fix comments. Remove unused
1778 package imports. Remove package references to Stack_Limit
1779 checking.
1780 (Install_Handler): Remove.
1781 (Set_Sec_Stack): Likewise.
1782 (Thread_Body_Enter): Remove calls to Install_Handler and
1783 Stack_Limit checking.
1784 (Thread_Body_Exception_Exit): Remove Exception_Occurrence
1785 parameter.
1786 (Init_RTS): Call local Get_Sec_Stack. Remove call to
1787 Install_Handler. Remove references to accessors for
1788 Get_Sec_Stack and Set_Sec_Stack. Remove OS check.
1789 (Set_Sec_Stack): Remove.
1791 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1793 * exp_ch3.adb (Make_Predefined_Primitive_Specs,
1794 Predefined_Primitive_Bodies): Remove guard with restriction
1795 No_Dispatching_Calls.
1797 2021-10-11 Steve Baird <baird@adacore.com>
1799 * sem_attr.adb (Analyze_Attribute_Old_Result): Permit an
1800 attribute reference inside a compiler-generated _Postconditions
1801 procedure. In this case, Subp_Decl is assigned the declaration
1802 of the enclosing subprogram.
1803 * exp_util.adb (Insert_Actions): When climbing up the tree
1804 looking for an insertion point, do not climb past an
1805 N_Iterated_Component/Element_Association, since this could
1806 result in inserting a reference to a loop parameter at a
1807 location outside of the scope of that loop parameter. On the
1808 other hand, be careful to preserve existing behavior in the case
1809 of an N_Component_Association node.
1811 2021-10-11 Steve Baird <baird@adacore.com>
1813 * exp_ch6.adb (Can_Fold_Predicate_Call): Do not attempt folding
1814 if there is more than one predicate involved. Recall that
1815 predicate aspect specification are additive, not overriding, and
1816 that there are three different predicate
1817 aspects (Dynamic_Predicate, Static_Predicate, and the
1818 GNAT-defined Predicate aspect). These various ways of
1819 introducing multiple predicates are all checked for. A new
1820 nested function, Augments_Other_Dynamic_Predicate, is
1821 introduced.
1822 * sem_ch4.adb
1823 (Analyze_Indexed_Component_Form.Process_Function_Call): When
1824 determining whether a name like "X (Some_Discrete_Type)" might
1825 be interpreted as a slice, the answer should be "no" if the
1826 type/subtype name denotes the current instance of type/subtype.
1828 2021-10-11 Patrick Bernardi <bernardi@adacore.com>
1830 * libgnarl/s-osinte__rtems.ads: Change sigset_t to an unsigned
1831 long.
1833 2021-10-11 Patrick Bernardi <bernardi@adacore.com>
1835 * libgnat/s-parame__rtems.adb: use
1836 _POSIX_Threads_Minimum_stack_size instead of
1837 ada_pthread_minimum_stack_size.
1839 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1841 * fe.h (No_Exception_Propagation_Active): Declare.
1842 * restrict.ads (No_Exception_Propagation_Active): Add WARNING line.
1844 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1846 * sem_ch13.adb (Validate_Unchecked_Conversion): Simplify code
1847 for detecting conversions with Ada.Calendar.Time type and extend
1848 it to similar types in the Ada.Real_Time package.
1850 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1852 * sem_ch10.adb, sem_prag.adb, sem_util.adb: Use
1853 N_Generic_Declaration in membership tests.
1855 2021-10-11 Etienne Servais <servais@adacore.com>
1857 * ali.adb (Get_Name): Ignore_Spaces is always False.
1858 * bindo-graphs.adb (Set_Is_Existing_Source_Target_Relation): Val
1859 is always True.
1860 * cstand.adb (New_Standard_Entity): New_Node_Kind is always
1861 N_Defininig_Identifier.
1862 * exp_ch3.adb (Predef_Stream_Attr_Spec): For_Body is always
1863 False.
1864 * exp_dist.adb (Add_Parameter_To_NVList): RACW_Ctrl is always
1865 False.
1866 * gnatls.adb (Add_Directories): Prepend is always False.
1867 * sem_ch10.adb, sem_ch10.ads (Load_Needed_Body): Do_Analyze is
1868 always True.
1869 * sem_ch3.adb, sem_ch3.ads (Process_Range_Expr_In_Decl):
1870 R_Check_Off is always False.
1871 * sem_elab.adb: (Info_Variable_Reference): Info_Msg is always
1872 False, In_SPARK is always True.
1873 (Set_Is_Traversed_Body, Set_Is_Saved_Construct,
1874 Set_Is_Saved_Relation): Val is always True.
1875 * treepr.adb (Visit_Descendant): No_Indent is always False.
1876 (Print_Node): Fmt does not need such a big scope.
1878 2021-10-11 Etienne Servais <servais@adacore.com>
1880 * sem_ch4.adb (Analyze_Membership_Op): Finds interpretation for
1881 the case of a membership test with a singleton value in case of
1882 overloading.
1884 2021-10-11 Patrick Bernardi <bernardi@adacore.com>
1886 * Makefile.rtl (VxWorks): Rename s-inmaop__vxworks.adb to
1887 s-inmaop__hwint.adb.
1888 (RTEMS): Use s-inmaop__hwint.adb, s-intman__rtems.adb/s,
1889 s-taprop__rtems.adb.
1890 * libgnarl/a-intnam__rtems.ads: Remove signals definitions and
1891 replace with Hardware_Interrupts.
1892 * libgnarl/s-inmaop__vxworks.adb: Rename as...
1893 * libgnarl/s-inmaop__hwint.adb: ... this.
1894 * libgnarl/s-interr__hwint.adb: Remove unnecessary comments.
1895 * libgnarl/s-intman__rtems.ads, libgnarl/s-intman__rtems.adb:
1896 New files.
1897 * libgnarl/s-osinte__rtems.adb: Add RTEMS API bindings.
1898 (Binary_Semaphore_Create, Binary_Semaphore_Delete,
1899 Binary_Semaphore_Obtain, Binary_Semaphore_Release,
1900 Binary_Semaphore_Flush, Interrupt_Connect,
1901 Interrupt_Number_To_Vector): New functions.
1902 * libgnarl/s-osinte__rtems.ads (Num_HW_Interrupts, Signal):
1903 Removed.
1904 (NSIG, Interrupt_Range): New.
1905 (Binary_Semaphore_Create, Binary_Semaphore_Delete,
1906 Binary_Semaphore_Obtain, Binary_Semaphore_Release,
1907 Binary_Semaphore_Flush, Interrupt_Connect,
1908 Interrupt_Number_To_Vector): Remove Import pragma.
1909 * libgnarl/s-taprop__rtems.adb: New file.
1911 2021-10-11 Eric Botcazou <ebotcazou@adacore.com>
1913 * exp_fixd.adb (Get_Size_For_Value): New function returning a size
1914 suitable for a non-negative integer value.
1915 (Get_Type_For_Size): New function returning a standard type suitable
1916 for a size.
1917 (Build_Divide): Call both functions to compute the result type, but
1918 make sure to pass a non-negative value to the first.
1919 (Build_Multiply): Likewise.
1920 (Do_Multiply_Fixed_Universal): Minor consistency tweak.
1921 (Integer_Literal): Call both functions to compute the type.
1923 2021-10-11 Etienne Servais <servais@adacore.com>
1925 * sem_ch4.adb (Analyze_Membership_Op): Reorder subprogram spec
1926 and bodies in alphabetical order.
1928 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1930 * exp_util.adb (Build_Class_Wide_Expression): Replace entities
1931 of both simple and extended names.
1933 2021-10-11 Ghjuvan Lacambre <lacambre@adacore.com>
1935 * libgnarl/s-intman__android.adb, libgnarl/s-intman__lynxos.adb,
1936 libgnarl/s-intman__posix.adb, libgnarl/s-intman__qnx.adb,
1937 libgnarl/s-intman__solaris.adb, libgnarl/s-intman__susv3.adb,
1938 libgnarl/s-taprob.adb, libgnarl/s-taprop__hpux-dce.adb,
1939 libgnarl/s-taprop__linux.adb, libgnarl/s-taprop__mingw.adb,
1940 libgnarl/s-taprop__posix.adb, libgnarl/s-taprop__qnx.adb,
1941 libgnarl/s-taprop__solaris.adb, libgnarl/s-taprop__vxworks.adb,
1942 libgnarl/s-taskin.adb, libgnarl/s-tasque.adb,
1943 libgnarl/s-tpoben.adb, libgnat/a-calend.adb,
1944 libgnat/a-excach.adb, libgnat/a-except.adb, libgnat/a-tags.adb,
1945 libgnat/a-textio.adb, libgnat/a-witeio.adb,
1946 libgnat/a-ztexio.adb, libgnat/g-binenv.adb,
1947 libgnat/s-parame.adb, libgnat/s-parame__vxworks.adb,
1948 libgnat/s-stratt.adb, libgnat/s-trasym__dwarf.adb: Mark imported
1949 binder globals as constant.
1951 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1953 * exp_aggr.adb (Initialize_Record_Component): Add assertion
1954 about one of the parameters, so that illegal attempts to
1955 initialize record components with Empty node are detected early
1956 on.
1957 (Build_Record_Aggr_Code): Handle boxes in aggregate component
1958 associations just the components with no initialization in
1959 Build_Record_Init_Proc.
1960 * sem_aggr.adb (Resolve_Record_Aggregate): For components that
1961 require simple initialization carry boxes from resolution to
1962 expansion.
1963 * sem_util.adb (Needs_Simple_Initialization): Remove redundant
1964 paren.
1966 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1968 * exp_ch3.adb (Build_Init_Statements): Simplify detection of
1969 concurrent record types.
1971 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1973 * exp_aggr.adb (Is_Delayed_Aggregate): Simplify.
1975 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1977 * exp_aggr.adb (Has_Default_Init_Comps): Simplify.
1979 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1981 * exp_aggr.adb (Component_OK_For_Backend): Remove redundant
1982 guard.
1984 2021-10-11 Patrick Bernardi <bernardi@adacore.com>
1986 * Makefile.rtl (RTEMS): Add s-stchop.o to
1987 EXTRA_GNATRTL_NONTASKING_OBJS, remove s-stchop__rtems.adb.
1988 * libgnat/s-stchop__rtems.adb: Removed.
1990 2021-10-11 Marc Poulhiès <poulhies@adacore.com>
1992 * expander.adb (Expand): Skip clearing of Analyzed flag if
1993 already set for N_Real_Literal.
1995 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
1997 * sem_util.adb (Compile_Time_Constraint_Error): Simplify getting
1998 the type of the first formal parameter.
2000 2021-10-11 Piotr Trojanek <trojanek@adacore.com>
2002 * exp_util.adb (Inside_Init_Proc): Simplify.
2003 * sem_aggr.adb (Resolve_Record_Aggregate): Fix style.
2004 * sem_util.adb (Compile_Time_Constraint_Error): Guard against
2005 calling Corresponding_Concurrent_Type with an array type entity.
2007 2021-10-11 Doug Rupp <rupp@adacore.com>
2009 * libgnat/s-parame__ae653.ads (time_t_bits): Change to
2010 Long_Long_Integer'Size. Add some comments to explain.
2012 2021-10-08 Martin Liska <mliska@suse.cz>
2014 * gcc-interface/misc.c (gnat_post_options): Use new macro
2015 OPTION_SET_P.
2016 (gnat_init_gcc_eh): Likewise.
2017 (gnat_init_gcc_fp): Likewise.
2019 2021-10-05 Eric Botcazou <ebotcazou@adacore.com>
2021 * gcc-interface/trans.c (gnat_to_gnu): Do not wrap boolean values
2022 referenced in pragmas.
2024 2021-10-05 Eric Botcazou <ebotcazou@adacore.com>
2026 * gcc-interface/trans.c (Subprogram_Body_to_gnu): Do not set the
2027 DECL_DISREGARD_INLINE_LIMITS flag if -gnatd.8 is specified.
2029 2021-10-05 Bob Duff <duff@adacore.com>
2031 * gcc-interface/trans.c (set_end_locus_from_node): Check that
2032 Handled_Statement_Sequence is not Empty before calling
2033 End_Label, because the Empty node has no End_Label, and
2034 depending on the exact node layout chosen by gen_il, calling
2035 End_Label might crash, or might work OK by accident.
2037 2021-10-05 Eric Botcazou <ebotcazou@adacore.com>
2039 * gcc-interface/cuintp.c: Adjust placement of include directive.
2040 * gcc-interface/targtyps.c: Likewise.
2042 2021-10-05 Alexandre Oliva <oliva@adacore.com>
2044 * doc/gnat_rm.rst: Add...
2045 * doc/gnat_rm/security_hardening_features.rst: New.
2046 * doc/gnat_rm/about_this_guide.rst: Link to new chapter.
2047 * gnat_rm.texi: Regenerate.
2048 * gcc-interface/utils.c (handle_strub_attribute): New.
2049 (gnat_internal_attribute_table): Add strub.
2050 * libgnat/a-except.adb: Make Rcheck_CE_* strub-callable.
2051 * libgnat/a-except.ads (Raise_Exception): Likewise.
2052 (Raise_Exception_Always): Likewise.
2053 * libgnat/s-arit128.ads (Multiply_With_Ovflo_Check128):
2054 Likewise.
2055 * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64):
2056 Likewise.
2057 * libgnat/s-secsta.ads (SS_Allocate, SS_Mark, SS_Release):
2058 Likewise.
2060 2021-10-05 Eric Botcazou <ebotcazou@adacore.com>
2062 * exp_ch9.adb (Install_Private_Data_Declarations): Copy the Sloc of
2063 components for the local renamings as well as the Comes_From_Source
2064 flag, and also set Warnings_Off on them. Use Nam local variable.
2066 2021-10-05 Arnaud Charlet <charlet@adacore.com>
2068 * libgnarl/a-tasini.ads (Set_Initialization_Handler): Update
2069 comments.
2071 2021-10-05 Corentin Gay <gay@adacore.com>
2073 * init.c (QNX): Add #include errno.h.
2075 2021-10-05 Eric Botcazou <ebotcazou@adacore.com>
2077 * exp_attr.adb (Expand_Fpt_Attribute): Likewise.
2078 * snames.ads-tmpl (Name_Unaligned_Valid): Delete.
2080 2021-10-05 Etienne Servais <servais@adacore.com>
2082 * sem_prag.adb (Analyze_Pragma): Forbid use of
2083 Compile_Time_(Error|Warning) as configuration pragma.
2084 * doc/gnat_ugn/the_gnat_compilation_model.rst:
2085 Compile_Time_(Error|Warning) and Compiler_Unit(_Warning) are not
2086 configuration pragmas and shall not be listed as such. The
2087 following pragmas are either obsolete or undocumented:
2088 No_Run_Time, Propagate_Exceptions, Rational, Ravenscar,
2089 Restricted_Run_Time, Short_Descriptors, Universal_Data. Fix
2090 some typos (notably on Restriction_Warnings).
2091 * doc/gnat_rm/implementation_defined_pragmas.rst: Move
2092 Rename_Pragma documentation to alphabetical order.
2093 * gnat_rm.texi, gnat_ugn.texi: Regenerate.
2095 2021-10-05 Corentin Gay <gay@adacore.com>
2097 * adaint.c (QNX): Add #include for sys/time.h.
2099 2021-10-05 Pascal Obry <obry@adacore.com>
2101 * libgnat/g-forstr.adb (Next_Format): When there is no more
2102 format specifier found issue a proper error message instead of
2103 raising a contraint error.
2105 2021-10-05 Pascal Obry <obry@adacore.com>
2107 * libgnat/g-forstr.adb (Get_Formatted): Fix computation of the
2108 number of zero to use in the formatted string. This was a wrong
2109 copy/paste.
2111 2021-10-05 Pascal Obry <obry@adacore.com>
2113 * libgnat/g-forstr.adb (Get_Formatted): Minor code clean-up.
2115 2021-10-05 Etienne Servais <servais@adacore.com>
2117 * libgnat/a-zchhan.ads, libgnat/a-zchhan.adb
2118 (Character_Set_Version, Is_Basic, To_Basic): New.
2119 * libgnat/a-zchuni.ads, libgnat/a-zchuni.adb (Is_Basic,
2120 To_Basic): New.
2122 2021-10-05 Yannick Moy <moy@adacore.com>
2124 * sem_aggr.adb (Resolve_Array_Aggregate): Improve error message.
2126 2021-10-05 Gary Dismukes <dismukes@adacore.com>
2128 * aspects.ads (type Aspect_Id): Add
2129 Aspect_Designated_Storage_Model and Aspect_Storage_Model_Type.
2130 (Aspect_Argument): Add associations for the above new aspects.
2131 (Is_Representation_Aspect): Likewise.
2132 (Aspect_Names, Aspect_Delay): Likewise.
2133 * exp_ch4.adb (Expand_N_Allocator): Call Find_Storage_Op rather
2134 than Find_Prim_Op.
2135 * exp_intr.adb (Expand_Unc_Deallocation): Likewise.
2136 * exp_util.ads (Find_Storage_Op): New function that locates
2137 either a primitive operation of a storage pool or an operation
2138 of a storage-model type specified in its Storage_Model_Type
2139 aspect.
2140 * exp_util.adb (Find_Storage_Op): New function that calls either
2141 Find_Prim_Op or Get_Storage_Model_Type_Entity to locate a
2142 storage-related operation that is associated with a type.
2143 * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): Analyzes,
2144 resolves, and validates the arguments of aspect
2145 Designated_Storage_Model_Type.
2146 (Analyze_Aspect_Specifications): Sets delay-related flags on
2147 storage-model aspects when Delay_Required. Checks that aspect
2148 Designated_Storage_Model is only specified for an access type
2149 and that aspect Storage_Model_Type is only specified on an
2150 immutably limited type. Also records such aspects for their
2151 associated types.
2152 (Check_Aspect_At_Freeze_Point): Resolve each of the argument
2153 associations given for a Storage_Model_Type aspect.
2154 (Resolve_Storage_Model_Type_Argument): New procedure that
2155 resolves an argument given in the association for a given entity
2156 name associated with a type with aspect Storage_Model_Type,
2157 ensuring that it has the proper kind or profile.
2158 (Validate_Storage_Model_Type_Aspect): New procedure that checks
2159 the legality and completeness of the entity associations given
2160 in a Storage_Model_Type aspect.
2161 * sem_util.ads (package Storage_Model_Support): New nested
2162 package that encapsulates a set of convenient utility functions
2163 for retrieving entities, etc. associated with
2164 storage-model-related types and objects.
2165 (Get_Storage_Model_Type_Entity): New function to return a
2166 specified entity associated with a type that has aspect
2167 Storage_Model_Type.
2168 (Has_Designated_Storage_Model_Aspect): New function that returns
2169 whether a type has aspect Designated_Storage_Model.
2170 (Has_Storage_Model_Type_Aspect): New function that returns
2171 whether a type has aspect Storage_Model_Type.
2172 (Storage_Model_Object): New function that returns the object
2173 Entity_Id associated with a type's Designated_Storage_Model
2174 aspect.
2175 (Storage_Model_Type): New function that returns the type
2176 associated with a storage-model object (when the object's type
2177 specifies Storage_Model_Type).
2178 (Storage_Model_Address_Type): New function that returns the
2179 Address_Type associated with a type that has aspect
2180 Storage_Model_Type.
2181 (Storage_Model_Null_Address): New function that returns the
2182 Null_Address constant associated with a type that has aspect
2183 Storage_Model_Type.
2184 (Storage_Model_Allocate): New function that returns the Allocate
2185 procedure associated with a type that has aspect
2186 Storage_Model_Type.
2187 (Storage_Model_Deallocate): New function that returns the
2188 Deallocate procedure associated with a type that has aspect
2189 Storage_Model_Type.
2190 (Storage_Model_Copy_From): New function that returns the
2191 Copy_From procedure associated with a type that has aspect
2192 Storage_Model_Type.
2193 (Storage_Model_Copy_To): New function that returns the Copy_To
2194 procedure associated with a type that has aspect
2195 Storage_Model_Type.
2196 (Storage_Model_Storage_Size): New function that returns the
2197 Storage_Size function associated with a type that has aspect
2198 Storage_Model_Type.
2199 * sem_util.adb (package Storage_Model_Support): Body of new
2200 nested package that contains the implementations the utility
2201 functions declared in the spec of this package.
2202 * snames.ads-tmpl: Add new names Name_Designated_Storage_Pool,
2203 Name_Storage_Model, Name_Storage_Model_Type, Name_Address_Type,
2204 Name_Copy_From, Name_Copy_To, and Name_Null_Address for the new
2205 aspects and associated aspect arguments.
2207 2021-10-05 Richard Kenner <kenner@adacore.com>
2209 * debug.adb: Add documentation for -gnatd_t.
2211 2021-10-05 Corentin Gay <gay@adacore.com>
2213 * sysdep.c (__gnat_is_file_not_found_error): Add else if case.
2215 2021-10-05 Piotr Trojanek <trojanek@adacore.com>
2217 * exp_util.adb (Build_Class_Wide_Expression): Replace entities
2218 of both identifiers and operator symbols.
2220 2021-10-05 Piotr Trojanek <trojanek@adacore.com>
2222 * sem_ch3.adb (Derive_Subprogram): Copy ghost status from parent
2223 to derived subprogram.
2225 2021-10-05 Joffrey Huguet <huguet@adacore.com>
2227 * libgnat/a-strunb.ads, libgnat/a-strunb__shared.ads: Add
2228 Default_Initial_Condition to Unbounded_String.
2230 2021-10-05 Claire Dross <dross@adacore.com>
2232 * libgnat/a-cfdlli.ads: Use pragma Assertion_Policy to disable
2233 contract cases at execution.
2234 * libgnat/a-cfinve.ads: Idem.
2235 * libgnat/a-cofove.ads: Idem.
2236 * libgnat/a-cfhase.ads: Idem.
2237 * libgnat/a-cfhama.ads: Idem.
2238 * libgnat/a-cforse.ads: Idem.
2239 * libgnat/a-cforma.ads: Idem.
2241 2021-10-05 Bob Duff <duff@adacore.com>
2243 * par-ch4.adb (P_Iterated_Component_Association): Parse these
2244 features the same way in all language versions. Move the call
2245 to Error_Msg_Ada_2022_Feature into semantic analysis.
2246 * sem_aggr.adb (Resolve_Iterated_Component_Association,
2247 Resolve_Iterated_Association): Move the call to
2248 Error_Msg_Ada_2022_Feature here from par-ch4.adb.
2250 2021-10-05 Yannick Moy <moy@adacore.com>
2252 * sem_res.adb (Resolve): Recognize specially that case.
2254 2021-10-05 Yannick Moy <moy@adacore.com>
2256 * libgnat/a-strmap.adb: Add ghost code for proof.
2257 (To_Range): This is the most involved proof, as it requires
2258 creating the result of the call to To_Domain as a ghost
2259 variable, and show the unicity of this result in order to prove
2260 the postcondition.
2261 * libgnat/a-strmap.ads: (SPARK_Proof_Sorted_Character_Sequence):
2262 New ghost function.
2263 (To_Domain): Add postcondition regarding sorting of result.
2264 (To_Range): Fix postcondition that should compare Length instead
2265 of Last for the results of To_Domain and To_Range, as the value
2266 of Last for an empty result is not specified in the Ada RM.
2268 2021-10-05 Yannick Moy <moy@adacore.com>
2270 * libgnat/a-chahan.adb: Add loop invariants as needed to prove
2271 subprograms. Also use extended return statements where
2272 appropriate and not done already. Mark data with
2273 Relaxed_Initialization where needed for initialization by parts.
2274 Convert regular functions to expression functions where needed
2275 for proof.
2276 * libgnat/a-chahan.ads: Add postconditions.
2277 * libgnat/a-strmap.ads (Model): New ghost function to create a
2278 publicly visible model of the private data Character_Mapping,
2279 needed in order to prove subprograms in Ada.Characters.Handling.
2281 2021-10-04 Justin Squirek <squirek@adacore.com>
2283 * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst:
2284 Add new entry for No_Dynamic_Accessibility_Checks documenting
2285 behavior.
2286 * gnat_rm.texi: Regenerate.
2287 * exp_ch4.adb (Expand_N_In): Perform special expansion for
2288 membership tests when No_Dynamic_Accessibility_Checks is active.
2289 * sem_attr.adb (Resolve_Attribute): Skip static accessibility
2290 check on actuals for anonymous access type formal parameters,
2291 and add constants for readability.
2292 * sem_util.adb (Function_Call_Or_Allocator_Level): Use the
2293 innermost master for determining the level for function calls
2294 within the alternative accessibility model.
2295 (Type_Access_Level): Properly get the level for anonymous access
2296 function result types.
2298 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2300 * doc/gnat_ugn/building_executable_programs_with_gnat.rst
2301 (gnateA): This switch no longer looks at the formal parameter
2302 type being composite (as originally mandated by SPARK), but in
2303 the parameter passing mechanism being not specified (as
2304 currently mandated by Ada).
2305 * gnat_ugn.texi: Regenerate.
2307 2021-10-04 Ed Schonberg <schonberg@adacore.com>
2309 * sem_ch6.adb (Analyze_Operator_Symbol): Recognize strings as
2310 operator names when they are the value of one of the Ada2022
2311 aspects for User_Defined_Literals.
2312 * sem_ch13.adb (Analyze_One_Aspect): Handle an aspect value
2313 given by an Operator_Name.
2314 (Validate_Literal_Aspect): Call Analyze_Operator_Symbol when
2315 needed.
2317 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2319 * gen_il-gen.adb (Put_Make_Spec): Don't emit the LF character in
2320 the middle of a string, because the Put routine won't indent it
2321 properly.
2323 2021-10-04 Ghjuvan Lacambre <lacambre@adacore.com>
2325 * gnat_cuda.adb (Remove_CUDA_Device_Entities): New function.
2326 (Expand_CUDA_Package): Call Remove_CUDA_Device_Entities.
2327 * gnat_cuda.ads (Expand_CUDA_Package): Expand documentation.
2328 * sem_prag.adb (Analyze_Pragma): Remove warning about
2329 CUDA_Device not being implemented.
2331 2021-10-04 Gary Dismukes <dismukes@adacore.com>
2333 * sem_ch7.adb (Analyze_Package_Specification): For types marked
2334 as Must_Have_Preelab_Init, we now check for the presence of a
2335 Preelaborable_Initialization aspect on the type, and pass the
2336 aspect's expression (if any) on the call to
2337 Has_Preelaborable_Initialization (or pass Empty if the type has
2338 no such aspect or the aspect has no associated expression).
2339 * sem_util.ads (Has_Preelaborable_Initialization): Change
2340 Boolean formal parameter Formal_Types_Have_Preelab_Init to
2341 instead be a formal of type Node_Id (named Preelab_Init_Expr),
2342 to allow passing an expression that may be a conjunction of
2343 Preelaborable_Initialization aspects. Revise spec comment
2344 accordingly (and remove ??? comment).
2345 * sem_util.adb (Type_Named_In_Preelab_Init_Expression): New
2346 nested function with a result indicating whether a given type is
2347 named as the prefix of a Preelaborable_Initialization attribute
2348 in the expression of a corresponding P_I aspect.
2349 (Has_Preelaborable_Initialization): For generic formal derived
2350 and private types, test whether the type is named in the
2351 expression Preelab_Init_Expr (by calling
2352 Type_Named_In_Preelab_Init_Expression), and if so, treat the
2353 formal type as having preelaborable initialization (returning
2354 True).
2355 * libgnat/a-cobove.ads (Vector): Replace pragma
2356 Preelaborable_Initialization with the aspect, specifying its
2357 value as Element_Type'Preelaborable_Initialization.
2358 (Cursor): Replace pragma P_I with the aspect (defaulting to
2359 True).
2360 * libgnat/a-cbdlli.ads (List): Replace pragma
2361 Preelaborable_Initialization with the aspect, specifying its
2362 value as Element_Type'Preelaborable_Initialization.
2363 (Cursor): Replace pragma P_I with the aspect (defaulting to
2364 True).
2365 * libgnat/a-cbhama.ads (Map): Replace pragma
2366 Preelaborable_Initialization with the aspect, specifying its
2367 value as (Element_Type'Preelaborable_Initialization and
2368 Key_Type'Preelaborable_Initialization).
2369 (Cursor): Replace pragma P_I with the aspect (defaulting to
2370 True).
2371 * libgnat/a-cborma.ads (Map): Replace pragma
2372 Preelaborable_Initialization with the aspect, specifying its
2373 value as (Element_Type'Preelaborable_Initialization and
2374 Key_Type'Preelaborable_Initialization).
2375 (Cursor): Replace pragma P_I with the aspect (defaulting to
2376 True).
2377 * libgnat/a-cbhase.ads (Set): Replace pragma
2378 Preelaborable_Initialization with the aspect, specifying its
2379 value as Element_Type'Preelaborable_Initialization.
2380 (Cursor): Replace pragma P_I with the aspect (defaulting to
2381 True).
2382 * libgnat/a-cborse.ads (Set): Replace pragma
2383 Preelaborable_Initialization with the aspect, specifying its
2384 value as Element_Type'Preelaborable_Initialization.
2385 (Cursor): Replace pragma P_I with the aspect (defaulting to
2386 True).
2387 * libgnat/a-cbmutr.ads (Tree): Replace pragma
2388 Preelaborable_Initialization with the aspect, specifying its
2389 value as Element_Type'Preelaborable_Initialization.
2390 (Cursor): Replace pragma P_I with the aspect (defaulting to
2391 True).
2392 * libgnat/a-coboho.ads (Holder): Replace pragma
2393 Preelaborable_Initialization with the aspect, specifying its
2394 value as Element_Type'Preelaborable_Initialization.
2395 (Cursor): Replace pragma P_I with the aspect (defaulting to
2396 True).
2398 2021-10-04 Yannick Moy <moy@adacore.com>
2400 * libgnat/a-textio.adb: Mark body out of SPARK.
2401 * libgnat/a-textio.ads: Mark spec in SPARK and private part out
2402 of SPARK.
2403 * sem.adb (Semantics.Do_Analyze): Similar to ghost code
2404 attributes, save and restore value of
2405 Ignore_SPARK_Mode_Pragmas_In_Instance.
2407 2021-10-04 Bob Duff <duff@adacore.com>
2409 * libgnat/s-regpat.ads: Change Data_First to Data'First. Change
2410 "still" to "always". Similar changes for Data_Last.
2412 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2414 * sprint.adb (Sprint_Node_Actual): Refactor code for generic
2415 package and subprogram declarations.
2417 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2419 * sem_res.adb (Resolve_Indexed_Component, Resolve_Slice): Rename
2420 the local constant Name to Pref; remove repeated calls to
2421 Prefix.
2423 2021-10-04 Matthieu Eyraud <eyraud@adacore.com>
2425 * scos.ads: Extend the documentation.
2426 * par_sco.adb (Process_Decisions): Emit specific SCOs for
2427 quantified expressions.
2429 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2431 * checks.adb (Selected_Range_Checks): Fix style.
2432 * exp_ch4.adb (Expand_N_Slice): Fix style and comment.
2433 * sem_res.adb (Resolve_Indexed_Component): Fix style.
2435 2021-10-04 Yannick Moy <moy@adacore.com>
2437 * libgnat/a-strbou.ads: Add comments.
2439 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2441 * sem_attr.adb (Eval_Attribute): Evaluation of attribute
2442 Leading_Part with illegal second parameter is now similar to
2443 evaluation of Remainder with its second parameter being zero.
2445 2021-10-04 Ed Schonberg <schonberg@adacore.com>
2447 * sem_res.adb (Resolve_Declare_Expression): Use tree traversals
2448 to perform name capture of local entities in the expression of
2449 the construct.
2450 * exp_util.adb (Possible_Side_Effects_In_SPARK): Do not apply to
2451 the prefix of an attribute reference Reduce when that prefix is
2452 an aggregate, because it will be expanded into a loop, and has
2453 no identifiable type.
2455 2021-10-04 Javier Miranda <miranda@adacore.com>
2457 * sem_ch8.adb (Build_Class_Wide_Wrapper): Fix handling of
2458 class-wide subtypes; required to handle chains of
2459 instantiations. Adding also code to identify these wrappers and
2460 properly resolve instantiations where the wrapper and a tagged
2461 type primitive are visible.
2462 * einfo.ads (Is_Class_Wide_Wrapper): Adding documentation.
2463 * gen_il-fields.ads (Opt_Field_Enum): Adding
2464 Is_Class_Wide_Wrapper.
2465 * gen_il-gen-gen_entities.adb (Root_Entity_Type): Adding
2466 semantic flag Is_Class_Wide_Wrapper.
2468 2021-10-04 Bob Duff <duff@adacore.com>
2470 * einfo.ads (Declaration_Node): Document that Declaration_Node
2471 for Itypes.
2472 * einfo-utils.adb (Declaration_Node): Make it return Empty for
2473 Itypes, or a proper type or subtype declaration.
2474 * gen_il-gen.adb: Minor comment improvement.
2476 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2478 * sem_res.adb (Resolve_Slice): Fix application of range checks
2479 to slice range given as a subtype name.
2481 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2483 * sem_res.adb (Resolve_Slice): Handle range given as a subtype
2484 indication.
2486 2021-10-04 Piotr Trojanek <trojanek@adacore.com>
2488 * sem_res.adb (Resolve_Slice): Add custom handling of attribute
2489 Image and similar in CodePeer mode. This complements the
2490 existing custom handling of these attributes in
2491 Expand_N_Attribute_Reference.
2493 2021-10-04 Justin Squirek <squirek@adacore.com>
2495 * sem_util.adb (Is_Variable): Add check for implicitly
2496 dereferenced access types
2497 (Is_Dependent_Component_Of_Mutable_Object): Set Prefix_Type when
2498 not specified.
2500 2021-10-04 Eric Botcazou <ebotcazou@adacore.com>
2502 * doc/gnat_ugn/the_gnat_compilation_model.rst (Binding generation):
2503 Document specific behavior for /include/-ending paths and update.
2504 * gnat_ugn.texi: Regenerate.
2506 2021-10-04 Arnaud Charlet <charlet@adacore.com>
2508 PR ada/102073
2509 * socket.c (__gnat_gethostbyaddr, __gnat_inet_pton): Add missing
2510 return statements.
2512 2021-10-04 Justin Squirek <squirek@adacore.com>
2514 * sem_util.adb (Function_Or_Allocator_Level): Properly handle
2515 direct function calls in the default alternative accessibility
2516 checking mode.
2518 2021-10-04 Javier Miranda <miranda@adacore.com>
2520 * sem_util.adb (Is_Library_Level_Entity): Return False for
2521 entities defined in E_Loop scopes. This change is not required
2522 by the frontend; it is required by tools that depend on the
2523 frontend sources.
2524 * einfo-utils.adb (Is_Dynamic_Scope): Code cleanup.
2526 2021-10-04 Justin Squirek <squirek@adacore.com>
2528 * sem_util.adb (Accessibility_Level): Add a case to handle
2529 renamed subprograms in addition to renamed objects.
2531 2021-10-04 Doug Rupp <rupp@adacore.com>
2533 * libgnarl/s-osinte__vxworks.ads (tlsKeyCreate): Return int.
2534 * libgnarl/s-tpopsp__vxworks-rtp.adb (ERROR): Declare from
2535 System.VxWorks.Ext.ERROR.
2536 (Initialize): Declare IERR. Assert it.
2537 * libgnarl/s-tpopsp__vxworks.adb (ERROR): Declare from
2538 System.VxWorks.Ext.ERROR.
2539 (Is_Valid_Task): Declare IERR. Test return.
2540 * libgnarl/s-vxwext__kernel.adb (semDelete): Return STATUS.
2542 2021-10-04 Eric Botcazou <ebotcazou@adacore.com>
2544 * exp_disp.adb (Make_DT): Copy the Needs_Debug_Info flag from the
2545 type onto the TSD object.
2547 2021-10-04 Steve Baird <baird@adacore.com>
2549 * sem_util.adb (Is_Repeatedly_Evaluated): Handle the case of an
2550 Old attribute reference that occurs within what was originally a
2551 quantified expression but which expansion has transformed into
2552 an Expression_With_Actions.
2554 2021-10-04 Steve Baird <baird@adacore.com>
2556 * exp_ch4.adb (Expand_N_Indexed_Component): The two improvements
2557 described above.
2559 2021-10-01 Bob Duff <duff@adacore.com>
2561 * exp_ch6.adb (Expand_Call_Helper): Do not call
2562 Check_Subprogram_Variant if the subprogram is an ignored ghost
2563 entity. Otherwise the compiler crashes (in debug builds) or
2564 gives strange error messages (in production builds).
2566 2021-10-01 Ghjuvan Lacambre <lacambre@adacore.com>
2568 * gnat_cuda.adb (Empty_CUDA_Global_Subprograms): New procedure.
2569 (Expand_CUDA_Package): Call Empty_CUDA_Global_Subprograms.
2571 2021-10-01 Steve Baird <baird@adacore.com>
2573 * checks.ads: Define a type Dimension_Set. Add an out-mode
2574 parameter of this new type to Generate_Index_Checks so that
2575 callers can know for which dimensions a check was generated. Add
2576 an in-mode parameter of this new type to
2577 Apply_Subscript_Validity_Checks so that callers can indicate
2578 that no check is needed for certain dimensions.
2579 * checks.adb (Generate_Index_Checks): Implement new
2580 Checks_Generated parameter.
2581 (Apply_Subscript_Validity_Checks): Implement new No_Check_Needed
2582 parameter.
2583 * exp_ch4.adb (Expand_N_Indexed_Component): Call
2584 Apply_Subscript_Validity_Checks in more cases than before. This
2585 includes declaring two new local functions,
2586 (Is_Renamed_Variable_Name,
2587 Type_Requires_Subscript_Validity_Checks_For_Reads): To help in
2588 deciding whether to call Apply_Subscript_Validity_Checks.
2589 Adjust to parameter profile changes in Generate_Index_Checks and
2590 Apply_Subscript_Validity_Checks.
2592 2021-10-01 Eric Botcazou <ebotcazou@adacore.com>
2594 * doc/gnat_rm/implementation_defined_characteristics.rst: Document
2595 the rounding mode assumed for dynamic computations as per 3.5.7(16).
2596 * gnat_rm.texi: Regenerate.
2598 2021-10-01 Bob Duff <duff@adacore.com>
2600 * table.ads (Table_Type): Remove "aliased"; no longer needed by
2601 Atree. Besides it contradicted the comment a few lines above,
2602 "-- Note: We do not make the table components aliased...".
2603 * types.ads: Move type Slot to Atree.
2604 * atree.ads: Move type Slot fromt Types to here. Move type
2605 Node_Header from Seinfo to here.
2606 * atree.adb: Avoid the need for aliased components of the Slots
2607 table. Instead of 'Access, use a getter and setter. Misc
2608 cleanups.
2609 (Print_Statistics): Print statistics about node and entity kind
2610 frequencies. Give 3 digit fractions instead of percentages.
2611 * (Get_Original_Node_Count, Set_Original_Node_Count): Statistics
2612 for calls to Original_Node and Set_Original_Node.
2613 (Original_Node, Set_Original_Node): Gather statistics by calling
2614 the above.
2615 (Print_Field_Statistics): Print Original_Node statistics.
2616 (Update_Kind_Statistics): Remove, and put all statistics
2617 gathering under "if Atree_Statistics_Enabled", which is a flag
2618 generated in Seinfo by Gen_IL.
2619 * gen_il-gen.adb (Compute_Field_Offsets): Choose offsets of
2620 Nkind, Ekind, and Homonym first. This causes a slight efficiency
2621 improvement. Misc cleanups. Do not generate Node_Header; it is
2622 now hand-written in Atree. When choosing the order in which to
2623 assign offsets, weight by the frequency of the node type, so the
2624 more common nodes get their field offsets assigned earlier. Add
2625 more special cases.
2626 (Compute_Type_Sizes): Remove this and related things.
2627 There was a comment: "At some point we can instrument Atree to
2628 print out accurate size statistics, and remove this code." We
2629 have Atree statistics, so we now remove this code.
2630 (Put_Seinfo): Generate Atree_Statistics_Enabled, which is equal
2631 to Statistics_Enabled. This allows Atree to say "if
2632 Atree_Statistics_Enabled then <gather statistics>" for
2633 efficiency. When Atree_Statistics_Enabled is False, the "if ..."
2634 will be optimized away.
2635 * gen_il-internals.ads (Type_Frequency): New table of kind
2636 frequencies.
2637 * gen_il-internals.adb: Minor comment improvement.
2638 * gen_il-fields.ads: Remove unused subtypes. Suppress style
2639 checks in the Type_Frequency table. If we regenerate this
2640 table (see -gnatd.A) we don't want to have to fiddle with
2641 casing.
2642 * impunit.adb: Minor.
2643 * sinfo-utils.adb: Minor.
2644 * debug.adb: Minor comment improvement.
2646 2021-10-01 Eric Botcazou <ebotcazou@adacore.com>
2648 * sem_type.adb (Specific_Type): Check that the type is tagged
2649 before calling Interface_Present_In_Ancestor on it.
2651 2021-10-01 Eric Botcazou <ebotcazou@adacore.com>
2653 * debug.adb (d.8): Document usage.
2654 * fe.h (Debug_Flag_Dot_8): Declare.
2656 2021-10-01 Gary Dismukes <dismukes@adacore.com>
2658 * sem_util.adb (Enter_Name): Suppress hiding warning when in an
2659 instance.
2661 2021-10-01 Ed Schonberg <schonberg@adacore.com>
2663 * sem_attr.adb (Analyze_Attribute, case Type_Key): Attribute can
2664 be applied to a formal type.
2665 * sem_ch5.adb (Analyze_Case_Statement): If Extensions_Allowed is
2666 not enabled, verify that the type of the expression is discrete.
2668 2021-10-01 Justin Squirek <squirek@adacore.com>
2670 * exp_dbug.adb (Debug_Renaming_Declaration): Add check for
2671 Entity present for Ren to prevent looking at unanalyzed nodes
2673 2021-10-01 Ghjuvan Lacambre <lacambre@adacore.com>
2675 * atree.adb (Print_Statistics): Help CodePeer see Total as
2676 greater than zero.
2677 * gen_il-gen.adb (One_Comp): Annotate Field_Table as Modified.
2679 2021-10-01 Richard Kenner <kenner@adacore.com>
2681 * gen_il-gen-gen_entities.adb (Evaluable_Kind,
2682 Global_Name_Kind): Add.
2683 * gen_il-types.ads (Evaluable_Kind, Global_Name_Kind): Likewise.
2685 2021-10-01 Ghjuvan Lacambre <lacambre@adacore.com>
2687 * aspects.ads: Add CUDA_Device aspect.
2688 * gnat_cuda.ads (Add_CUDA_Device_Entity): New subprogram.
2689 * gnat_cuda.adb:
2690 (Add_CUDA_Device_Entity): New subprogram.
2691 (CUDA_Device_Entities_Table): New hashmap for CUDA_Device
2692 entities.
2693 (Get_CUDA_Device_Entities): New internal subprogram.
2694 (Set_CUDA_Device_Entities): New internal subprogram.
2695 * par-prag.adb (Prag): Handle pragma id Pragma_CUDA_Device.
2696 * sem_prag.ads (Aspect_Specifying_Pragma): Mark CUDA_Device as
2697 being both aspect and pragma.
2698 * sem_prag.adb (Analyze_Pragma): Add CUDA_Device entities to
2699 list of CUDA_Entities belonging to package N.
2700 (Sig_Flags): Signal CUDA_Device entities as referenced.
2701 * snames.ads-tmpl: Create CUDA_Device names and pragmas.
2703 2021-10-01 Gary Dismukes <dismukes@adacore.com>
2705 * exp_util.adb (Build_DIC_Procedure_Body): Remove inappropriate
2706 Assert pragma. Remove unneeded and dead code related to derived
2707 private types.
2709 2021-10-01 Richard Kenner <kenner@adacore.com>
2711 * gen_il-gen-gen_nodes.adb (N_Alternative, N_Is_Case_Choice):
2712 Add.
2713 (N_Is_Exception_Choice, N_Is_Range): Likewise.
2714 * gen_il-types.ads: Add above names.
2715 * gen_il-gen.adb (Put_Union_Membership): Write both declarations
2716 and definitions of union functions.
2718 2021-10-01 Ed Schonberg <schonberg@adacore.com>
2720 * exp_aggr.adb (Expand_Array_Aggregate,
2721 Two_Pass_Aggregate_Expansion): Increment index for element
2722 insertion within the loop, only if upper bound has not been
2723 reached.
2725 2021-10-01 Javier Miranda <miranda@adacore.com>
2727 * contracts.ads (Make_Class_Precondition_Subps): New subprogram.
2728 (Merge_Class_Conditions): New subprogram.
2729 (Process_Class_Conditions_At_Freeze_Point): New subprogram.
2730 * contracts.adb (Check_Class_Condition): New subprogram.
2731 (Set_Class_Condition): New subprogram.
2732 (Analyze_Contracts): Remove code analyzing class-wide-clone
2733 subprogram since it is no longer built.
2734 (Process_Spec_Postconditions): Avoid processing twice seen
2735 subprograms.
2736 (Process_Preconditions): Simplify its functionality to
2737 non-class-wide preconditions.
2738 (Process_Preconditions_For): No action needed for wrappers and
2739 helpers.
2740 (Make_Class_Precondition_Subps): New subprogram.
2741 (Process_Class_Conditions_At_Freeze_Point): New subprogram.
2742 (Merge_Class_Conditions): New subprogram.
2743 * exp_ch6.ads (Install_Class_Preconditions_Check): New
2744 subprogram.
2745 * exp_ch6.adb (Expand_Call_Helper): Install class-wide
2746 preconditions check on dispatching primitives that have or
2747 inherit class-wide preconditions.
2748 (Freeze_Subprogram): Remove code for null procedures with
2749 preconditions.
2750 (Install_Class_Preconditions_Check): New subprogram.
2751 * exp_util.ads (Build_Class_Wide_Expression): Lower the
2752 complexity of this subprogram; out-mode formal Needs_Wrapper
2753 since this functionality is now provided by a new subprogram.
2754 (Get_Mapped_Entity): New subprogram.
2755 (Map_Formals): New subprogram.
2756 * exp_util.adb (Build_Class_Wide_Expression): Lower the
2757 complexity of this subprogram. Its previous functionality is now
2758 provided by subprograms Needs_Wrapper and Check_Class_Condition.
2759 (Add_Parent_DICs): Map the overridden primitive to the
2760 overriding one.
2761 (Get_Mapped_Entity): New subprogram.
2762 (Map_Formals): New subprogram.
2763 (Update_Primitives_Mapping): Adding assertion.
2764 * freeze.ads (Check_Inherited_Conditions): Subprogram made
2765 public with added formal to support late overriding.
2766 * freeze.adb (Check_Inherited_Conditions): New implementation;
2767 builds the dispatch table wrapper required for class-wide
2768 pre/postconditions; added support for late overriding.
2769 (Needs_Wrapper): New subprogram.
2770 * sem.ads (Inside_Class_Condition_Preanalysis): New global
2771 variable.
2772 * sem_disp.ads (Covered_Interface_Primitives): New subprogram.
2773 * sem_disp.adb (Covered_Interface_Primitives): New subprogram.
2774 (Check_Dispatching_Context): Skip checking context of
2775 dispatching calls during preanalysis of class-wide conditions
2776 since at that stage the expression is not installed yet on its
2777 definite context.
2778 (Check_Dispatching_Call): Skip checking 6.1.1(18.2/5) by
2779 AI12-0412 on helpers and wrappers internally built for
2780 supporting class-wide conditions; for late-overriding
2781 subprograms call Check_Inherited_Conditions to build the
2782 dispatch-table wrapper (if required).
2783 (Propagate_Tag): Adding call to
2784 Install_Class_Preconditions_Check.
2785 * sem_util.ads (Build_Class_Wide_Clone_Body): Removed.
2786 (Build_Class_Wide_Clone_Call): Removed.
2787 (Build_Class_Wide_Clone_Decl): Removed.
2788 (Class_Condition): New subprogram.
2789 (Nearest_Class_Condition_Subprogram): New subprogram.
2790 * sem_util.adb (Build_Class_Wide_Clone_Body): Removed.
2791 (Build_Class_Wide_Clone_Call): Removed.
2792 (Build_Class_Wide_Clone_Decl): Removed.
2793 (Class_Condition): New subprogram.
2794 (Nearest_Class_Condition_Subprogram): New subprogram.
2795 (Eligible_For_Conditional_Evaluation): No need to evaluate
2796 class-wide conditions during preanalysis since the expression is
2797 not installed on its definite context.
2798 * einfo.ads (Class_Wide_Clone): Removed.
2799 (Class_Postconditions): New attribute.
2800 (Class_Preconditions): New attribute.
2801 (Class_Preconditions_Subprogram): New attribute.
2802 (Dynamic_Call_Helper): New attribute.
2803 (Ignored_Class_Postconditions): New attribute.
2804 (Ignored_Class_Preconditions): New attribute.
2805 (Indirect_Call_Wrapper): New attribute.
2806 (Is_Dispatch_Table_Wrapper): New attribute.
2807 (Static_Call_Helper): New attribute.
2808 * exp_attr.adb (Expand_N_Attribute_Reference): When the prefix
2809 is of an access-to-subprogram type that has class-wide
2810 preconditions and an indirect-call wrapper of such subprogram is
2811 available, replace the prefix by the wrapper.
2812 * exp_ch3.adb (Build_Class_Condition_Subprograms): New
2813 subprogram.
2814 (Register_Dispatch_Table_Wrappers): New subprogram.
2815 * exp_disp.adb (Build_Class_Wide_Check): Removed; class-wide
2816 precondition checks now rely on internally built helpers.
2817 * sem_ch13.adb (Analyze_Aspect_Specifications): Set initial
2818 value of attributes Class_Preconditions, Class_Postconditions,
2819 Ignored_Class_Preconditions and Ignored_Class_Postconditions.
2820 These values are later updated with the full pre/postcondition
2821 by Merge_Class_Conditions.
2822 (Freeze_Entity_Checks): Call
2823 Process_Class_Conditions_At_Freeze_Point.
2824 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Remove code
2825 building the body of the class-wide clone subprogram since it is
2826 no longer required.
2827 (Install_Entity): Adding assertion.
2828 * sem_prag.adb (Analyze_Pre_Post_Condition_In_Decl_Part): Remove
2829 code building and analyzing the class-wide clone subprogram; no
2830 longer required.
2831 (Build_Pragma_Check_Equivalent): Adjust call to
2832 Build_Class_Wide_Expression since the formal named Needs_Wrapper
2833 has been removed.
2834 * sem_attr.adb (Analyze_Attribute_Old_Result): Skip processing
2835 these attributes during preanalysis of class-wide conditions
2836 since at that stage the expression is not installed yet on its
2837 definite context.
2838 * sem_res.adb (Resolve_Actuals): Skip applying RM 3.9.2(9/1) and
2839 SPARK RM 6.1.7(3) on actuals of internal helpers and wrappers
2840 built to support class-wide preconditions.
2841 * sem_ch5.adb (Process_Bounds): Do not generate a constant
2842 declaration for the bounds when we are preanalyzing a class-wide
2843 condition.
2844 (Analyze_Loop_Parameter_Specification): Handle preanalysis of
2845 quantified expression placed in the outermost expression of a
2846 class-wide condition.
2847 * ghost.adb (Check_Ghost_Context): No check required during
2848 preanalysis of class-wide conditions.
2849 * gen_il-fields.ads (Opt_Field_Enum): Adding
2850 Class_Postconditions, Class_Preconditions,
2851 Class_Preconditions_Subprogram, Dynamic_Call_Helper,
2852 Ignored_Class_Postconditions, Ignored_Class_Preconditions,
2853 Indirect_Call_Wrapper, Is_Dispatch_Table_Wrapper,
2854 Static_Call_Helper.
2855 * gen_il-gen-gen_entities.adb (Is_Dispatch_Table_Wrapper):
2856 Adding semantic flag Is_Dispatch_Table_Wrapper; removing
2857 semantic field Class_Wide_Clone; adding semantic fields for
2858 Class_Postconditions, Class_Preconditions,
2859 Class_Preconditions_Subprogram, Dynamic_Call_Helper,
2860 Ignored_Class_Postconditions, Indirect_Call_Wrapper,
2861 Ignored_Class_Preconditions, and Static_Call_Helper.
2863 2021-10-01 Piotr Trojanek <trojanek@adacore.com>
2865 * comperr.adb (Delete_SCIL_Files): Handle generic subprogram
2866 declarations and renaming just like generic package declarations
2867 and renamings, respectively; handle
2868 N_Subprogram_Renaming_Declaration.
2870 2021-10-01 Steve Baird <baird@adacore.com>
2872 * bcheck.adb (Check_Versions): Add support for the case where
2873 the .ali file contains both a primary and a secondary version
2874 number, as in "GNAT Lib v22.20210809".
2876 2021-10-01 Steve Baird <baird@adacore.com>
2878 * sem_res.adb (Resolve): Two separate fixes. In the case where
2879 Find_Aspect for a literal aspect returns the aspect for a
2880 different (ancestor) type, call Corresponding_Primitive_Op to
2881 get the right callee. In the case where a downward tagged type
2882 conversion appears to be needed, generate a null extension
2883 aggregate instead, as per Ada RM 3.4(27).
2884 * sem_util.ads, sem_util.adb: Add new Corresponding_Primitive_Op
2885 function. It maps a primitive op of a tagged type and a
2886 descendant type of that tagged type to the corresponding
2887 primitive op of the descendant type. The body of this function
2888 was written by Javier Miranda.
2890 2021-10-01 Bob Duff <duff@adacore.com>
2892 * atree.adb: Gather and print statistics about frequency of
2893 getter and setter calls.
2894 * atree.ads (Print_Statistics): New procedure for printing
2895 statistics.
2896 * debug.adb: Document -gnatd.A switch.
2897 * gen_il-gen.adb: Generate code for statistics gathering.
2898 Choose the offset of Homonym early. Misc cleanup. Put more
2899 comments in the generated code.
2900 * gen_il-internals.ads (Unknown_Offset): New value to indicate
2901 that the offset has not yet been chosen.
2902 * gnat1drv.adb: Call Print_Statistics.
2903 * libgnat/s-imglli.ads: Minor comment fix.
2904 * output.ads (Write_Int_64): New procedure to write a 64-bit
2905 value. Needed for new statistics, and could come in handy
2906 elsewhere.
2907 * output.adb (Write_Int_64): Likewise.
2908 * sinfo.ads: Remove obsolete comment. The xtreeprs program no
2909 longer exists.
2910 * types.ads: New 64-bit types needed for new statistics.
2912 2021-10-01 Dmitriy Anisimkov <anisimko@adacore.com>
2914 * libgnat/memtrack.adb (Putc): New routine wrapped around fputc
2915 with error check.
2916 (Write): New routine wrapped around fwrite with error check.
2917 Remove bound functions fopen, fwrite, fputs, fclose, OS_Exit.
2918 Use the similar routines from System.CRTL and System.OS_Lib.
2920 2021-10-01 Ed Schonberg <schonberg@adacore.com>
2922 * exp_aggr.adb (Must_Slide): If the aggregate only contains an
2923 others_clause no sliding id involved. Otherwise sliding is
2924 required if any bound of the aggregate or the context subtype is
2925 non-static.
2927 2021-10-01 Richard Kenner <kenner@adacore.com>
2929 * gen_il-gen-gen_nodes.adb (N_Is_Decl): Add.
2930 * gen_il-types.ads (N_Is_Decl): Likewise.
2932 2021-10-01 Richard Kenner <kenner@adacore.com>
2934 * gen_il-gen-gen_nodes.adb (N_Entity_Name): Add.
2935 * gen_il-types.ads (N_Entity_Name): Likewise.
2937 2021-10-01 Steve Baird <baird@adacore.com>
2939 * bcheck.adb (Check_Versions): In the case of an ali file
2940 version mismatch, if distinct integer values can be extracted
2941 from the two version strings then include those values in the
2942 generated error message.
2944 2021-10-01 Steve Baird <baird@adacore.com>
2946 * sem_elab.adb (Is_Safe_Call): Return True in the case of a
2947 (possibly rewritten) call to an expression function.
2949 2021-10-01 Ghjuvan Lacambre <lacambre@adacore.com>
2951 * sem_aggr.adb (Resolve_Iterated_Component_Association):
2952 Initialize Id_Typ to Any_Type by default.
2954 2021-10-01 Eric Botcazou <ebotcazou@adacore.com>
2956 * doc/gnat_ugn/gnat_and_program_execution.rst (gnatmem): Document
2957 that it works only with fixed-position executables.
2959 2021-10-01 Doug Rupp <rupp@adacore.com>
2961 * libgnat/s-parame__vxworks.ads (time_t_bits): Change to
2962 Long_Long_Integer'Size.
2964 2021-09-23 Eric Botcazou <ebotcazou@adacore.com>
2966 * gcc-interface/decl.c (gnat_to_gnu_entity): Fix comment.
2968 2021-09-23 Richard Kenner <kenner@adacore.com>
2970 * gen_il-gen-gen_entities.adb (Subprogram_Body_Or_Type): Add.
2971 * gen_il-types.ads (Subprogram_Body_Or_Type): Likewise.
2973 2021-09-23 Richard Kenner <kenner@adacore.com>
2975 * einfo-utils.adb (Next_Index): Verify input and output are
2976 N_Is_Index.
2977 * gen_il-gen-gen_nodes.adb (N_Has_Bounds, N_Is_Index): Add.
2978 * gen_il-types.ads (N_Has_Bounds, N_Is_Index): Likewise.
2979 * sem_ch3.adb (Array_Type_Declaration): Use Next, not
2980 Next_Index.
2981 * sem_ch12.adb (Formal_Dimensions): Likewise.
2982 * sem_util.adb (Is_Valid_Renaming): Likewise.
2984 2021-09-23 Eric Botcazou <ebotcazou@adacore.com>
2986 * doc/gnat_ugn/gnat_utility_programs.rst (gnatsymbolize):
2987 Document new --load option and -g1 as minimal compilation
2988 requirement.
2990 2021-09-23 Piotr Trojanek <trojanek@adacore.com>
2992 * sem_aggr.adb (Resolve_Array_Aggregate): Only keep the bounds
2993 for internally generated attributes; otherwise, compute them
2994 anew.
2996 2021-09-23 Javier Miranda <miranda@adacore.com>
2998 * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Decorate the
2999 wrapper with attribute Is_Wrapper, and move its declaration to
3000 the freezing actions of its type declaration; done to facilitate
3001 identifying it at later stages to avoid handling it as a
3002 primitive operation of a tagged type; otherwise it may be
3003 handled as a dispatching operation and erroneously registered in
3004 a dispatch table.
3005 (Make_Index): Add missing decoration of field Parent.
3006 * sem_disp.adb (Check_Dispatching_Operation): Complete
3007 decoration of late-overriding dispatching primitives.
3008 (Is_Access_To_Subprogram_Wrapper): New subprogram.
3009 (Inherited_Subprograms): Prevent cascaded errors; adding missing
3010 support for private types.
3011 * sem_type.adb (Add_One_Interp): Add missing support for the
3012 first interpretation of a primitive of an inmediate ancestor
3013 interface.
3014 * sem_util.adb (Check_Result_And_Post_State_In_Pragma): Do not
3015 report missing reference in postcondition placed in internally
3016 built wrappers.
3017 * exp_disp.adb (Expand_Dispatching_Call): Adding assertion.
3019 2021-09-23 Ed Schonberg <schonberg@adacore.com>
3021 * sem_aggr.adb (Resolve_Array_Aggregate): Check the validity of
3022 an array aggregate all of whose components are iterated
3023 component associations.
3024 * exp_aggr.adb (Expand_Array_Aggregate,
3025 Two_Pass_Aggregate_Expansion): implement two-pass algorithm and
3026 replace original aggregate with resulting temporary, to ensure
3027 that a proper length check is performed if context is
3028 constrained. Use attributes Pos and Val to handle index types of
3029 any discrete type.
3031 2021-09-23 Bob Duff <duff@adacore.com>
3033 * gen_il-gen.adb: Set the number of concrete nodes that have the
3034 Homonym field to a higher number than any other field. This
3035 isn't true, but it forces Homonym's offset to be chosen first,
3036 so it will be at offset zero and hence slot zero.
3038 2021-09-23 Richard Kenner <kenner@adacore.com>
3040 * atree.adb (Relocate_Node): If relocating a subprgram call and
3041 we're doing unnesting, make a new Parameter_Associations, if
3042 any.
3044 2021-09-23 Piotr Trojanek <trojanek@adacore.com>
3046 * libgnat/a-strbou.ads (Generic_Bounded_Length): Remove explicit
3047 Initializes contract.
3049 2021-09-23 Bob Duff <duff@adacore.com>
3051 * gen_il-gen.adb: Generate getters and setters with much of the
3052 code inlined. Generate code for storing a few fields in the node
3053 header, to avoid the extra level of indirection for those
3054 fields. We generate the header type, so we don't have to
3055 duplicate hand-written Ada and C code to depend on the number of
3056 header fields. Declare constants for slot size. Use short names
3057 because these are used all over. Remove
3058 Put_Low_Level_Accessor_Instantiations, Put_Low_Level_C_Getter,
3059 which are no longer needed. Rename
3060 Put_High_Level_C_Getter-->Put_C_Getter.
3061 * atree.ads, atree.adb: Take into account the header slots.
3062 Take into account the single Node_Or_Entity_Field type. Remove
3063 "pragma Assertion_Policy (Ignore);", because the routines in
3064 this package are no longer efficiency critical.
3065 * atree.h: Remove low-level getters, which are no longer used by
3066 sinfo.h and einfo.h.
3067 * einfo-utils.adb: Avoid crash in Known_Alignment.
3068 * live.adb, sem_eval.adb: Remove code that prevents Node_Id from
3069 having a predicate. We don't actually add a predicate to
3070 Node_Id, but we want to be able to for temporary debugging.
3071 * sinfo-utils.adb: Remove code that prevents Node_Id from having
3072 a predicate. Take into account the single Node_Or_Entity_Field
3073 type.
3074 * sinfo-utils.ads: Minor.
3075 * table.ads (Table_Type): Make the components aliased, because
3076 low-level setters in Atree need to take 'Access.
3077 * treepr.adb: Take into account the single Node_Or_Entity_Field
3078 type. Make some code more robust, so we can print out
3079 half-baked nodes.
3080 * types.ads: Move types here for visibility purposes.
3081 * gcc-interface/gigi.h, gcc-interface/trans.c: Take into account
3082 the Node_Header change in the GNAT front end.
3083 * gcc-interface/cuintp.c, gcc-interface/targtyps.c: Add because
3084 gigi.h now refers to type Node_Header, which is in sinfo.h.
3086 2021-09-23 Yannick Moy <moy@adacore.com>
3088 * libgnat/a-strfix.adb (Delete, Insert, Overwrite,
3089 Replace_Slice): Remove SPARK_Mode Off.
3090 * libgnat/a-strfix.ads (Insert, Overwrite, Replace_Slice):
3091 Strengthen precondition.
3093 2021-09-23 Piotr Trojanek <trojanek@adacore.com>
3095 * libgnat/a-strbou.ads (Generic_Bounded_Length): Remove non-null
3096 Global contracts.
3098 2021-09-23 Steve Baird <baird@adacore.com>
3100 * doc/gnat_rm/implementation_defined_characteristics.rst: Update
3101 this section to reflect the current version of Ada RM M.2.
3102 * gnat_rm.texi: Regenerate.
3104 2021-09-22 Yannick Moy <moy@adacore.com>
3106 * libgnat/a-strfix.ads (Trim): Simplify contracts.
3107 * libgnat/a-strfix.adb (Trim): Remove white space.
3109 2021-09-22 Piotr Trojanek <trojanek@adacore.com>
3111 * exp_ch4.adb (Expand_N_Op_Eq): Reuse Is_Attribute_Result.
3112 * exp_prag.adb (Expand_Attributes): Reuse Is_Attribute_Old.
3114 2021-09-22 Yannick Moy <moy@adacore.com>
3116 * sem_ch3.adb (Analyze_Object_Declaration): Do not insert a
3117 predicate check after a deferred constant declaration.
3119 2021-09-22 Bob Duff <duff@adacore.com>
3121 * contracts.adb, einfo-utils.adb, einfo-utils.ads, exp_ch7.adb,
3122 exp_ch9.adb, exp_disp.adb, exp_prag.adb, exp_smem.adb,
3123 exp_util.adb, freeze.adb, sem_aggr.adb, sem_attr.adb,
3124 sem_ch8.adb, sem_prag.ads, sem_util.adb, sem_util.ads: Fix
3125 conformance errors.
3126 * errout.adb, erroutc.adb: Remove pragmas Suppress.
3127 * err_vars.ads: Initialize variables that were previously being
3128 read uninitialized.
3130 2021-09-22 Yannick Moy <moy@adacore.com>
3132 * libgnat/a-strunb.ads: Mark package in SPARK with private part
3133 not in SPARK.
3134 (Free): Mark not in SPARK.
3136 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3138 * snames.ads-tmpl: Update status of some attributes.
3140 2021-09-22 Doug Rupp <rupp@adacore.com>
3142 * libgnarl/s-interr__vxworks.adb (Interfaces.C): Remove as
3143 unused.
3144 (System.VxWorks.Ext): Import.
3145 (System.VxWorks.Ext.STATUS): use type.
3146 (STATUS): New subtype.
3147 (OK): New constant.
3148 (Interrupt_Connector): Return STATUS type vice int.
3149 (Interrupt_Connect, Notify_Interrupt, Unbind_Handler,
3150 Interrupt_Server_Task): Rename Status to Result. Assert Result =
3151 OK.
3152 * libgnarl/s-osinte__vxworks.adb (To_Clock_Ticks): Define constant
3153 IERR, and return it vice ERROR.
3154 (Binary_Semaphore_Delete): Return STATUS type vice int.
3155 (Binary_Semaphore_Obtain): Likewise.
3156 (Binary_Semaphore_Release): Likewise.
3157 (Binary_Semaphore_Flush): Likewise.
3158 * libgnarl/s-osinte__vxworks.ads (SVE): Renaming of
3159 System.VxWorks.Ext.
3160 (STATUS): Use SVE in declaration of subtype.
3161 (BOOL): Likewise.
3162 (vx_freq_t): Likewise.
3163 (t_id): Likewise.
3164 (gitpid): Use SVE in renaming of subprogram
3165 (Task_Stop): Likewise.
3166 (Task_Cont): Likewise.
3167 (Int_Lock): Likewise.
3168 (Int_Unlock): Likewise.
3169 (Set_Time_Slice): Likewise.
3170 (semDelete): Likewise.
3171 (taskCpuAffinitySet): Likewise.
3172 (taskMaskAffinitySet): Likewise.
3173 (sigset_t): Use SVE in declaration of type.
3174 (OK): Remove as unused.
3175 (ERROR): Likewise.
3176 (taskOptionsGet): return STATUS vice int.
3177 (taskSuspend): Likewise.
3178 (taskResume): Likewise.
3179 (taskDelay): Likewise.
3180 (taskVarAdd): Likewise.
3181 (taskVarDelete): Likewise.
3182 (taskVarSet): Likewise.
3183 (tlkKeyCreate): Likewise.
3184 (taskPrioritySet): Likewise.
3185 (semGive): Likewise.
3186 (semTake): Likewise.
3187 (Binary_Semaphore_Delete): Likewise.
3188 (Binary_Semaphore_Obtain): Likewise.
3189 (Binary_Semaphore_Release): Likewise.
3190 (Binary_Semaphore_Flush): Likewise.
3191 (Interrupt_Connect): Likewise.
3192 * libgnarl/s-taprop__vxworks.adb
3193 (System.VxWorks.Ext.STATUS): use type.
3194 (int): Syntactically align subtype.
3195 (STATUS): New subtype.
3196 (OK): New constant.
3197 (Finalize_Lock): Check STATUS vice int. Assert OK.
3198 (Finalize_Lock): Likewise.
3199 (Write_Lock): Likewise.
3200 (Write_Lock): Likewise.
3201 (Write_Lock): Likewise.
3202 (Unlock): Likewise.
3203 (Unlock): Likewise.
3204 (Unlock): Likewise.
3205 (Unlock): Likewise.
3206 (Sleep): Likewise.
3207 (Sleep): Likewise.
3208 (Sleep): Likewise.
3209 (Timed_Sleep): Likewise and test Result.
3210 (Timed_Delay): Likewise and test Result.
3211 (Wakeup): Likewise.
3212 (Yield): Likewise.
3213 (Finalize_TCB): Likewise.
3214 (Suspend_Until_True): Check OK.
3215 (Stop_All_Tasks): Declare Dummy STATUS vice in. Check OK.
3216 (Is_Task_Context): Use OSI renaming.
3217 (Initialize): Use STATUS vice int.
3218 * libgnarl/s-vxwext.adb
3219 (IERR): Renamed from ERROR.
3220 (taskCpuAffinitySet): Return IERR (int).
3221 (taskMaskAffinitySet): Likewise.
3222 * libgnarl/s-vxwext.ads
3223 (STATUS): New subtype.
3224 (OK): New STATUS constant.
3225 (ERROR): Likewise.
3226 * libgnarl/s-vxwext__kernel-smp.adb
3227 (IERR): Renamed from ERROR.
3228 (Int_Lock): Return IERR.
3229 (semDelete): Return STATUS.
3230 (Task_Cont): Likewise.
3231 (Task_Stop): Likewise.
3232 * libgnarl/s-vxwext__kernel.adb
3233 (IERR): Renamed from ERROR.
3234 (semDelete): Return STATUS.
3235 (Task_Cont): Likewise.
3236 (Task_Stop): Likewise.
3237 (taskCpuAffinitySet): Return IERR (int)
3238 (taskMaskAffinitySet): Likewise.
3239 * libgnarl/s-vxwext__kernel.ads
3240 (STATUS): New subtype.
3241 (OK): New STATUS constant.
3242 (ERROR): Likewise.
3243 (Interrupt_Connect): Return STATUS
3244 (semDelete): Likewise.
3245 (Task_Cont): Likewise.
3246 (Task_Stop): Likewise.
3247 (Set_Time_Slice): Likewise.
3248 * libgnarl/s-vxwext__rtp-smp.adb
3249 (IERR): Renamed from ERROR.
3250 (Int_Lock): return IERR constant vice ERROR.
3251 (Interrupt_Connect): Return STATUS.
3252 (semDelete): Likewise.
3253 (Set_Time_Slice): Likewise.
3254 * libgnarl/s-vxwext__rtp.adb
3255 (IERR): Renamed from ERROR.
3256 (Int_Lock): return IERR constant vice ERROR.
3257 (Int_Unlock): Return STATUS.
3258 (semDelete): Likewise.
3259 (Set_Time_Slice): Likewise.
3260 (taskCpuAffinitySet): Return IERR (int)
3261 (taskMaskAffinitySet): Likewise.
3262 * libgnarl/s-vxwext__rtp.ads
3263 (STATUS): New subtype.
3264 (OK): New STATUS constant.
3265 (ERROR): Likewise.
3266 (Interrupt_Connect): Return STATUS
3267 (semDelete): Likewise.
3268 (Task_Cont): Likewise.
3269 (Task_Stop): Likewise.
3270 (Set_Time_Slice): Likewise.
3272 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3274 * prep.adb (Preprocess): Allow for more flexibility when
3275 Relaxed_RM_Semantics is set.
3277 2021-09-22 Pierre-Alexandre Bazin <bazin@adacore.com>
3279 * libgnat/a-strbou.adb: Turn SPARK_Mode on.
3280 * libgnat/a-strbou.ads: Write contracts.
3281 * libgnat/a-strfix.ads (Index): Fix grammar error in a comment.
3282 * libgnat/a-strsea.ads (Index): Likewise.
3283 * libgnat/a-strsup.adb: Rewrite the body to take into account
3284 the new definition of Super_String using Relaxed_Initialization
3285 and a predicate.
3286 (Super_Replicate, Super_Translate, Times): Added loop
3287 invariants, and ghost lemmas for Super_Replicate and Times.
3288 (Super_Trim): Rewrite the body using search functions to
3289 determine the cutting points.
3290 (Super_Element, Super_Length, Super_Slice, Super_To_String):
3291 Remove (now written as expression functions in a-strsup.ads).
3292 * libgnat/a-strsup.ads: Added contracts.
3293 (Super_Element, Super_Length, Super_Slice, Super_To_String):
3294 Rewrite as expression functions.
3296 2021-09-22 Yannick Moy <moy@adacore.com>
3298 * sem_ch13.adb (Build_Predicate_Functions): Add guard.
3300 2021-09-22 Doug Rupp <rupp@adacore.com>
3302 * libgnarl/s-vxwext.ads (BOOL): New int type.
3303 (Interrupt_Context): Change return type to BOOL.
3304 * libgnarl/s-vxwext__kernel.ads: Likewise.
3305 * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
3306 * libgnarl/s-vxwext__rtp.adb: Likewise.
3307 * libgnarl/s-vxwext__rtp.ads: Likewise.
3308 * libgnarl/s-osinte__vxworks.adb (Interrupt_Context): Change
3309 return type to BOOL.
3310 * libgnarl/s-osinte__vxworks.ads (BOOL) New subtype.
3311 (taskIsSuspended): Change return type to BOOL.
3312 (Interrupt_Context): Change return type to BOOL. Adjust comments
3313 accordingly.
3314 * libgnarl/s-taprop__vxworks.adb (System.VxWorks.Ext.BOOL):
3315 use type.
3316 (Is_Task_Context): Test Interrupt_Context against 0.
3317 * libgnat/i-vxwork.ads (BOOL): New int.
3318 (intContext): Change return type to BOOL. Adjust comments.
3319 * libgnat/i-vxwork__x86.ads: Likewise.
3321 2021-09-22 Piotr Trojanek <trojanek@adacore.com>
3323 * sem_aux.adb, sem_aux.ads (Package_Body): Moved from GNATprove.
3324 * sem_elab.adb (Spec_And_Body_From_Entity): Refine type of parameter.
3326 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3328 * doc/gnat_ugn/platform_specific_information.rst: Improve doc
3329 on permission and containers.
3330 * gnat_ugn.texi: Regenerate.
3332 2021-09-22 Yannick Moy <moy@adacore.com>
3334 * atree.adb (Rewrite): Fix parent node of shared aspects.
3335 * atree.ads (Rewrite): Add ??? comment on incorrect
3336 documentation.
3337 * einfo-utils.adb (Known_Esize): Fix logic.
3338 * sem_ch13.adb (Alignment_Check_For_Size_Change,
3339 Analyze_Attribute_Definition_Clause): Protect against unset
3340 Size.
3342 2021-09-22 Yannick Moy <moy@adacore.com>
3344 * freeze.adb (Build_Renamed_Body): Special case for GNATprove.
3345 * sem_ch6.adb (Analyze_Expression_Function): Remove useless test
3346 for a node to come from source, which becomes harmful otherwise.
3348 2021-09-22 Justin Squirek <squirek@adacore.com>
3350 * ali.adb, ali.ads (Scan_ALI): Remove use of deprecated
3351 parameter Ignore_ED, and all specification for Lower in call to
3352 Get_File_Name.
3353 * ali-util.adb (Read_Withed_ALIs): Modify call to Scan_ALI.
3354 * clean.adb (Clean_Executables): Likewise.
3355 * gnatbind.adb (Add_Artificial_ALI_File, Executable section):
3356 Likewise.
3357 * gnatlink.adb (Executable section): Likewise.
3358 * gnatls.adb (Executable section): Likewise.
3359 * make.adb (Check, Wait_For_Available_Slot): Likewise.
3360 * aspects.ads: Add Aspect_No_Controlled_Parts to
3361 Nonoverridable_Aspect_Id
3362 * opt.ads: Remove function pointers used as a workaround for
3363 ASIS.
3364 * osint-c.adb (Executable section): Remove setting of function
3365 pointer workarounds needed for ASIS.
3366 * osint.adb (Read_Default_Search_Dirs): Correct behavior to
3367 detect EOL characters.
3368 * par_sco.adb (Output_Header): Remove comment regarding use of
3369 First_Sloc.
3370 (Traverse_Sync_Definition): Renamed to
3371 Traverse_Protected_Or_Task_Definition.
3372 * pprint.adb (Interal_List_Name): Add description about purpose,
3373 and refactor conditional statement.
3374 (Prepend): Removed.
3375 * repinfo.adb (List_Rep_Info, Write_Info_Line): Remove use of
3376 subprogram pointer.
3377 * scng.adb (Scan): Remove CODEFIX question, and minor comment
3378 change.
3379 * sem_attr.adb (Analyze_Image_Attribute): Remove special
3380 processing for 'Img.
3381 * sem_ch6.adb (Check_Untagged_Equality): Add RM reference.
3382 (FCE): Add comment describing behavior.
3383 (Is_Non_Overriding_Operation): Minor comment formatting change.
3384 * sem_type.adb (Is_Actual_Subprogram): Add comment about
3385 Comes_From_Source test.
3386 (Matching_Types): Describe non-matching cases.
3387 * sem_util.adb (Is_Confirming): Add stub case for
3388 No_Controlled_Parts.
3390 2021-09-22 Yannick Moy <moy@adacore.com>
3392 * sem_ch13.adb (Build_Predicate_Functions): Access
3393 Predicated_Parent only on subtypes.
3395 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3397 * sem_prag.adb (Process_Import_Or_Interface): Relax error when
3398 Relaxed_RM_Semantics.
3400 2021-09-22 Steve Baird <baird@adacore.com>
3402 * libgnat/s-regpat.adb (Match): Handle the case where Self.First
3403 is not NUL (so we know the first character we are looking for),
3404 but case-insensitive matching has
3405 been specified.
3406 (Optimize): In the case of an EXACTF Op, set Self.First as is
3407 done in the EXACT case, except with the addition of a call to
3408 Lower_Case.
3410 2021-09-22 Eric Botcazou <ebotcazou@adacore.com>
3412 * libgnat/s-imenne.ads, libgnat/s-imenne.adb: Delete.
3413 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Remove s-imenne.o.
3414 (GNATBIND_OBJS): Likewise.
3416 2021-09-22 Yannick Moy <moy@adacore.com>
3418 * einfo.ads: Fix comments.
3419 * exp_aggr.adb: Fix variable name.
3420 * exp_util.adb: Fix comments.
3421 * sem_ch13.adb: Fix comments.
3422 * sem_ch3.adb: Fix comments and variable name.
3424 2021-09-22 Doug Rupp <rupp@adacore.com>
3426 * libgnarl/s-osinte__vxworks.ads: Make procedure vice function.
3427 * libgnarl/s-vxwext.ads: Likewise.
3428 * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
3429 * libgnarl/s-vxwext__kernel.adb: Likewise.
3430 * libgnarl/s-vxwext__kernel.ads: Likewise.
3431 * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
3432 * libgnarl/s-vxwext__rtp.adb: Likewise.
3433 * libgnarl/s-vxwext__rtp.ads: Likewise.
3434 * libgnarl/s-taprop__vxworks.adb (Stop_All_Tasks): Call
3435 Int_Unlock as a procedure.
3437 2021-09-22 Doug Rupp <rupp@adacore.com>
3439 * libgnarl/s-osinte__vxworks.ads (SVE): New package renaming
3440 (vx_freq_t): New subtype.
3441 (sysClkRateGet): Return vx_freq_t.
3442 * libgnarl/s-vxwext.ads (vx_freq_t): New type.
3443 * libgnarl/s-vxwext__kernel.ads: Likewise.
3444 * libgnarl/s-vxwext__rtp.ads: Likewise.
3446 2021-09-22 Ghjuvan Lacambre <lacambre@adacore.com>
3448 * sem_case.adb (Composite_Case_Ops): Replace 'Image with
3449 Error_Msg_Uint.
3451 2021-09-22 Eric Botcazou <ebotcazou@adacore.com>
3453 * exp_ch4.adb (Expand_N_If_Expression): Generate an intermediate
3454 temporary when the expression is a condition in an outer decision
3455 and control-flow optimizations are suppressed.
3457 2021-09-22 Steve Baird <baird@adacore.com>
3459 * exp_ch5.adb (Expand_General_Case_Statement.Pattern_Match): Add
3460 new function Indexed_Element to handle array element
3461 comparisons. Handle case choices that are array aggregates,
3462 string literals, or names denoting constants.
3463 * sem_case.adb (Composite_Case_Ops.Array_Case_Ops): New package
3464 providing utilities needed for casing on arrays.
3465 (Composite_Case_Ops.Choice_Analysis): If necessary, include
3466 array length as a "component" (like a discriminant) when
3467 traversing components. We do not (yet) partition choice analysis
3468 to deal with unequal length choices separately. Instead, we
3469 embed everything in the minimum-dimensionality Cartesian product
3470 space needed to handle all choices properly; this is determined
3471 by the length of the longest choice pattern.
3472 (Composite_Case_Ops.Choice_Analysis.Traverse_Discrete_Parts):
3473 Include length as a "component" in the traversal if necessary.
3474 (Composite_Case_Ops.Choice_Analysis.Parse_Choice.Traverse_Choice):
3475 Add support for case choices that are string literals or names
3476 denoting constants.
3477 (Composite_Case_Ops.Choice_Analysis): Include length as a
3478 "component" in the analysis if necessary.
3479 (Check_Choices.Check_Case_Pattern_Choices.Ops.Value_Sets.Value_Index_Count):
3480 Improve error message when capacity exceeded.
3481 * doc/gnat_rm/implementation_defined_pragmas.rst: Update
3482 documentation to reflect current implementation status.
3483 * gnat_rm.texi: Regenerate.
3485 2021-09-22 Eric Botcazou <ebotcazou@adacore.com>
3487 * freeze.adb (Check_Component_Storage_Order): Give a specific error
3488 message for non-byte-aligned component in the packed case. Replace
3489 "composite" with "record" in both cases.
3491 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3493 * libgnarl/a-tasini.ads, libgnarl/a-tasini.adb: Make compatible
3494 with No_Elaboration_Code_All.
3495 * libgnarl/s-taskin.ads, libgnarl/s-tassta.adb: Adjust
3496 accordingly.
3498 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3500 * sem_ch6.adb (Check_Returns): Change message on missing return.
3502 2021-09-22 Arnaud Charlet <charlet@adacore.com>
3504 * gnatfind.adb, gnatxref.adb: Mark these tools as obsolete
3505 before removing them completely.
3507 2021-09-22 Eric Botcazou <ebotcazou@adacore.com>
3509 * gcc-interface/decl.c (range_cannot_be_superflat): Tweak comments.
3511 2021-09-21 Doug Rupp <rupp@adacore.com>
3513 * init.c (__gnat_error_handler) [LynxOS]: Add a comment about
3514 missing optional args.
3516 2021-09-21 Yannick Moy <moy@adacore.com>
3518 * gen_il-gen.adb (Put_Opt_Subtype): Add suffix.
3520 2021-09-21 Justin Squirek <squirek@adacore.com>
3522 * sem_util.adb (Accessibility_Level): Remove spurious special
3523 case for protected type components.
3524 * exp_ch4.adb (Generate_Accessibility_Check): Use general
3525 Accessibility_Level instead of the low-level function
3526 Type_Access_Level.
3528 2021-09-21 Eric Botcazou <ebotcazou@adacore.com>
3530 * gnat_ugn.texi: Regenerate.
3532 2021-09-21 Matthieu Eyraud <eyraud@adacore.com>
3534 * par_sco.adb (Traverse_One): Add support for pragma Invariant /
3535 Type_Invariant.
3537 2021-09-21 Bob Duff <duff@adacore.com>
3539 * gen_il-gen.adb (Put_Opt_Subtype): Print out subtypes of the
3540 form:
3541 subtype Opt_N_Declaration is
3542 Node_Id with Predicate =>
3543 Opt_N_Declaration = Empty or else
3544 Opt_N_Declaration in N_Declaration_Id;
3545 One for each node or entity type, with the predicate allowing
3546 Empty.
3547 * atree.adb (Parent, Set_Parent): Remove unnecessary "Atree.".
3549 2021-09-21 Patrick Bernardi <bernardi@adacore.com>
3551 * bindgen.adb (Gen_Adainit): For targets that suppress the
3552 standard library: set the default stack size global variable if
3553 a value is provided via the -d switch, and generate a call to
3554 __gnat_initialize_stack_limit if stack checking using stack
3555 limits is enabled.
3557 2021-09-21 Bob Duff <duff@adacore.com>
3559 * sem_ch13.adb (Stream_Size): Print message about allowed stream
3560 sizes even if other error were already found. This avoids
3561 falling into the 'else', which prints "Stream_Size cannot be
3562 given for...", which is misleading -- the Size COULD be given if
3563 it were correct.
3565 2021-09-21 Daniel Mercier <mercier@adacore.com>
3567 * exp_util.adb (Build_Temporary): In case of an external DISCR
3568 symbol, set the related expression for CodePeer so that a more
3569 comprehensible message can be emitted to the user.
3571 2021-09-21 Eric Botcazou <ebotcazou@adacore.com>
3573 * libgnat/s-dwalin.adb (Parse_Header): Tweak comments.
3574 (Read_Entry_Format_Array): Tweak exception message.
3575 (Symbolic_Address.Set_Result): Likewise.
3577 2021-09-21 Ed Schonberg <schonberg@adacore.com>
3579 * exp_ch7.adb (Make_Init_Call): Add guard to protect against a
3580 missing initialization procedure for a type.
3582 2021-09-21 Doug Rupp <rupp@adacore.com>
3584 * Makefile.rtl: Remove unused VxWorks sections.
3585 * libgnarl/s-vxwext__noints.adb: Remove.
3586 * libgnarl/s-vxwext__vthreads.ads: Remove.
3587 * libgnat/a-elchha__vxworks-ppc-full.adb: Remove.
3588 * libgnat/s-osprim__vxworks.adb: Remove.
3589 * libgnat/s-osvers__vxworks-653.ads: Remove.
3590 * libgnat/system-vxworks-e500-vthread.ads: Remove.
3591 * libgnat/system-vxworks-ppc-vthread.ads: Remove.
3592 * libgnat/system-vxworks-x86-vthread.ads: Remove.
3594 2021-09-21 Bob Duff <duff@adacore.com>
3596 * uintp.ads, uintp.adb (UI_Is_In_Int_Range): Change the type of
3597 the formal parameter to Valid_Uint. Remove code that preserved
3598 the previous behavior, and replace it with an assertion. The
3599 previous behavior is no longer needed given the recent change to
3600 gigi.
3601 (No, Present): Add comment.
3603 2021-09-21 Bob Duff <duff@adacore.com>
3605 * sem_eval.adb (Fold_Shift): Replace an if_expression with an
3606 if_statement.
3608 2021-09-21 Bob Duff <duff@adacore.com>
3610 * uintp.ads, uintp.adb: Add assertions.
3611 (Ubool, Opt_Ubool): New "boolean" subtypes.
3612 (UI_Is_In_Int_Range): The parameter should probably be
3613 Valid_Uint, but we don't change that for now, because it causes
3614 failures in gigi.
3615 * sem_util.ads, sem_util.adb (Is_True, Is_False,
3616 Static_Boolean): Use Opt_Ubool subtype. Document the fact that
3617 Is_True (No_Uint) = True. Implement Is_False in terms of
3618 Is_True. We considered changing Static_Boolean to return Uint_1
3619 in case of error, but that doesn't fit in well with
3620 Static_Integer.
3621 (Has_Compatible_Alignment_Internal): Deal with cases where Offs
3622 is No_Uint. Change one "and" to "and then" to ensure we don't
3623 pass No_Uint to ">", which would violate the new assertions.
3624 * exp_util.adb, freeze.adb, sem_ch13.adb: Avoid violating new
3625 assertions in Uintp.
3627 2021-09-21 Eric Botcazou <ebotcazou@adacore.com>
3629 * libgnat/s-dwalin.adb (To_File_Name): Fetch only the last string
3630 from the .debug_line_str section.
3631 (Symbolic_Address.Set_Result): Likewise.
3633 2021-09-21 Eric Botcazou <ebotcazou@adacore.com>
3635 * libgnat/s-dwalin.adb (Skip_Form): Fix cases of DW_FORM_addrx
3636 and DW_FORM_implicit_const. Replace Constraint_Error with
3637 Dwarf_Error.
3639 2021-09-21 Ghjuvan Lacambre <lacambre@adacore.com>
3641 * exp_pakd.adb (Expand_Packed_Not): Replace expression with
3642 statement.
3644 2021-09-21 Ghjuvan Lacambre <lacambre@adacore.com>
3646 * sem_eval.adb (Is_Static_Subtype): Take predicates created
3647 through "predicate" pragma into account.
3649 2021-09-21 Frederic Konrad <konrad@adacore.com>
3651 * Makefile.rtl (aarch64-rtems*): Add GNATRTL_128BIT_PAIRS to
3652 the LIBGNAT_TARGET_PAIRS list and also GNATRTL_128BIT_OBJS to
3653 the EXTRA_GNATRTL_NONTASKING_OBJS list.
3655 2021-09-21 Gary Dismukes <dismukes@adacore.com>
3657 * sem_ch4.adb (Remove_Abstract_Operations): Add condition to
3658 test for an E_Operator as part of criteria for setting
3659 Abstract_Op on interpretations involving predefined operators.
3661 2021-09-21 Javier Miranda <miranda@adacore.com>
3663 * exp_ch6.adb (Expand_Simple_Function_Return): For explicit
3664 dereference of type conversion, enable code that ensures that
3665 the tag of the result is that of the result type.
3667 2021-09-21 Bob Duff <duff@adacore.com>
3669 * einfo-utils.adb: Add support (currently disabled) for using
3670 "initial zero" instead of "Uint_0" to represent "unknown". Call
3671 Known_ functions, instead of evilly duplicating their code
3672 inline.
3673 * fe.h (No_Uint_To_0): New function to convert No_Uint to
3674 Uint_0, in order to preserve existing behavior.
3675 (Copy_Esize, Copy_RM_Size): New imports from Einfo.Utils.
3676 * cstand.adb: Set size fields of Standard_Debug_Renaming_Type
3677 and Standard_Exception_Type.
3678 * checks.adb, exp_attr.adb, exp_ch3.adb, exp_ch5.adb,
3679 exp_ch6.adb, exp_pakd.adb, exp_util.adb, freeze.adb, itypes.adb,
3680 layout.adb, repinfo.adb, sem_attr.adb, sem_ch12.adb,
3681 sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch7.adb,
3682 sem_util.adb: Protect calls with Known_..., use Copy_... Remove
3683 assumption that Uint_0 represents "unknown".
3684 * types.ads (Nonzero_Int): New subtype.
3685 * gcc-interface/decl.c, gcc-interface/trans.c: Protect calls
3686 with Known_... and use Copy_... as appropriate, to avoid
3687 blowing up in unknown cases. Similarly, call No_Uint_To_0 to
3688 preserve existing behavior.
3690 2021-09-21 Steve Baird <baird@adacore.com>
3692 * sem_ch13.adb (Analyze_Aspect_Specifications): Add a new nested
3693 function, Directly_Specified, and then use it in the
3694 implementation of the required check.
3696 2021-09-21 Steve Baird <baird@adacore.com>
3698 * libgnat/a-costso.ads, libgnat/a-costso.adb: A new library
3699 unit, Ada.Containers.Stable_Sorting, which exports a pair of
3700 generics (one within the other) which are instantiated by each
3701 of the 5 doubly-linked list container generics to implement
3702 their respective Sort procedures. We use a pair of generics,
3703 rather than a single generic, in order to further reduce code
3704 duplication. The outer generic takes a formal private Node_Ref
3705 type representing a reference to a linked list element. For some
3706 instances, the corresponding actual parameter will be an access
3707 type; for others, it will be the index type for an array.
3708 * Makefile.rtl: Include new Ada.Containers.Stable_Sorting unit.
3709 * libgnat/a-cbdlli.adb, libgnat/a-cdlili.adb,
3710 libgnat/a-cfdlli.adb, libgnat/a-cidlli.adb, libgnat/a-crdlli.adb
3711 (Sort): Replace existing Sort implementation with a call to an
3712 instance of
3713 Ada.Containers.Stable_Sorting.Doubly_Linked_List_Sort. Declare
3714 the (trivial) actual parameters needed to declare that instance.
3715 * libgnat/a-cfdlli.ads: Fix a bug encountered during testing in
3716 the postcondition for M_Elements_Sorted. With a partial
3717 ordering, it is possible for all three of (X < Y), (Y < X),
3718 and (X = Y) to be simultaneously false, so that case needs to
3719 handled correctly.
3721 2021-09-21 Piotr Trojanek <trojanek@adacore.com>
3723 * errout.adb (Error_Msg_Internal): Fix references to Sptr and
3724 Optr in comment; fix grammar of "low-level" where it is used as
3725 an adjective.
3727 2021-09-21 Piotr Trojanek <trojanek@adacore.com>
3729 * errout.adb (Write_Source_Code_Lines): Use Cur_Loc before
3730 incrementing it, so that we don't need to decrement it.
3732 2021-09-21 Yannick Moy <moy@adacore.com>
3734 * errout.adb (Get_Line_End): Do not allow the result to go past
3735 the end of the buffer.
3737 2021-09-21 Ed Schonberg <schonberg@adacore.com>
3739 * sem_ch3.adb (Process_Discriminant_Expressions): If the
3740 constraint is for a Component_Definition that appears in a
3741 Component_Declaration, the entity to be used to create the
3742 potentially global symbol is the Defining_Identifier of the
3743 Component_Declaration.
3745 2021-09-21 Bob Duff <duff@adacore.com>
3747 * libgnat/a-stbufi.ads, libgnat/a-stbufi.adb: Change all
3748 occurrences of GNAT.OS_Lib to System.OS_Lib.
3750 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3752 * inline.adb (Has_Excluded_Declaration): Remove redundant guard;
3753 the guarded code will call First on a No_List, which is
3754 well-defined and gives Empty.
3756 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3758 * inline.adb (Has_Excluded_Declaration): Rename and reduce scope
3759 of a local variable.
3761 2021-09-20 Bob Duff <duff@adacore.com>
3763 * uintp.ads, uintp.adb (Present, No): New functions for
3764 comparing with No_Uint.
3765 * checks.adb, einfo-utils.adb, exp_aggr.adb, exp_attr.adb,
3766 exp_ch3.adb, exp_ch4.adb, exp_dbug.adb, exp_disp.adb,
3767 exp_util.adb, repinfo.adb, repinfo-input.adb, scn.adb,
3768 sem_attr.adb, sem_ch13.adb, sem_eval.adb, sem_util.adb,
3769 sinfo-utils.adb, treepr.adb: Use Present (...) instead of "...
3770 /= No_Uint", and No (...) instead of "... = No_Uint".
3772 2021-09-20 Claire Dross <dross@adacore.com>
3774 * libgnat/s-ficobl.ads: The entire package has a SPARK_Mode =>
3775 Off aspect.
3777 2021-09-20 Doug Rupp <rupp@adacore.com>
3779 * libgnat/a-calend.adb: Remove time_t, replace with OS_Time.
3780 * libgnat/s-os_lib.ads: Fix comments regarding time_t conversion
3781 functions to reflect the use of To_Ada in in Ada.Calendar
3782 package body.
3783 * sysdep.c (__gnat_localtime_tzoff): Use OS_Time instead of
3784 time_t.
3786 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3788 * sem_res.adb (Resolve_Actual): Remove
3790 2021-09-20 Bob Duff <duff@adacore.com>
3792 * einfo-utils.ads, einfo-utils.adb, fe.h, einfo.ads,
3793 gen_il-fields.ads: Remove unused and no-longer-used routines.
3794 Move related routines together. Rewrite incorrect
3795 documentation, and documentation that will be incorrect when
3796 e.g. Esize-related routines are fixed. Remove unused field
3797 Normalized_Position_Max.
3798 * cstand.adb, exp_pakd.adb, freeze.adb,
3799 gen_il-gen-gen_entities.adb, itypes.adb, layout.adb,
3800 sem_ch10.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb,
3801 sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_prag.adb,
3802 sem_util.adb, ttypes.ads: Update calls to routines removed from
3803 or renamed in Einfo.Utils.
3804 * uintp.ads (Upos): Fix this subtype, which was unintentionally
3805 declared to include Uint_0.
3807 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3809 * exp_ch7.adb (Expand_N_Package_Declaration): Fix wording in
3810 comment.
3811 * exp_disp.adb (Mark_DT): Remove unnecessary initialization of
3812 I_Depth.
3814 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3816 * contracts.adb (Add_Contract_Item): Accept volatile-related
3817 properties on constants.
3818 (Analyze_Object_Contract): Check external properties on
3819 constants; accept volatile constants.
3820 (Check_Type_Or_Object_External_Properties): Replace "variable"
3821 with "object" in error messages; replace Decl_Kind with a local
3822 constant.
3823 * sem_prag.adb (Analyze_Pragma): Accept volatile-related
3824 properties on constants.
3826 2021-09-20 Pierre-Alexandre Bazin <bazin@adacore.com>
3828 * libgnat/a-strfix.adb ("*"): Added loop invariants and lemmas
3829 for proof.
3830 (Delete): Added assertions for proof, and conditions to avoid
3831 overflow.
3832 (Head): Added loop invariant.
3833 (Insert): Same as Delete.
3834 (Move): Declared with SPARK_Mode Off.
3835 (Overwrite): Added assertions for proof, and conditions to avoid
3836 overflow.
3837 (Replace_Slice): Added assertions for proof, and conditions to
3838 avoid overflow.
3839 (Tail): Added loop invariant and avoided overflows.
3840 (Translate): Added loop invariants.
3841 (Trim): Ensured empty strings returned start at 1.
3842 * libgnat/a-strfix.ads (Index): Rewrote contract cases for
3843 easier proof.
3844 (Index_Non_Blank): Separated the null string case.
3845 (Count): Specified Mapping shouldn't be null.
3846 (Find_Token): Specified Source'First should be Positive when no
3847 From is given.
3848 (Translate): Specified Mapping shouldn't be null.
3849 ("*"): Rewrote postcondition for easier proof.
3850 * libgnat/a-strsea.adb (Belongs): Added postcondition.
3851 (Count): Rewrote loops and added loop invariants to avoid
3852 overflows.
3853 (Find_Token): Added loop invariants.
3854 (Index): Rewrote loops to avoid overflows and added loop
3855 invariants for proof.
3856 (Index_Non_Blank): Added loop invariants.
3857 (Is_Identity): New function isolated without SPARK_Mode.
3858 * libgnat/a-strsea.ads: Fix starting comment as package is no
3859 longer private.
3860 (Match): Declared ghost expression function Match.
3861 (Is_Identity): Described identity in the postcondition.
3862 (Index, Index_Non_Blank, Count, Find_Token): Added contract from
3863 a-strfix.ads.
3865 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3867 * sem_ch13.adb (Resolve_Aspect_Aggregate): Move comments after
3868 specs; fix typo in header box; cleanup whitespace.
3870 2021-09-20 Eric Botcazou <ebotcazou@adacore.com>
3872 * libgnat/s-objrea.adb (Get_Load_Address): Return 0 for ELF.
3874 2021-09-20 Eric Botcazou <ebotcazou@adacore.com>
3876 * adaint.c (__gnat_get_executable_load_address): Add Win32 support.
3877 * libgnat/s-objrea.ads (Get_Xcode_Bounds): Fix typo in comment.
3878 (Object_File): Minor reformatting.
3879 (ELF_Object_File): Uncomment predicate.
3880 (PECOFF_Object_File): Likewise.
3881 (XCOFF32_Object_File): Likewise.
3882 * libgnat/s-objrea.adb: Minor reformatting throughout.
3883 (Get_Load_Address): Implement for PE-COFF.
3884 * libgnat/s-dwalin.ads: Remove clause for System.Storage_Elements
3885 and use consistent wording in comments.
3886 (Dwarf_Context): Set type of Low, High and Load_Address to Address.
3887 * libgnat/s-dwalin.adb (Get_Load_Displacement): New function.
3888 (Is_Inside): Call Get_Load_Displacement.
3889 (Low_Address): Likewise.
3890 (Open): Adjust to type change.
3891 (Aranges_Lookup): Change type of Addr to Address.
3892 (Read_Aranges_Entry): Likewise for Start and adjust.
3893 (Enable_Cach): Adjust to type change.
3894 (Symbolic_Address): Change type of Addr to Address.
3895 (Symbolic_Traceback): Call Get_Load_Displacement.
3897 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3899 * exp_disp.adb (Make_DT): Move call to Set_Has_Dispatch_Table,
3900 so it is executed regardless of the Generate_SCIL mode.
3902 2021-09-20 Ed Schonberg <schonberg@adacore.com>
3904 * exp_util.ads (Force_Evaluation): Add formal parameter
3905 Discr_Number, to indicate discriminant expression for which an
3906 external name must be created.
3907 (Remove_Side_Effects): Ditto.
3908 * exp_util.adb (Force_Evaluation): Call Remove_Side_Effects with
3909 added parameter.
3910 (Remove_Side_Effects, Build_Temporary): If Discr_Number is
3911 positive, create an external name with suffix DISCR and the
3912 given discriminant number, analogous to what is done for
3913 temporaries for array type bounds.
3914 * sem_ch3.adb (Process_Discriminant_Expressions): If the
3915 constraint is for an object or component declaration and the
3916 corresponding entity may be visible in another unit, invoke
3917 Force_Evaluation with the new parameter.
3919 2021-09-20 Arnaud Charlet <charlet@adacore.com>
3921 * gen_il-internals.ads (Invalid_Val): Remove, unused and
3922 generates warnings.
3924 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
3926 * exp_aggr.adb, exp_ch4.adb, exp_ch5.adb, sprint.adb: Refine
3927 types of local constants.
3929 2021-09-20 Gary Dismukes <dismukes@adacore.com>
3931 * exp_attr.adb (Expand_N_Attribute_Reference): Fold
3932 Preelaborable_Initialization attribute in cases where it hasn't
3933 been folded by the analyzer.
3934 * exp_disp.adb (Original_View_In_Visible_Part): This function is
3935 removed and moved to sem_util.adb.
3936 * sem_attr.adb (Attribute_22): Add
3937 Attribute_Preelaborable_Initialization as an Ada 2022 attribute.
3938 (Analyze_Attribute, Attribute_Preelaborable_Initialization):
3939 Check that the prefix of the attribute is either a formal
3940 private or derived type, or a composite type declared within the
3941 visible part of a package or generic package.
3942 (Eval_Attribute): Perform folding of
3943 Preelaborable_Initialization attribute based on
3944 Has_Preelaborable_Initialization applied to the prefix type.
3945 * sem_ch3.adb (Resolve_Aspects): Add specialized code for
3946 Preelaborable_Initialization used at the end of a package
3947 visible part for setting Known_To_Have_Preelab_Init on types
3948 that are specified with True or that have a conjunction of one
3949 or more P_I attributes applied to formal types.
3950 * sem_ch7.adb (Analyze_Package_Specification): On call to
3951 Has_Preelaborable_Initialization, pass True for new formal
3952 Formal_Types_Have_Preelab_Init, so that error checking treats
3953 subcomponents that are declared within types in generics as
3954 having preelaborable initialization when the subcomponents are
3955 of formal types.
3956 * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): Add test for
3957 P_I to prevent calling Make_Pragma_From_Boolean_Aspect, since
3958 this aspect is handled specially and the
3959 Known_To_Have_Preelab_Init flag will get set on types that have
3960 the aspect by other means.
3961 (Analyze_Aspect_Specifications.Analyze_One_Aspect): Add test for
3962 Aspect_Preelaborable_Initialization for allowing the aspect to
3963 be specified on formal type declarations.
3964 (Is_Operational_Item): Treat Attribute_Put_Image as an
3965 operational attribute. The need for this was encountered while
3966 working on these changes.
3967 * sem_util.ads (Has_Preelaborable_Initialization): Add
3968 Formal_Types_Have_Preelab_Init as a new formal parameter that
3969 defaults to False.
3970 (Is_Conjunction_Of_Formal_Preelab_Init_Attributes): New
3971 function.
3972 (Original_View_In_Visible_Part): Moved here from exp_disp.adb,
3973 so it can be called by Analyze_Attribute.
3974 * sem_util.adb (Has_Preelaborable_Initialization): Return True
3975 for formal private and derived types when new formal
3976 Formal_Types_Have_Preelab_Init is True, and pass along the
3977 Formal_Types_Have_Preelab_Init flag in the array component case.
3978 (Check_Components): Pass along Formal_Types_Have_Preelab_Init
3979 flag on call to Has_Preelaborable_Initialization.
3980 (Is_Conjunction_Of_Formal_Preelab_Init_Attributes): New function
3981 that returns True when passed an expression that includes one or
3982 more attributes for Preelaborable_Initialization applied to
3983 prefixes that denote formal types.
3984 (Is_Formal_Preelab_Init_Attribute): New utility function nested
3985 within Is_Conjunction_Of_Formal_Preelab_Init_Attributes that
3986 determines whether a node is a P_I attribute applied to a
3987 generic formal type.
3988 (Original_View_In_Visible_Part): Moved here from exp_util.adb,
3989 so it can be called by Analyze_Attribute.
3990 * snames.ads-tmpl: Add note near the start of spec giving
3991 details about what needs to be done when adding a name that
3992 corresponds to both an attribute and a pragma. Delete existing
3993 occurrence of Name_Preelaborable_Initialization, and add a note
3994 comment in the list of Name_* constants at that place,
3995 indicating that it's included in type Pragma_Id, etc., echoing
3996 other such comments for names that are both an attribute and a
3997 pragma. Insert Name_Preelaborable_Initialization in the
3998 alphabetized set of Name_* constants corresponding to
3999 attributes (between First_Attribute_Name and
4000 Last_Attribute_Name).
4001 (type Attribute_Id): Add new literal
4002 Attribute_Preelaborable_Initialization.
4003 (type Pragma_Id): Move Pragma_Preelaborable_Initialization from
4004 its current position to the end of the type, in the special set
4005 of pragma literals that have corresponding atttributes. Add to
4006 accompanying comment, indicating that functions Get_Pragma_Id
4007 and Is_Pragma_Name need to be updated when adding a pragma
4008 literal to the special set.
4009 * snames.adb-tmpl (Get_Pragma_Id): Add case alternative for
4010 Pragma_Preelaborable_Initialization.
4011 (Is_Pragma_Name): Add test for
4012 Name_Preelaborable_Initialization.
4014 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4016 * sem_ch4.adb (Finc_Non_Universal_Interpretations): Fix check.
4018 2021-09-20 Piotr Trojanek <trojanek@adacore.com>
4020 * sem_ch3.adb (Build_Discriminant_Constraints): Exit once a
4021 first discriminant is found and the Discrim_Present flag is set.
4023 2021-09-20 Bob Duff <duff@adacore.com>
4025 * gnat1drv.adb (Gnat1drv): Avoid calling List_Rep_Info in
4026 Generate_SCIL and GNATprove_Mode.
4027 * repinfo.adb (List_Common_Type_Info): Fix comment.
4029 2021-09-20 Eric Botcazou <ebotcazou@adacore.com>
4031 * libgnat/s-dwalin.ads: Remove clause for Ada.Exceptions.Traceback,
4032 add clause for System.Traceback_Entries and alphabetize.
4033 (AET): Delete.
4034 (STE): New package renaming.
4035 (Symbolic_Traceback): Adjust.
4036 * libgnat/s-dwalin.adb: Remove clauses for Ada.Exceptions.Traceback
4037 and System.Traceback_Entries.
4038 (Symbolic_Traceback): Adjust.
4040 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4042 * sem_ch4.adb (Find_Non_Universal_Interpretations): Check if
4043 types are compatible before adding interpretation.
4045 2021-09-20 Justin Squirek <squirek@adacore.com>
4047 * exp_ch4.adb (Expand_N_Type_Conversion): Add guard to protect
4048 against calculating accessibility levels against internal
4049 compiler-generated types.
4051 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4053 * sem_dim.adb (Dimensions_Msg_Of): Capitalize comment.
4055 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4057 * adabkend.adb (Scan_Back_End_Switches): Replace switch-scanning
4058 logic with call to Backend_Utils.Scan_Common_Back_End_Switches.
4059 * back_end.adb (Scan_Back_End_Switches): Replace switch-scanning
4060 logic with call to Backend_Utils.Scan_Common_Back_End_Switches.
4061 * backend_utils.adb: New file.
4062 * backend_utils.ads: New file.
4063 * gcc-interface/Make-lang.in: Add ada/backend_utils.o.
4065 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4067 * atree.adb (Get_32_Bit_Field): Declare result before returning.
4069 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4071 * exp_ch7.adb (Expand_N_Package_Body): Replace
4072 Build_And_Insert_Cuda_Initialization with Expand_CUDA_Package.
4073 * gnat_cuda.adb (Expand_CUDA_Package): New procedure.
4074 (Build_And_Insert_Cuda_Initialization): Make internal.
4075 * gnat_cuda.ads (Expand_CUDA_Package): New procedure.
4076 (Build_And_Insert_Cuda_Initialization): Remove from spec.
4078 2021-09-20 Ghjuvan Lacambre <lacambre@adacore.com>
4080 * usage.adb (Usage): Update -gnatw.c messages.
4082 2021-09-20 Eric Botcazou <ebotcazou@adacore.com>
4084 * sem_aux.adb (Is_By_Reference_Type): Do not test Error_Posted.
4086 2021-09-15 Alexandre Oliva <oliva@adacore.com>
4088 * gcc-interface/utils.c: Include opts.h.
4089 (handle_zero_call_used_regs_attribute): New.
4090 (gnat_internal_attribute_table): Add zero_call_used_regs.
4092 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4094 PR ada/101970
4095 * exp_attr.adb (Expand_N_Attribute_Reference) <Attribute_Enum_Rep>:
4096 Use an unchecked conversion instead of a regular conversion in the
4097 enumeration case and remove Conversion_OK flag in the integer case.
4098 <Attribute_Pos>: Remove superfluous test.
4100 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4102 * gcc-interface/decl.c (validate_size): Do not issue an error if the
4103 old size has overflowed.
4105 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4107 * gcc-interface/decl.c (gnat_to_gnu_entity): For vector types, make
4108 the representative array the debug type.
4110 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4112 * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Turn variable
4113 into constant. Capitalize GCC in warning message.
4114 (intrin_arglists_compatible_p): Change parameter to pointer-to-const
4115 Adjust warning messages. Turn warning into error for vector types.
4116 (intrin_return_compatible_p): Likewise.
4117 (intrin_profiles_compatible_p): Change parameter to pointer-to-const
4119 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4121 * libgnat/s-atopri.ads (bool): Delete.
4122 (Atomic_Test_And_Set): Replace bool with Boolean.
4123 (Atomic_Always_Lock_Free): Likewise.
4124 * libgnat/s-aoinar.adb (Is_Lock_Free): Adjust.
4125 * libgnat/s-aomoar.adb (Is_Lock_Free): Likewise.
4126 * libgnat/s-aotase.adb (Atomic_Test_And_Set): Likewise.
4127 * libgnat/s-atopex.adb (Atomic_Compare_And_Exchange): Likewise.
4128 * gcc-interface/decl.c: Include gimple-expr.h.
4129 (intrin_types_incompatible_p): Delete.
4130 (intrin_arglists_compatible_p): Call types_compatible_p.
4131 (intrin_return_compatible_p): Likewise.
4133 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4135 * gcc-interface/utils.c (update_pointer_to): Set TYPE_CANONICAL on
4136 pointer and reference types.
4138 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4140 PR ada/101385
4141 * doc/gnat_ugn/building_executable_programs_with_gnat.rst
4142 (-Wall): Minor fixes.
4143 (-w): Likewise.
4144 (-Werror): Document that it also sets -gnatwe by default.
4145 * gcc-interface/lang-specs.h (ada): Expand -gnatwe if -Werror is
4146 passed and move expansion of -gnatw switches to before -gnatez.
4148 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4150 * gcc-interface/utils.c (can_materialize_object_renaming_p): Do not
4151 call UI_Is_In_Int_Range on the result of Normalized_First_Bit.
4153 2021-09-14 Eric Botcazou <ebotcazou@adacore.com>
4155 * gcc-interface/decl.c (gnat_to_gnu_entity) <is_type>: Declare new
4156 constant. Adjust error message issued by validate_size in the case
4157 of by-reference types.
4158 (validate_size): Always use the error strings passed by the caller.
4160 2021-09-08 liuhongt <hongtao.liu@intel.com>
4162 * gcc-interface/misc.c (gnat_post_options): Issue an error for
4163 -fexcess-precision=16.
4165 2021-08-19 Arnaud Charlet <charlet@adacore.com>
4167 PR ada/101924
4168 * gcc-interface/Make-lang.in (STAGE1_LIBS): Define on hpux.
4170 2021-08-18 Eric Botcazou <ebotcazou@gcc.gnu.org>
4172 * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Fix
4173 thinko in latest change.
4175 2021-08-11 Bernd Edlinger <bernd.edlinger@hotmail.de>
4177 PR debug/101598
4178 * gcc-interface/trans.c (Subprogram_Body_to_gnu): Set the
4179 DECL_SOURCE_LOCATION of DECL_IGNORED_P gnu_subprog_decl to
4180 UNKNOWN_LOCATION.
4182 2021-07-25 Arnaud Charlet <charlet@adacore.com>
4184 * libgnat/s-osprim__x32.adb: Add missing with clause.
4186 2021-07-12 Pierre-Marie de Rodat <derodat@adacore.com>
4188 * adaint.c (__gnat_number_of_cpus): Replace "#ifdef" by "#if
4189 defined".
4191 2021-07-12 Eric Botcazou <ebotcazou@adacore.com>
4193 * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Add a
4194 parallel type only when -fgnat-encodings=all is specified.
4195 <E_Array_Type>: Use the PAT name and special suffixes only when
4196 -fgnat-encodings=all is specified.
4197 <E_Array_Subtype>: Build a special type for debugging purposes only
4198 when -fgnat-encodings=all is specified. Add a parallel type or use
4199 the PAT name only when -fgnat-encodings=all is specified.
4200 <E_Record_Type>: Generate debug info for the inner record types only
4201 when -fgnat-encodings=all is specified.
4202 <E_Record_Subtype>: Use a debug type for an artificial subtype only
4203 except when -fgnat-encodings=all is specified.
4204 (elaborate_expression_1): Reset need_for_debug when possible only
4205 except when -fgnat-encodings=all is specified.
4206 (components_to_record): Use XV encodings for variable size only
4207 when -fgnat-encodings=all is specified.
4208 (associate_original_type_to_packed_array): Add a parallel type only
4209 when -fgnat-encodings=all is specified.
4210 * gcc-interface/misc.c (gnat_get_array_descr_info): Do not return
4211 full information only when -fgnat-encodings=all is specified.
4212 * gcc-interface/utils.c (make_packable_type): Add a parallel type
4213 only when -fgnat-encodings=all is specified.
4214 (maybe_pad_type): Make the inner type a debug type only except when
4215 -fgnat-encodings=all is specified. Create an XVS type for variable
4216 size only when -fgnat-encodings=all is specified.
4217 (rest_of_record_type_compilation): Add a parallel type only when
4218 -fgnat-encodings=all is specified.
4220 2021-07-12 Eric Botcazou <ebotcazou@adacore.com>
4222 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Use a
4223 fixed lower bound if the index subtype is marked so, as well as a
4224 more efficient formula for the upper bound if the array cannot be
4225 superflat.
4226 (flb_cannot_be_superflat): New predicate.
4227 (cannot_be_superflat): Rename into...
4228 (range_cannot_be_superfla): ...this. Minor tweak.
4230 2021-07-12 Bob Duff <duff@adacore.com>
4232 * uintp.ads, types.h: New subtypes of Uint: Valid_Uint, Unat,
4233 Upos, Nonzero_Uint with predicates. These correspond to new
4234 field types in Gen_IL.
4235 * gen_il-types.ads (Valid_Uint, Unat, Upos, Nonzero_Uint): New
4236 field types.
4237 * einfo-utils.ads, einfo-utils.adb, fe.h (Known_Alignment,
4238 Init_Alignment): Use the initial zero value to represent
4239 "unknown". This will ensure that if Alignment is called before
4240 Set_Alignment, the compiler will blow up (if assertions are
4241 enabled).
4242 * atree.ads, atree.adb, atree.h, gen_il-gen.adb
4243 (Get_Valid_32_Bit_Field): New generic low-level getter for
4244 subtypes of Uint.
4245 (Copy_Alignment): New procedure to copy Alignment field even
4246 when Unknown.
4247 (Init_Object_Size_Align, Init_Size_Align): Do not bypass the
4248 Init_ procedures.
4249 * exp_pakd.adb, freeze.adb, layout.adb, repinfo.adb,
4250 sem_util.adb: Protect calls to Alignment with Known_Alignment.
4251 Use Copy_Alignment when it might be unknown.
4252 * gen_il-gen-gen_entities.adb (Alignment,
4253 String_Literal_Length): Use type Unat instead of Uint, to ensure
4254 that the field is always Set_ before we get it, and that it is
4255 set to a nonnegative value.
4256 (Enumeration_Pos): Unat.
4257 (Enumeration_Rep): Valid_Uint. Can be negative, but must be
4258 valid before fetching.
4259 (Discriminant_Number): Upos.
4260 (Renaming_Map): Remove.
4261 * gen_il-gen-gen_nodes.adb (Char_Literal_Value, Reason): Unat.
4262 (Intval, Corresponding_Integer_Value): Valid_Uint.
4263 * gen_il-internals.ads: New functions for dealing with special
4264 defaults and new subtypes of Uint.
4265 * scans.ads: Correct comments.
4266 * scn.adb (Post_Scan): Do not set Intval to No_Uint; that is no
4267 longer allowed.
4268 * sem_ch13.adb (Analyze_Enumeration_Representation_Clause): Do
4269 not set Enumeration_Rep to No_Uint; that is no longer allowed.
4270 (Offset_Value): Protect calls to Alignment with Known_Alignment.
4271 * sem_prag.adb (Set_Atomic_VFA): Do not use Uint_0 to mean
4272 "unknown"; call Init_Alignment instead.
4273 * sinfo.ads: Minor comment fix.
4274 * treepr.adb: Deal with printing of new field types.
4275 * einfo.ads, gen_il-fields.ads (Renaming_Map): Remove.
4276 * gcc-interface/decl.c (gnat_to_gnu_entity): Use Known_Alignment
4277 before calling Alignment. This preserve some probably buggy
4278 behavior: if the alignment is not set, it previously defaulted
4279 to Uint_0; we now make that explicit. Use Copy_Alignment,
4280 because "Set_Alignment (Y, Alignment (X));" no longer works when
4281 the Alignment of X has not yet been set.
4282 * gcc-interface/trans.c (process_freeze_entity): Use
4283 Copy_Alignment.
4285 2021-07-12 Eric Botcazou <ebotcazou@adacore.com>
4287 * libgnat/s-dwalin.ads: Adjust a few comments left and right.
4288 (Line_Info_Register): Comment out unused components.
4289 (Line_Info_Header): Add DWARF 5 support.
4290 (Dwarf_Context): Likewise. Rename "prologue" into "header".
4291 * libgnat/s-dwalin.adb: Alphabetize "with" clauses.
4292 (DWARF constants): Add DWARF 5 support and reorder.
4293 (For_Each_Row): Adjust.
4294 (Initialize_Pass): Likewise.
4295 (Initialize_State_Machine): Likewise and fix typo.
4296 (Open): Add DWARF 5 support.
4297 (Parse_Prologue): Rename into...
4298 (Parse_Header): ...this and add DWARF 5 support.
4299 (Read_And_Execute_Isn): Rename into...
4300 (Read_And_Execute_Insn): ...this and adjust.
4301 (To_File_Name): Change parameter name and add DWARF 5 support.
4302 (Read_Entry_Format_Array): New procedure.
4303 (Skip_Form): Add DWARF 5 support and reorder.
4304 (Seek_Abbrev): Do not count entries and add DWARF 5 support.
4305 (Debug_Info_Lookup): Add DWARF 5 support.
4306 (Symbolic_Address.Set_Result): Likewise.
4307 (Symbolic_Address): Adjust.
4309 2021-07-12 Bob Duff <duff@adacore.com>
4311 * sem_ch13.adb (Duplicate_Clause): Add a helper routine
4312 Check_One_Attr, with a parameter for the attribute_designator we
4313 are looking for, and one for the attribute_designator of the
4314 current node (which are usually the same). For Size and
4315 Value_Size, call it twice, once for each.
4316 * errout.ads: Fix a typo.
4318 2021-07-12 Piotr Trojanek <trojanek@adacore.com>
4320 * exp_imgv.adb (Expand_Image_Attribute): Move rewriting to
4321 attribute Put_Image to the beginning of expansion of attribute
4322 Image.
4324 2021-07-09 Eric Botcazou <ebotcazou@adacore.com>
4326 * gcc-interface/utils.c (finish_subprog_decl): Remove obsolete line.
4328 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4330 * exp_put_image.adb (Make_Put_Image_Name): Fix style.
4331 (Image_Should_Call_Put_Image): Likewise.
4332 (Build_Image_Call): Likewise.
4334 2021-07-09 Ghjuvan Lacambre <lacambre@adacore.com>
4336 * par-ch6.adb (Contains_Import_Aspect): New function.
4337 (P_Subprogram): Acknowledge `Import` aspects.
4339 2021-07-09 Bob Duff <duff@adacore.com>
4341 * exp_put_image.adb (Make_Component_Attributes): Use
4342 Implementation_Base_Type to get the parent type. Otherwise,
4343 Parent_Type_Decl is actually an internally generated subtype
4344 declaration, so we blow up on
4345 Type_Definition (Parent_Type_Decl).
4347 2021-07-09 Dmitriy Anisimkov <anisimko@adacore.com>
4349 * gsocket.h: Include net/if.h to get IF_NAMESIZE constant.
4350 * s-oscons-tmplt.c: Define IPV6_FLOWINFO for Linux.
4352 2021-07-09 Steve Baird <baird@adacore.com>
4354 * libgnat/a-cdlili.adb: Reimplement
4355 Ada.Containers.Doubly_Linked_Lists.Generic_Sorting.Sort using
4356 Mergesort instead of the previous Quicksort variant.
4358 2021-07-09 Justin Squirek <squirek@adacore.com>
4360 * exp_ch6.adb (Is_Build_In_Place_Function_Call): Add check to
4361 verify the Selector_Name of Exp_Node has been analyzed before
4362 obtaining its entity.
4364 2021-07-09 Gary Dismukes <dismukes@adacore.com>
4366 * libgnarl/s-osinte__vxworks.ads: Fix typo ("release" =>
4367 "releases") plus comment reformatting.
4368 * libgnat/s-os_lib.ads: In a comment, fix typo ("indended" =>
4369 "intended"), add a hyphen and semicolon, plus reformatting. In
4370 comment for subtype time_t, fix typo ("effect" => "affect"), add
4371 hyphens, plus reformatting.
4372 * libgnat/s-parame.ads, libgnat/s-parame__ae653.ads,
4373 libgnat/s-parame__hpux.ads: Remove period from one-line comment.
4375 2021-07-09 Steve Baird <baird@adacore.com>
4377 * exp_ch5.adb (Expand_General_Case_Statement): Add new function
4378 Else_Statements to handle the case of invalid data analogously
4379 to how it is handled when casing on a discrete value.
4380 * sem_case.adb (Has_Static_Discriminant_Constraint): A new
4381 Boolean-valued function.
4382 (Composite_Case_Ops.Scalar_Part_Count): Include discriminants
4383 when traversing components.
4384 (Composite_Case_Ops.Choice_Analysis.Traverse_Discrete_Parts):
4385 Include discriminants when traversing components; the component
4386 range for a constrained discriminant is a single value.
4387 (Composite_Case_Ops.Choice_Analysis.Parse_Choice): Eliminate
4388 Done variable and modify how Next_Part is computed so that it is
4389 always correct (as opposed to being incorrect when Done is
4390 True). This includes changes in Update_Result (a local
4391 procedure). Add new local procedure
4392 Update_Result_For_Box_Component and call it not just for box
4393 components but also for "missing" components (components
4394 associated with an inactive variant).
4395 (Check_Choices.Check_Composite_Case_Selector.Check_Component_Subtype):
4396 Instead of disallowing all discriminated component types, allow
4397 those that are unconstrained or statically constrained. Check
4398 discriminant subtypes along with other component subtypes.
4399 * doc/gnat_rm/implementation_defined_pragmas.rst: Update
4400 documentation to reflect current implementation status.
4401 * gnat_rm.texi: Regenerate.
4403 2021-07-09 Justin Squirek <squirek@adacore.com>
4405 * sem_ch6.adb (Check_Pragma_Inline): Correctly use
4406 Corresponding_Spec_Of_Stub when dealing subprogram body stubs.
4408 2021-07-09 Doug Rupp <rupp@adacore.com>
4410 * Makefile.rtl: Add translations for s-parame__posix2008.ads
4411 * libgnarl/s-linux.ads: Import System.Parameters.
4412 (time_t): Declare using System.Parameters.time_t_bits.
4413 * libgnarl/s-linux__alpha.ads: Likewise.
4414 * libgnarl/s-linux__android.ads: Likewise.
4415 * libgnarl/s-linux__hppa.ads: Likewise.
4416 * libgnarl/s-linux__mips.ads: Likewise.
4417 * libgnarl/s-linux__riscv.ads: Likewise.
4418 * libgnarl/s-linux__sparc.ads: Likewise.
4419 * libgnarl/s-linux__x32.ads: Likewise.
4420 * libgnarl/s-qnx.ads: Likewise.
4421 * libgnarl/s-osinte__aix.ads: Likewise.
4422 * libgnarl/s-osinte__android.ads: Likewise.
4423 * libgnarl/s-osinte__darwin.ads: Likewise.
4424 * libgnarl/s-osinte__dragonfly.ads: Likewise.
4425 * libgnarl/s-osinte__freebsd.ads: Likewise.
4426 * libgnarl/s-osinte__gnu.ads: Likewise.
4427 * libgnarl/s-osinte__hpux-dce.ads: Likewise.
4428 * libgnarl/s-osinte__hpux.ads: Likewise.
4429 * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
4430 * libgnarl/s-osinte__lynxos178e.ads: Likewise.
4431 * libgnarl/s-osinte__qnx.ads: Likewise.
4432 * libgnarl/s-osinte__rtems.ads: Likewise.
4433 * libgnarl/s-osinte__solaris.ads: Likewise.
4434 * libgnarl/s-osinte__vxworks.ads: Likewise.
4435 * libgnat/g-sothco.ads: Likewise.
4436 * libgnat/s-osprim__darwin.adb: Likewise.
4437 * libgnat/s-osprim__posix.adb: Likewise.
4438 * libgnat/s-osprim__posix2008.adb: Likewise.
4439 * libgnat/s-osprim__rtems.adb: Likewise.
4440 * libgnat/s-osprim__x32.adb: Likewise.
4441 * libgnarl/s-osinte__linux.ads: use type System.Linux.time_t.
4442 * libgnat/s-os_lib.ads (time_t): Declare as subtype of
4443 Long_Long_Integer.
4444 * libgnat/s-parame.ads (time_t_bits): New constant.
4445 * libgnat/s-parame__ae653.ads (time_t_bits): Likewise.
4446 * libgnat/s-parame__hpux.ads (time_t_bits): Likewise.
4447 * libgnat/s-parame__vxworks.ads (time_t_bits): Likewise.
4448 * libgnat/s-parame__posix2008.ads: New file for 64 bit time_t.
4450 2021-07-09 Bob Duff <duff@adacore.com>
4452 * comperr.adb (Compiler_Abort): Print source file name.
4454 2021-07-09 Joffrey Huguet <huguet@adacore.com>
4456 * libgnat/a-strunb.ads, libgnat/a-strunb__shared.ads: Fix layout
4457 in contracts.
4459 2021-07-09 Eric Botcazou <ebotcazou@adacore.com>
4461 * repinfo.ads (JSON output format): Document adjusted key name.
4462 * repinfo.adb (List_Record_Layout): Use Original_Record_Component
4463 if the normalized position of the component is not known.
4464 (List_Structural_Record_Layout): Rename Outer_Ent parameter into
4465 Ext_End and add Ext_Level parameter. In an extension, if the parent
4466 subtype has static discriminants, call List_Record_Layout on it.
4467 Output "parent_" prefixes before "variant" according to Ext_Level.
4468 Adjust recursive calls throughout the procedure.
4470 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4472 * exp_util.ads (Map_Types): Fix typo.
4474 2021-07-09 Fedor Rybin <frybin@adacore.com>
4476 * krunch.adb: Add safeguards against index range violations.
4478 2021-07-09 Arnaud Charlet <charlet@adacore.com>
4480 * libgnat/a-strfix.adb: Take advantage of extended returns.
4482 2021-07-09 Eric Botcazou <ebotcazou@adacore.com>
4484 * doc/gnat_rm/implementation_defined_attributes.rst
4485 (Scalar_Storage_Order): Add paragraph about representation
4486 changes.
4487 * gnat_rm.texi: Regenerate.
4489 2021-07-09 Frederic Konrad <konrad@adacore.com>
4491 * Makefile.rtl (LIBGNAT_TARGET_PAIRS) <aarch64*-*-rtems*>: Use
4492 the wraplf variant of Aux_Long_Long_Float.
4494 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4496 * sem_ch6.adb (Analyze_Expression_Function): Initialize Orig_N
4497 and Typ variables.
4499 2021-07-09 Arnaud Charlet <charlet@adacore.com>
4501 * sem_ch13.adb (Resolve_Aspect_Expressions): Use the same
4502 processing for Predicate, Static_Predicate and
4503 Dynamic_Predicate. Do not build the predicate function spec.
4504 Update comments.
4505 (Resolve_Name): Only reset Entity when necessary to avoid
4506 spurious visibility errors.
4507 (Check_Aspect_At_End_Of_Declarations): Handle consistently all
4508 Predicate aspects.
4509 * sem_ch3.adb (Analyze_Subtype_Declaration): Fix handling of
4510 private types with predicates.
4512 2021-07-09 Justin Squirek <squirek@adacore.com>
4514 * sem_util.ads (Type_Access_Level): Add new optional parameter
4515 Assoc_Ent.
4516 * sem_util.adb (Accessibility_Level): Treat access discriminants
4517 the same as components when the restriction
4518 No_Dynamic_Accessibility_Checks is enabled.
4519 (Deepest_Type_Access_Level): Remove exception for
4520 Debug_Flag_Underscore_B when returning the result of
4521 Type_Access_Level in the case where
4522 No_Dynamic_Accessibility_Checks is active.
4523 (Function_Call_Or_Allocator_Level): Correctly calculate the
4524 level of Expr based on its containing subprogram instead of
4525 using Current_Subprogram.
4526 * sem_res.adb (Valid_Conversion): Add actual for new parameter
4527 Assoc_Ent in call to Type_Access_Level, and add test of
4528 No_Dynamic_Accessibility_Checks_Enabled to ensure that static
4529 accessibility checks are performed for all anonymous access type
4530 conversions.
4532 2021-07-09 Eric Botcazou <ebotcazou@adacore.com>
4534 * exp_dbug.ads: Update documentation of various items.
4536 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4538 * sem_ch6.adb (Analyze_Expression_Function): Reorder code.
4540 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4542 * sem_ch6.adb (Analyze_Expression_Function): Reorder code.
4544 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4546 * sem_ch6.adb (Analyze_Expression_Function): Add variable to
4547 avoid repeated calls to Etype.
4549 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4551 * sem_ch6.adb (Analyze_Expression_Function): Fix comment.
4553 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4555 * sem_ch6.adb (Analyze_Expression_Function): Use Orig_N variable
4556 instead of repeated calls to Original_Node.
4558 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4560 * sem_ch6.adb (Analyze_Expression_Function): Change types local
4561 variables from Entity_Id to Node_Id.
4563 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4565 * sem_ch6.adb (Analyze_Expression_Function): A local Expr
4566 constant was shadowing a global constant with the same name and
4567 the same value.
4569 2021-07-09 Piotr Trojanek <trojanek@adacore.com>
4571 * sem_res.adb (Preanalyze_And_Resolve): Only call
4572 Set_Must_Not_Freeze when it is necessary to restore the previous
4573 value.
4575 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4577 * sem_ch5.adb (Analyze_Assignment): Clear Current_Assignment at
4578 exit.
4579 (Analyze_Target_Name): Prevent AST climbing from going too far.
4581 2021-07-08 Ed Schonberg <schonberg@adacore.com>
4583 * sem_ch5.adb (Analyze_Target_Name): Properly reject a
4584 Target_Name when it appears outside of an assignment statement,
4585 or within the left-hand side of one.
4587 2021-07-08 Bob Duff <duff@adacore.com>
4589 * einfo-utils.ads, einfo-utils.adb (Unknown_Alignment,
4590 Unknown_Component_Bit_Offset, Unknown_Component_Size,
4591 Unknown_Esize, Unknown_Normalized_First_Bit,
4592 Unknown_Normalized_Position, Unknown_Normalized_Position_Max,
4593 Unknown_RM_Size): Remove these functions.
4594 * exp_pakd.adb, exp_util.adb, fe.h, freeze.adb, layout.adb,
4595 repinfo.adb, sem_ch13.adb, sem_ch3.adb, sem_util.adb: Remove
4596 calls to these functions; do "not Known_..." instead.
4597 * gcc-interface/decl.c, gcc-interface/trans.c
4598 (Unknown_Alignment, Unknown_Component_Size, Unknown_Esize,
4599 Unknown_RM_Size): Remove calls to these functions; do
4600 "!Known_..." instead.
4602 2021-07-08 Eric Botcazou <ebotcazou@adacore.com>
4604 * exp_dbug.adb (Get_Encoded_Name): Do not encode names of discrete
4605 types with custom bounds, except with -fgnat-encodings=all.
4606 * exp_pakd.adb (Create_Packed_Array_Impl_Type): Adjust comment.
4608 2021-07-08 Bob Duff <duff@adacore.com>
4610 * comperr.adb (Compiler_Abort): Call Sinput.Unlock, because if
4611 this is called late, then Source_Dump would crash otherwise.
4612 * debug.adb: Correct documentation of the -gnatd.9 switch.
4613 * exp_ch4.adb (Expand_Allocator_Expression): Add a comment.
4614 * exp_ch6.adb: Minor comment fixes. Add assertion.
4615 * exp_ch6.ads (Is_Build_In_Place_Result_Type): Correct comment.
4616 * exp_ch7.adb, checks.ads: Minor comment fixes.
4618 2021-07-08 Doug Rupp <rupp@adacore.com>
4620 * sigtramp-vxworks-target.inc: Rename to...
4621 * sigtramp-vxworks-target.h: ... this.
4622 * sigtramp-vxworks.c, Makefile.rtl: Likewise.
4624 2021-07-08 Ghjuvan Lacambre <lacambre@adacore.com>
4626 * lib-writ.ads: Mention SCOs dependency as reason for duplicates.
4627 * lib.ads (Units): Update documentation to mention duplicated
4628 units.
4630 2021-07-08 Ed Schonberg <schonberg@adacore.com>
4632 * style.adb (Missing_Overriding): Do not emit message when
4633 parent of subprogram is a full type declaration.
4635 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4637 * par-ch5.adb (P_Iterator_Specification): Add support for access
4638 definition in loop parameter.
4639 * sem_ch5.adb (Check_Subtype_Indication): Renamed...
4640 (Check_Subtype_Definition): ... into this and check for conformance
4641 on access definitions, and improve error messages.
4642 (Analyze_Iterator_Specification): Add support for access definition
4643 in loop parameter.
4645 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4647 * sem_util.ads, sem_util.adb
4648 (Apply_Compile_Time_Constraint_Error): New parameter
4649 Emit_Message.
4650 * sem_ch4.adb (Analyze_Selected_Component): Disable warning
4651 within an instance.
4653 2021-07-08 Eric Botcazou <ebotcazou@adacore.com>
4655 * exp_imgv.adb: Add with and use clause for Restrict and Rident.
4656 (Build_Enumeration_Image_Tables): Do not generate the hash function
4657 if the No_Implicit_Loops restriction is active.
4659 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4661 * sem_ch12.adb, sem_ch6.adb, sem_ch9.adb, sprint.adb: Simplify
4662 checks for non-empty lists.
4664 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4666 * par-ch10.adb (Unit_Display): Remove redundant condition; fix
4667 whitespace.
4669 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4671 * lib-load.adb (Load): Replace early return with goto to properly
4672 restore context on failure.
4674 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4676 * lib-writ.adb (Ensure_System_Dependency): Simplify condition.
4678 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4680 * lib-load.adb (Load_Unit): Fix style in comment.
4681 * par-load.adb (Load): Likewise.
4682 * scng.adb (Initialize_Scanner): Fix whitespace.
4684 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4686 * par-load.adb (Load): Don't remove unit, but flag it as
4687 erroneous and return.
4689 2021-07-08 Ghjuvan Lacambre <lacambre@adacore.com>
4691 * exp_prag.adb (Expand_Pragma_Inspection_Point): Fix error
4692 message.
4694 2021-07-08 Yannick Moy <moy@adacore.com>
4696 * layout.adb (Layout_Type): Do not call Number_Dimensions if the
4697 type does not have First_Index set.
4699 2021-07-08 Ghjuvan Lacambre <lacambre@adacore.com>
4701 * exp_prag.adb (Expand_Pragma_Inspection_Point): After expansion
4702 of the Inspection_Point pragma, check if referenced entities
4703 that have a freeze node are already frozen. If they aren't, emit
4704 a warning and turn the pragma into a no-op.
4706 2021-07-08 Yannick Moy <moy@adacore.com>
4708 * layout.adb (Layout_Type): Add guard before calling Expr_Value.
4710 2021-07-08 Yannick Moy <moy@adacore.com>
4712 * layout.adb (Layout_Type): Special case when RM_Size and Esize
4713 can be computed for packed arrays.
4715 2021-07-08 Steve Baird <baird@adacore.com>
4717 * rtsfind.ads, rtsfind.adb: Add support for finding the packages
4718 System.Atomic_Operations and
4719 System.Atomic_Operations.Test_And_Set and the declarations
4720 within that latter package of the type Test_And_Set_Flag and the
4721 function Atomic_Test_And_Set.
4722 * exp_ch11.adb (Expand_N_Exception_Declaration): If an exception
4723 is declared other than at library level, then we need to call
4724 Register_Exception the first time (and only the first time) the
4725 declaration is elaborated. In order to decide whether to
4726 perform this call for a given elaboration of the declaration, we
4727 used to unconditionally use a (library-level) Boolean variable.
4728 Now we instead use a variable of type
4729 System.Atomic_Operations.Test_And_Set.Test_And_Set_Flag unless
4730 either that type is unavailable or a No_Tasking restriction is
4731 in effect (in which case we use a Boolean variable as before).
4733 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4735 * gcc-interface/system.ads: Add No_Tasking restriction.
4737 2021-07-08 Ed Schonberg <schonberg@adacore.com>
4739 * libgnat/a-cohama.ads: Introduce an equality operator over
4740 cursors.
4741 * libgnat/a-cohase.ads: Ditto.
4742 * libgnat/a-cohama.adb: Add body for "=" over cursors.
4743 (Insert): Do not set the Position component of the cursor that
4744 denotes the inserted element.
4745 * libgnat/a-cohase.adb: Ditto.
4747 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4749 * libgnat/a-cbdlli.adb, libgnat/a-cbhama.adb,
4750 libgnat/a-cbhase.adb, libgnat/a-cbmutr.adb,
4751 libgnat/a-cborma.adb, libgnat/a-cborse.adb,
4752 libgnat/a-cobove.adb, libgnat/a-textio.adb,
4753 libgnat/a-witeio.adb, libgnat/a-ztexio.adb: Make code compatible
4754 with No_Dynamic_Accessibility_Checks restriction.
4756 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4758 * debug.adb, sem_util.adb: Revert meaning of -gnatd_b.
4759 * sem_res.adb: Minor reformatting.
4761 2021-07-08 Arnaud Charlet <charlet@adacore.com>
4763 * make.adb, osint.adb: Make code compatible with
4764 No_Dynamic_Accessibility_Checks restriction.
4766 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4768 * lib-writ.adb (Ensure_System_Dependency): Replace search in
4769 Lib.Units with a search in Lib.Unit_Names.
4771 2021-07-08 Piotr Trojanek <trojanek@adacore.com>
4773 * sinput-l.adb (Load_File): Simplify foreword manipulation with
4774 concatenation; similar for filename with preprocessed output.
4776 2021-07-07 Dmitriy Anisimkov <anisimko@adacore.com>
4778 * s-oscons-tmplt.c (MSG_WAITALL): Remove wrong #ifdef
4779 __MINWGW32__.
4781 2021-07-07 Gary Dismukes <dismukes@adacore.com>
4783 * einfo-utils.adb (Primitive_Operations): Default to returning
4784 Direct_Primitive_Operations in the case of concurrent types
4785 (when Corresponding_Record_Type not present).
4786 * sem_ch9.adb (Analyze_Protected_Type_Declaration): Initialize
4787 Direct_Primitive_Operations to an empty element list.
4788 (Analyze_Task_Type_Declaration): Initialize
4789 Direct_Primitive_Operations to an empty element list.
4791 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4793 * sem_eval.adb (Set_Checking_Potentially_Static_Expression):
4794 Stronger assertion.
4796 2021-07-07 Arnaud Charlet <charlet@adacore.com>
4798 * sem_ch12.adb (Analyze_Subprogram_Instantiation): Mark Anon_Id
4799 intrinsic before calling Analyze_Instance_And_Renamings because
4800 this flag may be propagated to other nodes.
4802 2021-07-07 Dmitriy Anisimkov <anisimko@adacore.com>
4804 * s-oscons-tmplt.c (TCP_KEEPCNT TCP_KEEPIDLE, TCP_KEEPINTVL):
4805 Hardcode on Windows if undefined.
4807 2021-07-07 Bob Duff <duff@adacore.com>
4809 * checks.adb (Install_Primitive_Elaboration_Check): Do not
4810 generate elaboration checks for primitives if pragma Pure or
4811 Preelaborate is present. Misc comment fixes, including
4812 referring to the correct kind of check (elaboration, not
4813 accessibility).
4814 * checks.ads, restrict.adb, sem_cat.ads, sinfo.ads: Minor
4815 reformatting and comment fixes.
4817 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4819 * sem_prag.adb (Analyze_Pragma): Simplify processing of pragma
4820 CPP_Constructor.
4822 2021-07-07 Arnaud Charlet <charlet@adacore.com>
4824 * libgnat/g-debpoo.adb (Code_Address_For_Allocate_End): Default
4825 Initialize.
4827 2021-07-07 Arnaud Charlet <charlet@adacore.com>
4829 * libgnat/s-atocou.ads, libgnat/s-atocou__builtin.adb: Code
4830 cleanups.
4832 2021-07-07 Gary Dismukes <dismukes@adacore.com>
4834 * freeze.adb (Check_Inherited_Conditions): Setting of Ekind,
4835 LSP_Subprogram, and Is_Wrapper needs to happen for null
4836 procedures as well as other wrapper cases, so the code is moved
4837 from the else part in front of the if statement. (Fixes a
4838 latent bug encountered while working on this set of changes.)
4839 * sem_attr.adb (Resolve_Attribute): Report an error for the case
4840 of an Access attribute applied to a primitive of an abstract
4841 type when the primitive has any nonstatic Pre'Class or
4842 Post'Class expressions.
4843 * sem_ch8.adb (Analyze_Subprogram_Renaming): Report an error for
4844 the case of a actual subprogram associated with a nonabstract
4845 formal subprogram when the actual is a primitive of an abstract
4846 type and the primitive has any nonstatic Pre'Class or Post'Class
4847 expressions.
4848 * sem_disp.adb (Check_Dispatching_Context): Remove special
4849 testing for null procedures, and replace it with a relaxed test
4850 that avoids getting an error about illegal calls to abstract
4851 subprograms in cases where RM 6.1.1(7/5) applies in
4852 Pre/Post'Class aspects. Also, remove special test for
4853 Postcondition, which seems to be unnecessary, update associated
4854 comments, and fix a typo in one comment.
4855 (Check_Dispatching_Call): Remove an unneeded return statement,
4856 and report an error for the case of a nondispatching call to a
4857 nonabstract subprogram of an abstract type where the subprogram
4858 has nonstatic Pre/Post'Class aspects.
4859 * sem_util.ads
4860 (Is_Prim_Of_Abst_Type_With_Nonstatic_CW_Pre_Post): New function.
4861 (In_Pre_Post_Condition): Add a flag formal Class_Wide_Only,
4862 defaulted to False, for indicating whether the function should
4863 only test for the node being within class-wide pre- and
4864 postconditions.
4865 * sem_util.adb
4866 (Is_Prim_Of_Abst_Type_With_Nonstatic_CW_Pre_Post): New function
4867 to determine whether a subprogram is a primitive of an abstract
4868 type where the primitive has class-wide Pre/Post'Class aspects
4869 specified with nonstatic expressions.
4870 (In_Pre_Post_Condition): Extend testing to account for the new
4871 formal Class_Wide_Only.
4873 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4875 * sem_ch12.adb (Check_Shared_Variable_Control_Aspects): Errors
4876 emitted via Check_Volatility_Compatibility are now emitted at
4877 Actual, just like other errors emitted by
4878 Check_Shared_Variable_Control_Aspects.
4880 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4882 * uname.adb (Get_Unit_Name): Simplify with a bounded string
4883 buffer; also, this addresses a ??? comment about the max length
4884 being exceeded.
4886 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4888 * uname.adb (Get_Body_Name, Get_Parent_Body_Name,
4889 Get_Parent_Spec_Name, Get_Spec_Name, Is_Child_Name,
4890 Is_Body_Name, Is_Spec_Name, Name_To_Unit_Name): Use a local
4891 instead of the global buffer.
4893 2021-07-07 Bob Duff <duff@adacore.com>
4895 * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Combine
4896 processing of Size and Value_Size clauses. Ensure that
4897 Value_Size is treated the same as Size, in the cases where both
4898 are allowed (i.e. the prefix denotes a first subtype). Misc
4899 cleanup.
4900 * einfo-utils.adb (Init_Size): Add assertions.
4901 (Size_Clause): Return a Value_Size clause if present, instead of
4902 just looking for a Size clause.
4903 * einfo.ads (Has_Size_Clause, Size_Clause): Change documentation
4904 to include Value_Size.
4905 * sem_ch13.ads, layout.ads, layout.adb: Comment modifications.
4907 2021-07-07 Steve Baird <baird@adacore.com>
4909 * exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): Add
4910 TSS_Put_Image to list of predefined primitives that need special
4911 treatment.
4912 (Build_General_Calling_Stubs, Build_Subprogram_Receiving_Stubs):
4913 Remove previous hack for dealing with TSS_Put_Image procedures.
4915 2021-07-07 Dmitriy Anisimkov <anisimko@adacore.com>
4917 * libgnat/g-socket.adb (Get_Socket_Option): Add 500ms only when
4918 Minus_500ms_Windows_Timeout is True.
4919 (Set_Socket_Option): Use "* 1000" instead of "/ 0.001" to
4920 convert to milliseconds.
4922 2021-07-07 Bob Duff <duff@adacore.com>
4924 * tbuild.adb (Unchecked_Convert_To): Set the Parent of the new
4925 node to the Parent of the old node.
4926 * tbuild.ads (Unchecked_Convert_To): Document differences
4927 between Convert_To and Unchecked_Convert_To. The previous
4928 documentation claimed they are identical except for the
4929 uncheckedness of the conversion.
4931 2021-07-07 Yannick Moy <moy@adacore.com>
4933 * checks.adb (Apply_Scalar_Range_Check): Remove special case for
4934 GNATprove mode.
4935 * sem_res.adb (Resolve_Arithmetic_Op): Same.
4936 * sem_util.adb (Apply_Compile_Time_Constraint_Error): Same.
4938 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4940 * sem_ch6.adb (Check_For_Primitive_Subprogram): Move
4941 declarations of local variables after nested subprogram bodies.
4943 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4945 * exp_disp.adb (CPP_Num_Prims): Reuse List_Length.
4947 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4949 * exp_ch3.adb, exp_ch6.adb, sem_ch6.adb: Replace Ekind
4950 membership test in Private_Kind with a call to Is_Private_Type.
4952 2021-07-07 Bob Duff <duff@adacore.com>
4954 * gen_il-gen-gen_entities.adb: Remove Linker_Section_Pragma
4955 field from Record_Field_Kind. Minor comment improvement.
4957 2021-07-07 Yannick Moy <moy@adacore.com>
4959 * libgnat/a-ngelfu.ads (Cot): Fix precondition.
4961 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4963 * par.adb (Par): A local Name variable is now a renaming of a
4964 constant slice.
4966 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4968 * gnat1drv.adb (Gnat1drv): Remove flagging of main unit and its
4969 corresponding spec as requiring code generation; now the flags
4970 are set much earlier.
4971 * lib-load.adb (Load_Main_Source): Set Generate_Code flag on the
4972 main unit source.
4973 (Make_Instance_Unit): Copy Generate_Code flag from the main unit
4974 to instance units.
4975 * lib-writ.adb (Write_ALI): Remove redundant condition;
4976 Generate_Code flag is always set for the main unit.
4977 * par-load.adb (Load): Set Generate_Code flag on the main unit's
4978 corresponding spec, if any.
4980 2021-07-07 Dmitriy Anisimkov <anisimko@adacore.com>
4982 * libgnat/g-socket.ads (Option_Name): Add Keep_Alive_Count,
4983 Keep_Alive_Idle, and Keep_Alive_Interval items to enumeration.
4984 (Option_Type): Add Keep_Alive_Count, Keep_Alive_Idle, and
4985 Keep_Alive_Interval alternatives to the case of discriminated
4986 record.
4987 * libgnat/g-socket.adb (Options): Add Keep_Alive_Count,
4988 Keep_Alive_Idle, and Keep_Alive_Interval to items enumerator to
4989 OS constant converter.
4990 (Set_Socket_Option): Process Keep_Alive_Count, Keep_Alive_Idle,
4991 and Keep_Alive_Interval socket options.
4992 (Get_Socket_Option): Idem.
4994 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
4996 * lib-writ.adb (Write_ALI): Exit from loop after seeing first
4997 unit that violates No_Elaboration_Code restriction.
4999 2021-07-07 Piotr Trojanek <trojanek@adacore.com>
5001 * inline.adb (Instantiate_Bodies): Fix white in declaration.
5002 (Remove_Dead_Instance): Change iteration from WHILE to FOR.
5004 2021-07-07 Bob Duff <duff@adacore.com>
5006 * checks.adb, exp_attr.adb, exp_ch4.adb, exp_ch6.adb,
5007 exp_ch9.adb, exp_disp.adb, exp_util.adb, inline.adb,
5008 sem_res.adb: Change all calls to Make_Unchecked_Type_Conversion
5009 to call Unchecked_Convert_To instead. This involves removing
5010 New_Occurrence_Of on the first parameter, because
5011 Unchecked_Convert_To expects a type entity, rather than the name
5012 of one. Also, removed calls to Relocate_Node, because
5013 Unchecked_Convert_To takes care of that.
5014 * sinfo.ads: Change comment to be worded more firmly.
5016 2021-07-07 Steve Baird <baird@adacore.com>
5018 * libgnarl/s-tassta.adb (Free_Task): Acquire the Task_Lock
5019 before, rather than after, querying the task's Terminated flag.
5020 Add a corresponding Task_Unlock call.
5022 2021-07-06 Bob Duff <duff@adacore.com>
5024 * atree.ads (Current_Error_Node): Initialize to Empty.
5026 2021-07-06 Steve Baird <baird@adacore.com>
5028 * exp_put_image.adb: Eliminate references to
5029 Debug_Flag_Underscore_Z. Change the meaning of the function
5030 Enable_Put_Image. Previously, a result of False for a tagged
5031 type would mean that the type does not get a Put_Image (PI)
5032 routine at all. Now, it means that the type gets a PI routine
5033 with very abbreviated functionality (just a call to
5034 Unknown_Put_Image). This resolves problems in mixing code
5035 compiled with and without the -gnat2022 switch.
5036 * exp_ch3.adb: Enable_Put_Image no longer participates in
5037 determining whether a tagged type gets a Put_Image procedure. A
5038 tagged type does not get a Put_Image procedure if the type
5039 Root_Buffer_Type is unavailable. This is needed to support cross
5040 targets where tagged types are supported but the type
5041 Root_Buffer_Type is not available.
5042 * exp_dist.adb: Add workarounds for some problems that arise
5043 when using the (obsolete?) Garlic implementation of the
5044 distributed systems annex with Ada 2022 constructs.
5045 * libgnat/a-sttebu.ads: Workaround a bootstrapping problem.
5046 Older compilers do not support raise expressions, so revise the
5047 the Pre'Class condition to meet this requirement without
5048 changing the condition's behavior at run time.
5050 2021-07-06 Eric Botcazou <ebotcazou@adacore.com>
5052 * repinfo-input.adb (JSON_Entity_Kind, Read_Variant_Part): Fix
5053 typo in comment.
5055 2021-07-06 Steve Baird <baird@adacore.com>
5057 * sem_ch5.adb (Analyze_Assignment): Add new nested function,
5058 Omit_Range_Check_For_Streaming, and make call to
5059 Apply_Scalar_Range_Check conditional on the result of this new
5060 function.
5061 * exp_attr.adb (Compile_Stream_Body_In_Scope): Eliminate Check
5062 parameter, update callers. The new
5063 Omit_Range_Check_For_Streaming parameter takes the place of the
5064 old use of calling Insert_Action with Suppress => All_Checks,
5065 which was insufficiently precise (it did not allow suppressing
5066 checks for one component but not for another).
5067 (Expand_N_Attribute_Reference): Eliminate another "Suppress =>
5068 All_Checks" from an Insert_Action call, this one in generating
5069 the expansion of a T'Read attribute reference for a composite
5070 type T.
5072 2021-07-06 Ghjuvan Lacambre <lacambre@adacore.com>
5074 * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Check for
5075 empty loops caused by constraints.
5077 2021-07-06 Nicolas Roche <roche@adacore.com>
5079 * rtinit.c (skip_quoted_string): Handle malformed command line
5080 with no closing double quote.
5081 (skip_argument): Handle case in which a null character is
5082 encountered by skip_quote_string.
5084 2021-07-06 Piotr Trojanek <trojanek@adacore.com>
5086 * uname.adb (Add_Node_Name): Replace local constant whose
5087 initial expression was evaluated even when unnecessary with just
5088 that expression that is evaluated at most once and only when
5089 needed.
5091 2021-07-06 Piotr Trojanek <trojanek@adacore.com>
5093 * lib.adb (Remove_Unit): Replace defensive code with an
5094 assertion.
5095 * par-load.adb (Load): Address a question mark in the comment.
5097 2021-07-06 Piotr Trojanek <trojanek@adacore.com>
5099 * sem_util.adb (Enclosing_Comp_Unit_Node): When the loop exits
5100 the Current_Node is either an N_Compilation_Unit node or Empty,
5101 so simply return it without redundant checks.
5103 2021-07-06 Piotr Trojanek <trojanek@adacore.com>
5105 * lib-load.adb (Load_Unit): Remove excessive whitespace.
5106 * lib.adb (Is_Internal_Unit, Is_Predefined_Unit): Likewise.
5107 * par-ch10.adb (P_Compilation_Unit): Simplify with membership
5108 test.
5109 * par-load.adb (Load): Likewise.
5110 * uname.adb (Get_Unit_Name): Likewise.
5112 2021-07-06 Piotr Trojanek <trojanek@adacore.com>
5114 * lib-writ.adb (Ensure_System_Dependency): Simplify by reusing a
5115 constant name.
5117 2021-07-06 Steve Baird <baird@adacore.com>
5119 * exp_ch5.adb
5120 (Expand_N_Case_Statement.Expand_General_Case_Statement.Pattern_Match):
5121 When generating an equality test for a statically known discrete
5122 value, only generate the numeric value if the discrete type is
5123 not an enumeration type. If it is an enumeration type, then
5124 call Get_Enum_Lit_From_Pos instead.
5126 2021-07-06 Justin Squirek <squirek@adacore.com>
5128 * par-ch6.adb (Get_Return_Kind): Removed.
5129 (Is_Extended): Created to identify simple and "when" return
5130 statements from extended return statements.
5131 (P_Return_Statement): Merged simple and "when" return statement
5132 processing.
5134 2021-07-06 Gary Dismukes <dismukes@adacore.com>
5136 * sem_ch4.adb (Try_One_Prefix_Interpretation): Augment test of
5137 "not Extensions_Allowed" with test for absence of Obj_Type's
5138 primitive operations Elist, as an additional condition for early
5139 return from this procedure.
5141 2021-07-06 Gary Dismukes <dismukes@adacore.com>
5143 * exp_ch4.adb (Process_Transient_In_Expression): In one comment,
5144 fix two typos and reorder wording of one sentence, plus minor
5145 reformatting.
5147 2021-07-06 Justin Squirek <squirek@adacore.com>
5149 * exp_ch5.adb (Expand_Formal_Container_Element_Loop): Remove
5150 legacy expansion of element iterators, and use expansion form
5151 used by unconstrained element types in the general case.
5153 2021-07-06 Ed Schonberg <schonberg@adacore.com>
5155 * exp_ch4.adb (Process_Transient_In_Expression): Ensure that
5156 Fin_Context, used to insert finalization code for the
5157 expression, is a list member: the value returned by
5158 Find_Hook_Context may be an expression node when the transient
5159 is part of a larger expression and it has a non-boolean type.
5161 2021-07-06 Yannick Moy <moy@adacore.com>
5163 * sem_case.adb: Fix error message.
5165 2021-07-06 Bob Duff <duff@adacore.com>
5167 * tbuild.adb (Convert_To): Add assert, along with a comment.
5168 (Make_DT_Access): Remove this function, which is not used. It
5169 was incorrect anyway (the call to New_Occurrence_Of should not
5170 be there).
5171 (Unchecked_Convert_To): Add assert. The previous version's test
5172 for unchecked conversion to the same type was redundant and
5173 could never be true, because the previous 'if' already checked
5174 for ANY expression of the same type. Remove that, and replace
5175 with a test for unchecked conversion to a related type.
5176 Otherwise, we somethings get things like
5177 "finalize(some_type!(some_type!(x)))" in the generated code,
5178 where x is already of type some_type, but we're converting it to
5179 the private type and then to the full type or vice versa (so the
5180 types aren't equal, so the previous 'if' doesn't catch it).
5181 Avoid updating the Parent. This is not necessary; the Parent
5182 will be updated if/when the node is attached to the tree.
5183 * tbuild.ads: Fix comments. No need to say "this is safe" when
5184 we just explained that a few lines earlier. Remove
5185 Make_DT_Access.
5186 * sinfo.ads: Add comments.
5187 * exp_ch7.adb (Make_Finalize_Address_Stmts): Minor comment fix.
5188 * gen_il-gen.adb, gen_il-gen.ads, gen_il-gen-gen_nodes.adb,
5189 gen_il-internals.ads: Implement a feature where you can put:
5190 Nmake_Assert => "expr" where expr is a boolean expression in a
5191 call to Create_Concrete_Node_Type. It is added in a pragma
5192 Assert in the Nmake.Make_... function for that type.
5194 2021-07-06 Gary Dismukes <dismukes@adacore.com>
5196 * checks.adb: Remove calls of Set_Do_Tag_Check (N, False).
5197 * einfo.ads: Remove hanging unneeded ??? comment ("this real description
5198 was clobbered").
5199 * exp_util.ads (Insert_Actions_After): Remove ??? from spec comment.
5200 * gen_il-fields.ads (Opt_Field_Enum): Remove literals
5201 Do_Accessibility_Check and Do_Tag_Check.
5202 * gen_il-gen-gen_nodes.adb: Remove all calls to Sm for
5203 Do_Accessibility_Check and Do_Tag_Check.
5204 * sem_type.ads (Is_Subtype_Of): Remove obsolete ???
5205 comment (function is not limited to scalar subtypes).
5206 * sem_util.ads (Is_Local_Variable_Reference): Revise comment to
5207 mention out-mode parameters as well, and remove ???.
5208 (Propagate_Concurrent_Flags): Minor reformatting.
5209 (Propagate_Invariant_Attributes): Typo fix.
5210 (Propagate_Predicate_Attributes): Indicate what is propagated
5211 and remove ??? comment.
5212 * sem_util.adb (Cannot_Raise_Constraint_Error): Remove unneeded
5213 test of Do_Tag_Check.
5214 (Is_Local_Variable_Reference): Extend function to testing for
5215 formals of mode out as well.
5216 * sinfo.ads: Remove ??? comment about flag
5217 Convert_To_Return_False indicating that the flag is obsolete (in
5218 fact it's used). Remove references to Do_Accessibility_Check and
5219 Do_Tag_Check (and the two associated ??? comments), as these
5220 flags are unneeded.
5221 * sinfo-cn.adb (Change_Conversion_To_Unchecked): Remove call of
5222 Set_Do_Tag_Check (N, False).
5223 * targparm.ads (Support_Atomic_Primitives_On_Target): Remove ???
5224 comment, plus minor reformatting.
5226 2021-07-06 Justin Squirek <squirek@adacore.com>
5228 * par-ch6.adb (Get_Return_Kind): Properly handle the case of a
5229 "return when" statement in the procedure case.
5231 2021-07-06 Bob Duff <duff@adacore.com>
5233 * sem.ads (Node_To_Be_Wrapped): Minor comment fix.
5234 * exp_ch7.adb (Establish_Transient_Scope): Misc cleanups and
5235 comment improvements.
5236 (Set_Node_To_Be_Wrapped): Remove -- not worth putting this code
5237 in a separate procedure, called only once.
5238 * sem_util.adb (Requires_Transient_Scope): Assert that our
5239 parameter has the right Kind. It probably shouldn't be E_Void,
5240 but that is passed in in some cases.
5241 (Ensure_Minimum_Decoration): Move the call later, so we know Typ
5242 is Present, and remove "if Present (Typ)" from this procedure.
5243 * exp_aggr.adb (Convert_To_Assignments): Use membership test,
5244 and avoid the "if False" idiom.
5245 (Expand_Array_Aggregate): Remove a ??? comment.
5246 * sem_ch8.adb (Push_Scope): Take advantage of the full coverage
5247 rules for aggregates.
5248 * sem_res.adb (Resolve_Declare_Expression): Remove test for
5249 Is_Type -- that's all it can be. Use named notation in call to
5250 Establish_Transient_Scope.
5251 * libgnat/a-cdlili.adb (Adjust): Remove redundant code.
5252 (Clear): Remove "pragma Warnings (Off);", which wasn't actually
5253 suppressing any warnings.
5255 2021-07-06 Bob Duff <duff@adacore.com>
5257 * gen_il-gen-gen_nodes.adb: Change the parent of
5258 N_Exception_Declaration to be N_Declaration. Minor comment fix.
5260 2021-07-06 Ed Schonberg <schonberg@adacore.com>
5262 * exp_ch4.adb (Expand_N_Type_Conversion): If the conversion is
5263 the name of an assignment operation do not apply predicate check
5264 to it prior to the assignment.
5266 2021-07-06 Bob Duff <duff@adacore.com>
5268 * libgnat/a-conhel.adb: Assert that tampering counts remain
5269 between 0 and 2**31-1. This makes debugging of
5270 finalization-related bugs easier.
5272 2021-07-06 Doug Rupp <rupp@adacore.com>
5274 * Makefile.rtl (LIBGNAT_TARGET_PAIRS): Use s-osprim__posix.adb
5275 vice s-osprim__vxworks.adb for all vxworks7r2 targets.
5277 2021-07-06 Richard Kenner <kenner@adacore.com>
5279 * gen_il-types.ads (Void_Or_Type_Kind,
5280 Exception_Or_Object_Kind): Declare.
5281 * gen_il-gen-gen_entities.adb: Likewise.
5283 2021-07-06 Gary Dismukes <dismukes@adacore.com>
5285 * doc/gnat_rm/implementation_defined_pragmas.rst: Add a
5286 description of the feature of prefixed-view calls for untagged
5287 types to the section on pragma Extensions_Allowed.
5288 * gnat_rm.texi: Regenerate.
5289 * einfo.ads: Update specification for
5290 Direct_Primitive_Operations to reflect its use for untagged
5291 types when Extensions_Allowed is True.
5292 * gen_il-gen-gen_entities.adb: Allow Direct_Primitive_Operations
5293 as a field of untagged classes of types by removing the "Pre"
5294 test of "Is_Tagged_Type (N)", and making that field generally
5295 available for all types and subtypes by defining it for
5296 Type_Kind and removing its specification for individual classes
5297 of types.
5298 * sem_ch3.adb (Analyze_Full_Type_Declaration): Initialize the
5299 Direct_Primitive_Operations list when not already set for the
5300 new (sub)type and its base type (except when Ekind of the type
5301 is E_Void, which can happen due to errors in cases where
5302 Derived_Type_Declaration is called and perhaps in other
5303 situations).
5304 (Analyze_Subtype_Declaration): Inherit
5305 Direct_Primitive_Operations list from the base type, for record
5306 and private cases.
5307 (Build_Derived_Record_Type): Initialize the
5308 Direct_Primitive_Operations list for derived record and private
5309 types.
5310 (Build_Derived_Type): Initialize the Direct_Primitive_Operations
5311 list for derived types (and also for their associated base types
5312 when needed).
5313 (Process_Full_View): For full types that are untagged record and
5314 private types, copy the primitive operations of the partial view
5315 to the primitives list of the full view.
5316 * sem_ch4.adb (Analyze_Selected_Component): Allow prefixed
5317 notation for subprogram calls in the case of untagged
5318 types (when Extensions_Allowed is True). In the case where
5319 Is_Private_Type (Prefix_Type) is True, call Try_Object_Operation
5320 when a discriminant selector wasn't found. Also call
5321 Try_Object_Operation in other type kind cases (when
5322 Extensions_Allowed is True).
5323 (Try_Object_Operation.Try_One_Prefixed_Interpretation): Prevent
5324 early return in the untagged case (when Extensions_Allowed is
5325 True). Condition main call to Try_Primitive_Operation on the
5326 type having primitives, and after that, if Prim_Result is False,
5327 test for case where the prefix type is a named access type with
5328 primitive operations and in that case call
5329 Try_Primitive_Operation after temporarily resetting Obj_Type to
5330 denote the access type (and restore it to the designated type
5331 after the call)
5332 (Try_Object_Operation.Valid_First_Argument_Of): Do matching type
5333 comparison by testing Base_Type (Obj_Type) against
5334 Base_Type (Typ), rather than against just Typ, to properly
5335 handle cases where the object prefix has a constrained
5336 subtype. (Fixes a bug discovered while working on this
5337 feature.)
5338 * sem_ch6.adb
5339 (New_Overloaded_Entity.Check_For_Primitive_Subprogram): Add a
5340 primitive of an untagged type to the type's list of primitive
5341 operations, for both explicit and implicit (derived, so
5342 Comes_From_Source is False) subprogram declarations. In the case
5343 where the new primitive overrides an inherited subprogram,
5344 locate the primitives Elist that references the overridden
5345 subprogram, and replace that element of the list with the new
5346 subprogram (done by calling the new procedure
5347 Add_Or_Replace_Untagged_Primitive on the result type and each
5348 formal atype).
5349 (Check_For_Primitive_Subprogram.Add_Or_Replace_Untagged_Primitive):
5350 New nested procedure to either add or replace an untagged
5351 primitive subprogram in a given type's list of primitive
5352 operations (replacement happens in case where the new subprogram
5353 overrides a primitive of the type).
5354 * sem_ch7.adb (New_Private_Type): When Extensions_Allowed is
5355 True, initialize the Direct_Primitive_Operations list of a
5356 private type to New_Elmt_List in the case of untagged types.
5357 * sem_ch8.adb (Find_Selected_Component): In the case where the
5358 prefix is an entity name, relax condition that tests
5359 Has_Components so that Analyze_Selected_Component will also be
5360 called when Extensions_Allowed is True and the prefix type is
5361 any type.
5363 2021-07-06 Ed Schonberg <schonberg@adacore.com>
5365 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Do not perform
5366 conformance check when the subprogram body has been created for
5367 an expression function that is not a completion of a previous
5368 specification, because the profile of the constructed body is
5369 copied from the expression function itself.
5371 2021-07-06 Steve Baird <baird@adacore.com>
5373 * doc/gnat_rm/implementation_of_specific_ada_features.rst: Add a
5374 warning indicating that the details of the default (i.e.,
5375 selected by the compiler) implementation of T'Put_Image for a
5376 nonscalar type T are subject to change.
5377 * gnat_rm.texi: Regenerate.
5379 2021-07-05 Pierre-Marie de Rodat <derodat@adacore.com>
5381 * gnat-style.texi, gnat_rm.texi, gnat_ugn.texi: Regenerate.
5383 2021-07-05 Piotr Trojanek <trojanek@adacore.com>
5385 * sem_prag.adb (Analyze_Depends_In_Decl_Part): Reject overlays
5386 in Depends and Refined_Depends contracts.
5387 (Analyze_Global_In_Decl_Part): Likewise for Global and
5388 Refined_Global.
5389 (Analyze_Initializes_In_Decl_Part): Likewise for Initializes
5390 (when appearing both as a single item and as a initialization
5391 clause).
5392 * sem_util.ads (Ultimate_Overlaid_Entity): New routine.
5393 * sem_util.adb (Report_Unused_Body_States): Ignore overlays.
5394 (Ultimate_Overlaid_Entity): New routine.
5396 2021-07-05 Claire Dross <dross@adacore.com>
5398 * libgnat/a-cfdlli.ads, libgnat/a-cfdlli.adb
5399 libgnat/a-cfinve.ads, libgnat/a-cfinve.adb,
5400 libgnat/a-cofove.ads, libgnat/a-cofove.adb,
5401 libgnat/a-coboho.ads, libgnat/a-coboho.adb (Constant_Reference):
5402 Get a read-only access to an element of the container.
5403 (At_End): Ghost functions used to express pledges in the
5404 postcondition of Reference.
5405 (Reference): Get a read-write access to an element of the
5406 container.
5407 * libgnat/a-cfhama.ads, libgnat/a-cfhama.adb,
5408 libgnat/a-cforma.ads, libgnat/a-cforma.adb: The full view of the
5409 Map type is no longer a tagged type, but a wrapper over this
5410 tagged type. This is to avoid issues with dispatching result in
5411 At_End functions.
5412 (Constant_Reference): Get a read-only access to an element of
5413 the container.
5414 (At_End): Ghost functions used to express pledges in the
5415 postcondition of Reference.
5416 (Reference): Get a read-write access to an element of the
5417 container.
5418 * libgnat/a-cfhase.ads, libgnat/a-cfhase.adb,
5419 libgnat/a-cforse.ads, libgnat/a-cforse.adb: The full view of the
5420 Map type is no longer a tagged type, but a wrapper over this
5421 tagged type.
5422 (Constant_Reference): Get a read-only access to an element of
5423 the container.
5424 * libgnat/a-cofuse.ads, libgnat/a-cofuve.ads (Copy_Element):
5425 Expression function used to cause SPARK to make sure
5426 Element_Type is copiable.
5427 * libgnat/a-cofuma.ads (Copy_Key): Expression function used to
5428 cause SPARK to make sure Key_Type is copiable.
5429 (Copy_Element): Expression function used to cause SPARK to make
5430 sure Element_Type is copiable.
5432 2021-07-05 Yannick Moy <moy@adacore.com>
5434 * sem_prag.adb (Analyze_Global_Item): Adapt to update SPARK RM
5435 rule.
5437 2021-07-05 Arnaud Charlet <charlet@adacore.com>
5439 * Make-generated.in: Add -f switch to ensure cp will never fail.
5441 2021-07-05 Steve Baird <baird@adacore.com>
5443 * exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): When
5444 building the assignment statement corresponding to the default
5445 expression for a component, we make a copy of the expression.
5446 When making that copy (and if we have seen a component that
5447 requires late initialization), pass a Map parameter into the
5448 call to New_Copy_Tree to redirect references to the type to
5449 instead refer to the _Init formal parameter of the init proc.
5450 This includes hoisting the declaration of Has_Late_Init_Comp out
5451 one level so that it becomes available to Build_Assignment.
5452 (Find_Current_Instance): Return True for other kinds of current
5453 instance references, instead of just access-valued attribute
5454 references such as T'Access.
5455 * sem_util.adb (Is_Aliased_View): Return True for the _Init
5456 formal parameter of an init procedure. The changes in
5457 exp_ch3.adb can have the effect of replacing a "T'Access"
5458 attribute reference in an init procedure with an "_Init'Access"
5459 attribute reference. We want such an attribute reference to be
5460 legal. However, we do not simply mark the formal parameter as
5461 being aliased because that might impact callers.
5462 (Is_Object_Image): Return True if Is_Current_Instance returns
5463 True for the prefix of an Image (or related attribute) attribute
5464 reference.
5466 2021-07-05 Piotr Trojanek <trojanek@adacore.com>
5468 * exp_ch3.adb (Stream_Operation_OK): Reuse
5469 Is_Concurrent_Interface.
5470 * sem_ch3.adb (Analyze_Interface_Declaration,
5471 Build_Derived_Record_Type): Likewise.
5472 * sem_ch6.adb (Check_Limited_Return): Likewise.
5473 * sem_util.adb (Is_Concurrent_Interface): Don't call
5474 Is_Interface because each of the Is_Protected_Interface,
5475 Is_Synchronized_Interface and Is_Task_Interface calls it anyway.
5477 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5479 * sem_ch6.adb (Check_Limited_Return): Replace Comes_From_Source
5480 with Comes_From_Extended_Return_Statement.
5482 2021-07-05 Steve Baird <baird@adacore.com>
5484 * libgnat/a-stobbu.adb, libgnat/a-stobbu.ads,
5485 libgnat/a-stobfi.adb, libgnat/a-stobfi.ads,
5486 libgnat/a-stoubu.adb, libgnat/a-stoubu.ads,
5487 libgnat/a-stoufi.adb, libgnat/a-stoufi.ads,
5488 libgnat/a-stoufo.adb, libgnat/a-stoufo.ads,
5489 libgnat/a-stouut.adb, libgnat/a-stouut.ads,
5490 libgnat/a-stteou.ads: Delete files.
5491 * Makefile.rtl, impunit.adb: Remove references to deleted files.
5493 2021-07-05 Piotr Trojanek <trojanek@adacore.com>
5495 * sem_util.adb (Has_Compatible_Alignment_Internal): If the
5496 prefix of the Address expression is an entire object with a
5497 known alignment, then skip checks related to its size.
5499 2021-07-05 Doug Rupp <rupp@adacore.com>
5501 * libgnat/s-os_lib.ads: Import OS_Time comparison ops as
5502 intrinsic.
5503 * libgnat/s-os_lib.adb: Remove OS_TIme comparison ops
5504 implementation.
5506 2021-07-05 Doug Rupp <rupp@adacore.com>
5508 * libgnat/s-os_lib.ads: Add some comments about time_t.
5509 * libgnat/s-os_lib.adb (GM_Split/To_GM_Time): Rename formal to
5510 P_OS_Time.
5511 (GM_Time_Of/To_OS_Time): Likewise.
5513 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5515 * sem_res.adb (Resolve): Insert minus sign if needed.
5517 2021-07-05 Steve Baird <baird@adacore.com>
5519 * exp_put_image.adb:
5520 (Enable_Put_Image, Preload_Root_Buffer_Type): Revert to querying
5521 the -gnatd_z switch, as opposed to testing whether Ada_Version >= Ada_2022.
5523 2021-07-05 Justin Squirek <squirek@adacore.com>
5525 * checks.adb (Accessibility_Checks_Suppressed): Add check
5526 against restriction No_Dynamic_Accessibility_Checks.
5527 (Apply_Accessibility_Check): Add assertion to check restriction
5528 No_Dynamic_Accessibility_Checks is not active.
5529 * debug.adb: Add documentation for new debugging switch to
5530 control which accessibility model gets employed under
5531 restriction No_Dynamic_Accessibility_Checks.
5532 * exp_attr.adb (Expand_N_Attribute_Reference): Disable dynamic
5533 accessibility check generation when
5534 No_Dynamic_Accessibility_Checks is active.
5535 * exp_ch4.adb (Apply_Accessibility_Check): Skip check generation
5536 when restriction No_Dynamic_Accessibility_Checks is active.
5537 (Expand_N_Allocator): Disable dynamic accessibility checks when
5538 No_Dynamic_Accessibility_Checks is active.
5539 (Expand_N_In): Disable dynamic accessibility checks when
5540 No_Dynamic_Accessibility_Checks is active.
5541 (Expand_N_Type_Conversion): Disable dynamic accessibility checks
5542 when No_Dynamic_Accessibility_Checks is active.
5543 * exp_ch5.adb (Expand_N_Assignment_Statement): Disable
5544 alternative accessibility model calculations when computing a
5545 dynamic level for a SAOAAT.
5546 * exp_ch6.adb (Add_Call_By_Copy_Code): Disable dynamic
5547 accessibility check generation when
5548 No_Dynamic_Accessibility_Checks is active.
5549 (Expand_Branch): Disable alternative accessibility model
5550 calculations.
5551 (Expand_Call_Helper): Disable alternative accessibility model
5552 calculations.
5553 * restrict.adb, restrict.ads: Add new restriction
5554 No_Dynamic_Accessibility_Checks.
5555 (No_Dynamic_Accessibility_Checks_Enabled): Created to test when
5556 experimental features (which are generally incompatible with
5557 standard Ada) can be enabled.
5558 * sem_attr.adb (Safe_Value_Conversions): Add handling of new
5559 accessibility model under the restriction
5560 No_Dynamic_Accessibility_Checks.
5561 * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
5562 Disallow new restriction No_Dynamic_Accessibility_Checks from
5563 being exclusively specified within a body or subunit without
5564 being present in a specification.
5565 * sem_res.adb (Check_Fully_Declared_Prefix): Minor comment
5566 fixup.
5567 (Valid_Conversion): Omit implicit conversion checks on anonymous
5568 access types and perform static checking instead when
5569 No_Dynamic_Accessibility_Checks is active.
5570 * sem_util.adb, sem_util.ads (Accessibility_Level): Add special
5571 handling of anonymous access objects, formal parameters,
5572 anonymous access components, and function return objects.
5573 (Deepest_Type_Access_Level): When
5574 No_Dynamic_Accessibility_Checks is active employ an alternative
5575 model. Add paramter Allow_Alt_Model to override the new behavior
5576 in certain cases.
5577 (Type_Access_Level): When No_Dynamic_Accessibility_Checks is
5578 active employ an alternative model. Add parameter
5579 Allow_Alt_Model to override the new behavior in certain cases.
5580 (Typ_Access_Level): Created within Accessibility_Level for
5581 convenience.
5582 * libgnat/s-rident.ads, snames.ads-tmpl: Add handing for
5583 No_Dynamic_Accessibility_Checks.
5585 2021-07-05 Doug Rupp <rupp@adacore.com>
5587 * adaint.h (__gnat_set_file_time_name): Use OS_Time.
5588 * adaint.c (__gnat_set_file_time_name): Likewise.
5590 2021-07-05 Doug Rupp <rupp@adacore.com>
5592 * adaint.h (OS_Time): typedef as long long.
5593 * osint.adb (Underlying_OS_Time): Declare as 64-bit signed type.
5594 * libgnat/s-os_lib.adb ("<"): Compare OS_Time as
5595 Long_Long_Integer.
5596 ("<="): Likewise.
5597 (">"): Likewise.
5598 (">="): Likewise.
5599 * libgnat/s-os_lib.ads (OS_Time): Declare as 64-bit signed type.
5601 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5603 * sem_ch3.adb (Check_Abstract_Overriding): Post error message on
5604 renaming node.
5606 2021-07-05 Yannick Moy <moy@adacore.com>
5608 * libgnat/a-uncdea.ads: Add Depends/Post to
5609 Ada.Unchecked_Deallocation.
5610 * sem_ch4.adb (Analyze_Allocator): Remove checking of allocator
5611 placement.
5612 * sem_res.adb (Flag_Object): Same.
5614 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5616 * aspects.ads: Add GNAT_Annotate aspect.
5617 * gnat1drv.adb (Adjust_Global_Switches): Stop defining
5618 Name_Gnat_Annotate as an alias of Name_Annotate.
5619 * snames.ads-tmpl: Define Gnat_Annotate.
5620 * par-prag.adb, sem_prag.ads: Add Pragma_Gnat_Annotate to list
5621 of pragmas.
5622 * lib-writ.adb, sem_ch13.adb, sem_prag.adb: Handle Gnat_Annotate
5623 like Aspect_Annotate.
5625 2021-07-05 Piotr Trojanek <trojanek@adacore.com>
5627 * ttypes.ads (Target_Strict_Alignment): Fix comment.
5629 2021-07-05 Piotr Trojanek <trojanek@adacore.com>
5631 * sem_util.adb (Has_Compatible_Alignment_Internal): Fix
5632 indentation of ELSIF comments; remove explicit calls to
5633 UI_To_Int; remove extra parens around the MOD operand.
5635 2021-07-05 Ed Schonberg <schonberg@adacore.com>
5637 * sem_aggr.adb (Resolve_Record_Aggregate, Step_5): Do not check
5638 for the need to use an extension aggregate for a given component
5639 when within an instance and the type of the component hss a
5640 private ancestor: the instantiation is legal if the generic
5641 compiles, and spurious errors may be generated otherwise.
5643 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5645 * errout.adb (Output_JSON_Message): Recursively call
5646 Output_JSON_Message for continuation messages instead of
5647 appending their content to the initial message.
5649 2021-07-05 Steve Baird <baird@adacore.com>
5651 * debug.adb: Remove comments about -gnatd_z switch.
5652 * exp_ch3.adb (Make_Predefined_Primitive_Specs): A one-line fix
5653 for a subtle bug that took some effort to debug. Append a new
5654 Put_Image procedure for a type extension even if it seems to
5655 already have one, just as is done for (for example) the
5656 streaming-related Read procedure.
5657 * exp_put_image.adb:
5658 (Build_Record_Put_Image_Procedure.Make_Component_Attributes): Do
5659 not treat _Parent component like just another component, for two
5660 reasons. 1. If the _parent component's type has a
5661 user-specified Put_Image procedure, then we want to generate a
5662 call to that procedure and then generate extension aggregate
5663 syntax. 2. Otherwise, we still don't want to see any mention of
5664 "_parent" in the generated image text.
5665 (Build_Record_Put_Image_Procedure.Make_Component_Name): Add
5666 assertion that we are not generating a reference to an "_parent"
5667 component.
5668 (Build_Record_Put_Image_Procedure): Add special treatment for
5669 null records. Add call to Duplicate_Subexpr for image attribute
5670 prefix in order to help with expansion needed in the class-wide
5671 case (where the prefix is also referenced in the call to
5672 Wide_Wide_Expanded_Name) if evaluation of the prefix has side
5673 effects. Add new local helper function, Put_String_Exp. Add
5674 support for case where prefix type is class-wide.
5675 (Enable_Put_Image, Preload_Root_Buffer_Type): Query Ada_Version
5676 > Ada_2022 instead of (indirectly) querying -gnatd_z switch.
5677 * freeze.adb (In_Expanded_Body): A one-line change to add
5678 TSS_Put_Image to the list of subprograms that have
5679 expander-created bodies.
5680 * rtsfind.ads: Add support for accessing
5681 Ada.Tags.Wide_Wide_Expanded_Name.
5682 * sem_ch3.ads, sem_ch3.adb: Delete Is_Null_Extension function,
5683 as part of moving it to Sem_Util.
5684 * sem_ch13.adb
5685 (Analyze_Put_Image_TSS_Definition.Has_Good_Profile): Improve
5686 diagnostic messages in cases where the result is going to be
5687 False and the Report parameter is True. Relax overly-restrictive
5688 checks in order to implement mode conformance.
5689 (Analyze_Stream_TSS_Definition.Has_Good_Profile): Add similar
5690 relaxation of parameter subtype checking for the Stream
5691 parameter of user-defined streaming subprograms.
5692 * sem_disp.adb (Check_Dispatching_Operation): A one-line
5693 change (and an accompanying comment change) to add TSS_Put_Image
5694 to the list of compiler-generated dispatching primitive
5695 operations.
5696 * sem_util.ads, sem_util.adb: Add Ignore_Privacy Boolean
5697 parameter to Is_Null_Record_Type function (typically the
5698 parameter will be False when the function is being used in the
5699 implementation of static semantics and True for dynamic
5700 semantics; the parameter might make a difference in the case of,
5701 for example, a private type that is implemented as a null record
5702 type). Add related new routines Is_Null_Extension (formerly
5703 declared in Sem_Ch3), Is_Null_Extension_Of, and
5704 Is_Null_Record_Definition.
5706 2021-07-05 Justin Squirek <squirek@adacore.com>
5708 * freeze.adb (Freeze_Profile): Use N's Sloc, F_type's chars.
5710 2021-07-05 Bob Duff <duff@adacore.com>
5712 * checks.adb, exp_aggr.adb, exp_ch5.adb, freeze.adb,
5713 sem_util.adb, sem_util.ads: Change L and H to be First and Last,
5714 to match the attributes in the RM. Change calls from procedure
5715 to function where appropriate.
5717 2021-07-05 Bob Duff <duff@adacore.com>
5719 * sem_util.ads, sem_util.adb (Compute_Returns_By_Ref): New
5720 procedure to compute Returns_By_Ref, to avoid some code
5721 duplication. This will likely change soon, so it's good to have
5722 the code in one place.
5723 (CW_Or_Has_Controlled_Part): Move here from Exp_Ch7, because
5724 it's called by Compute_Returns_By_Ref, and this is a better
5725 place for it anyway.
5726 (Needs_Finalization): Fix comment to be vague instead of wrong.
5727 * exp_ch6.adb (Expand_N_Subprogram_Body, Freeze_Subprogram):
5728 Call Compute_Returns_By_Ref.
5729 * sem_ch6.adb (Check_Delayed_Subprogram): Call
5730 Compute_Returns_By_Ref.
5731 * exp_ch7.ads, exp_ch7.adb (CW_Or_Has_Controlled_Part): Move to
5732 Sem_Util.
5733 (Has_New_Controlled_Component): Remove unused function.
5735 2021-07-05 Ghjuvan Lacambre <lacambre@adacore.com>
5737 * sem_ch3.adb (Check_Abstract_Overriding): Check for renamings.
5739 2021-07-05 Boris Yakobowski <yakobowski@adacore.com>
5741 * exp_ch4.adb (Expand_N_Op_Rem): Remove special case for rem -1
5742 in CodePeer_Mode.
5744 2021-07-01 Eric Botcazou <ebotcazou@adacore.com>
5746 PR ada/101094
5747 * exp_attr.adb (Get_Integer_Type): Return an integer type with the
5748 same signedness as the input type.
5750 2021-06-29 Richard Kenner <kenner@adacore.com>
5752 * sem_util.adb (Visit_Node): Add handling for N_Block_Statement
5753 with declarations.
5755 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5757 * einfo-utils.adb
5758 (Unknown_Alignment): Simply negate the Known_ counterpart.
5759 (Unknown_Component_Bit_Offset): Likewise.
5760 (Unknown_Esize): Likewise.
5761 (Unknown_Normalized_First_Bit): Likewise.
5762 (Unknown_Normalized_Position): Likewise.
5763 (Unknown_Normalized_Position_Max): Likewise.
5764 (Unknown_RM_Size): Likewise.
5766 2021-06-29 Boris Yakobowski <yakobowski@adacore.com>
5768 * exp_ch4.adb (Expand_N_Op_Mod): Remove special case for mod -1
5769 in CodePeer_Mode.
5771 2021-06-29 Aleksandra Pasek <pasek@adacore.com>
5773 * libgnat/s-objrea.adb (EM_AARCH64): New Constant.
5774 (Initialize): Handle EM_AARCH64 case.
5775 (Read_Address): Handle AARCH64 case.
5776 * libgnat/s-objrea.ads (Object_Arch): Add AARCH64 record
5777 component.
5779 2021-06-29 Bob Duff <duff@adacore.com>
5781 * sem_ch13.adb (Analyze_Record_Representation_Clause): Call
5782 Set_Entity_With_Checks instead of Set_Entity, so we perform the
5783 check for correct casing.
5784 * style.adb (Check_Identifier): Minor comment improvement.
5785 Cleanup overly complicated code.
5787 2021-06-29 Ed Schonberg <schonberg@adacore.com>
5789 * exp_aggr.adb (Convert_Aggr_In_Object_Decl): After expansion of
5790 the aggregate, the expression can be removed from the
5791 declaration, except if the object is class-wide, in which case
5792 the aggregate provides the actual type. In other cases the
5793 presence of the expression may lead to spurious freezing issue.
5794 * exp_ch3.adb (Expand_N_Object_Declaration): If the expression
5795 in the declaration is an aggregate with delayed expansion (as is
5796 the case for objects of a limited type, or a subsequent address
5797 specification) the aggregate must be resolved at this point.
5798 This resolution must not include expansion, because the
5799 expansion of the enclosing declaration will construct the
5800 necessary aggregate expansion.
5802 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5804 * errout.ads (Adjust_Name_Case): Remove obsolete and now unused
5805 variant.
5806 * errout.adb (Adjust_Name_Case): Likewise; fix variant that uses
5807 a custom buffer to also use it for names in Standard_Location.
5809 2021-06-29 Eric Botcazou <ebotcazou@adacore.com>
5811 * sem_ch12.adb (Freeze_Subprogram_Body): Add missing "freeze".
5812 (Install_Body): Likewise.
5814 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5816 * adaint.c (__gnat_portable_spawn): Revert change that
5817 introduced setting of __gnat_in_child_after_fork.
5819 2021-06-29 Patrick Bernardi <bernardi@adacore.com>
5821 * libgnarl/s-tasdeb.ads (Known_Tasks): Add Atomic_Components
5822 aspect.
5824 2021-06-29 Doug Rupp <rupp@adacore.com>
5826 * Makefile.rtl (x86_64-vx7r2) [EXTRA_GNATRTL_TASKING_OBJS]: Move
5827 i-vxinco.o out of RTP runtime.
5829 2021-06-29 Claire Dross <dross@adacore.com>
5831 * libgnat/a-cfdlli.ads: Use pragma Assertion_Policy to disable
5832 pre and postconditions.
5833 * libgnat/a-cfhama.ads: Likewise.
5834 * libgnat/a-cfhase.ads: Likewise.
5835 * libgnat/a-cfinve.ads: Likewise.
5836 * libgnat/a-cforma.ads: Likewise.
5837 * libgnat/a-cforse.ads: Likewise.
5838 * libgnat/a-cofove.ads: Likewise.
5840 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5842 * sem_util.ads (Get_Fullest_View): Refill comment; remove extra
5843 extra after period.
5844 * sem_util.adb (Get_Fullest_View): Fix style.
5846 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5848 * sem_ch3.adb (Analyze_Declarations): Remove explicit check for
5849 missing, because a subsequent call to Is_Empty_List will detect
5850 them anyway.
5852 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5854 * freeze.adb (Freeze_All): Simplify by reusing
5855 Is_Subprogram_Or_Entry.
5856 * sem_ch11.adb (Analyze_Handled_Statement): Likewise.
5858 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5860 * sem_warn.adb (Warn_On_Overlapping_Actuals): Prevent cascaded
5861 errors once for the subprogram call, not for every pair of
5862 actual parameters.
5864 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5866 * sem_ch3.adb (Is_Local_Type): Simplify by reusing Scope_Within.
5868 2021-06-29 Gary Dismukes <dismukes@adacore.com>
5870 * sem_ch6.ads (Can_Override_Operator): Function declaration
5871 moved from package body to package spec.
5872 * sem_ch6.adb (Check_Overriding_Indicator): Now use test of
5873 whether the subprogram's Chars is an operator name, to handle
5874 cases of function instances whose entity is
5875 N_Defining_Identifier rather than N_Defining_Operator_Symbol.
5876 (Can_Override_Operator): Function declaration moved to package
5877 spec. Now use test of whether the subprogram's Chars is an
5878 operator name, to handle cases of function instances whose
5879 entity is N_Defining_Identifier rather than
5880 N_Defining_Operator_Symbol.
5881 * sem_ch8.adb (Analyze_Renamed_Subprogram): Check for
5882 possibility of an overridden predefined operator, and suppress
5883 the "not overriding" message in that case.
5885 2021-06-29 Doug Rupp <rupp@adacore.com>
5887 * Makefile.rtl: Add a new ifeq for vx7r2 shared gnatlib.
5889 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5891 * exp_attr.adb (Build_Array_VS_Func): Restore uses of
5892 Validated_View.
5893 (Build_Record_VS_Func): Likewise.
5894 (Expand_N_Attribute_Reference): Likewise.
5895 * sem_util.adb (Validated_View): Behave as an identity function
5896 for arrays and scalars.
5898 2021-06-29 Bob Duff <duff@adacore.com>
5900 * atree.adb, atree.ads (Parent, Set_Parent): Assert node is
5901 Present.
5902 (Copy_Parent, Parent_Kind): New helper routines.
5903 * gen_il-gen.adb: Add with clause.
5904 * nlists.adb (Parent): Assert Parent of list is Present.
5905 * aspects.adb, checks.adb, exp_aggr.adb, exp_ch6.adb,
5906 exp_util.adb, lib-xref-spark_specific.adb, osint.ads,
5907 sem_ch12.adb, sem_ch13.adb, sem_ch3.adb, sem_ch6.adb,
5908 sem_dim.adb, sem_prag.adb, sem_res.adb, sem_util.adb,
5909 treepr.adb: Do not call Parent and Set_Parent on the Empty node.
5910 * libgnat/a-stwiun__shared.adb, libgnat/a-stzunb__shared.adb:
5911 Minor: Fix typos in comments.
5912 * einfo.ads: Minor comment update.
5913 * sinfo-utils.ads, sinfo-utils.adb (Parent_Kind, Copy_Parent):
5914 New functions.
5916 2021-06-29 Eric Botcazou <ebotcazou@adacore.com>
5918 * repinfo-input.adb (Read_JSON_Stream): Fix typo.
5920 2021-06-29 Eric Botcazou <ebotcazou@adacore.com>
5922 * rtsfind.ads (RE_Id): Change RE_Valid_Enumeration_Value_NN into
5923 RE_Valid_Value_Enumeration_NN.
5924 (RE_Unit_Table): Adjust to above renaming.
5925 * exp_imgv.adb (Expand_Valid_Value_Attribute): Likewise.
5926 * libgnat/s-valuen.ads (Invalid): Remove.
5927 (Value_Enumeration_Pos): Move to...
5928 * libgnat/s-valuen.adb (Value_Enumeration_Pos): ...here.
5929 Return -1 instead of Invalid.
5930 (Value_Enumeration): Compare against 0 instead of Invalid.
5931 (Valid_Enumeration_Value): Likewise. Rename to...
5932 (Valid_Value_Enumeration): ...this.
5933 * libgnat/s-vaenu8.ads (Valid_Enumeration_Value_8): Rename into...
5934 (Valid_Value_Enumeration_8): ...this.
5935 * libgnat/s-vaen16.ads (Valid_Enumeration_Value_16): Rename into...
5936 (Valid_Value_Enumeration_16): ...this.
5937 * libgnat/s-vaen32.ads (Valid_Enumeration_Value_32): Rename into...
5938 (Valid_Value_Enumeration_32): ...this.
5940 2021-06-29 Bob Duff <duff@adacore.com>
5942 * einfo.ads (Component_Bit_Offset, Component_Size): Update
5943 documentation: Repinfo is the package where these negative
5944 values are documented.
5945 * einfo-utils.adb (Known_Component_Size,
5946 Known_Static_Component_Size, Unknown_Component_Size): Remove
5947 calls to Implementation_Base_Type, because Component_Size is an
5948 Impl_Base_Type_Only field (see Gen_Entities).
5949 * sem_ch13.ads, sem_ch13.adb (Check_Size): Do not set Esize and
5950 RM_Size. This is unnecessary in the case of Size. For
5951 Component_Size, it is wrong, because we would be setting the
5952 Esize and RM_Size of the component type.
5954 2021-06-29 Pascal Obry <obry@adacore.com>
5956 * s-oscons-tmplt.c: Add some OS constants.
5958 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5960 * sem_util.ads (Validated_View): Fix style in comment.
5961 * sem_util.adb (Validated_View): Rewrite in recursive style.
5963 2021-06-29 Eric Botcazou <ebotcazou@adacore.com>
5965 * Make-generated.in (ada/stamp-gen_il): Ignore errors from
5966 running gen_il-main.
5968 2021-06-29 Richard Kenner <kenner@adacore.com>
5970 * gen_il-gen-gen_entities.adb (Record_Field_Kind,
5971 Allocatable_Kind): Add new abstract kinds.
5972 (Constant_Or_Variable_Kind): Likewise.
5973 (E_Constant, E_Variable, E_Loop_Parameter): Use them.
5974 (E_Discriminant, E_Component): Likewise.
5975 * gen_il-types.ads (type Opt_Type_Enum): Add them.
5977 2021-06-29 Bob Duff <duff@adacore.com>
5979 * gen_il-gen.adb (Put_C_Type_And_Subtypes): Put the correct
5980 numbers.
5981 * gen_il-internals.ads, gen_il-internals.adb: (Pos): Remove this
5982 function. It was assuming that the order of the enumeration
5983 literals in Type_Enum is the same as the order of the generated
5984 types Node_Kind and Entity_Kind, which is not true.
5986 2021-06-29 Piotr Trojanek <trojanek@adacore.com>
5988 * exp_attr.adb (Expand_N_Attribute_Reference): Explicitly use
5989 Validated_View for record objects.
5991 2021-06-28 Martin Sebor <msebor@redhat.com>
5993 * gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu):
5994 Replace TREE_NO_WARNING with suppress_warning.
5995 (gnat_gimplify_expr): Same.
5996 * gcc-interface/utils.c (gnat_pushdecl): Same.
5998 2021-06-21 Gary Dismukes <dismukes@adacore.com>
6000 * checks.adb (Selected_Range_Checks): In the case of a
6001 qualified_expression where the qualifying subtype is an
6002 unconstrained array subtype with fixed lower bounds for some of
6003 its indexes, generate tests to check that those bounds are equal
6004 to the corresponding lower bounds of the qualified array object.
6006 2021-06-21 Bob Duff <duff@adacore.com>
6008 * libgnat/s-valuen.ads (Value_Enumeration,
6009 Valid_Enumeration_Value): Inline.
6010 (Value_Enumeration_Pos): Add Pure_Function.
6012 2021-06-21 Justin Squirek <squirek@adacore.com>
6014 * doc/gnat_rm/implementation_defined_pragmas.rst: Document new
6015 feature under pragma Extensions_Allowed.
6016 * gnat_rm.texi: Regenerate.
6017 * errout.adb, errout.ads (Error_Msg_GNAT_Extension): Created to
6018 issue errors when parsing extension only constructs.
6019 * exp_ch11.adb, exp_ch11.ads (Expand_N_Raise_When_Statement):
6020 Created to expand raise ... when constucts.
6021 * exp_ch5.adb, exp_ch5.ads (Expand_N_Goto_When_Statement):
6022 Created to expand goto ... when constructs.
6023 * exp_ch6.adb, exp_ch6.ads (Expand_N_Return_When_Statement):
6024 Created to expand return ... when constructs.
6025 * expander.adb (Expand): Add case entries for "when" constructs.
6026 * gen_il-gen-gen_nodes.adb, gen_il-types.ads: Add entries for
6027 "when" constructs.
6028 * par-ch11.adb (P_Raise_Statement): Add processing for raise ...
6029 when.
6030 * par-ch5.adb (Missing_Semicolon_On_Exit): Renamed to
6031 Missing_Semicolon_On_When and moved to par-util.adb.
6032 * par-ch6.adb (Get_Return_Kind): Renamed from Is_Simple and
6033 processing added for "return ... when" return kind.
6034 (Is_Simple): Renamed to Get_Return_Kind.
6035 (P_Return_Statement): Add case for return ... when variant of
6036 return statement.
6037 * par-util.adb, par.adb (Missing_Semicolon_On_When): Added to
6038 centeralize parsing of "when" keywords in the context of "when"
6039 constructs.
6040 * sem.adb (Analyze): Add case for "when" constructs.
6041 * sem_ch11.adb, sem_ch11.ads (Analyze_Raise_When_Statement):
6042 Created to analyze raise ... when constructs.
6043 * sem_ch5.adb, sem_ch5.ads (Analyzed_Goto_When_Statement):
6044 Created to analyze goto ... when constructs.
6045 * sem_ch6.adb, sem_ch6.ads (Analyze_Return_When_Statement):
6046 Created to analyze return ... when constructs.
6047 * sprint.adb (Sprint_Node_Actual): Add entries for new "when"
6048 nodes.
6050 2021-06-21 Steve Baird <baird@adacore.com>
6052 * Make-generated.in (GEN_IL_FLAGS): Keep only GNAT flags.
6053 (ada/stamp-gen_il): Remove dependencies on libgnat/ sources. Do not
6054 copy libgnat/ sources locally and tidy up.
6055 * Makefile.rtl: Include object files for new Text_Buffer units
6056 in the GNATRTL_NONTASKING_OBJS list.
6057 * exp_put_image.ads, exp_put_image.adb: Update Rtsfind calls to
6058 match new specs. For example, calls to RE_Sink are replaced with
6059 calls to RE_Root_Buffer_Type. Update comments and change
6060 subprogram names accordingly (e.g., Preload_Sink is changed to
6061 Preload_Root_Buffer_Type).
6062 * impunit.adb: Add 6 new predefined units (Text_Buffers and 5
6063 child units thereof).
6064 * rtsfind.ads, rtsfind.adb: Add interfaces for accessing the
6065 Ada.Strings.Text_Buffers package and declarations
6066 therein (including the Unbounded child unit). Do not (yet)
6067 delete interfaces for accessing the old Text_Output package.
6068 * sem_attr.adb (Check_Put_Image_Attribute): Replace RE_Sink uses
6069 with RE_Root_Buffer_Type and update comments accordingly.
6070 * sem_ch10.adb (Analyze_Compilation_Unit): Update call to
6071 reflect name change of callee (that is, the former Preload_Sink
6072 is now Preload_Root_Buffer_Type).
6073 * sem_ch13.adb (Has_Good_Profile): Replace RE_Sink use with
6074 RE_Root_Buffer_Type.
6075 (Build_Spec): Update comment describing a parameter type.
6076 * gen_il.ads: Remove clauses for the old Text_Output package and
6077 add them for Ada.Streams.Stream_IO.
6078 (Sink): Declare.
6079 (Create_File): Likewise.
6080 (Increase_Indent): Likewise.
6081 (Decrease_Indent): Likewise.
6082 (Put): Likewise.
6083 (LF): Likewise.
6084 * gen_il.adb: Add clauses for Ada.Streams.Stream_IO.
6085 (Create_File): New procedure.
6086 (Increase_Indent): Likewise.
6087 (Decrease_Indent): Likewise.
6088 (Put): New procedures.
6089 * gen_il-gen.adb: Add clauses for Ada.Text_IO. Replace
6090 Sink'Class with Sink throughout. Use string concatenation and
6091 LF marker instead of formatted strings and "\n" marker. Update
6092 Indent/Outdent calls to use new Increase_Indent/Decrease_Indent
6093 names.
6094 (Put_Membership_Query_Decl): Remove.
6095 * gen_il-internals.ads: Replace Sink'Class with Sink throughout.
6096 (Ptypes): Remove.
6097 (Pfields): Likewise.
6098 * gen_il-internals.adb: Remove clauses for GNAT.OS_Lib and
6099 Ada.Strings.Text_Buffers.Files. Replace Sink'Class with Sink
6100 throughout. Use string concatenation and LF marker instead of
6101 formatted strings and "\n" marker.
6102 (Stdout): Remove.
6103 (Ptypes): Likewise.
6104 (Pfields): Likewise.
6105 * libgnarl/s-putaim.ads: Modify context clause, update
6106 declaration of subtype Sink to refer to
6107 Text_Buffers.Root_Buffer_Type instead of the old
6108 Text_Output.Sink type.
6109 * libgnarl/s-putaim.adb: Modify context clause and add use
6110 clause to refer to Text_Buffers package.
6111 * libgnat/a-cbdlli.ads, libgnat/a-cbdlli.adb,
6112 libgnat/a-cbhama.ads, libgnat/a-cbhama.adb,
6113 libgnat/a-cbhase.ads, libgnat/a-cbhase.adb,
6114 libgnat/a-cbmutr.ads, libgnat/a-cbmutr.adb,
6115 libgnat/a-cborma.ads, libgnat/a-cborma.adb,
6116 libgnat/a-cborse.ads, libgnat/a-cborse.adb,
6117 libgnat/a-cdlili.ads, libgnat/a-cdlili.adb,
6118 libgnat/a-cidlli.ads, libgnat/a-cidlli.adb,
6119 libgnat/a-cihama.ads, libgnat/a-cihama.adb,
6120 libgnat/a-cihase.ads, libgnat/a-cihase.adb,
6121 libgnat/a-cimutr.ads, libgnat/a-cimutr.adb,
6122 libgnat/a-ciorma.ads, libgnat/a-ciorma.adb,
6123 libgnat/a-ciormu.ads, libgnat/a-ciormu.adb,
6124 libgnat/a-ciorse.ads, libgnat/a-ciorse.adb,
6125 libgnat/a-coboho.ads, libgnat/a-coboho.adb,
6126 libgnat/a-cobove.ads, libgnat/a-cobove.adb,
6127 libgnat/a-cohama.ads, libgnat/a-cohama.adb,
6128 libgnat/a-cohase.ads, libgnat/a-cohase.adb,
6129 libgnat/a-coinho.ads, libgnat/a-coinho.adb,
6130 libgnat/a-coinho__shared.ads, libgnat/a-coinho__shared.adb,
6131 libgnat/a-coinve.ads, libgnat/a-coinve.adb,
6132 libgnat/a-comutr.ads, libgnat/a-comutr.adb,
6133 libgnat/a-convec.ads, libgnat/a-convec.adb,
6134 libgnat/a-coorma.ads, libgnat/a-coorma.adb,
6135 libgnat/a-coormu.ads, libgnat/a-coormu.adb,
6136 libgnat/a-coorse.ads, libgnat/a-coorse.adb,
6137 libgnat/a-nbnbin.ads, libgnat/a-nbnbin.adb,
6138 libgnat/a-nbnbin__gmp.adb, libgnat/a-nbnbre.ads,
6139 libgnat/a-nbnbre.adb, libgnat/a-strunb.ads,
6140 libgnat/a-strunb.adb, libgnat/a-strunb__shared.ads,
6141 libgnat/a-strunb__shared.adb, libgnat/s-rannum.ads,
6142 libgnat/s-rannum.adb: Modify Put_Image procedure used in
6143 Put_Image aspect specification to conform to Ada profile
6144 rules (in particular, the first parameter shall be of type
6145 Ada.Strings.Text_Buffers.Root_Buffer_Type'Class).
6146 * libgnat/a-sttebu.ads, libgnat/a-sttebu.adb,
6147 libgnat/a-stbubo.ads, libgnat/a-stbubo.adb,
6148 libgnat/a-stbufi.ads, libgnat/a-stbufi.adb,
6149 libgnat/a-stbufo.ads, libgnat/a-stbufo.adb,
6150 libgnat/a-stbuun.ads, libgnat/a-stbuun.adb,
6151 libgnat/a-stbuut.ads, libgnat/a-stbuut.adb: A new predefined
6152 unit, Ada.Strings.Text_Buffers, and five child units. Two of
6153 the five are RM-defined: Bounded and Unbounded. The remaining
6154 three are GNAT-defined: Files, Utils, and Formatting. The buffer
6155 type corresponding to an output file, type Files.File_Buffer, is
6156 simpler (and perhaps therefore slower) than its predecessor.
6157 Caching similar to what was being done before could be added
6158 later if that seems appropriate.
6159 * libgnat/s-putima.ads: Modify context clause, update
6160 declaration of subtype Sink to refer to
6161 Text_Buffers.Root_Buffer_Type instead of the old
6162 Text_Output.Sink type.
6163 * libgnat/s-putima.adb: Modify context clause. Update
6164 Indent/Outdent calls to use new Increase_Indent/Decrease_Indent
6165 names; ditto for "Put_String => Put" name change.
6166 * libgnat/a-stteou__bootstrap.ads: Delete.
6168 2021-06-21 Eric Botcazou <ebotcazou@adacore.com>
6170 * exp_ch5.adb (Expand_Assign_Array_Bitfield_Fast): If big-endian
6171 ordering is in effect for the operands and they are small,
6172 adjust the unchecked conversions done around them.
6174 2021-06-21 Richard Kenner <kenner@adacore.com>
6176 * einfo.ads (Return_Statement): Add documentation.
6177 * exp_ch6.adb (Expand_N_Extended_Return_Statement): Set it.
6178 * gen_il-fields.ads: Add it.
6179 * gen_il-gen-gen_entities.adb: Add it.
6181 2021-06-21 Bob Duff <duff@adacore.com>
6183 * rtsfind.ads, libgnat/s-bitfie.ads, libgnat/s-bituti.adb,
6184 libgnat/s-bituti.ads (Fast_Copy_Bitfield): New run-time library
6185 function to copy bit fields faster than Copy_Bitfield. Cannot be
6186 called with zero-size bit fields. Remove obsolete ??? comments
6187 from s-bituti.adb; we already do "avoid calling this if
6188 Forwards_OK is False".
6189 * exp_ch5.adb (Expand_Assign_Array_Loop_Or_Bitfield,
6190 Expand_Assign_Array_Bitfield_Fast): Generate calls to
6191 Fast_Copy_Bitfield when appropriate.
6192 * sem_util.adb, sem_util.ads (Get_Index_Bounds): Two new
6193 functions for getting the index bounds. These are more
6194 convenient than the procedure of the same name, because they can
6195 be used to initialize constants.
6197 2021-06-21 Ed Schonberg <schonberg@adacore.com>
6199 * gen_il-fields.ads: Add Default_Subtype_Mark to enumeration
6200 type for fields.
6201 * gen_il-gen-gen_nodes.adb: Add call to create new field for
6202 Formal_Type_Declaration node.
6203 * par-ch12.adb (P_Formal_Type_Declaration): in Ada_2022 mode,
6204 recognize new syntax for default: "or use subtype_mark".
6205 (P_Formal_Type_Definition): Ditto for the case of a formal
6206 incomplete type.
6207 * sinfo.ads: Add field Default_Subtype_Mark to
6208 N_Formal_Type_Declaration.
6209 * sem_ch12.adb (Validate_Formal_Type_Default): New procedure, to
6210 apply legality rules to default subtypes in formal type
6211 declarations. Some legality rules apply to all defaults, such as
6212 the requirement that the default for a formal type that depends
6213 on previous formal entities must itself be a previously declared
6214 formal of the same unit. Other checks are kind- specific.
6215 (Analyze_Associations): Use specified default if there is no
6216 actual provided for a formal type in an instance.
6217 (Analyze_Formal_Type_Declaration): Call
6218 Validate_Formal_Type_Default when default subtype is present.
6220 2021-06-21 Bob Duff <duff@adacore.com>
6222 * libgnat/s-valuen.ads, libgnat/s-valuen.adb
6223 (Value_Enumeration_Pos): New function to compute the 'Pos of the
6224 enumeration literal for a given String. Return a special value
6225 instead of raising an exception on invalid input. Called by both
6226 Valid_Enumeration_Image and Value_Enumeration.
6227 (Valid_Enumeration_Image): Return a Boolean indicating whether
6228 the String is a valid Image for the given enumeration type.
6229 (Value_Enumeration): Implement in terms of
6230 Value_Enumeration_Pos.
6231 * libgnat/s-vaenu8.ads, libgnat/s-vaen16.ads,
6232 libgnat/s-vaen32.ads: Rename Valid_Enumeration_Image from the
6233 instances.
6234 * libgnat/s-valuti.ads: Correct documentation (it was not true
6235 for the null string).
6236 * libgnat/s-valuti.adb (Normalize_String): Do not raise
6237 Constraint_Error for the null string, nor strings containing
6238 nothing but blanks, so that Valid_Enumeration_Image can return
6239 False in these cases, rather than raising an exception.
6240 * rtsfind.ads (RE_Value_Enumeration_8, RE_Value_Enumeration_16,
6241 RE_Value_Enumeration_32): New functions.
6242 (RTE_Available): Improve comment (E doesn't have to be a
6243 subprogram, although that's the usual case).
6244 * sem_attr.adb (nalid_Value): Semantic analysis for new
6245 attribute.
6246 * exp_attr.adb: Call Expand_Valid_Value_Attribute for new
6247 attribute.
6248 * exp_imgv.ads, exp_imgv.adb (Expand_Valid_Value_Attribute): New
6249 procedure to expand Valid_Value into a call to
6250 Valid_Enumeration_Image_NN.
6251 (Expand_Value_Attribute): Misc code cleanups. Remove two ???
6252 mark comments. RTE_Available won't work here. For one thing,
6253 RTE_Available (X) shouldn't be called until the compiler has
6254 decided to make use of X (see comments on RTE_Available), and in
6255 this case we're trying to AVOID calling something.
6256 * snames.ads-tmpl: New attribute name.
6257 * doc/gnat_rm/implementation_defined_attributes.rst: Document
6258 new attribute.
6259 * gnat_rm.texi: Regenerate.
6261 2021-06-21 Eric Botcazou <ebotcazou@adacore.com>
6263 * fe.h (Assume_No_Invalid_Values): Declare.
6264 * opt.ads (Assume_No_Invalid_Values): Add warning comment.
6266 2021-06-21 Bob Duff <duff@adacore.com>
6268 * libgnat/s-bituti.ads (Small_Size): Do not include 0 in this
6269 type.
6270 * libgnat/s-bituti.adb (Copy_Bitfield): Do nothing for 0-bit
6271 bitfields.
6273 2021-06-21 Ghjuvan Lacambre <lacambre@adacore.com>
6275 * exp_ch9.adb (Build_Simple_Entry_Call): Add comment.
6276 * libgnat/s-rannum.adb (Random): Update comment.
6277 * libgnat/s-rannum.ads (Generator): Update comment.
6279 2021-06-21 Piotr Trojanek <trojanek@adacore.com>
6281 * doc/gnat_rm/representation_clauses_and_pragmas.rst (Address
6282 Clauses): Fix unbalanced parens.
6283 * gnat_rm.texi: Regenerate.
6285 2021-06-21 Ghjuvan Lacambre <lacambre@adacore.com>
6287 * errout.adb (Handle_Serious_Error): Capitalize comment.
6288 * exp_dbug.adb (Set_Entity_Name): Capitalize sentence.
6289 * exp_dist.adb (Expand_All_Calls_Remote_Subprogram_Call): Fix
6290 typo.
6291 * sem_ch3.adb (Modular_Type_Declaration): Add space after comma.
6293 2021-06-21 Ghjuvan Lacambre <lacambre@adacore.com>
6295 * debug.adb: Document -gnatd_U as taken.
6296 * err_vars.ads (Warning_Doc_Switch): Set to True.
6297 * errout.ads (Errout): Update documentation.
6298 * gnat1drv.adb (Adjust_Global_Switches): React to -gnatd_U.
6299 * hostparm.ads (Tag_Errors): Set to True.
6300 * opt.ads (Unique_Error_Tag): Document -gnatd_U.
6302 2021-06-21 Eric Botcazou <ebotcazou@adacore.com>
6304 * urealp.ads (UR_Write_To_JSON): Declare.
6305 * urealp.adb (Decimal_Exponent_Hi): Treat numbers in base 10
6306 specially and rewrite handling of numbers in other bases.
6307 (Decimal_Exponent_Lo): Likewise.
6308 (Normalize): Minor tweak.
6309 (UR_Write_To_JSON): New wrapper procedure around UR_Write.
6310 * repinfo.adb (List_Type_Info): When the output is to JSON, call
6311 UR_Write_To_JSON instead of UR_Write.
6313 2021-06-21 Piotr Trojanek <trojanek@adacore.com>
6315 * sem_util.adb (Indexed_Component_Bit_Offset): Return an unknown
6316 offset for components within multidimensional arrays; remove
6317 redundant parens.
6319 2021-06-21 Piotr Trojanek <trojanek@adacore.com>
6321 * sem_util.adb (Find_Overlaid_Entity): Ignore references to
6322 components and discriminants.
6324 2021-06-21 Doug Rupp <rupp@adacore.com>
6326 * Makefile.rtl (aarch64-linux) [LIBGNAT_TARGET_PAIRS]: Add
6327 $(TRASYM_DWARF_UNIX_PAIRS).
6328 [EXTRA_GNAT_RTL_NONTASKING_OBJS]: Add $(TRASYM_DWARF_UNIX_OBJS)
6330 2021-06-21 Gary Dismukes <dismukes@adacore.com>
6332 * exp_util.adb (Expand_Sliding_Conversion): Only perform
6333 expansion when Expander_Active is True. Add a comment about this
6334 and refine existing comment regarding string literals.
6336 2021-06-21 Piotr Trojanek <trojanek@adacore.com>
6338 * sem_util.adb (Denotes_Same_Object): Simplify handling of
6339 slices.
6341 2021-06-21 Piotr Trojanek <trojanek@adacore.com>
6343 * sem_util.adb (Is_Object_Renaming): Rename from Is_Renaming;
6344 simplify; adapt callers.
6346 2021-06-21 Frederic Konrad <konrad@adacore.com>
6348 * Makefile.rtl: Compiles both static and dynamic libgnat for
6349 powerpc64-wrs-vxworks7r2.
6351 2021-06-18 Gary Dismukes <dismukes@adacore.com>
6353 * sem_ch3.adb (Constrain_Array): Add error checking for
6354 fixed-lower-bound and constrained index ranges applied
6355 inappropriately on subtypes of unconstrained and
6356 fixed-lower-bound array types.
6357 (Constrain_Index): Correct and refine comment related to
6358 fixed-lower-bound index ranges.
6360 2021-06-18 Bob Duff <duff@adacore.com>
6362 * gen_il-gen.adb: Improve comments.
6363 * snames.ads-tmpl (Convention_Id): Remove "-- Plenty of space
6364 for expansion", because that's irrelevant now that we are no
6365 longer laying out node fields by hand.
6367 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6369 * sem_util.adb (Denotes_Same_Object): Handle character literals
6370 just like integer literals.
6372 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6374 * sem_util.adb (Denotes_Same_Object): Explicitly test for node
6375 kinds being the same; deal with renamings one-by-one; adjust
6376 numbers in references to the Ada RM.
6378 2021-06-18 Bob Duff <duff@adacore.com>
6380 * sprint.adb (Write_Source_Line): Check for EOF in
6381 Line_Terminator loop. Note that when a source file is read in,
6382 an EOF character is added to the end.
6384 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6386 * sem_aux.adb (Package_Specification): Add assertions to confirm
6387 the kind of the of parameter and returned node.
6388 * sem_ch12.adb (Remove_Parent): Reorder conditions; this change
6389 appears to be semantically neutral, but is enough to avoid the
6390 problematic call to Package_Specification.
6391 * sem_util.adb (Is_Incomplete_Or_Private_Type): Replace loop
6392 with a call to Package_Specification.
6394 2021-06-18 Bob Duff <duff@adacore.com>
6396 * sem_attr.adb (Eval_Attribute): For Enum_Lit'Size, use
6397 Enum_Type'Object_Size.
6399 2021-06-18 Olivier Hainque <hainque@adacore.com>
6401 * sigtramp-vxworks-target.inc (__aarch64__): Sync
6402 REGNO_PC_OFFSET with the back-end DWARF_ALT_FRAME_RETURN_COLUMN.
6403 In CFI_COMMON_REGS, leave r18 alone, VxWorks private.
6405 2021-06-18 Javier Miranda <miranda@adacore.com>
6407 * contracts.adb (Process_Spec_Postconditions): Add missing
6408 support for aliased subprograms and handle wrappers of
6409 class-wide pre/post conditions.
6410 (Process_Inherited_Preconditions): Add missing support for
6411 aliased subprograms and handle wrappers of class-wide pre/post
6412 conditions.
6413 * einfo.ads (Class_Wide_Clone): Fix typo.
6414 (Is_Class_Wide_Clone): Removed since it is not referenced.
6415 (Is_Wrapper): Documenting new flag.
6416 (LSP_Subprogram): Documenting new attribute.
6417 * exp_ch3.adb (Make_Controlling_Function_Wrappers): Decorate
6418 wrapper as Is_Wrapper and adjust call to
6419 Override_Dispatching_Operation.
6420 * freeze.adb (Build_Inherited_Condition_Pragmas): Fix typo in
6421 documentation.
6422 (Check_Inherited_Conditions): Handle LSP wrappers; ensure
6423 correct decoration of LSP wrappers.
6424 * gen_il-fields.ads (Is_Class_Wide_Clone): Removed.
6425 (Is_Wrapper): Added.
6426 (LSP_Subprogram): Added.
6427 * gen_il-gen-gen_entities.adb (Is_Class_Wide_Clone): Removed.
6428 (Is_Wrapper): Added.
6429 (LSP_Subprogram): Added.
6430 * gen_il-internals.adb (Image): Adding uppercase image of
6431 LSP_Subprogram.
6432 * sem_ch6.adb (New_Overloaded_Entity): Fix decoration of LSP
6433 wrappers.
6434 * sem_disp.ads (Override_Dispatching_Operation): Remove
6435 parameter Is_Wrapper; no longer needed.
6436 * sem_disp.adb (Check_Dispatching_Operation): Adjust assertion.
6437 (Override_Dispatching_Operation): Remove parameter Is_Wrapper;
6438 no longer needed.
6439 * treepr.adb (Image): Adding uppercase image of LSP_Subprogram.
6441 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6443 * exp_ch4.adb (Expand_N_Quantified_Expression): Ensure the type
6444 of the name of a "for of" loop is frozen.
6445 * exp_disp.adb (Check_Premature_Freezing): Complete condition to
6446 take into account a private type completed by another private
6447 type now that the freezing rule are better implemented.
6448 * freeze.adb (Freeze_Entity.Freeze_Profile): Do not perform an
6449 early freeze on types if not in the proper scope. Special case
6450 expression functions that requires access to the dispatch table.
6451 (Should_Freeze_Type): New.
6452 * sem_ch13.adb (Resolve_Aspect_Expressions): Prevent assert
6453 failure in case of an invalid tree (previous errors detected).
6454 * sem_res.adb (Resolve): Remove kludge related to entities
6455 causing incorrect premature freezing.
6456 * sem_util.adb (Ensure_Minimum_Decoration): Add protection
6457 against non base types.
6459 2021-06-18 Gary Dismukes <dismukes@adacore.com>
6461 * sem_ch3.adb (Constrain_Index): Set the High_Bound of a
6462 fixed-lower-bound subtype's range to T (the subtype of the FLB
6463 index being constrained) rather than Base_Type (T).
6465 2021-06-18 Bob Duff <duff@adacore.com>
6467 * ada_get_targ.adb, aspects.ads, checks.adb, cstand.adb,
6468 einfo.ads, exp_attr.adb, freeze.adb, get_targ.adb,
6469 libgnat/a-textio.ads, libgnat/g-memdum.ads,
6470 libgnat/s-scaval__128.adb, libgnat/s-scaval.adb, make.adb,
6471 osint.ads, par-prag.adb, sem_ch13.adb, sem_prag.adb,
6472 sem_prag.ads, set_targ.adb, set_targ.ads, snames.ads-tmpl,
6473 targparm.ads, types.ads: Remove AAMP-specific code.
6474 * switch.ads: Minor reformatting.
6475 * gen_il-fields.ads, gen_il-gen.adb,
6476 gen_il-gen-gen_entities.adb, gen_il-types.ads, einfo-utils.adb,
6477 einfo-utils.ads: Package Types now contains "type Float_Rep_Kind
6478 is (IEEE_Binary);", which used to also have an enumeral AAMP.
6479 Gen_IL can't handle fields of this type, which would be zero
6480 sized. Therefore, we move the Float_Rep field into Einfo.Utils
6481 as a synthesized attribute. (We do not delete the field
6482 altogether, in case we want new floating-point representations
6483 in the future.)
6484 * doc/gnat_rm/implementation_defined_pragmas.rst,
6485 doc/gnat_rm/implementation_defined_aspects.rst,
6486 doc/gnat_ugn/building_executable_programs_with_gnat.rst,
6487 doc/gnat_ugn/the_gnat_compilation_model.rst: Remove
6488 AAMP-specific documentation.
6489 * gnat_rm.texi, gnat_ugn.texi: Regenerate.
6491 2021-06-18 Gary Dismukes <dismukes@adacore.com>
6493 * exp_util.adb (Expand_Sliding_Conversion): Move test of
6494 Is_Fixed_Lower_Bound_Subtype to an assertion. Exclude string
6495 literals from sliding expansion.
6497 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6499 * sem_warn.adb (Warn_On_Overlapping_Actuals): Cleanup conditions
6500 related to Ada_Version.
6502 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6504 * sem_util.adb (Address_Value): Simplify.
6506 2021-06-18 Bob Duff <duff@adacore.com>
6508 * sem_attr.adb (Check_Array_Or_Scalar_Type): Use Expr_Value
6509 instead of Intval, because the latter only exists in literals.
6510 Remove Set_Etype on E1; setting the type is done elsewhere.
6512 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6514 * sem_warn.adb (Warn_On_Overlapping_Actuals): Examine types of
6515 both formal parameters; refactor a complex detection of
6516 by-reference types.
6518 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6520 * gnatcmd.adb: Fix handling of check and test commands.
6522 2021-06-18 Gary Dismukes <dismukes@adacore.com>
6524 * doc/gnat_rm/implementation_defined_pragmas.rst: Add
6525 documentation for the array fixed-lower-bound feature.
6526 * gnat_rm.texi: Regenerate.
6528 2021-06-18 Bob Duff <duff@adacore.com>
6530 * debug.adb: Document switch.
6531 * exp_aggr.adb: If -gnatd_g was given, then do not bump the
6532 limit to 500_000.
6534 2021-06-18 Bob Duff <duff@adacore.com>
6536 * sem_util.ads, sem_util.adb (Has_Access_Values): Remove
6537 Include_Internal parameter that was added in previous change.
6538 * sem_warn.adb (Warnings_Off_E1): Back out E_Out_Parameter ==>
6539 Formal_Kind change made previously. Check Is_Private_Type to
6540 avoid warnings on private types. Misc cleanup.
6541 * sem_attr.adb (Attribute_Has_Access_Values): Remove
6542 Include_Internal parameter.
6544 2021-06-18 Piotr Trojanek <trojanek@adacore.com>
6546 * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove dead branch
6547 for overlapping actuals in prefix notation.
6549 2021-06-18 Eric Botcazou <ebotcazou@adacore.com>
6551 * sem_prag.adb (Process_Import_Or_Interface): Do not
6552 artificially record a possible modification for a constant.
6554 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6556 * exp_ch6.adb (Expand_Call_Helper): Code cleanups.
6558 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6560 * exp_aggr.adb, exp_dist.adb, exp_unst.adb, sa_messages.ads,
6561 sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_eval.adb,
6562 sem_util.adb, sem_util.ads, sinfo.ads: Update comments.
6564 2021-06-18 Ghjuvan Lacambre <lacambre@adacore.com>
6566 * back_end.adb (Scan_Back_End_Switches): Set Opt.JSON_Output to
6567 True if -fdiagnostics-format=json option is found.
6568 * back_end.ads (Scan_Compiler_Arguments): Mention
6569 Opt.JSON_Output.
6570 * errout.adb (Output_JSON_Message): New procedure.
6571 (Output_Messages): If Opt.JSON_Output is True, print messages
6572 with new Output_JSON_Message procedure.
6573 * opt.ads: Declare JSON_Output variable.
6574 * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
6575 Mention new -fdiagnostics-format option.
6576 * gnat_ugn.texi: Regenerate.
6578 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6580 * sem_ch6.adb (Null_Exclusions_Match): Relax null exclusion
6581 mismatch check when Relaxed_RM_Semantics is set.
6583 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6585 * fe.h, opt.adb, opt.ads, par-prag.adb, sem_prag.adb,
6586 switch-c.adb (Extensions_Allowed): Replace by a function.
6587 (Ada_Version_Type): Add new value Ada_With_Extensions, to
6588 replace setting of Extensions_Allowed. Update setting of
6589 Extensions_Allowed.
6591 2021-06-18 Arnaud Charlet <charlet@adacore.com>
6593 * bindgen.adb (Gen_Output_File_Ada): Generate a new constant
6594 GNAT_Version_Address.
6595 * libgnat/g-comver.adb (GNAT_Version_Address): New;
6596 (GNAT_Version): Use GNAT_Version_Address to disable LTO warning.
6598 2021-06-18 Javier Miranda <miranda@adacore.com>
6600 * einfo.ads (Is_Ada_2022_Only): Adding documentation.
6601 * gen_il-fields.ads (Is_Ada_2022_Only): New flag.
6602 * gen_il-gen-gen_entities.adb (Is_Ada_2022_Only): New flag.
6603 * itypes.adb (Create_Null_Excluding_Itype): Inherit
6604 Is_Ada_2022_Only.
6605 * sem_ch3.adb (Check_Abstract_Overriding): Skip reporting error
6606 on Ada 2022 only subprograms that require overriding if we are
6607 not in Ada 2022 mode.
6608 (Derive_Subprogram): Inherit Is_Ada_2022_Only.
6609 * sem_ch6.adb (Check_Overriding_Indicator): Inherit
6610 Is_Ada_2022_Only.
6611 (New_Overloaded_Entity): Inherit Is_Ada_2022_Only.
6612 * sem_ch7.adb (Declare_Inherited_Private_Subprograms): Inherit
6613 Is_Ada_2022_Only.
6614 (Preserve_Full_Attributes): Inherit Is_Ada_2022_Only.
6615 * sem_disp.adb (Find_Hidden_Overridden_Primitive): Inherit
6616 Is_Ada_2022_Only.
6617 (Override_Dispatching_Operation): Inherit Is_Ada_2022_Only.
6618 * sem_prag.adb (Analyze_Pragma): Allow form with argument for
6619 Ada 2022.
6620 * sem_type.adb: (Disambiguate): Deal with Is_Ada_2022_Only
6621 * lib-xref.adb (Generate_Reference): Error on static and
6622 dispatching calls to Ada 2022 subprograms that require
6623 overriding if we are not in Ada 2022 mode; warn on other
6624 references to Ada 2022 entities when not in Ada 2022 mode.
6625 * sem_ch13.adb (Inherit_Aspects_At_Freeze_Point): Inherit
6626 Ada_2020_Only.
6627 * libgnat/a-cdlili.ads (Empty): Adding pragma Ada_2022.
6628 * libgnat/a-cidlli.ads (Empty): Adding pragma Ada_2022.
6629 * libgnat/a-ciorma.ads (Empty): Adding pragma Ada_2022.
6630 * libgnat/a-cobove.ads (Empty): Adding pragma Ada_2022.
6631 * libgnat/a-coorma.ads (Empty): Adding pragma Ada_2022.
6632 (New_Vector): Adding pragma Ada_2022.
6633 (Insert_Vector): Adding pragma Ada_2022.
6634 (Prepend_Vector): Adding pragma Ada_2022.
6635 (Append_Vector): Adding pragma Ada_2022.
6637 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6639 * sem_ch3.adb (Check_Ops_From_Incomplete_Type): Protect against
6640 no Primitive_Operations.
6642 2021-06-17 Vadim Godunko <godunko@adacore.com>
6644 * libgnat/a-strunb__shared.ads (Allocate): Additional parameter
6645 to provide additional amount of space to be allocated.
6646 * libgnat/a-strunb__shared.adb (Aligned_Max_Length): Limit
6647 length to Natural'Last when requested length is larger than it.
6648 (Allocate): Merge two slightly different implementations into
6649 one.
6651 2021-06-17 Gary Dismukes <dismukes@adacore.com>
6653 * checks.adb (Discrete_Range_Cond): For an index subtype that
6654 has a fixed lower bound, require that the range's lower bound
6655 match that of the subtype.
6656 (Selected_Range_Checks): Warn about the case where a static
6657 lower bound does not equal an index subtype's fixed lower bound.
6658 * einfo.ads (Is_Fixed_Lower_Bound_Array_Subtype,
6659 Is_Fixed_Lower_Bound_Index_Subtype): Document new entity flag.
6660 * exp_ch4.adb (Expand_N_Type_Conversion): If the operand is of
6661 an unconstrained array subtype with fixed lower bound, then
6662 Expand_Sliding_Conversion is applied to the operand.
6663 * exp_ch6.adb (Expand_Simple_Function_Return): If the result
6664 subtype is an unconstrained array subtype with fixed lower
6665 bound, then Expand_Sliding_Conversion is applied to the return
6666 object.
6667 * exp_util.ads (Expand_Sliding_Conversion): New procedure for
6668 applying a sliding subtype conversion to an array object of a
6669 fixed-lower-bound subtype when needed.
6670 * exp_util.adb: Add with_clause for Freeze.
6671 (Expand_Sliding_Conversion): New procedure for applying a
6672 sliding subtype conversion to an array object of a
6673 fixed-lower-bound subtype when needed. It traverses the indexes
6674 of the unconstrained array type/subtype to create a target
6675 constrained subtype and rewrites the array object to be a
6676 conversion to that subtype, when there's at least one index
6677 whose lower bound does not statically match the fixed-lower
6678 bound of the target subtype.
6679 * gen_il-fields.ads (type Opt_Field_Enum): Add literals
6680 Is_Fixed_Lower_Bound_Array_Subtype and
6681 Is_Fixed_Lower_Bound_Index_Subtype for new flags on type
6682 entities.
6683 * gen_il-gen-gen_entities.adb: Add calls to
6684 Create_Semantic_Field for the new fixed-lower-bound flags on
6685 type entities.
6686 * par-ch3.adb (P_Array_Type_Definition): Add handling for
6687 parsing of fixed-lower-bound index ranges in unconstrained array
6688 types. Report an error if such an index is encountered and GNAT
6689 language extensions are not enabled.
6690 (P_Index_Subtype_Def_With_Fixed_Lower_Bound): Support procedure
6691 for parsing unconstrained index ranges.
6692 (P_Index_Or_Discriminant_Constraint): Add handling for parsing
6693 of index constraints that specify ranges with fixed lower
6694 bounds. Report an error if such an index is encountered and GNAT
6695 language extensions are not enabled.
6696 * sem_ch3.adb (Analyze_Object_Declaration): If the object's
6697 nominal subtype is an array subtype with fixed lower bound, then
6698 Expand_Sliding_Conversion is applied to the object.
6699 (Array_Type_Declaration): Mark the array type and the subtypes
6700 of any indexes that specify a fixed lower bound as being
6701 fixed-lower-bound subtypes, and set the High_bound of the range
6702 of such an index to the upper bound of the named subtype.
6703 (Constrain_Array): For an array subtype with one or more index
6704 ranges specifying a fixed lower bound, set Is_Constrained to
6705 False and set the array subtype's
6706 Is_Fixed_Lower_Bound_Array_Subtype flag to True.
6707 (Constrain_Index): Mark the subtypes of an index that specifies
6708 a fixed lower bound as being a fixed-lower-bound index subtype,
6709 and set the High_bound of the range of such an index to the
6710 upper bound of the base type of the array type's corresponding
6711 index.
6712 * sem_res.adb (Resolve_Actuals): If a formal is of an
6713 unconstrained array subtype with fixed lower bound, then
6714 Expand_Sliding_Conversion is applied to the actual.
6715 * sem_util.adb (Build_Actual_Subtype): If the actual subtype
6716 corresponds to an unconstrained array subtype having any indexes
6717 with fixed lower bounds, then set the lower bounds of any such
6718 indexes of the actual subtype to the appropriate fixed lower
6719 bound of the formal subtype (rather than taking it from the
6720 formal itself).
6721 * sprint.adb (Sprint_Node_Actual, case N_Range): If a range's
6722 Etype has a fixed lower bound, then print "<>" rather than the
6723 High_Bound of the range.
6725 2021-06-17 Bob Duff <duff@adacore.com>
6727 * sem_util.adb, sem_util.ads (Has_Access_Values): New formal
6728 Include_Internal to indicate whether internal types should be
6729 included.
6730 * sem_warn.adb (Check_References): Change E_Out_Parameter to
6731 Formal_Kind, to match the comment about Spec_Entity. Pass
6732 Include_Internal => False to Has_Access_Values, so that we warn
6733 on types with access values that happen to be in internal types,
6734 such as Unbounded_String.
6735 * sem_attr.adb (Attribute_Has_Access_Values): Pass
6736 Include_Internal => True to Has_Access_Values, to preserve
6737 existing behavior.
6738 * libgnat/g-rewdat.adb (Do_Output): Change B from 'in out' to
6739 'in', to avoid warning enabled by the change to sem_warn.adb.
6740 * libgnat/s-objrea.adb (Check_Read_Offset): Change S from 'in
6741 out' to 'in', to avoid warning enabled by the change to
6742 sem_warn.adb.
6744 2021-06-17 Steve Baird <baird@adacore.com>
6746 * exp_ch5.adb
6747 (Expand_N_Case_Statement.Expand_General_Case_Statement): New
6748 subprogram.
6749 (Expand_N_Case_Statement): If extensions are allowed and the
6750 case selector is not of a discrete type, then call
6751 Expand_General_Case_Statement to generate expansion instead of
6752 flagging the non-discrete selector as an error.
6753 * sem_case.ads (Is_Case_Choice_Pattern): New Boolean-valued
6754 function for testing whether a given expression occurs as part
6755 of a case choice pattern.
6756 * sem_case.adb (Composite_Case_Ops): New package providing
6757 support routines for the new form of case statements. This
6758 includes a nested package, Composite_Case_Ops.Value_Sets, which
6759 encapsulates the "representative values" implementation of
6760 composite value sets.
6761 (Check_Choices.Check_Case_Pattern_Choices): New procedure for
6762 semantic checking of non-discrete case choices. This includes
6763 the checks pertaining to coverage and overlapping.
6764 (Check_Choices.Check_Composite_Case_Selector): New procedure for
6765 semantic checking of non-discrete case selectors.
6766 (Check_Choices): If extensions are allowed then a non-discrete
6767 selector type no longer implies that an error must have been
6768 flagged earlier. Instead of simply returning, call
6769 Check_Composite_Case_Selector and Check_Case_Pattern_Choices.
6770 (Is_Case_Choice_Pattern): Body of new function declared in
6771 sem_case.ads .
6772 * sem_ch5.adb (Analyze_Case_Statement): If extensions are
6773 allowed, then we can't use RM 5.4's "The selecting_expression is
6774 expected to be of any discrete type" name resolution rule.
6775 Handle the case where the type of the selecting expression is
6776 not discrete, as well as the new ambiguous-name-resolution error
6777 cases made possible by this change.
6778 * sem_res.adb (Resolve_Entity_Name): It is ok to treat the name
6779 of a type or subtype as an expression if it is part of a case
6780 choice pattern, as in "(Field1 => Positive, Field2 => <>)".
6781 * exp_aggr.adb (Expand_Record_Aggregate): Do not expand case
6782 choice aggregates.
6783 * gen_il-fields.ads: Define two new node attributes,
6784 Binding_Chars and Multidefined_Bindings.
6785 * gen_il-gen-gen_nodes.adb: The new Multidefined_Bindings
6786 attribute is Boolean-valued and may be set on
6787 N_Case_Statement_Alternative nodes. The new Binding_Chars
6788 attribute is Name_Id-valued and may be set on
6789 N_Component_Association nodes.
6790 * par-ch4.adb (P_Record_Or_Array_Component_Association): When
6791 parsing a component association, check for both new syntax forms
6792 used to specify a bound value in a case-choice aggregate. In
6793 the case of a box value, an identifier may occur within the box,
6794 as in "Foo => <Abc>" instead of "Foo => <>". In the more general
6795 case, an expression (or a box) may be followed by "is
6796 <identifier>", as in
6797 "Foo => Bar is Abc" instead of just "Foo => Bar".
6798 * sem_aggr.adb (Resolve_Record_Aggregate): Do not transform box
6799 component values in a case-choice aggregate.
6800 * sinfo.ads: Provide comments for the new attributes added in
6801 gen_il-fields.ads.
6802 * doc/gnat_rm/implementation_defined_pragmas.rst: Describe this
6803 new feature in documentation for pragma Extensions_Allowed.
6804 * gnat_rm.texi: Regenerate.
6806 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6808 * exp_ch4.adb (Expand_N_Expression_With_Actions.Process_Action):
6809 Do not abandon processing on a nested N_Expression_With_Actions
6810 or N_Loop_Statement, otherwise we may miss some transient
6811 declarations.
6813 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6815 * exp_util.adb (Find_Hook_Context): Do not stop on an aggregate
6816 node.
6818 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6820 * sem_util.adb (Is_Valid_Renaming): Check not only indexed
6821 components, but slices too.
6823 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6825 * sem_ch3.adb (Analyze_Private_Extension_Declaration): Check
6826 No_Wide_Characters restriction after rejecting illegal parent
6827 types.
6828 (Derived_Type_Declaration): Likewise.
6829 (Find_Type_Of_Subtype_Indic): Remove check for
6830 No_Wide_Characters restriction, which was done too early.
6832 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6834 * sem_util.adb (Is_Valid_Renaming): Body moved from its nested
6835 routine.
6837 2021-06-17 Gary Dismukes <dismukes@adacore.com>
6839 * sem_ch12.adb (Instantiate_Type): If the actual type for an
6840 incomplete formal type is also incomplete, but has a Full_View,
6841 use the Full_View of the actual type rather than the incomplete
6842 view.
6844 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6846 * doc/gnat_ugn/building_executable_programs_with_gnat.rst
6847 (-gnatw.I): Remove double period at the end of sentence.
6848 * gnat_ugn.texi: Regenerate.
6850 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6852 * sem_util.adb (Denotes_Same_Object): Call Get_Index_Bounds with
6853 the range of a slice object, not its type.
6855 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6857 * sem_warn.adb (Warn_On_Overlapping_Actuals): Fix style;
6858 refactor repeated calls to Nkind; remove early RETURN.
6860 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6862 * sem_warn.adb (Warn_On_Overlapping_Actuals): Ignore formal of
6863 generic types, but keep examining other parameters.
6865 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6867 * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove dead code.
6869 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6871 * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove repeated
6872 code.
6874 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6876 * checks.adb (Overlap_Check): Replace Set_Casing with
6877 Adjust_Name_Case and adapt surrounding code as needed.
6879 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6881 * libgnat/s-putaim.ads, libgnat/s-putaim.adb: Move...
6882 * libgnarl/s-putaim.ads, libgnarl/s-putaim.adb: ... here.
6884 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6886 * uintp.ads, uintp.adb (UI_To_Unsigned_64): New.
6888 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6890 * sem_prag.adb (Get_Overflow_Mode): Reword error message.
6891 * switch-c.adb (Get_Overflow_Mode): Likewise.
6893 2021-06-17 Richard Kenner <kenner@adacore.com>
6895 * exp_util.adb (Expand_Static_Predicates_In_Choices): Handle
6896 Others_Discrete_Choices in N_Others_Choice.
6898 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6900 * atree.adb: Remove redundant comment with spec.
6901 * sem_warn.adb: Fix typo in comment.
6903 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6905 * atree.adb: Do not suppress checks.
6907 2021-06-17 Justin Squirek <squirek@adacore.com>
6909 * exp_ch3.adb (Check_Missing_Others): Add comment.
6910 (Build_Initialization_Call): Remove inaccurate accessibility
6911 comment.
6912 * sem_ch12.adb (Analyze_Generic_Subprogram_Declaration): Remove
6913 test for Ada2012.
6914 (Analyze_Package_Instantiation): Remove speculative comment.
6915 (Inline_Instance_Body): Add comments for loops.
6916 (Build_Subprogram_Renaming): Remove comment about fix being
6917 partial and "ugly."
6918 (Instantiate_Subprogram_Body): Remove comment referencing DEC
6919 related internal issue.
6920 (Subtypes_Match): Add comment and simplify anonymous access
6921 test.
6922 (Is_Global): Add test for when E is an expanded name, and
6923 calculate the scope accordingly.
6924 * sem_ch6.adb (Analyze_Function_Return): Update comment
6925 regarding accessibility, and add check for
6926 Warn_On_Ada_2012_Compatibility.
6927 (Mask_Type_Refs): Add comments.
6928 (Analyze_Subprogram_Declaration): Remove mysterious suppression
6929 of elaboration checks.
6930 * sem_ch7.adb (Preserve_Full_Attributes): Preserve Is_Atomic
6931 value.
6932 * sem_ch8.adb (Most_Descendant_Use_Clause): Remove comment.
6933 (Note_Redundant_Use): Fix calls to Find_First_Use to be
6934 Find_Most_Prev.
6935 (Get_Object_Name): Modify error message to be more descriptive.
6936 (Known_But_Visible): Remove mysterious special case for
6937 GNAT_Mode.
6938 (Find_First_Use): Removed.
6939 (Find_Most_Prev): Renamed from Find_First_Use.
6940 * sem_prag.adb (Check_Static_Constraint): Add comments to
6941 routine.
6943 2021-06-17 Bob Duff <duff@adacore.com>
6945 * treepr.adb (Print_Node): Display the Entity or Associated_Node
6946 fields if appropriate.
6947 * sinfo-utils.ads (F_Associated_Node, F_Entity): Remove. These
6948 are no longer needed.
6950 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6952 * checks.adb (Apply_Parameter_Aliasing_Checks): Replace calls to
6953 Is_Object_Reference with calls to Is_Name_Reference; remove
6954 asymmetric condition that only detected an aggregate as the
6955 first actual (aggregate objects were just a special case of an
6956 object reference that was not a name).
6958 2021-06-17 Bob Duff <duff@adacore.com>
6960 * gen_il-gen.adb, gen_il-internals.ads: Generate field
6961 enumeration literals with "F_" prefix. Update all generated
6962 references accordingly.
6963 * atree.adb, einfo-utils.adb, sem_ch3.adb, sem_ch5.adb,
6964 sem_ch6.adb, sem_ch8.adb, sinfo-cn.adb, sinfo-utils.adb,
6965 sinfo-utils.ads, treepr.adb: Add "F_" prefix to all uses of the
6966 field enumeration literals.
6968 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6970 * libgnat/i-c.ads, libgnat/i-cexten.ads,
6971 libgnat/i-cexten__128.ads: bool renamed C_bool.
6973 2021-06-17 Piotr Trojanek <trojanek@adacore.com>
6975 * sem_ch4.adb (Analyze_Allocator): Reject allocators in
6976 restricted contexts.
6978 2021-06-17 Arnaud Charlet <charlet@adacore.com>
6980 * gcc-interface/Make-lang.in: Use libgnat.so if libgnat.a cannot
6981 be found.
6983 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
6985 * sem_util.adb (Is_Volatile_Function): Follow the exact wording
6986 of SPARK (regarding volatile functions) and Ada (regarding
6987 protected functions).
6989 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
6991 * sem_util.adb (Is_OK_Volatile_Context): All references to
6992 volatile objects are legal in preanalysis.
6993 (Within_Volatile_Function): Previously it was wrongly called on
6994 Empty entities; now it is only called on E_Return_Statement,
6995 which allow the body to be greatly simplified.
6997 2021-06-16 Yannick Moy <moy@adacore.com>
6999 * sem_res.adb (Set_Slice_Subtype): Revert special-case
7000 introduced previously, which is not needed as Itypes created for
7001 slices are precisely always used.
7003 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7005 * urealp.adb (Scale): Change first paramter to Uint and adjust.
7006 (Equivalent_Decimal_Exponent): Pass U.Den directly to Scale.
7007 * libgnat/s-exponr.adb (Negative): Rename to...
7008 (Safe_Negative): ...this and change its lower bound.
7009 (Exponr): Adjust to above renaming and deal with Integer'First.
7011 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7013 * sem_res.adb (Flag_Effectively_Volatile_Objects): Detect also
7014 allocators within restricted contexts and not just entity names.
7015 (Resolve_Actuals): Remove duplicated code for detecting
7016 restricted contexts; it is now exclusively done in
7017 Is_OK_Volatile_Context.
7018 (Resolve_Entity_Name): Adapt to new parameter of
7019 Is_OK_Volatile_Context.
7020 * sem_util.ads, sem_util.adb (Is_OK_Volatile_Context): Adapt to
7021 handle contexts both inside and outside of subprogram call
7022 actual parameters.
7023 (Within_Subprogram_Call): Remove; now handled by
7024 Is_OK_Volatile_Context itself and its parameter.
7026 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7028 * sinput.adb (Sloc_Range): Refactor several repeated calls to
7029 Sloc and two comparisons with No_Location.
7031 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7033 * checks.adb (Apply_Scalar_Range_Check): Fix handling of check depending
7034 on the parameter passing mechanism. Grammar adjustment ("has"
7035 => "have").
7036 (Parameter_Passing_Mechanism_Specified): Add a hyphen in a comment.
7038 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7040 * exp_ch3.adb (Build_Slice_Assignment): Remove unused
7041 initialization.
7043 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7045 * restrict.adb, sem_attr.adb, types.ads: Fix typos in
7046 "occuring"; refill comment as necessary.
7048 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7050 * sem_util.ads (Is_Actual_Parameter): Update comment.
7051 * sem_util.adb (Is_Actual_Parameter): Also detect entry parameters.
7053 2021-06-16 Arnaud Charlet <charlet@adacore.com>
7055 * rtsfind.ads, libgnarl/s-taskin.ads, exp_ch3.adb, exp_ch4.adb,
7056 exp_ch6.adb, exp_ch9.adb, sem_ch6.adb: Move master related
7057 entities to the expander directly.
7059 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7061 * sem_res.adb (Is_Assignment_Or_Object_Expression): Whitespace
7062 cleanup.
7063 (Is_Attribute_Expression): Prevent AST climbing from going to
7064 the root of the compilation unit.
7066 2021-06-16 Steve Baird <baird@adacore.com>
7068 * doc/gnat_rm/implementation_advice.rst: Add a section for RM
7069 A.18 .
7070 * gnat_rm.texi: Regenerate.
7072 2021-06-16 Justin Squirek <squirek@adacore.com>
7074 * sem_ch13.adb (Analyze_Enumeration_Representation_Clause): Add
7075 check for the mixing of entries.
7077 2021-06-16 Justin Squirek <squirek@adacore.com>
7079 * sem_ch13.adb (Make_Aitem_Pragma): Check for static expressions
7080 in Priority aspect arguments for restriction Static_Priorities.
7082 2021-06-16 Justin Squirek <squirek@adacore.com>
7084 * sem_util.adb (Accessibility_Level): Take into account
7085 renamings of loop parameters.
7087 2021-06-16 Matthieu Eyraud <eyraud@adacore.com>
7089 * par_sco.adb (Set_Statement_Entry): Change sloc for dominance
7090 marker.
7091 (Traverse_One): Fix typo.
7092 (Output_Header): Fix comment.
7094 2021-06-16 Richard Kenner <kenner@adacore.com>
7096 * exp_unst.adb (Register_Subprogram): Don't look for aliases for
7097 subprograms that are generic. Reorder tests for efficiency.
7099 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7101 * sem_util.adb (Incomplete_Or_Partial_View): Retrieve the scope of
7102 the parameter and use it to find its incomplete view, if any.
7104 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7106 * freeze.adb (Check_No_Parts_Violations): Return earlier if the
7107 type is elementary or does not come from source.
7109 2021-06-16 Bob Duff <duff@adacore.com>
7111 * ghost.adb: Add another special case where full analysis is
7112 needed. This bug is due to quirks in the way
7113 Mark_And_Set_Ghost_Assignment works (it happens very early,
7114 before name resolution is done).
7116 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7118 * sem_util.adb (Current_Entity_In_Scope): Reimplement.
7120 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7122 * sem_ch8.adb (End_Scope): Remove extra parens.
7124 2021-06-16 Javier Miranda <miranda@adacore.com>
7126 * exp_disp.adb (Build_Class_Wide_Check): Ensure that evaluation
7127 of actuals is side effects free (since the check duplicates
7128 actuals).
7130 2021-06-16 Ed Schonberg <schonberg@adacore.com>
7132 * sem_res.adb (Resolve_Raise_Expression): Apply Ada_2020 rules
7133 concerning the need for parentheses around Raise_Expressions in
7134 various contexts.
7136 2021-06-16 Piotr Trojanek <trojanek@adacore.com>
7138 * sem_ch13.adb (Validate_Unchecked_Conversion): Move detection
7139 of generic types before switching to their private views; fix
7140 style in using AND THEN.
7142 2021-06-16 Arnaud Charlet <charlet@adacore.com>
7144 * sem_ch3.adb (Analyze_Component_Declaration): Do not special
7145 case raise expressions.
7147 2021-06-16 Sergey Rybin <rybin@adacore.com>
7149 * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
7150 Instead of referring to the formatting of the Ada examples in
7151 Ada RM add use the list of checks that are actually performed.
7152 * gnat_ugn.texi: Regenerate.
7154 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7156 * initialize.c: Do not include vxWorks.h and fcntl.h from here.
7157 (__gnat_initialize) [__MINGW32__]: Remove #ifdef and attribute
7158 (__gnat_initialize) [init_float]: Delete.
7159 (__gnat_initialize) [VxWorks]: Likewise.
7160 (__gnat_initialize) [PA-RISC HP-UX 10]: Likewise.
7161 * runtime.h: Add comment about vxWorks.h include.
7163 2021-06-16 Eric Botcazou <ebotcazou@adacore.com>
7165 * libgnat/s-except.ads (ZCX_By_Default): Delete.
7166 (Require_Body): Likewise.
7167 * libgnat/s-except.adb: Replace body with pragma No_Body.
7169 2021-06-15 Steve Baird <baird@adacore.com>
7171 * exp_util.adb (Kill_Dead_Code): Generalize the existing
7172 handling of if statements to handle case statements similarly.
7174 2021-06-15 Eric Botcazou <ebotcazou@adacore.com>
7176 * raise.h (_gnat_builtin_longjmp): Delete.
7177 (set_gnat_exit_status): Likewise.
7179 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7181 * exp_util.adb (Possible_Side_Effect_In_SPARK): Handle component
7182 declaration just like full type and subtype declarations.
7184 2021-06-15 Yannick Moy <moy@adacore.com>
7186 * errout.adb (First_And_Last_Node): Also apply to arbitrary late
7187 declarations, not only subprogram specs.
7189 2021-06-15 Bob Duff <duff@adacore.com>
7191 * sem_ch3.adb (Make_Class_Wide_Type): Make sure all the calls to
7192 Reinit_Field_To_Zero are for the correct Ekinds.
7194 2021-06-15 Bob Duff <duff@adacore.com>
7196 * aspects.ads (No_Task_Parts): New aspect.
7197 * snames.ads-tmpl: Add the aspect name.
7198 * exp_ch6.adb (Might_Have_Tasks): Return False if this is a
7199 class-wide type whose specific type has No_Task_Parts.
7200 * freeze.adb (Check_No_Parts_Violations): This is an adaptation
7201 of the procedure formerly known as
7202 Check_No_Controlled_Parts_Violations, which now supports both
7203 No_Controlled_Parts and No_Task_Parts. It takes a parameter
7204 indicating which aspect is being checked.
7205 (Freeze_Entity): Call Check_No_Parts_Violations for both
7206 aspects.
7207 * sem_ch13.adb (Analyze_Aspect_Specifications): The code for
7208 Aspect_No_Controlled_Parts already works as is with
7209 Aspect_No_Task_Parts.
7210 * libgnat/a-iteint.ads: Add No_Task_Parts aspect to the two
7211 iterator iterfaces.
7212 * doc/gnat_rm/implementation_defined_aspects.rst: Add
7213 documentation for the No_Task_Parts aspect.
7214 * gnat_rm.texi: Regenerate.
7216 2021-06-15 Arnaud Charlet <charlet@adacore.com>
7218 * exp_unst.adb (Unnest_Subprogram.Build_Table.Visit_Node): Fix
7219 handling of scopes for subprogram calls.
7221 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7223 * sem_prag.adb: Fix typos in comments related to access types.
7224 * sem_util.adb (Is_Access_Variable): Stronger condition.
7226 2021-06-15 Arnaud Charlet <charlet@adacore.com>
7228 * Make-generated.in: Add rule to copy runtime files needed
7229 during stage1.
7230 * raise.c: Remove obsolete symbols used during bootstrap.
7231 * gcc-interface/Make-lang.in: Do not use libgnat sources during
7232 stage1.
7233 (GNAT_ADA_OBJS, GNATBIND_OBJS): Split in two parts, the common
7234 part and the part only used outside of stage1.
7235 (ADA_GENERATED_FILES): Add runtime files needed during bootstrap
7236 when recent APIs are needed.
7237 (ada/b_gnatb.adb): Remove prerequisite.
7238 * gcc-interface/system.ads: Remove obsolete entries.
7240 2021-06-15 Eric Botcazou <ebotcazou@adacore.com>
7242 * raise-gcc.c (__gnat_personality_seh0): Use PERSONALITY_FUNCTION.
7244 2021-06-15 Ed Schonberg <schonberg@adacore.com>
7246 * sem_util.adb (Is_Confirming): Separate the handling of
7247 Implicit_Dereference, for which no pragma is generated but which
7248 is already checked for legality in Sem_Ch13, including renamed
7249 discriminants in a derived type.
7250 (Is_Confirming, Same_Name): For expanded names, only check
7251 matching of selector, because prefix may correspond to original
7252 and derived types with different names and/or scopes. Semantic
7253 checks on aspect expression have already verified its legality.
7254 Add comments regarding possible gaps in RM description of the
7255 feature.
7257 2021-06-15 Gary Dismukes <dismukes@adacore.com>
7259 * freeze.adb (Freeze_Subprogram): Don't propagate conventions
7260 Intrinsic or Entry to anonymous access-to-subprogram types
7261 associated with subprograms having those conventions. Update
7262 related comment.
7263 * sem_attr.adb (Resolve_Attribute, Attribute_*Access): Remove
7264 special-case warning code for cases where a called subprogram
7265 has convention Intrinsic as well as its formal's type (the
7266 expected type for the Access attribute), since this case can no
7267 longer occur.
7269 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7271 * exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Fix
7272 typos.
7274 2021-06-15 Bob Duff <duff@adacore.com>
7276 * einfo-utils.adb (Known_Component_Size,
7277 Known_Static_Component_Size, Unknown_Component_Size): Use
7278 Implementation_Base_Type instead of Base_Type.
7280 2021-06-15 Bob Duff <duff@adacore.com>
7282 * gen_il-gen-gen_entities.adb (E_Loop_Parameter): Add
7283 Interface_Name field.
7285 2021-06-15 Bob Duff <duff@adacore.com>
7287 * sem_cat.adb (Check_Non_Static_Default_Expr): Allow nonstatic
7288 expression in predefined unit with pragma Preelaborate.
7290 2021-06-15 Yannick Moy <moy@adacore.com>
7292 * doc/gnat_rm/intrinsic_subprograms.rst: More details on shift
7293 operations for signed types. Also add the missing Import and
7294 Convention on the example.
7295 * gnat_rm.texi: Regenerate.
7297 2021-06-15 Eric Botcazou <ebotcazou@adacore.com>
7299 * raise-gcc.c: Include <cstdarg> instead of <stdarg.h> in C++.
7300 Include <stdbool.h> and unconditionally <stdlib.h> in C.
7302 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7304 * sem_util.ads (Find_Overlaid_Entity): Simplify comment for
7305 spec.
7306 * sem_util.adb (Find_Overlaid_Entity): Remove defensive code
7307 from body.
7309 2021-06-15 Eric Botcazou <ebotcazou@adacore.com>
7311 * argv.c: Add include of <stdlib.h> for the runtime.
7312 (gnat_argv): Change type to char ** and initialize to NULL.
7313 (gnat_envp): Likewise.
7314 * argv-lynxos178-raven-cert.c: Add include of <stdlib.h>.
7315 (gnat_argv): Change type to char ** and initialize to NULL.
7316 (gnat_envp): Likewise.
7318 2021-06-15 Bob Duff <duff@adacore.com>
7320 * gen_il-gen.adb (Setter_Needs_Parent): Add missing
7321 Then_Actions. Fix self-contradictory comment.
7322 * exp_util.adb (Insert_Actions): Minor comment improvments.
7324 2021-06-15 Arnaud Charlet <charlet@adacore.com>
7326 * sem_eval.adb (Eval_Logical_Op, Test_Expression_Is_Foldable):
7327 Add support for folding more "and"/"or" expressions.
7328 * exp_util.adb (Side_Effect_Free): Fix handling of membership
7329 tests.
7331 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7333 * sem_res.adb (Resolve_Actual): Replace repeated calls to
7334 "Etype (F)" with references to "F_Typ", which keeps the results
7335 of exactly that call.
7337 2021-06-15 Bob Duff <duff@adacore.com>
7339 * gen_il-gen.adb (To_Bit_Offset): Use 'Base to avoid overflow in
7340 computations in Last_Bit when Offset = 'Last.
7341 (Choose_Offset): Give a better error message when we run out of
7342 fields. In particular, point out that
7343 Gen_IL.Internals.Bit_Offset'Last needs to be increased.
7345 2021-06-15 Bob Duff <duff@adacore.com>
7347 * atree.ads, einfo-utils.ads, einfo-utils.adb, fe.h, gen_il.adb,
7348 gen_il.ads, gen_il-gen-gen_entities.adb,
7349 gen_il-gen-gen_nodes.adb, sem_ch12.adb, sem_ch3.adb,
7350 sem_util.adb, sinfo-utils.ads, treepr.adb, types.ads: Clean up
7351 ??? comments and other comments.
7352 * atree.adb: Clean up ??? comments and other comments.
7353 (Validate_Node): Fix bug: "Off_0 (N) < Off_L (N)"
7354 should be "Off_0 (N) <= Off_L (N)".
7355 * gen_il-gen.adb, gen_il-gen.ads: Clean up ???
7356 comments and other comments. Add support for getter-specific
7357 and setter-specific preconditions. Detect the error of putting
7358 a field in the wrong subrange. Misc cleanup.
7359 (Node_Field vs. Entity_Field): Clean up Nmake. Improve
7360 comments.
7361 * gen_il-utils.ads: Misc cleanup. Move...
7362 * gen_il-internals.ads: ... here.
7363 * gen_il-utils.adb: Misc cleanup. Move...
7364 * gen_il-internals.adb: ... here.
7365 * gen_il-fields.ads: Move Was_Default_Init_Box_Association,
7366 which was in the wrong subrange. Add comments. Misc cleanup.
7367 * gen_il-types.ads: Add Named_Access_Kind.
7368 * sinfo-cn.adb: Clean up ??? comments and other comments.
7369 Remove redundant assertions.
7370 * einfo.ads, sinfo.ads: Clean up ??? comments and other
7371 comments. Remove all the comments indicating field offsets.
7372 These are obsolete now that Gen_IL computes the offsets
7373 automatically.
7375 2021-06-15 Arnaud Charlet <charlet@adacore.com>
7377 * einfo.ads, errout.adb, errout.ads, exp_aggr.adb, exp_ch5.adb,
7378 exp_ch6.adb, exp_ch8.adb, exp_ch9.adb, exp_imgv.adb,
7379 exp_put_image.adb, fe.h, impunit.adb, impunit.ads,
7380 libgnat/a-cobove.ads, libgnat/a-convec.ads, opt.ads,
7381 par-ch12.adb, par-ch3.adb, par-ch4.adb, par-ch5.adb,
7382 par-ch6.adb, par-prag.adb, par-util.adb, scans.ads, scng.adb,
7383 sem_aggr.adb, sem_attr.adb, sem_ch10.adb, sem_ch12.adb,
7384 sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_ch6.adb,
7385 sem_ch8.adb, sem_elab.adb, sem_eval.adb, sem_prag.adb,
7386 sem_res.adb, sem_type.adb, sem_util.adb, sem_util.ads,
7387 sinfo.ads, snames.ads-tmpl, sprint.adb, switch-c.adb, usage.adb,
7388 doc/gnat_ugn/building_executable_programs_with_gnat.rst,
7389 doc/gnat_rm/implementation_defined_aspects.rst,
7390 gcc-interface/trans.c: Update all references to Ada 2020 to Ada
7391 2022. Rename pragma Ada_2020 to Ada_2022. Update documentation
7392 accordingly.
7393 * gnat_ugn.texi, gnat_rm.texi: Regenerate.
7395 2021-06-15 Steve Baird <baird@adacore.com>
7397 * sem_util.adb (Gather_Components): Factor the test that was
7398 already being used to govern emitting a pre-Ada_2020 error
7399 message into an expression function,
7400 OK_Scope_For_Discrim_Value_Error_Messages. Call that new
7401 function in two places: the point where the same test was being
7402 performed previously, and in governing emission of a newer
7403 Ada_2020 error message. In both cases, the out-mode parameter
7404 Gather_Components.Report_Errors is set to True even if no error
7405 messages are generated within Gather_Components.
7406 * sem_util.ads: Correct a comment.
7408 2021-06-15 Richard Kenner <kenner@adacore.com>
7410 * sem_ch3.adb (Array_Type_Declaration, Build_Derived_Type):
7411 Reinitialize Stored_Constraint when needed.
7412 (Set_Modular_Size): Likewise.
7413 * atree.adb: (Check_Vanishing_Fields): Add node id to debugging
7414 information.
7416 2021-06-15 Bob Duff <duff@adacore.com>
7418 * sem_util.adb (Propagate_Invariant_Attributes): Call
7419 Set_Has_Own_Invariants on the base type, because these are
7420 Base_Type_Only. The problem is that the base type of a type is
7421 indeed a base type when Set_Base_Type is called, but then the
7422 type is mutated into a subtype in rare cases.
7423 * atree.ads, atree.adb (Is_Entity): Export. Correct subtype of
7424 parameter in body.
7425 * gen_il-gen.adb: Improve getters so that "Pre => ..." can refer
7426 to the value of the field. Put Warnings (Off) on some with
7427 clauses that are not currently used, but might be used by such
7428 Pre's.
7430 2021-06-15 Piotr Trojanek <trojanek@adacore.com>
7432 * sem_ch3.adb (Access_Type_Declaration): Add comments to explain
7433 the ordering of Mutate_Kind and Set_Directly_Designated_Type;
7434 remove temporary setting of Ekind to E_Access_Type for building
7435 _master objects, since now the Ekind is already set to its final
7436 value. Move repeated code into Setup_Access_Type routine and use
7437 it so that Process_Subtype is executed before mutating the kind
7438 of the type entity.
7439 * gen_il-gen-gen_entities.adb (Gen_Entities): Remove
7440 Directly_Designated_Type from E_Void, E_Private_Record,
7441 E_Limited_Private_Type and Incomplete_Kind; now it only belongs
7442 to Access_Kind entities.
7443 * sem_util.adb: Minor reformatting.
7445 2021-06-03 Eric Botcazou <ebotcazou@adacore.com>
7447 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Add PAT
7448 local constant and use it throughout. If it is set, use a ref-all
7449 pointer type for the pointer-to-array field of the fat pointer type.
7450 <E_Array_Subtype>: Add PAT local constant and use it throughout.
7452 2021-05-26 Jakub Jelinek <jakub@redhat.com>
7454 * init.c (__gnat_error_handler): Remove register keyword.
7456 2021-05-25 Martin Liska <mliska@suse.cz>
7458 * doc/share/conf.py: Fix Sphinx 4.0.x error.
7460 2021-05-21 Piotr Trojanek <trojanek@adacore.com>
7462 * gcc-interface/trans.c (Raise_Error_to_gnu): Add an assertion.
7464 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7466 * gcc-interface/utils.c (gnat_pushdecl): Fix typo in comment.
7467 * gcc-interface/utils2.c (build_simple_component_ref): Build NULL_EXPR
7468 if the offset of the field has overflowed.
7469 (build_component_ref): Add gigi checking assertion that the reference
7470 has been built and replace the discriminant check by a Program_Error.
7472 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7474 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Named_Integer>: Do
7475 not pass default value in call to create_var_decl.
7476 <E_Variable>: Likewise.
7477 <E_Record_Subtype>: Both pass true for const_flag and false for
7478 const_decl_allowed_p in call to create_var_decl.
7479 Small tweaks in the generic record type case.
7480 (elaborate_expression): Rename need_debug into need_for_debug and
7481 adjust throughout.
7482 (elaborate_expression_1): Likewise. Pass Needs_Debug_Info instead
7483 of need_for_debug in call to create_var_decl.
7484 (elaborate_expression_2): Likewise.
7485 * gcc-interface/utils.c (maybe_pad_type): Pass false for
7486 const_decl_allowed_p in call to create_var_decl.
7488 2021-05-21 Ghjuvan Lacambre <lacambre@adacore.com>
7490 * gcc-interface/decl.c (gnat_to_gnu_entity): Replace ? with ??.
7491 (gnat_to_gnu_param): Likewise.
7492 (gnat_to_gnu_subprog_type): Likewise.
7493 (warn_on_field_placement): Likewise.
7494 (intrin_arglists_compatible_p): Likewise.
7495 * gcc-interface/trans.c (Pragma_to_gnu): Likewise.
7496 (gnat_to_gnu): Likewise.
7497 (validate_unchecked_conversion): Likewise.
7498 * gcc-interface/utils.c (maybe_pad_type): Likewise.
7500 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7502 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Process
7503 the implementation type of a packed type implemented specially.
7505 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7507 * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Always translate
7508 the Is_Pure flag into the "pure" attribute of GNU C.
7510 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7512 * gcc-interface/trans.c (Call_to_gnu): Restrict previous change
7513 to bitfields whose size is not equal to the type size.
7514 (gnat_to_gnu): Likewise.
7516 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7518 * gcc-interface/trans.c (Call_to_gnu): Minor tweaks.
7519 (gnat_to_gnu_external): Likewise.
7520 (Raise_Error_to_gnu): Return an empty statement list if there is a
7521 condition and it is always false.
7522 (gnat_to_gnu): Do not check for elaboration code a priori during the
7523 translation but a posteriori instead.
7525 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7527 * gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>:
7528 Put a SLOC on the assignment from the return value to the return
7529 object in the copy-in/copy-out case.
7531 2021-05-21 Eric Botcazou <ebotcazou@adacore.com>
7533 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Replace
7534 CEIL_DIV_EXPR with EXACT_DIV_EXPR.
7535 * gcc-interface/misc.c (gnat_type_max_size): Likewise.
7536 * gcc-interface/utils.c (maybe_pad_type): Likewise.
7537 (finish_record_type): Likewise. And always compute the unit size.
7539 2021-05-14 Martin Liska <mliska@suse.cz>
7541 * doc/Makefile: Add gnat-style target.
7542 * doc/share/conf.py: Likewise.
7543 * doc/gnat-style.rst: New file.
7545 2021-05-12 Bob Duff <duff@adacore.com>
7547 PR ada/100564
7548 * atree.adb (Change_Node): Do not call Zero_Slots on a Node_Id
7549 when the Nkind has not yet been set; call the other Zero_Slots
7550 that takes a range of slot offsets. Call the new Mutate_Kind
7551 that takes an Old_Size, for the same reason -- the size cannot
7552 be computed without the Nkind.
7553 (Mutate_Nkind): New function that allows specifying the Old_Size.
7554 (Size_In_Slots): Assert that the Nkind has proper (nonzero) value.
7555 * atree.ads: Minor reformatting.
7557 2021-05-12 Martin Liska <mliska@suse.cz>
7559 * doc/share/conf.py: Do not use binary mode.
7560 Do not use u' literals as Python3 uses unicode by default.
7562 2021-05-11 Martin Liska <mliska@suse.cz>
7564 * gcc-interface/ada-tree.h (BUILT_IN_LIKELY): Use builtins
7565 from COROUTINES.
7566 (BUILT_IN_UNLIKELY): Likewise.
7568 2021-05-11 Eric Botcazou <ebotcazou@adacore.com>
7570 * gnatvsn.adb (Version_String): Rename to...
7571 (C_Version_String): ...this.
7572 (Gnat_Version_String): Adjust to above renaming.
7573 * version.c : Fix formatting glitches.
7575 2021-05-10 Martin Liska <mliska@suse.cz>
7577 PR bootstrap/100506
7578 * Make-generated.in: Replace version.c with ada/version.c.
7579 * gcc-interface/Make-lang.in: Add version.o to GNAT1_C_OBJS and
7580 GNATBIND_OBJS.
7581 * gcc-interface/Makefile.in: Replace version.c with ada/version.c.
7582 Add version.o to TOOLS_LIBS.
7583 * gnatvsn.adb: Replace version_string with gnat_version_string.
7584 * version.c: New file.
7586 2021-05-10 Eric Botcazou <ebotcazou@adacore.com>
7588 * einfo-utils.ads (Classification Attributes): Add pragma Inline.
7589 (Synthesized Attribute Functions): Move pragma Inline around.
7590 (Type Representation Attribute Predicates): Likewise.
7591 (Field Initialization Routines): Likewise.
7592 (Miscellaneous Subprogram): Likewise.
7594 2021-05-10 Eric Botcazou <ebotcazou@adacore.com>
7596 * atree.ads (Slot): Remove pragma Provide_Shift_Operators.
7597 (Shift_Left): New intrinsic function.
7598 (Shift_Right): Likewise.
7599 * atree.adb (Get_1_Bit_Val): Use Natural instead of Integer.
7600 (Get_2_Bit_Val): Likewise.
7601 (Get_4_Bit_Val): Likewise.
7602 (Get_8_Bit_Val): Likewise.
7603 (Set_1_Bit_Val): Likewise.
7604 (Set_2_Bit_Val): Likewise.
7605 (Set_4_Bit_Val): Likewise.
7606 (Set_8_Bit_Val): Likewise.
7608 2021-05-10 Eric Botcazou <ebotcazou@adacore.com>
7610 * atree.adb (Zero_Slots): Remove obsolete comment and add header.
7612 2021-05-10 Eric Botcazou <ebotcazou@adacore.com>
7614 * atree.h (Get_32_Bit_Field): Tidy up.
7615 (Get_32_Bit_Field_With_Default): Likewise.
7617 2021-05-10 Eric Botcazou <ebotcazou@adacore.com>
7619 * Make-generated.in (do_gen_il): Replace with...
7620 (ada/stamp-gen_il): ...this. Do not copy files into generated/.
7622 2021-05-10 Martin Liska <mliska@suse.cz>
7624 * gcc-interface/utils.c (def_builtin_1): Use startswith
7625 function instead of strncmp.
7627 2021-05-07 Piotr Trojanek <trojanek@adacore.com>
7629 * einfo-utils.adb (Is_Access_Object_Type): Use
7630 Directly_Designated_Type.
7631 (Is_Access_Subprogram_Type): Use Directly_Designated_Type.
7632 (Set_Convention): Use plain Ekind.
7633 * gen_il-gen-gen_entities.adb (Type_Kind): Use plain Ekind.
7634 * sem_ch3.adb (Access_Type_Declaration): When seeing an illegal
7635 completion with an access type don't attempt to decorate the
7636 completion entity; previously the entity had its Ekind set to
7637 E_General_Access_Type or E_Access_Type, but its Designated_Type
7638 was empty, which caused a crash in freezing. (Actually, the
7639 error recovery in the surrounding context is still incomplete,
7640 e.g. we will crash when the illegal completion is an access to
7641 an unknown identifier).
7643 2021-05-07 Bob Duff <duff@adacore.com>
7645 * par_sco.adb: Align with/use clauses.
7646 (Traverse_Declarations_Or_Statements): Minor comment fix.
7647 * aspects.adb, atree.adb, atree.ads, checks.adb, comperr.adb,
7648 contracts.adb, cstand.adb, debug_a.adb, einfo-utils.adb,
7649 errout.adb, eval_fat.adb, exp_aggr.adb, expander.adb,
7650 exp_atag.adb, exp_attr.adb, exp_cg.adb, exp_ch11.adb,
7651 exp_ch12.adb, exp_ch13.adb, exp_ch2.adb, exp_ch3.adb,
7652 exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, exp_ch8.adb,
7653 exp_ch9.adb, exp_code.adb, exp_dbug.adb, exp_disp.adb,
7654 exp_dist.adb, exp_fixd.adb, exp_imgv.adb, exp_intr.adb,
7655 exp_pakd.adb, exp_prag.adb, exp_put_image.adb, exp_sel.adb,
7656 exp_smem.adb, exp_spark.adb, exp_strm.adb, exp_tss.adb,
7657 exp_unst.adb, exp_util.adb, exp_util.ads, freeze.adb,
7658 frontend.adb, ghost.adb, gnat1drv.adb, gnat_cuda.adb,
7659 impunit.adb, inline.adb, itypes.adb, itypes.ads, layout.adb,
7660 lib.adb, lib-load.adb, lib-writ.adb, lib-xref.adb,
7661 lib-xref-spark_specific.adb, live.adb, nlists.adb, par.adb,
7662 par-ch11.adb, par-ch3.adb, par-ch5.adb, par-ch6.adb, pprint.adb,
7663 repinfo.adb, restrict.adb, rtsfind.adb, scil_ll.adb, scn.adb,
7664 sem.adb, sem_aggr.adb, sem_attr.adb, sem_aux.adb, sem_case.adb,
7665 sem_cat.adb, sem_ch10.adb, sem_ch11.adb, sem_ch12.adb,
7666 sem_ch13.adb, sem_ch2.adb, sem_ch3.adb, sem_ch4.adb,
7667 sem_ch5.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb,
7668 sem_dim.adb, sem_disp.adb, sem_dist.adb, sem_elab.adb,
7669 sem_elim.adb, sem_eval.adb, sem_intr.adb, sem_mech.adb,
7670 sem_prag.adb, sem_res.adb, sem_scil.adb, sem_smem.adb,
7671 sem_type.adb, sem_util.adb, sem_util.ads, sem_warn.adb,
7672 sinfo-cn.adb, sinfo-utils.ads, sinput.adb, sinput-l.adb,
7673 sprint.adb, style.adb, styleg.adb, tbuild.adb, tbuild.ads,
7674 treepr.adb, uname.adb: Align with/use clauses.
7676 2021-05-07 Bob Duff <duff@adacore.com>
7678 * atree.ads, atree.adb, gen_il-gen.ads: Fix comments and clean
7679 up ??? marks. Rename Set_Ekind to be Mutate_Ekind.
7680 * einfo.ads, sinfo.ads: Likewise. Change "definitive
7681 definition" to "official definition", because the former sounds
7682 redundant. Rename Set_Ekind to be Mutate_Ekind.
7683 * checks.adb, contracts.adb, cstand.adb, exp_aggr.adb,
7684 exp_attr.adb, exp_ch11.adb, exp_ch3.adb, exp_ch5.adb,
7685 exp_ch6.adb, exp_ch7.adb, exp_ch9.adb, exp_disp.adb,
7686 exp_dist.adb, exp_imgv.adb, exp_intr.adb, exp_prag.adb,
7687 exp_unst.adb, exp_util.adb, gen_il-gen.adb, inline.adb,
7688 lib-writ.adb, lib-xref-spark_specific.adb, sem_aggr.adb,
7689 sem_ch10.adb, sem_ch11.adb, sem_ch12.adb, sem_ch13.adb,
7690 sem_ch3.adb, sem_ch5.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb,
7691 sem_ch9.adb, sem_dist.adb, sem_elab.adb, sem_prag.adb,
7692 sem_util.adb: Rename Set_Ekind to be Mutate_Ekind.
7694 2021-05-07 Bob Duff <duff@adacore.com>
7696 * atree.adb: Move nnd-related code from here, and leave a
7697 comment pointing to sinfo-utils.adb.
7698 * sinfo-utils.ads, sinfo-utils.adb: Move nnd-related code to
7699 here.
7701 2021-05-07 Piotr Trojanek <trojanek@adacore.com>
7703 * einfo.ads: Move Corresponding_Protected_Entry...
7704 * sinfo.ads: ... here.
7705 * exp_ch9.adb (Build_Entry_Body): Link procedure and entry
7706 bodies.
7707 * gen_il-fields.ads (Opt_Field_Enum): Add
7708 Corresponding_Entry_Body field to nodes; remove
7709 Corresponding_Protected_Entry field from entities.
7710 * gen_il-gen-gen_entities.adb (Gen_Entities): Remove
7711 Corresponding_Protected_Entry field from E_Void and
7712 E_Subprogram_Body.
7713 * gen_il-gen-gen_nodes.adb (Gen_Nodes): Add
7714 Corresponding_Entry_Body field to N_Subprogram_Body.
7715 * sem_ch6.adb (Analyze_Subprogram_Specification): Remove
7716 manipulation of Ekind and Corresponding_Protected_Entry added as
7717 part of the support for varsize-nodes.
7719 2021-05-07 Bob Duff <duff@adacore.com>
7721 * sem_ch3.adb (Process_Incomplete_Dependents): Reset
7722 Private_Dependents field to zero before calling Set_Ekind. Also
7723 move Set_Etype to after Set_Ekind, because it's always best to
7724 set the Ekind as early as possible.
7725 * atree.adb: Improve debugging facilities for vanishing fields.
7727 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7729 * atree.ads (Slot): Change to modular type.
7730 (Slot_1_Bit): Delete.
7731 (Slot_2_Bit): Likewise.
7732 (Slot_4_Bit): Likewise.
7733 (Slot_8_Bit): Likewise.
7734 (Slot_32_Bit): Likewise.
7735 * atree.adb (Get_1_Bit_Val): Adjust to above change.
7736 (Get_2_Bit_Val): Likewise.
7737 (Get_4_Bit_Val): Likewise.
7738 (Get_8_Bit_Val): Likewise.
7739 (Get_32_Bit_Val): Likewise.
7740 (Set_1_Bit_Val): Likewise.
7741 (Set_2_Bit_Val): Likewise.
7742 (Set_4_Bit_Val): Likewise.
7743 (Set_8_Bit_Val): Likewise.
7744 (Set_32_Bit_Val): Likewise.
7745 (Print_Atree_Info): Likewise.
7746 (Zero): Likewise.
7747 * atree.h (Get_1_Bit_Field): Likewise.
7748 (Get_2_Bit_Field): Likewise.
7749 (Get_4_Bit_Field): Likewise.
7750 (Get_8_Bit_Field): Likewise.
7751 (Get_32_Bit_Field): Likewise.
7752 (Get_32_Bit_Field_With_Default): Likewise.
7753 * types.h (slot_1_bit): Delete.
7754 (slot_2_bit): Likewise.
7755 (slot_4_bit): Likewise.
7756 (slot_8_bit): Likewise.
7757 (slot_32_bit): Likewise.
7758 (any_slot): Change to unsigned int.
7759 (Slot_Size): New macro.
7761 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7763 * gcc-interface/gigi.h (enum standard_datatype): Remove
7764 ADT_exception_data_name_id and add ADT_not_handled_by_others_name_id.
7765 (exception_data_name_id): Delete.
7766 (not_handled_by_others_name_id): New macro.
7767 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Exception>: Remove old
7768 kludge for exceptions.
7769 <E_Record_Type>: Likewise.
7770 (gnat_to_gnu_field): Force character type on Not_Handled_By_Others.
7771 * gcc-interface/misc.c (gnat_argv): Change type to char **.
7772 (gnat_init_options): Adjust accordingly.
7773 * gcc-interface/trans.c (gigi): Set not_handled_by_others_name_id
7774 and use it to set not_handled_by_others_decl.
7775 (Exception_Handler_to_gnu_fe_sjlj): Fix indentation.
7777 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7779 * raise-gcc.c (__gnat_others_value): Remove const qualifier.
7780 (__gnat_all_others_value): Likewise.
7781 (__gnat_unhandled_others_value): Likewise.
7782 (GNAT_OTHERS): Cast to Exception_Id instead of _Unwind_Ptr.
7783 (GNAT_ALL_OTHERS): Likewise.
7784 (GNAT_UNHANDLED_OTHERS): Likewise.
7785 (Is_Handled_By_Others): Change parameter type to Exception_Id.
7786 (Language_For): Likewise.
7787 (Foreign_Data_For): Likewise.
7788 (is_handled_by): Likewise. Adjust throughout, remove redundant
7789 line and fix indentation.
7790 * libgnat/a-exexpr.adb (Is_Handled_By_Others): Remove pragma and
7791 useless qualification from parameter type.
7792 (Foreign_Data_For): Likewise.
7793 (Language_For): Likewise.
7795 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7797 * libgnat/s-stalib.ads (Exception_Data): Mark components as aliased.
7798 * stand.ads (Standard_Entity_Type): Enhance comments.
7799 * cstand.adb (Make_Component): Rename into...
7800 (Make_Aliased_Component): ...this; set Is_Aliased and Is_Independent
7801 flags on the component.
7802 (Create_Standard): Adjust the types of the component of the record
7803 Standard_Exception_Type and mark them as aliased.
7804 * exp_ch11.adb (Expand_N_Exception_Declaration): Use OK
7805 conversion to Standard_Address for Full_Name component, except
7806 in CodePeer_Mode (set it to 0).
7807 * exp_prag.adb (Expand_Pragma_Import_Or_Interface): Likewise.
7808 * raise.h (struct Exception_Data): Change the type of Full_Name,
7809 HTable_Ptr and Foreign_Data.
7811 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7813 * atree.h (Slots_Ptr): Change pointed-to type to any_slot.
7814 * fe.h (Get_RT_Exception_Name): Change type of parameter.
7815 * namet.ads (Name_Entry): Mark non-boolean components as aliased,
7816 reorder the boolean components and add an explicit Spare component.
7817 * namet.adb (Name_Enter): Adjust aggregate accordingly.
7818 (Name_Find): Likewise.
7819 (Reinitialize): Likewise.
7820 * namet.h (struct Name_Entry): Adjust accordingly.
7821 (Names_Ptr): Use correct type.
7822 (Name_Chars_Ptr): Likewise.
7823 (Get_Name_String): Fix declaration and adjust to above changes.
7824 * types.ads (RT_Exception_Code): Add pragma Convention C.
7825 * types.h (Column_Number_Type): Fix original type.
7826 (slot): Rename union type to...
7827 (any_slot): ...this and adjust assertion accordingly.
7828 (RT_Exception_Code): New enumeration type.
7829 * uintp.ads (Uint_Entry): Mark components as aliased.
7830 * uintp.h (Uints_Ptr): Use correct type.
7831 (Udigits_Ptr): Likewise.
7832 * gcc-interface/gigi.h (gigi): Adjust name and type of parameter.
7833 * gcc-interface/cuintp.c (UI_To_gnu): Adjust references to Uints_Ptr
7834 and Udigits_Ptr.
7835 * gcc-interface/trans.c (Slots_Ptr): Adjust pointed-to type.
7836 (gigi): Adjust type of parameter.
7837 (build_raise_check): Add cast in call to Get_RT_Exception_Name.
7839 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7841 * init.c (__gnat_raise_program_error): Fix parameter type.
7842 (Raise_From_Signal_Handler): Likewise and mark as no-return.
7843 * raise-gcc.c (__gnat_others_value): Fix type.
7844 (__gnat_all_others_value): Likewise.
7845 (__gnat_unhandled_others_value): Likewise.
7846 * seh_init.c (Raise_From_Signal_Handler): Fix parameter type.
7847 * libgnat/a-except.ads (Raise_From_Signal_Handler): Use convention C
7848 and new symbol name, move declaration to...
7849 (Raise_From_Controlled_Operation): Minor tweak.
7850 * libgnat/a-except.adb (Raise_From_Signal_Handler): ...here.
7851 * libgnat/a-exexpr.adb (bool): New C compatible boolean type.
7852 (Is_Handled_By_Others): Use it as return type for the function.
7854 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7856 * errout.ads (Set_Identifier_Casing): Add pragma Convention C.
7857 * eval_fat.ads (Rounding_Mode): Likewise.
7858 (Machine): Add WARNING comment line.
7859 * exp_code.ads (Clobber_Get_Next): Add pragma Convention C.
7860 * fe.h (Compiler_Abort): Fix return type.
7861 (Set_Identifier_Casing): Change type of parameters.
7862 (Clobber_Get_Next): Change return type.
7863 * gcc-interface/trans.c (gnat_to_gnu) <N_Code_Statement>: Add cast.
7865 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
7867 * atree.h (Parent): Remove duplicate declaration.
7868 (Get_1_Bit_Field): Also use INLINE specifier in the declaration,
7869 fix formatting and use gcc_unreachable for the default case.
7870 (Get_2_Bit_Field): Likewise.
7871 (Get_4_Bit_Field): Likewise.
7872 (Get_8_Bit_Field): Likewise.
7873 (Get_32_Bit_Field): Likewise.
7874 (Get_32_Bit_Field_With_Default): Likewise.
7876 2021-05-07 Bob Duff <duff@adacore.com>
7878 * atree.ads, atree.adb: Major rewrite to support variable-sized
7879 node types. Add pragmas Suppress and Assertion_Policy. We now
7880 have an extra level of indirection: Node_Offsets is a table
7881 mapping Node_Ids to the offset of the start of each node in
7882 Slots. Slots is a table containing one or more contiguous slots
7883 for each node. Each slot is a 32-bit unchecked union that can
7884 contain any mixture of 1, 2, 4, 8, and 32-bit fields that fits.
7885 The old low-level getters and setters (e.g. Flag123) are
7886 removed.
7887 * gen_il-fields.ads, gen_il-gen-gen_entities.adb,
7888 gen_il-gen-gen_nodes.adb, gen_il-gen.adb, gen_il-gen.ads,
7889 gen_il-main.adb, gen_il-types.ads, gen_il-utils.adb,
7890 gen_il-utils.ads, gen_il.adb, gen_il.ads: New gen_il program
7891 that generates various Ada and C++ files. In particular, the
7892 following files are generated by gen_il: einfo-entities.adb
7893 einfo-entities.ads, gnatvsn.ads, nmake.adb, nmake.ads,
7894 seinfo.ads, seinfo_tables.adb, seinfo_tables.ads,
7895 sinfo-nodes.adb, sinfo-nodes.ads, einfo.h, and sinfo.h.
7896 * sinfo-utils.adb, sinfo-utils.ads, einfo-utils.adb,
7897 einfo-utils.ads: New files containing code that needs to refer
7898 to Sinfo.Nodes and Einfo.Entities. This code is mostly moved
7899 here from Sinfo and Einfo to break cycles.
7900 * back_end.adb: Pass node_offsets_ptr and slots_ptr to gigi,
7901 instead of nodes_ptr and flags_ptr. The Nodes and Flags tables
7902 no longer exist. (Note that gigi never used the Flags table.)
7903 * sinfo-cn.ads (Change_Identifier_To_Defining_Identifier,
7904 Change_Character_Literal_To_Defining_Character_Literal,
7905 Change_Operator_Symbol_To_Defining_Operator_Symbol): Turn N into
7906 an IN formal.
7907 * sinfo-cn.adb: Update. Add assertions, which can be removed at
7908 some point. Rewrite to use higher-level facilities. Make sure
7909 vanishing fields are zeroed out. Add with/use for new packages.
7910 * sem_util.adb: Remove "Assert(False)" immediately followed by
7911 "raise Program_Error". Use higher-level facilities such as
7912 Walk_Sinfo_Fields instead of depending on low-level Set_FieldN
7913 routines that no longer exist. Use Get_Comes_From_Source_Default
7914 instead of Default_Node.Comes_From_Source (Default_Node no
7915 longer exists). Use Set_Basic_Convention instead of
7916 Basic_Set_Convention. Add with/use for new packages.
7917 * sem_util.ads: The Convention field had getter Convention and
7918 setter Basic_Set_Convention. Make that more uniform: there is
7919 now a field called Basic_Convention, with Basic_Convention and
7920 Set_Basic_Convention as getter/setter, and write Convention and
7921 Set_Convention here.
7922 * nlists.adb: Rewrite to use abstractions, rather then depending
7923 on low-level implementation details of Atree. Necessary because
7924 those details have changed. Add with/use for new packages.
7925 * sem_ch12.adb: Use higher-level facilities such as
7926 Walk_Sinfo_Fields instead of depending on low-level Set_FieldN
7927 routines that no longer exist. Add with/use for new packages.
7928 * exp_cg.adb, sem_ch10.adb, sem_ch4.adb, sem_eval.adb,
7929 sem_prag.adb, sem_warn.adb: Change expanded names to refer to
7930 the new packages for things that moved. Add with/use for new
7931 packages.
7932 * sem_ch3.adb: Likewise. Reinitialize vanishing fields.
7933 * exp_disp.adb: Likewise. Remove failing assertion.
7934 * sinfo.ads, einfo.ads: Remove code that is now generated into
7935 Sinfo.Nodes and Einfo.Entities.
7936 * sinfo.adb, einfo.adb: Replace bodies with "pragma No_Body;".
7937 We should delete these at some point, but No_Body makes make
7938 files easier. Some code is moved to Sinfo.Nodes, Einfo.Entities,
7939 Sinfo.Utils, and Einfo.Utils. Some is no longer necessary.
7940 * treepr.adb: Rewrite to use new tables. We no longer need
7941 treeprs.ads.
7942 * treepr.ads: Add comment.
7943 * types.ads: Move types Component_Alignment_Kind and
7944 Float_Rep_Kind here.
7945 * atree.h: Major update to match atree.ads changes. Add slot
7946 types, for use by getters/setters.
7947 * types.h: Move types Component_Alignment_Kind and
7948 Float_Rep_Kind here.
7949 * fe.h: Rewrite to deal with code that has changed or moved from
7950 Atree, Sinfo, Einfo.
7951 * nlists.h: Move some code to fe.h.
7952 * alloc.ads: Split Nodes_* constants into Node_Offsets and
7953 Slots, because Atree has two separate tables. Increase values.
7954 Remove Nodes_Release_Threshold. Improve comment.
7955 * debug.adb, gnat1drv.adb: Remove obsolete gnatd.A and gnatd.N
7956 switches. Add with/use for new packages.
7957 * opt.ads: Minor comment fix.
7958 * aspects.adb, checks.adb, comperr.adb, contracts.adb,
7959 cstand.adb, debug_a.adb, errout.adb, eval_fat.adb, exp_aggr.adb,
7960 exp_atag.adb, exp_attr.adb, exp_ch11.adb, exp_ch12.adb,
7961 exp_ch13.adb, exp_ch2.adb, exp_ch3.adb, exp_ch4.adb,
7962 exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, exp_ch8.adb, exp_ch9.adb,
7963 exp_code.adb, exp_dbug.adb, exp_dist.adb, exp_fixd.adb,
7964 exp_imgv.adb, exp_intr.adb, exp_pakd.adb, exp_prag.adb,
7965 exp_put_image.adb, exp_sel.adb, exp_smem.adb, exp_spark.adb,
7966 exp_strm.adb, exp_tss.adb, exp_unst.adb, exp_util.adb,
7967 exp_util.ads, expander.adb, freeze.adb, frontend.adb,
7968 get_targ.ads, ghost.adb, gnat_cuda.adb, impunit.adb, inline.adb,
7969 itypes.adb, itypes.ads, layout.adb, lib.adb, lib-load.adb,
7970 lib-writ.adb, lib-xref.adb, lib-xref.ads,
7971 lib-xref-spark_specific.adb, live.adb, par.adb, par_sco.adb,
7972 pprint.adb, repinfo.adb, restrict.adb, rtsfind.adb, scil_ll.adb,
7973 scn.adb, sem.adb, sem.ads, sem_aggr.adb, sem_attr.adb,
7974 sem_aux.adb, sem_case.adb, sem_cat.adb, sem_ch11.adb,
7975 sem_ch13.adb, sem_ch2.adb, sem_ch5.adb, sem_ch6.adb,
7976 sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_dim.adb,
7977 sem_disp.adb, sem_dist.adb, sem_elab.adb, sem_elim.adb,
7978 sem_intr.adb, sem_mech.adb, sem_res.adb, sem_scil.adb,
7979 sem_smem.adb, sem_type.adb, set_targ.ads, sinput.adb,
7980 sinput-l.adb, sprint.adb, style.adb, styleg.adb, tbuild.adb,
7981 tbuild.ads, uname.adb: Add with/use for new packages.
7982 * libgnat/a-stoubu.adb, libgnat/a-stouut.adb: Simplify to ease
7983 bootstrap.
7984 * libgnat/a-stobfi.adb, libgnat/a-stoufi.adb (Create_File,
7985 Create_New_File): Create file in binary format, to avoid
7986 introducing unwanted text conversions on Windows. Simplify to
7987 ease bootstrap.
7988 * libgnat/a-stteou__bootstrap.ads: New.
7989 * ceinfo.adb, csinfo.adb, nmake.adt, treeprs.adt, xeinfo.adb,
7990 xnmake.adb, xsinfo.adb, xtreeprs.adb: Delete.
7991 * Make-generated.in: Build and run the gen_il program to
7992 generate files. The files are generated in the ada/gen_il
7993 subdirectory, and then moved up to ada. We rely on gnatmake (as
7994 opposed to make) to build the gen_il program efficiently (i.e.
7995 don't do anything if the sources didn't change).
7996 * gcc-interface/Makefile.in (ADAFLAGS): Add -gnatU.
7997 (GNATMAKE_OBJS): Add new object files.
7998 (GENERATED_FILES_FOR_TOOLS): New variable.
7999 (../stamp-tools): Create a link for all
8000 GENERATED_FILES_FOR_TOOLS.
8001 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add new object
8002 files. Remove ada/treeprs.o.
8003 (GNATBIND_OBJS): Add new object files.
8004 (ada.mostlyclean): Remove ada/sdefault.adb and add
8005 ada/stamp-gen_il.
8006 (ada.maintainer-clean): Remove ada/treeprs.ads.
8007 (update-sources): Remove obsolete target.
8008 (ada_generated_files): Rename to...
8009 (ADA_GENERATED_FILES): ... this. Add new source files. Add
8010 comment.
8011 * gcc-interface/trans.c: Remove obsolete Nodes_Ptr and
8012 Flags_ptr. Add Node_Offsets_Ptr and Slots_Ptr, which point to
8013 the corresponding tables in Atree.
8014 * gcc-interface/gigi.h (gigi): New parameters for initializing
8015 Node_Offsets_Ptr and Slots_Ptr.
8016 * gcc-interface/decl.c: Numeric_Kind,
8017 Discrete_Or_Fixed_Point_Kind, and Record_Kind were
8018 nonhierarchical, and were therefore removed for simplicity.
8019 Replace uses with calls to Is_In_... functions.
8021 2021-05-07 Ed Schonberg <schonberg@adacore.com>
8023 * exp_ch4.adb (Unconstrained_UU_In_Component_Declaration): A
8024 component declaration whose subtype indication is an entity name
8025 without an explicit constraint is an Unchecked_Union type only
8026 if the entity has an unconstrained nominal subtype (record type
8027 or private type) whose parent type is an Unchecked_Union.
8029 2021-05-07 Piotr Trojanek <trojanek@adacore.com>
8031 * sem_res.adb (Flag_Object): Ignore prefixes of attribute
8032 Address.
8034 2021-05-07 Yannick Moy <moy@adacore.com>
8036 * opt.ads: Update comment for Warn_On_Suspicious_Modulus_Value.
8037 * sem_res.adb (Resolve_Unary_Op): Generate warning.
8038 * usage.adb: Refine doc for -gnatw.m/M switch.
8039 * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
8040 Update doc on -gnatw.m switch.
8041 * gnat_ugn.texi: Regenerate.
8043 2021-05-07 Piotr Trojanek <trojanek@adacore.com>
8045 * sem_res.adb (Flag_Object): Replace chained IF with a CASE;
8046 remove repeated calls to Entity; do not traverse into
8047 N_Identifier and N_Expanded_Name, because only need to examine
8048 their Entity field anyway.
8050 2021-05-07 Piotr Trojanek <trojanek@adacore.com>
8052 * sem_ch4.adb (Analyze_Call): Remove call to End_Interp_List.
8053 (Process_Overloaded_Indexed_Component): Remove call to
8054 End_Interp_List.
8055 * sem_util.adb (Insert_Explicit_Dereference): Remove call to
8056 End_Interp_List.
8057 * sem_type.ads (End_Interp_List): Remove.
8058 * sem_type.adb (Add_Entry): The guard against duplicate entries
8059 is now checked before other conditions, so that EXIT statements
8060 do not bypass this guard.
8061 (End_Interp_List): Remove.
8063 2021-05-07 Ed Schonberg <schonberg@adacore.com>
8065 * exp_util.adb (Remove_Init_Call): If a simple initialization
8066 call is present, and the next statement is an initialization
8067 block (that contains a call to a Deep_ Initialize routine),
8068 remove the block as well, and insert the first initialization
8069 call in it, in case it is needed for later relocation.
8071 2021-05-07 Gary Dismukes <dismukes@adacore.com>
8073 * errout.ads (Size_Too_Small_Message): Remove low-value ???
8074 comment.
8075 * exp_util.ads: Remove ??? in part of overall package comments
8076 and restructure comment to clarify.
8077 (Duplicate_Subexpr): Remove ??? comment that seems unnecessary.
8078 * sem_ch3.ads (Analyze_Declarations): Remove two parenthesized
8079 ??? comments and add more description of the procedure's
8080 actions.
8081 (Get_Discriminant_Value): Remove ??? comment requesting more
8082 documentation, expanding description of the function's actions.
8083 * sem_disp.ads (Check_Operation_From_Incomplete_Type): Add more
8084 semantic description of the procedure and remove ??? comment
8085 requesting such.
8086 (Propagate_Tag): Refine comment to indicate meaning of formal
8087 parameters and generally improve the spec comment (and remove
8088 ??? comment asking about the parameters).
8090 2021-05-07 Arnaud Charlet <charlet@adacore.com>
8092 * sem_eval.adb (Fold_Shift): Fix computation of Shift_Left
8093 resulting in negative signed values.
8095 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
8097 * sem_util.ads (Defining_Entity): Remove Empty_On_Errors parameter.
8098 (Defining_Entity_Or_Empty): New function.
8099 * sem_util.adb (Defining_Entity): Move bulk of implementation to...
8100 (Defining_Entity_Or_Empty): ...here. Do not raise Program_Error.
8101 (Innermost_Master_Scope_Depth): Call Defining_Entity_Or_Empty.
8103 2021-05-07 Justin Squirek <squirek@adacore.com>
8105 * aspects.ads: Add entries to register
8106 Aspect_No_Controlled_Parts.
8107 * freeze.adb (Check_No_Controlled_Parts_Violations): Added to
8108 check requirements of aspect No_Controlled_Parts after a type
8109 has been frozen.
8110 (Freeze_Entity): Add call to
8111 Check_No_Controlled_Parts_Violations.
8112 (Find_Aspect_No_Controlled_Parts): Created to obtain the aspect
8113 specification for No_Controlled_Parts on a given type when
8114 present.
8115 (Find_Aspect_No_Controlled_Parts_Value): Protect against invalid
8116 value.
8117 (Has_Aspect_No_Controlled_Parts): Created as a prediate function
8118 to check if No_Controlled_Parts has been specified on a type for
8119 Get_Anacestor_Types_With_Specification.
8120 (Get_Aspect_No_Controlled_Parts_Value): Created to obtain the
8121 value of the aspect No_Controlled_Parts when specified on a
8122 given type.
8123 (Get_Generic_Formal_Types_In_Hierarchy): Created to collect
8124 formal types in a given type's hierarchy.
8125 (Get_Types_With_Aspect_In_Hierarchy): Created to collect types
8126 in a given type's hierarchy with No_Controlled_Parts specified.
8127 * sem_ch13.adb (Analyze_One_Aspect): Add processing for
8128 No_Controlled_Parts, and fix error in check for allowed pragmas
8129 for formal types.
8130 (Check_Expr_Is_OK_Static_Expression): Created to enforce
8131 checking of static expressions in the same vein as
8132 Analyze_Pragma.Check_Expr_OK_Static_Expression.
8133 * sem_util.adb (Collect_Types_In_Hierarchy): Created to collect
8134 types in a given type's hierarchy that match a given predicate
8135 function.
8136 * sem_util.ads: Fix typo.
8137 * snames.ads-tmpl: Add entry for No_Controlled_Parts.
8139 2021-05-07 Eric Botcazou <ebotcazou@adacore.com>
8141 * libgnat/s-fatgen.adb (Scaling): Raise Constraint_Error in the
8142 overflow case when T'Machine_Overflows is True.
8144 2021-05-07 Bob Duff <duff@adacore.com>
8146 * libgnat/a-conhel.adb (TC_Check): Move the Assert into the
8147 'if'.
8149 2021-05-07 Frederic Konrad <konrad@adacore.com>
8151 * sigtramp-vxworks-target.inc: Use a local label for the TOC.
8153 2021-05-07 Claire Dross <dross@adacore.com>
8155 * exp_ch4.adb (Has_Inferable_Discriminants): Moved to Sem_Util.
8156 * sem_util.ads, sem_util.adb (Has_Inferable_Discriminants):
8157 Moved from Exp_Ch4.
8159 2021-05-07 Ed Schonberg <schonberg@adacore.com>
8161 * exp_util.adb (Build_Class_Wide_Expression, Replace_Entity):
8162 Add guard to verify that the enclosing pragma is a precondition.
8164 2021-05-06 Javier Miranda <miranda@adacore.com>
8166 * exp_disp.adb (Build_Class_Wide_Check): Extending the
8167 functionality of this routine to climb to the ancestors
8168 searching for the enclosing overridden dispatching primitive
8169 that has a class-wide precondition to generate the check.
8171 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8173 * sem_ch3.adb (Constraint_Index): Remove redundant problematic
8174 analysis.
8176 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8178 * exp_unst.adb (Note_Uplevel_Bound): Exclude
8179 E_Enumeration_Literal.
8181 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8183 * exp_ch4.adb (Expand_N_If_Expression):
8184 Apply_Arithmetic_Overflow_Check will not deal with
8185 Then/Else_Actions so skip minimizing overflow checks if any
8186 actions are present.
8188 2021-05-06 Boris Yakobowski <yakobowski@adacore.com>
8190 * gnat1drv.adb (Adjust_Global_Switches): Simplify logic.
8192 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8194 * libgnat/i-c.ads (bool): New type.
8195 * libgnat/i-cexten.ads, libgnat/i-cexten__128.ads (bool): Now
8196 a subtype of Interfaces.C.bool.
8197 * libgnarl/s-interr__vxworks.adb (Interrupt_Manager): Qualify
8198 False.
8199 * libgnarl/s-interr.adb, libgnarl/s-interr__hwint.adb,
8200 libgnarl/s-tasini.adb, libgnarl/s-tasren.adb,
8201 libgnarl/s-tassta.adb, libgnarl/s-tpobmu.adb,
8202 libgnarl/s-tpobop.adb, libgnarl/s-tpopmo.adb: Replace
8203 Assert (False) by Assert (Standard.False).
8205 2021-05-06 Ghjuvan Lacambre <lacambre@adacore.com>
8207 * make.adb (Compute_Executable): Document parameter.
8209 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8211 * libgnat/s-fatgen.adb (Scaling): Use single handling of
8212 underflow. Add pragma Annotate.
8214 2021-05-06 Ghjuvan Lacambre <lacambre@adacore.com>
8216 * sem_eval.adb (Is_OK_Static_Subtype): Call Is_Static_Subtype,
8217 remove redundant checks.
8219 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8221 * sem_res.adb (First_Last_Ref): Simplify "if [condition] then
8222 return True" in "return [condition]".
8223 (Resolve_Range): Remove calls appearing in IF condition from the
8224 THEN statements.
8226 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8228 * sem_case.adb (Missing_Choice): Fix typo in comment.
8229 (Lit_Of): Simplify with Make_Character_Literal.
8230 (Check_Choices): Remove extra spaces in parameter
8231 specifications.
8232 * sem_case.ads: Same reformatting.
8234 2021-05-06 Ed Schonberg <schonberg@adacore.com>
8236 * exp_aggr.adb (Expand_Array_Aggregate): If the expression in an
8237 Others_Clause has not been analyzed because previous analysis of
8238 the enclosing aggregate showed the clause to be ineffective i.e.
8239 cover a null range, analyze it now to detect a possible type
8240 illegality.
8242 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8244 * libgnat/s-fatgen.adb (Scaling): Fix off-by-one bug for underflow.
8246 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8248 * sem_ch6.adb (Is_Inline_Pragma): Protect against N not being a
8249 list member in both branches.
8251 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8253 * libgnat/a-cofove.adb (Insert_Space): Remove hardcoded pragma
8254 Warnings.
8256 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8258 * sem_ch4.adb (Analyze_Selected_Component): Remove explicit call
8259 to Set_Raises_Constraint_Error on statically missing component.
8260 * sem_eval.adb (Eval_Arithmetic_Op): Likewise for static
8261 divisions by integer and real zeros.
8262 * sem_util.adb (Apply_Compile_Time_Constraint_Error): Call
8263 Set_Raises_Constraint_Error before exiting early in GNATprove
8264 mode.
8266 2021-05-06 Justin Squirek <squirek@adacore.com>
8268 * checks.adb (Make_Discriminant_Constraint_Check): Add check for
8269 null when the type being converted is an access type.
8271 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8273 * exp_pakd.adb (Expand_Packed_Eq): Fix handling of PATs.
8275 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8277 * osint.adb (Read_Library_Info_From_Full): Cleanup unused
8278 initial value.
8280 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8282 * doc/gnat_rm/implementation_defined_characteristics.rst (3.5.7):
8283 Mention the IEEE standard explicitly. Use current format names.
8284 Document assumed rounding mode and new features of I/O support.
8285 * gnat_rm.texi: Regenerate.
8287 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8289 * init.c (__gnat_init_float): Use full version on Linux too.
8291 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8293 * libgnat/s-fatgen.adb (Valid): Do a bit comparison with 0.0
8294 when denormalized numbers are not supported.
8296 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8298 * sem_attr.adb (Check_Enum_Image): Reword comment; add
8299 Check_Enumeration_Maps parameter. Now this routine combines
8300 both referencing enumeration literals and checking restriction
8301 No_Enumeration_Maps, if required.
8302 (Analyze_Attribute): Remove duplicated code and instead call
8303 Check_Enum_Image.
8305 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8307 * sem_attr.adb (Analyze_Image_Attribute): Remove redundant
8308 condition; add a missing header box.
8310 2021-05-06 Gary Dismukes <dismukes@adacore.com>
8312 * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Add
8313 mention of underscore and fix grammar error in doc for -gnatd.
8314 * gnat_ugn.texi: Regenerate.
8316 2021-05-06 Eric Botcazou <ebotcazou@adacore.com>
8318 * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-exponr, s-exnflt
8319 and s-exnlfl.
8320 * exp_ch4.adb (Expand_N_Op_Expon): Use RE_Exn_Float for Short_Float.
8321 * rtsfind.ads (RTU_Id): Add System_Exn_Flt and System_Exn_LFlt.
8322 (RE_Id): Adjust entries for RE_Exn_Float and RE_Exn_Long_Float.
8323 (RE_Unit_Table): Likewise.
8324 * libgnat/s-exnflt.ads: New file.
8325 * libgnat/s-exnlfl.ads: Likewise.
8326 * libgnat/s-exnllf.ads: Change to mere instantiation.
8327 * libgnat/s-exnllf.adb: Move implementation to...
8328 * libgnat/s-exponr.ads: New generic unit.
8329 * libgnat/s-exponr.adb: ...here and also make it generic.
8330 (Expon): Do the computation in double precision internally.
8332 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8334 * lib-writ.adb, osint.adb, osint.ads: Cleanup.
8336 2021-05-06 Piotr Trojanek <trojanek@adacore.com>
8338 * exp_ch3.adb (Expand_Freeze_Array_Type): Remove excessive
8339 condition.
8340 (Expand_N_Object_Declaration): Likewise.
8341 (Build_Equivalent_Aggregate): Likewise.
8342 (Initialization_Warning): Likewise; change another excessive
8343 condition into assertion.
8344 * freeze.adb (Freeze_Entity): Remove excessive condition.
8346 2021-05-06 Ed Schonberg <schonberg@adacore.com>
8348 * sem_res.adb (Resolve_If_Expression): If the context of the
8349 expression is an indexed_component, resolve the expression and
8350 its dependent_expressions with the base type of the index, to
8351 ensure that an index check is generated when resolving the
8352 enclosing indexxed_component, and avoid an improper use of
8353 discriminants out of scope, when the index type is
8354 discriminant-dependent.
8356 2021-05-06 Arnaud Charlet <charlet@adacore.com>
8358 * einfo.ads, exp_prag.adb, exp_util.adb: Fix typos.
8360 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8362 * exp_attr.adb (Expand_N_Attribute_Reference): Fix expansion of
8363 attributes Input and Output for unchecked unions.
8364 * sem_case.ads: Fix typo "disriminant" and refill comment.
8366 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8368 * exp_attr.adb, exp_ch9.adb, sem_ch3.adb: Reuse
8369 Has_Defaulted_Discriminants.
8370 * sem_ch4.adb (Analyze_Allocator): Reuse
8371 Has_Defaulted_Discriminants (after reordering conjuncts); remove
8372 redundant IF statement, whose condition is implied by
8373 Has_Defaulted_Discriminants.
8374 * sem_util.adb (Has_Defaulted_Discriminants): Has_Discriminants
8375 implies that the First_Discriminant is present.
8376 (Is_Fully_Initialized_Type): Reuse Has_Defaulted_Discriminants.
8378 2021-05-05 Justin Squirek <squirek@adacore.com>
8380 * exp_ch6.adb (Expand_Call_Helper): Add condition to check for
8381 expanded actuals and remove dead code.
8383 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8385 * exp_ch4.adb (Has_Unconstrained_UU_Component): Rewrite to
8386 follow the Ada RM grammar.
8388 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8390 * exp_ch4.adb (User_Defined_Primitive_Equality_Op): Refine type
8391 of a local variable.
8392 * exp_dbug.adb (Scope_Contains): Refine all types from Node_Id
8393 to Entity_Id; rename parameters to match those of the
8394 Scope_Within routine (which is similar but not the same); also,
8395 simplify an OR ELSE into a membership test.
8397 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8399 * exp_ch4.adb (Component_Is_Unconstrained_UU): Detect both
8400 qualified and unqualified names of unchecked union components.
8402 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8404 * exp_ch4.adb (Variant_Is_Unconstrained_UU): Remove redundant
8405 check for empty list.
8406 * exp_disp.adb (Find_Entry_Index): Simplify by removing
8407 redundant check and counting from zero; fix type of a local
8408 variable.
8409 * sem_ch12.adb (Save_Global_Descendant): Remove an unnecessary
8410 special-case for empty lists.
8412 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8414 * exp_ch4.adb (Apply_Accessibility_Check): Skip a statically
8415 true condition in expanded raise statement.
8417 2021-05-05 Bob Duff <duff@adacore.com>
8419 * libgnat/s-os_lib.adb (Missed_Drive_Letter): Simplify the code.
8421 2021-05-05 Ed Schonberg <schonberg@adacore.com>
8423 * sem_ch5.adb (Analyze_Assignment): Do not emit the warning that
8424 a previous value of the target object is useless if the
8425 right-hand side of the assignment includes target names.
8427 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8429 * exp_imgv.adb: Add with/use clauses for Targparm.
8430 (Build_Enumeration_Image_Tables): Set type of Threshold to Nat and
8431 initialize it to Nat'Last if the type is local and the target does
8432 not support descriptors. Adjust Threshold_For_Size similarly.
8433 (Expand_Value_Attribute): Minor tweaks.
8435 2021-05-05 Ghjuvan Lacambre <lacambre@adacore.com>
8437 * exp_ch7.adb (Expand_N_Package_Body): Add CUDA init call.
8438 * sem_ch7.adb (Analyze_Package_Body_Helper): Remove CUDA init
8439 call.
8441 2021-05-05 Ghjuvan Lacambre <lacambre@adacore.com>
8443 * par-ch5.adb (P_Condition): Check if expression is declare
8444 expression.
8446 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8448 * make.adb (Make): Use GNAT.Ctrl_C.Install_Handler instead of a
8449 custom imported procedure.
8451 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8453 * exp_imgv.adb (Is_User_Defined_Enumeration_Type): Delete.
8454 (Expand_Image_Attribute): Move inline expansion into normal flow of
8455 control, move down declarations and remove superfluous processing.
8457 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8459 * libgnat/g-alleve.adb (Bit_Operation): Now a not-null type.
8460 * libgnat/g-sechas.adb (Fill_Buffer_Access): Likewise.
8461 * libgnat/s-dwalin.adb (Callback): Likewise.
8463 2021-05-05 Ghjuvan Lacambre <lacambre@adacore.com>
8465 * exp_util.adb (Is_Possibly_Unaligned_Object): Remove commented
8466 code.
8468 2021-05-05 Ed Schonberg <schonberg@adacore.com>
8470 * sem_ch3.adb (Find_Type_Of_Object): When In_Spec_Expression is
8471 set and the object declaration generates a subtype indication,
8472 build the corresponding subtype declaration and place it in tree
8473 without the use of Insert_Actions, which is disabled in this
8474 context.
8476 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8478 * debug.adb (d_x): Document extended usage.
8479 * exp_imgv.adb (Expand_Standard_Boolean_Image): New procedure.
8480 (Expand_Image_Attribute): Call it to expand in line the attribute
8481 for standard boolean by default.
8483 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8485 * debug.adb (d_x): Document new usage.
8486 * exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Add Typ
8487 parameter and use it throughout the processing.
8488 (Expand_Image_Attribute): Retrieve the underlying type of the
8489 prefix and use the inline expansion for user-defined enumeration
8490 types with a literal string by default.
8492 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8494 * libgnat/s-dorepr.adb (Split): Declare a per-size temporary.
8495 Add pragma Annotate.
8497 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8499 * exp_ch4.adb, sem_ch13.adb, sem_eval.adb, sem_res.adb: Remove
8500 redundant calls to UI_From_Int.
8502 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8504 * exp_imgv.ads (Build_Enumeration_Image_Tables): Adjust comment.
8505 * exp_imgv.adb (Build_Enumeration_Image_Tables): Add the
8506 declaration nodes of the 4 tables to the declaration list of the
8507 function body.
8509 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8511 * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-imagen, s-imen16,
8512 s-imen32, s-imenu8, s-pehage, s-valuen, s-vaen16, s-vaen32 and
8513 s-vaenu8. Remove s-imenne, s-imgenu and s-valenu.
8514 * debug.adb (d_h): Document new usage.
8515 * einfo.ads (Lit_Hash): New attribute for enumeration types.
8516 (Set_Lit_Hash): Declare.
8517 * einfo.adb (Lit_Hash): New function.
8518 (Set_Lit_Hash): New procedure.
8519 (Write_Field21_Name): Print Lit_Hash for Enumeration_Kind.
8520 * exp_imgv.ads (Build_Enumeration_Image_Tables): Fix description
8521 and document the hash function and its tables.
8522 * exp_imgv.adb: Add with/use clauses for Debug. Add with clause
8523 for System.Perfect_Hash_Generators.
8524 (Append_Table_To): New helper routine.
8525 (Build_Enumeration_Image_Tables): Call it to build the tables.
8526 In the main unit, register the literals with the hash generator.
8527 If they are sufficiently many and -gnatd_h is not passed, generate
8528 a perfect hash function and its tables; otherwise, generate a dummy
8529 hash function. For the other units, generate only the declaration.
8530 In all cases, set Lit_Hash to the entity of the function, if any.
8531 (Expand_Value_Attribute): Pass the 'Unrestricted_Access of Lit_Hash,
8532 if any, as third argument to the Value_Enumeration_NN function.
8533 * gnat1drv.adb (Adjust_Global_Switches): force simpler implementation
8534 of 'Value in CodePeer_Mode.
8535 * lib.ads (Synchronize_Serial_Number): Add SN parameter.
8536 * lib.adb (Synchronize_Serial_Number): Assert that it is larger than
8537 the serial number of the current unit and set the latter to it only
8538 in this case.
8539 * rtsfind.ads (RTU_Id): Add System_Img_Enum_8, System_Img_Enum_16,
8540 System_Img_Enum_32, System_Val_Enum_8, System_Val_Enum_16 and
8541 System_Val_Enum_32. Remove System_Img_Enum, System_Img_Enum_New
8542 and System_Val_Enum.
8543 * sem_attr.adb (Analyze_Access_Attribute): Do not flag a compiler
8544 generated Unrestricted_Access attribute as illegal in a declare
8545 expression.
8546 (RE_Unit_Table): Adjust to above changes.
8547 * libgnat/g-heasor.ads: Add pragma Compiler_Unit_Warning.
8548 * libgnat/g-table.ads: Likewise.
8549 * libgnat/g-pehage.ads: Add with clause and local renaming for
8550 System.Perfect_Hash_Generators.
8551 (Optimization): Turn into derived type.
8552 (Verbose): Turn into renaming.
8553 (Too_Many_Tries): Likewise.
8554 (Table_Name): Move to System.Perfect_Hash_Generators.
8555 (Define): Likewise.
8556 (Value): Likewise.
8557 * libgnat/g-pehage.adb: Remove with clause for Ada.Directories,
8558 GNAT.Heap_Sort_G and GNAT.Table. Move bulk of implementation
8559 to System.Perfect_Hash_Generators, only keep the output part.
8560 * libgnat/s-imagen.ads: New generic unit.
8561 * libgnat/s-imagen.adb: New body.
8562 * libgnat/s-imen16.ads: New unit.
8563 * libgnat/s-imen32.ads: Likewise.
8564 * libgnat/s-imenu8.ads: Likewise.
8565 * libgnat/s-imenne.ads: Adjust description.
8566 * libgnat/s-imgenu.ads: Delete.
8567 * libgnat/s-imgenu.adb: Likewise.
8568 * libgnat/s-pehage.ads: New unit from GNAT.Perfect_Hash_Generators.
8569 * libgnat/s-pehage.adb: New body from GNAT.Perfect_Hash_Generators.
8570 * libgnat/s-valuen.ads: New generic unit.
8571 * libgnat/s-valuen.adb: New body.
8572 * libgnat/s-vaen16.ads: New unit.
8573 * libgnat/s-vaen32.ads: Likewise.
8574 * libgnat/s-vaenu8.ads: Likewise.
8575 * libgnat/s-valenu.ads: Delete.
8576 * libgnat/s-valenu.adb: Likewise.
8577 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add s-pehage.o.
8578 (GNATBIND_OBJS): Remove s-imgenu.o.
8580 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8582 * sem_util.ads (Apply_Compile_Time_Constraint_Error): Remove
8583 parameter Rep from the function spec and "and if the flag Rep is
8584 set" from the comment.
8585 * sem_util.adb (Apply_Compile_Time_Constraint_Error): Remove
8586 parameter Rep.
8588 2021-05-05 Ed Schonberg <schonberg@adacore.com>
8590 * sem_aggr.adb (Resolve_Indexed_Aggregate): For indexed
8591 aggregates with component associations verify that if there is
8592 more than one component association then all the choices are
8593 static, that the set of choices define a continuous sequence of
8594 values, and that if loop specfications appear, they do not
8595 include iterator filters or key expressions.
8597 2021-05-05 Eric Botcazou <ebotcazou@adacore.com>
8599 * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-dourea, s-imager,
8600 s-imgflt, s-imglfl and s-imgllf.
8601 (LIBGNAT_TARGET_PAIRS) [PowerPC/VxWorks]: Use s-dorepr__fma.adb.
8602 (LIBGNAT_TARGET_PAIRS) [PowerPC/VxWorksAE]: Likewise.
8603 (LIBGNAT_TARGET_PAIRS) [Aarch64/VxWorks]: Likewise.
8604 (LIBGNAT_TARGET_PAIRS) [Aarch64/QNX]: Likewise.
8605 (LIBGNAT_TARGET_PAIRS) [Aarch64/FreeBSD]: Likewise.
8606 (LIBGNAT_TARGET_PAIRS) [PowerPC/Linux]: Likewise.
8607 (LIBGNAT_TARGET_PAIRS) [Aarch64/Linux]: Likewise.
8608 (LIBGNAT_TARGET_PAIRS) [IA-64/Linux]: Likewise.
8609 (LIBGNAT_TARGET_PAIRS) [IA-64/HP-UX]: Likewise.
8610 (LIBGNAT_TARGET_PAIRS) [RISC-V/Linux]: Likewise.
8611 (LIBGNAT_TARGET_PAIRS) [PowerPC/Darwin]: Likewise.
8612 * exp_attr.adb (Expand_N_Attribute_Reference) [Attribute_Fore]: Use
8613 Fixed suffix and Long_Float type.
8614 * exp_imgv.adb (Expand_Image_Attribute): For floating-point types,
8615 use the routine of the corresponding root type. For ordinary fixed
8616 point types, use Fixed suffix and Long_Float type.
8617 (Expand_Value_Attribute): Revert latest change for Long_Long_Float.
8618 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Remove libgnat units
8619 g-hesora.o and s-imgenu.o, add g-heasor.o, g-table.o and s-pehage.o.
8620 (GNATBIND_OBJS): Remove libgnat unit s-imgenu.o.
8621 * rtsfind.ads (RTU_Id): Add System_Img_Flt, System_Img_LFlt and
8622 System_Img_LLF. Remove System_Img_Real.
8623 (RE_Id): Rename RE_Fore_Real to RE_Fore_Fixed. Add RE_Image_Float,
8624 RE_Image_Long_Float and RE_Image_Long_Long_Float. Rename
8625 RE_Image_Ordinary_Fixed_Point to RE_Image_Fixed.
8626 (RE_Unit_Table): Adjust to above changes.
8627 * libgnat/a-nbnbre.adb (Fixed_Conversions): Use Long_Float instead
8628 of Long_Long_Float.
8629 * libgnat/a-textio.ads (Field): Remove obsolete comment.
8630 * libgnat/a-ticoau.ads (Aux): Adjust ancestor package.
8631 * libgnat/a-ticoau.adb: Remove with/use clause for System.Img_Real.
8632 (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8633 * libgnat/a-ticoio.adb: Add with/use clauses for System.Img_Flt,
8634 System.Img_LFlt and System.Img_LLF.
8635 (Scalar_Float): Add third actual parameter.
8636 (Scalar_Long_Float): Likewise.
8637 (Scalar_Long_Long_Float): Likewise.
8638 * libgnat/a-tifiio.adb: Add with/use clauses for System.Img_LFlt
8639 and System.Val_LFlt. Remove the one for System.Val_LLF. Replace
8640 Long_Long_Float with Long_Float throughout.
8641 * libgnat/a-tifiio__128.adb: Likewise.
8642 * libgnat/a-tiflau.ads: Add Set_Image formal parameter.
8643 * libgnat/a-tiflau.adb: Add with/use clause for System.Img_Util,
8644 remove the one for System.Img_Real.
8645 (Put): Call Set_Image instead of Set_Image_Real.
8646 (Puts): Likewise.
8647 * libgnat/a-tiflio.adb: Add with/use clause for System.Img_Flt,
8648 System.Img_LFlt and System.Img_LLF.
8649 (Aux_Float): Add third actual parameter.
8650 (Aux_Long_Float): Likewise.
8651 (Aux_Long_Long_Float): Likewise.
8652 * libgnat/a-witeio.ads (Field): Remove obsolete comment.
8653 * libgnat/a-wtcoau.ads (Aux): Adjust ancestor package.
8654 * libgnat/a-wtcoau.adb: Remove with/use clause for System.Img_Real.
8655 (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8656 * libgnat/a-wtcoio.adb: Add with/use clauses for System.Img_Flt,
8657 System.Img_LFlt and System.Img_LLF.
8658 (Scalar_Float): Add third actual parameter.
8659 (Scalar_Long_Float): Likewise.
8660 (Scalar_Long_Long_Float): Likewise.
8661 * libgnat/a-wtfiio.adb: Add with/use clauses for System.Img_LFlt
8662 and System.Val_LFlt. Remove the one for System.Val_LLF. Replace
8663 Long_Long_Float with Long_Float throughout.
8664 * libgnat/a-wtfiio__128.adb: Likewise.
8665 * libgnat/a-wtflau.ads: Add Set_Image formal parameter.
8666 * libgnat/a-wtflau.adb: Add with/use clause for System.Img_Util,
8667 remove the one for System.Img_Real.
8668 (Put): Call Set_Image instead of Set_Image_Real.
8669 (Puts): Likewise.
8670 * libgnat/a-wtflio.adb: Add with/use clause for System.Img_Flt,
8671 System.Img_LFlt and System.Img_LLF.
8672 (Aux_Float): Add third actual parameter.
8673 (Aux_Long_Float): Likewise.
8674 (Aux_Long_Long_Float): Likewise.
8675 * libgnat/a-ztexio.ads (Field): Remove obsolete comment.
8676 * libgnat/a-ztcoau.ads (Aux): Adjust ancestor package.
8677 * libgnat/a-ztcoau.adb: Remove with/use clause for System.Img_Real.
8678 (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8679 * libgnat/a-ztcoio.adb: Add with/use clauses for System.Img_Flt,
8680 System.Img_LFlt and System.Img_LLF.
8681 (Scalar_Float): Add third actual parameter.
8682 (Scalar_Long_Float): Likewise.
8683 (Scalar_Long_Long_Float): Likewise.
8684 * libgnat/a-ztfiio.adb: Add with/use clauses for System.Img_LFlt
8685 and System.Val_LFlt. Remove the one for System.Val_LLF. Replace
8686 Long_Long_Float with Long_Float throughout.
8687 * libgnat/a-ztfiio__128.adb: Likewise.
8688 * libgnat/a-ztflau.ads: Add Set_Image formal parameter.
8689 * libgnat/a-ztflau.adb: Add with/use clause for System.Img_Util,
8690 remove the one for System.Img_Real.
8691 (Put): Call Set_Image instead of Set_Image_Real.
8692 (Puts): Likewise.
8693 * libgnat/a-ztflio.adb: Add with/use clause for System.Img_Flt,
8694 System.Img_LFlt and System.Img_LLF.
8695 (Aux_Float): Add third actual parameter.
8696 (Aux_Long_Float): Likewise.
8697 (Aux_Long_Long_Float): Likewise.
8698 * libgnat/s-dorepr.adb: New file.
8699 * libgnat/s-dorepr__fma.adb: Likewise.
8700 * libgnat/s-dourea.ads: Likewise.
8701 * libgnat/s-dourea.adb: Likewise.
8702 * libgnat/s-forrea.ads (Fore_Real): Rename into...
8703 (Fore_Fixed): ...this and take Long_Float parameters.
8704 * libgnat/s-forrea.adb (Fore_Real): Likewise.
8705 (Fore_Fixed): Likewise.
8706 * libgnat/s-imgrea.ads: Move to...
8707 (Set_Image_Real): Turn into mere renaming.
8708 * libgnat/s-imager.ads: ...here.
8709 (Image_Ordinary_Fixed_Point): Turn into...
8710 (Image_Fixed_Point): ...this.
8711 * libgnat/s-imgrea.adb: Add pragma No_Body. Move to...
8712 * libgnat/s-imager.adb: ...here.
8713 (Image_Ordinary_Fixed_Point): Turn into...
8714 (Image_Fixed_Point): ...this.
8715 (Is_Negative): Replace Long_Long_Float with Num.
8716 (Set_Image_Real): Likewise. Use Double_T instead of single Num
8717 throughout the algorithm.
8718 * libgnat/s-imgflt.ads: New file.
8719 * libgnat/s-imglfl.ads: Likewise.
8720 * libgnat/s-imgllf.ads: Likewise.
8721 * libgnat/s-imagef.ads: Adjust comment.
8722 * libgnat/s-imguti.ads (Max_Real_Image_Length): New named number.
8723 * libgnat/s-powflt.ads (Maxpow): Adjust.
8724 (Powten): Turn into an exact table of double Float.
8725 * libgnat/s-powlfl.ads (Maxpow): Adjust.
8726 (Powten): Turn into an exact table of double Long_Float.
8727 * libgnat/s-powllf.ads (Maxpow): Adjust.
8728 (Powten): Turn into an exact table of double Long_Long_Float.
8729 * libgnat/s-valrea.ads: Change order of formal parameters.
8730 * libgnat/s-valrea.adb: Add with clause for System.Double_Real.
8731 (Double_Real): New instantiation.
8732 (Fast2Sum): Delete.
8733 (Large_Powten): New function.
8734 (Integer_to_Real): Use Quick_Two_Sum instead of Fast2Sum. Convert
8735 the value to Double_T. Do the scaling in Double_T for base 10.
8736 * libgnat/s-valflt.ads: Remove with/use clasue for Interfaces,
8737 add it for System.Unsigned_Types. Use Unsigned.
8738 * libgnat/s-vallfl.ads: Remove with/use clasue for Interfaces,
8739 add it for System.Unsigned_Types. Use Long_Unsigned.
8740 * libgnat/s-valllf.ads: Remove with/use clasue for Interfaces,
8741 add it for System.Unsigned_Types. Use Long_Long_Unsigned.
8743 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8745 * sem_eval.adb (Eval_Arithmetic_Op): Call
8746 Set_Raises_Constraint_Error on real division by zero just like
8747 it is called for integer division by zero earlier in this
8748 routine.
8750 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8752 * freeze.adb (Build_Renamed_Body): Simplify IF and WHILE
8753 statements with the same condition.
8755 2021-05-05 Piotr Trojanek <trojanek@adacore.com>
8757 * pprint.adb (Expr_Name): Introduce local constants to make the
8758 code more readable and avoid repeated calls to Next to reach the
8759 ELSE part of an if-expression.
8761 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8763 * pprint.adb: Remove qualification of arbitrary calls to
8764 Sinfo.Expressions and Sinfo.Parameter_Associations.
8766 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8768 * pprint.adb (Expr_Name): Simplify with functional variant of
8769 UI_Image.
8771 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8773 * pprint.adb (To_Mixed): Removed.
8775 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8777 * pprint.adb (List_Name_Count): Change type from Integer to
8778 Natural.
8780 2021-05-04 Yannick Moy <moy@adacore.com>
8782 * pprint.adb (Expression_Image): Special case for
8783 expression-with-actions.
8785 2021-05-04 Bob Duff <duff@adacore.com>
8787 * exp_ch4.adb (Expand_Concatenate): Remove the non-optimization.
8789 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8791 * lib-xref.adb (Generate_Reference_To_Formals): Remove dedicated
8792 branch for generic subprograms (they are now handled together
8793 with non-generic subprograms in the ELSE branch); replace a
8794 low-level Ekind membership test with a high-level call to
8795 Is_Access_Subprogram_Type.
8797 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8799 * sem_ch12.adb (Check_Abstract_Primitives): Match First_Formal
8800 with Next_Formal.
8801 * sem_ch6.adb (Is_Non_Overriding_Operation): Likewise.
8803 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8805 * sem_prag.adb (Collect_Global_Item): Iterate directly over
8806 formals.
8808 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8810 * sem_prag.ads (Collect_Subprogram_Inputs_Outputs): Update
8811 comment; this routine is no longer used by GNATprove.
8812 * sem_prag.adb (Find_Role): The IN parameter is on output only
8813 when it belongs to non-function; also, the otherwise constant
8814 object can only be written by a non-function.
8815 (Collect_Global_Item): The IN parameter can only be written when
8816 it belongs to non-function; also, unnest this check to make it
8817 easier to read.
8819 2021-05-04 Arnaud Charlet <charlet@adacore.com>
8821 * libgnat/s-assert.ads (Assert_Failure): Now a renaming of
8822 Assertion_Error.
8823 * libgnat/a-assert.ads (Assertion_Error): Now a first class
8824 citizen. Remove dependency on System.Assertions.
8825 * gcc-interface/a-assert.ads, gcc-interface/a-assert.adb: New.
8826 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS, GNATBIND_OBJS): Add
8827 a-assert.o from gcc-interface.
8829 2021-05-04 Yannick Moy <moy@adacore.com>
8831 * erroutc.adb (Matches): Move spec...
8832 * erroutc.ads (Matches): ...here.
8834 2021-05-04 Yannick Moy <moy@adacore.com>
8836 * gnat1drv.adb (Adjust_Global_Switches): Force error marker in
8837 GNATprove mode.
8839 2021-05-04 Bob Duff <duff@adacore.com>
8841 * binde.adb: No need for ??? marks in Binde, because it is
8842 superseded by Bindo.
8843 * bindo-writers.adb (Write_Unit_Closure): Verified that -Ra
8844 works.
8845 * exp_ch4.adb, sinfo.ads (Expand_N_Type_Conversion): Rules for
8846 conversions passed to gigi are documented in sinfo.ads.
8847 (Expand_N_Unchecked_Type_Conversion): Comment is a duplicate of
8848 one in sinfo.ads.
8849 (Expand_N_In): Robert already added sufficient comments years
8850 after the ??? comment was inserted.
8851 (Expand_Membership_Minimize_Eliminate_Overflow): I don't see any
8852 reason why Stand should export Long_Long_Integer'Base -- it
8853 doesn't export any other base types.
8854 (Size_In_Storage_Elements): We are doing an allocator, so we
8855 don't care about sizes in bits.
8856 (Expand_N_Allocator): PolyORB isn't going to be significantly
8857 improved, so we're not going to mess with remote access to
8858 class-wide types.
8859 (Optimize_Return_Stmt): It's not important to optimize return
8860 statements in predicate functions -- there are many
8861 more-important optimizations we could do. Keep part of the
8862 comment without "???", to clarify why the "and then ...".
8863 (User_Defined_Primitive_Equality_Op): The optimization doesn't
8864 seem important enough.
8865 (Expand_N_Unchecked_Type_Conversion): Refactor to use
8866 Expand_N_Unchecked_Expression.
8867 (Make_Array_Comparison_Op): This seems like a case of "it it's
8868 not broken, don't fix it". Too much risk of causing bugs.
8869 * debug_a.adb: Remove ??? comments asking why Current_Error_Node
8870 is maintained unconditionally, and add a comment explaining why.
8871 * errout.adb: These kinds of minor bugs do indeed exist, but
8872 we're never going to get around to fixing them "properly", so we
8873 need this code for robustness.
8874 * gnatchop.adb (Read_File): Document when read can fail.
8875 * gnatdll.adb (Parse_Command_Line): Nobody is complaining about
8876 these arbitrary limits, so no need to use Table. Increase the
8877 limits just in case. It is clear from the names what they are
8878 limits on.
8879 * gnatlink.adb: Add needed comments.
8880 (Delete): An existing comment makes clear it's intentional, and
8881 it's been like that since 1996.
8882 (Process_Args): Improve comments.
8883 (Search_Library_Path): Refactoring to avoid deep nesting.
8884 * inline.adb (Build_Body_To_Inline): Probably won't get around
8885 to doing that optimization.
8886 (Is_Unit_Subprogram): No, this should not be moved to Sem_Aux,
8887 because it is too specialized to this context.
8888 (Do_Reset): No comment is needed here; it's clear from the
8889 comment on Reset_Dispatching_Calls. Do_Reset is an artificial
8890 subprogram; if we had proper iterators, it would just be an if
8891 statement in the loop.
8892 (Rewrite_Function_Call): Probably won't get around to doing that
8893 optimization.
8894 * layout.adb (Layout_Type): The gigi comment doesn't need to be
8895 a ??? comment, and it's been that way since 2000. The
8896 limitation to scalars will likely never be investigated, and
8897 it's been that way since 2009.
8898 * lib.adb (Check_Same_Extended_Unit): This doesn't look like
8899 something that needs fixing; it looks like a permanent
8900 workaround.
8901 * lib-load.adb (Change_Main_Unit_To_Spec): It is good enough in
8902 practice.
8903 (Load_Unit): Nobody will ever get around to investigating the
8904 obscure PMES oddity, and the optimization is not worth the
8905 trouble.
8906 * live.adb: It's not worth documenting this. It is used only
8907 with a debug switch. Nobody who has done significant work on it
8908 is still around, so it would require substantial investigation.
8909 * mdll.ads: I see no reason for USE.
8910 * namet.ads: Routines are obsolete, but they're not going
8911 anywhere anytime soon (too much work, and surprisingly delicate
8912 because of dependences on global variables).
8913 * osint.ads: Minor.
8914 * osint.adb: Improve comments.
8915 (Full_Lib_File_Name): Use Smart_Find_File.
8917 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8919 * exp_prag.adb, sem_prag.adb: Replace low-level Ekind membership
8920 tests with a high-level call to Is_Formal_Object.
8922 2021-05-04 Arnaud Charlet <charlet@adacore.com>
8924 * cstand.adb, sprint.adb, switch-c.adb, xr_tabls.ads,
8925 xr_tabls.adb, xref_lib.adb: Address ??? comments.
8927 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8929 * sem_prag.adb (Analyze_Global_Item): Take subprogram kind into
8930 account when accepting or rejecting a constant of an
8931 access-to-variable type as a global Output/In_Out; do this check
8932 inside an ELSIF branch to avoid unnecessary evaluation of the
8933 subsequent condition.
8935 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8937 * sem_prag.adb (Role_Error, Usage_Error): Replace calls to
8938 Name_Find and Get_Name_String with a call to To_String.
8940 2021-05-04 Ed Schonberg <schonberg@adacore.com>
8942 * exp_aggr.adb (Build_Siz_Exp): new function, subsidiary of
8943 Expand_Container_Aggregate, to create an expression to be used
8944 in the dynamic allocation of a container with a single container
8945 element association.
8946 (Add_Range): Handle static bounds of ranges over enumerations.
8947 (Expand_Container_Aggregate): Add declaration for size
8948 expression when needed, and use it in container object
8949 declaration for container.
8951 2021-05-04 Arnaud Charlet <charlet@adacore.com>
8953 * exp_ch7.adb (Build_Finalizer_Helper.New_Finalizer_Name):
8954 Unnest so that it can be reused.
8955 (Build_Finalizer_Helper.Process_Declarations): Call the
8956 xxx__finalize_body procedure of a package instantiation in case
8957 it contains finalization statements. Code clean ups.
8958 (Build_Finalizer_Helper.Create_Finalizer): Export and set an
8959 Interface_Name for library level finalizers since these may be
8960 imported now.
8961 (Build_Finalizer_Helper): Need to process library level package
8962 body instantiations which may contain objects requiring
8963 finalization.
8964 * libgnat/s-finmas.ads: Fix typo.
8966 2021-05-04 Arnaud Charlet <charlet@adacore.com>
8968 * checks.adb (Append_Range_Checks, Apply_Selected_Length_Checks,
8969 Determine_Range, Insert_Range_Checks,
8970 Install_Null_Excluding_Check, Selected_Length_Checks,
8971 Selected_Range_Checks): Address ??? comments and code cleanups.
8973 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8975 * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8976 Apply the rule even with no explicit Global contract (and remove
8977 a dead condition for Refined_Global).
8979 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8981 * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8982 Extend check to protected entries.
8984 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
8986 * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8987 Fix reference to SPARK RM rule number.
8989 2021-05-04 Eric Botcazou <ebotcazou@adacore.com>
8991 * exp_intr.adb: Remove with/use clauses for Urealp.
8992 (Expand_Is_Negative): Delete.
8993 (Expand_Intrinsic_Call): Do not call it.
8994 * rtsfind.ads (RE_Id): Remove RE_Float_Unsigned.
8995 (RE_Unit_Table): Remove entry for RE_Float_Unsigned.
8996 * snames.ads-tmpl (Name_Is_Negative): Delete.
8997 * libgnat/s-imgrea.ads (Set_Image_Real): Fix mode of S parameter.
8998 * libgnat/s-imgrea.adb: Add with/use clauses for System.Img_Util.
8999 (LLU): New subtype.
9000 (Maxdigs): Use it.
9001 (Is_Negative): Reimplement.
9002 (Image_Floating_Point): Simplify.
9003 (Set_Image_Real): Fix mode of S parameter. Remove the low-level
9004 processing on characters. Flip the sign of the Scale variable.
9005 Compute the maximum number of digits for the straight notation.
9006 Call Set_Decimal_Digits at the end to do the final formatting.
9007 * libgnat/s-imguti.ads (Floating_Invalid_Value): New type.
9008 (Set_Floating_Invalid_Value): New procedure.
9009 * libgnat/s-imguti.adb (Set_Floating_Invalid_Value): Implement it
9010 based on existing code from Set_Image_Real.
9011 * libgnat/s-unstyp.ads (Float_Unsigned): Delete.
9013 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
9015 * csets.adb (Initialize): Refactor into CASE statement; raise
9016 exception on unsupported code of character set (it will be
9017 gently rejected earlier when scanning command line switches).
9018 * switch-b.adb (Scan_Binder_Switches): Refactor into a
9019 membership expression; add missing '9' choice; reorder as
9020 described by GNAT UG, section 4.3.11.
9021 * switch-c.adb (Scan_Front_End_Switches): Refactor into a
9022 membership expression and reorder as above.
9023 * doc/gnat_ugn/building_executable_programs_with_gnat.rst
9024 (gnatic): Mention '5' as an allowed value for "c".
9025 * gnat_ugn.texi: Regenerate.
9027 2021-05-04 Piotr Trojanek <trojanek@adacore.com>
9029 * errout.adb (Error_Msg_Internal): Add assertion to prevent
9030 style mistakes reappearing in the future.
9032 2021-05-04 Javier Miranda <miranda@adacore.com>
9034 * exp_ch4.adb (Tagged_Membership): Remove wrong condition that
9035 is not consistent with the documentation of this subprogram.
9037 2021-05-04 Yannick Moy <moy@adacore.com>
9039 * sem_res.adb (Valid_Conversion): Make message a continuation.
9041 2021-05-04 Arnaud Charlet <charlet@adacore.com>
9043 * styleg.adb: Address ??? comments.
9045 2021-05-03 Arnaud Charlet <charlet@adacore.com>
9047 * libgnat/a-stunau.ads, libgnat/a-stunau.adb,
9048 libgnat/a-stunau__shared.adb (Set_String): Remove old version,
9049 replace by a new version taking a callback to set the string.
9051 2021-05-03 Arnaud Charlet <charlet@adacore.com>
9053 * libgnat/a-coorma.ads (Map): Add missing
9054 Preelaborate_Initialization.
9056 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9058 * exp_ch4.adb (Analyze_Number_Declaration, Expand_N_Op_Expon):
9059 Simplify with Is_Universal_Numeric_Type.
9060 * sem_attr.adb (Resolve_Attribute): Likewise.
9061 * sem_ch3.adb: Likewise.
9062 * sem_ch4.adb (Check_Common_Type, Check_Arithmetic_Pair):
9063 Likewise.
9064 * sem_eval.adb (Eval_Unary_Op, Test_In_Range): Likewise.
9065 * sem_res.adb (Resolve_Arithmetic_Op, Resolve_Membership_Op,
9066 Resolve_Op_Expon, Resolve_Unary_Op, Set_Mixed_Mode_Operand,
9067 Set_Operand_Type): Likewise.
9068 * sem_type.adb (Disambiguate, Find_Unique_Type): Likewise.
9069 * sem_util.adb (Universal_Interpretation): Likewise.
9071 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9073 * exp_aggr.adb (Max_Aggregate_Size): Add header boxes for nested
9074 routines; move a local constant after nested subprogram bodies;
9075 refill comment.
9077 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9079 * sem_attr.adb (Analyze_Attribute): Reuse Resolve with implicit
9080 type when analysing attribute Priority.
9081 * sem_ch5.adb (Analyze_Case_Statement): Likewise for a rare case
9082 in analysis of case statements.
9083 (Analyze_Iterator_Specification): Likewise for non-overloaded
9084 domain of iteration.
9086 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9088 * einfo.adb (Write_Entity_Info): Simplify an Ekind membership
9089 test.
9090 * exp_aggr.adb (Is_CCG_Supported_Aggregate): Likewise.
9092 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9094 * exp_ch7.adb (Build_Finalize_Statements): Refine type of a
9095 local counter variable.
9096 * exp_dist.adb (Append_Record_Traversal): Refine type of Counter
9097 parameter.
9098 (Add_Process_Element): Likewise.
9099 (Build_From_Any_Call): Refine type of a local counter variable.
9100 (Build_From_Any_Function): Likewise.
9101 (Build_To_Any_Function): Likewise.
9102 (FA_Rec_Add_Process_Element): Likewise.
9103 (TA_Append_Record_Traversal): Likewise.
9104 (TA_Rec_Add_Process_Element): Likewise.
9106 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
9108 * rtsfind.adb (SPARK_Implicit_Load): Simplify with Discard_Node.
9110 2021-05-03 Arnaud Charlet <charlet@adacore.com>
9112 * Makefile.rtl: Update copyright notice.
9113 * ada_get_targ.adb: Likewise.
9114 * adabkend.adb: Likewise.
9115 * adabkend.ads: Likewise.
9116 * adadecode.c: Likewise.
9117 * adadecode.h: Likewise.
9118 * adaint.c: Likewise.
9119 * adaint.h: Likewise.
9120 * affinity.c: Likewise.
9121 * ali-util.adb: Likewise.
9122 * ali-util.ads: Likewise.
9123 * ali.adb: Likewise.
9124 * ali.ads: Likewise.
9125 * alloc.ads: Likewise.
9126 * argv-lynxos178-raven-cert.c: Likewise.
9127 * argv.c: Likewise.
9128 * aspects.adb: Likewise.
9129 * aspects.ads: Likewise.
9130 * atree.adb: Likewise.
9131 * atree.ads: Likewise.
9132 * atree.h: Likewise.
9133 * aux-io.c: Likewise.
9134 * back_end.adb: Likewise.
9135 * back_end.ads: Likewise.
9136 * bcheck.adb: Likewise.
9137 * bcheck.ads: Likewise.
9138 * binde.adb: Likewise.
9139 * binde.ads: Likewise.
9140 * binderr.adb: Likewise.
9141 * binderr.ads: Likewise.
9142 * bindgen.adb: Likewise.
9143 * bindgen.ads: Likewise.
9144 * bindo-augmentors.adb: Likewise.
9145 * bindo-augmentors.ads: Likewise.
9146 * bindo-builders.adb: Likewise.
9147 * bindo-builders.ads: Likewise.
9148 * bindo-diagnostics.adb: Likewise.
9149 * bindo-diagnostics.ads: Likewise.
9150 * bindo-elaborators.adb: Likewise.
9151 * bindo-elaborators.ads: Likewise.
9152 * bindo-graphs.adb: Likewise.
9153 * bindo-graphs.ads: Likewise.
9154 * bindo-units.adb: Likewise.
9155 * bindo-units.ads: Likewise.
9156 * bindo-validators.adb: Likewise.
9157 * bindo-validators.ads: Likewise.
9158 * bindo-writers.adb: Likewise.
9159 * bindo-writers.ads: Likewise.
9160 * bindo.adb: Likewise.
9161 * bindo.ads: Likewise.
9162 * bindusg.adb: Likewise.
9163 * bindusg.ads: Likewise.
9164 * butil.adb: Likewise.
9165 * butil.ads: Likewise.
9166 * cal.c: Likewise.
9167 * casing.adb: Likewise.
9168 * casing.ads: Likewise.
9169 * ceinfo.adb: Likewise.
9170 * checks.adb: Likewise.
9171 * checks.ads: Likewise.
9172 * cio.c: Likewise.
9173 * clean.adb: Likewise.
9174 * clean.ads: Likewise.
9175 * comperr.adb: Likewise.
9176 * comperr.ads: Likewise.
9177 * contracts.adb: Likewise.
9178 * contracts.ads: Likewise.
9179 * csets.adb: Likewise.
9180 * csets.ads: Likewise.
9181 * csinfo.adb: Likewise.
9182 * cstand.adb: Likewise.
9183 * cstand.ads: Likewise.
9184 * cstreams.c: Likewise.
9185 * ctrl_c.c: Likewise.
9186 * debug.adb: Likewise.
9187 * debug.ads: Likewise.
9188 * debug_a.adb: Likewise.
9189 * debug_a.ads: Likewise.
9190 * einfo.adb: Likewise.
9191 * einfo.ads: Likewise.
9192 * elists.adb: Likewise.
9193 * elists.ads: Likewise.
9194 * elists.h: Likewise.
9195 * env.c: Likewise.
9196 * env.h: Likewise.
9197 * err_vars.ads: Likewise.
9198 * errno.c: Likewise.
9199 * errout.adb: Likewise.
9200 * errout.ads: Likewise.
9201 * erroutc.adb: Likewise.
9202 * erroutc.ads: Likewise.
9203 * errutil.adb: Likewise.
9204 * errutil.ads: Likewise.
9205 * eval_fat.adb: Likewise.
9206 * eval_fat.ads: Likewise.
9207 * exit.c: Likewise.
9208 * exp_aggr.adb: Likewise.
9209 * exp_aggr.ads: Likewise.
9210 * exp_atag.adb: Likewise.
9211 * exp_atag.ads: Likewise.
9212 * exp_attr.adb: Likewise.
9213 * exp_attr.ads: Likewise.
9214 * exp_cg.adb: Likewise.
9215 * exp_cg.ads: Likewise.
9216 * exp_ch10.ads: Likewise.
9217 * exp_ch11.adb: Likewise.
9218 * exp_ch11.ads: Likewise.
9219 * exp_ch12.adb: Likewise.
9220 * exp_ch12.ads: Likewise.
9221 * exp_ch13.adb: Likewise.
9222 * exp_ch13.ads: Likewise.
9223 * exp_ch2.adb: Likewise.
9224 * exp_ch2.ads: Likewise.
9225 * exp_ch3.adb: Likewise.
9226 * exp_ch3.ads: Likewise.
9227 * exp_ch4.adb: Likewise.
9228 * exp_ch4.ads: Likewise.
9229 * exp_ch5.adb: Likewise.
9230 * exp_ch5.ads: Likewise.
9231 * exp_ch6.adb: Likewise.
9232 * exp_ch6.ads: Likewise.
9233 * exp_ch7.adb: Likewise.
9234 * exp_ch7.ads: Likewise.
9235 * exp_ch8.adb: Likewise.
9236 * exp_ch8.ads: Likewise.
9237 * exp_ch9.adb: Likewise.
9238 * exp_ch9.ads: Likewise.
9239 * exp_code.adb: Likewise.
9240 * exp_code.ads: Likewise.
9241 * exp_dbug.adb: Likewise.
9242 * exp_dbug.ads: Likewise.
9243 * exp_disp.adb: Likewise.
9244 * exp_disp.ads: Likewise.
9245 * exp_dist.adb: Likewise.
9246 * exp_dist.ads: Likewise.
9247 * exp_fixd.adb: Likewise.
9248 * exp_fixd.ads: Likewise.
9249 * exp_imgv.adb: Likewise.
9250 * exp_imgv.ads: Likewise.
9251 * exp_intr.adb: Likewise.
9252 * exp_intr.ads: Likewise.
9253 * exp_pakd.adb: Likewise.
9254 * exp_pakd.ads: Likewise.
9255 * exp_prag.adb: Likewise.
9256 * exp_prag.ads: Likewise.
9257 * exp_put_image.adb: Likewise.
9258 * exp_put_image.ads: Likewise.
9259 * exp_sel.adb: Likewise.
9260 * exp_sel.ads: Likewise.
9261 * exp_smem.adb: Likewise.
9262 * exp_smem.ads: Likewise.
9263 * exp_spark.adb: Likewise.
9264 * exp_spark.ads: Likewise.
9265 * exp_strm.adb: Likewise.
9266 * exp_strm.ads: Likewise.
9267 * exp_tss.adb: Likewise.
9268 * exp_tss.ads: Likewise.
9269 * exp_unst.adb: Likewise.
9270 * exp_unst.ads: Likewise.
9271 * exp_util.adb: Likewise.
9272 * exp_util.ads: Likewise.
9273 * expander.adb: Likewise.
9274 * expander.ads: Likewise.
9275 * expect.c: Likewise.
9276 * fe.h: Likewise.
9277 * final.c: Likewise.
9278 * fmap.adb: Likewise.
9279 * fmap.ads: Likewise.
9280 * fname-sf.adb: Likewise.
9281 * fname-sf.ads: Likewise.
9282 * fname-uf.adb: Likewise.
9283 * fname-uf.ads: Likewise.
9284 * fname.adb: Likewise.
9285 * fname.ads: Likewise.
9286 * freeze.adb: Likewise.
9287 * freeze.ads: Likewise.
9288 * frontend.adb: Likewise.
9289 * frontend.ads: Likewise.
9290 * gcc-interface/ada-tree.h: Likewise.
9291 * gcc-interface/ada.h: Likewise.
9292 * gcc-interface/cuintp.c: Likewise.
9293 * gcc-interface/decl.c: Likewise.
9294 * gcc-interface/gadaint.h: Likewise.
9295 * gcc-interface/gigi.h: Likewise.
9296 * gcc-interface/lang-specs.h: Likewise.
9297 * gcc-interface/misc.c: Likewise.
9298 * gcc-interface/system.ads: Likewise.
9299 * gcc-interface/targtyps.c: Likewise.
9300 * gcc-interface/trans.c: Likewise.
9301 * gcc-interface/utils.c: Likewise.
9302 * gcc-interface/utils2.c: Likewise.
9303 * get_scos.adb: Likewise.
9304 * get_scos.ads: Likewise.
9305 * get_targ.adb: Likewise.
9306 * get_targ.ads: Likewise.
9307 * ghost.adb: Likewise.
9308 * ghost.ads: Likewise.
9309 * gnat1drv.adb: Likewise.
9310 * gnat1drv.ads: Likewise.
9311 * gnat_cuda.adb: Likewise.
9312 * gnat_cuda.ads: Likewise.
9313 * gnatbind.adb: Likewise.
9314 * gnatbind.ads: Likewise.
9315 * gnatchop.adb: Likewise.
9316 * gnatclean.adb: Likewise.
9317 * gnatcmd.adb: Likewise.
9318 * gnatcmd.ads: Likewise.
9319 * gnatdll.adb: Likewise.
9320 * gnatfind.adb: Likewise.
9321 * gnatkr.adb: Likewise.
9322 * gnatkr.ads: Likewise.
9323 * gnatlink.adb: Likewise.
9324 * gnatlink.ads: Likewise.
9325 * gnatls.adb: Likewise.
9326 * gnatls.ads: Likewise.
9327 * gnatmake.adb: Likewise.
9328 * gnatmake.ads: Likewise.
9329 * gnatname.adb: Likewise.
9330 * gnatname.ads: Likewise.
9331 * gnatprep.adb: Likewise.
9332 * gnatprep.ads: Likewise.
9333 * gnatvsn.adb: Likewise.
9334 * gnatvsn.ads: Likewise.
9335 * gnatxref.adb: Likewise.
9336 * gprep.adb: Likewise.
9337 * gprep.ads: Likewise.
9338 * gsocket.h: Likewise.
9339 * hostparm.ads: Likewise.
9340 * impunit.adb: Likewise.
9341 * impunit.ads: Likewise.
9342 * indepsw-aix.adb: Likewise.
9343 * indepsw-darwin.adb: Likewise.
9344 * indepsw-gnu.adb: Likewise.
9345 * indepsw.adb: Likewise.
9346 * indepsw.ads: Likewise.
9347 * init.c: Likewise.
9348 * initialize.c: Likewise.
9349 * inline.adb: Likewise.
9350 * inline.ads: Likewise.
9351 * itypes.adb: Likewise.
9352 * itypes.ads: Likewise.
9353 * krunch.adb: Likewise.
9354 * krunch.ads: Likewise.
9355 * layout.adb: Likewise.
9356 * layout.ads: Likewise.
9357 * lib-list.adb: Likewise.
9358 * lib-load.adb: Likewise.
9359 * lib-load.ads: Likewise.
9360 * lib-sort.adb: Likewise.
9361 * lib-util.adb: Likewise.
9362 * lib-util.ads: Likewise.
9363 * lib-writ.adb: Likewise.
9364 * lib-writ.ads: Likewise.
9365 * lib-xref-spark_specific.adb: Likewise.
9366 * lib-xref.adb: Likewise.
9367 * lib-xref.ads: Likewise.
9368 * lib.adb: Likewise.
9369 * lib.ads: Likewise.
9370 * libgnarl/a-astaco.adb: Likewise.
9371 * libgnarl/a-dispat.adb: Likewise.
9372 * libgnarl/a-dynpri.adb: Likewise.
9373 * libgnarl/a-etgrbu.ads: Likewise.
9374 * libgnarl/a-exetim__darwin.adb: Likewise.
9375 * libgnarl/a-exetim__default.ads: Likewise.
9376 * libgnarl/a-exetim__mingw.adb: Likewise.
9377 * libgnarl/a-exetim__mingw.ads: Likewise.
9378 * libgnarl/a-exetim__posix.adb: Likewise.
9379 * libgnarl/a-interr.adb: Likewise.
9380 * libgnarl/a-interr.ads: Likewise.
9381 * libgnarl/a-intnam.ads: Likewise.
9382 * libgnarl/a-intnam__aix.ads: Likewise.
9383 * libgnarl/a-intnam__darwin.ads: Likewise.
9384 * libgnarl/a-intnam__dragonfly.ads: Likewise.
9385 * libgnarl/a-intnam__dummy.ads: Likewise.
9386 * libgnarl/a-intnam__freebsd.ads: Likewise.
9387 * libgnarl/a-intnam__hpux.ads: Likewise.
9388 * libgnarl/a-intnam__linux.ads: Likewise.
9389 * libgnarl/a-intnam__lynxos.ads: Likewise.
9390 * libgnarl/a-intnam__mingw.ads: Likewise.
9391 * libgnarl/a-intnam__qnx.ads: Likewise.
9392 * libgnarl/a-intnam__rtems.ads: Likewise.
9393 * libgnarl/a-intnam__solaris.ads: Likewise.
9394 * libgnarl/a-intnam__vxworks.ads: Likewise.
9395 * libgnarl/a-reatim.adb: Likewise.
9396 * libgnarl/a-reatim.ads: Likewise.
9397 * libgnarl/a-retide.adb: Likewise.
9398 * libgnarl/a-retide.ads: Likewise.
9399 * libgnarl/a-rttiev.adb: Likewise.
9400 * libgnarl/a-rttiev.ads: Likewise.
9401 * libgnarl/a-synbar.adb: Likewise.
9402 * libgnarl/a-synbar.ads: Likewise.
9403 * libgnarl/a-synbar__posix.adb: Likewise.
9404 * libgnarl/a-synbar__posix.ads: Likewise.
9405 * libgnarl/a-sytaco.adb: Likewise.
9406 * libgnarl/a-sytaco.ads: Likewise.
9407 * libgnarl/a-tasatt.adb: Likewise.
9408 * libgnarl/a-tasatt.ads: Likewise.
9409 * libgnarl/a-taside.adb: Likewise.
9410 * libgnarl/a-taside.ads: Likewise.
9411 * libgnarl/a-tasini.adb: Likewise.
9412 * libgnarl/a-tasini.ads: Likewise.
9413 * libgnarl/a-taster.adb: Likewise.
9414 * libgnarl/g-boubuf.adb: Likewise.
9415 * libgnarl/g-boubuf.ads: Likewise.
9416 * libgnarl/g-boumai.ads: Likewise.
9417 * libgnarl/g-semaph.adb: Likewise.
9418 * libgnarl/g-semaph.ads: Likewise.
9419 * libgnarl/g-signal.adb: Likewise.
9420 * libgnarl/g-signal.ads: Likewise.
9421 * libgnarl/g-tastus.ads: Likewise.
9422 * libgnarl/g-thread.adb: Likewise.
9423 * libgnarl/g-thread.ads: Likewise.
9424 * libgnarl/i-vxinco.adb: Likewise.
9425 * libgnarl/i-vxinco.ads: Likewise.
9426 * libgnarl/s-inmaop.ads: Likewise.
9427 * libgnarl/s-inmaop__dummy.adb: Likewise.
9428 * libgnarl/s-inmaop__posix.adb: Likewise.
9429 * libgnarl/s-inmaop__vxworks.adb: Likewise.
9430 * libgnarl/s-interr.adb: Likewise.
9431 * libgnarl/s-interr.ads: Likewise.
9432 * libgnarl/s-interr__dummy.adb: Likewise.
9433 * libgnarl/s-interr__hwint.adb: Likewise.
9434 * libgnarl/s-interr__sigaction.adb: Likewise.
9435 * libgnarl/s-interr__vxworks.adb: Likewise.
9436 * libgnarl/s-intman.ads: Likewise.
9437 * libgnarl/s-intman__android.adb: Likewise.
9438 * libgnarl/s-intman__dummy.adb: Likewise.
9439 * libgnarl/s-intman__lynxos.adb: Likewise.
9440 * libgnarl/s-intman__mingw.adb: Likewise.
9441 * libgnarl/s-intman__posix.adb: Likewise.
9442 * libgnarl/s-intman__qnx.adb: Likewise.
9443 * libgnarl/s-intman__solaris.adb: Likewise.
9444 * libgnarl/s-intman__susv3.adb: Likewise.
9445 * libgnarl/s-intman__vxworks.adb: Likewise.
9446 * libgnarl/s-intman__vxworks.ads: Likewise.
9447 * libgnarl/s-linux.ads: Likewise.
9448 * libgnarl/s-linux__alpha.ads: Likewise.
9449 * libgnarl/s-linux__android.ads: Likewise.
9450 * libgnarl/s-linux__hppa.ads: Likewise.
9451 * libgnarl/s-linux__mips.ads: Likewise.
9452 * libgnarl/s-linux__riscv.ads: Likewise.
9453 * libgnarl/s-linux__sparc.ads: Likewise.
9454 * libgnarl/s-linux__x32.ads: Likewise.
9455 * libgnarl/s-mudido.adb: Likewise.
9456 * libgnarl/s-mudido__affinity.adb: Likewise.
9457 * libgnarl/s-osinte__aix.adb: Likewise.
9458 * libgnarl/s-osinte__aix.ads: Likewise.
9459 * libgnarl/s-osinte__android.adb: Likewise.
9460 * libgnarl/s-osinte__android.ads: Likewise.
9461 * libgnarl/s-osinte__darwin.adb: Likewise.
9462 * libgnarl/s-osinte__darwin.ads: Likewise.
9463 * libgnarl/s-osinte__dragonfly.adb: Likewise.
9464 * libgnarl/s-osinte__dragonfly.ads: Likewise.
9465 * libgnarl/s-osinte__dummy.ads: Likewise.
9466 * libgnarl/s-osinte__freebsd.adb: Likewise.
9467 * libgnarl/s-osinte__freebsd.ads: Likewise.
9468 * libgnarl/s-osinte__gnu.adb: Likewise.
9469 * libgnarl/s-osinte__gnu.ads: Likewise.
9470 * libgnarl/s-osinte__hpux-dce.adb: Likewise.
9471 * libgnarl/s-osinte__hpux-dce.ads: Likewise.
9472 * libgnarl/s-osinte__hpux.ads: Likewise.
9473 * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
9474 * libgnarl/s-osinte__linux.ads: Likewise.
9475 * libgnarl/s-osinte__lynxos178.adb: Likewise.
9476 * libgnarl/s-osinte__lynxos178e.ads: Likewise.
9477 * libgnarl/s-osinte__mingw.ads: Likewise.
9478 * libgnarl/s-osinte__posix.adb: Likewise.
9479 * libgnarl/s-osinte__qnx.adb: Likewise.
9480 * libgnarl/s-osinte__qnx.ads: Likewise.
9481 * libgnarl/s-osinte__rtems.adb: Likewise.
9482 * libgnarl/s-osinte__rtems.ads: Likewise.
9483 * libgnarl/s-osinte__solaris.adb: Likewise.
9484 * libgnarl/s-osinte__solaris.ads: Likewise.
9485 * libgnarl/s-osinte__vxworks.adb: Likewise.
9486 * libgnarl/s-osinte__vxworks.ads: Likewise.
9487 * libgnarl/s-osinte__x32.adb: Likewise.
9488 * libgnarl/s-proinf.adb: Likewise.
9489 * libgnarl/s-proinf.ads: Likewise.
9490 * libgnarl/s-qnx.ads: Likewise.
9491 * libgnarl/s-solita.adb: Likewise.
9492 * libgnarl/s-solita.ads: Likewise.
9493 * libgnarl/s-stusta.adb: Likewise.
9494 * libgnarl/s-stusta.ads: Likewise.
9495 * libgnarl/s-taasde.adb: Likewise.
9496 * libgnarl/s-taasde.ads: Likewise.
9497 * libgnarl/s-tadeca.adb: Likewise.
9498 * libgnarl/s-tadeca.ads: Likewise.
9499 * libgnarl/s-tadert.adb: Likewise.
9500 * libgnarl/s-tadert.ads: Likewise.
9501 * libgnarl/s-taenca.adb: Likewise.
9502 * libgnarl/s-taenca.ads: Likewise.
9503 * libgnarl/s-taprob.adb: Likewise.
9504 * libgnarl/s-taprob.ads: Likewise.
9505 * libgnarl/s-taprop.ads: Likewise.
9506 * libgnarl/s-taprop__dummy.adb: Likewise.
9507 * libgnarl/s-taprop__hpux-dce.adb: Likewise.
9508 * libgnarl/s-taprop__linux.adb: Likewise.
9509 * libgnarl/s-taprop__mingw.adb: Likewise.
9510 * libgnarl/s-taprop__posix.adb: Likewise.
9511 * libgnarl/s-taprop__qnx.adb: Likewise.
9512 * libgnarl/s-taprop__solaris.adb: Likewise.
9513 * libgnarl/s-taprop__vxworks.adb: Likewise.
9514 * libgnarl/s-tarest.adb: Likewise.
9515 * libgnarl/s-tarest.ads: Likewise.
9516 * libgnarl/s-tasdeb.adb: Likewise.
9517 * libgnarl/s-tasdeb.ads: Likewise.
9518 * libgnarl/s-tasinf.adb: Likewise.
9519 * libgnarl/s-tasinf.ads: Likewise.
9520 * libgnarl/s-tasinf__linux.adb: Likewise.
9521 * libgnarl/s-tasinf__linux.ads: Likewise.
9522 * libgnarl/s-tasinf__mingw.adb: Likewise.
9523 * libgnarl/s-tasinf__mingw.ads: Likewise.
9524 * libgnarl/s-tasinf__solaris.adb: Likewise.
9525 * libgnarl/s-tasinf__solaris.ads: Likewise.
9526 * libgnarl/s-tasinf__vxworks.ads: Likewise.
9527 * libgnarl/s-tasini.adb: Likewise.
9528 * libgnarl/s-tasini.ads: Likewise.
9529 * libgnarl/s-taskin.adb: Likewise.
9530 * libgnarl/s-taskin.ads: Likewise.
9531 * libgnarl/s-taspri__dummy.ads: Likewise.
9532 * libgnarl/s-taspri__hpux-dce.ads: Likewise.
9533 * libgnarl/s-taspri__lynxos.ads: Likewise.
9534 * libgnarl/s-taspri__mingw.ads: Likewise.
9535 * libgnarl/s-taspri__posix-noaltstack.ads: Likewise.
9536 * libgnarl/s-taspri__posix.ads: Likewise.
9537 * libgnarl/s-taspri__solaris.ads: Likewise.
9538 * libgnarl/s-taspri__vxworks.ads: Likewise.
9539 * libgnarl/s-tasque.adb: Likewise.
9540 * libgnarl/s-tasque.ads: Likewise.
9541 * libgnarl/s-tasren.adb: Likewise.
9542 * libgnarl/s-tasren.ads: Likewise.
9543 * libgnarl/s-tasres.ads: Likewise.
9544 * libgnarl/s-tassta.adb: Likewise.
9545 * libgnarl/s-tassta.ads: Likewise.
9546 * libgnarl/s-tasuti.adb: Likewise.
9547 * libgnarl/s-tasuti.ads: Likewise.
9548 * libgnarl/s-tataat.adb: Likewise.
9549 * libgnarl/s-tataat.ads: Likewise.
9550 * libgnarl/s-tpinop.adb: Likewise.
9551 * libgnarl/s-tpinop.ads: Likewise.
9552 * libgnarl/s-tpoaal.adb: Likewise.
9553 * libgnarl/s-tpoben.adb: Likewise.
9554 * libgnarl/s-tpoben.ads: Likewise.
9555 * libgnarl/s-tpobmu.adb: Likewise.
9556 * libgnarl/s-tpobmu.ads: Likewise.
9557 * libgnarl/s-tpobop.adb: Likewise.
9558 * libgnarl/s-tpobop.ads: Likewise.
9559 * libgnarl/s-tpopmo.adb: Likewise.
9560 * libgnarl/s-tpopsp__posix-foreign.adb: Likewise.
9561 * libgnarl/s-tpopsp__posix.adb: Likewise.
9562 * libgnarl/s-tpopsp__solaris.adb: Likewise.
9563 * libgnarl/s-tpopsp__tls.adb: Likewise.
9564 * libgnarl/s-tpopsp__vxworks-rtp.adb: Likewise.
9565 * libgnarl/s-tpopsp__vxworks-tls.adb: Likewise.
9566 * libgnarl/s-tpopsp__vxworks.adb: Likewise.
9567 * libgnarl/s-tporft.adb: Likewise.
9568 * libgnarl/s-tposen.adb: Likewise.
9569 * libgnarl/s-tposen.ads: Likewise.
9570 * libgnarl/s-vxwext.adb: Likewise.
9571 * libgnarl/s-vxwext.ads: Likewise.
9572 * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
9573 * libgnarl/s-vxwext__kernel.adb: Likewise.
9574 * libgnarl/s-vxwext__kernel.ads: Likewise.
9575 * libgnarl/s-vxwext__noints.adb: Likewise.
9576 * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
9577 * libgnarl/s-vxwext__rtp.adb: Likewise.
9578 * libgnarl/s-vxwext__rtp.ads: Likewise.
9579 * libgnarl/s-vxwext__vthreads.ads: Likewise.
9580 * libgnarl/s-vxwork__aarch64.ads: Likewise.
9581 * libgnarl/s-vxwork__arm.ads: Likewise.
9582 * libgnarl/s-vxwork__ppc.ads: Likewise.
9583 * libgnarl/s-vxwork__x86.ads: Likewise.
9584 * libgnarl/thread.c: Likewise.
9585 * libgnat/a-assert.adb: Likewise.
9586 * libgnat/a-assert.ads: Likewise.
9587 * libgnat/a-btgbso.adb: Likewise.
9588 * libgnat/a-btgbso.ads: Likewise.
9589 * libgnat/a-calari.adb: Likewise.
9590 * libgnat/a-calari.ads: Likewise.
9591 * libgnat/a-calcon.adb: Likewise.
9592 * libgnat/a-calcon.ads: Likewise.
9593 * libgnat/a-caldel.adb: Likewise.
9594 * libgnat/a-caldel.ads: Likewise.
9595 * libgnat/a-calend.adb: Likewise.
9596 * libgnat/a-calend.ads: Likewise.
9597 * libgnat/a-calfor.adb: Likewise.
9598 * libgnat/a-calfor.ads: Likewise.
9599 * libgnat/a-catizo.adb: Likewise.
9600 * libgnat/a-cbdlli.adb: Likewise.
9601 * libgnat/a-cbdlli.ads: Likewise.
9602 * libgnat/a-cbhama.adb: Likewise.
9603 * libgnat/a-cbhama.ads: Likewise.
9604 * libgnat/a-cbhase.adb: Likewise.
9605 * libgnat/a-cbhase.ads: Likewise.
9606 * libgnat/a-cbmutr.adb: Likewise.
9607 * libgnat/a-cbmutr.ads: Likewise.
9608 * libgnat/a-cborma.adb: Likewise.
9609 * libgnat/a-cborma.ads: Likewise.
9610 * libgnat/a-cborse.adb: Likewise.
9611 * libgnat/a-cborse.ads: Likewise.
9612 * libgnat/a-cbprqu.adb: Likewise.
9613 * libgnat/a-cbprqu.ads: Likewise.
9614 * libgnat/a-cbsyqu.adb: Likewise.
9615 * libgnat/a-cbsyqu.ads: Likewise.
9616 * libgnat/a-cdlili.adb: Likewise.
9617 * libgnat/a-cdlili.ads: Likewise.
9618 * libgnat/a-cfdlli.adb: Likewise.
9619 * libgnat/a-cfdlli.ads: Likewise.
9620 * libgnat/a-cfhama.adb: Likewise.
9621 * libgnat/a-cfhama.ads: Likewise.
9622 * libgnat/a-cfhase.adb: Likewise.
9623 * libgnat/a-cfhase.ads: Likewise.
9624 * libgnat/a-cfinve.adb: Likewise.
9625 * libgnat/a-cfinve.ads: Likewise.
9626 * libgnat/a-cforma.adb: Likewise.
9627 * libgnat/a-cforma.ads: Likewise.
9628 * libgnat/a-cforse.adb: Likewise.
9629 * libgnat/a-cforse.ads: Likewise.
9630 * libgnat/a-cgaaso.adb: Likewise.
9631 * libgnat/a-cgaaso.ads: Likewise.
9632 * libgnat/a-cgarso.adb: Likewise.
9633 * libgnat/a-cgcaso.adb: Likewise.
9634 * libgnat/a-chacon.adb: Likewise.
9635 * libgnat/a-chacon.ads: Likewise.
9636 * libgnat/a-chahan.adb: Likewise.
9637 * libgnat/a-chahan.ads: Likewise.
9638 * libgnat/a-chlat9.ads: Likewise.
9639 * libgnat/a-chtgbk.adb: Likewise.
9640 * libgnat/a-chtgbk.ads: Likewise.
9641 * libgnat/a-chtgbo.adb: Likewise.
9642 * libgnat/a-chtgbo.ads: Likewise.
9643 * libgnat/a-chtgke.adb: Likewise.
9644 * libgnat/a-chtgke.ads: Likewise.
9645 * libgnat/a-chtgop.adb: Likewise.
9646 * libgnat/a-chtgop.ads: Likewise.
9647 * libgnat/a-chzla1.ads: Likewise.
9648 * libgnat/a-chzla9.ads: Likewise.
9649 * libgnat/a-cidlli.adb: Likewise.
9650 * libgnat/a-cidlli.ads: Likewise.
9651 * libgnat/a-cihama.adb: Likewise.
9652 * libgnat/a-cihama.ads: Likewise.
9653 * libgnat/a-cihase.adb: Likewise.
9654 * libgnat/a-cihase.ads: Likewise.
9655 * libgnat/a-cimutr.adb: Likewise.
9656 * libgnat/a-cimutr.ads: Likewise.
9657 * libgnat/a-ciorma.adb: Likewise.
9658 * libgnat/a-ciorma.ads: Likewise.
9659 * libgnat/a-ciormu.adb: Likewise.
9660 * libgnat/a-ciormu.ads: Likewise.
9661 * libgnat/a-ciorse.adb: Likewise.
9662 * libgnat/a-ciorse.ads: Likewise.
9663 * libgnat/a-clrefi.adb: Likewise.
9664 * libgnat/a-clrefi.ads: Likewise.
9665 * libgnat/a-coboho.adb: Likewise.
9666 * libgnat/a-coboho.ads: Likewise.
9667 * libgnat/a-cobove.adb: Likewise.
9668 * libgnat/a-cobove.ads: Likewise.
9669 * libgnat/a-cofove.adb: Likewise.
9670 * libgnat/a-cofove.ads: Likewise.
9671 * libgnat/a-cofuba.adb: Likewise.
9672 * libgnat/a-cofuba.ads: Likewise.
9673 * libgnat/a-cofuma.adb: Likewise.
9674 * libgnat/a-cofuma.ads: Likewise.
9675 * libgnat/a-cofuse.adb: Likewise.
9676 * libgnat/a-cofuse.ads: Likewise.
9677 * libgnat/a-cofuve.adb: Likewise.
9678 * libgnat/a-cofuve.ads: Likewise.
9679 * libgnat/a-cogeso.adb: Likewise.
9680 * libgnat/a-cogeso.ads: Likewise.
9681 * libgnat/a-cohama.adb: Likewise.
9682 * libgnat/a-cohama.ads: Likewise.
9683 * libgnat/a-cohase.adb: Likewise.
9684 * libgnat/a-cohase.ads: Likewise.
9685 * libgnat/a-cohata.ads: Likewise.
9686 * libgnat/a-coinho.adb: Likewise.
9687 * libgnat/a-coinho.ads: Likewise.
9688 * libgnat/a-coinho__shared.adb: Likewise.
9689 * libgnat/a-coinho__shared.ads: Likewise.
9690 * libgnat/a-coinve.adb: Likewise.
9691 * libgnat/a-coinve.ads: Likewise.
9692 * libgnat/a-colien.adb: Likewise.
9693 * libgnat/a-colien.ads: Likewise.
9694 * libgnat/a-colire.adb: Likewise.
9695 * libgnat/a-colire.ads: Likewise.
9696 * libgnat/a-comlin.adb: Likewise.
9697 * libgnat/a-comlin.ads: Likewise.
9698 * libgnat/a-comutr.adb: Likewise.
9699 * libgnat/a-comutr.ads: Likewise.
9700 * libgnat/a-conhel.adb: Likewise.
9701 * libgnat/a-conhel.ads: Likewise.
9702 * libgnat/a-convec.adb: Likewise.
9703 * libgnat/a-convec.ads: Likewise.
9704 * libgnat/a-coorma.adb: Likewise.
9705 * libgnat/a-coorma.ads: Likewise.
9706 * libgnat/a-coormu.adb: Likewise.
9707 * libgnat/a-coormu.ads: Likewise.
9708 * libgnat/a-coorse.adb: Likewise.
9709 * libgnat/a-coorse.ads: Likewise.
9710 * libgnat/a-coprnu.adb: Likewise.
9711 * libgnat/a-coprnu.ads: Likewise.
9712 * libgnat/a-crbltr.ads: Likewise.
9713 * libgnat/a-crbtgk.adb: Likewise.
9714 * libgnat/a-crbtgk.ads: Likewise.
9715 * libgnat/a-crbtgo.adb: Likewise.
9716 * libgnat/a-crbtgo.ads: Likewise.
9717 * libgnat/a-crdlli.adb: Likewise.
9718 * libgnat/a-crdlli.ads: Likewise.
9719 * libgnat/a-csquin.ads: Likewise.
9720 * libgnat/a-cuprqu.adb: Likewise.
9721 * libgnat/a-cuprqu.ads: Likewise.
9722 * libgnat/a-cusyqu.adb: Likewise.
9723 * libgnat/a-cusyqu.ads: Likewise.
9724 * libgnat/a-cwila1.ads: Likewise.
9725 * libgnat/a-cwila9.ads: Likewise.
9726 * libgnat/a-decima.adb: Likewise.
9727 * libgnat/a-decima.ads: Likewise.
9728 * libgnat/a-decima__128.ads: Likewise.
9729 * libgnat/a-dhfina.adb: Likewise.
9730 * libgnat/a-dhfina.ads: Likewise.
9731 * libgnat/a-diocst.adb: Likewise.
9732 * libgnat/a-diocst.ads: Likewise.
9733 * libgnat/a-direct.adb: Likewise.
9734 * libgnat/a-direct.ads: Likewise.
9735 * libgnat/a-direio.adb: Likewise.
9736 * libgnat/a-direio.ads: Likewise.
9737 * libgnat/a-dirval.adb: Likewise.
9738 * libgnat/a-dirval.ads: Likewise.
9739 * libgnat/a-dirval__mingw.adb: Likewise.
9740 * libgnat/a-einuoc.adb: Likewise.
9741 * libgnat/a-einuoc.ads: Likewise.
9742 * libgnat/a-elchha.adb: Likewise.
9743 * libgnat/a-elchha.ads: Likewise.
9744 * libgnat/a-elchha__vxworks-ppc-full.adb: Likewise.
9745 * libgnat/a-envvar.adb: Likewise.
9746 * libgnat/a-excach.adb: Likewise.
9747 * libgnat/a-except.adb: Likewise.
9748 * libgnat/a-except.ads: Likewise.
9749 * libgnat/a-exctra.adb: Likewise.
9750 * libgnat/a-exctra.ads: Likewise.
9751 * libgnat/a-exexda.adb: Likewise.
9752 * libgnat/a-exexpr.adb: Likewise.
9753 * libgnat/a-exextr.adb: Likewise.
9754 * libgnat/a-exstat.adb: Likewise.
9755 * libgnat/a-finali.adb: Likewise.
9756 * libgnat/a-finali.ads: Likewise.
9757 * libgnat/a-locale.adb: Likewise.
9758 * libgnat/a-locale.ads: Likewise.
9759 * libgnat/a-nagefl.ads: Likewise.
9760 * libgnat/a-naliop.ads: Likewise.
9761 * libgnat/a-naliop__nolibm.ads: Likewise.
9762 * libgnat/a-nallfl.ads: Likewise.
9763 * libgnat/a-nallfl__wraplf.ads: Likewise.
9764 * libgnat/a-nalofl.ads: Likewise.
9765 * libgnat/a-nashfl.ads: Likewise.
9766 * libgnat/a-nashfl__wraplf.ads: Likewise.
9767 * libgnat/a-nbnbin.adb: Likewise.
9768 * libgnat/a-nbnbin__gmp.adb: Likewise.
9769 * libgnat/a-nbnbre.adb: Likewise.
9770 * libgnat/a-ngcefu.adb: Likewise.
9771 * libgnat/a-ngcoar.adb: Likewise.
9772 * libgnat/a-ngcoty.adb: Likewise.
9773 * libgnat/a-ngcoty.ads: Likewise.
9774 * libgnat/a-ngelfu.adb: Likewise.
9775 * libgnat/a-ngelfu.ads: Likewise.
9776 * libgnat/a-ngrear.adb: Likewise.
9777 * libgnat/a-ngrear.ads: Likewise.
9778 * libgnat/a-nuauco.ads: Likewise.
9779 * libgnat/a-nuauco__x86.ads: Likewise.
9780 * libgnat/a-nuaufl.ads: Likewise.
9781 * libgnat/a-nuaufl__wraplf.ads: Likewise.
9782 * libgnat/a-nudira.adb: Likewise.
9783 * libgnat/a-nudira.ads: Likewise.
9784 * libgnat/a-nuflra.adb: Likewise.
9785 * libgnat/a-nuflra.ads: Likewise.
9786 * libgnat/a-numaux.ads: Likewise.
9787 * libgnat/a-rbtgbk.adb: Likewise.
9788 * libgnat/a-rbtgbk.ads: Likewise.
9789 * libgnat/a-rbtgbo.adb: Likewise.
9790 * libgnat/a-rbtgbo.ads: Likewise.
9791 * libgnat/a-rbtgso.adb: Likewise.
9792 * libgnat/a-rbtgso.ads: Likewise.
9793 * libgnat/a-sbecin.adb: Likewise.
9794 * libgnat/a-sbecin.ads: Likewise.
9795 * libgnat/a-sbhcin.adb: Likewise.
9796 * libgnat/a-sbhcin.ads: Likewise.
9797 * libgnat/a-sblcin.adb: Likewise.
9798 * libgnat/a-sblcin.ads: Likewise.
9799 * libgnat/a-secain.adb: Likewise.
9800 * libgnat/a-secain.ads: Likewise.
9801 * libgnat/a-sequio.adb: Likewise.
9802 * libgnat/a-sequio.ads: Likewise.
9803 * libgnat/a-sfecin.ads: Likewise.
9804 * libgnat/a-sfhcin.ads: Likewise.
9805 * libgnat/a-sflcin.ads: Likewise.
9806 * libgnat/a-shcain.adb: Likewise.
9807 * libgnat/a-shcain.ads: Likewise.
9808 * libgnat/a-siocst.adb: Likewise.
9809 * libgnat/a-siocst.ads: Likewise.
9810 * libgnat/a-slcain.adb: Likewise.
9811 * libgnat/a-slcain.ads: Likewise.
9812 * libgnat/a-ssicst.adb: Likewise.
9813 * libgnat/a-ssicst.ads: Likewise.
9814 * libgnat/a-stboha.adb: Likewise.
9815 * libgnat/a-stmaco.ads: Likewise.
9816 * libgnat/a-stobbu.adb: Likewise.
9817 * libgnat/a-stobbu.ads: Likewise.
9818 * libgnat/a-stobfi.adb: Likewise.
9819 * libgnat/a-stobfi.ads: Likewise.
9820 * libgnat/a-storio.adb: Likewise.
9821 * libgnat/a-stoubu.adb: Likewise.
9822 * libgnat/a-stoubu.ads: Likewise.
9823 * libgnat/a-stoufi.adb: Likewise.
9824 * libgnat/a-stoufi.ads: Likewise.
9825 * libgnat/a-stoufo.adb: Likewise.
9826 * libgnat/a-stoufo.ads: Likewise.
9827 * libgnat/a-stouut.adb: Likewise.
9828 * libgnat/a-stouut.ads: Likewise.
9829 * libgnat/a-strbou.adb: Likewise.
9830 * libgnat/a-strbou.ads: Likewise.
9831 * libgnat/a-stream.adb: Likewise.
9832 * libgnat/a-stream.ads: Likewise.
9833 * libgnat/a-strfix.adb: Likewise.
9834 * libgnat/a-strhas.adb: Likewise.
9835 * libgnat/a-strmap.adb: Likewise.
9836 * libgnat/a-strmap.ads: Likewise.
9837 * libgnat/a-strsea.adb: Likewise.
9838 * libgnat/a-strsea.ads: Likewise.
9839 * libgnat/a-strsto.ads: Likewise.
9840 * libgnat/a-strsup.adb: Likewise.
9841 * libgnat/a-strsup.ads: Likewise.
9842 * libgnat/a-strunb.adb: Likewise.
9843 * libgnat/a-strunb.ads: Likewise.
9844 * libgnat/a-strunb__shared.adb: Likewise.
9845 * libgnat/a-strunb__shared.ads: Likewise.
9846 * libgnat/a-ststbo.adb: Likewise.
9847 * libgnat/a-ststbo.ads: Likewise.
9848 * libgnat/a-ststio.adb: Likewise.
9849 * libgnat/a-ststio.ads: Likewise.
9850 * libgnat/a-ststun.adb: Likewise.
9851 * libgnat/a-ststun.ads: Likewise.
9852 * libgnat/a-stteou.ads: Likewise.
9853 * libgnat/a-stunau.adb: Likewise.
9854 * libgnat/a-stunau.ads: Likewise.
9855 * libgnat/a-stunau__shared.adb: Likewise.
9856 * libgnat/a-stunha.adb: Likewise.
9857 * libgnat/a-stuten.adb: Likewise.
9858 * libgnat/a-stwibo.adb: Likewise.
9859 * libgnat/a-stwibo.ads: Likewise.
9860 * libgnat/a-stwifi.adb: Likewise.
9861 * libgnat/a-stwiha.adb: Likewise.
9862 * libgnat/a-stwima.adb: Likewise.
9863 * libgnat/a-stwima.ads: Likewise.
9864 * libgnat/a-stwise.adb: Likewise.
9865 * libgnat/a-stwise.ads: Likewise.
9866 * libgnat/a-stwisu.adb: Likewise.
9867 * libgnat/a-stwisu.ads: Likewise.
9868 * libgnat/a-stwiun.adb: Likewise.
9869 * libgnat/a-stwiun.ads: Likewise.
9870 * libgnat/a-stwiun__shared.adb: Likewise.
9871 * libgnat/a-stwiun__shared.ads: Likewise.
9872 * libgnat/a-stzbou.adb: Likewise.
9873 * libgnat/a-stzbou.ads: Likewise.
9874 * libgnat/a-stzfix.adb: Likewise.
9875 * libgnat/a-stzhas.adb: Likewise.
9876 * libgnat/a-stzmap.adb: Likewise.
9877 * libgnat/a-stzmap.ads: Likewise.
9878 * libgnat/a-stzsea.adb: Likewise.
9879 * libgnat/a-stzsea.ads: Likewise.
9880 * libgnat/a-stzsup.adb: Likewise.
9881 * libgnat/a-stzsup.ads: Likewise.
9882 * libgnat/a-stzunb.adb: Likewise.
9883 * libgnat/a-stzunb.ads: Likewise.
9884 * libgnat/a-stzunb__shared.adb: Likewise.
9885 * libgnat/a-stzunb__shared.ads: Likewise.
9886 * libgnat/a-suecin.adb: Likewise.
9887 * libgnat/a-suecin.ads: Likewise.
9888 * libgnat/a-suenco.adb: Likewise.
9889 * libgnat/a-suenst.adb: Likewise.
9890 * libgnat/a-suewst.adb: Likewise.
9891 * libgnat/a-suezst.adb: Likewise.
9892 * libgnat/a-suhcin.adb: Likewise.
9893 * libgnat/a-suhcin.ads: Likewise.
9894 * libgnat/a-sulcin.adb: Likewise.
9895 * libgnat/a-sulcin.ads: Likewise.
9896 * libgnat/a-suteio.adb: Likewise.
9897 * libgnat/a-suteio.ads: Likewise.
9898 * libgnat/a-suteio__shared.adb: Likewise.
9899 * libgnat/a-swbwha.adb: Likewise.
9900 * libgnat/a-swmwco.ads: Likewise.
9901 * libgnat/a-swunau.adb: Likewise.
9902 * libgnat/a-swunau.ads: Likewise.
9903 * libgnat/a-swunau__shared.adb: Likewise.
9904 * libgnat/a-swuwha.adb: Likewise.
9905 * libgnat/a-swuwti.adb: Likewise.
9906 * libgnat/a-swuwti.ads: Likewise.
9907 * libgnat/a-swuwti__shared.adb: Likewise.
9908 * libgnat/a-szbzha.adb: Likewise.
9909 * libgnat/a-szmzco.ads: Likewise.
9910 * libgnat/a-szunau.adb: Likewise.
9911 * libgnat/a-szunau.ads: Likewise.
9912 * libgnat/a-szunau__shared.adb: Likewise.
9913 * libgnat/a-szuzha.adb: Likewise.
9914 * libgnat/a-szuzti.adb: Likewise.
9915 * libgnat/a-szuzti.ads: Likewise.
9916 * libgnat/a-szuzti__shared.adb: Likewise.
9917 * libgnat/a-tags.adb: Likewise.
9918 * libgnat/a-tags.ads: Likewise.
9919 * libgnat/a-teioed.adb: Likewise.
9920 * libgnat/a-teioed.ads: Likewise.
9921 * libgnat/a-textio.adb: Likewise.
9922 * libgnat/a-textio.ads: Likewise.
9923 * libgnat/a-tiboio.adb: Likewise.
9924 * libgnat/a-ticoau.adb: Likewise.
9925 * libgnat/a-ticoau.ads: Likewise.
9926 * libgnat/a-ticoio.adb: Likewise.
9927 * libgnat/a-ticoio.ads: Likewise.
9928 * libgnat/a-tideau.adb: Likewise.
9929 * libgnat/a-tideau.ads: Likewise.
9930 * libgnat/a-tideio.adb: Likewise.
9931 * libgnat/a-tideio.ads: Likewise.
9932 * libgnat/a-tideio__128.adb: Likewise.
9933 * libgnat/a-tienau.adb: Likewise.
9934 * libgnat/a-tienau.ads: Likewise.
9935 * libgnat/a-tienio.adb: Likewise.
9936 * libgnat/a-tifiau.adb: Likewise.
9937 * libgnat/a-tifiau.ads: Likewise.
9938 * libgnat/a-tifiio.adb: Likewise.
9939 * libgnat/a-tifiio__128.adb: Likewise.
9940 * libgnat/a-tiflau.adb: Likewise.
9941 * libgnat/a-tiflau.ads: Likewise.
9942 * libgnat/a-tiflio.adb: Likewise.
9943 * libgnat/a-tiflio.ads: Likewise.
9944 * libgnat/a-tigeau.adb: Likewise.
9945 * libgnat/a-tigeau.ads: Likewise.
9946 * libgnat/a-tigeli.adb: Likewise.
9947 * libgnat/a-tiinau.adb: Likewise.
9948 * libgnat/a-tiinau.ads: Likewise.
9949 * libgnat/a-tiinio.adb: Likewise.
9950 * libgnat/a-tiinio.ads: Likewise.
9951 * libgnat/a-tiinio__128.adb: Likewise.
9952 * libgnat/a-timoio.adb: Likewise.
9953 * libgnat/a-timoio.ads: Likewise.
9954 * libgnat/a-timoio__128.adb: Likewise.
9955 * libgnat/a-tiocst.adb: Likewise.
9956 * libgnat/a-tiocst.ads: Likewise.
9957 * libgnat/a-tirsfi.adb: Likewise.
9958 * libgnat/a-tirsfi.ads: Likewise.
9959 * libgnat/a-titest.adb: Likewise.
9960 * libgnat/a-undesu.adb: Likewise.
9961 * libgnat/a-wichha.adb: Likewise.
9962 * libgnat/a-wichun.adb: Likewise.
9963 * libgnat/a-wichun.ads: Likewise.
9964 * libgnat/a-witeio.adb: Likewise.
9965 * libgnat/a-witeio.ads: Likewise.
9966 * libgnat/a-wrstfi.adb: Likewise.
9967 * libgnat/a-wrstfi.ads: Likewise.
9968 * libgnat/a-wtcoau.adb: Likewise.
9969 * libgnat/a-wtcoau.ads: Likewise.
9970 * libgnat/a-wtcoio.adb: Likewise.
9971 * libgnat/a-wtcstr.adb: Likewise.
9972 * libgnat/a-wtcstr.ads: Likewise.
9973 * libgnat/a-wtdeau.adb: Likewise.
9974 * libgnat/a-wtdeau.ads: Likewise.
9975 * libgnat/a-wtdeio.adb: Likewise.
9976 * libgnat/a-wtdeio__128.adb: Likewise.
9977 * libgnat/a-wtedit.adb: Likewise.
9978 * libgnat/a-wtedit.ads: Likewise.
9979 * libgnat/a-wtenau.adb: Likewise.
9980 * libgnat/a-wtenau.ads: Likewise.
9981 * libgnat/a-wtenio.adb: Likewise.
9982 * libgnat/a-wtfiau.adb: Likewise.
9983 * libgnat/a-wtfiau.ads: Likewise.
9984 * libgnat/a-wtfiio.adb: Likewise.
9985 * libgnat/a-wtfiio__128.adb: Likewise.
9986 * libgnat/a-wtflau.adb: Likewise.
9987 * libgnat/a-wtflau.ads: Likewise.
9988 * libgnat/a-wtflio.adb: Likewise.
9989 * libgnat/a-wtgeau.adb: Likewise.
9990 * libgnat/a-wtgeau.ads: Likewise.
9991 * libgnat/a-wtinau.adb: Likewise.
9992 * libgnat/a-wtinau.ads: Likewise.
9993 * libgnat/a-wtinio.adb: Likewise.
9994 * libgnat/a-wtinio__128.adb: Likewise.
9995 * libgnat/a-wtmoio.adb: Likewise.
9996 * libgnat/a-wtmoio.ads: Likewise.
9997 * libgnat/a-wtmoio__128.adb: Likewise.
9998 * libgnat/a-wttest.adb: Likewise.
9999 * libgnat/a-wwboio.adb: Likewise.
10000 * libgnat/a-zchhan.adb: Likewise.
10001 * libgnat/a-zchuni.adb: Likewise.
10002 * libgnat/a-zchuni.ads: Likewise.
10003 * libgnat/a-zrstfi.adb: Likewise.
10004 * libgnat/a-zrstfi.ads: Likewise.
10005 * libgnat/a-ztcoau.adb: Likewise.
10006 * libgnat/a-ztcoio.adb: Likewise.
10007 * libgnat/a-ztcstr.adb: Likewise.
10008 * libgnat/a-ztcstr.ads: Likewise.
10009 * libgnat/a-ztdeau.adb: Likewise.
10010 * libgnat/a-ztdeau.ads: Likewise.
10011 * libgnat/a-ztdeio.adb: Likewise.
10012 * libgnat/a-ztdeio__128.adb: Likewise.
10013 * libgnat/a-ztedit.adb: Likewise.
10014 * libgnat/a-ztedit.ads: Likewise.
10015 * libgnat/a-ztenau.adb: Likewise.
10016 * libgnat/a-ztenau.ads: Likewise.
10017 * libgnat/a-ztenio.adb: Likewise.
10018 * libgnat/a-ztexio.adb: Likewise.
10019 * libgnat/a-ztexio.ads: Likewise.
10020 * libgnat/a-ztfiau.adb: Likewise.
10021 * libgnat/a-ztfiau.ads: Likewise.
10022 * libgnat/a-ztfiio.adb: Likewise.
10023 * libgnat/a-ztfiio__128.adb: Likewise.
10024 * libgnat/a-ztflau.adb: Likewise.
10025 * libgnat/a-ztflau.ads: Likewise.
10026 * libgnat/a-ztflio.adb: Likewise.
10027 * libgnat/a-ztgeau.adb: Likewise.
10028 * libgnat/a-ztgeau.ads: Likewise.
10029 * libgnat/a-ztinau.adb: Likewise.
10030 * libgnat/a-ztinau.ads: Likewise.
10031 * libgnat/a-ztinio.adb: Likewise.
10032 * libgnat/a-ztinio__128.adb: Likewise.
10033 * libgnat/a-ztmoio.adb: Likewise.
10034 * libgnat/a-ztmoio__128.adb: Likewise.
10035 * libgnat/a-zttest.adb: Likewise.
10036 * libgnat/a-zzboio.adb: Likewise.
10037 * libgnat/g-allein.ads: Likewise.
10038 * libgnat/g-alleve.adb: Likewise.
10039 * libgnat/g-alleve.ads: Likewise.
10040 * libgnat/g-alleve__hard.adb: Likewise.
10041 * libgnat/g-alleve__hard.ads: Likewise.
10042 * libgnat/g-altcon.adb: Likewise.
10043 * libgnat/g-altcon.ads: Likewise.
10044 * libgnat/g-altive.ads: Likewise.
10045 * libgnat/g-alveop.adb: Likewise.
10046 * libgnat/g-alveop.ads: Likewise.
10047 * libgnat/g-alvety.ads: Likewise.
10048 * libgnat/g-alvevi.ads: Likewise.
10049 * libgnat/g-arrspl.adb: Likewise.
10050 * libgnat/g-arrspl.ads: Likewise.
10051 * libgnat/g-awk.adb: Likewise.
10052 * libgnat/g-awk.ads: Likewise.
10053 * libgnat/g-binenv.adb: Likewise.
10054 * libgnat/g-binenv.ads: Likewise.
10055 * libgnat/g-brapre.ads: Likewise.
10056 * libgnat/g-bubsor.adb: Likewise.
10057 * libgnat/g-bubsor.ads: Likewise.
10058 * libgnat/g-busora.adb: Likewise.
10059 * libgnat/g-busora.ads: Likewise.
10060 * libgnat/g-busorg.adb: Likewise.
10061 * libgnat/g-busorg.ads: Likewise.
10062 * libgnat/g-byorma.adb: Likewise.
10063 * libgnat/g-byorma.ads: Likewise.
10064 * libgnat/g-bytswa.adb: Likewise.
10065 * libgnat/g-bytswa.ads: Likewise.
10066 * libgnat/g-calend.adb: Likewise.
10067 * libgnat/g-calend.ads: Likewise.
10068 * libgnat/g-casuti.adb: Likewise.
10069 * libgnat/g-casuti.ads: Likewise.
10070 * libgnat/g-catiio.adb: Likewise.
10071 * libgnat/g-catiio.ads: Likewise.
10072 * libgnat/g-cgi.adb: Likewise.
10073 * libgnat/g-cgi.ads: Likewise.
10074 * libgnat/g-cgicoo.adb: Likewise.
10075 * libgnat/g-cgicoo.ads: Likewise.
10076 * libgnat/g-cgideb.adb: Likewise.
10077 * libgnat/g-cgideb.ads: Likewise.
10078 * libgnat/g-comlin.adb: Likewise.
10079 * libgnat/g-comlin.ads: Likewise.
10080 * libgnat/g-comver.adb: Likewise.
10081 * libgnat/g-comver.ads: Likewise.
10082 * libgnat/g-cppexc.adb: Likewise.
10083 * libgnat/g-cppexc.ads: Likewise.
10084 * libgnat/g-crc32.adb: Likewise.
10085 * libgnat/g-crc32.ads: Likewise.
10086 * libgnat/g-ctrl_c.adb: Likewise.
10087 * libgnat/g-ctrl_c.ads: Likewise.
10088 * libgnat/g-curexc.ads: Likewise.
10089 * libgnat/g-debpoo.adb: Likewise.
10090 * libgnat/g-debpoo.ads: Likewise.
10091 * libgnat/g-debuti.adb: Likewise.
10092 * libgnat/g-debuti.ads: Likewise.
10093 * libgnat/g-decstr.adb: Likewise.
10094 * libgnat/g-decstr.ads: Likewise.
10095 * libgnat/g-deutst.ads: Likewise.
10096 * libgnat/g-diopit.adb: Likewise.
10097 * libgnat/g-diopit.ads: Likewise.
10098 * libgnat/g-dirope.adb: Likewise.
10099 * libgnat/g-dirope.ads: Likewise.
10100 * libgnat/g-dynhta.adb: Likewise.
10101 * libgnat/g-dynhta.ads: Likewise.
10102 * libgnat/g-dyntab.adb: Likewise.
10103 * libgnat/g-dyntab.ads: Likewise.
10104 * libgnat/g-eacodu.adb: Likewise.
10105 * libgnat/g-encstr.adb: Likewise.
10106 * libgnat/g-encstr.ads: Likewise.
10107 * libgnat/g-enutst.ads: Likewise.
10108 * libgnat/g-excact.adb: Likewise.
10109 * libgnat/g-excact.ads: Likewise.
10110 * libgnat/g-except.ads: Likewise.
10111 * libgnat/g-exctra.adb: Likewise.
10112 * libgnat/g-exctra.ads: Likewise.
10113 * libgnat/g-expect.adb: Likewise.
10114 * libgnat/g-expect.ads: Likewise.
10115 * libgnat/g-exptty.adb: Likewise.
10116 * libgnat/g-exptty.ads: Likewise.
10117 * libgnat/g-flocon.ads: Likewise.
10118 * libgnat/g-forstr.adb: Likewise.
10119 * libgnat/g-forstr.ads: Likewise.
10120 * libgnat/g-graphs.adb: Likewise.
10121 * libgnat/g-graphs.ads: Likewise.
10122 * libgnat/g-heasor.adb: Likewise.
10123 * libgnat/g-heasor.ads: Likewise.
10124 * libgnat/g-hesora.adb: Likewise.
10125 * libgnat/g-hesora.ads: Likewise.
10126 * libgnat/g-hesorg.adb: Likewise.
10127 * libgnat/g-hesorg.ads: Likewise.
10128 * libgnat/g-htable.adb: Likewise.
10129 * libgnat/g-htable.ads: Likewise.
10130 * libgnat/g-io-put__vxworks.adb: Likewise.
10131 * libgnat/g-io.adb: Likewise.
10132 * libgnat/g-io.ads: Likewise.
10133 * libgnat/g-io_aux.adb: Likewise.
10134 * libgnat/g-io_aux.ads: Likewise.
10135 * libgnat/g-lists.adb: Likewise.
10136 * libgnat/g-lists.ads: Likewise.
10137 * libgnat/g-locfil.adb: Likewise.
10138 * libgnat/g-locfil.ads: Likewise.
10139 * libgnat/g-mbdira.adb: Likewise.
10140 * libgnat/g-mbdira.ads: Likewise.
10141 * libgnat/g-mbflra.adb: Likewise.
10142 * libgnat/g-mbflra.ads: Likewise.
10143 * libgnat/g-md5.adb: Likewise.
10144 * libgnat/g-md5.ads: Likewise.
10145 * libgnat/g-memdum.adb: Likewise.
10146 * libgnat/g-memdum.ads: Likewise.
10147 * libgnat/g-moreex.adb: Likewise.
10148 * libgnat/g-moreex.ads: Likewise.
10149 * libgnat/g-os_lib.adb: Likewise.
10150 * libgnat/g-os_lib.ads: Likewise.
10151 * libgnat/g-pehage.adb: Likewise.
10152 * libgnat/g-pehage.ads: Likewise.
10153 * libgnat/g-rannum.adb: Likewise.
10154 * libgnat/g-rannum.ads: Likewise.
10155 * libgnat/g-regexp.adb: Likewise.
10156 * libgnat/g-regexp.ads: Likewise.
10157 * libgnat/g-regist.adb: Likewise.
10158 * libgnat/g-regist.ads: Likewise.
10159 * libgnat/g-regpat.adb: Likewise.
10160 * libgnat/g-regpat.ads: Likewise.
10161 * libgnat/g-rewdat.adb: Likewise.
10162 * libgnat/g-rewdat.ads: Likewise.
10163 * libgnat/g-sechas.adb: Likewise.
10164 * libgnat/g-sechas.ads: Likewise.
10165 * libgnat/g-sehamd.adb: Likewise.
10166 * libgnat/g-sehamd.ads: Likewise.
10167 * libgnat/g-sehash.adb: Likewise.
10168 * libgnat/g-sehash.ads: Likewise.
10169 * libgnat/g-sercom.adb: Likewise.
10170 * libgnat/g-sercom.ads: Likewise.
10171 * libgnat/g-sercom__linux.adb: Likewise.
10172 * libgnat/g-sercom__mingw.adb: Likewise.
10173 * libgnat/g-sestin.ads: Likewise.
10174 * libgnat/g-sets.adb: Likewise.
10175 * libgnat/g-sets.ads: Likewise.
10176 * libgnat/g-sha1.adb: Likewise.
10177 * libgnat/g-sha1.ads: Likewise.
10178 * libgnat/g-sha224.ads: Likewise.
10179 * libgnat/g-sha256.ads: Likewise.
10180 * libgnat/g-sha384.ads: Likewise.
10181 * libgnat/g-sha512.ads: Likewise.
10182 * libgnat/g-shsh32.adb: Likewise.
10183 * libgnat/g-shsh32.ads: Likewise.
10184 * libgnat/g-shsh64.adb: Likewise.
10185 * libgnat/g-shsh64.ads: Likewise.
10186 * libgnat/g-shshco.adb: Likewise.
10187 * libgnat/g-shshco.ads: Likewise.
10188 * libgnat/g-soccon.ads: Likewise.
10189 * libgnat/g-socket.adb: Likewise.
10190 * libgnat/g-socket.ads: Likewise.
10191 * libgnat/g-socket__dummy.adb: Likewise.
10192 * libgnat/g-socket__dummy.ads: Likewise.
10193 * libgnat/g-socpol.adb: Likewise.
10194 * libgnat/g-socpol.ads: Likewise.
10195 * libgnat/g-socpol__dummy.adb: Likewise.
10196 * libgnat/g-socpol__dummy.ads: Likewise.
10197 * libgnat/g-socthi.adb: Likewise.
10198 * libgnat/g-socthi.ads: Likewise.
10199 * libgnat/g-socthi__dummy.adb: Likewise.
10200 * libgnat/g-socthi__dummy.ads: Likewise.
10201 * libgnat/g-socthi__mingw.adb: Likewise.
10202 * libgnat/g-socthi__mingw.ads: Likewise.
10203 * libgnat/g-socthi__vxworks.adb: Likewise.
10204 * libgnat/g-socthi__vxworks.ads: Likewise.
10205 * libgnat/g-soliop.ads: Likewise.
10206 * libgnat/g-soliop__lynxos.ads: Likewise.
10207 * libgnat/g-soliop__mingw.ads: Likewise.
10208 * libgnat/g-soliop__qnx.ads: Likewise.
10209 * libgnat/g-soliop__solaris.ads: Likewise.
10210 * libgnat/g-sopowa.adb: Likewise.
10211 * libgnat/g-sopowa__mingw.adb: Likewise.
10212 * libgnat/g-sopowa__posix.adb: Likewise.
10213 * libgnat/g-sothco.adb: Likewise.
10214 * libgnat/g-sothco.ads: Likewise.
10215 * libgnat/g-sothco__dummy.adb: Likewise.
10216 * libgnat/g-sothco__dummy.ads: Likewise.
10217 * libgnat/g-souinf.ads: Likewise.
10218 * libgnat/g-spchge.adb: Likewise.
10219 * libgnat/g-spchge.ads: Likewise.
10220 * libgnat/g-speche.adb: Likewise.
10221 * libgnat/g-speche.ads: Likewise.
10222 * libgnat/g-spipat.adb: Likewise.
10223 * libgnat/g-spipat.ads: Likewise.
10224 * libgnat/g-spitbo.adb: Likewise.
10225 * libgnat/g-spitbo.ads: Likewise.
10226 * libgnat/g-spogwa.adb: Likewise.
10227 * libgnat/g-spogwa.ads: Likewise.
10228 * libgnat/g-sptabo.ads: Likewise.
10229 * libgnat/g-sptain.ads: Likewise.
10230 * libgnat/g-sptavs.ads: Likewise.
10231 * libgnat/g-sse.ads: Likewise.
10232 * libgnat/g-ssvety.ads: Likewise.
10233 * libgnat/g-sthcso.adb: Likewise.
10234 * libgnat/g-stheme.adb: Likewise.
10235 * libgnat/g-strhas.ads: Likewise.
10236 * libgnat/g-string.adb: Likewise.
10237 * libgnat/g-string.ads: Likewise.
10238 * libgnat/g-strspl.ads: Likewise.
10239 * libgnat/g-stseme.adb: Likewise.
10240 * libgnat/g-stsifd__sockets.adb: Likewise.
10241 * libgnat/g-table.adb: Likewise.
10242 * libgnat/g-table.ads: Likewise.
10243 * libgnat/g-tasloc.adb: Likewise.
10244 * libgnat/g-tasloc.ads: Likewise.
10245 * libgnat/g-timsta.adb: Likewise.
10246 * libgnat/g-timsta.ads: Likewise.
10247 * libgnat/g-traceb.adb: Likewise.
10248 * libgnat/g-traceb.ads: Likewise.
10249 * libgnat/g-trasym.adb: Likewise.
10250 * libgnat/g-trasym.ads: Likewise.
10251 * libgnat/g-tty.adb: Likewise.
10252 * libgnat/g-tty.ads: Likewise.
10253 * libgnat/g-u3spch.adb: Likewise.
10254 * libgnat/g-u3spch.ads: Likewise.
10255 * libgnat/g-utf_32.adb: Likewise.
10256 * libgnat/g-utf_32.ads: Likewise.
10257 * libgnat/g-wispch.adb: Likewise.
10258 * libgnat/g-wispch.ads: Likewise.
10259 * libgnat/g-wistsp.ads: Likewise.
10260 * libgnat/g-zspche.adb: Likewise.
10261 * libgnat/g-zspche.ads: Likewise.
10262 * libgnat/g-zstspl.ads: Likewise.
10263 * libgnat/gnat.ads: Likewise.
10264 * libgnat/i-c.adb: Likewise.
10265 * libgnat/i-cexten.ads: Likewise.
10266 * libgnat/i-cexten__128.ads: Likewise.
10267 * libgnat/i-cobol.adb: Likewise.
10268 * libgnat/i-cobol.ads: Likewise.
10269 * libgnat/i-cpoint.adb: Likewise.
10270 * libgnat/i-cpoint.ads: Likewise.
10271 * libgnat/i-cstrea.adb: Likewise.
10272 * libgnat/i-cstrea.ads: Likewise.
10273 * libgnat/i-cstrin.adb: Likewise.
10274 * libgnat/i-cstrin.ads: Likewise.
10275 * libgnat/i-fortra.adb: Likewise.
10276 * libgnat/i-pacdec.adb: Likewise.
10277 * libgnat/i-pacdec.ads: Likewise.
10278 * libgnat/i-vxwoio.adb: Likewise.
10279 * libgnat/i-vxwoio.ads: Likewise.
10280 * libgnat/i-vxwork.ads: Likewise.
10281 * libgnat/i-vxwork__x86.ads: Likewise.
10282 * libgnat/interfac.ads: Likewise.
10283 * libgnat/interfac__2020.ads: Likewise.
10284 * libgnat/memtrack.adb: Likewise.
10285 * libgnat/s-addima.adb: Likewise.
10286 * libgnat/s-addima.ads: Likewise.
10287 * libgnat/s-addope.adb: Likewise.
10288 * libgnat/s-addope.ads: Likewise.
10289 * libgnat/s-aoinar.adb: Likewise.
10290 * libgnat/s-aoinar.ads: Likewise.
10291 * libgnat/s-aomoar.adb: Likewise.
10292 * libgnat/s-aomoar.ads: Likewise.
10293 * libgnat/s-aotase.adb: Likewise.
10294 * libgnat/s-aotase.ads: Likewise.
10295 * libgnat/s-aridou.adb: Likewise.
10296 * libgnat/s-aridou.ads: Likewise.
10297 * libgnat/s-arit128.adb: Likewise.
10298 * libgnat/s-arit128.ads: Likewise.
10299 * libgnat/s-arit32.adb: Likewise.
10300 * libgnat/s-arit32.ads: Likewise.
10301 * libgnat/s-arit64.adb: Likewise.
10302 * libgnat/s-arit64.ads: Likewise.
10303 * libgnat/s-assert.adb: Likewise.
10304 * libgnat/s-assert.ads: Likewise.
10305 * libgnat/s-atacco.adb: Likewise.
10306 * libgnat/s-atacco.ads: Likewise.
10307 * libgnat/s-atocou.adb: Likewise.
10308 * libgnat/s-atocou.ads: Likewise.
10309 * libgnat/s-atocou__builtin.adb: Likewise.
10310 * libgnat/s-atocou__x86.adb: Likewise.
10311 * libgnat/s-atoope.ads: Likewise.
10312 * libgnat/s-atopex.adb: Likewise.
10313 * libgnat/s-atopex.ads: Likewise.
10314 * libgnat/s-atopri.adb: Likewise.
10315 * libgnat/s-atopri.ads: Likewise.
10316 * libgnat/s-auxdec.adb: Likewise.
10317 * libgnat/s-auxdec.ads: Likewise.
10318 * libgnat/s-bignum.adb: Likewise.
10319 * libgnat/s-bignum.ads: Likewise.
10320 * libgnat/s-bitfie.ads: Likewise.
10321 * libgnat/s-bitops.adb: Likewise.
10322 * libgnat/s-bitops.ads: Likewise.
10323 * libgnat/s-bituti.adb: Likewise.
10324 * libgnat/s-bituti.ads: Likewise.
10325 * libgnat/s-boarop.ads: Likewise.
10326 * libgnat/s-boustr.adb: Likewise.
10327 * libgnat/s-boustr.ads: Likewise.
10328 * libgnat/s-bytswa.ads: Likewise.
10329 * libgnat/s-carsi8.adb: Likewise.
10330 * libgnat/s-carsi8.ads: Likewise.
10331 * libgnat/s-carun8.adb: Likewise.
10332 * libgnat/s-carun8.ads: Likewise.
10333 * libgnat/s-casi128.adb: Likewise.
10334 * libgnat/s-casi128.ads: Likewise.
10335 * libgnat/s-casi16.adb: Likewise.
10336 * libgnat/s-casi16.ads: Likewise.
10337 * libgnat/s-casi32.adb: Likewise.
10338 * libgnat/s-casi32.ads: Likewise.
10339 * libgnat/s-casi64.adb: Likewise.
10340 * libgnat/s-casi64.ads: Likewise.
10341 * libgnat/s-casuti.adb: Likewise.
10342 * libgnat/s-casuti.ads: Likewise.
10343 * libgnat/s-caun128.adb: Likewise.
10344 * libgnat/s-caun128.ads: Likewise.
10345 * libgnat/s-caun16.adb: Likewise.
10346 * libgnat/s-caun16.ads: Likewise.
10347 * libgnat/s-caun32.adb: Likewise.
10348 * libgnat/s-caun32.ads: Likewise.
10349 * libgnat/s-caun64.adb: Likewise.
10350 * libgnat/s-caun64.ads: Likewise.
10351 * libgnat/s-chepoo.ads: Likewise.
10352 * libgnat/s-commun.adb: Likewise.
10353 * libgnat/s-commun.ads: Likewise.
10354 * libgnat/s-conca2.adb: Likewise.
10355 * libgnat/s-conca2.ads: Likewise.
10356 * libgnat/s-conca3.adb: Likewise.
10357 * libgnat/s-conca3.ads: Likewise.
10358 * libgnat/s-conca4.adb: Likewise.
10359 * libgnat/s-conca4.ads: Likewise.
10360 * libgnat/s-conca5.adb: Likewise.
10361 * libgnat/s-conca5.ads: Likewise.
10362 * libgnat/s-conca6.adb: Likewise.
10363 * libgnat/s-conca6.ads: Likewise.
10364 * libgnat/s-conca7.adb: Likewise.
10365 * libgnat/s-conca7.ads: Likewise.
10366 * libgnat/s-conca8.adb: Likewise.
10367 * libgnat/s-conca8.ads: Likewise.
10368 * libgnat/s-conca9.adb: Likewise.
10369 * libgnat/s-conca9.ads: Likewise.
10370 * libgnat/s-crc32.adb: Likewise.
10371 * libgnat/s-crc32.ads: Likewise.
10372 * libgnat/s-crtl.ads: Likewise.
10373 * libgnat/s-dfmkio.ads: Likewise.
10374 * libgnat/s-dfmopr.ads: Likewise.
10375 * libgnat/s-dgmgop.ads: Likewise.
10376 * libgnat/s-diflio.adb: Likewise.
10377 * libgnat/s-diflio.ads: Likewise.
10378 * libgnat/s-diflmk.ads: Likewise.
10379 * libgnat/s-digemk.ads: Likewise.
10380 * libgnat/s-diinio.adb: Likewise.
10381 * libgnat/s-diinio.ads: Likewise.
10382 * libgnat/s-dilomk.ads: Likewise.
10383 * libgnat/s-dim.ads: Likewise.
10384 * libgnat/s-dimkio.ads: Likewise.
10385 * libgnat/s-dimmks.ads: Likewise.
10386 * libgnat/s-direio.adb: Likewise.
10387 * libgnat/s-direio.ads: Likewise.
10388 * libgnat/s-dlmkio.ads: Likewise.
10389 * libgnat/s-dlmopr.ads: Likewise.
10390 * libgnat/s-dmotpr.ads: Likewise.
10391 * libgnat/s-dsaser.ads: Likewise.
10392 * libgnat/s-dwalin.adb: Likewise.
10393 * libgnat/s-dwalin.ads: Likewise.
10394 * libgnat/s-elaall.adb: Likewise.
10395 * libgnat/s-elaall.ads: Likewise.
10396 * libgnat/s-excdeb.adb: Likewise.
10397 * libgnat/s-excdeb.ads: Likewise.
10398 * libgnat/s-except.adb: Likewise.
10399 * libgnat/s-except.ads: Likewise.
10400 * libgnat/s-excmac__arm.adb: Likewise.
10401 * libgnat/s-excmac__arm.ads: Likewise.
10402 * libgnat/s-excmac__gcc.adb: Likewise.
10403 * libgnat/s-excmac__gcc.ads: Likewise.
10404 * libgnat/s-exctab.adb: Likewise.
10405 * libgnat/s-exctab.ads: Likewise.
10406 * libgnat/s-exctra.adb: Likewise.
10407 * libgnat/s-exctra.ads: Likewise.
10408 * libgnat/s-exnint.adb: Likewise.
10409 * libgnat/s-exnint.ads: Likewise.
10410 * libgnat/s-exnllf.adb: Likewise.
10411 * libgnat/s-exnllf.ads: Likewise.
10412 * libgnat/s-exnlli.adb: Likewise.
10413 * libgnat/s-exnlli.ads: Likewise.
10414 * libgnat/s-exnllli.ads: Likewise.
10415 * libgnat/s-expint.adb: Likewise.
10416 * libgnat/s-expint.ads: Likewise.
10417 * libgnat/s-explli.adb: Likewise.
10418 * libgnat/s-explli.ads: Likewise.
10419 * libgnat/s-expllli.ads: Likewise.
10420 * libgnat/s-explllu.ads: Likewise.
10421 * libgnat/s-expllu.adb: Likewise.
10422 * libgnat/s-expllu.ads: Likewise.
10423 * libgnat/s-expmod.adb: Likewise.
10424 * libgnat/s-expmod.ads: Likewise.
10425 * libgnat/s-exponn.adb: Likewise.
10426 * libgnat/s-exponn.ads: Likewise.
10427 * libgnat/s-expont.adb: Likewise.
10428 * libgnat/s-expont.ads: Likewise.
10429 * libgnat/s-exponu.adb: Likewise.
10430 * libgnat/s-exponu.ads: Likewise.
10431 * libgnat/s-expuns.adb: Likewise.
10432 * libgnat/s-expuns.ads: Likewise.
10433 * libgnat/s-fatflt.ads: Likewise.
10434 * libgnat/s-fatgen.adb: Likewise.
10435 * libgnat/s-fatgen.ads: Likewise.
10436 * libgnat/s-fatlfl.ads: Likewise.
10437 * libgnat/s-fatllf.ads: Likewise.
10438 * libgnat/s-ficobl.ads: Likewise.
10439 * libgnat/s-filatt.ads: Likewise.
10440 * libgnat/s-fileio.adb: Likewise.
10441 * libgnat/s-fileio.ads: Likewise.
10442 * libgnat/s-finmas.adb: Likewise.
10443 * libgnat/s-finmas.ads: Likewise.
10444 * libgnat/s-finroo.adb: Likewise.
10445 * libgnat/s-finroo.ads: Likewise.
10446 * libgnat/s-flocon.adb: Likewise.
10447 * libgnat/s-flocon.ads: Likewise.
10448 * libgnat/s-flocon__none.adb: Likewise.
10449 * libgnat/s-fode128.ads: Likewise.
10450 * libgnat/s-fode32.ads: Likewise.
10451 * libgnat/s-fode64.ads: Likewise.
10452 * libgnat/s-fofi128.ads: Likewise.
10453 * libgnat/s-fofi32.ads: Likewise.
10454 * libgnat/s-fofi64.ads: Likewise.
10455 * libgnat/s-fore_d.adb: Likewise.
10456 * libgnat/s-fore_d.ads: Likewise.
10457 * libgnat/s-fore_f.adb: Likewise.
10458 * libgnat/s-fore_f.ads: Likewise.
10459 * libgnat/s-forrea.adb: Likewise.
10460 * libgnat/s-forrea.ads: Likewise.
10461 * libgnat/s-gearop.adb: Likewise.
10462 * libgnat/s-gearop.ads: Likewise.
10463 * libgnat/s-genbig.adb: Likewise.
10464 * libgnat/s-genbig.ads: Likewise.
10465 * libgnat/s-geveop.adb: Likewise.
10466 * libgnat/s-geveop.ads: Likewise.
10467 * libgnat/s-gloloc.adb: Likewise.
10468 * libgnat/s-gloloc.ads: Likewise.
10469 * libgnat/s-gloloc__mingw.adb: Likewise.
10470 * libgnat/s-htable.adb: Likewise.
10471 * libgnat/s-htable.ads: Likewise.
10472 * libgnat/s-imageb.adb: Likewise.
10473 * libgnat/s-imageb.ads: Likewise.
10474 * libgnat/s-imaged.adb: Likewise.
10475 * libgnat/s-imaged.ads: Likewise.
10476 * libgnat/s-imagef.adb: Likewise.
10477 * libgnat/s-imagef.ads: Likewise.
10478 * libgnat/s-imagei.adb: Likewise.
10479 * libgnat/s-imagei.ads: Likewise.
10480 * libgnat/s-imageu.adb: Likewise.
10481 * libgnat/s-imageu.ads: Likewise.
10482 * libgnat/s-imagew.adb: Likewise.
10483 * libgnat/s-imagew.ads: Likewise.
10484 * libgnat/s-imde128.ads: Likewise.
10485 * libgnat/s-imde32.ads: Likewise.
10486 * libgnat/s-imde64.ads: Likewise.
10487 * libgnat/s-imenne.adb: Likewise.
10488 * libgnat/s-imenne.ads: Likewise.
10489 * libgnat/s-imfi128.ads: Likewise.
10490 * libgnat/s-imfi32.ads: Likewise.
10491 * libgnat/s-imfi64.ads: Likewise.
10492 * libgnat/s-imgbiu.adb: Likewise.
10493 * libgnat/s-imgbiu.ads: Likewise.
10494 * libgnat/s-imgboo.adb: Likewise.
10495 * libgnat/s-imgboo.ads: Likewise.
10496 * libgnat/s-imgcha.adb: Likewise.
10497 * libgnat/s-imgcha.ads: Likewise.
10498 * libgnat/s-imgenu.adb: Likewise.
10499 * libgnat/s-imgenu.ads: Likewise.
10500 * libgnat/s-imgint.adb: Likewise.
10501 * libgnat/s-imgint.ads: Likewise.
10502 * libgnat/s-imgllb.adb: Likewise.
10503 * libgnat/s-imgllb.ads: Likewise.
10504 * libgnat/s-imglli.adb: Likewise.
10505 * libgnat/s-imglli.ads: Likewise.
10506 * libgnat/s-imglllb.ads: Likewise.
10507 * libgnat/s-imgllli.ads: Likewise.
10508 * libgnat/s-imglllu.ads: Likewise.
10509 * libgnat/s-imglllw.ads: Likewise.
10510 * libgnat/s-imgllu.adb: Likewise.
10511 * libgnat/s-imgllu.ads: Likewise.
10512 * libgnat/s-imgllw.adb: Likewise.
10513 * libgnat/s-imgllw.ads: Likewise.
10514 * libgnat/s-imgrea.adb: Likewise.
10515 * libgnat/s-imgrea.ads: Likewise.
10516 * libgnat/s-imguns.adb: Likewise.
10517 * libgnat/s-imguns.ads: Likewise.
10518 * libgnat/s-imguti.adb: Likewise.
10519 * libgnat/s-imguti.ads: Likewise.
10520 * libgnat/s-imgwch.adb: Likewise.
10521 * libgnat/s-imgwch.ads: Likewise.
10522 * libgnat/s-imgwiu.adb: Likewise.
10523 * libgnat/s-imgwiu.ads: Likewise.
10524 * libgnat/s-io.adb: Likewise.
10525 * libgnat/s-io.ads: Likewise.
10526 * libgnat/s-llflex.ads: Likewise.
10527 * libgnat/s-maccod.ads: Likewise.
10528 * libgnat/s-mantis.adb: Likewise.
10529 * libgnat/s-mantis.ads: Likewise.
10530 * libgnat/s-mastop.adb: Likewise.
10531 * libgnat/s-mastop.ads: Likewise.
10532 * libgnat/s-memcop.ads: Likewise.
10533 * libgnat/s-memory.adb: Likewise.
10534 * libgnat/s-memory.ads: Likewise.
10535 * libgnat/s-mmap.adb: Likewise.
10536 * libgnat/s-mmap.ads: Likewise.
10537 * libgnat/s-mmauni__long.ads: Likewise.
10538 * libgnat/s-mmosin__mingw.adb: Likewise.
10539 * libgnat/s-mmosin__mingw.ads: Likewise.
10540 * libgnat/s-mmosin__unix.adb: Likewise.
10541 * libgnat/s-mmosin__unix.ads: Likewise.
10542 * libgnat/s-multip.adb: Likewise.
10543 * libgnat/s-objrea.adb: Likewise.
10544 * libgnat/s-objrea.ads: Likewise.
10545 * libgnat/s-optide.adb: Likewise.
10546 * libgnat/s-os_lib.adb: Likewise.
10547 * libgnat/s-os_lib.ads: Likewise.
10548 * libgnat/s-osprim.ads: Likewise.
10549 * libgnat/s-osprim__darwin.adb: Likewise.
10550 * libgnat/s-osprim__lynxos.ads: Likewise.
10551 * libgnat/s-osprim__mingw.adb: Likewise.
10552 * libgnat/s-osprim__posix.adb: Likewise.
10553 * libgnat/s-osprim__posix2008.adb: Likewise.
10554 * libgnat/s-osprim__rtems.adb: Likewise.
10555 * libgnat/s-osprim__solaris.adb: Likewise.
10556 * libgnat/s-osprim__unix.adb: Likewise.
10557 * libgnat/s-osprim__vxworks.adb: Likewise.
10558 * libgnat/s-osprim__x32.adb: Likewise.
10559 * libgnat/s-osvers__vxworks-653.ads: Likewise.
10560 * libgnat/s-pack03.adb: Likewise.
10561 * libgnat/s-pack03.ads: Likewise.
10562 * libgnat/s-pack05.adb: Likewise.
10563 * libgnat/s-pack05.ads: Likewise.
10564 * libgnat/s-pack06.adb: Likewise.
10565 * libgnat/s-pack06.ads: Likewise.
10566 * libgnat/s-pack07.adb: Likewise.
10567 * libgnat/s-pack07.ads: Likewise.
10568 * libgnat/s-pack09.adb: Likewise.
10569 * libgnat/s-pack09.ads: Likewise.
10570 * libgnat/s-pack10.adb: Likewise.
10571 * libgnat/s-pack10.ads: Likewise.
10572 * libgnat/s-pack100.adb: Likewise.
10573 * libgnat/s-pack100.ads: Likewise.
10574 * libgnat/s-pack101.adb: Likewise.
10575 * libgnat/s-pack101.ads: Likewise.
10576 * libgnat/s-pack102.adb: Likewise.
10577 * libgnat/s-pack102.ads: Likewise.
10578 * libgnat/s-pack103.adb: Likewise.
10579 * libgnat/s-pack103.ads: Likewise.
10580 * libgnat/s-pack104.adb: Likewise.
10581 * libgnat/s-pack104.ads: Likewise.
10582 * libgnat/s-pack105.adb: Likewise.
10583 * libgnat/s-pack105.ads: Likewise.
10584 * libgnat/s-pack106.adb: Likewise.
10585 * libgnat/s-pack106.ads: Likewise.
10586 * libgnat/s-pack107.adb: Likewise.
10587 * libgnat/s-pack107.ads: Likewise.
10588 * libgnat/s-pack108.adb: Likewise.
10589 * libgnat/s-pack108.ads: Likewise.
10590 * libgnat/s-pack109.adb: Likewise.
10591 * libgnat/s-pack109.ads: Likewise.
10592 * libgnat/s-pack11.adb: Likewise.
10593 * libgnat/s-pack11.ads: Likewise.
10594 * libgnat/s-pack110.adb: Likewise.
10595 * libgnat/s-pack110.ads: Likewise.
10596 * libgnat/s-pack111.adb: Likewise.
10597 * libgnat/s-pack111.ads: Likewise.
10598 * libgnat/s-pack112.adb: Likewise.
10599 * libgnat/s-pack112.ads: Likewise.
10600 * libgnat/s-pack113.adb: Likewise.
10601 * libgnat/s-pack113.ads: Likewise.
10602 * libgnat/s-pack114.adb: Likewise.
10603 * libgnat/s-pack114.ads: Likewise.
10604 * libgnat/s-pack115.adb: Likewise.
10605 * libgnat/s-pack115.ads: Likewise.
10606 * libgnat/s-pack116.adb: Likewise.
10607 * libgnat/s-pack116.ads: Likewise.
10608 * libgnat/s-pack117.adb: Likewise.
10609 * libgnat/s-pack117.ads: Likewise.
10610 * libgnat/s-pack118.adb: Likewise.
10611 * libgnat/s-pack118.ads: Likewise.
10612 * libgnat/s-pack119.adb: Likewise.
10613 * libgnat/s-pack119.ads: Likewise.
10614 * libgnat/s-pack12.adb: Likewise.
10615 * libgnat/s-pack12.ads: Likewise.
10616 * libgnat/s-pack120.adb: Likewise.
10617 * libgnat/s-pack120.ads: Likewise.
10618 * libgnat/s-pack121.adb: Likewise.
10619 * libgnat/s-pack121.ads: Likewise.
10620 * libgnat/s-pack122.adb: Likewise.
10621 * libgnat/s-pack122.ads: Likewise.
10622 * libgnat/s-pack123.adb: Likewise.
10623 * libgnat/s-pack123.ads: Likewise.
10624 * libgnat/s-pack124.adb: Likewise.
10625 * libgnat/s-pack124.ads: Likewise.
10626 * libgnat/s-pack125.adb: Likewise.
10627 * libgnat/s-pack125.ads: Likewise.
10628 * libgnat/s-pack126.adb: Likewise.
10629 * libgnat/s-pack126.ads: Likewise.
10630 * libgnat/s-pack127.adb: Likewise.
10631 * libgnat/s-pack127.ads: Likewise.
10632 * libgnat/s-pack13.adb: Likewise.
10633 * libgnat/s-pack13.ads: Likewise.
10634 * libgnat/s-pack14.adb: Likewise.
10635 * libgnat/s-pack14.ads: Likewise.
10636 * libgnat/s-pack15.adb: Likewise.
10637 * libgnat/s-pack15.ads: Likewise.
10638 * libgnat/s-pack17.adb: Likewise.
10639 * libgnat/s-pack17.ads: Likewise.
10640 * libgnat/s-pack18.adb: Likewise.
10641 * libgnat/s-pack18.ads: Likewise.
10642 * libgnat/s-pack19.adb: Likewise.
10643 * libgnat/s-pack19.ads: Likewise.
10644 * libgnat/s-pack20.adb: Likewise.
10645 * libgnat/s-pack20.ads: Likewise.
10646 * libgnat/s-pack21.adb: Likewise.
10647 * libgnat/s-pack21.ads: Likewise.
10648 * libgnat/s-pack22.adb: Likewise.
10649 * libgnat/s-pack22.ads: Likewise.
10650 * libgnat/s-pack23.adb: Likewise.
10651 * libgnat/s-pack23.ads: Likewise.
10652 * libgnat/s-pack24.adb: Likewise.
10653 * libgnat/s-pack24.ads: Likewise.
10654 * libgnat/s-pack25.adb: Likewise.
10655 * libgnat/s-pack25.ads: Likewise.
10656 * libgnat/s-pack26.adb: Likewise.
10657 * libgnat/s-pack26.ads: Likewise.
10658 * libgnat/s-pack27.adb: Likewise.
10659 * libgnat/s-pack27.ads: Likewise.
10660 * libgnat/s-pack28.adb: Likewise.
10661 * libgnat/s-pack28.ads: Likewise.
10662 * libgnat/s-pack29.adb: Likewise.
10663 * libgnat/s-pack29.ads: Likewise.
10664 * libgnat/s-pack30.adb: Likewise.
10665 * libgnat/s-pack30.ads: Likewise.
10666 * libgnat/s-pack31.adb: Likewise.
10667 * libgnat/s-pack31.ads: Likewise.
10668 * libgnat/s-pack33.adb: Likewise.
10669 * libgnat/s-pack33.ads: Likewise.
10670 * libgnat/s-pack34.adb: Likewise.
10671 * libgnat/s-pack34.ads: Likewise.
10672 * libgnat/s-pack35.adb: Likewise.
10673 * libgnat/s-pack35.ads: Likewise.
10674 * libgnat/s-pack36.adb: Likewise.
10675 * libgnat/s-pack36.ads: Likewise.
10676 * libgnat/s-pack37.adb: Likewise.
10677 * libgnat/s-pack37.ads: Likewise.
10678 * libgnat/s-pack38.adb: Likewise.
10679 * libgnat/s-pack38.ads: Likewise.
10680 * libgnat/s-pack39.adb: Likewise.
10681 * libgnat/s-pack39.ads: Likewise.
10682 * libgnat/s-pack40.adb: Likewise.
10683 * libgnat/s-pack40.ads: Likewise.
10684 * libgnat/s-pack41.adb: Likewise.
10685 * libgnat/s-pack41.ads: Likewise.
10686 * libgnat/s-pack42.adb: Likewise.
10687 * libgnat/s-pack42.ads: Likewise.
10688 * libgnat/s-pack43.adb: Likewise.
10689 * libgnat/s-pack43.ads: Likewise.
10690 * libgnat/s-pack44.adb: Likewise.
10691 * libgnat/s-pack44.ads: Likewise.
10692 * libgnat/s-pack45.adb: Likewise.
10693 * libgnat/s-pack45.ads: Likewise.
10694 * libgnat/s-pack46.adb: Likewise.
10695 * libgnat/s-pack46.ads: Likewise.
10696 * libgnat/s-pack47.adb: Likewise.
10697 * libgnat/s-pack47.ads: Likewise.
10698 * libgnat/s-pack48.adb: Likewise.
10699 * libgnat/s-pack48.ads: Likewise.
10700 * libgnat/s-pack49.adb: Likewise.
10701 * libgnat/s-pack49.ads: Likewise.
10702 * libgnat/s-pack50.adb: Likewise.
10703 * libgnat/s-pack50.ads: Likewise.
10704 * libgnat/s-pack51.adb: Likewise.
10705 * libgnat/s-pack51.ads: Likewise.
10706 * libgnat/s-pack52.adb: Likewise.
10707 * libgnat/s-pack52.ads: Likewise.
10708 * libgnat/s-pack53.adb: Likewise.
10709 * libgnat/s-pack53.ads: Likewise.
10710 * libgnat/s-pack54.adb: Likewise.
10711 * libgnat/s-pack54.ads: Likewise.
10712 * libgnat/s-pack55.adb: Likewise.
10713 * libgnat/s-pack55.ads: Likewise.
10714 * libgnat/s-pack56.adb: Likewise.
10715 * libgnat/s-pack56.ads: Likewise.
10716 * libgnat/s-pack57.adb: Likewise.
10717 * libgnat/s-pack57.ads: Likewise.
10718 * libgnat/s-pack58.adb: Likewise.
10719 * libgnat/s-pack58.ads: Likewise.
10720 * libgnat/s-pack59.adb: Likewise.
10721 * libgnat/s-pack59.ads: Likewise.
10722 * libgnat/s-pack60.adb: Likewise.
10723 * libgnat/s-pack60.ads: Likewise.
10724 * libgnat/s-pack61.adb: Likewise.
10725 * libgnat/s-pack61.ads: Likewise.
10726 * libgnat/s-pack62.adb: Likewise.
10727 * libgnat/s-pack62.ads: Likewise.
10728 * libgnat/s-pack63.adb: Likewise.
10729 * libgnat/s-pack63.ads: Likewise.
10730 * libgnat/s-pack65.adb: Likewise.
10731 * libgnat/s-pack65.ads: Likewise.
10732 * libgnat/s-pack66.adb: Likewise.
10733 * libgnat/s-pack66.ads: Likewise.
10734 * libgnat/s-pack67.adb: Likewise.
10735 * libgnat/s-pack67.ads: Likewise.
10736 * libgnat/s-pack68.adb: Likewise.
10737 * libgnat/s-pack68.ads: Likewise.
10738 * libgnat/s-pack69.adb: Likewise.
10739 * libgnat/s-pack69.ads: Likewise.
10740 * libgnat/s-pack70.adb: Likewise.
10741 * libgnat/s-pack70.ads: Likewise.
10742 * libgnat/s-pack71.adb: Likewise.
10743 * libgnat/s-pack71.ads: Likewise.
10744 * libgnat/s-pack72.adb: Likewise.
10745 * libgnat/s-pack72.ads: Likewise.
10746 * libgnat/s-pack73.adb: Likewise.
10747 * libgnat/s-pack73.ads: Likewise.
10748 * libgnat/s-pack74.adb: Likewise.
10749 * libgnat/s-pack74.ads: Likewise.
10750 * libgnat/s-pack75.adb: Likewise.
10751 * libgnat/s-pack75.ads: Likewise.
10752 * libgnat/s-pack76.adb: Likewise.
10753 * libgnat/s-pack76.ads: Likewise.
10754 * libgnat/s-pack77.adb: Likewise.
10755 * libgnat/s-pack77.ads: Likewise.
10756 * libgnat/s-pack78.adb: Likewise.
10757 * libgnat/s-pack78.ads: Likewise.
10758 * libgnat/s-pack79.adb: Likewise.
10759 * libgnat/s-pack79.ads: Likewise.
10760 * libgnat/s-pack80.adb: Likewise.
10761 * libgnat/s-pack80.ads: Likewise.
10762 * libgnat/s-pack81.adb: Likewise.
10763 * libgnat/s-pack81.ads: Likewise.
10764 * libgnat/s-pack82.adb: Likewise.
10765 * libgnat/s-pack82.ads: Likewise.
10766 * libgnat/s-pack83.adb: Likewise.
10767 * libgnat/s-pack83.ads: Likewise.
10768 * libgnat/s-pack84.adb: Likewise.
10769 * libgnat/s-pack84.ads: Likewise.
10770 * libgnat/s-pack85.adb: Likewise.
10771 * libgnat/s-pack85.ads: Likewise.
10772 * libgnat/s-pack86.adb: Likewise.
10773 * libgnat/s-pack86.ads: Likewise.
10774 * libgnat/s-pack87.adb: Likewise.
10775 * libgnat/s-pack87.ads: Likewise.
10776 * libgnat/s-pack88.adb: Likewise.
10777 * libgnat/s-pack88.ads: Likewise.
10778 * libgnat/s-pack89.adb: Likewise.
10779 * libgnat/s-pack89.ads: Likewise.
10780 * libgnat/s-pack90.adb: Likewise.
10781 * libgnat/s-pack90.ads: Likewise.
10782 * libgnat/s-pack91.adb: Likewise.
10783 * libgnat/s-pack91.ads: Likewise.
10784 * libgnat/s-pack92.adb: Likewise.
10785 * libgnat/s-pack92.ads: Likewise.
10786 * libgnat/s-pack93.adb: Likewise.
10787 * libgnat/s-pack93.ads: Likewise.
10788 * libgnat/s-pack94.adb: Likewise.
10789 * libgnat/s-pack94.ads: Likewise.
10790 * libgnat/s-pack95.adb: Likewise.
10791 * libgnat/s-pack95.ads: Likewise.
10792 * libgnat/s-pack96.adb: Likewise.
10793 * libgnat/s-pack96.ads: Likewise.
10794 * libgnat/s-pack97.adb: Likewise.
10795 * libgnat/s-pack97.ads: Likewise.
10796 * libgnat/s-pack98.adb: Likewise.
10797 * libgnat/s-pack98.ads: Likewise.
10798 * libgnat/s-pack99.adb: Likewise.
10799 * libgnat/s-pack99.ads: Likewise.
10800 * libgnat/s-parame.adb: Likewise.
10801 * libgnat/s-parame.ads: Likewise.
10802 * libgnat/s-parame__ae653.ads: Likewise.
10803 * libgnat/s-parame__hpux.ads: Likewise.
10804 * libgnat/s-parame__rtems.adb: Likewise.
10805 * libgnat/s-parame__vxworks.adb: Likewise.
10806 * libgnat/s-parame__vxworks.ads: Likewise.
10807 * libgnat/s-parint.adb: Likewise.
10808 * libgnat/s-parint.ads: Likewise.
10809 * libgnat/s-pooglo.adb: Likewise.
10810 * libgnat/s-pooglo.ads: Likewise.
10811 * libgnat/s-pooloc.adb: Likewise.
10812 * libgnat/s-pooloc.ads: Likewise.
10813 * libgnat/s-poosiz.adb: Likewise.
10814 * libgnat/s-poosiz.ads: Likewise.
10815 * libgnat/s-powflt.ads: Likewise.
10816 * libgnat/s-powlfl.ads: Likewise.
10817 * libgnat/s-powllf.ads: Likewise.
10818 * libgnat/s-purexc.ads: Likewise.
10819 * libgnat/s-putaim.adb: Likewise.
10820 * libgnat/s-putaim.ads: Likewise.
10821 * libgnat/s-putima.adb: Likewise.
10822 * libgnat/s-putima.ads: Likewise.
10823 * libgnat/s-rannum.adb: Likewise.
10824 * libgnat/s-rannum.ads: Likewise.
10825 * libgnat/s-ransee.adb: Likewise.
10826 * libgnat/s-ransee.ads: Likewise.
10827 * libgnat/s-regexp.adb: Likewise.
10828 * libgnat/s-regexp.ads: Likewise.
10829 * libgnat/s-regpat.adb: Likewise.
10830 * libgnat/s-regpat.ads: Likewise.
10831 * libgnat/s-resfil.adb: Likewise.
10832 * libgnat/s-resfil.ads: Likewise.
10833 * libgnat/s-restri.adb: Likewise.
10834 * libgnat/s-restri.ads: Likewise.
10835 * libgnat/s-rident.ads: Likewise.
10836 * libgnat/s-rpc.adb: Likewise.
10837 * libgnat/s-rpc.ads: Likewise.
10838 * libgnat/s-scaval.adb: Likewise.
10839 * libgnat/s-scaval.ads: Likewise.
10840 * libgnat/s-scaval__128.adb: Likewise.
10841 * libgnat/s-scaval__128.ads: Likewise.
10842 * libgnat/s-secsta.adb: Likewise.
10843 * libgnat/s-secsta.ads: Likewise.
10844 * libgnat/s-sequio.adb: Likewise.
10845 * libgnat/s-sequio.ads: Likewise.
10846 * libgnat/s-shabig.ads: Likewise.
10847 * libgnat/s-shasto.adb: Likewise.
10848 * libgnat/s-shasto.ads: Likewise.
10849 * libgnat/s-soflin.adb: Likewise.
10850 * libgnat/s-soflin.ads: Likewise.
10851 * libgnat/s-soliin.adb: Likewise.
10852 * libgnat/s-soliin.ads: Likewise.
10853 * libgnat/s-sopco3.adb: Likewise.
10854 * libgnat/s-sopco3.ads: Likewise.
10855 * libgnat/s-sopco4.adb: Likewise.
10856 * libgnat/s-sopco4.ads: Likewise.
10857 * libgnat/s-sopco5.adb: Likewise.
10858 * libgnat/s-sopco5.ads: Likewise.
10859 * libgnat/s-spsufi.adb: Likewise.
10860 * libgnat/s-spsufi.ads: Likewise.
10861 * libgnat/s-stache.adb: Likewise.
10862 * libgnat/s-stache.ads: Likewise.
10863 * libgnat/s-stalib.adb: Likewise.
10864 * libgnat/s-stalib.ads: Likewise.
10865 * libgnat/s-statxd.adb: Likewise.
10866 * libgnat/s-statxd.ads: Likewise.
10867 * libgnat/s-stausa.adb: Likewise.
10868 * libgnat/s-stausa.ads: Likewise.
10869 * libgnat/s-stchop.adb: Likewise.
10870 * libgnat/s-stchop.ads: Likewise.
10871 * libgnat/s-stchop__limit.ads: Likewise.
10872 * libgnat/s-stchop__rtems.adb: Likewise.
10873 * libgnat/s-stchop__vxworks.adb: Likewise.
10874 * libgnat/s-stoele.adb: Likewise.
10875 * libgnat/s-stoele.ads: Likewise.
10876 * libgnat/s-stopoo.adb: Likewise.
10877 * libgnat/s-stopoo.ads: Likewise.
10878 * libgnat/s-stposu.adb: Likewise.
10879 * libgnat/s-stposu.ads: Likewise.
10880 * libgnat/s-stratt.adb: Likewise.
10881 * libgnat/s-stratt.ads: Likewise.
10882 * libgnat/s-strcom.adb: Likewise.
10883 * libgnat/s-strcom.ads: Likewise.
10884 * libgnat/s-strhas.adb: Likewise.
10885 * libgnat/s-strhas.ads: Likewise.
10886 * libgnat/s-string.adb: Likewise.
10887 * libgnat/s-string.ads: Likewise.
10888 * libgnat/s-strops.adb: Likewise.
10889 * libgnat/s-strops.ads: Likewise.
10890 * libgnat/s-ststop.adb: Likewise.
10891 * libgnat/s-ststop.ads: Likewise.
10892 * libgnat/s-tasloc.adb: Likewise.
10893 * libgnat/s-tasloc.ads: Likewise.
10894 * libgnat/s-thread.ads: Likewise.
10895 * libgnat/s-thread__ae653.adb: Likewise.
10896 * libgnat/s-traceb.adb: Likewise.
10897 * libgnat/s-traceb.ads: Likewise.
10898 * libgnat/s-traceb__hpux.adb: Likewise.
10899 * libgnat/s-traceb__mastop.adb: Likewise.
10900 * libgnat/s-traent.adb: Likewise.
10901 * libgnat/s-traent.ads: Likewise.
10902 * libgnat/s-trasym.adb: Likewise.
10903 * libgnat/s-trasym.ads: Likewise.
10904 * libgnat/s-trasym__dwarf.adb: Likewise.
10905 * libgnat/s-tsmona.adb: Likewise.
10906 * libgnat/s-tsmona__linux.adb: Likewise.
10907 * libgnat/s-tsmona__mingw.adb: Likewise.
10908 * libgnat/s-unstyp.ads: Likewise.
10909 * libgnat/s-utf_32.adb: Likewise.
10910 * libgnat/s-utf_32.ads: Likewise.
10911 * libgnat/s-vade128.ads: Likewise.
10912 * libgnat/s-vade32.ads: Likewise.
10913 * libgnat/s-vade64.ads: Likewise.
10914 * libgnat/s-vafi128.ads: Likewise.
10915 * libgnat/s-vafi32.ads: Likewise.
10916 * libgnat/s-vafi64.ads: Likewise.
10917 * libgnat/s-valboo.adb: Likewise.
10918 * libgnat/s-valboo.ads: Likewise.
10919 * libgnat/s-valcha.adb: Likewise.
10920 * libgnat/s-valcha.ads: Likewise.
10921 * libgnat/s-valenu.adb: Likewise.
10922 * libgnat/s-valenu.ads: Likewise.
10923 * libgnat/s-valflt.ads: Likewise.
10924 * libgnat/s-valint.adb: Likewise.
10925 * libgnat/s-valint.ads: Likewise.
10926 * libgnat/s-vallfl.ads: Likewise.
10927 * libgnat/s-valllf.ads: Likewise.
10928 * libgnat/s-vallli.adb: Likewise.
10929 * libgnat/s-vallli.ads: Likewise.
10930 * libgnat/s-valllli.ads: Likewise.
10931 * libgnat/s-vallllu.ads: Likewise.
10932 * libgnat/s-valllu.adb: Likewise.
10933 * libgnat/s-valllu.ads: Likewise.
10934 * libgnat/s-valrea.adb: Likewise.
10935 * libgnat/s-valrea.ads: Likewise.
10936 * libgnat/s-valued.adb: Likewise.
10937 * libgnat/s-valued.ads: Likewise.
10938 * libgnat/s-valuef.adb: Likewise.
10939 * libgnat/s-valuef.ads: Likewise.
10940 * libgnat/s-valuei.adb: Likewise.
10941 * libgnat/s-valuei.ads: Likewise.
10942 * libgnat/s-valuer.adb: Likewise.
10943 * libgnat/s-valuer.ads: Likewise.
10944 * libgnat/s-valueu.adb: Likewise.
10945 * libgnat/s-valueu.ads: Likewise.
10946 * libgnat/s-valuns.adb: Likewise.
10947 * libgnat/s-valuns.ads: Likewise.
10948 * libgnat/s-valuti.adb: Likewise.
10949 * libgnat/s-valuti.ads: Likewise.
10950 * libgnat/s-valwch.adb: Likewise.
10951 * libgnat/s-valwch.ads: Likewise.
10952 * libgnat/s-veboop.adb: Likewise.
10953 * libgnat/s-veboop.ads: Likewise.
10954 * libgnat/s-vector.ads: Likewise.
10955 * libgnat/s-vercon.adb: Likewise.
10956 * libgnat/s-vercon.ads: Likewise.
10957 * libgnat/s-wchcnv.adb: Likewise.
10958 * libgnat/s-wchcnv.ads: Likewise.
10959 * libgnat/s-wchcon.adb: Likewise.
10960 * libgnat/s-wchcon.ads: Likewise.
10961 * libgnat/s-wchjis.adb: Likewise.
10962 * libgnat/s-wchjis.ads: Likewise.
10963 * libgnat/s-wchstw.adb: Likewise.
10964 * libgnat/s-wchstw.ads: Likewise.
10965 * libgnat/s-wchwts.adb: Likewise.
10966 * libgnat/s-wchwts.ads: Likewise.
10967 * libgnat/s-widboo.adb: Likewise.
10968 * libgnat/s-widboo.ads: Likewise.
10969 * libgnat/s-widcha.adb: Likewise.
10970 * libgnat/s-widcha.ads: Likewise.
10971 * libgnat/s-widenu.adb: Likewise.
10972 * libgnat/s-widenu.ads: Likewise.
10973 * libgnat/s-widint.ads: Likewise.
10974 * libgnat/s-widlli.adb: Likewise.
10975 * libgnat/s-widlli.ads: Likewise.
10976 * libgnat/s-widllli.ads: Likewise.
10977 * libgnat/s-widlllu.ads: Likewise.
10978 * libgnat/s-widllu.adb: Likewise.
10979 * libgnat/s-widllu.ads: Likewise.
10980 * libgnat/s-widthi.adb: Likewise.
10981 * libgnat/s-widthi.ads: Likewise.
10982 * libgnat/s-widthu.adb: Likewise.
10983 * libgnat/s-widthu.ads: Likewise.
10984 * libgnat/s-widuns.ads: Likewise.
10985 * libgnat/s-widwch.adb: Likewise.
10986 * libgnat/s-widwch.ads: Likewise.
10987 * libgnat/s-win32.ads: Likewise.
10988 * libgnat/s-winext.ads: Likewise.
10989 * libgnat/s-wwdcha.adb: Likewise.
10990 * libgnat/s-wwdcha.ads: Likewise.
10991 * libgnat/s-wwdenu.adb: Likewise.
10992 * libgnat/s-wwdenu.ads: Likewise.
10993 * libgnat/s-wwdwch.adb: Likewise.
10994 * libgnat/s-wwdwch.ads: Likewise.
10995 * libgnat/system-aix.ads: Likewise.
10996 * libgnat/system-darwin-arm.ads: Likewise.
10997 * libgnat/system-darwin-ppc.ads: Likewise.
10998 * libgnat/system-darwin-x86.ads: Likewise.
10999 * libgnat/system-djgpp.ads: Likewise.
11000 * libgnat/system-dragonfly-x86_64.ads: Likewise.
11001 * libgnat/system-freebsd.ads: Likewise.
11002 * libgnat/system-hpux-ia64.ads: Likewise.
11003 * libgnat/system-hpux.ads: Likewise.
11004 * libgnat/system-linux-alpha.ads: Likewise.
11005 * libgnat/system-linux-arm.ads: Likewise.
11006 * libgnat/system-linux-hppa.ads: Likewise.
11007 * libgnat/system-linux-ia64.ads: Likewise.
11008 * libgnat/system-linux-m68k.ads: Likewise.
11009 * libgnat/system-linux-mips.ads: Likewise.
11010 * libgnat/system-linux-ppc.ads: Likewise.
11011 * libgnat/system-linux-riscv.ads: Likewise.
11012 * libgnat/system-linux-s390.ads: Likewise.
11013 * libgnat/system-linux-sh4.ads: Likewise.
11014 * libgnat/system-linux-sparc.ads: Likewise.
11015 * libgnat/system-linux-x86.ads: Likewise.
11016 * libgnat/system-lynxos178-ppc.ads: Likewise.
11017 * libgnat/system-lynxos178-x86.ads: Likewise.
11018 * libgnat/system-mingw.ads: Likewise.
11019 * libgnat/system-qnx-aarch64.ads: Likewise.
11020 * libgnat/system-rtems.ads: Likewise.
11021 * libgnat/system-solaris-sparc.ads: Likewise.
11022 * libgnat/system-solaris-x86.ads: Likewise.
11023 * libgnat/system-vxworks-arm-rtp-smp.ads: Likewise.
11024 * libgnat/system-vxworks-arm-rtp.ads: Likewise.
11025 * libgnat/system-vxworks-arm.ads: Likewise.
11026 * libgnat/system-vxworks-e500-kernel.ads: Likewise.
11027 * libgnat/system-vxworks-e500-rtp-smp.ads: Likewise.
11028 * libgnat/system-vxworks-e500-rtp.ads: Likewise.
11029 * libgnat/system-vxworks-e500-vthread.ads: Likewise.
11030 * libgnat/system-vxworks-ppc-kernel.ads: Likewise.
11031 * libgnat/system-vxworks-ppc-ravenscar.ads: Likewise.
11032 * libgnat/system-vxworks-ppc-rtp-smp.ads: Likewise.
11033 * libgnat/system-vxworks-ppc-rtp.ads: Likewise.
11034 * libgnat/system-vxworks-ppc-vthread.ads: Likewise.
11035 * libgnat/system-vxworks-ppc.ads: Likewise.
11036 * libgnat/system-vxworks-x86-kernel.ads: Likewise.
11037 * libgnat/system-vxworks-x86-rtp-smp.ads: Likewise.
11038 * libgnat/system-vxworks-x86-rtp.ads: Likewise.
11039 * libgnat/system-vxworks-x86-vthread.ads: Likewise.
11040 * libgnat/system-vxworks-x86.ads: Likewise.
11041 * libgnat/system-vxworks7-aarch64-rtp-smp.ads: Likewise.
11042 * libgnat/system-vxworks7-aarch64.ads: Likewise.
11043 * libgnat/system-vxworks7-arm-rtp-smp.ads: Likewise.
11044 * libgnat/system-vxworks7-arm.ads: Likewise.
11045 * libgnat/system-vxworks7-e500-kernel.ads: Likewise.
11046 * libgnat/system-vxworks7-e500-rtp-smp.ads: Likewise.
11047 * libgnat/system-vxworks7-e500-rtp.ads: Likewise.
11048 * libgnat/system-vxworks7-ppc-kernel.ads: Likewise.
11049 * libgnat/system-vxworks7-ppc-rtp-smp.ads: Likewise.
11050 * libgnat/system-vxworks7-ppc-rtp.ads: Likewise.
11051 * libgnat/system-vxworks7-ppc64-kernel.ads: Likewise.
11052 * libgnat/system-vxworks7-ppc64-rtp-smp.ads: Likewise.
11053 * libgnat/system-vxworks7-x86-kernel.ads: Likewise.
11054 * libgnat/system-vxworks7-x86-rtp-smp.ads: Likewise.
11055 * libgnat/system-vxworks7-x86-rtp.ads: Likewise.
11056 * libgnat/system-vxworks7-x86_64-kernel.ads: Likewise.
11057 * libgnat/system-vxworks7-x86_64-rtp-smp.ads: Likewise.
11058 * link.c: Likewise.
11059 * live.adb: Likewise.
11060 * live.ads: Likewise.
11061 * locales.c: Likewise.
11062 * make.adb: Likewise.
11063 * make.ads: Likewise.
11064 * make_util.adb: Likewise.
11065 * make_util.ads: Likewise.
11066 * makeusg.adb: Likewise.
11067 * makeusg.ads: Likewise.
11068 * mdll-fil.adb: Likewise.
11069 * mdll-fil.ads: Likewise.
11070 * mdll-utl.adb: Likewise.
11071 * mdll-utl.ads: Likewise.
11072 * mdll.adb: Likewise.
11073 * mdll.ads: Likewise.
11074 * mingw32.h: Likewise.
11075 * mkdir.c: Likewise.
11076 * namet-sp.adb: Likewise.
11077 * namet-sp.ads: Likewise.
11078 * namet.adb: Likewise.
11079 * namet.ads: Likewise.
11080 * namet.h: Likewise.
11081 * nlists.adb: Likewise.
11082 * nlists.ads: Likewise.
11083 * nlists.h: Likewise.
11084 * opt.adb: Likewise.
11085 * opt.ads: Likewise.
11086 * osint-b.adb: Likewise.
11087 * osint-b.ads: Likewise.
11088 * osint-c.adb: Likewise.
11089 * osint-c.ads: Likewise.
11090 * osint-l.adb: Likewise.
11091 * osint-l.ads: Likewise.
11092 * osint-m.adb: Likewise.
11093 * osint-m.ads: Likewise.
11094 * osint.adb: Likewise.
11095 * osint.ads: Likewise.
11096 * output.adb: Likewise.
11097 * output.ads: Likewise.
11098 * par-ch10.adb: Likewise.
11099 * par-ch11.adb: Likewise.
11100 * par-ch12.adb: Likewise.
11101 * par-ch13.adb: Likewise.
11102 * par-ch2.adb: Likewise.
11103 * par-ch3.adb: Likewise.
11104 * par-ch4.adb: Likewise.
11105 * par-ch5.adb: Likewise.
11106 * par-ch6.adb: Likewise.
11107 * par-ch7.adb: Likewise.
11108 * par-ch8.adb: Likewise.
11109 * par-ch9.adb: Likewise.
11110 * par-endh.adb: Likewise.
11111 * par-labl.adb: Likewise.
11112 * par-load.adb: Likewise.
11113 * par-prag.adb: Likewise.
11114 * par-sync.adb: Likewise.
11115 * par-tchk.adb: Likewise.
11116 * par-util.adb: Likewise.
11117 * par.adb: Likewise.
11118 * par.ads: Likewise.
11119 * par_sco.adb: Likewise.
11120 * par_sco.ads: Likewise.
11121 * pprint.adb: Likewise.
11122 * pprint.ads: Likewise.
11123 * prep.adb: Likewise.
11124 * prep.ads: Likewise.
11125 * prepcomp.adb: Likewise.
11126 * prepcomp.ads: Likewise.
11127 * put_scos.adb: Likewise.
11128 * put_scos.ads: Likewise.
11129 * raise-gcc.c: Likewise.
11130 * raise.c: Likewise.
11131 * raise.h: Likewise.
11132 * repinfo-input.adb: Likewise.
11133 * repinfo-input.ads: Likewise.
11134 * repinfo.adb: Likewise.
11135 * repinfo.ads: Likewise.
11136 * repinfo.h: Likewise.
11137 * restrict.adb: Likewise.
11138 * restrict.ads: Likewise.
11139 * rident.ads: Likewise.
11140 * rtfinal.c: Likewise.
11141 * rtinit.c: Likewise.
11142 * rtsfind.adb: Likewise.
11143 * rtsfind.ads: Likewise.
11144 * runtime.h: Likewise.
11145 * s-oscons-tmplt.c: Likewise.
11146 * sa_messages.adb: Likewise.
11147 * sa_messages.ads: Likewise.
11148 * scans.adb: Likewise.
11149 * scans.ads: Likewise.
11150 * scil_ll.adb: Likewise.
11151 * scil_ll.ads: Likewise.
11152 * scn.adb: Likewise.
11153 * scn.ads: Likewise.
11154 * scng.adb: Likewise.
11155 * scng.ads: Likewise.
11156 * scos.adb: Likewise.
11157 * scos.ads: Likewise.
11158 * scos.h: Likewise.
11159 * sdefault.ads: Likewise.
11160 * seh_init.c: Likewise.
11161 * sem.adb: Likewise.
11162 * sem.ads: Likewise.
11163 * sem_aggr.adb: Likewise.
11164 * sem_aggr.ads: Likewise.
11165 * sem_attr.adb: Likewise.
11166 * sem_attr.ads: Likewise.
11167 * sem_aux.adb: Likewise.
11168 * sem_aux.ads: Likewise.
11169 * sem_case.adb: Likewise.
11170 * sem_case.ads: Likewise.
11171 * sem_cat.adb: Likewise.
11172 * sem_cat.ads: Likewise.
11173 * sem_ch10.adb: Likewise.
11174 * sem_ch10.ads: Likewise.
11175 * sem_ch11.adb: Likewise.
11176 * sem_ch11.ads: Likewise.
11177 * sem_ch12.adb: Likewise.
11178 * sem_ch12.ads: Likewise.
11179 * sem_ch13.adb: Likewise.
11180 * sem_ch13.ads: Likewise.
11181 * sem_ch2.adb: Likewise.
11182 * sem_ch2.ads: Likewise.
11183 * sem_ch3.adb: Likewise.
11184 * sem_ch3.ads: Likewise.
11185 * sem_ch4.adb: Likewise.
11186 * sem_ch4.ads: Likewise.
11187 * sem_ch5.adb: Likewise.
11188 * sem_ch5.ads: Likewise.
11189 * sem_ch6.adb: Likewise.
11190 * sem_ch6.ads: Likewise.
11191 * sem_ch7.adb: Likewise.
11192 * sem_ch7.ads: Likewise.
11193 * sem_ch8.adb: Likewise.
11194 * sem_ch8.ads: Likewise.
11195 * sem_ch9.adb: Likewise.
11196 * sem_ch9.ads: Likewise.
11197 * sem_dim.adb: Likewise.
11198 * sem_dim.ads: Likewise.
11199 * sem_disp.adb: Likewise.
11200 * sem_disp.ads: Likewise.
11201 * sem_dist.adb: Likewise.
11202 * sem_dist.ads: Likewise.
11203 * sem_elab.adb: Likewise.
11204 * sem_elab.ads: Likewise.
11205 * sem_elim.adb: Likewise.
11206 * sem_elim.ads: Likewise.
11207 * sem_eval.adb: Likewise.
11208 * sem_eval.ads: Likewise.
11209 * sem_intr.adb: Likewise.
11210 * sem_intr.ads: Likewise.
11211 * sem_mech.adb: Likewise.
11212 * sem_mech.ads: Likewise.
11213 * sem_prag.adb: Likewise.
11214 * sem_prag.ads: Likewise.
11215 * sem_res.adb: Likewise.
11216 * sem_res.ads: Likewise.
11217 * sem_scil.adb: Likewise.
11218 * sem_scil.ads: Likewise.
11219 * sem_smem.adb: Likewise.
11220 * sem_smem.ads: Likewise.
11221 * sem_type.adb: Likewise.
11222 * sem_type.ads: Likewise.
11223 * sem_util.adb: Likewise.
11224 * sem_util.ads: Likewise.
11225 * sem_warn.adb: Likewise.
11226 * sem_warn.ads: Likewise.
11227 * set_targ.adb: Likewise.
11228 * set_targ.ads: Likewise.
11229 * sfn_scan.adb: Likewise.
11230 * sfn_scan.ads: Likewise.
11231 * sigtramp-armdroid.c: Likewise.
11232 * sigtramp-ios.c: Likewise.
11233 * sigtramp-qnx.c: Likewise.
11234 * sigtramp-vxworks.c: Likewise.
11235 * sigtramp.h: Likewise.
11236 * sinfo-cn.adb: Likewise.
11237 * sinfo-cn.ads: Likewise.
11238 * sinfo.adb: Likewise.
11239 * sinfo.ads: Likewise.
11240 * sinput-c.adb: Likewise.
11241 * sinput-c.ads: Likewise.
11242 * sinput-d.adb: Likewise.
11243 * sinput-d.ads: Likewise.
11244 * sinput-l.adb: Likewise.
11245 * sinput-l.ads: Likewise.
11246 * sinput.adb: Likewise.
11247 * sinput.ads: Likewise.
11248 * snames.adb-tmpl: Likewise.
11249 * snames.ads-tmpl: Likewise.
11250 * socket.c: Likewise.
11251 * spark_xrefs.adb: Likewise.
11252 * spark_xrefs.ads: Likewise.
11253 * sprint.adb: Likewise.
11254 * sprint.ads: Likewise.
11255 * stand.ads: Likewise.
11256 * stringt.adb: Likewise.
11257 * stringt.ads: Likewise.
11258 * stringt.h: Likewise.
11259 * style.adb: Likewise.
11260 * style.ads: Likewise.
11261 * styleg.adb: Likewise.
11262 * styleg.ads: Likewise.
11263 * stylesw.adb: Likewise.
11264 * stylesw.ads: Likewise.
11265 * switch-b.adb: Likewise.
11266 * switch-b.ads: Likewise.
11267 * switch-c.adb: Likewise.
11268 * switch-c.ads: Likewise.
11269 * switch-m.adb: Likewise.
11270 * switch-m.ads: Likewise.
11271 * switch.adb: Likewise.
11272 * switch.ads: Likewise.
11273 * sysdep.c: Likewise.
11274 * table.adb: Likewise.
11275 * table.ads: Likewise.
11276 * targext.c: Likewise.
11277 * targparm.adb: Likewise.
11278 * targparm.ads: Likewise.
11279 * tbuild.adb: Likewise.
11280 * tbuild.ads: Likewise.
11281 * tempdir.adb: Likewise.
11282 * tempdir.ads: Likewise.
11283 * terminals.c: Likewise.
11284 * tracebak.c: Likewise.
11285 * treepr.adb: Likewise.
11286 * treepr.ads: Likewise.
11287 * ttypes.ads: Likewise.
11288 * types.adb: Likewise.
11289 * types.ads: Likewise.
11290 * types.h: Likewise.
11291 * uintp.adb: Likewise.
11292 * uintp.ads: Likewise.
11293 * uintp.h: Likewise.
11294 * uname.adb: Likewise.
11295 * uname.ads: Likewise.
11296 * urealp.adb: Likewise.
11297 * urealp.ads: Likewise.
11298 * urealp.h: Likewise.
11299 * usage.adb: Likewise.
11300 * usage.ads: Likewise.
11301 * validsw.adb: Likewise.
11302 * validsw.ads: Likewise.
11303 * vast.adb: Likewise.
11304 * vast.ads: Likewise.
11305 * warnsw.adb: Likewise.
11306 * warnsw.ads: Likewise.
11307 * widechar.adb: Likewise.
11308 * widechar.ads: Likewise.
11309 * xeinfo.adb: Likewise.
11310 * xnmake.adb: Likewise.
11311 * xoscons.adb: Likewise.
11312 * xr_tabls.adb: Likewise.
11313 * xr_tabls.ads: Likewise.
11314 * xref_lib.adb: Likewise.
11315 * xref_lib.ads: Likewise.
11316 * xsinfo.adb: Likewise.
11317 * xsnamest.adb: Likewise.
11318 * xtreeprs.adb: Likewise.
11319 * xutil.adb: Likewise.
11320 * xutil.ads: Likewise.
11322 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11324 * exp_dist.adb (Build_From_Any_Call): Remove initial value for
11325 Fnam; fix style.
11326 (Build_To_Any_Call): Remove initial value for Fnam.
11327 (Build_TypeCode_Call): Likewise.
11329 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11331 * checks.adb, exp_aggr.adb, exp_attr.adb, exp_ch6.adb,
11332 exp_disp.adb, exp_imgv.adb, exp_util.adb, sem_attr.adb,
11333 sem_ch13.adb, sem_ch8.adb, sem_eval.adb, sem_scil.adb,
11334 sem_util.adb: Replace calls to RTE with Is_RTE.
11336 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11338 * sem_ch4.adb (Try_Object_Operation): Reuse local constant.
11340 2021-05-03 Ed Schonberg <schonberg@adacore.com>
11342 * sem_ch4.adb (Try_Object_Operation): When a prefixed call is
11343 overloaded and illegal, and the All_Errors flag is off, generate
11344 an error message if the re-analysis of some candidate
11345 interpretation fails to produce one.
11347 2021-05-03 Dmitriy Anisimkov <anisimko@adacore.com>
11349 * libgnat/g-casuti.adb: Replace with "pragma No_Body".
11350 * libgnat/g-casuti.ads: Replace with a package renaming.
11352 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11354 * sem_attr.adb (Check_Program_Unit): Fix references to
11355 Concurrent_Kind and Is_Concurrent_Type; avoid repeated calls to
11356 Entity.
11358 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11360 * sem_attr.adb (Check_Program_Unit): Replace tests for Task_Kind
11361 and Protected_Kind with a collective test for Concurrent_Kind;
11362 likewise, replace calls to Is_Task_Type and Is_Protected_Type
11363 with a collective call to Is_Concurrent_Type; simplify into a
11364 single membership test; add missing Entry_Kind alternative.
11366 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11368 * sem_aggr.adb (Resolve_Record_Aggregate): Fix casing in error
11369 message.
11370 * sem_ch3.adb (Add_Internal_Interface_Entities): Fix unbalanced
11371 parens.
11372 * sem_elim.adb (Eliminate_Error_Msg): Add insertion character.
11374 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11376 * freeze.adb (Freeze_Profile): Replace Error_Msg_NE with
11377 Error_Msg_N; change to continuation message.
11378 * sem_cat.adb, sem_ch10.adb, sem_ch12.adb, sem_ch5.adb: Replace
11379 calls to Error_Msg_NE with calls to Error_Msg_N.
11381 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11383 * exp_disp.adb, sem_aggr.adb, sem_cat.adb, sem_ch10.adb,
11384 sem_ch12.adb, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb,
11385 sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_prag.adb,
11386 sem_res.adb: Remove extra leading and trailing space in error
11387 messages.
11389 2021-05-03 Arnaud Charlet <charlet@adacore.com>
11391 * sem_prag.adb (Set_Exported): Do not warn on exporting a type.
11393 2021-05-03 Ed Schonberg <schonberg@adacore.com>
11395 * sem_warn.adb (Check_References): Do not emit warning on a
11396 selected component when enclosing type has no discriminant and
11397 type of component has partial initialization.
11399 2021-05-03 Justin Squirek <squirek@adacore.com>
11401 * contracts.adb (Build_Postconditions_Procedure): Remove
11402 internally generated if statement used to control finalization
11403 actions.
11404 * exp_ch6.adb (Add_Return, Expand_Non_Function_Return,
11405 Expand_Simple_Function_Return): Add if statement around
11406 _postconditions to control finalization.
11407 * exp_ch7.adb (Build_Finalizer): Likewise.
11408 * sem_prag.adb (Find_Related_Declaration_Or_Body): Add case to
11409 handle Context itself being a handled sequence of statements.
11411 2021-05-03 Justin Squirek <squirek@adacore.com>
11413 * sem_util.adb (In_Return_Value): Modified to detect when
11414 implicit dereference is specified on the return type of a
11415 function call within the expression being checked.
11417 2021-05-03 Ed Schonberg <schonberg@adacore.com>
11419 * exp_aggr.adb (Expand_Array_Aggregate): If the parent node of
11420 the aggregate is a subprogram call there is no target in which
11421 to build the aggregate, and it has to be expanded into component
11422 assignments.
11424 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11426 * exp_prag.adb (Expand_Pragma_CUDA_Execute): Refill comments;
11427 remove periods after single-line comments; use procedural
11428 variant of Next_Entity.
11429 * gnat_cuda.adb: Refill comments; remove periods after
11430 single-line comments; replace calls to UI_From_Int with
11431 constants; change iteration bounds so they match the comments.
11432 * sem_prag.adb (Analyze_Pragma): Add checks for malformed pragma
11433 CUDA_Kernel aggregate; simplify processing of pragma CUDA_Global
11434 with Check_Arg_Count; sync comment with code for CUDA_Global.
11436 2021-05-03 Arnaud Charlet <charlet@adacore.com>
11438 * tbuild.adb (Make_Implicit_Loop_Statement): Disable restriction
11439 checking on dead paths.
11441 2021-05-03 Arnaud Charlet <charlet@adacore.com>
11443 * sem_util.adb (Check_Result_And_Post_State): Replace custom
11444 Has_In_Out_Parameter with existing Has_Out_Or_In_Out_Parameter
11445 flag which corresponds exactly to what we need.
11447 2021-05-03 Arnaud Charlet <charlet@adacore.com>
11449 * libgnat/a-ztcoio.adb: Remove unused with clause.
11451 2021-05-03 Piotr Trojanek <trojanek@adacore.com>
11453 * sem_ch13.adb (Build_Predicate_Functions): Fix typo in comment.
11454 (Resolve_Aspect_Expressions): Fix typo in comment; remove
11455 redundant check for no aspects; simplify with Discard_Node.
11457 2021-05-03 Ed Schonberg <schonberg@adacore.com>
11459 * sem_util.adb (Build_Constrained_Itype): Remove prior patch,
11460 issue is better handled in Sem_Ch13.Build_Predicate_Functions.
11461 * sem_ch13.adb (Build_Predicate_Functions): Do not build
11462 predicate function for an Itype with a defined
11463 Predicated_Parent, even if that designated parent does not yet
11464 have a Predicate_Function. This can happen in instance bodies
11465 nested within a generic unit.
11467 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11469 * exp_attr.adb (Expand_N_Attribute_Reference)
11470 <Attribute_Max_Size_In_Storage_Elements>: Apply the checks for
11471 universal integer contexts only in the default case.
11472 * exp_ch4.adb (Get_Size_For_Range): Move to library level.
11473 (Expand_N_Type_Conversion): If the operand has Universal_Integer
11474 type and the conversion requires an overflow check, try to do an
11475 intermediate conversion to a narrower type.
11477 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11479 * sem_ch3.adb (Check_Anonymous_Access_Component): Factor out
11480 core processing of Check_Anonymous_Access_Components.
11481 (Check_Anonymous_Access_Components): Call
11482 Check_Anonymous_Access_Component.
11483 (Process_Discriminants): Call Check_Anonymous_Access_Component.
11484 * freeze.adb (Freeze_Record_Type): Code cleanups and add more tree
11485 checking to handle changes in sem_ch3.adb.
11486 * sem_ch8.adb (Find_Type): Remove special case for access
11487 discriminant in task types, these are now supported.
11489 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11491 * exp_ch4.adb (Expand_Compare_Minimize_Eliminate_Overflow): Remove
11492 entry condition.
11493 (Expand_N_In): Call Minimized_Eliminated_Overflow_Check on the left
11494 operand before doing the special overflow expansion.
11495 (Expand_N_Op_Eq): Likewise.
11496 (Expand_N_Op_Ge): Likewise.
11497 (Expand_N_Op_Gt): Likewise.
11498 (Expand_N_Op_Le): Likewise.
11499 (Expand_N_Op_Lt): Likewise.
11500 (Expand_N_Op_Ne): Likewise.
11501 (Minimized_Eliminated_Overflow_Check): Return False for Minimized
11502 if the size of the type is greater than that of Long_Long_Integer.
11504 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11506 * exp_ch5.adb (Expand_N_If_Statement): Only perform the
11507 simplification on return True/False for internal nodes when
11508 -fpreserve-control-flow is not set.
11510 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11512 * sem_attr.adb (Eval_Attribute) <Attribute_Machine>: Use
11513 Round_Even instead of Round in the call to the Machine routine.
11515 2021-04-29 Bob Duff <duff@adacore.com>
11517 * sem_attr.adb (Analyze_Attribute): Change "$" to "&".
11518 Otherwise, Errout will trip over an uninitialized (invalid)
11519 variable (Error_Msg_Unit_1).
11521 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11523 * libgnat/s-valuer.adb (Scan_Decimal_Digits): Set Extra to zero
11524 when the precision limit is reached by means of trailing zeros
11525 and prevent it from being overwritten later.
11527 2021-04-29 Yannick Moy <moy@adacore.com>
11529 * errout.adb (Output_Messages): Insert SGR strings where needed.
11530 * erroutc.adb (Output_Message_Txt): Insert SGR strings where
11531 needed in the text of the message itself.
11532 (Output_Msg_Text): Allow for style message not to start
11533 with (style).
11534 * erroutc.ads: Add new constants and functions to control colors
11535 in messages output to the terminal. Add variable Use_SGR_Control
11536 that should be set to True for using SGR color control strings.
11538 2021-04-29 Yannick Moy <moy@adacore.com>
11540 * sem_eval.adb (Check_Non_Static_Context_For_Overflow): Apply
11541 compile-time checking for overflows in non-static contexts
11542 including inlined code.
11543 (Eval_Arithmetic_Op): Use the new procedure.
11544 (Eval_Unary_Op, Eval_Op_Expon): Add call to the new procedure.
11546 2021-04-29 Justin Squirek <squirek@adacore.com>
11548 * checks.adb (Apply_Type_Conversion_Checks): Move out constraint
11549 check generation, and add case for general access types with
11550 constraints.
11551 (Make_Discriminant_Constraint_Check): Created to centralize
11552 generation of constraint checks for stored discriminants.
11554 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11556 * gnat1drv.adb (Adjust_Global_Switches): Force a 32-bit Duration
11557 type if the maximum integer size is lower than 64 bits.
11559 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11561 * Makefile.rtl (ADA_EXCLUDE_SRCS): Remove unused files.
11562 (ADA_INCLUDE_SRCS): Remove libgnat/system.ads
11564 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11566 * exp_aggr.adb (Collect_Initialization_Statements): Removed.
11567 (Convert_Aggr_In_Object_Decl, Expand_Array_Aggregate): Fix
11568 creation and insertion of Initialization_Statements. Do not set
11569 Initialization_Statements when a transient scope is involved.
11570 Move processing of Array_Slice here. Ensure that an object with
11571 an Array_Slice call gets its array component initialized. Add
11572 comments.
11573 * exp_ch7.adb: Update comments.
11574 (Store_Actions_In_Scope): Deal properly with an empty list which
11575 might now be generated by Convert_Aggr_In_Object_Decl.
11576 * exp_ch3.adb: Update comments.
11577 (Expand_N_Object_Declaration): Remove processing of Array_Slice.
11579 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11581 * sem_ch8.adb (Analyze_Object_Renaming): Update check for
11582 AI12-0401.
11584 2021-04-29 Patrick Bernardi <bernardi@adacore.com>
11586 * libgnat/s-stoele.ads (Storage_Offset): Cleanup comment.
11588 2021-04-29 Gary Dismukes <dismukes@adacore.com>
11590 * exp_util.adb (Add_Own_DIC): Relax the suppression of adding a
11591 DIC Check pragma that's done for abstract types by still doing
11592 it in the case where GNATprove_Mode is set.
11594 2021-04-29 Joel Brobecker <brobecker@adacore.com>
11596 * Makefile.rtl (ADA_EXCLUDE_SRCS): Remove s-gcc.adb, s-gcc.ads,
11597 s-gccdiv.adb, s-gccdiv.ads, s-gccshi.adb and s-gccshi.ads.
11599 2021-04-29 Piotr Trojanek <trojanek@adacore.com>
11601 * layout.adb (Layout_Type): Refine type of a local variable with
11602 the required size of object from Int to Pos (it is initialized
11603 with 8 and only multiplied by 2); fix unbalanced parens in
11604 comment.
11606 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11608 * eval_fat.adb (Succ): Use Ureal_Half in a couple of places.
11610 2021-04-29 Ed Schonberg <schonberg@adacore.com>
11612 * sem_util.adb (Build_Constrained_Itype): Inhibit the generation
11613 of predicate functions for this Itype, which is created for an
11614 aggregate of a discriminated type. The object to which the
11615 aggregate is assigned, e.g a writable actual parameter, will
11616 apply the predicates if any are inherited from the base type.
11618 2021-04-29 Piotr Trojanek <trojanek@adacore.com>
11620 * sem_cat.adb (Set_Categorization_From_Pragmas): Remove special
11621 case for generic child units; remove optimization for empty list
11622 of pragmas; properly restore visibility.
11624 2021-04-29 Piotr Trojanek <trojanek@adacore.com>
11626 * sem_elab.adb (Process_SPARK_Instantiation): Fix typo in
11627 comment.
11628 * sem_prag.adb (Find_Related_Context): Add missing reference to
11629 No_Caching in the comment; handle pragmas on compilation units.
11631 2021-04-29 Piotr Trojanek <trojanek@adacore.com>
11633 * doc/gnat_rm/implementation_defined_attributes.rst: Change all
11634 occurrences of "permissible prefix" to "allowed prefix", for
11635 consistency.
11636 * gnat_rm.texi: Regenerate.
11638 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11640 * eval_fat.adb (Succ): Add a special case for zero if the type does
11641 not support denormalized numbers. Always use the canonical formula
11642 in other cases and add commentary throughout the function.
11644 2021-04-29 Eric Botcazou <ebotcazou@adacore.com>
11646 * libgnat/s-fatgen.adb: Remove with clause for Interfaces and
11647 use type clauses for Interfaces.Unsigned_{16,32,64}.
11648 (Small16): Remove.
11649 (Small32): Likewise
11650 (Small64): Likewise.
11651 (Small80): Likewise.
11652 (Tiny16): Likewise.
11653 (Tiny32): Likewise.
11654 (Tiny64): Likewise.
11655 (Tiny80): Likewise.
11656 (Siz): Always use 16.
11657 (NR): New constant.
11658 (Rep_Last): Use it in the computation.
11659 (Exp_Factor): Remove special case for 80-bit.
11660 (Sign_Mask): Likewise.
11661 (Finite_Succ): New function implementing the Succ attribute for
11662 finite numbers.
11663 (Pred): Rewrite in terms of Finite_Succ.
11664 (Succ): Likewise.
11666 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11668 * debug_a.adb (Debug_Output_Astring): Remove obsolete comment.
11670 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11672 * sem_attr.adb (Check_Image_Type): Protect against empty
11673 Image_Type.
11675 2021-04-29 Arnaud Charlet <charlet@adacore.com>
11677 * libgnat/a-nbnbin.ads (From_Universal_Image): New.
11678 (Big_Integer): Update definition.
11679 * libgnat/a-nbnbre.ads, libgnat/a-nbnbre.adb
11680 (From_Universal_Image): New.
11681 (From_String): Remove alternate body, replaced by
11682 From_Universal_Image.
11683 (Big_Real): Update definition.
11685 2021-04-29 Gary Dismukes <dismukes@adacore.com>
11687 * sem_ch8.adb (Find_Type): Check the No_Obsolescent_Features
11688 restriction for 'Class applied to an untagged incomplete
11689 type (when Ada_Version >= Ada_2005). Remove disabling of the
11690 warning message for such usage, along with the ??? comment,
11691 which no longer applies (because the -gnatg switch no longer
11692 sets Warn_On_Obsolescent_Feature).
11694 2021-04-29 Yannick Moy <moy@adacore.com>
11696 * errout.adb (Error_Msg_NEL): Extract span from node.
11697 (First_And_Last_Nodes): Use spans for subtype indications and
11698 attribute definition clauses.
11699 (Write_Source_Code_Lines): Fix for tabulation characters. Change
11700 output for large spans to skip intermediate lines.
11701 * sem_case.adb (Check_Choice_Set): Report duplicate choice on
11702 the Original_Node for the case.
11703 (Generic_Check_Choices): Set the Original_Node for the rewritten
11704 case, so that the subtree used in spans has the correct
11705 locations.
11707 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11709 * sem_ch13.adb, sem_util.adb: Fix style.
11711 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11713 * nlists.ads (List_Length): Adapt comment to match the
11714 behaviour.
11716 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11718 * sem_eval.adb (Eval_Selected_Component): Only consider compile
11719 time known aggregates.
11721 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11723 * libgnat/s-fatgen.adb: Add use clause for Interfaces.Unsigned_16
11724 and Interfaces.Unsigned_32.
11725 (Small16): New constant.
11726 (Small32): Likewise.
11727 (Small64): Likewise.
11728 (Small80): Likewise.
11729 (Pred): Declare a local overlay for Small and return it negated
11730 for zero if the type does not support denormalized numbers.
11731 (Succ): Likewise, but return it directly.
11733 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11735 * inline.adb (Formal_Is_Used_Once): Refine type of the counter
11736 variable; remove redundant assignment.
11738 2021-04-28 Patrick Bernardi <bernardi@adacore.com>
11740 * libgnarl/s-interr.adb (Install_Restricted_Handlers): Change
11741 Prio parameter to type Interrupt_Priority.
11742 * libgnarl/s-interr.ads (Install_Restricted_Handlers): Likewise.
11743 * libgnarl/s-interr__dummy.adb (Install_Restricted_Handlers):
11744 Likewise.
11745 * libgnarl/s-interr__hwint.adb (Install_Restricted_Handlers):
11746 Likewise.
11747 * libgnarl/s-interr__sigaction.adb (Install_Restricted_Handlers):
11748 Likewise.
11749 * libgnarl/s-interr__vxworks.adb (Install_Restricted_Handlers):
11750 Likewise.
11752 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11754 * sem_type.ads (Write_Interp_Ref): Removed; no longer needed.
11755 * sem_type.adb (Headers): Removed; now the hash table is
11756 directly in the Interp_Map alone.
11757 (Interp_Map): Now an instance of the GNAT.HTable.Simple_HTable.
11758 (Last_Overloaded): New variable to emulate Interp_Map.Last.
11759 (Add_One_Interp): Adapt to new data structure.
11760 (Get_First_Interp): Likewise.
11761 (Hash): Likewise.
11762 (Init_Interp_Tables): Likewise.
11763 (New_Interps): Likewise.
11764 (Save_Interps): Likewise; handle O_N variable like in
11765 Get_First_Interp.
11766 (Write_Interp_Ref): Removed; no longer needed.
11768 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11770 * inline.adb (Do_Reset_Calls): Now an instance of Traverse_Proc.
11772 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11774 * sem_ch13.adb (Analyze_Aspect_Static): Reuse
11775 Error_Msg_Ada_2020_Feature for aspect Static.
11776 (Analyze_One_Aspect): Likewise for aspect Full_Access.
11778 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11780 * sem_ch13.adb (Analyze_Aspect_Static): Refactor to have a
11781 single check for the expression being present; adapt comments.
11783 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11785 * sem_ch13.adb (Analyze_Aspect_Static): Use aspect name in the
11786 error message.
11788 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11790 * sem_eval.adb (Eval_Selected_Component): Simplify with
11791 Unqualify.
11793 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11795 * libgnat/s-valrea.adb (Fast2Sum): New function.
11796 (Integer_to_Real): Use it in an iterated addition with exact
11797 error handling for the case where an extra digit is needed.
11798 Move local variable now only used in the exponentiation case.
11800 2021-04-28 Yannick Moy <moy@adacore.com>
11802 * errout.adb: (Error_Msg_Internal): Use span instead of
11803 location.
11804 (Error_Msg, Error_Msg_NEL): Add versions with span parameter.
11805 (Error_Msg_F, Error_Msg_FE, Error_Msg_N, Error_Msg_NE,
11806 Error_Msg_NW): Retrieve span from node.
11807 (First_Node): Use the new First_And_Last_Nodes.
11808 (First_And_Last_Nodes): Expand on previous First_Node. Apply to
11809 other nodes than expressions.
11810 (First_Sloc): Protect against inconsistent locations.
11811 (Last_Node): New function based on First_And_Last_Nodes.
11812 (Last_Sloc): New function similar to First_Sloc.
11813 (Output_Messages): Update output when -gnatdF is used. Use
11814 character ~ for making the span visible, similar to what is done
11815 in GCC and Clang.
11816 * errout.ads (Error_Msg, Error_Msg_NEL): Add versions with span
11817 parameter.
11818 (First_And_Last_Nodes, Last_Node, Last_Sloc): New subprograms.
11819 * erroutc.adb: Adapt to Sptr field being a span.
11820 * erroutc.ads (Error_Msg_Object): Change field Sptr from
11821 location to span.
11822 * errutil.adb: Adapt to Sptr field being a span.
11823 * freeze.adb: Use Errout reporting procedures for nodes to get
11824 spans.
11825 * par-ch3.adb: Likewise.
11826 * par-prag.adb: Likewise.
11827 * par-util.adb: Likewise.
11828 * sem_case.adb: Likewise.
11829 * sem_ch13.adb: Likewise.
11830 * sem_ch3.adb: Likewise.
11831 * sem_prag.adb: Likewise.
11832 * types.ads: (Source_Span): New type for spans.
11833 (To_Span): Basic constructors for spans.
11835 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11837 * einfo.adb (Discriminant_Constraint): Refine assertion.
11839 2021-04-28 Gary Dismukes <dismukes@adacore.com>
11841 * exp_util.adb (Add_Own_DIC): Suppress expansion of a DIC pragma
11842 when the pragma occurs for an abstract type, since that could
11843 lead to a call to an abstract function, and such DIC checks can
11844 never be performed for abstract types in any case.
11845 * sem_disp.adb (Check_Dispatching_Context): Suppress the check
11846 for illegal calls to abstract subprograms when the call occurs
11847 within a Default_Initial_Condition aspect and the call is passed
11848 the current instance as an actual.
11849 (Has_Controlling_Current_Instance_Actual): New function to test
11850 a call to see if it has any actuals given by direct references
11851 to a current instance of a type
11852 * sem_res.adb (Resolve_Actuals): Issue an error for a call
11853 within a DIC aspect to a nonprimitive subprogram with an actual
11854 given by the name of the DIC type's current instance (which will
11855 show up as a reference to the formal parameter of a DIC
11856 procedure).
11858 2021-04-28 Ed Schonberg <schonberg@adacore.com>
11860 * exp_ch3.adb (Expand_Record_Extension): Set Parent_Subtype on
11861 the type extension when within a generic unit, even though
11862 expansion is disabled, to allow for proper resolution of
11863 selected components inherited from an ancestor.
11865 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11867 * sem_aux.adb (Is_Limited_Type): Fix logic to check Is_Type
11868 before assuming Ent is a typo.
11869 * sem_ch4.adb (Analyze_Expression_With_Actions): Update
11870 comments, minor reformatting.
11871 * sem_res.adb (Resolve_Declare_Expression): Add protection
11872 against no type.
11874 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11876 * exp_ch6.adb: Fix typo in comment.
11877 * sem_ch3.adb (Access_Subprogram_Declaration): Add missing call
11878 to Create_Extra_Formals. Remove obsolete bootstrap check.
11879 * sem_eval.adb (Eval_Selected_Component): Simplify a
11880 selected_component on an aggregate.
11882 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11884 * fmap.ads (Reset_Tables): Remove outdated references to
11885 GNSA/ASIS.
11886 * sem_eval.ads (Initialize): Likewise.
11887 * sem_type.adb (Headers): Remove initialization at elaboration.
11888 * sem_type.ads (Init_Interp_Tables): Remove outdated reference
11889 to gnatf.
11890 * stringt.ads (Initialize): Fix style in comment.
11892 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11894 * sem_res.ads: Update reference in comment.
11895 * sem_type.ads: Fix casing in a name of a unit.
11897 2021-04-28 Yannick Moy <moy@adacore.com>
11899 * ghost.adb (Check_Ghost_Context): Add continuation message when
11900 in predicate.
11902 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11904 * libgnat/s-valrea.adb (Integer_to_Real): Use a subtype of Num
11905 for the component type of the table of powers of ten.
11906 * libgnat/s-valuer.adb (Round_Extra): Add assertion on Base.
11908 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11910 * sem_ch5.adb (Analyze_Case_Statement): Extend optimization to
11911 all objects; fix typo in comment.
11913 2021-04-28 Piotr Trojanek <trojanek@adacore.com>
11915 * exp_ch9.adb (Build_Barrier_Function): Refine type of a
11916 protected type entity.
11917 (Is_Pure_Barrier): Fix style.
11919 2021-04-28 Bob Duff <duff@adacore.com>
11921 * exp_ch3.adb (Simple_Init_Defaulted_Type): Simplify the code,
11922 and always use OK_Convert_To, rather than Unchecked_Convert_To
11923 and Convert_To.
11925 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11927 * sem_ch3.adb (Analyze_Object_Declaration): Remove dead code.
11928 * ali.ads, ali.adb (Scan_ALI): Remove unused parameters.
11929 Remove unused code related to Xref lines.
11930 (Get_Typeref): Removed, no longer used.
11932 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11934 * exp_attr.adb (Build_Array_VS_Func, Build_Record_VS_Func,
11935 Expand_N_Attribute_Reference): Use Get_Fullest_View instead of
11936 Validated_View.
11937 (Build_Record_VS_Func): Adjust to keep using Validated_View.
11938 (Expand_N_Attribute_Reference) [Valid]: Use
11939 Small_Integer_Type_For to allow for more compile time
11940 evaluations.
11941 * sem_util.adb (Cannot_Raise_Constraint_Error): Add more precise
11942 support for N_Indexed_Component and fix support for
11943 N_Selected_Component which wasn't completely safe.
11944 (List_Cannot_Raise_CE): New.
11945 * libgnat/i-cobol.adb (Valid_Packed): Simplify test to address
11946 new GNAT warning.
11948 2021-04-28 Arnaud Charlet <charlet@adacore.com>
11950 * .gitignore: New.
11951 * doc/share/conf.py: Add Python 3 compatibility.
11952 * doc/share/gnat.sty: Add missing file.
11954 2021-04-28 Richard Wai <richard@annexi-strayline.com>
11956 * libgnat/a-cohase.ads (Cursor): Synchronize comments for the Cursor
11957 type definition to be consistent with identical definitions in other
11958 container packages. Add additional comments regarding the importance of
11959 maintaining the "Position" component for predefined equality.
11960 * libgnat/a-cohama.ads (Cursor): Likewise.
11961 * libgnat/a-cihama.ads (Cursor): Likewise.
11962 * libgnat/a-cohase.adb (Find, Insert): Ensure that Cursor objects
11963 always have their "Position" component set to ensure predefined
11964 equality works as required.
11965 * libgnat/a-cohama.adb (Find, Insert): Likewise.
11966 * libgnat/a-cihama.adb (Find, Insert): Likewise.
11968 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11970 * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Do not demote a
11971 const or pure function because of a parameter whose type is pointer
11972 to function.
11973 * gcc-interface/trans.c (Call_to_gnu): Do not put back a conversion
11974 between an actual and a formal that are unconstrained array types.
11975 (gnat_gimplify_expr) <CALL_EXPR>: New case.
11976 * gcc-interface/utils2.c (build_binary_op): Do not use |= operator.
11977 (gnat_stabilize_reference_1): Likewise.
11978 (gnat_rewrite_reference): Likewise.
11979 (build_unary_op): Do not clear existing TREE_CONSTANT on the result.
11980 (gnat_build_constructor): Also accept the address of a constant
11981 CONSTRUCTOR as constant element.
11983 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11985 * gcc-interface/trans.c (is_array_of_scalar_type): New predicate.
11986 (find_decls_r): New function.
11987 (return_slot_opt_for_pure_call_p): New predicate.
11988 (Call_to_gnu): Do not create a temporary for the return value if the
11989 parent node is an aggregate. If there is a target, try to apply the
11990 return slot optimization to regular calls to pure functions returning
11991 an array of scalar type.
11993 2021-04-28 Eric Botcazou <ebotcazou@adacore.com>
11995 * gcc-interface/trans.c (language_function): Add comment.
11996 (loop_info_d): Add fndecl and invariants fields.
11997 (find_loop_for): Test fndecl instead of the context of var.
11998 (find_loop): New function.
11999 (Regular_Loop_to_gnu): Fold back into...
12000 (Loop_Statement_to_gnu): ...this. Emit invariants on entry, if any.
12001 (gnat_to_gnu) <N_Selected_Component>: Record nonconstant invariant
12002 offset computations in loops when optimization is enabled.
12003 * gcc-interface/utils2.c (gnat_invariant_expr): Handle BIT_AND_EXPR.
12005 2021-04-20 Martin Liska <mliska@suse.cz>
12007 * gnatvsn.ads: Bump Library_Version to 12.
12009 2021-04-13 Eric Botcazou <ebotcazou@adacore.com>
12011 * gcc-interface/misc.c (gnat_init): Set default range bits to 0.
12012 * gcc-interface/trans.c (extract_encoding): Delete.
12013 (decode_name): Likewise.
12014 (File_Name_to_gnu): New function.
12015 (gigi): Call it to translate file names. Replace assertion on
12016 1-1 mapping between files and line maps with conditional error.
12018 2021-04-11 Gerald Pfeifer <gerald@pfeifer.com>
12020 * gnat_ugn.texi (Top): Avoid invalid "up" link.
12022 2021-03-29 Eric Botcazou <ebotcazou@adacore.com>
12024 PR ada/99802
12025 * freeze.adb (Is_Full_Access_Aggregate): Call Is_Full_Access_Object
12026 on the name of an N_Assignment_Statement to spot full access.
12028 2021-03-10 Eric Botcazou <ebotcazou@adacore.com>
12030 * gcc-interface/decl.c (gnat_to_gnu_entity): Build a TYPE_STUB_DECL
12031 for the main variant of an enumeration type declared as volatile.
12033 2021-03-09 Mikael Pettersson <mikpelinux@gmail.com>
12035 * raise-gcc.c: On Cygwin include mingw32.h to prevent
12036 windows.h from including x86intrin.h or emmintrin.h.
12038 2021-03-05 Eric Botcazou <ebotcazou@adacore.com>
12040 PR ada/99264
12041 * init.c (__gnat_alternate_sta) [Linux]: Remove preprocessor test on
12042 MINSIGSTKSZ and bump size to 32KB.
12043 * libgnarl/s-osinte__linux.ads (Alternate_Stack_Size): Bump to 32KB.
12045 2021-03-02 Mikael Pettersson <mikpelinux@gmail.com>
12047 PR bootstrap/98590
12048 * cstreams.c: Ensure fileno_unlocked() is visible on Cygwin.
12050 2021-03-02 Eric Botcazou <ebotcazou@adacore.com>
12052 PR ada/99095
12053 * sem_ch8.adb (Check_Constrained_Object): Restrict again the special
12054 optimization for limited types to non-array types except in the case
12055 of an extended return statement.
12057 2021-03-02 Eric Botcazou <ebotcazou@adacore.com>
12059 PR ada/99020
12060 * sem_ch3.adb (Build_Discriminated_Subtype): Set the Cloned_Subtype
12061 only if the type is not private.
12063 2021-02-26 YunQiang Su <yunqiang.su@cipunited.com>
12065 PR ada/98996
12066 * Makefile.rtl: <mips*-*-linux*>
12067 add 128Bit operation file for MIPS N64 and N32 to
12068 LIBGNAT_TARGET_PAIRS and EXTRA_GNATRTL_NONTASKING_OBJS
12070 2021-02-12 Arnaud Charlet <charlet@adacore.com>
12072 * repinfo.ads, repinfo.adb (*SO_Ref*): Restore.
12074 2021-02-03 Eric Botcazou <ebotcazou@adacore.com>
12076 * gcc-interface/decl.c (components_to_record): If the first component
12077 with rep clause is the _Parent field with variable size, temporarily
12078 set it aside when computing the internal layout of the REP part again.
12079 * gcc-interface/utils.c (finish_record_type): Revert to taking the
12080 maximum when merging sizes for all record types with rep clause.
12081 (merge_sizes): Put SPECIAL parameter last and adjust recursive calls.
12083 2021-02-03 Eric Botcazou <ebotcazou@adacore.com>
12085 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Make the
12086 two fields of the fat pointer type addressable, and do not make the
12087 template type read-only.
12088 <E_Record_Type>: If the type has discriminants mark it as may_alias.
12089 * gcc-interface/utils.c (make_dummy_type): Likewise.
12090 (build_dummy_unc_pointer_types): Likewise.
12092 2021-01-26 Marius Hillenbrand <mhillen@linux.ibm.com>
12094 PR ada/98228
12095 * gcc-interface/utils.c (maybe_pad_type): Test the size of the new
12096 packable type instead of its alignment for addressability's sake.
12098 2021-01-25 Eric Botcazou <ebotcazou@adacore.com>
12100 * gcc-interface/trans.c (make_covariant_thunk): Set the DECL_CONTEXT
12101 of the parameters and do not set TREE_PUBLIC on the thunk.
12102 (maybe_make_gnu_thunk): Pass the alias to the covariant thunk.
12103 * gcc-interface/utils.c (finish_subprog_decl): Set the DECL_CONTEXT
12104 of the parameters here...
12105 (begin_subprog_body): ...instead of here.
12107 2021-01-19 Eric Botcazou <ebotcazou@adacore.com>
12109 PR ada/98740
12110 * gcc-interface/trans.c (add_decl_expr): Always mark TYPE_ADA_SIZE.
12112 2021-01-14 Sebastian Huber <sebastian.huber@embedded-brains.de>
12114 PR ada/98595
12115 * Makefile.rtl (LIBGNAT_TARGET_PAIRS) <riscv*-*-rtems*>: Use
12116 wraplf version of Aux_Long_Long_Float.
12118 2021-01-03 Eric Botcazou <ebotcazou@adacore.com>
12120 * gnatvsn.ads: Bump copyright year.
12122 2021-01-01 Jakub Jelinek <jakub@redhat.com>
12124 * gnat_ugn.texi: Bump @copying's copyright year.
12125 * gnat_rm.texi: Likewise.
12127 2021-01-01 Jakub Jelinek <jakub@redhat.com>
12129 * ChangeLog-2020: Rotate ChangeLog. New file.
12130 \f
12131 Copyright (C) 2021 Free Software Foundation, Inc.
12133 Copying and distribution of this file, with or without modification,
12134 are permitted in any medium without royalty provided the copyright
12135 notice and this notice are preserved.