]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/ada/ChangeLog
Daily bump.
[thirdparty/gcc.git] / gcc / ada / ChangeLog
1 2023-05-18 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
2
3 * gcc-interface/decl.cc (gnat_to_gnu_entity): Use _P defines
4 from tree.h.
5 (constructor_address_p): Ditto.
6 (elaborate_expression_1): Ditto.
7 * gcc-interface/trans.cc (Identifier_to_gnu): Ditto.
8 (is_nrv_p): Ditto.
9 (Subprogram_Body_to_gnu): Ditto.
10 (gnat_to_gnu): Ditto.
11 (gnat_to_gnu_external): Ditto.
12 (add_decl_expr): Ditto.
13 (gnat_gimplify_expr): Ditto.
14 * gcc-interface/utils.cc (create_var_decl): Ditto.
15 * gcc-interface/utils2.cc (get_base_type): Ditto.
16 (build_binary_op): Ditto.
17 (build_unary_op): Ditto.
18 (gnat_protect_expr): Ditto.
19 (gnat_invariant_expr): Ditto.
20
21 2023-05-16 Steve Baird <baird@adacore.com>
22
23 * usage.adb: Generate output text describing the -gnatw_s switch
24 (and the corresponding -gnatw_S switch).
25
26 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
27
28 * exp_attr.adb (Expand_N_Attribute_Reference) <Attribute_Reduce>:
29 Use the canonical accumulator type as the type of the accumulator
30 in the prefixed case.
31
32 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
33
34 * exp_aggr.adb (Expand_Array_Aggregate): Do not set Warnings_Off on
35 the temporary created when in-place expansion is not possible.
36
37 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
38
39 * freeze.adb (Freeze_Expression): When the freezing is to be done
40 outside the current scope, skip any scope that is an internal loop.
41
42 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
43
44 * exp_imgv.adb (Rewrite_Object_Image): If the prefix is a component
45 that depends on a discriminant, create an actual subtype for it.
46
47 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
48
49 * sem_ch13.adb: Add with and use clauses for Expander.
50 (Resolve_Aspect_Expressions) <Aspect_Predicate>: Emulate a
51 bona-fide preanalysis setup before calling
52 Resolve_Aspect_Expression.
53
54 2023-05-16 Yannick Moy <moy@adacore.com>
55
56 * libgnat/s-aridou.adb (Lemma_Div_Pow2): Add assertion.
57 * libgnat/s-arit32.adb (Lemma_Abs_Div_Commutation): Simplify.
58 * libgnat/s-expmod.adb (Lemma_Exp_Mod): Add assertions.
59 (Lemma_Euclidean_Mod): Add body to lemma.
60 (Lemma_Mult_Mod): Add assertion.
61 * libgnat/s-valueu.adb (Scan_Raw_Unsigned): Modify assertion.
62 * libgnat/s-vauspe.ads (Raw_Unsigned_Last_Ghost): Add
63 postcondition.
64 * libgnat/s-widthi.adb: Use more precise types.
65
66 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
67
68 * sem_res.adb (Has_Applicable_User_Defined_Literal): Apply the
69 same processing for derived untagged types as for tagged types.
70 * sem_util.ads (Corresponding_Primitive_Op): Adjust description.
71 * sem_util.adb (Corresponding_Primitive_Op): Handle untagged
72 types.
73
74 2023-05-16 Javier Miranda <miranda@adacore.com>
75
76 * sem_attr.adb
77 (Analyze_Attribute_Old_Result): When preanalyzing a class-wide
78 condition, search in the scopes stack for the subprogram that has
79 the condition. This is required because returning the current
80 scope causes reporting spurious errors when the occurrence of the
81 attribute is found, for example, in a quantified expression.
82
83 2023-05-16 Javier Miranda <miranda@adacore.com>
84
85 * exp_ch6.adb
86 (Needs_BIP_Alloc_Form): Return False for functions with foreign
87 convention since we never use build-in-place for such functions.
88
89 2023-05-16 Piotr Trojanek <trojanek@adacore.com>
90
91 * sem_util.adb (Aggregate_Constraint_Checks): Don't exit early
92 when preanalysing in GNATprove mode. Now the condition is
93 consistent with other similar conditions in other code.
94
95 2023-05-16 Ghjuvan Lacambre <lacambre@adacore.com>
96
97 * usage.adb (Usage): Document -gnatyD.
98
99 2023-05-16 Marc Poulhiès <poulhies@adacore.com>
100
101 * libgnat/s-tsmona__linux.adb (link_map, r_debug_type): Add
102 'aliased' on all components.
103
104 2023-05-16 Johannes Kliemann <kliemann@adacore.com>
105
106 * libgnat/system-linux-ppc.ads: Add Support_Atomic_Primitives.
107 * libgnat/s-atopri__32.ads: Add 32 bit version of s-atopri.ads.
108 * Makefile.rtl: Use s-atopro__32.ads for ppc-linux.
109
110 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
111
112 * sem_util.adb (Get_Actual_Subtype): For an explicit dereference,
113 return the Actual_Designated_Subtype if it is present.
114 (Get_Actual_Subtype_If_Available): Likewise.
115
116 2023-05-16 Arnaud Charlet <charlet@adacore.com>
117
118 * errout.ads: Update comment.
119 * errout.adb (Skip_Msg_Insertion_Warning): Update to take e.g.
120 -gnatyM into account.
121 * erroutc.adb (Get_Warning_Option, Get_Warning_Tag)
122 (Prescan_Message): Add support for Style tags.
123 * par-ch5.adb, par-ch6.adb, par-ch7.adb, par-endh.adb,
124 par-util.adb, style.adb, styleg.adb: Set tag on all style
125 messages.
126
127 2023-05-16 Tom Tromey <tromey@adacore.com>
128
129 * doc/gnat_ugn/building_executable_programs_with_gnat.rst
130 (Switches_for_gnatbind): Fix typo.
131 * libgnat/g-spipat.ads: Fix typo.
132 * gnat_ugn.texi: Regenerate.
133
134 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
135
136 * exp_aggr.adb (Build_Assignment_With_Temporary): Adjust comment
137 and fix type of second parameter. Create the temporary on the
138 secondary stack by calling Build_Temporary_On_Secondary_Stack.
139 (Convert_Array_Aggr_In_Allocator): Adjust formatting.
140 (Expand_Array_Aggregate): Likewise.
141 * exp_ch4.adb (Expand_N_Allocator): Set Actual_Designated_Subtype
142 on the dereference in the initialization for all composite types.
143 * exp_ch5.adb (Expand_N_Assignment_Statement): Create a temporary
144 on the host for an assignment between nonnative storage models.
145 Suppress more checks when Suppress_Assignment_Checks is set.
146 * exp_ch6.adb (Add_Simple_Call_By_Copy_Code): Deal with actuals
147 that are dereferences with an Actual_Designated_Subtype. Add
148 support for nonnative storage models.
149 (Expand_Actuals): Create a copy if the actual is a dereference
150 with a nonnative storage model.
151 * exp_util.ads (Build_Temporary_On_Secondary_Stack): Declare.
152 * exp_util.adb (Build_Temporary_On_Secondary_Stack): New function.
153 * sem_ch5.adb (Analyze_Assignment.Set_Assignment_Type): Do not
154 build an actual subtype for dereferences with an
155 Actual_Designated_Subtype
156 * sinfo.ads (Actual_Designated_Subtype): Adjust documentation.
157 (Suppress_Assignment_Checks): Likewise.
158
159 2023-05-16 Piotr Trojanek <trojanek@adacore.com>
160
161 * exp_spark.adb (SPARK_Freeze_Type): Copy whole handling of DIC
162 and Type_Invariant from Freeze_Type.
163
164 2023-05-16 Richard Kenner <kenner@adacore.com>
165
166 * sem_util.adb (Subprogram_Name): If what's passed is already an
167 entity, use that for the name.
168
169 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
170
171 * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst
172 (No_Dependence): Give examples of new No_Dependence restrictions.
173 * gnat_rm.texi: Regenerate.
174
175 2023-05-16 Arnaud Charlet <charlet@adacore.com>
176
177 * snames.ads-tmpl (Name_ASCII): New.
178 * style.adb (Check_Identifier): Fix handling of ASCII.
179
180 2023-05-16 Eric Botcazou <ebotcazou@adacore.com>
181
182 * gen_il-fields.ads (Opt_Field_Enum): Add Cannot_Be_Superflat.
183 * gen_il-gen-gen_nodes.adb (N_Range): Add Cannot_Be_Superflat as
184 semantical flag and change Includes_Infinities to semantical.
185 * sinfo.ads (Cannot_Be_Superflat): Document it for N_Range.
186 * exp_ch4.adb (Expand_Concatenate): Set Cannot_Be_Superflat on the
187 range of the result if the result cannot be null.
188
189 2023-05-16 Richard Kenner <kenner@adacore.com>
190
191 * gen_il-gen-gen_nodes.adb (Present_Expr): Type is now Uint.
192
193 2023-05-16 Yannick Moy <moy@adacore.com>
194
195 * libgnat/s-aridou.adb (Big3, Is_Mult_Decomposition)
196 (Is_Scaled_Mult_Decomposition): Add annotation for inlining.
197 (Double_Divide, Scaled_Divide): Simplify and remove ghost code.
198 (Prove_Multiplication): Add calls to lemmas to make proof go
199 through.
200 * libgnat/s-aridou.ads (Big, In_Double_Int_Range): Add annotation
201 for inlining.
202
203 2023-05-16 Yannick Moy <moy@adacore.com>
204
205 * libgnat/a-strsup.adb: Add intermediate assertions.
206
207 2023-05-16 Arnaud Charlet <charlet@adacore.com>
208
209 * gnat1drv.adb: Ensure all dependencies are recorded even when not
210 generating code.
211
212 2023-05-16 Yannick Moy <moy@adacore.com>
213
214 * libgnat/a-strsup.adb: Set assertion policy for Loop_Variant.
215
216 2023-05-16 Marc Poulhiès <poulhies@adacore.com>
217
218 * sem_ch12.adb (Instantiate_Package_Body): Simplify if/then/else.
219 (Instantiate_Subprogram_Body): Likewise.
220
221 2023-05-16 Yannick Moy <moy@adacore.com>
222
223 * libgnat/s-aridou.adb:
224 (Big3): Remove override made useless.
225 (Lemma_Quot_Rem): Add new lemma and justify it, as no prover
226 manages to prove it.
227 (Lemma_Div_Pow2): Use new lemma Lemma_Quot_Rem.
228 (Prove_Scaled_Mult_Decomposition_Regroup3): Retype for
229 simplification.
230 (Scaled_Divide): Remove useless assertions.Decompose some
231 assertions with cut operations. Use Assert_And_Cut for second
232 half. Add assertions.
233
234 2023-05-15 Marc Poulhiès <poulhies@adacore.com>
235
236 * exp_ch3.adb (Make_Allocator_For_Return): Fix typo in comment.
237
238 2023-05-15 Yannick Moy <moy@adacore.com>
239
240 * libgnat/a-strbou.ads: Add justifications for Mapping.
241 * libgnat/a-strfix.adb: Same.
242 * libgnat/a-strfix.ads: Same.
243 * libgnat/a-strsea.adb: Same.
244 * libgnat/a-strsea.ads: Same.
245 * libgnat/a-strsup.adb: Same and add loop variants.
246 * libgnat/a-strsup.ads: Same and add specification of termination.
247
248 2023-05-15 Yannick Moy <moy@adacore.com>
249
250 * libgnat/a-strsup.adb (Super_Slice): Reorder component assignment
251 to avoid failing predicate check related to initialization.
252 * libgnat/s-expmod.adb (Exp_Modular): Add intermediate assertion.
253
254 2023-05-15 Yannick Moy <moy@adacore.com>
255
256 * libgnat/i-c.adb: Add loop variants. Remove useless
257 initialization.
258
259 2023-05-15 Bob Duff <duff@adacore.com>
260
261 * einfo-utils.ads: Remove comment.
262
263 2023-05-15 Bob Duff <duff@adacore.com>
264
265 * einfo-utils.ads, einfo-utils.adb: Get rid of the Proc_Next_...
266 procedures. Use Inline aspect instead of pragma Inline.
267 Is_Discrete_Or_Fixed_Point_Type did not have pragma Inline, but
268 now has the aspect; this was probably an oversight
269 (which illustrates why aspects are better).
270
271 2023-05-15 Ronan Desplanques <desplanques@adacore.com>
272
273 * doc/gnat_ugn/gnat_utility_programs.rst: Fix formatting
274 inconsistency.
275
276 2023-05-15 Bob Duff <duff@adacore.com>
277
278 * einfo-utils.adb:
279 (Proc_Next_Component_Or_Discriminant): Call
280 Next_Component_Or_Discriminant.
281
282 2023-05-15 Bob Duff <duff@adacore.com>
283
284 * einfo.ads:
285 (First_Entity): Update comment explaining why this exists on all
286 [sub]types, as opposed to just the ones with associated entities.
287
288 2023-05-15 Bob Duff <duff@adacore.com>
289
290 * atree.adb
291 (Check_Vanishing_Fields): Disable the check for "root/base type
292 only" fields. This is a bug fix -- if we're checking some subtype
293 S, we don't want to reach over to the root or base type and
294 Reinit_Field_To_Zero of that, thus modifying the field for lots of
295 subtypes other than S. Disable in the to/from E_Void cases. Misc
296 cleanup.
297 * gen_il-gen-gen_entities.adb: Define First_Entity, Last_Entity,
298 and Stored_Constraint for all type entities, because there are too
299 many cases where Reinit_Field_To_Zero would otherwise be needed.
300 In any case, it seems cleaner to have First_Entity and Last_Entity
301 defined in the same entity kinds.
302 * einfo.ads:
303 (First_Entity, Last_Entity, Stored_Constraint): Update comments to
304 reflect gen_il-gen-gen_entities.adb changes.
305 (Lit_Hash): Add missing "[root type only]" comment.
306 * exp_ch5.adb: Add Reinit_Field_To_Zero calls for vanishing
307 fields.
308 * sem_ch10.adb: Likewise.
309 * sem_ch6.adb: Likewise.
310 * sem_ch7.adb: Likewise.
311 * sem_ch8.adb: Likewise.
312 * sem_ch3.adb: Likewise. Also remove now-unnecessary
313 Reinit_Field_To_Zero calls.
314
315 2023-05-15 Eric Botcazou <ebotcazou@adacore.com>
316
317 * sem_ch7.adb (Hide_Public_Entities): Use the same condition for
318 subprogram bodies without specification as for those with one.
319
320 2023-05-15 Piotr Trojanek <trojanek@adacore.com>
321
322 * sem_util.adb (New_Copy_Tree): Remove redundant calls to Present.
323
324 2023-05-15 Ronan Desplanques <desplanques@adacore.com>
325
326 * sem_ch8.adb (End_Scope): Simplify lookup of predecessor in
327 homonym chain.
328
329 2023-05-15 Piotr Trojanek <trojanek@adacore.com>
330
331 * sem_aggr.adb (Resolve_Aggregate): Accept aggregates with OTHERS
332 appearing inside unchecked conversions.
333
334 2023-05-15 Steve Baird <baird@adacore.com>
335
336 * warnsw.ads: Add a new element,
337 Warn_On_Ineffective_Predicate_Test, to the Opt_Warnings_Enum
338 enumeration type.
339 * warnsw.adb: Bind "-gnatw_s" to the new
340 Warn_On_Ineffective_Predicate_Test switch. Add the new switch to
341 the set of switches enabled by -gnata .
342 * sem_ch13.adb
343 (Build_Discrete_Static_Predicate): Declare new local procedure,
344 Warn_If_Test_Ineffective, which conditionally generates new
345 warning. Call this new procedure when building a new element of an
346 RList.
347 * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
348 Document the -gnatw_s switch (and the corresponding -gnatw_S
349 switch).
350 * gnat_ugn.texi: Regenerate.
351
352 2023-05-15 Yannick Moy <moy@adacore.com>
353
354 * sem_attr.adb: Update comment referring to rule number.
355
356 2023-05-15 Ronan Desplanques <desplanques@adacore.com>
357
358 * sem_attr.adb: sem_attr.adb (Analyze_Access_Attribute): Tighten
359 validity check for task types.
360
361 2023-05-15 Ronan Desplanques <desplanques@adacore.com>
362
363 * doc/gnat_rm/implementation_defined_characteristics.rst: Fix
364 minor documentation formatting issue.
365 * gnat_rm.texi: Regenerate.
366 * gnat_ugn.texi: Regenerate.
367
368 2023-05-15 Bob Duff <duff@adacore.com>
369
370 * exp_ch4.adb
371 (Expand_N_Op_Expon): Remove the too-big check. Simplify. Signed
372 and modular cases are combined, etc. Remove code with comment "We
373 only handle cases where the right type is a[sic] integer", because
374 the right operand must always be an integer at this point.
375
376 2023-05-15 Bob Duff <duff@adacore.com>
377
378 * sem_attr.adb
379 (Analyze_Attribute): Add a call to Check_Error_Detected.
380
381 2023-05-15 Yannick Moy <moy@adacore.com>
382
383 * par-prag.adb (First_Arg_Is_Matching_Tool_Name): Fix access to
384 expression in pragma association.
385
386 2023-05-15 Eric Botcazou <ebotcazou@adacore.com>
387
388 * repinfo.ads (JSON output format): Document special case of
389 Present member of a Variant object.
390 * repinfo.adb (List_Structural_Record_Layout): Change the type of
391 Ext_Level parameter to Integer. Restrict the first recursion with
392 increasing levels to the fixed part and implement a second
393 recursion with decreasing levels for the variant part. Deal with
394 an extension of a type with unknown discriminants.
395
396 2023-05-15 Claire Dross <dross@adacore.com>
397
398 * libgnat/s-valueu.adb: Use cut operations inside assertion to
399 restore proofs
400 * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add s-spark and
401 s-spcuop dependencies.
402
403 2023-05-15 Yannick Moy <moy@adacore.com>
404
405 * sem_prag.adb (Check_Grouping): Allow Annotate pragmas between
406 loop pragmas.
407
408 2023-05-15 Javier Miranda <miranda@adacore.com>
409
410 * doc/gnat_rm/implementation_defined_pragmas.rst
411 (Extensions_Allowed): Document string interpolation.
412 * gnat_rm.texi: Regenerate.
413 * gnat_ugn.texi: Regenerate.
414
415 2023-05-15 Joel Brobecker <brobecker@adacore.com>
416
417 * doc/gnat_ugn/platform_specific_information.rst
418 (_PIE_Enabled_By_Default_On_Linux): New section.
419 * gnat-style.texi: Regenerate.
420 * gnat_ugn.texi: Regenerate.
421
422 2023-05-15 Javier Miranda <miranda@adacore.com>
423
424 * exp_disp.adb
425 (Has_Dispatching_Constructor_Call): New subprogram.
426 (Expand_Interface_Conversion): No need to perform dynamic
427 interface conversion when the operand and the target type are
428 interface types and the target interface type is an ancestor of
429 the operand type. The unique exception to this rule is when the
430 operand has a dispatching constructor call (as documented in the
431 sources).
432
433 2023-05-15 Piotr Trojanek <trojanek@adacore.com>
434
435 * sem_attr.adb (Analyze_Attribute): Reject attribute Initialized
436 on unchecked unions; fix grammar in comment.
437
438 2023-05-15 Ronan Desplanques <desplanques@adacore.com>
439
440 * sem_ch13.adb (Validate_Unchecked_Conversion): Fix behavior on
441 System.Address to access to subprogram subtype conversion.
442
443 2023-05-15 Piotr Trojanek <trojanek@adacore.com>
444
445 * atree.ads
446 (Is_Syntactic_Node): Refactored from New_Copy_Tree.
447 * atree.adb
448 (Is_Syntactic_Node): Likewise.
449 (Copy_Separate_Tree): Use Is_Syntactic_Node.
450 * sem_util.adb
451 (Has_More_Ids): Move to Atree.
452 (Is_Syntactic_Node): Likewise.
453
454 2023-04-18 Jin Ma <jinma@linux.alibaba.com>
455
456 * gcc-interface/utils.cc (unchecked_convert): Fixed typo.
457
458 2023-04-17 Martin Liska <mliska@suse.cz>
459
460 * gnatvsn.ads: Bump Library_Version to 14.
461
462 2023-04-15 Eric Botcazou <ebotcazou@adacore.com>
463
464 PR bootstrap/109510
465 * gcc-interface/decl.cc (gnat_to_gnu_entity) <types>: Do not reset
466 align to zero in any case. Set TYPE_USER_ALIGN on the type only if
467 it is an aggregate type, or else a type whose default alignment is
468 specifically capped on selected platforms.
469
470 2023-04-14 Eric Botcazou <ebotcazou@adacore.com>
471
472 PR bootstrap/109510
473 * gcc-interface/decl.cc (gnat_to_gnu_entity) <types>: Reset align
474 to zero if its value is equal to TYPE_ALIGN and the type is scalar.
475 Set TYPE_USER_ALIGN on the type only if align is positive.
476
477 2023-03-06 Javier Miranda <miranda@adacore.com>
478
479 PR ada/108858
480 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): For functions with
481 separate spec, if their return type was visible through a limited-
482 with context clause, their extra formals were not added when the
483 spec was analyzed. Now the full view must be available, and the
484 extra formals can be created and Returns_By_Ref computed.
485
486 2023-03-06 Eric Botcazou <ebotcazou@adacore.com>
487
488 PR ada/108909
489 PR ada/108983
490 * Make-generated.in: Do not use GNATMAKE.
491 * gcc-interface/Makefile.in: Ditto.
492
493 2023-02-26 Peter Foley <pefoley2@pefoley.com>
494
495 PR ada/108909
496 * Make-generated.in: Use GNATMAKE.
497 * gcc-interface/Makefile.in: Ditto.
498
499 2023-02-14 Eric Botcazou <ebotcazou@adacore.com>
500
501 * gcc-interface/trans.cc (gnat_gimplify_expr): Add missing guard.
502
503 2023-02-14 Dongsheng Song <dongsheng.song@gmail.com>
504
505 * adaint.c [Linux]: Include <features.h>.
506 (__gnat_get_executable_load_address) [Linux]: Enable only for
507 glibc and uClibc.
508
509 2023-01-16 Marc Poulhiès <poulhies@adacore.com>
510
511 * gcc-interface/Make-lang.in: Update copyright years.
512 * gcc-interface/Makefile.in: Likewise.
513 * gcc-interface/ada-builtin-types.def: Likewise.
514 * gcc-interface/ada-builtins.def: Likewise.
515 * gcc-interface/ada-tree.def: Likewise.
516 * gcc-interface/ada-tree.h: Likewise.
517 * gcc-interface/ada.h: Likewise.
518 * gcc-interface/config-lang.in: Likewise.
519 * gcc-interface/cuintp.cc: Likewise.
520 * gcc-interface/decl.cc: Likewise.
521 * gcc-interface/gadaint.h: Likewise.
522 * gcc-interface/gigi.h: Likewise.
523 * gcc-interface/lang-specs.h: Likewise.
524 * gcc-interface/lang.opt: Likewise.
525 * gcc-interface/misc.cc: Likewise.
526 * gcc-interface/system.ads: Likewise.
527 * gcc-interface/targtyps.cc: Likewise.
528 * gcc-interface/trans.cc: Likewise.
529 * gcc-interface/utils.cc: Likewise.
530 * gcc-interface/utils2.cc: Likewise.
531
532 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
533
534 * exp_ch3.adb (Make_Allocator_For_Return): Fix typo in comment.
535
536 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
537
538 * exp_ch3.adb (Make_Allocator_For_Return): Convert the expression
539 to the return object's type in the constrained array case as well.
540
541 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
542
543 * exp_ch3.adb (Expand_N_Object_Declaration): For a class-wide non-
544 interface stand-alone object initialized by a function call, call
545 Remove_Side_Effects on the expression to capture the result.
546
547 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
548
549 * exp_util.ads (Has_Tag_Of_Type): Declare.
550 * exp_util.adb (Has_Tag_Of_Type): Move to package level. Recurse on
551 qualified expressions.
552 * exp_ch3.adb (Expand_N_Object_Declaration): Use a static reference
553 to the interface tag in more cases for class-wide interface objects.
554
555 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
556
557 * exp_util.adb (Make_CW_Equivalent_Type.Has_Tag_Of_Type): Fix pasto.
558
559 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
560
561 * exp_util.adb (Is_Temporary_For_Interface_Object): Delete.
562 (Is_Finalizable_Transient.Is_Aliased): Deal with the specific case
563 of temporaries generated for interface objects.
564
565 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
566
567 * exp_ch3.adb (Expand_N_Object_Declaration): Do not generate a back-
568 and-forth displacement of the object's address when using a renaming
569 for an interface object with an expression of the same type.
570 * exp_ch4.adb (Expand_Allocator_Expression): Do not remove the side
571 effects of the expression up front for the simple allocators. Do not
572 call the Adjust primitive if the expression is a function call.
573 * exp_ch6.adb (Expand_Ctrl_Function_Call): Do not expand the call
574 unnecessarily for a special return object.
575 (Expand_Simple_Function_Return): Restore the displacement of the
576 return object's address in the case where the expression is the call
577 to a function whose result type is a type that needs finalization.
578 * exp_util.adb (Expand_Subtype_From_Expr): Do not remove the side
579 effects of the expression before calling Make_Subtype_From_Expr.
580 (Make_CW_Equivalent_Type): If the expression has the tag of its type
581 and this type has a uniform size, use 'Object_Size of this type in
582 lieu of 'Size of the expression to compute the expression's size.
583
584 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
585
586 * exp_ch3.adb (Make_Allocator_For_Return): Put back an interface
587 conversion for expressions with non-interface class-wide type.
588
589 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
590
591 * exp_ch3.adb (Expand_N_Object_Declaration): Also optimize aliased
592 objects if their nominal subtype is not an unconstrained array.
593
594 2023-01-16 Eric Botcazou <ebotcazou@adacore.com>
595
596 * exp_ch3.adb (Expand_N_Object_Declaration): Factor out conditions
597 needed for an initializating expression that is a function call to
598 be renamable into the Is_Renamable_Function_Call predicate.
599 Use it to implement the renaming in the case of class-wide interface
600 objects. Remove an interface conversion on all paths, separate and
601 optimize the renaming path in the special expansion for interfaces.
602 (Is_Renamable_Function_Call): New predicate.
603 (Make_Allocator_For_Return): Put back an interface conversion.
604 * exp_ch6.adb (Apply_CW_Accessibility_Check): Remove useless access
605 checks on RE_Tag_Ptr.
606
607 2023-01-09 Arnaud Charlet <charlet@adacore.com>
608
609 * accessibility.adb, accessibility.ads, ada_get_targ.adb: Update copyright year.
610 * adabkend.adb, adabkend.ads, adadecode.c, adadecode.h, adaint.c: Likewise.
611 * adaint.h, affinity.c, ali-util.adb, ali-util.ads, ali.adb: Likewise.
612 * ali.ads, alloc.ads, argv-lynxos178-raven-cert.c, argv.c: Likewise.
613 * aspects.adb, aspects.ads, atree.adb, atree.ads, atree.h: Likewise.
614 * aux-io.c, back_end.adb, back_end.ads, backend_utils.adb: Likewise.
615 * backend_utils.ads, bcheck.adb, bcheck.ads, binde.adb, binde.ads: Likewise.
616 * binderr.adb, binderr.ads, bindgen.adb, bindgen.ads: Likewise.
617 * bindo-augmentors.adb, bindo-augmentors.ads, bindo-builders.adb: Likewise.
618 * bindo-builders.ads, bindo-diagnostics.adb: Likewise.
619 * bindo-diagnostics.ads, bindo-elaborators.adb: Likewise.
620 * bindo-elaborators.ads, bindo-graphs.adb, bindo-graphs.ads: Likewise.
621 * bindo-units.adb, bindo-units.ads, bindo-validators.adb: Likewise.
622 * bindo-validators.ads, bindo-writers.adb, bindo-writers.ads: Likewise.
623 * bindo.adb, bindo.ads, bindusg.adb, bindusg.ads, butil.adb: Likewise.
624 * butil.ads, cal.c, casing.adb, casing.ads, checks.adb: Likewise.
625 * checks.ads, cio.c, clean.adb, clean.ads: Likewise.
626 * comperr.adb, comperr.ads, contracts.adb, contracts.ads: Likewise.
627 * csets.adb, csets.ads, cstand.adb: Likewise.
628 * cstand.ads, cstreams.c, ctrl_c.c, debug.adb, debug.ads: Likewise.
629 * debug_a.adb, debug_a.ads, einfo-utils.adb, einfo-utils.ads: Likewise.
630 * einfo.adb, einfo.ads, elists.adb, elists.ads, elists.h, env.c: Likewise.
631 * env.h, err_vars.ads, errno.c, errout.adb, errout.ads: Likewise.
632 * erroutc.adb, erroutc.ads, errutil.adb, errutil.ads: Likewise.
633 * eval_fat.adb, eval_fat.ads, exit.c, exp_aggr.adb, exp_aggr.ads: Likewise.
634 * exp_atag.adb, exp_atag.ads, exp_attr.adb, exp_attr.ads: Likewise.
635 * exp_cg.adb, exp_cg.ads, exp_ch10.ads, exp_ch11.adb: Likewise.
636 * exp_ch11.ads, exp_ch12.adb, exp_ch12.ads, exp_ch13.adb: Likewise.
637 * exp_ch13.ads, exp_ch2.adb, exp_ch2.ads, exp_ch3.adb: Likewise.
638 * exp_ch3.ads, exp_ch4.adb, exp_ch4.ads, exp_ch5.adb, exp_ch5.ads: Likewise.
639 * exp_ch6.adb, exp_ch6.ads, exp_ch7.adb, exp_ch7.ads, exp_ch8.adb: Likewise.
640 * exp_ch8.ads, exp_ch9.adb, exp_ch9.ads, exp_code.adb: Likewise.
641 * exp_code.ads, exp_dbug.adb, exp_dbug.ads, exp_disp.adb: Likewise.
642 * exp_disp.ads, exp_dist.adb, exp_dist.ads, exp_fixd.adb: Likewise.
643 * exp_fixd.ads, exp_imgv.adb, exp_imgv.ads, exp_intr.adb: Likewise.
644 * exp_intr.ads, exp_pakd.adb, exp_pakd.ads, exp_prag.adb: Likewise.
645 * exp_prag.ads, exp_put_image.adb, exp_put_image.ads, exp_sel.adb: Likewise.
646 * exp_sel.ads, exp_smem.adb, exp_smem.ads, exp_spark.adb: Likewise.
647 * exp_spark.ads, exp_strm.adb, exp_strm.ads, exp_tss.adb: Likewise.
648 * exp_tss.ads, exp_unst.adb, exp_unst.ads, exp_util.adb: Likewise.
649 * exp_util.ads, expander.adb, expander.ads, expect.c, fe.h: Likewise.
650 * final.c, fmap.adb, fmap.ads, fname-sf.adb, fname-sf.ads: Likewise.
651 * fname-uf.adb, fname-uf.ads, fname.adb, fname.ads, freeze.adb: Likewise.
652 * freeze.ads, frontend.adb, frontend.ads, gen_il-fields.ads: Likewise.
653 * gen_il-gen-gen_entities.adb, gen_il-gen-gen_nodes.adb: Likewise.
654 * gen_il-gen.adb, gen_il-gen.ads, gen_il-internals.adb: Likewise.
655 * gen_il-internals.ads, gen_il-main.adb, gen_il-types.ads: Likewise.
656 * gen_il.adb, gen_il.ads, get_scos.adb, get_scos.ads: Likewise.
657 * get_targ.adb, get_targ.ads, ghost.adb, ghost.ads, gnat1drv.adb: Likewise.
658 * gnat1drv.ads, gnat_cuda.adb, gnat_cuda.ads: Likewise.
659 * gnatbind.adb, gnatbind.ads, gnatchop.adb: Likewise.
660 * gnatclean.adb, gnatcmd.adb, gnatcmd.ads, gnatdll.adb: Likewise.
661 * gnatkr.adb, gnatkr.ads, gnatlink.adb, gnatlink.ads, gnatls.adb: Likewise.
662 * gnatls.ads, gnatmake.adb, gnatmake.ads, gnatname.adb: Likewise.
663 * gnatname.ads, gnatprep.adb, gnatprep.ads: Likewise.
664 * gprep.adb, gprep.ads, gsocket.h: Likewise.
665 * hostparm.ads: Likewise.
666 * impunit.adb, impunit.ads, indepsw-aix.adb, indepsw-darwin.adb: Likewise.
667 * indepsw-gnu.adb, indepsw.adb, indepsw.ads, init.c: Likewise.
668 * initialize.c, inline.adb, inline.ads, itypes.adb, itypes.ads: Likewise.
669 * krunch.adb, krunch.ads, layout.adb, layout.ads: Likewise.
670 * lib-list.adb, lib-load.adb, lib-load.ads, lib-sort.adb: Likewise.
671 * lib-util.adb, lib-util.ads, lib-writ.adb, lib-writ.ads: Likewise.
672 * lib-xref-spark_specific.adb, lib-xref.adb, lib-xref.ads: Likewise.
673 * lib.adb, lib.ads, libgnarl/a-astaco.adb, libgnarl/a-dispat.adb: Likewise.
674 * libgnarl/a-dynpri.adb, libgnarl/a-etgrbu.ads: Likewise.
675 * libgnarl/a-exetim__darwin.adb, libgnarl/a-exetim__default.ads: Likewise.
676 * libgnarl/a-exetim__mingw.adb, libgnarl/a-exetim__mingw.ads: Likewise.
677 * libgnarl/a-exetim__posix.adb, libgnarl/a-interr.adb: Likewise.
678 * libgnarl/a-interr.ads, libgnarl/a-intnam.ads: Likewise.
679 * libgnarl/a-intnam__aix.ads, libgnarl/a-intnam__darwin.ads: Likewise.
680 * libgnarl/a-intnam__dragonfly.ads, libgnarl/a-intnam__dummy.ads: Likewise.
681 * libgnarl/a-intnam__freebsd.ads, libgnarl/a-intnam__hpux.ads: Likewise.
682 * libgnarl/a-intnam__linux.ads, libgnarl/a-intnam__lynxos.ads: Likewise.
683 * libgnarl/a-intnam__mingw.ads, libgnarl/a-intnam__qnx.ads: Likewise.
684 * libgnarl/a-intnam__rtems.ads, libgnarl/a-intnam__solaris.ads: Likewise.
685 * libgnarl/a-intnam__vxworks.ads, libgnarl/a-reatim.adb: Likewise.
686 * libgnarl/a-reatim.ads, libgnarl/a-retide.adb: Likewise.
687 * libgnarl/a-retide.ads, libgnarl/a-rttiev.adb: Likewise.
688 * libgnarl/a-rttiev.ads, libgnarl/a-synbar.adb: Likewise.
689 * libgnarl/a-synbar.ads, libgnarl/a-synbar__posix.adb: Likewise.
690 * libgnarl/a-synbar__posix.ads, libgnarl/a-sytaco.adb: Likewise.
691 * libgnarl/a-sytaco.ads, libgnarl/a-tasatt.adb: Likewise.
692 * libgnarl/a-tasatt.ads, libgnarl/a-taside.adb: Likewise.
693 * libgnarl/a-taside.ads, libgnarl/a-tasini.adb: Likewise.
694 * libgnarl/a-tasini.ads, libgnarl/a-taster.adb: Likewise.
695 * libgnarl/g-boubuf.adb, libgnarl/g-boubuf.ads: Likewise.
696 * libgnarl/g-boumai.ads, libgnarl/g-semaph.adb: Likewise.
697 * libgnarl/g-semaph.ads, libgnarl/g-signal.adb: Likewise.
698 * libgnarl/g-signal.ads, libgnarl/g-tastus.ads: Likewise.
699 * libgnarl/g-thread.adb, libgnarl/g-thread.ads: Likewise.
700 * libgnarl/i-vxinco.adb, libgnarl/i-vxinco.ads: Likewise.
701 * libgnarl/s-inmaop.ads, libgnarl/s-inmaop__dummy.adb: Likewise.
702 * libgnarl/s-inmaop__hwint.adb, libgnarl/s-inmaop__posix.adb: Likewise.
703 * libgnarl/s-interr.adb, libgnarl/s-interr.ads: Likewise.
704 * libgnarl/s-interr__dummy.adb, libgnarl/s-interr__hwint.adb: Likewise.
705 * libgnarl/s-interr__sigaction.adb: Likewise.
706 * libgnarl/s-interr__vxworks.adb, libgnarl/s-intman.ads: Likewise.
707 * libgnarl/s-intman__android.adb, libgnarl/s-intman__dummy.adb: Likewise.
708 * libgnarl/s-intman__lynxos.adb, libgnarl/s-intman__mingw.adb: Likewise.
709 * libgnarl/s-intman__posix.adb, libgnarl/s-intman__qnx.adb: Likewise.
710 * libgnarl/s-intman__rtems.adb, libgnarl/s-intman__rtems.ads: Likewise.
711 * libgnarl/s-intman__solaris.adb, libgnarl/s-intman__susv3.adb: Likewise.
712 * libgnarl/s-intman__vxworks.adb, libgnarl/s-intman__vxworks.ads: Likewise.
713 * libgnarl/s-linux.ads, libgnarl/s-linux__alpha.ads: Likewise.
714 * libgnarl/s-linux__android.ads, libgnarl/s-linux__hppa.ads: Likewise.
715 * libgnarl/s-linux__mips.ads, libgnarl/s-linux__riscv.ads: Likewise.
716 * libgnarl/s-linux__sparc.ads, libgnarl/s-linux__x32.ads: Likewise.
717 * libgnarl/s-mudido.adb, libgnarl/s-mudido__affinity.adb: Likewise.
718 * libgnarl/s-osinte__aix.adb, libgnarl/s-osinte__aix.ads: Likewise.
719 * libgnarl/s-osinte__android.adb, libgnarl/s-osinte__android.ads: Likewise.
720 * libgnarl/s-osinte__darwin.adb, libgnarl/s-osinte__darwin.ads: Likewise.
721 * libgnarl/s-osinte__dragonfly.adb: Likewise.
722 * libgnarl/s-osinte__dragonfly.ads, libgnarl/s-osinte__dummy.ads: Likewise.
723 * libgnarl/s-osinte__freebsd.adb, libgnarl/s-osinte__freebsd.ads: Likewise.
724 * libgnarl/s-osinte__gnu.adb, libgnarl/s-osinte__gnu.ads: Likewise.
725 * libgnarl/s-osinte__hpux-dce.adb: Likewise.
726 * libgnarl/s-osinte__hpux-dce.ads, libgnarl/s-osinte__hpux.ads: Likewise.
727 * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
728 * libgnarl/s-osinte__linux.ads, libgnarl/s-osinte__lynxos178.adb: Likewise.
729 * libgnarl/s-osinte__lynxos178e.ads, libgnarl/s-osinte__mingw.ads: Likewise.
730 * libgnarl/s-osinte__posix.adb, libgnarl/s-osinte__qnx.adb: Likewise.
731 * libgnarl/s-osinte__qnx.ads, libgnarl/s-osinte__rtems.adb: Likewise.
732 * libgnarl/s-osinte__rtems.ads, libgnarl/s-osinte__solaris.adb: Likewise.
733 * libgnarl/s-osinte__solaris.ads, libgnarl/s-osinte__vxworks.adb: Likewise.
734 * libgnarl/s-osinte__vxworks.ads, libgnarl/s-osinte__x32.adb: Likewise.
735 * libgnarl/s-proinf.adb, libgnarl/s-proinf.ads: Likewise.
736 * libgnarl/s-putaim.adb, libgnarl/s-putaim.ads: Likewise.
737 * libgnarl/s-qnx.ads, libgnarl/s-solita.adb: Likewise.
738 * libgnarl/s-solita.ads, libgnarl/s-stusta.adb: Likewise.
739 * libgnarl/s-stusta.ads, libgnarl/s-taasde.adb: Likewise.
740 * libgnarl/s-taasde.ads, libgnarl/s-tadeca.adb: Likewise.
741 * libgnarl/s-tadeca.ads, libgnarl/s-tadert.adb: Likewise.
742 * libgnarl/s-tadert.ads, libgnarl/s-taenca.adb: Likewise.
743 * libgnarl/s-taenca.ads, libgnarl/s-taprob.adb: Likewise.
744 * libgnarl/s-taprob.ads, libgnarl/s-taprop.ads: Likewise.
745 * libgnarl/s-taprop__dummy.adb, libgnarl/s-taprop__hpux-dce.adb: Likewise.
746 * libgnarl/s-taprop__linux.adb, libgnarl/s-taprop__mingw.adb: Likewise.
747 * libgnarl/s-taprop__posix.adb, libgnarl/s-taprop__qnx.adb: Likewise.
748 * libgnarl/s-taprop__rtems.adb, libgnarl/s-taprop__solaris.adb: Likewise.
749 * libgnarl/s-taprop__vxworks.adb, libgnarl/s-tarest.adb: Likewise.
750 * libgnarl/s-tarest.ads, libgnarl/s-tasdeb.adb: Likewise.
751 * libgnarl/s-tasdeb.ads, libgnarl/s-tasinf.adb: Likewise.
752 * libgnarl/s-tasinf.ads, libgnarl/s-tasinf__linux.adb: Likewise.
753 * libgnarl/s-tasinf__linux.ads, libgnarl/s-tasinf__mingw.adb: Likewise.
754 * libgnarl/s-tasinf__mingw.ads, libgnarl/s-tasinf__solaris.adb: Likewise.
755 * libgnarl/s-tasinf__solaris.ads, libgnarl/s-tasinf__vxworks.ads: Likewise.
756 * libgnarl/s-tasini.adb, libgnarl/s-tasini.ads: Likewise.
757 * libgnarl/s-taskin.adb, libgnarl/s-taskin.ads: Likewise.
758 * libgnarl/s-taspri__dummy.ads, libgnarl/s-taspri__hpux-dce.ads: Likewise.
759 * libgnarl/s-taspri__lynxos.ads, libgnarl/s-taspri__mingw.ads: Likewise.
760 * libgnarl/s-taspri__posix-noaltstack.ads: Likewise.
761 * libgnarl/s-taspri__posix.ads, libgnarl/s-taspri__solaris.ads: Likewise.
762 * libgnarl/s-taspri__vxworks.ads, libgnarl/s-tasque.adb: Likewise.
763 * libgnarl/s-tasque.ads, libgnarl/s-tasren.adb: Likewise.
764 * libgnarl/s-tasren.ads, libgnarl/s-tasres.ads: Likewise.
765 * libgnarl/s-tassta.adb, libgnarl/s-tassta.ads: Likewise.
766 * libgnarl/s-tasuti.adb, libgnarl/s-tasuti.ads: Likewise.
767 * libgnarl/s-tataat.adb, libgnarl/s-tataat.ads: Likewise.
768 * libgnarl/s-tpinop.adb, libgnarl/s-tpinop.ads: Likewise.
769 * libgnarl/s-tpoaal.adb, libgnarl/s-tpoben.adb: Likewise.
770 * libgnarl/s-tpoben.ads, libgnarl/s-tpobmu.adb: Likewise.
771 * libgnarl/s-tpobmu.ads, libgnarl/s-tpobop.adb: Likewise.
772 * libgnarl/s-tpobop.ads, libgnarl/s-tpopmo.adb: Likewise.
773 * libgnarl/s-tpopsp__posix-foreign.adb: Likewise.
774 * libgnarl/s-tpopsp__posix.adb, libgnarl/s-tpopsp__solaris.adb: Likewise.
775 * libgnarl/s-tpopsp__tls.adb, libgnarl/s-tpopsp__vxworks-rtp.adb: Likewise.
776 * libgnarl/s-tpopsp__vxworks-tls.adb: Likewise.
777 * libgnarl/s-tpopsp__vxworks.adb, libgnarl/s-tporft.adb: Likewise.
778 * libgnarl/s-tposen.adb, libgnarl/s-tposen.ads: Likewise.
779 * libgnarl/s-vxwext.adb, libgnarl/s-vxwext.ads: Likewise.
780 * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
781 * libgnarl/s-vxwext__kernel.adb, libgnarl/s-vxwext__kernel.ads: Likewise.
782 * libgnarl/s-vxwext__rtp-smp.adb, libgnarl/s-vxwext__rtp.adb: Likewise.
783 * libgnarl/s-vxwext__rtp.ads, libgnarl/s-vxwork__aarch64.ads: Likewise.
784 * libgnarl/s-vxwork__arm.ads, libgnarl/s-vxwork__ppc.ads: Likewise.
785 * libgnarl/s-vxwork__x86.ads, libgnarl/thread.c: Likewise.
786 * libgnat/a-assert.adb, libgnat/a-assert.ads: Likewise.
787 * libgnat/a-btgbso.adb, libgnat/a-btgbso.ads: Likewise.
788 * libgnat/a-calari.adb, libgnat/a-calari.ads: Likewise.
789 * libgnat/a-calcon.adb, libgnat/a-calcon.ads: Likewise.
790 * libgnat/a-caldel.adb, libgnat/a-caldel.ads: Likewise.
791 * libgnat/a-calend.adb, libgnat/a-calend.ads: Likewise.
792 * libgnat/a-calfor.adb, libgnat/a-calfor.ads: Likewise.
793 * libgnat/a-catizo.adb, libgnat/a-cbdlli.adb: Likewise.
794 * libgnat/a-cbdlli.ads, libgnat/a-cbhama.adb: Likewise.
795 * libgnat/a-cbhama.ads, libgnat/a-cbhase.adb: Likewise.
796 * libgnat/a-cbhase.ads, libgnat/a-cbmutr.adb: Likewise.
797 * libgnat/a-cbmutr.ads, libgnat/a-cborma.adb: Likewise.
798 * libgnat/a-cborma.ads, libgnat/a-cborse.adb: Likewise.
799 * libgnat/a-cborse.ads, libgnat/a-cbprqu.adb: Likewise.
800 * libgnat/a-cbprqu.ads, libgnat/a-cbsyqu.adb: Likewise.
801 * libgnat/a-cbsyqu.ads, libgnat/a-cdlili.adb: Likewise.
802 * libgnat/a-cdlili.ads, libgnat/a-cfdlli.ads: Likewise.
803 * libgnat/a-cfhama.ads, libgnat/a-cfhase.ads: Likewise.
804 * libgnat/a-cfidll.ads, libgnat/a-cfinse.ads: Likewise.
805 * libgnat/a-cfinve.ads, libgnat/a-cforma.ads: Likewise.
806 * libgnat/a-cforse.ads, libgnat/a-cgaaso.adb: Likewise.
807 * libgnat/a-cgaaso.ads, libgnat/a-cgarso.adb: Likewise.
808 * libgnat/a-cgcaso.adb, libgnat/a-chacon.adb: Likewise.
809 * libgnat/a-chacon.ads, libgnat/a-chahan.adb: Likewise.
810 * libgnat/a-chahan.ads, libgnat/a-chlat9.ads: Likewise.
811 * libgnat/a-chtgbk.adb, libgnat/a-chtgbk.ads: Likewise.
812 * libgnat/a-chtgbo.adb, libgnat/a-chtgbo.ads: Likewise.
813 * libgnat/a-chtgfk.adb, libgnat/a-chtgfk.ads: Likewise.
814 * libgnat/a-chtgfo.adb, libgnat/a-chtgfo.ads: Likewise.
815 * libgnat/a-chtgke.adb, libgnat/a-chtgke.ads: Likewise.
816 * libgnat/a-chtgop.adb, libgnat/a-chtgop.ads: Likewise.
817 * libgnat/a-chzla1.ads, libgnat/a-chzla9.ads: Likewise.
818 * libgnat/a-cidlli.adb, libgnat/a-cidlli.ads: Likewise.
819 * libgnat/a-cihama.adb, libgnat/a-cihama.ads: Likewise.
820 * libgnat/a-cihase.adb, libgnat/a-cihase.ads: Likewise.
821 * libgnat/a-cimutr.adb, libgnat/a-cimutr.ads: Likewise.
822 * libgnat/a-ciorma.adb, libgnat/a-ciorma.ads: Likewise.
823 * libgnat/a-ciormu.adb, libgnat/a-ciormu.ads: Likewise.
824 * libgnat/a-ciorse.adb, libgnat/a-ciorse.ads: Likewise.
825 * libgnat/a-clrefi.adb, libgnat/a-clrefi.ads: Likewise.
826 * libgnat/a-coboho.adb, libgnat/a-coboho.ads: Likewise.
827 * libgnat/a-cobove.adb, libgnat/a-cobove.ads: Likewise.
828 * libgnat/a-cofove.ads, libgnat/a-cofuma.ads: Likewise.
829 * libgnat/a-cofuse.ads, libgnat/a-cofuve.ads: Likewise.
830 * libgnat/a-cogeso.adb, libgnat/a-cogeso.ads: Likewise.
831 * libgnat/a-cohama.adb, libgnat/a-cohama.ads: Likewise.
832 * libgnat/a-cohase.adb, libgnat/a-cohase.ads: Likewise.
833 * libgnat/a-cohata.ads, libgnat/a-coinho.adb: Likewise.
834 * libgnat/a-coinho.ads, libgnat/a-coinho__shared.adb: Likewise.
835 * libgnat/a-coinho__shared.ads, libgnat/a-coinve.adb: Likewise.
836 * libgnat/a-coinve.ads, libgnat/a-colien.adb: Likewise.
837 * libgnat/a-colien.ads, libgnat/a-colire.adb: Likewise.
838 * libgnat/a-colire.ads, libgnat/a-comlin.adb: Likewise.
839 * libgnat/a-comlin.ads, libgnat/a-comutr.adb: Likewise.
840 * libgnat/a-comutr.ads, libgnat/a-conhel.adb: Likewise.
841 * libgnat/a-conhel.ads, libgnat/a-convec.adb: Likewise.
842 * libgnat/a-convec.ads, libgnat/a-coorma.adb: Likewise.
843 * libgnat/a-coorma.ads, libgnat/a-coormu.adb: Likewise.
844 * libgnat/a-coormu.ads, libgnat/a-coorse.adb: Likewise.
845 * libgnat/a-coorse.ads, libgnat/a-coprnu.adb: Likewise.
846 * libgnat/a-coprnu.ads, libgnat/a-costso.adb: Likewise.
847 * libgnat/a-costso.ads, libgnat/a-crbltr.ads: Likewise.
848 * libgnat/a-crbtgk.adb, libgnat/a-crbtgk.ads: Likewise.
849 * libgnat/a-crbtgo.adb, libgnat/a-crbtgo.ads: Likewise.
850 * libgnat/a-crdlli.adb, libgnat/a-crdlli.ads: Likewise.
851 * libgnat/a-csquin.ads, libgnat/a-cuprqu.adb: Likewise.
852 * libgnat/a-cuprqu.ads, libgnat/a-cusyqu.adb: Likewise.
853 * libgnat/a-cusyqu.ads, libgnat/a-cwila1.ads: Likewise.
854 * libgnat/a-cwila9.ads, libgnat/a-decima.adb: Likewise.
855 * libgnat/a-decima.ads, libgnat/a-decima__128.ads: Likewise.
856 * libgnat/a-dhfina.adb, libgnat/a-dhfina.ads: Likewise.
857 * libgnat/a-diocst.adb, libgnat/a-diocst.ads: Likewise.
858 * libgnat/a-direct.adb, libgnat/a-direct.ads: Likewise.
859 * libgnat/a-direio.adb, libgnat/a-direio.ads: Likewise.
860 * libgnat/a-dirval.adb, libgnat/a-dirval.ads: Likewise.
861 * libgnat/a-dirval__mingw.adb, libgnat/a-einuoc.adb: Likewise.
862 * libgnat/a-einuoc.ads, libgnat/a-elchha.adb: Likewise.
863 * libgnat/a-elchha.ads, libgnat/a-envvar.adb: Likewise.
864 * libgnat/a-excach.adb, libgnat/a-except.adb: Likewise.
865 * libgnat/a-except.ads, libgnat/a-exctra.adb: Likewise.
866 * libgnat/a-exctra.ads, libgnat/a-exexda.adb: Likewise.
867 * libgnat/a-exexpr.adb, libgnat/a-exextr.adb: Likewise.
868 * libgnat/a-exstat.adb, libgnat/a-finali.adb: Likewise.
869 * libgnat/a-finali.ads, libgnat/a-locale.adb: Likewise.
870 * libgnat/a-locale.ads, libgnat/a-nagefl.ads: Likewise.
871 * libgnat/a-naliop.ads, libgnat/a-naliop__nolibm.ads: Likewise.
872 * libgnat/a-nallfl.ads, libgnat/a-nallfl__wraplf.ads: Likewise.
873 * libgnat/a-nalofl.ads, libgnat/a-nalofl__simd.ads: Likewise.
874 * libgnat/a-nashfl.ads, libgnat/a-nashfl__wraplf.ads: Likewise.
875 * libgnat/a-nbnbig.adb, libgnat/a-nbnbin.adb: Likewise.
876 * libgnat/a-nbnbin__gmp.adb, libgnat/a-nbnbre.adb: Likewise.
877 * libgnat/a-ngcefu.adb, libgnat/a-ngcoar.adb: Likewise.
878 * libgnat/a-ngcoty.adb, libgnat/a-ngcoty.ads: Likewise.
879 * libgnat/a-ngelfu.adb, libgnat/a-ngelfu.ads: Likewise.
880 * libgnat/a-ngrear.adb, libgnat/a-ngrear.ads: Likewise.
881 * libgnat/a-nuauco.ads, libgnat/a-nuauco__x86.ads: Likewise.
882 * libgnat/a-nuaufl.ads, libgnat/a-nuaufl__simd.ads: Likewise.
883 * libgnat/a-nuaufl__wraplf.ads, libgnat/a-nudira.adb: Likewise.
884 * libgnat/a-nudira.ads, libgnat/a-nuflra.adb: Likewise.
885 * libgnat/a-nuflra.ads, libgnat/a-numaux.ads: Likewise.
886 * libgnat/a-rbtgbk.adb, libgnat/a-rbtgbk.ads: Likewise.
887 * libgnat/a-rbtgbo.adb, libgnat/a-rbtgbo.ads: Likewise.
888 * libgnat/a-rbtgso.adb, libgnat/a-rbtgso.ads: Likewise.
889 * libgnat/a-sbecin.adb, libgnat/a-sbecin.ads: Likewise.
890 * libgnat/a-sbhcin.adb, libgnat/a-sbhcin.ads: Likewise.
891 * libgnat/a-sblcin.adb, libgnat/a-sblcin.ads: Likewise.
892 * libgnat/a-secain.adb, libgnat/a-secain.ads: Likewise.
893 * libgnat/a-sequio.adb, libgnat/a-sequio.ads: Likewise.
894 * libgnat/a-sfecin.ads, libgnat/a-sfhcin.ads: Likewise.
895 * libgnat/a-sflcin.ads, libgnat/a-shcain.adb: Likewise.
896 * libgnat/a-shcain.ads, libgnat/a-siocst.adb: Likewise.
897 * libgnat/a-siocst.ads, libgnat/a-slcain.adb: Likewise.
898 * libgnat/a-slcain.ads, libgnat/a-ssicst.adb: Likewise.
899 * libgnat/a-ssicst.ads, libgnat/a-stboha.adb: Likewise.
900 * libgnat/a-stbubo.adb, libgnat/a-stbubo.ads: Likewise.
901 * libgnat/a-stbufi.adb, libgnat/a-stbufi.ads: Likewise.
902 * libgnat/a-stbufo.adb, libgnat/a-stbufo.ads: Likewise.
903 * libgnat/a-stbuun.adb, libgnat/a-stbuut.adb: Likewise.
904 * libgnat/a-stbuut.ads, libgnat/a-stmaco.ads: Likewise.
905 * libgnat/a-storio.adb, libgnat/a-strbou.adb: Likewise.
906 * libgnat/a-strbou.ads, libgnat/a-stream.adb: Likewise.
907 * libgnat/a-stream.ads, libgnat/a-strfix.adb: Likewise.
908 * libgnat/a-strhas.adb, libgnat/a-strmap.adb: Likewise.
909 * libgnat/a-strmap.ads, libgnat/a-strsea.adb: Likewise.
910 * libgnat/a-strsea.ads, libgnat/a-strsto.ads: Likewise.
911 * libgnat/a-strsup.adb, libgnat/a-strsup.ads: Likewise.
912 * libgnat/a-strunb.adb, libgnat/a-strunb.ads: Likewise.
913 * libgnat/a-strunb__shared.adb, libgnat/a-strunb__shared.ads: Likewise.
914 * libgnat/a-ststbo.adb, libgnat/a-ststbo.ads: Likewise.
915 * libgnat/a-ststio.adb, libgnat/a-ststio.ads: Likewise.
916 * libgnat/a-ststun.adb, libgnat/a-ststun.ads: Likewise.
917 * libgnat/a-sttebu.adb, libgnat/a-stunau.adb: Likewise.
918 * libgnat/a-stunau.ads, libgnat/a-stunau__shared.adb: Likewise.
919 * libgnat/a-stunha.adb, libgnat/a-stuten.adb: Likewise.
920 * libgnat/a-stwibo.adb, libgnat/a-stwibo.ads: Likewise.
921 * libgnat/a-stwifi.adb, libgnat/a-stwiha.adb: Likewise.
922 * libgnat/a-stwima.adb, libgnat/a-stwima.ads: Likewise.
923 * libgnat/a-stwise.adb, libgnat/a-stwise.ads: Likewise.
924 * libgnat/a-stwisu.adb, libgnat/a-stwisu.ads: Likewise.
925 * libgnat/a-stwiun.adb, libgnat/a-stwiun.ads: Likewise.
926 * libgnat/a-stwiun__shared.adb, libgnat/a-stwiun__shared.ads: Likewise.
927 * libgnat/a-stzbou.adb, libgnat/a-stzbou.ads: Likewise.
928 * libgnat/a-stzfix.adb, libgnat/a-stzhas.adb: Likewise.
929 * libgnat/a-stzmap.adb, libgnat/a-stzmap.ads: Likewise.
930 * libgnat/a-stzsea.adb, libgnat/a-stzsea.ads: Likewise.
931 * libgnat/a-stzsup.adb, libgnat/a-stzsup.ads: Likewise.
932 * libgnat/a-stzunb.adb, libgnat/a-stzunb.ads: Likewise.
933 * libgnat/a-stzunb__shared.adb, libgnat/a-stzunb__shared.ads: Likewise.
934 * libgnat/a-suecin.adb, libgnat/a-suecin.ads: Likewise.
935 * libgnat/a-suenco.adb, libgnat/a-suenst.adb: Likewise.
936 * libgnat/a-suewst.adb, libgnat/a-suezst.adb: Likewise.
937 * libgnat/a-suhcin.adb, libgnat/a-suhcin.ads: Likewise.
938 * libgnat/a-sulcin.adb, libgnat/a-sulcin.ads: Likewise.
939 * libgnat/a-suteio.adb, libgnat/a-suteio.ads: Likewise.
940 * libgnat/a-suteio__shared.adb, libgnat/a-swbwha.adb: Likewise.
941 * libgnat/a-swmwco.ads, libgnat/a-swunau.adb: Likewise.
942 * libgnat/a-swunau.ads, libgnat/a-swunau__shared.adb: Likewise.
943 * libgnat/a-swuwha.adb, libgnat/a-swuwti.adb: Likewise.
944 * libgnat/a-swuwti.ads, libgnat/a-swuwti__shared.adb: Likewise.
945 * libgnat/a-szbzha.adb, libgnat/a-szmzco.ads: Likewise.
946 * libgnat/a-szunau.adb, libgnat/a-szunau.ads: Likewise.
947 * libgnat/a-szunau__shared.adb, libgnat/a-szuzha.adb: Likewise.
948 * libgnat/a-szuzti.adb, libgnat/a-szuzti.ads: Likewise.
949 * libgnat/a-szuzti__shared.adb, libgnat/a-tags.adb: Likewise.
950 * libgnat/a-tags.ads, libgnat/a-teioed.adb, libgnat/a-teioed.ads: Likewise.
951 * libgnat/a-textio.adb, libgnat/a-textio.ads: Likewise.
952 * libgnat/a-tiboio.adb, libgnat/a-ticoau.adb: Likewise.
953 * libgnat/a-ticoau.ads, libgnat/a-ticoio.adb: Likewise.
954 * libgnat/a-ticoio.ads, libgnat/a-tideau.adb: Likewise.
955 * libgnat/a-tideau.ads, libgnat/a-tideio.adb: Likewise.
956 * libgnat/a-tideio.ads, libgnat/a-tideio__128.adb: Likewise.
957 * libgnat/a-tienau.adb, libgnat/a-tienau.ads: Likewise.
958 * libgnat/a-tienio.adb, libgnat/a-tifiau.adb: Likewise.
959 * libgnat/a-tifiau.ads, libgnat/a-tifiio.adb: Likewise.
960 * libgnat/a-tifiio__128.adb, libgnat/a-tiflau.adb: Likewise.
961 * libgnat/a-tiflau.ads, libgnat/a-tiflio.adb: Likewise.
962 * libgnat/a-tiflio.ads, libgnat/a-tigeau.adb: Likewise.
963 * libgnat/a-tigeau.ads, libgnat/a-tigeli.adb: Likewise.
964 * libgnat/a-tiinau.adb, libgnat/a-tiinau.ads: Likewise.
965 * libgnat/a-tiinio.adb, libgnat/a-tiinio.ads: Likewise.
966 * libgnat/a-tiinio__128.adb, libgnat/a-timoio.adb: Likewise.
967 * libgnat/a-timoio.ads, libgnat/a-timoio__128.adb: Likewise.
968 * libgnat/a-tiocst.adb, libgnat/a-tiocst.ads: Likewise.
969 * libgnat/a-tirsfi.adb, libgnat/a-tirsfi.ads: Likewise.
970 * libgnat/a-titest.adb, libgnat/a-undesu.adb: Likewise.
971 * libgnat/a-wichha.adb, libgnat/a-wichun.adb: Likewise.
972 * libgnat/a-wichun.ads, libgnat/a-witeio.adb: Likewise.
973 * libgnat/a-witeio.ads, libgnat/a-wrstfi.adb: Likewise.
974 * libgnat/a-wrstfi.ads, libgnat/a-wtcoau.adb: Likewise.
975 * libgnat/a-wtcoau.ads, libgnat/a-wtcoio.adb: Likewise.
976 * libgnat/a-wtcstr.adb, libgnat/a-wtcstr.ads: Likewise.
977 * libgnat/a-wtdeau.adb, libgnat/a-wtdeau.ads: Likewise.
978 * libgnat/a-wtdeio.adb, libgnat/a-wtdeio__128.adb: Likewise.
979 * libgnat/a-wtedit.adb, libgnat/a-wtedit.ads: Likewise.
980 * libgnat/a-wtenau.adb, libgnat/a-wtenau.ads: Likewise.
981 * libgnat/a-wtenio.adb, libgnat/a-wtfiau.adb: Likewise.
982 * libgnat/a-wtfiau.ads, libgnat/a-wtfiio.adb: Likewise.
983 * libgnat/a-wtfiio__128.adb, libgnat/a-wtflau.adb: Likewise.
984 * libgnat/a-wtflau.ads, libgnat/a-wtflio.adb: Likewise.
985 * libgnat/a-wtgeau.adb, libgnat/a-wtgeau.ads: Likewise.
986 * libgnat/a-wtinau.adb, libgnat/a-wtinau.ads: Likewise.
987 * libgnat/a-wtinio.adb, libgnat/a-wtinio__128.adb: Likewise.
988 * libgnat/a-wtmoio.adb, libgnat/a-wtmoio.ads: Likewise.
989 * libgnat/a-wtmoio__128.adb, libgnat/a-wttest.adb: Likewise.
990 * libgnat/a-wwboio.adb, libgnat/a-zchhan.adb: Likewise.
991 * libgnat/a-zchuni.adb, libgnat/a-zchuni.ads: Likewise.
992 * libgnat/a-zrstfi.adb, libgnat/a-zrstfi.ads: Likewise.
993 * libgnat/a-ztcoau.adb, libgnat/a-ztcoio.adb: Likewise.
994 * libgnat/a-ztcstr.adb, libgnat/a-ztcstr.ads: Likewise.
995 * libgnat/a-ztdeau.adb, libgnat/a-ztdeau.ads: Likewise.
996 * libgnat/a-ztdeio.adb, libgnat/a-ztdeio__128.adb: Likewise.
997 * libgnat/a-ztedit.adb, libgnat/a-ztedit.ads: Likewise.
998 * libgnat/a-ztenau.adb, libgnat/a-ztenau.ads: Likewise.
999 * libgnat/a-ztenio.adb, libgnat/a-ztexio.adb: Likewise.
1000 * libgnat/a-ztexio.ads, libgnat/a-ztfiau.adb: Likewise.
1001 * libgnat/a-ztfiau.ads, libgnat/a-ztfiio.adb: Likewise.
1002 * libgnat/a-ztfiio__128.adb, libgnat/a-ztflau.adb: Likewise.
1003 * libgnat/a-ztflau.ads, libgnat/a-ztflio.adb: Likewise.
1004 * libgnat/a-ztgeau.adb, libgnat/a-ztgeau.ads: Likewise.
1005 * libgnat/a-ztinau.adb, libgnat/a-ztinau.ads: Likewise.
1006 * libgnat/a-ztinio.adb, libgnat/a-ztinio__128.adb: Likewise.
1007 * libgnat/a-ztmoio.adb, libgnat/a-ztmoio__128.adb: Likewise.
1008 * libgnat/a-zttest.adb, libgnat/a-zzboio.adb: Likewise.
1009 * libgnat/g-allein.ads, libgnat/g-alleve.adb: Likewise.
1010 * libgnat/g-alleve.ads, libgnat/g-alleve__hard.adb: Likewise.
1011 * libgnat/g-alleve__hard.ads, libgnat/g-altcon.adb: Likewise.
1012 * libgnat/g-altcon.ads, libgnat/g-altive.ads: Likewise.
1013 * libgnat/g-alveop.adb, libgnat/g-alveop.ads: Likewise.
1014 * libgnat/g-alvety.ads, libgnat/g-alvevi.ads: Likewise.
1015 * libgnat/g-arrspl.adb, libgnat/g-arrspl.ads, libgnat/g-awk.adb: Likewise.
1016 * libgnat/g-awk.ads, libgnat/g-binenv.adb, libgnat/g-binenv.ads: Likewise.
1017 * libgnat/g-binsea.adb, libgnat/g-binsea.ads: Likewise.
1018 * libgnat/g-brapre.ads, libgnat/g-bubsor.adb: Likewise.
1019 * libgnat/g-bubsor.ads, libgnat/g-busora.adb: Likewise.
1020 * libgnat/g-busora.ads, libgnat/g-busorg.adb: Likewise.
1021 * libgnat/g-busorg.ads, libgnat/g-byorma.adb: Likewise.
1022 * libgnat/g-byorma.ads, libgnat/g-bytswa.adb: Likewise.
1023 * libgnat/g-bytswa.ads, libgnat/g-calend.adb: Likewise.
1024 * libgnat/g-calend.ads, libgnat/g-casuti.adb: Likewise.
1025 * libgnat/g-casuti.ads, libgnat/g-catiio.adb: Likewise.
1026 * libgnat/g-catiio.ads, libgnat/g-cgi.adb, libgnat/g-cgi.ads: Likewise.
1027 * libgnat/g-cgicoo.adb, libgnat/g-cgicoo.ads: Likewise.
1028 * libgnat/g-cgideb.adb, libgnat/g-cgideb.ads: Likewise.
1029 * libgnat/g-comlin.adb, libgnat/g-comlin.ads: Likewise.
1030 * libgnat/g-comver.adb, libgnat/g-comver.ads: Likewise.
1031 * libgnat/g-cppexc.adb, libgnat/g-cppexc.ads, libgnat/g-crc32.adb: Likewise.
1032 * libgnat/g-crc32.ads, libgnat/g-ctrl_c.adb, libgnat/g-ctrl_c.ads: Likewise.
1033 * libgnat/g-curexc.ads, libgnat/g-debpoo.adb: Likewise.
1034 * libgnat/g-debpoo.ads, libgnat/g-debuti.adb: Likewise.
1035 * libgnat/g-debuti.ads, libgnat/g-decstr.adb: Likewise.
1036 * libgnat/g-decstr.ads, libgnat/g-deutst.ads: Likewise.
1037 * libgnat/g-diopit.adb, libgnat/g-diopit.ads: Likewise.
1038 * libgnat/g-dirope.adb, libgnat/g-dirope.ads: Likewise.
1039 * libgnat/g-dynhta.adb, libgnat/g-dynhta.ads: Likewise.
1040 * libgnat/g-dyntab.adb, libgnat/g-dyntab.ads: Likewise.
1041 * libgnat/g-eacodu.adb, libgnat/g-encstr.adb: Likewise.
1042 * libgnat/g-encstr.ads, libgnat/g-enutst.ads: Likewise.
1043 * libgnat/g-excact.adb, libgnat/g-excact.ads: Likewise.
1044 * libgnat/g-except.ads, libgnat/g-exctra.adb: Likewise.
1045 * libgnat/g-exctra.ads, libgnat/g-expect.adb: Likewise.
1046 * libgnat/g-expect.ads, libgnat/g-exptty.adb: Likewise.
1047 * libgnat/g-exptty.ads, libgnat/g-flocon.ads: Likewise.
1048 * libgnat/g-forstr.adb, libgnat/g-forstr.ads: Likewise.
1049 * libgnat/g-gfmafu.ads, libgnat/g-graphs.adb: Likewise.
1050 * libgnat/g-graphs.ads, libgnat/g-heasor.adb: Likewise.
1051 * libgnat/g-heasor.ads, libgnat/g-hesora.adb: Likewise.
1052 * libgnat/g-hesora.ads, libgnat/g-hesorg.adb: Likewise.
1053 * libgnat/g-hesorg.ads, libgnat/g-htable.adb: Likewise.
1054 * libgnat/g-htable.ads, libgnat/g-io.adb, libgnat/g-io.ads: Likewise.
1055 * libgnat/g-io_aux.adb, libgnat/g-io_aux.ads, libgnat/g-lists.adb: Likewise.
1056 * libgnat/g-lists.ads, libgnat/g-locfil.adb, libgnat/g-locfil.ads: Likewise.
1057 * libgnat/g-mbdira.adb, libgnat/g-mbdira.ads: Likewise.
1058 * libgnat/g-mbflra.adb, libgnat/g-mbflra.ads, libgnat/g-md5.adb: Likewise.
1059 * libgnat/g-md5.ads, libgnat/g-memdum.adb, libgnat/g-memdum.ads: Likewise.
1060 * libgnat/g-moreex.adb, libgnat/g-moreex.ads: Likewise.
1061 * libgnat/g-os_lib.adb, libgnat/g-os_lib.ads: Likewise.
1062 * libgnat/g-pehage.adb, libgnat/g-pehage.ads: Likewise.
1063 * libgnat/g-rannum.adb, libgnat/g-rannum.ads: Likewise.
1064 * libgnat/g-regexp.adb, libgnat/g-regexp.ads: Likewise.
1065 * libgnat/g-regist.adb, libgnat/g-regist.ads: Likewise.
1066 * libgnat/g-regpat.adb, libgnat/g-regpat.ads: Likewise.
1067 * libgnat/g-rewdat.adb, libgnat/g-rewdat.ads: Likewise.
1068 * libgnat/g-sechas.adb, libgnat/g-sechas.ads: Likewise.
1069 * libgnat/g-sehamd.adb, libgnat/g-sehamd.ads: Likewise.
1070 * libgnat/g-sehash.adb, libgnat/g-sehash.ads: Likewise.
1071 * libgnat/g-sercom.adb, libgnat/g-sercom.ads: Likewise.
1072 * libgnat/g-sercom__linux.adb, libgnat/g-sercom__mingw.adb: Likewise.
1073 * libgnat/g-sestin.ads, libgnat/g-sets.adb, libgnat/g-sets.ads: Likewise.
1074 * libgnat/g-sha1.adb, libgnat/g-sha1.ads, libgnat/g-sha224.ads: Likewise.
1075 * libgnat/g-sha256.ads, libgnat/g-sha384.ads: Likewise.
1076 * libgnat/g-sha512.ads, libgnat/g-shsh32.adb: Likewise.
1077 * libgnat/g-shsh32.ads, libgnat/g-shsh64.adb: Likewise.
1078 * libgnat/g-shsh64.ads, libgnat/g-shshco.adb: Likewise.
1079 * libgnat/g-shshco.ads, libgnat/g-soccon.ads: Likewise.
1080 * libgnat/g-socket.adb, libgnat/g-socket.ads: Likewise.
1081 * libgnat/g-socket__dummy.adb, libgnat/g-socket__dummy.ads: Likewise.
1082 * libgnat/g-socpol.adb, libgnat/g-socpol.ads: Likewise.
1083 * libgnat/g-socpol__dummy.adb, libgnat/g-socpol__dummy.ads: Likewise.
1084 * libgnat/g-socthi.adb, libgnat/g-socthi.ads: Likewise.
1085 * libgnat/g-socthi__dummy.adb, libgnat/g-socthi__dummy.ads: Likewise.
1086 * libgnat/g-socthi__mingw.adb, libgnat/g-socthi__mingw.ads: Likewise.
1087 * libgnat/g-socthi__vxworks.adb, libgnat/g-socthi__vxworks.ads: Likewise.
1088 * libgnat/g-soliop.ads, libgnat/g-soliop__lynxos.ads: Likewise.
1089 * libgnat/g-soliop__mingw.ads, libgnat/g-soliop__qnx.ads: Likewise.
1090 * libgnat/g-soliop__solaris.ads, libgnat/g-sopowa.adb: Likewise.
1091 * libgnat/g-sopowa__mingw.adb, libgnat/g-sopowa__posix.adb: Likewise.
1092 * libgnat/g-sothco.adb, libgnat/g-sothco.ads: Likewise.
1093 * libgnat/g-sothco__dummy.adb, libgnat/g-sothco__dummy.ads: Likewise.
1094 * libgnat/g-souinf.ads, libgnat/g-spchge.adb: Likewise.
1095 * libgnat/g-spchge.ads, libgnat/g-speche.adb: Likewise.
1096 * libgnat/g-speche.ads, libgnat/g-spipat.adb: Likewise.
1097 * libgnat/g-spipat.ads, libgnat/g-spitbo.adb: Likewise.
1098 * libgnat/g-spitbo.ads, libgnat/g-spogwa.adb: Likewise.
1099 * libgnat/g-spogwa.ads, libgnat/g-sptabo.ads: Likewise.
1100 * libgnat/g-sptain.ads, libgnat/g-sptavs.ads, libgnat/g-sse.ads: Likewise.
1101 * libgnat/g-ssvety.ads, libgnat/g-sthcso.adb: Likewise.
1102 * libgnat/g-stheme.adb, libgnat/g-strhas.ads: Likewise.
1103 * libgnat/g-string.adb, libgnat/g-string.ads: Likewise.
1104 * libgnat/g-strspl.ads, libgnat/g-stseme.adb: Likewise.
1105 * libgnat/g-stsifd__sockets.adb, libgnat/g-table.adb: Likewise.
1106 * libgnat/g-table.ads, libgnat/g-tasloc.adb, libgnat/g-tasloc.ads: Likewise.
1107 * libgnat/g-timsta.adb, libgnat/g-timsta.ads: Likewise.
1108 * libgnat/g-traceb.adb, libgnat/g-traceb.ads: Likewise.
1109 * libgnat/g-trasym.adb, libgnat/g-trasym.ads, libgnat/g-tty.adb: Likewise.
1110 * libgnat/g-tty.ads, libgnat/g-u3spch.adb, libgnat/g-u3spch.ads: Likewise.
1111 * libgnat/g-utf_32.adb, libgnat/g-utf_32.ads: Likewise.
1112 * libgnat/g-wispch.adb, libgnat/g-wispch.ads: Likewise.
1113 * libgnat/g-wistsp.ads, libgnat/g-zspche.adb: Likewise.
1114 * libgnat/g-zspche.ads, libgnat/g-zstspl.ads, libgnat/gnat.ads: Likewise.
1115 * libgnat/i-c.adb, libgnat/i-cexten.ads: Likewise.
1116 * libgnat/i-cexten__128.ads, libgnat/i-cobol.adb: Likewise.
1117 * libgnat/i-cobol.ads, libgnat/i-cpoint.adb, libgnat/i-cpoint.ads: Likewise.
1118 * libgnat/i-cstrea.adb, libgnat/i-cstrea.ads: Likewise.
1119 * libgnat/i-cstrin.adb, libgnat/i-cstrin.ads: Likewise.
1120 * libgnat/i-fortra.adb, libgnat/i-pacdec.adb: Likewise.
1121 * libgnat/i-pacdec.ads, libgnat/i-vxwoio.adb: Likewise.
1122 * libgnat/i-vxwoio.ads, libgnat/i-vxwork.ads: Likewise.
1123 * libgnat/i-vxwork__x86.ads, libgnat/interfac.ads: Likewise.
1124 * libgnat/interfac__2020.ads, libgnat/memtrack.adb: Likewise.
1125 * libgnat/s-addima.adb, libgnat/s-addima.ads: Likewise.
1126 * libgnat/s-addope.adb, libgnat/s-addope.ads: Likewise.
1127 * libgnat/s-aoinar.adb, libgnat/s-aoinar.ads: Likewise.
1128 * libgnat/s-aomoar.adb, libgnat/s-aomoar.ads: Likewise.
1129 * libgnat/s-aotase.adb, libgnat/s-aotase.ads: Likewise.
1130 * libgnat/s-aridou.adb, libgnat/s-aridou.ads: Likewise.
1131 * libgnat/s-arit128.adb, libgnat/s-arit128.ads: Likewise.
1132 * libgnat/s-arit32.adb, libgnat/s-arit32.ads: Likewise.
1133 * libgnat/s-arit64.adb, libgnat/s-arit64.ads: Likewise.
1134 * libgnat/s-assert.adb, libgnat/s-assert.ads: Likewise.
1135 * libgnat/s-atacco.adb, libgnat/s-atacco.ads: Likewise.
1136 * libgnat/s-atocou.adb, libgnat/s-atocou.ads: Likewise.
1137 * libgnat/s-atocou__builtin.adb, libgnat/s-atoope.ads: Likewise.
1138 * libgnat/s-atopex.adb, libgnat/s-atopex.ads: Likewise.
1139 * libgnat/s-atopri.adb, libgnat/s-atopri.ads: Likewise.
1140 * libgnat/s-auxdec.adb, libgnat/s-auxdec.ads: Likewise.
1141 * libgnat/s-bignum.adb, libgnat/s-bignum.ads: Likewise.
1142 * libgnat/s-bitfie.ads, libgnat/s-bitops.adb: Likewise.
1143 * libgnat/s-bitops.ads, libgnat/s-bituti.adb: Likewise.
1144 * libgnat/s-bituti.ads, libgnat/s-boarop.ads: Likewise.
1145 * libgnat/s-boustr.adb, libgnat/s-boustr.ads: Likewise.
1146 * libgnat/s-bytswa.ads, libgnat/s-carsi8.adb: Likewise.
1147 * libgnat/s-carsi8.ads, libgnat/s-carun8.adb: Likewise.
1148 * libgnat/s-carun8.ads, libgnat/s-casi128.adb: Likewise.
1149 * libgnat/s-casi128.ads, libgnat/s-casi16.adb: Likewise.
1150 * libgnat/s-casi16.ads, libgnat/s-casi32.adb: Likewise.
1151 * libgnat/s-casi32.ads, libgnat/s-casi64.adb: Likewise.
1152 * libgnat/s-casi64.ads, libgnat/s-casuti.adb: Likewise.
1153 * libgnat/s-casuti.ads, libgnat/s-caun128.adb: Likewise.
1154 * libgnat/s-caun128.ads, libgnat/s-caun16.adb: Likewise.
1155 * libgnat/s-caun16.ads, libgnat/s-caun32.adb: Likewise.
1156 * libgnat/s-caun32.ads, libgnat/s-caun64.adb: Likewise.
1157 * libgnat/s-caun64.ads, libgnat/s-chepoo.ads: Likewise.
1158 * libgnat/s-commun.adb, libgnat/s-commun.ads: Likewise.
1159 * libgnat/s-conca2.adb, libgnat/s-conca2.ads: Likewise.
1160 * libgnat/s-conca3.adb, libgnat/s-conca3.ads: Likewise.
1161 * libgnat/s-conca4.adb, libgnat/s-conca4.ads: Likewise.
1162 * libgnat/s-conca5.adb, libgnat/s-conca5.ads: Likewise.
1163 * libgnat/s-conca6.adb, libgnat/s-conca6.ads: Likewise.
1164 * libgnat/s-conca7.adb, libgnat/s-conca7.ads: Likewise.
1165 * libgnat/s-conca8.adb, libgnat/s-conca8.ads: Likewise.
1166 * libgnat/s-conca9.adb, libgnat/s-conca9.ads, libgnat/s-crc32.adb: Likewise.
1167 * libgnat/s-crc32.ads, libgnat/s-crtl.ads, libgnat/s-dfmkio.ads: Likewise.
1168 * libgnat/s-dfmopr.ads, libgnat/s-dgmgop.ads: Likewise.
1169 * libgnat/s-diflio.adb, libgnat/s-diflio.ads: Likewise.
1170 * libgnat/s-diflmk.ads, libgnat/s-digemk.ads: Likewise.
1171 * libgnat/s-diinio.adb, libgnat/s-diinio.ads: Likewise.
1172 * libgnat/s-dilomk.ads, libgnat/s-dim.ads, libgnat/s-dimkio.ads: Likewise.
1173 * libgnat/s-dimmks.ads, libgnat/s-direio.adb: Likewise.
1174 * libgnat/s-direio.ads, libgnat/s-dlmkio.ads: Likewise.
1175 * libgnat/s-dlmopr.ads, libgnat/s-dmotpr.ads: Likewise.
1176 * libgnat/s-dorepr.adb, libgnat/s-dorepr__fma.adb: Likewise.
1177 * libgnat/s-dourea.adb, libgnat/s-dourea.ads: Likewise.
1178 * libgnat/s-dsaser.ads, libgnat/s-dwalin.adb: Likewise.
1179 * libgnat/s-dwalin.ads, libgnat/s-elaall.adb: Likewise.
1180 * libgnat/s-elaall.ads, libgnat/s-excdeb.adb: Likewise.
1181 * libgnat/s-excdeb.ads, libgnat/s-except.adb: Likewise.
1182 * libgnat/s-except.ads, libgnat/s-excmac__arm.adb: Likewise.
1183 * libgnat/s-excmac__arm.ads, libgnat/s-excmac__gcc.adb: Likewise.
1184 * libgnat/s-excmac__gcc.ads, libgnat/s-exctab.adb: Likewise.
1185 * libgnat/s-exctab.ads, libgnat/s-exctra.adb: Likewise.
1186 * libgnat/s-exctra.ads, libgnat/s-exnflt.ads: Likewise.
1187 * libgnat/s-exnint.adb, libgnat/s-exnint.ads: Likewise.
1188 * libgnat/s-exnlfl.ads, libgnat/s-exnllf.adb: Likewise.
1189 * libgnat/s-exnllf.ads, libgnat/s-exnlli.adb: Likewise.
1190 * libgnat/s-exnlli.ads, libgnat/s-exnllli.ads: Likewise.
1191 * libgnat/s-expint.adb, libgnat/s-expint.ads: Likewise.
1192 * libgnat/s-explli.adb, libgnat/s-explli.ads: Likewise.
1193 * libgnat/s-expllli.ads, libgnat/s-explllu.ads: Likewise.
1194 * libgnat/s-expllu.adb, libgnat/s-expllu.ads: Likewise.
1195 * libgnat/s-expmod.adb, libgnat/s-expmod.ads: Likewise.
1196 * libgnat/s-exponn.adb, libgnat/s-exponn.ads: Likewise.
1197 * libgnat/s-exponr.adb, libgnat/s-exponr.ads: Likewise.
1198 * libgnat/s-expont.adb, libgnat/s-expont.ads: Likewise.
1199 * libgnat/s-exponu.adb, libgnat/s-exponu.ads: Likewise.
1200 * libgnat/s-expuns.adb, libgnat/s-expuns.ads: Likewise.
1201 * libgnat/s-fatflt.ads, libgnat/s-fatgen.adb: Likewise.
1202 * libgnat/s-fatgen.ads, libgnat/s-fatlfl.ads: Likewise.
1203 * libgnat/s-fatllf.ads, libgnat/s-ficobl.ads: Likewise.
1204 * libgnat/s-filatt.ads, libgnat/s-fileio.adb: Likewise.
1205 * libgnat/s-fileio.ads, libgnat/s-finmas.adb: Likewise.
1206 * libgnat/s-finmas.ads, libgnat/s-finroo.adb: Likewise.
1207 * libgnat/s-finroo.ads, libgnat/s-flocon.adb: Likewise.
1208 * libgnat/s-flocon.ads, libgnat/s-flocon__none.adb: Likewise.
1209 * libgnat/s-fode128.ads, libgnat/s-fode32.ads: Likewise.
1210 * libgnat/s-fode64.ads, libgnat/s-fofi128.ads: Likewise.
1211 * libgnat/s-fofi32.ads, libgnat/s-fofi64.ads: Likewise.
1212 * libgnat/s-fore_d.adb, libgnat/s-fore_d.ads: Likewise.
1213 * libgnat/s-fore_f.adb, libgnat/s-fore_f.ads: Likewise.
1214 * libgnat/s-forrea.adb, libgnat/s-forrea.ads: Likewise.
1215 * libgnat/s-gearop.adb, libgnat/s-gearop.ads: Likewise.
1216 * libgnat/s-genbig.adb, libgnat/s-genbig.ads: Likewise.
1217 * libgnat/s-geveop.adb, libgnat/s-geveop.ads: Likewise.
1218 * libgnat/s-gloloc.adb, libgnat/s-gloloc.ads: Likewise.
1219 * libgnat/s-gloloc__mingw.adb, libgnat/s-htable.adb: Likewise.
1220 * libgnat/s-htable.ads, libgnat/s-imageb.adb: Likewise.
1221 * libgnat/s-imageb.ads, libgnat/s-imaged.adb: Likewise.
1222 * libgnat/s-imaged.ads, libgnat/s-imagef.adb: Likewise.
1223 * libgnat/s-imagef.ads, libgnat/s-imagei.adb: Likewise.
1224 * libgnat/s-imagei.ads, libgnat/s-imagen.adb: Likewise.
1225 * libgnat/s-imagen.ads, libgnat/s-imager.adb: Likewise.
1226 * libgnat/s-imager.ads, libgnat/s-imageu.adb: Likewise.
1227 * libgnat/s-imageu.ads, libgnat/s-imagew.adb: Likewise.
1228 * libgnat/s-imagew.ads, libgnat/s-imde128.ads: Likewise.
1229 * libgnat/s-imde32.ads, libgnat/s-imde64.ads: Likewise.
1230 * libgnat/s-imen16.ads, libgnat/s-imen32.ads: Likewise.
1231 * libgnat/s-imenu8.ads, libgnat/s-imfi128.ads: Likewise.
1232 * libgnat/s-imfi32.ads, libgnat/s-imfi64.ads: Likewise.
1233 * libgnat/s-imgbiu.adb, libgnat/s-imgbiu.ads: Likewise.
1234 * libgnat/s-imgboo.adb, libgnat/s-imgboo.ads: Likewise.
1235 * libgnat/s-imgcha.adb, libgnat/s-imgcha.ads: Likewise.
1236 * libgnat/s-imgflt.ads, libgnat/s-imgint.adb: Likewise.
1237 * libgnat/s-imgint.ads, libgnat/s-imglfl.ads: Likewise.
1238 * libgnat/s-imgllb.adb, libgnat/s-imgllb.ads: Likewise.
1239 * libgnat/s-imgllf.ads, libgnat/s-imglli.adb: Likewise.
1240 * libgnat/s-imglli.ads, libgnat/s-imglllb.ads: Likewise.
1241 * libgnat/s-imgllli.ads, libgnat/s-imglllu.ads: Likewise.
1242 * libgnat/s-imglllw.ads, libgnat/s-imgllu.adb: Likewise.
1243 * libgnat/s-imgllu.ads, libgnat/s-imgllw.adb: Likewise.
1244 * libgnat/s-imgllw.ads, libgnat/s-imgrea.adb: Likewise.
1245 * libgnat/s-imgrea.ads, libgnat/s-imguns.adb: Likewise.
1246 * libgnat/s-imguns.ads, libgnat/s-imguti.adb: Likewise.
1247 * libgnat/s-imguti.ads, libgnat/s-imgwch.adb: Likewise.
1248 * libgnat/s-imgwch.ads, libgnat/s-imgwiu.adb: Likewise.
1249 * libgnat/s-imgwiu.ads, libgnat/s-io.adb, libgnat/s-io.ads: Likewise.
1250 * libgnat/s-llflex.ads, libgnat/s-maccod.ads: Likewise.
1251 * libgnat/s-mantis.adb, libgnat/s-mantis.ads: Likewise.
1252 * libgnat/s-mastop.adb, libgnat/s-mastop.ads: Likewise.
1253 * libgnat/s-memcop.ads, libgnat/s-memory.adb: Likewise.
1254 * libgnat/s-memory.ads, libgnat/s-mmap.adb, libgnat/s-mmap.ads: Likewise.
1255 * libgnat/s-mmauni__long.ads, libgnat/s-mmosin__mingw.adb: Likewise.
1256 * libgnat/s-mmosin__mingw.ads, libgnat/s-mmosin__unix.adb: Likewise.
1257 * libgnat/s-mmosin__unix.ads, libgnat/s-multip.adb: Likewise.
1258 * libgnat/s-objrea.adb, libgnat/s-objrea.ads: Likewise.
1259 * libgnat/s-optide.adb, libgnat/s-os_lib.adb: Likewise.
1260 * libgnat/s-os_lib.ads, libgnat/s-osprim.ads: Likewise.
1261 * libgnat/s-osprim__darwin.adb, libgnat/s-osprim__lynxos.ads: Likewise.
1262 * libgnat/s-osprim__mingw.adb, libgnat/s-osprim__posix.adb: Likewise.
1263 * libgnat/s-osprim__posix2008.adb, libgnat/s-osprim__rtems.adb: Likewise.
1264 * libgnat/s-osprim__solaris.adb, libgnat/s-osprim__unix.adb: Likewise.
1265 * libgnat/s-osprim__x32.adb, libgnat/s-pack03.adb: Likewise.
1266 * libgnat/s-pack03.ads, libgnat/s-pack05.adb: Likewise.
1267 * libgnat/s-pack05.ads, libgnat/s-pack06.adb: Likewise.
1268 * libgnat/s-pack06.ads, libgnat/s-pack07.adb: Likewise.
1269 * libgnat/s-pack07.ads, libgnat/s-pack09.adb: Likewise.
1270 * libgnat/s-pack09.ads, libgnat/s-pack10.adb: Likewise.
1271 * libgnat/s-pack10.ads, libgnat/s-pack100.adb: Likewise.
1272 * libgnat/s-pack100.ads, libgnat/s-pack101.adb: Likewise.
1273 * libgnat/s-pack101.ads, libgnat/s-pack102.adb: Likewise.
1274 * libgnat/s-pack102.ads, libgnat/s-pack103.adb: Likewise.
1275 * libgnat/s-pack103.ads, libgnat/s-pack104.adb: Likewise.
1276 * libgnat/s-pack104.ads, libgnat/s-pack105.adb: Likewise.
1277 * libgnat/s-pack105.ads, libgnat/s-pack106.adb: Likewise.
1278 * libgnat/s-pack106.ads, libgnat/s-pack107.adb: Likewise.
1279 * libgnat/s-pack107.ads, libgnat/s-pack108.adb: Likewise.
1280 * libgnat/s-pack108.ads, libgnat/s-pack109.adb: Likewise.
1281 * libgnat/s-pack109.ads, libgnat/s-pack11.adb: Likewise.
1282 * libgnat/s-pack11.ads, libgnat/s-pack110.adb: Likewise.
1283 * libgnat/s-pack110.ads, libgnat/s-pack111.adb: Likewise.
1284 * libgnat/s-pack111.ads, libgnat/s-pack112.adb: Likewise.
1285 * libgnat/s-pack112.ads, libgnat/s-pack113.adb: Likewise.
1286 * libgnat/s-pack113.ads, libgnat/s-pack114.adb: Likewise.
1287 * libgnat/s-pack114.ads, libgnat/s-pack115.adb: Likewise.
1288 * libgnat/s-pack115.ads, libgnat/s-pack116.adb: Likewise.
1289 * libgnat/s-pack116.ads, libgnat/s-pack117.adb: Likewise.
1290 * libgnat/s-pack117.ads, libgnat/s-pack118.adb: Likewise.
1291 * libgnat/s-pack118.ads, libgnat/s-pack119.adb: Likewise.
1292 * libgnat/s-pack119.ads, libgnat/s-pack12.adb: Likewise.
1293 * libgnat/s-pack12.ads, libgnat/s-pack120.adb: Likewise.
1294 * libgnat/s-pack120.ads, libgnat/s-pack121.adb: Likewise.
1295 * libgnat/s-pack121.ads, libgnat/s-pack122.adb: Likewise.
1296 * libgnat/s-pack122.ads, libgnat/s-pack123.adb: Likewise.
1297 * libgnat/s-pack123.ads, libgnat/s-pack124.adb: Likewise.
1298 * libgnat/s-pack124.ads, libgnat/s-pack125.adb: Likewise.
1299 * libgnat/s-pack125.ads, libgnat/s-pack126.adb: Likewise.
1300 * libgnat/s-pack126.ads, libgnat/s-pack127.adb: Likewise.
1301 * libgnat/s-pack127.ads, libgnat/s-pack13.adb: Likewise.
1302 * libgnat/s-pack13.ads, libgnat/s-pack14.adb: Likewise.
1303 * libgnat/s-pack14.ads, libgnat/s-pack15.adb: Likewise.
1304 * libgnat/s-pack15.ads, libgnat/s-pack17.adb: Likewise.
1305 * libgnat/s-pack17.ads, libgnat/s-pack18.adb: Likewise.
1306 * libgnat/s-pack18.ads, libgnat/s-pack19.adb: Likewise.
1307 * libgnat/s-pack19.ads, libgnat/s-pack20.adb: Likewise.
1308 * libgnat/s-pack20.ads, libgnat/s-pack21.adb: Likewise.
1309 * libgnat/s-pack21.ads, libgnat/s-pack22.adb: Likewise.
1310 * libgnat/s-pack22.ads, libgnat/s-pack23.adb: Likewise.
1311 * libgnat/s-pack23.ads, libgnat/s-pack24.adb: Likewise.
1312 * libgnat/s-pack24.ads, libgnat/s-pack25.adb: Likewise.
1313 * libgnat/s-pack25.ads, libgnat/s-pack26.adb: Likewise.
1314 * libgnat/s-pack26.ads, libgnat/s-pack27.adb: Likewise.
1315 * libgnat/s-pack27.ads, libgnat/s-pack28.adb: Likewise.
1316 * libgnat/s-pack28.ads, libgnat/s-pack29.adb: Likewise.
1317 * libgnat/s-pack29.ads, libgnat/s-pack30.adb: Likewise.
1318 * libgnat/s-pack30.ads, libgnat/s-pack31.adb: Likewise.
1319 * libgnat/s-pack31.ads, libgnat/s-pack33.adb: Likewise.
1320 * libgnat/s-pack33.ads, libgnat/s-pack34.adb: Likewise.
1321 * libgnat/s-pack34.ads, libgnat/s-pack35.adb: Likewise.
1322 * libgnat/s-pack35.ads, libgnat/s-pack36.adb: Likewise.
1323 * libgnat/s-pack36.ads, libgnat/s-pack37.adb: Likewise.
1324 * libgnat/s-pack37.ads, libgnat/s-pack38.adb: Likewise.
1325 * libgnat/s-pack38.ads, libgnat/s-pack39.adb: Likewise.
1326 * libgnat/s-pack39.ads, libgnat/s-pack40.adb: Likewise.
1327 * libgnat/s-pack40.ads, libgnat/s-pack41.adb: Likewise.
1328 * libgnat/s-pack41.ads, libgnat/s-pack42.adb: Likewise.
1329 * libgnat/s-pack42.ads, libgnat/s-pack43.adb: Likewise.
1330 * libgnat/s-pack43.ads, libgnat/s-pack44.adb: Likewise.
1331 * libgnat/s-pack44.ads, libgnat/s-pack45.adb: Likewise.
1332 * libgnat/s-pack45.ads, libgnat/s-pack46.adb: Likewise.
1333 * libgnat/s-pack46.ads, libgnat/s-pack47.adb: Likewise.
1334 * libgnat/s-pack47.ads, libgnat/s-pack48.adb: Likewise.
1335 * libgnat/s-pack48.ads, libgnat/s-pack49.adb: Likewise.
1336 * libgnat/s-pack49.ads, libgnat/s-pack50.adb: Likewise.
1337 * libgnat/s-pack50.ads, libgnat/s-pack51.adb: Likewise.
1338 * libgnat/s-pack51.ads, libgnat/s-pack52.adb: Likewise.
1339 * libgnat/s-pack52.ads, libgnat/s-pack53.adb: Likewise.
1340 * libgnat/s-pack53.ads, libgnat/s-pack54.adb: Likewise.
1341 * libgnat/s-pack54.ads, libgnat/s-pack55.adb: Likewise.
1342 * libgnat/s-pack55.ads, libgnat/s-pack56.adb: Likewise.
1343 * libgnat/s-pack56.ads, libgnat/s-pack57.adb: Likewise.
1344 * libgnat/s-pack57.ads, libgnat/s-pack58.adb: Likewise.
1345 * libgnat/s-pack58.ads, libgnat/s-pack59.adb: Likewise.
1346 * libgnat/s-pack59.ads, libgnat/s-pack60.adb: Likewise.
1347 * libgnat/s-pack60.ads, libgnat/s-pack61.adb: Likewise.
1348 * libgnat/s-pack61.ads, libgnat/s-pack62.adb: Likewise.
1349 * libgnat/s-pack62.ads, libgnat/s-pack63.adb: Likewise.
1350 * libgnat/s-pack63.ads, libgnat/s-pack65.adb: Likewise.
1351 * libgnat/s-pack65.ads, libgnat/s-pack66.adb: Likewise.
1352 * libgnat/s-pack66.ads, libgnat/s-pack67.adb: Likewise.
1353 * libgnat/s-pack67.ads, libgnat/s-pack68.adb: Likewise.
1354 * libgnat/s-pack68.ads, libgnat/s-pack69.adb: Likewise.
1355 * libgnat/s-pack69.ads, libgnat/s-pack70.adb: Likewise.
1356 * libgnat/s-pack70.ads, libgnat/s-pack71.adb: Likewise.
1357 * libgnat/s-pack71.ads, libgnat/s-pack72.adb: Likewise.
1358 * libgnat/s-pack72.ads, libgnat/s-pack73.adb: Likewise.
1359 * libgnat/s-pack73.ads, libgnat/s-pack74.adb: Likewise.
1360 * libgnat/s-pack74.ads, libgnat/s-pack75.adb: Likewise.
1361 * libgnat/s-pack75.ads, libgnat/s-pack76.adb: Likewise.
1362 * libgnat/s-pack76.ads, libgnat/s-pack77.adb: Likewise.
1363 * libgnat/s-pack77.ads, libgnat/s-pack78.adb: Likewise.
1364 * libgnat/s-pack78.ads, libgnat/s-pack79.adb: Likewise.
1365 * libgnat/s-pack79.ads, libgnat/s-pack80.adb: Likewise.
1366 * libgnat/s-pack80.ads, libgnat/s-pack81.adb: Likewise.
1367 * libgnat/s-pack81.ads, libgnat/s-pack82.adb: Likewise.
1368 * libgnat/s-pack82.ads, libgnat/s-pack83.adb: Likewise.
1369 * libgnat/s-pack83.ads, libgnat/s-pack84.adb: Likewise.
1370 * libgnat/s-pack84.ads, libgnat/s-pack85.adb: Likewise.
1371 * libgnat/s-pack85.ads, libgnat/s-pack86.adb: Likewise.
1372 * libgnat/s-pack86.ads, libgnat/s-pack87.adb: Likewise.
1373 * libgnat/s-pack87.ads, libgnat/s-pack88.adb: Likewise.
1374 * libgnat/s-pack88.ads, libgnat/s-pack89.adb: Likewise.
1375 * libgnat/s-pack89.ads, libgnat/s-pack90.adb: Likewise.
1376 * libgnat/s-pack90.ads, libgnat/s-pack91.adb: Likewise.
1377 * libgnat/s-pack91.ads, libgnat/s-pack92.adb: Likewise.
1378 * libgnat/s-pack92.ads, libgnat/s-pack93.adb: Likewise.
1379 * libgnat/s-pack93.ads, libgnat/s-pack94.adb: Likewise.
1380 * libgnat/s-pack94.ads, libgnat/s-pack95.adb: Likewise.
1381 * libgnat/s-pack95.ads, libgnat/s-pack96.adb: Likewise.
1382 * libgnat/s-pack96.ads, libgnat/s-pack97.adb: Likewise.
1383 * libgnat/s-pack97.ads, libgnat/s-pack98.adb: Likewise.
1384 * libgnat/s-pack98.ads, libgnat/s-pack99.adb: Likewise.
1385 * libgnat/s-pack99.ads, libgnat/s-parame.adb: Likewise.
1386 * libgnat/s-parame.ads, libgnat/s-parame__hpux.ads: Likewise.
1387 * libgnat/s-parame__posix2008.ads, libgnat/s-parame__rtems.adb: Likewise.
1388 * libgnat/s-parame__vxworks.adb, libgnat/s-parame__vxworks.ads: Likewise.
1389 * libgnat/s-parint.adb, libgnat/s-parint.ads: Likewise.
1390 * libgnat/s-pehage.adb, libgnat/s-pehage.ads: Likewise.
1391 * libgnat/s-pooglo.adb, libgnat/s-pooglo.ads: Likewise.
1392 * libgnat/s-pooloc.adb, libgnat/s-pooloc.ads: Likewise.
1393 * libgnat/s-poosiz.adb, libgnat/s-poosiz.ads: Likewise.
1394 * libgnat/s-powflt.ads, libgnat/s-powlfl.ads: Likewise.
1395 * libgnat/s-powllf.ads, libgnat/s-purexc.ads: Likewise.
1396 * libgnat/s-putima.adb, libgnat/s-putima.ads: Likewise.
1397 * libgnat/s-rannum.adb, libgnat/s-rannum.ads: Likewise.
1398 * libgnat/s-ransee.adb, libgnat/s-ransee.ads: Likewise.
1399 * libgnat/s-regexp.adb, libgnat/s-regexp.ads: Likewise.
1400 * libgnat/s-regpat.adb, libgnat/s-regpat.ads: Likewise.
1401 * libgnat/s-resfil.adb, libgnat/s-resfil.ads: Likewise.
1402 * libgnat/s-restri.adb, libgnat/s-restri.ads: Likewise.
1403 * libgnat/s-retsta.ads, libgnat/s-rident.ads, libgnat/s-rpc.adb: Likewise.
1404 * libgnat/s-rpc.ads, libgnat/s-scaval.adb, libgnat/s-scaval.ads: Likewise.
1405 * libgnat/s-scaval__128.adb, libgnat/s-scaval__128.ads: Likewise.
1406 * libgnat/s-secsta.adb, libgnat/s-secsta.ads: Likewise.
1407 * libgnat/s-sequio.adb, libgnat/s-sequio.ads: Likewise.
1408 * libgnat/s-shabig.ads, libgnat/s-shasto.adb: Likewise.
1409 * libgnat/s-shasto.ads, libgnat/s-soflin.adb: Likewise.
1410 * libgnat/s-soflin.ads, libgnat/s-soliin.adb: Likewise.
1411 * libgnat/s-soliin.ads, libgnat/s-spark.ads, libgnat/s-spcuop.adb: Likewise.
1412 * libgnat/s-spcuop.ads, libgnat/s-spsufi.adb: Likewise.
1413 * libgnat/s-spsufi.ads, libgnat/s-stache.adb: Likewise.
1414 * libgnat/s-stache.ads, libgnat/s-stalib.adb: Likewise.
1415 * libgnat/s-stalib.ads, libgnat/s-statxd.adb: Likewise.
1416 * libgnat/s-statxd.ads, libgnat/s-stausa.adb: Likewise.
1417 * libgnat/s-stausa.ads, libgnat/s-stchop.adb: Likewise.
1418 * libgnat/s-stchop.ads, libgnat/s-stchop__limit.ads: Likewise.
1419 * libgnat/s-stchop__vxworks.adb, libgnat/s-stoele.adb: Likewise.
1420 * libgnat/s-stoele.ads, libgnat/s-stopoo.adb: Likewise.
1421 * libgnat/s-stopoo.ads, libgnat/s-stposu.adb: Likewise.
1422 * libgnat/s-stposu.ads, libgnat/s-stratt.adb: Likewise.
1423 * libgnat/s-stratt.ads, libgnat/s-strcom.adb: Likewise.
1424 * libgnat/s-strcom.ads, libgnat/s-strhas.adb: Likewise.
1425 * libgnat/s-strhas.ads, libgnat/s-string.adb: Likewise.
1426 * libgnat/s-string.ads, libgnat/s-ststop.adb: Likewise.
1427 * libgnat/s-ststop.ads, libgnat/s-tasloc.adb: Likewise.
1428 * libgnat/s-tasloc.ads, libgnat/s-traceb.adb: Likewise.
1429 * libgnat/s-traceb.ads, libgnat/s-traceb__hpux.adb: Likewise.
1430 * libgnat/s-traceb__mastop.adb, libgnat/s-traent.adb: Likewise.
1431 * libgnat/s-traent.ads, libgnat/s-trasym.adb: Likewise.
1432 * libgnat/s-trasym.ads, libgnat/s-trasym__dwarf.adb: Likewise.
1433 * libgnat/s-tsmona.adb, libgnat/s-tsmona__linux.adb: Likewise.
1434 * libgnat/s-tsmona__mingw.adb, libgnat/s-unstyp.ads: Likewise.
1435 * libgnat/s-utf_32.adb, libgnat/s-utf_32.ads: Likewise.
1436 * libgnat/s-vade128.ads, libgnat/s-vade32.ads: Likewise.
1437 * libgnat/s-vade64.ads, libgnat/s-vaen16.ads: Likewise.
1438 * libgnat/s-vaen32.ads, libgnat/s-vaenu8.ads: Likewise.
1439 * libgnat/s-vafi128.ads, libgnat/s-vafi32.ads: Likewise.
1440 * libgnat/s-vafi64.ads, libgnat/s-vaispe.adb: Likewise.
1441 * libgnat/s-vaispe.ads, libgnat/s-valboo.adb: Likewise.
1442 * libgnat/s-valboo.ads, libgnat/s-valcha.adb: Likewise.
1443 * libgnat/s-valcha.ads, libgnat/s-valflt.ads: Likewise.
1444 * libgnat/s-valint.adb, libgnat/s-valint.ads: Likewise.
1445 * libgnat/s-vallfl.ads, libgnat/s-valllf.ads: Likewise.
1446 * libgnat/s-vallli.adb, libgnat/s-vallli.ads: Likewise.
1447 * libgnat/s-valllli.ads, libgnat/s-vallllu.ads: Likewise.
1448 * libgnat/s-valllu.adb, libgnat/s-valllu.ads: Likewise.
1449 * libgnat/s-valrea.adb, libgnat/s-valrea.ads: Likewise.
1450 * libgnat/s-valued.adb, libgnat/s-valued.ads: Likewise.
1451 * libgnat/s-valuef.adb, libgnat/s-valuef.ads: Likewise.
1452 * libgnat/s-valuei.adb, libgnat/s-valuei.ads: Likewise.
1453 * libgnat/s-valuen.adb, libgnat/s-valuen.ads: Likewise.
1454 * libgnat/s-valuer.adb, libgnat/s-valuer.ads: Likewise.
1455 * libgnat/s-valueu.adb, libgnat/s-valueu.ads: Likewise.
1456 * libgnat/s-valuns.adb, libgnat/s-valuns.ads: Likewise.
1457 * libgnat/s-valuti.adb, libgnat/s-valuti.ads: Likewise.
1458 * libgnat/s-valwch.adb, libgnat/s-valwch.ads: Likewise.
1459 * libgnat/s-vauspe.adb, libgnat/s-vauspe.ads: Likewise.
1460 * libgnat/s-veboop.adb, libgnat/s-veboop.ads: Likewise.
1461 * libgnat/s-vector.ads, libgnat/s-vercon.adb: Likewise.
1462 * libgnat/s-vercon.ads, libgnat/s-wchcnv.adb: Likewise.
1463 * libgnat/s-wchcnv.ads, libgnat/s-wchcon.adb: Likewise.
1464 * libgnat/s-wchcon.ads, libgnat/s-wchjis.adb: Likewise.
1465 * libgnat/s-wchjis.ads, libgnat/s-wchstw.adb: Likewise.
1466 * libgnat/s-wchstw.ads, libgnat/s-wchwts.adb: Likewise.
1467 * libgnat/s-wchwts.ads, libgnat/s-widboo.adb: Likewise.
1468 * libgnat/s-widboo.ads, libgnat/s-widcha.adb: Likewise.
1469 * libgnat/s-widcha.ads, libgnat/s-widenu.adb: Likewise.
1470 * libgnat/s-widenu.ads, libgnat/s-widint.ads: Likewise.
1471 * libgnat/s-widlli.adb, libgnat/s-widlli.ads: Likewise.
1472 * libgnat/s-widllli.ads, libgnat/s-widlllu.ads: Likewise.
1473 * libgnat/s-widllu.adb, libgnat/s-widllu.ads: Likewise.
1474 * libgnat/s-widthi.adb, libgnat/s-widthi.ads: Likewise.
1475 * libgnat/s-widthu.adb, libgnat/s-widthu.ads: Likewise.
1476 * libgnat/s-widuns.ads, libgnat/s-widwch.adb: Likewise.
1477 * libgnat/s-widwch.ads, libgnat/s-win32.ads, libgnat/s-winext.ads: Likewise.
1478 * libgnat/s-wwdcha.adb, libgnat/s-wwdcha.ads: Likewise.
1479 * libgnat/s-wwdenu.adb, libgnat/s-wwdenu.ads: Likewise.
1480 * libgnat/s-wwdwch.adb, libgnat/s-wwdwch.ads: Likewise.
1481 * libgnat/system-aix.ads, libgnat/system-darwin-arm.ads: Likewise.
1482 * libgnat/system-darwin-ppc.ads, libgnat/system-darwin-x86.ads: Likewise.
1483 * libgnat/system-djgpp.ads, libgnat/system-dragonfly-x86_64.ads: Likewise.
1484 * libgnat/system-freebsd.ads, libgnat/system-hpux-ia64.ads: Likewise.
1485 * libgnat/system-hpux.ads, libgnat/system-linux-alpha.ads: Likewise.
1486 * libgnat/system-linux-arm.ads, libgnat/system-linux-hppa.ads: Likewise.
1487 * libgnat/system-linux-ia64.ads, libgnat/system-linux-m68k.ads: Likewise.
1488 * libgnat/system-linux-mips.ads, libgnat/system-linux-ppc.ads: Likewise.
1489 * libgnat/system-linux-riscv.ads, libgnat/system-linux-s390.ads: Likewise.
1490 * libgnat/system-linux-sh4.ads, libgnat/system-linux-sparc.ads: Likewise.
1491 * libgnat/system-linux-x86.ads, libgnat/system-lynxos178-ppc.ads: Likewise.
1492 * libgnat/system-lynxos178-x86.ads, libgnat/system-mingw.ads: Likewise.
1493 * libgnat/system-qnx-arm.ads, libgnat/system-rtems.ads: Likewise.
1494 * libgnat/system-solaris-sparc.ads: Likewise.
1495 * libgnat/system-solaris-x86.ads: Likewise.
1496 * libgnat/system-vxworks-ppc-kernel.ads: Likewise.
1497 * libgnat/system-vxworks-ppc-rtp-smp.ads: Likewise.
1498 * libgnat/system-vxworks-ppc-rtp.ads: Likewise.
1499 * libgnat/system-vxworks7-aarch64-rtp-smp.ads: Likewise.
1500 * libgnat/system-vxworks7-aarch64.ads: Likewise.
1501 * libgnat/system-vxworks7-arm-rtp-smp.ads: Likewise.
1502 * libgnat/system-vxworks7-arm.ads: Likewise.
1503 * libgnat/system-vxworks7-ppc-kernel.ads: Likewise.
1504 * libgnat/system-vxworks7-ppc-rtp-smp.ads: Likewise.
1505 * libgnat/system-vxworks7-ppc64-kernel.ads: Likewise.
1506 * libgnat/system-vxworks7-ppc64-rtp-smp.ads: Likewise.
1507 * libgnat/system-vxworks7-x86-kernel.ads: Likewise.
1508 * libgnat/system-vxworks7-x86-rtp-smp.ads: Likewise.
1509 * libgnat/system-vxworks7-x86_64-kernel.ads: Likewise.
1510 * libgnat/system-vxworks7-x86_64-rtp-smp.ads, link.c, live.adb: Likewise.
1511 * live.ads, locales.c, make.adb, make.ads, make_util.adb: Likewise.
1512 * make_util.ads, makeusg.adb, makeusg.ads, mdll-fil.adb: Likewise.
1513 * mdll-fil.ads, mdll-utl.adb, mdll-utl.ads, mdll.adb, mdll.ads: Likewise.
1514 * mingw32.h, mkdir.c, namet-sp.adb, namet-sp.ads, namet.adb: Likewise.
1515 * namet.ads, namet.h, nlists.adb, nlists.ads, nlists.h, opt.adb: Likewise.
1516 * opt.ads, osint-b.adb, osint-b.ads, osint-c.adb, osint-c.ads: Likewise.
1517 * osint-l.adb, osint-l.ads, osint-m.adb, osint-m.ads, osint.adb: Likewise.
1518 * osint.ads, output.adb, output.ads, par-ch10.adb, par-ch11.adb: Likewise.
1519 * par-ch12.adb, par-ch13.adb, par-ch2.adb, par-ch3.adb: Likewise.
1520 * par-ch4.adb, par-ch5.adb, par-ch6.adb, par-ch7.adb, par-ch8.adb: Likewise.
1521 * par-ch9.adb, par-endh.adb, par-labl.adb, par-load.adb: Likewise.
1522 * par-prag.adb, par-sync.adb, par-tchk.adb, par-util.adb, par.adb: Likewise.
1523 * par.ads, par_sco.adb, par_sco.ads: Likewise.
1524 * pprint.adb, pprint.ads, prep.adb, prep.ads: Likewise.
1525 * prepcomp.adb, prepcomp.ads, put_scos.adb, put_scos.ads: Likewise.
1526 * raise-gcc.c, raise.c, raise.h, repinfo-input.adb: Likewise.
1527 * repinfo-input.ads, repinfo.adb, repinfo.ads, repinfo.h: Likewise.
1528 * restrict.adb, restrict.ads, rident.ads, rtfinal.c, rtinit.c: Likewise.
1529 * rtsfind.adb, rtsfind.ads, runtime.h, s-oscons-tmplt.c: Likewise.
1530 * scans.adb, scans.ads, scil_ll.adb, scil_ll.ads, scn.adb: Likewise.
1531 * scn.ads, scng.adb, scng.ads, scos.adb, scos.ads: Likewise.
1532 * scos.h, sdefault.ads, seh_init.c, sem.adb, sem.ads: Likewise.
1533 * sem_aggr.adb, sem_aggr.ads, sem_attr.adb, sem_attr.ads: Likewise.
1534 * sem_aux.adb, sem_aux.ads, sem_case.adb, sem_case.ads: Likewise.
1535 * sem_cat.adb, sem_cat.ads, sem_ch10.adb, sem_ch10.ads: Likewise.
1536 * sem_ch11.adb, sem_ch11.ads, sem_ch12.adb, sem_ch12.ads: Likewise.
1537 * sem_ch13.adb, sem_ch13.ads, sem_ch2.adb, sem_ch2.ads: Likewise.
1538 * sem_ch3.adb, sem_ch3.ads, sem_ch4.adb, sem_ch4.ads, sem_ch5.adb: Likewise.
1539 * sem_ch5.ads, sem_ch6.adb, sem_ch6.ads, sem_ch7.adb, sem_ch7.ads: Likewise.
1540 * sem_ch8.adb, sem_ch8.ads, sem_ch9.adb, sem_ch9.ads, sem_dim.adb: Likewise.
1541 * sem_dim.ads, sem_disp.adb, sem_disp.ads, sem_dist.adb: Likewise.
1542 * sem_dist.ads, sem_elab.adb, sem_elab.ads, sem_elim.adb: Likewise.
1543 * sem_elim.ads, sem_eval.adb, sem_eval.ads, sem_intr.adb: Likewise.
1544 * sem_intr.ads, sem_mech.adb, sem_mech.ads, sem_prag.adb: Likewise.
1545 * sem_prag.ads, sem_res.adb, sem_res.ads, sem_scil.adb: Likewise.
1546 * sem_scil.ads, sem_smem.adb, sem_smem.ads, sem_type.adb: Likewise.
1547 * sem_type.ads, sem_util.adb, sem_util.ads, sem_warn.adb: Likewise.
1548 * sem_warn.ads, set_targ.adb, set_targ.ads, sfn_scan.adb: Likewise.
1549 * sfn_scan.ads, sigtramp-arm-qnx.c, sigtramp-armdroid.c: Likewise.
1550 * sigtramp-ios.c, sigtramp-qnx.c: Likewise.
1551 * sigtramp-vxworks-target.h, sigtramp-vxworks.c, sigtramp.h: Likewise.
1552 * sinfo-cn.adb, sinfo-cn.ads, sinfo-utils.adb, sinfo-utils.ads: Likewise.
1553 * sinfo.adb, sinfo.ads, sinput-c.adb, sinput-c.ads, sinput-d.adb: Likewise.
1554 * sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.adb: Likewise.
1555 * sinput.ads, socket.c, spark_xrefs.adb, spark_xrefs.ads: Likewise.
1556 * sprint.adb, sprint.ads, stand.ads: Likewise.
1557 * stringt.adb, stringt.ads, stringt.h, strub.adb, strub.ads: Likewise.
1558 * style.adb, style.ads, styleg.adb, styleg.ads, stylesw.adb: Likewise.
1559 * stylesw.ads, switch-b.adb, switch-b.ads, switch-c.adb: Likewise.
1560 * switch-c.ads, switch-m.adb, switch-m.ads, switch.adb: Likewise.
1561 * switch.ads, sysdep.c, table.adb: Likewise.
1562 * table.ads, targext.c, targparm.adb, targparm.ads, tbuild.adb: Likewise.
1563 * tbuild.ads, tempdir.adb, tempdir.ads, terminals.c, tracebak.c: Likewise.
1564 * treepr.adb, treepr.ads, ttypes.ads, types.adb, types.ads: Likewise.
1565 * types.h, uintp.adb, uintp.ads, uintp.h, uname.adb, uname.ads: Likewise.
1566 * urealp.adb, urealp.ads, urealp.h, usage.adb, usage.ads: Likewise.
1567 * validsw.adb, validsw.ads, vast.adb, vast.ads, warnsw.adb: Likewise.
1568 * warnsw.ads, widechar.adb, widechar.ads, xoscons.adb: Likewise.
1569 * xsnamest.adb, xutil.adb, xutil.ads, gnatvsn.adb: Likewise.
1570 * gnatvsn.ads (Current_Year): Likewise and bump to 2023.
1571
1572 2023-01-09 Eric Botcazou <ebotcazou@adacore.com>
1573
1574 * exp_ch7.adb (Make_Adjust_Call): Remove unreachable statement.
1575 (Make_Final_Call): Likewise.
1576
1577 2023-01-09 Eric Botcazou <ebotcazou@adacore.com>
1578
1579 * exp_util.ads (Is_Tag_To_Class_Wide_Conversion): Delete.
1580 (Is_Displacement_Of_Object_Or_Function_Result): Likewise.
1581 * exp_util.adb (Is_Tag_To_Class_Wide_Conversion): Rename to...
1582 (Is_Temporary_For_Interface_Object): ...this.
1583 (Is_Finalizable_Transient): Adjust call to above renaming.
1584 (Is_Displacement_Of_Object_Or_Function_Result): Delete.
1585 (Requires_Cleanup_Actions): Remove special handling of the
1586 temporaries created for interface objects.
1587 * exp_ch7.adb (Build_Finalizer): Likewise.
1588
1589 2023-01-07 LIU Hao <lh_mouse@126.com>
1590
1591 PR middle-end/108300
1592 * adaint.c: Define `WIN32_LEAN_AND_MEAN` before `#include
1593 <windows.h>`.
1594 * cio.c: Likewise.
1595 * ctrl_c.c: Likewise.
1596 * expect.c: Likewise.
1597 * gsocket.h: Likewise.
1598 * mingw32.h: Likewise.
1599 * mkdir.c: Likewise.
1600 * rtfinal.c: Likewise.
1601 * rtinit.c: Likewise.
1602 * seh_init.c: Likewise.
1603 * sysdep.c: Likewise.
1604 * terminals.c: Likewise.
1605 * tracebak.c: Likewise.
1606
1607 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1608
1609 * exp_util.adb (Make_CW_Equivalent_Type) <Has_Tag_Of_Type>: Tweak.
1610
1611 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1612
1613 * exp_ch3.adb (Expand_N_Object_Declaration): Rewrite the end of the
1614 handling of objects with (class-wide) interface type by using the
1615 same idiom as the other cases generating a renaming.
1616 * exp_util.adb (Is_Displacement_Of_Object_Or_Function_Result): Tweak
1617 pattern matching code and exclude special return objects.
1618 (Requires_Cleanup_Actions): Adjust comment.
1619 * exp_ch7.adb (Build_Finalizer): Likewise.
1620
1621 2023-01-05 Piotr Trojanek <trojanek@adacore.com>
1622
1623 * freeze.adb (Build_Renamed_Body): Rewrite subprogram renaming to
1624 subprogram declaration early and then set the Body_To_Inling flag.
1625
1626 2023-01-05 Piotr Trojanek <trojanek@adacore.com>
1627
1628 * freeze.adb (Build_Renamed_Body): Revert a special case for
1629 GNATprove; remove unnecessary initialization of a local variable.
1630
1631 2023-01-05 Marc Poulhiès <poulhies@adacore.com>
1632
1633 * sem_ch12.adb (Instantiate_Package_Body): Better filtering when
1634 installing parent on the scope stack.
1635
1636 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1637
1638 * repinfo.ads (The JSON output format): Document change.
1639 * urealp.adb (UR_Write_To_JSON): Output a fraction instead of a
1640 decimal approximation.
1641
1642 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1643
1644 * exp_ch3.adb (Expand_N_Object_Declaration): New local variable
1645 Func_Id holding the function for a special return object.
1646 Use a direct renaming in the class-wide case when the initializing
1647 expression is a captured function call, except for a special return
1648 object when the two functions do not return on the same stack.
1649 Apply the accessibility check for class-wide special return objects.
1650 * exp_util.adb (Make_CW_Equivalent_Type) <Has_Tag_Of_Type>: New.
1651 Do not force a dispatching call to the primitive operation _Size if
1652 the expression is known to statically have the tag of its type.
1653
1654 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1655
1656 * exp_ch3.adb (Expand_N_Object_Declaration): Fix pasto in comment.
1657
1658 2023-01-05 Ronan Desplanques <desplanques@adacore.com>
1659
1660 * sem_aggr.adb (Resolve_Array_Aggregate): Tweak conditions for
1661 warning about use of parentheses for array aggregates.
1662
1663 2023-01-05 Javier Miranda <miranda@adacore.com>
1664
1665 * scans.ads (Tok_Left_Curly_Bracket, Tok_Right_Curly_Bracket)
1666 (Tok_Left_Interpolated_String): Placed in no category since they
1667 don't fit well in the existing categories. Fix typo in comment.
1668 (Inside_Interpolated_String_Literal): New scan state variable.
1669 * scng.adb (Slit): Scan interpolated string literals,
1670 continuations of interpolated string literals and escaped
1671 characters found in interpolated string literals.
1672 (Scan): Handle consecutive interpolated expressions. Handle ending
1673 delimiter placed immediately after an interpolated expression.
1674 Handle string literal placed after interpolated expression. Handle
1675 left and right curly brackets; when extensions are not allowed
1676 they are treated as left and right paren; when extensions are
1677 allowed they are handled as delimiters of interpolated string
1678 literals.
1679 * sinfo.ads (N_Interpolated_String_Literal): New node.
1680 * gen_il-gen-gen_nodes.adb (N_Interpolated_String_Literal): Define
1681 N_String_Literal node.
1682 * gen_il-types.ads (Opt_Type_Enum): Define N_String_Literal as
1683 concrete node type.
1684 * par-ch2.adb (P_Interpolated_String_Literal): New subprogram.
1685 * par-ch4.adb (P_Simple_Expression): Handle '}' as expression
1686 terminator when scanning an interpolated expression; disable error
1687 recovery machinery for binary operator when we are processing an
1688 interpolated string literal and reach the expression terminator
1689 '}'.
1690 (P_Primary): Call P_Interpolated_String_Literal when the opening
1691 interpolated-string-literal delimiter is found (that is, the left
1692 curly bracket '{').
1693 * par-tchk.adb (T_Right_Curly_Bracket): New subprogram.
1694 * par.adb (P_Interpolated_String_Literal): New declaration.
1695 (T_Right_Curly_Bracket): New declaration.
1696 * sem.adb (Analyze): Call Analyze_Interpolated_String_Literal.
1697 * sem_ch2.ads (Analyze_Interpolated_String_Literal): New
1698 subprogram
1699 * sem_ch2.adb (Analyze_Interpolated_String_Literal): Likewise.
1700 * sem_util.adb (Is_User_Defined_Literal): Complete mapping of
1701 literal aspects adding that interpolated string literals have no
1702 correspondence with any aspect.
1703 * sem_res.adb (Resolve_Interpolated_String_Literal): New
1704 subprogram.
1705 (Has_Applicable_User_Defined_Literal): Complete mapping of literal
1706 aspects adding that interpolated string literals have no
1707 correspondency with any aspect.
1708 * expander.adb (Expand): Add call to
1709 Expand_N_Interpolated_String_Literal.
1710 * exp_util.adb (Insert_Actions): Handle
1711 N_Interpolated_String_Literal nodes; that is, continue climbing.
1712 * exp_ch2.ads (Expand_N_Interpolated_String_Literal): New
1713 subprogram.
1714 * exp_ch2.adb (Expand_N_Interpolated_String_Literal): Likewise.
1715 * exp_put_image.adb (Build_Elementary_Put_Image_Call): Add missing
1716 conversion to force dispatching call. Required to handle calls to
1717 descendants.
1718 (Build_String_Put_Image_Call): Do not output string delimiters
1719 when the put_image call is part of an interpolated string literal.
1720 * rtsfind.ads (RTU_Id): Add RE_Set_Trim_Leading_Spaces.
1721 * sprint.adb (Sprint_Node): Output interpolated string contents.
1722 * libgnat/a-stbubo.adb (Get_UTF_8): Add default value for
1723 Trim_Leading_White_Spaces component in aggregate.
1724 (Buffer_Type_Implementation): Update Trim_Leading_White_Spaces.
1725 * libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
1726 (Buffer_Type_Implementation): Likewise.
1727 * libgnat/a-sttebu.ads (Set_Trim_Leading_Spaces): New subprogram.
1728 (Trim_Leading_Spaces): New subprogram.
1729 (Root_Buffer_Type): Adding Trim_Leading_While_Spaces component.
1730 * libgnat/a-sttebu.adb (procedure Set_Trim_Leading_Spaces): New
1731 subprogram.
1732 (Trim_Leading_Space): New subprogram.
1733 (Put_UTF_8): Handle Trim_Leading_White_Spaces.
1734 (New_Line): Likewise.
1735 * libgnat/s-putima.ads (Put_Image_String): Adding formal
1736 (with_delimiters).
1737 (Put_Image_Wide_String): Likewise.
1738 (Put_Image_Wide_Wide_String): Likewise.
1739 * libgnat/s-putima.adb (Put_Image_String): Adding support for new
1740 formal.
1741 (Put_Image_Wide_String): Likewise.
1742 (Put_Image_Wide_Wide_String): Likewise.
1743
1744 2023-01-05 Joao Azevedo <azevedo@adacore.com>
1745
1746 * doc/gnat_ugn/gnat_utility_programs.rst: add gnatpp --layout
1747 switch and update legacy switches.
1748
1749 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1750
1751 * freeze.adb (Freeze_Entity): For the purpose of deciding whether to
1752 freeze an entity coming from an outer scope in an inner scope, treat
1753 the internal subprogram generated because of post-conditions as also
1754 coming from source if the original subprogram itself does.
1755
1756 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1757
1758 * contracts.adb (Build_Subprogram_Contract_Wrapper): Generate an
1759 extended return statement in all cases.
1760 (Expand_Subprogram_Contract): Adjust comment.
1761
1762 2023-01-05 Ronan Desplanques <desplanques@adacore.com>
1763
1764 * libgnat/g-forstr.adb (F_Kind): Rename enumeration literal.
1765 (P_Flt_Format): Adjust handling of "%g".
1766 (Determine_Notation_And_Aft): New procedure.
1767 (Decimal_Exponent): New function.
1768 (Increment_Integral_Part): New procedure.
1769 (Remove_Extraneous_Decimal_Digit): New procedure.
1770 (Trim_Fractional_Part): New procedure.
1771 * libgnat/g-forstr.ads: Change description of "%g" specifier.
1772
1773 2023-01-05 Marc Poulhiès <poulhies@adacore.com>
1774
1775 * sem_ch12.adb (Instantiate_Package_Body): Correctly find the
1776 parent instance to place on the scope stack.
1777
1778 2023-01-05 Justin Squirek <squirek@adacore.com>
1779
1780 * sem_ch8.adb (Set_Entity_Or_Discriminal): Verify we are actually
1781 resetting the entity field of a non-prefixed discriminant
1782 reference.
1783
1784 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1785
1786 * exp_ch3.adb (Expand_N_Object_Declaration): New local variable used
1787 throughout instead of testing Is_Special_Return_Object every time.
1788 Do not rename an OK_To_Rename object for a special return object.
1789 * exp_ch4.adb (Expand_Concatenate): Revert to constrained allocation
1790 if the result is allocated on the secondary stack.
1791
1792 2023-01-05 Steve Baird <baird@adacore.com>
1793
1794 * sem_prag.adb (Analyze_Pragma): Fix Is_Configuration_Pragma
1795 function to handle case where the pragma's parent is an
1796 N_Aspect_Specification node. In analyzing a Discard_Names pragma,
1797 do not assume that a nonzero number of arguments implies that the
1798 pragma is not a configuration pragma; that assumption only holds
1799 for legal programs.
1800
1801 2023-01-05 Bob Duff <duff@adacore.com>
1802
1803 * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
1804 Add RM references.
1805 * gnat_ugn.texi: Regenerate.
1806
1807 2023-01-05 Eric Botcazou <ebotcazou@adacore.com>
1808
1809 * exp_ch3.adb (Expand_N_Object_Declaration): For a special return
1810 object of an interface type that is not inherently limited, make
1811 a call to the Adjust primitive after doing the copy. For a special
1812 return object of a non-class-wide type initialized by a function
1813 call, use a direct renaming only if the object doing the capture
1814 is flagged by Is_Related_To_Func_Return. For a special return
1815 object using a direct renaming, reassign the tag, if need be.
1816 * exp_ch6.adb (Expand_Simple_Function_Return): Fix comment.
1817 * exp_util.adb (Is_Related_To_Func_Return): Accept both regular and
1818 renaming object declarations for return objects.
1819
1820 2023-01-05 Bob Duff <duff@adacore.com>
1821
1822 * sem_ch5.adb (Analyze_Assignment): Fix the bug by checking
1823 Original_Node. The renaming might be elsewhere, but the (original)
1824 reference is right here.
1825 * errout.adb: Remove pragma Unreferenced which was added because
1826 of the above bug.
1827 * einfo.ads: Misc cleanup.
1828 * lib.adb: Likewise.
1829 * lib.ads: Likewise.
1830
1831 2023-01-03 Ghjuvan Lacambre <lacambre@adacore.com>
1832
1833 * errout.adb (Write_JSON_Span): Escape subprogram name.
1834
1835 2023-01-03 Ghjuvan Lacambre <lacambre@adacore.com>
1836
1837 * output.adb (Write_Buffer): Use Flush_Buffer instead of Write_Eol.
1838
1839 2023-01-03 Ronan Desplanques <desplanques@adacore.com>
1840
1841 * libgnat/g-forstr.adb (P_Flt_Format): Add "*" syntax handling.
1842
1843 2023-01-03 Ronan Desplanques <desplanques@adacore.com>
1844
1845 * libgnat/g-forstr.adb (P_Int_Format): Fix parsing bug.
1846
1847 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1848
1849 * exp_ch6.adb (Expand_Simple_Function_Return): Make sure that a
1850 captured function call also verifies Is_Related_To_Func_Return.
1851 Do not generate an actual subtype for special return objects.
1852 * exp_util.ads (Is_Related_To_Func_Return): Add commentary.
1853
1854 2023-01-03 Ronan Desplanques <desplanques@adacore.com>
1855
1856 * libgnat/g-forstr.adb
1857 (Advance_And_Accumulate_Until_Next_Specifier): New procedure.
1858 ("-"): Replace inline code with call to
1859 Advance_And_Accumulate_Until_Next_Specifier.
1860 (Next_Format): likewise.
1861
1862 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1863
1864 * checks.adb (Apply_Discriminant_Check.Denotes_Explicit_Dereference):
1865 Return false for artificial dereferences generated by the expander.
1866
1867 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1868
1869 * exp_ch6.adb (Is_Build_In_Place_Function): Adjust comment.
1870 * sem_util.adb (Compute_Returns_By_Ref): Do not set Returns_By_Ref
1871 on functions with foreign convention.
1872
1873 2023-01-03 Marc Poulhiès <poulhies@adacore.com>
1874
1875 * exp_aggr.adb (Build_Assignment_With_Temporary): New.
1876 (Expand_Array_Aggregate): Tune backend optimization
1877 and insert a temporary in the case of an access with
1878 Designated_Storage_Model aspect.
1879 (Convert_Array_Aggr_In_Allocator): Likewise.
1880
1881 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1882
1883 * sem_res.adb (Resolve_Membership_Op): Adjust again latest change.
1884
1885 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1886
1887 * sem_util.ads (Set_Debug_Info_Defining_Id): Adjust comment.
1888 * sem_util.adb (Is_Aliased_View) <N_Explicit_Dereference>: Return
1889 false for more artificial dereferences generated by the expander.
1890 (Set_Debug_Info_Defining_Id): Set Debug_Info_Needed unconditionally
1891 in -gnatD mode.
1892 * exp_ch6.adb (Replace_Renaming_Declaration_Id): Also preserve the
1893 Is_Aliased flag.
1894
1895 2023-01-03 Joel Brobecker <brobecker@adacore.com>
1896
1897 * doc/gnat_ugn/platform_specific_information.rst
1898 (_Platform_Specific_Information): Minor rewording of intro text.
1899 * gnat_ugn.texi: Regenerate.
1900
1901 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1902
1903 * exp_util.ads (Is_Captured_Function_Call): Declare.
1904 * exp_util.adb (Is_Captured_Function_Call): New predicate.
1905 * exp_ch3.adb (Expand_N_Object_Declaration): Use it to detect a
1906 rewritten function call as the initializing expression.
1907 * exp_ch6.adb (Expand_Simple_Function_Return): Use it to detect a
1908 rewritten function call as the returned expression.
1909
1910 2023-01-03 Bob Duff <duff@adacore.com>
1911
1912 * exp_util.adb (Integer_Type_For): Assertion and comment.
1913 (Small_Integer_Type_For): Remove some code and call
1914 Integer_Type_For instead.
1915 * sem_util.ads (Rep_To_Pos_Flag): Improve comments. "Standard_..."
1916 seems overly pedantic here.
1917 * exp_attr.adb (Succ, Pred): Clean up: make the code as similar as
1918 possible.
1919 * exp_ch4.adb: Minor: named notation.
1920
1921 2023-01-03 Javier Miranda <miranda@adacore.com>
1922
1923 * ghost.adb (Is_OK_Declaration): A reference to a Ghost entity may
1924 appear within the class-wide precondition of a helper subprogram.
1925 This context is treated as suitable because it was already
1926 verified when we were analyzing the original class-wide
1927 precondition.
1928
1929 2023-01-03 Eric Botcazou <ebotcazou@adacore.com>
1930
1931 * exp_tss.adb (Base_Init_Proc): Do not return the Init_Proc of the
1932 ancestor type for a derived array type.
1933 * sem_ch13.adb (Inherit_Aspects_At_Freeze_Point): Factor out the
1934 common processing done on representation items.
1935 For Default_Component_Value and Default_Value, look into the first
1936 subtype to find out the representation items.
1937
1938 2023-01-02 Iain Sandoe <iain@sandoe.co.uk>
1939
1940 PR ada/108202
1941 * gcc-interface/Make-lang.in (GCC_LINKERFLAGS, GCC_LDFLAGS):
1942 Versions of ALL_LINKERFLAGS, LDFLAGS with -Werror and
1943 -static-libgcc filtered out for Darwin8 and 9 (-Werror is filtered
1944 out for other hosts).
1945
1946 2023-01-02 Jakub Jelinek <jakub@redhat.com>
1947
1948 * gnat_ugn.texi: Bump @copying's copyright year.
1949 * gnat_rm.texi: Likewise.
1950
1951 \f
1952 Copyright (C) 2023 Free Software Foundation, Inc.
1953
1954 Copying and distribution of this file, with or without modification,
1955 are permitted in any medium without royalty provided the copyright
1956 notice and this notice are preserved.