strub: use opt_for_fn during ipa
[official-gcc.git] / gcc / ada / ChangeLog
blob0065df90a5f3baba0939a4a188a15bf879a4e6a3
1 2023-12-16  Andrew Carlotti  <andrew.carlotti@arm.com>
3         * gcc-interface/utils.cc (attr_target_exclusions): Make
4         target/target_clones exclusion target-dependent.
5         (attr_target_clones_exclusions): Ditto.
7 2023-12-16  Andrew Carlotti  <andrew.carlotti@arm.com>
9         * gcc-interface/utils.cc (attr_noinline_exclusions): New.
10         (attr_always_inline_exclusions): Ditto.
11         (attr_target_exclusions): Ditto.
12         (attr_target_clones_exclusions): Ditto.
13         (gnat_internal_attribute_table): Add new exclusion lists.
14         (handle_noinline_attribute): Remove custom exclusion handling.
15         (handle_target_attribute): Ditto.
16         (handle_target_clones_attribute): Ditto.
18 2023-12-11  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
20         * terminals.c [__FreeBSD__]: Include <libutil.h>.
21         (TABDLY): Only define if missing.
23 2023-12-06  Alexandre Oliva  <oliva@adacore.com>
25         * gcc-interface/trans.cc: Include ipa-strub.h.
26         (gigi): Make internal decls for targets of compiler-generated
27         calls strub-callable too.
28         (build_raise_check): Likewise.
29         * gcc-interface/utils.cc: Include ipa-strub.h.
30         (handle_strub_attribute): New.
31         (gnat_internal_attribute_table): Add strub.
33 2023-12-05  Richard Sandiford  <richard.sandiford@arm.com>
35         * gcc-interface/utils.cc (gnat_internal_attribute_table): Add extra
36         braces to work around PR 16333 in older compilers.
38 2023-12-05  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
40         * adaint.c: Include <signal.h>.
41         * expect.c: Include <string.h>.
43 2023-12-02  Richard Sandiford  <richard.sandiford@arm.com>
45         * gcc-interface/gigi.h (gnat_internal_attribute_table): Change
46         type to scoped_attribute_specs.
47         * gcc-interface/utils.cc (gnat_internal_attribute_table): Likewise,
48         using...
49         (gnat_internal_attributes): ...this as the underlying array.
50         * gcc-interface/misc.cc (gnat_attribute_table): New global.
51         (LANG_HOOKS_ATTRIBUTE_TABLE): Use it.
53 2023-12-01  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
55         * adaint.c [__APPLE__]: Include <signal.h>, <sys/time.h>.
56         * terminals.c [!_WIN32]: Include <signal.h>.
57         [__APPLE__]: Include <util.h>.
58         Fix typos.
60 2023-11-30  Eric Botcazou  <ebotcazou@adacore.com>
62         * checks.ads (Apply_Predicate_Check): Add Deref boolean parameter.
63         * checks.adb (Apply_Predicate_Check): Revert latest change. Use
64         Loc local variable to hold the source location. Use a common code
65         path for the generic processing and make a dereference if Deref is
66         True.
67         * exp_ch4.adb (Expand_Allocator_Expression): Compute Aggr_In_Place
68         earlier. If it is true, do not call Apply_Predicate_Check on the
69         expression on entry but on the temporary on exit with a
70         dereference.
71         * sem_res.adb (Resolve_Actuals): Add explicit parameter
72         association in call to Apply_Predicate_Check.
74 2023-11-30  Steve Baird  <baird@adacore.com>
76         * exp_put_image.adb (Put_Image_Enabled): Return True in more
77         cases. In particular, when testing to see if a type occurs in a
78         predefined unit, test the type's code unit
79         (obtained by calling Get_Code_Unit). In the case of type within a
80         user-defined instance of a predefined generic, Is_Predefined_Unit
81         will return True for the type and False for the type's code unit.
83 2023-11-30  Yannick Moy  <moy@adacore.com>
85         * contracts.adb (Analyze_Entry_Or_Subprogram_Body_Contract):
86         Remove checking on volatility. Remove handling of SPARK_Mode, not
87         needed anymore.
88         (Analyze_Entry_Or_Subprogram_Contract): Remove checking on
89         volatility.
90         (Check_Type_Or_Object_External_Properties): Same.
91         (Analyze_Object_Contract): Same.
92         * freeze.adb (Freeze_Record_Type): Same. Also remove checking on
93         synchronized types and ghost types.
94         * sem_ch12.adb (Instantiate_Object): Remove checking on
95         volatility.
96         (Instantiate_Type): Same.
97         * sem_ch3.adb (Access_Type_Declaration): Same.
98         (Derived_Type_Declaration): Remove checking related to untagged
99         partial view.
100         (Process_Discriminants): Remove checking on volatility.
101         * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Same.
102         * sem_ch6.adb (Analyze_Procedure_Call): Fix use of SPARK_Mode
103         where GNATprove_Mode was intended.
104         * sem_disp.adb (Inherited_Subprograms): Protect against Empty
105         node.
106         * sem_prag.adb (Analyze_Global_In_Decl_Part): Remove checking on
107         volatility.
108         (Analyze_Pragma): Same.
109         * sem_res.adb (Flag_Effectively_Volatile_Objects): Remove.
110         (Resolve_Actuals): Remove checking on volatility.
111         (Resolve_Entity_Name): Same.
112         * sem_util.adb (Check_Nonvolatile_Function_Profile): Remove.
113         (Check_Volatility_Compatibility): Remove.
114         * sem_util.ads: Same.
116 2023-11-30  Sheri Bernstein  <bernstein@adacore.com>
118         * libgnat/i-cstrin.adb (Free): Rewrite code so there is only one
119         return, to remove Improper_Returns violation.
120         (Position_Of_Nul): Add pragma to exempt Improper_Returns
121         violation.
122         (To_Chars_Ptr): Likewise.
123         (Value): Likewise
125 2023-11-30  Viljar Indus  <indus@adacore.com>
127         * sem_prag.adb (Validate_Compile_Time_Warning_Errors): Avoid
128         checking compile time warnings and errors if backend has not been
129         activated.
131 2023-11-30  Yannick Moy  <moy@adacore.com>
133         * checks.adb, exp_aggr.adb, exp_ch4.ads, exp_ch5.adb,
134         exp_util.adb, exp_util.ads, inline.adb, sem_ch13.adb,
135         sem_ch6.adb, sem_ch8.adb, sem_prag.adb, sem_util.ads: Fix comments
136         and typos.
138 2023-11-30  Javier Miranda  <miranda@adacore.com>
140         * freeze.adb (Declared_In_Expanded_Body): New subprogram.
141         (In_Expanded_Body): Minor code cleanup.
142         (Freeze_Expression): Code cleanup plus factorize in a new function
143         the code that identifies entities declared in the body of expander
144         generated subprograms, since such case must be checked also for
145         other node kinds when climbing the tree to locate the place to
146         insert the freezing node.
148 2023-11-30  Steve Baird  <baird@adacore.com>
150         * sem_ch8.adb (Find_Direct_Name): In the case of a resolving a
151         name that occurs within an instantiation, add code to detect and
152         filter out unwanted candidate resolutions. The filtering is
153         performed via a call to Remove_Interp.
155 2023-11-30  Steve Baird  <baird@adacore.com>
157         * libgnarl/a-rttiev.ads: add a comment
159 2023-11-30  Steve Baird  <baird@adacore.com>
161         * sem_ch12.adb (Validate_Discriminated_Formal_Type): Replace
162         Entity_Id equality test with a call to Subtypes_Match. Distinct
163         subtypes which are statically matching should pass this test.
164         (Check_Discriminated_Formal): Replace Entity_Id equality test with
165         a call to Subtypes_Statically_Match (preceded by a check that the
166         preconditions for the call are satisfied).
168 2023-11-30  Eric Botcazou  <ebotcazou@adacore.com>
170         * exp_ch4.adb (Expand_Allocator_Expression): Add Special_Return
171         boolean constant to hold the value of For_Special_Return_Object
172         for the allocator and use it throughout the procedure.
174 2023-11-30  Eric Botcazou  <ebotcazou@adacore.com>
176         * checks.adb (Apply_Predicate_Check): Also deal specifically with
177         an expression that is a qualified aggregate in an allocator.
179 2023-11-30  Steve Baird  <baird@adacore.com>
181         * sem_ch4.adb (Constant_Indexing_OK): As a temporary stopgap,
182         return False in the case of an unanalyzed prefixed-view call.
184 2023-11-28  Simon Wright  <simon@pushface.org>
186         PR ada/111909
187         * adaint.c
188         (__gnat_get_file_names_case_sensitive): Split out the __APPLE__
189         check and remove the checks for __arm__, __arm64__. For Apple,
190         file names are by default case-insensitive unless TARGET_OS_IOS is
191         set.
193 2023-11-28  Eric Botcazou  <ebotcazou@adacore.com>
195         * gcc-interface/decl.cc (annotate_value): Apply the same processing
196         for parameters as for variables.
198 2023-11-28  Marc Poulhiès  <poulhies@adacore.com>
200         * gcc-interface/utils2.cc (build_simple_component_ref): Add
201         comment on assertion.
203 2023-11-28  Steve Baird  <baird@adacore.com>
205         * exp_attr.adb (Expand_N_Attribute_Reference): In the case of a
206         Reduce attribute reference, fix bugs in initializing Accum_Typ.
207         The previous version was incorrect in the case where E1 refers to
208         the first of multiple possible overload resolution candidates and
209         that candidate does not turn out to be the right one. The previous
210         version also had code to compute Accum_Typ via a different method
211         if the initial computation turned out to yield a universal numeric
212         type. Delete that initial computation and use the second method in
213         all cases.
215 2023-11-28  Gary Dismukes  <dismukes@adacore.com>
217         * sem_aggr.adb (Add_Discriminant_Values): Remove this procedure.
218         (Propagate_Discriminants): Remove this procedure.
219         (Resolve_Record_Aggregate): Remove code (the Capture_Discriminants
220         block statement) related to propagating discriminants and
221         generating initializations for subcomponents of a
222         discriminant-dependent box-defaulted subcomponent of a nonprivate
223         record type with discriminants, and handle all top-level
224         components that have a non-null base init proc directly, by
225         calling Add_Association with "Is_Box_Present => True". Also,
226         combine that elsif clause with the immediately preceding elsif
227         clause, since they now both contain the same statement (calls to
228         Add_Association with the same actuals).
230 2023-11-28  Bob Duff  <duff@adacore.com>
232         * sem_util.adb (Check_Result_And_Post_State): Disable this when
233         we're in an instance. Misc cleanup.
235 2023-11-28  Eric Botcazou  <ebotcazou@adacore.com>
237         * exp_ch7.ads (Expand_Cleanup_Actions): Move declaration to the
238         Finalization Management section.
239         * exp_ch7.adb (Transient Scope Management): Move description down to
240         after that of the general finalization and make a few changes.
241         (Insert_Actions_In_Scope_Around): Call Process_Transients_In_Scope
242         only if cleanups are being handled.
243         (Process_Transients_In_Scope): Remove redundant test on Clean.
244         * exp_util.ads (Within_Case_Or_If_Expression): Adjust description.
245         * exp_util.adb (Within_Case_Or_If_Expression): Only return true if
246         within the dependent expressions of the conditional expressions.
248 2023-11-28  Eric Botcazou  <ebotcazou@adacore.com>
250         * doc/gnat_rm/the_implementation_of_standard_i_o.rst: Fix a couple
251         occurrences of incorrect quoting.
252         * gnat_rm.texi: Regenerate.
254 2023-11-28  Eric Botcazou  <ebotcazou@adacore.com>
256         * exp_ch6.adb (Build_Flag_For_Function): New function made up of the
257         code building the special flag for return object present...
258         (Expand_N_Extended_Return_Statement): ...in there.  Replace the code
259         with a call to Build_Flag_For_Function.  Add assertion for the flag.
260         (Expand_Non_Function_Return): For a nested return, if the return
261         object needs finalization actions, update the special flag.
263 2023-11-28  Sebastian Poeplau  <poeplau@adacore.com>
265         * einfo-utils.ads, einfo-utils.adb (Is_Address_Compatible_Type):
266         New function.
268 2023-11-28  Gary Dismukes  <dismukes@adacore.com>
270         * exp_aggr.adb (Expand_Container_Aggregate): Apply a conversion to the
271         size temp object passed as the second actual parameter on the call to
272         the New_Indexed_Subp function, to convert it to the index type of the
273         container type (taken from the first formal parameter of the function).
275 2023-11-28  Eric Botcazou  <ebotcazou@adacore.com>
277         * sem_attr.adb (Eval_Attribute): Do not proceed in a spec expression
278         for nonstatic representation attributes of a scalar subtype when the
279         subtype is not frozen.
280         * sem_ch3.adb (Analyze_Object_Declaration): Do not freeze the type
281         of the object in a spec expression.
283 2023-11-28  Richard Kenner  <kenner@adacore.com>
285         * exp_unst.adb (Note_Uplevel_Bound): Treat
286         N_Unchecked_Type_Conversion like N_Type_Conversion.
288 2023-11-28  Yannick Moy  <moy@adacore.com>
290         * libgnat/s-imgboo.adb: Remove with_clause now in spec file.
291         * libgnat/s-imgboo.ads: Remove dependency on System.Val_Bool.
292         (Image_Boolean): Replace call to Value_Boolean by passing value V
293         to updated ghost function Is_Boolean_Image_Ghost.
294         * libgnat/s-valboo.ads (Is_Boolean_Image_Ghost): Move to other
295         unit.
296         (Value_Boolean.): Update precondition.
297         * libgnat/s-valspe.ads (Is_Boolean_Image_Ghost): Move here. Add
298         new parameter for expected boolean value.
300 2023-11-28  Tucker Taft  <taft@adacore.com>
302         * sem_scil.adb: Handle discriminant specification.
304 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
306         * gcc-interface/trans.cc (Loop_Statement_to_gnu): Always use the
307         simpler form for a loop with a boolean iteration variable.
309 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
311         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Array_Subtype>: Put
312         the alignment directly on the type in the constrained case too.
313         * gcc-interface/utils.cc (maybe_pad_type): For an array type, take
314         the alignment of the element type as the original alignment.
316 2023-11-21  Gary Dismukes  <dismukes@adacore.com>
318         * sem_aggr.adb (Resolve_Container_Aggregate): In the case where Comp
319         is an N_Iterated_Component_Association, pick up Discrete_Choices rather
320         than Choices.
322 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
324         * exp_ch7.adb (Build_Finalizer): For package specs and bodies, push
325         and pop the specs onto the scope stack only once.
326         * inline.adb (Cleanup_Scopes): Call Pop_Scope instead of End_Scope.
328 2023-11-21  Steve Baird  <baird@adacore.com>
330         * sem_aggr.adb (Resolve_Delta_Array_Aggregate): In the case of a
331         deep delta choice, the expected type for the expression will
332         typically not be the component type of the array type, so a call
333         to Analyze_And_Resolve that assumes otherwise would be an error.
334         It turns out that such a call, while wrong, is usually harmless
335         because the expression has already been marked as analyzed. This
336         doesn't work if the aggregate occurs in a postcondition and, in
337         any case, we don't want to rely on this. So do not perform the
338         call in the deep case.
340 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
342         * sem_warn.adb (Check_References.Type_OK_For_No_Value_Assigned):
343         New predicate.
344         (Check_References): For Warn_On_No_Value_Assigned, use the same test
345         on the type in the address-not-taken and default cases.
347 2023-11-21  Gary Dismukes  <dismukes@adacore.com>
349         * exp_ch5.adb (Expand_Iterator_Loop_Over_Container): Retrieve the
350         iteration type's iteration interface progenitor via
351         Iterator_Interface_Ancestor, in the case of both "in" and "of"
352         iterators. Narrow the scope of Pack, so it's declared and
353         initialized only within the code related to "of" iterators, and
354         change its name to Cont_Type_Pack. Adjust comments.
355         * sem_ch5.adb (Get_Cursor_Type): In the case of a derived type,
356         retrieve the iteration type's iterator interface progenitor (if it
357         exists) via Iterator_Interface_Ancestor rather than assuming that
358         the parent type is the interface progenitor.
359         * sem_util.ads (Iterator_Interface_Ancestor): New function.
360         * sem_util.adb (Iterator_Interface_Ancestor): New function
361         returning a type's associated iterator interface type, if any, by
362         collecting and traversing the type's interfaces.
364 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
366         * sem_attr.adb (Resolve_Attribute) <Attribute_Address>: Remove the
367         bypass for prefixes with task type.
369 2023-11-21  Viljar Indus  <indus@adacore.com>
371         * par.adb: Restore Style_Checks after parsing each unit.
373 2023-11-21  Yannick Moy  <moy@adacore.com>
375         * exp_spark.adb (Expand_SPARK_Delta_Or_Aggregate): Fix type.
377 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
379         * sem_ch12.adb (Analyze_Package_Instantiation): Test Expander_Active
380         to detect generic contexts for the generation of cleanup actions.
382 2023-11-21  Justin Squirek  <squirek@adacore.com>
384         * libgnat/g-catiio.adb (Value): Modify conditionals to use 'Last
385         instead of 'Length
387 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
389         * sem_util.adb (Null_Status): Deal with unchecked type conversions.
391 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
393         * exp_aggr.adb (Convert_To_Assignments): Do not treat initialization
394         procedures specially when it comes to creating a transient scope.
395         * exp_ch7.adb (Build_Finalizer.Process_Declarations): Likewise.
396         * exp_util.adb (Requires_Cleanup_Actions): Likewise.
398 2023-11-21  Doug Rupp  <rupp@adacore.com>
400         * s-oscons-tmplt.c: #define CLOCK_RT_Ada "CLOCK_MONOTONIC" for
401         __vxworks
403 2023-11-21  Steve Baird  <baird@adacore.com>
405         * sem_aggr.adb: Replace "not Present (...)" call with "No (...)" call.
407 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
409         * gen_il-fields.ads (Opt_Field_Enum): Remove Is_Finalization_Wrapper
410         * gen_il-gen-gen_nodes.adb (N_Block_Statement): Likewise.
411         * sinfo.ads (Is_Finalization_Wrapper): Delete.
412         * exp_ch7.adb (Build_Finalizer.Process_Declarations): Adjust comment
413         and remove obsolete code testing the Is_Finalization_Wrapper flag.
414         * exp_util.adb (Requires_Cleanup_Actions): Likewise.
416 2023-11-21  Doug Rupp  <rupp@adacore.com>
418         * libgnat/libada.gpr: Revise section 1
420 2023-11-21  Steve Baird  <baird@adacore.com>
422         * par.adb: Add new Boolean variable Inside_Delta_Aggregate.
423         * par-ch4.adb (P_Simple_Expression): Add support for a deep delta
424         aggregate choice. We turn a sequence of selectors into a peculiar
425         tree. We build a component (Indexed or Selected) whose prefix is
426         another such component, etc. The leftmost prefix at the bottom of
427         the tree has a "name" which is the first selector, without any
428         further prefix. For something like "with delta (1)(2) => 3" where
429         the type of the aggregate is an array of arrays of integers, we'll
430         build an N_Indexed_Component whose prefix is an integer literal 1.
431         This is consistent with the trees built for "regular"
432         (Ada-defined) delta aggregates.
433         * sem_aggr.adb (Is_Deep_Choice, Is_Root_Prefix_Of_Deep_Choice):
434         New queries.
435         (Resolve_Deep_Delta_Assoc): new procedure.
436         (Resolve_Delta_Array_Aggregate): call Resolve_Deep_Delta_Assoc in
437         deep case.
438         (Resolve_Delta_Record_Aggregate): call Resolve_Deep_Delta_Assoc in
439         deep case.
440         (Get_Component_Type): new function replaces old Get_Component
441         function.
442         * sem_aggr.ads (Is_Deep_Choice, Is_Root_Prefix_Of_Deep_Choice):
443         New queries.
444         * exp_aggr.adb (Expand_Delta_Array_Aggregate): add nested function
445         Make_Array_Delta_Assignment_LHS; call it instead of
446         Make_Indexed_Component.
447         (Expand_Delta_Record_Aggregate): add nested function
448         Make_Record_Delta_Assignment_LHS; call it instead of
449         Make_Selected_Component.
450         * exp_spark.adb (Expand_SPARK_Delta_Or_Update): Insert range
451         checks for indexes in deep delta aggregates.
453 2023-11-21  Ronan Desplanques  <desplanques@adacore.com>
455         * adaint.c (__gnat_unlink): Add new parameter and fix text
456         conversion on Windows. Remove unnecessary curly braces.
457         * adaint.h (__gnat_unlink): Add new parameter.
458         * libgnat/i-cstrea.ads (unlink): Adapt to __gnat_unlink signature
459         change.
460         * libgnat/i-cstrea.adb (unlink): New Subprogram definition.
461         * libgnat/s-crtl.ads (unlink): Adapt to __gnat_unlink signature
462         change.
463         * libgnat/s-fileio.adb (Delete): Pass encoding argument to unlink.
465 2023-11-21  Eric Botcazou  <ebotcazou@adacore.com>
467         * sem_ch12.adb (Save_Global_References.Set_Global_Type): Beef up
468         comment about the setting of the full view.
469         * sem_res.adb (Resolve_Actuals.Insert_Default): Add another bypass
470         for the case of a generic context.
472 2023-11-21  Marc Poulhiès  <poulhies@adacore.com>
474         * doc/gnat_ugn/the_gnat_compilation_model.rst: Move index
475         directives.
476         * gnat_ugn.texi: Regenerate.
478 2023-11-21  Pierre-Marie de Rodat  <derodat@adacore.com>
480         * par_sco.adb (Process_Decisions)<Process_Node>: Skip aspect
481         specifications.
483 2023-11-21  Ronan Desplanques  <desplanques@adacore.com>
485         * libgnat/libgnat_common.gpr: Unconditionally pass -gnatg.
487 2023-11-21  Marc Poulhiès  <poulhies@adacore.com>
489         * exp_util.ads: Typo fix.
491 2023-11-16  Eric Botcazou  <ebotcazou@adacore.com>
493         * gcc-interface/decl.cc (gnat_to_gnu_subprog_type): Also create a
494         TYPE_DECL for the return type built for the CI/CO mechanism.
496 2023-11-10  Andris Pavēnis  <andris.pavenis@iki.fi>
498         * expect.c (__gnat_waitpid): fix syntax errors
500 2023-11-09  Simon Wright  <simon@pushface.org>
502         PR ada/111813
503         * libgnat/a-calfor.adb (Value (2)): Allow values of
504         parameter Elapsed_Time greater than or equal to 24 hours, by doing
505         the hour calculations in Natural rather than Hour_Number (0 ..
506         23). Calculate the result directly rather than by using Seconds_Of
507         (whose Hour parameter is of type Hour_Number).
508         If an exception occurs of type Constraint_Error, re-raise it
509         rather than raising a new CE.
511 2023-11-07  Joseph Myers  <joseph@codesourcery.com>
513         * gcc-interface/utils.cc (flag_isoc2x): Rename to flag_isoc23.
515 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
517         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Variable>: Apply the
518         specific rewriting done for an aliased object with an unconstrained
519         array nominal subtype in the renaming case too.
521 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
523         * gcc-interface/trans.cc (gnat_gimplify_expr) <CALL_EXPR>: Delete.
525 2023-11-07  Bob Duff  <duff@adacore.com>
527         * sem_ch13.ads (Set_Enum_Esize): Do not set alignment.
528         * sem_ch13.adb (Set_Enum_Esize): Do not set alignment. Archaeology
529         seems to show that this line of code dates from when "Alignment =
530         0" meant "the Alignment is not known at compile time" and "the
531         Alignment is not yet known at compile time" as well as "the
532         Alignment is zero". In any case, it seems to be unnecessary, and
533         in this case harmful, because gigi would crash. Alignment_Clause
534         is set (because there is one), so gigi would query the Alignment,
535         but Alignment was destroyed.
537 2023-11-07  Julien Bortolussi  <bortolussi@adacore.com>
539         * doc/share/conf.py: Changed the background color and the logo.
541 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
543         * gen_il-fields.ads (Opt_Field_Enum): Add Compare_Type.
544         * gen_il-gen-gen_nodes.adb (N_Op_Eq): Likewise.
545         (N_Op_Ge): Likewise.
546         (N_Op_Gt): Likewise.
547         (N_Op_Le): Likewise.
548         (N_Op_Lt): Likewise.
549         (N_Op_Ne): Likewise.
550         * sinfo.ads (Compare_Type): Document new field.
551         * sem_ch4.adb (Analyze_Comparison_Equality_Op): If the entity is
552         already present, set the Compare_Type on overloaded operands if it
553         is present on the node.
554         * sem_ch12.adb (Check_Private_View): Look into the Compare_Type
555         instead of the Etype for comparison operators.
556         (Copy_Generic_Node): Remove obsolete code for comparison
557         operators.
558         (Save_Global_References.Save_References): Do not walk into the
559         descendants of N_Implicit_Label_Declaration nodes.
560         (Save_Global_References.Set_Global_Type): Look into the
561         Compare_Type instead of the Etype for comparison operators.
562         * sem_res.adb (Resolve_Comparison_Op): Set Compare_Type.
563         (Resolve_Equality_Op): Likewise.
565 2023-11-07  Ronan Desplanques  <desplanques@adacore.com>
567         * adaint.c (__gnat_file_time): Fix Windows version.
569 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
571         * exp_ch3.adb (Expand_N_Object_Declaration): Fold initialization
572         expression of Nominal_Subtype_Is_Constrained_Array constant into
573         the computation of Rewrite_As_Renaming and remove the constant.
574         Set it to True for an aliased array with unconstrained nominal
575         subtype if the subtype of the expression is also unconstrained.
577 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
579         * exp_util.adb (Add_Own_DIC, Add_Own_Invariants): Store the aspect
580         expression in Expression_Copy.
582 2023-11-07  Yannick Moy  <moy@adacore.com>
584         * exp_aggr.adb: Apply the renaming.
585         * exp_ch3.adb: Same.
586         * exp_ch4.adb: Same.
587         * exp_ch6.adb: Same.
588         * exp_ch7.adb: Same.
589         * exp_util.adb: Same.
590         * freeze.adb: Same.
591         * sem_aggr.adb: Same.
592         * sem_attr.adb: Same.
593         * sem_aux.adb: Alphabetize Is_Limited_Type. Rename.
594         * sem_aux.ads: Same.
595         * sem_ch3.adb: Apply the renaming.
596         * sem_ch6.adb: Same.
597         * sem_ch8.adb: Same.
598         * sem_prag.adb: Same.
599         * sem_res.adb: Same.
600         * sem_util.adb: Same.
602 2023-11-07  Viljar Indus  <indus@adacore.com>
604         * aspects.adb (Exchange_Aspects): Removed. This method was
605         typically called after a Rewrite method. Now since the Rewrite
606         switches the aspects between the new and the old node it is no
607         longer needed.
608         (Has_Aspects): Converted to a utility method that performs the same
609         before as the previous Has_Aspects field did. Meaning it shows whether
610         a node actually has aspects or not.
611         (Copy_Aspects): New utility method that performs a deep copy of the
612         From nodes aspects.
613         (Aspect_Specfications): Removed. No longer needed. Replaced
614         by the primitive operation for the Aspect_Specification fields.
615         (Set_Aspect_Specifications): Likewise.
616         (Aspect_Specifications_Hash_Table): Remove the table and all the
617         utility methods for storing the old aspects.
618         * aspects.ads: Likewise.
619         * atree.adb (Copy_Separate_Tree): Remove custom code for aspects.
620         (New_Copy): Likewise.
621         (Replace): Likewise.
622         (Rewrite): Likewise.
623         * exp_ch3.adb (Expand_N_Object_Declaration): Keep the aspects from the old node.
624         * exp_ch6.adb (Validate_Subprogram_Calls): Previously aspects were ignored
625         because they were not on the tree. Explicitly ignore them here
626         when traversing the tree.
627         * exp_unst.adb (Build_Tables): Likewise
628         * gen_il-fields.ads: Remove Has_Aspects and add
629         Aspect_Specifications fields.
630         * gen_il-gen-gen_nodes.adb: Add Aspect_Specification fields
631         for all nodes that can have aspects. Additionally add
632         Expression_Copy for Aspect_Speficiations to avoid reusing
633         the Associated_Node for generic instantiation and aspect
634         analysis.
635         * ghost.adb (Remove_Ignored_Ghost_Node): Remove call to Remove_Aspects.
636         The rewritten node is a Null_Statement that cannot have aspects
637         and there is not anything to gain from removing them from the
638         Orignal_Node of N since it technically is not part of the active
639         tree.
640         * inline.adb (Process_Formals_In_Aspects): Simplify code for node traversal.
641         * par-ch13.adb: Avoid setting the parent explicitly for the
642         Aspect_Specifications list. This is done explicitly in the setter.
643         * par-ch6.adb: Likewise.
644         * par_sco.adb (Traverse_Aspects): Handle early return.
645         * sem_ch10.adb: Simplify code for Analyze_Aspect_Specifications.
646         * sem_ch11.adb: Likewise.
647         * sem_ch12.adb (Analyze_Formal_Derived_Interface_Type): Keep the aspects from
648         the orignal node after rewrite.
649         (Analyze_Formal_Derived_Type): Likewise.
650         (Analyze_Formal_Interface_Type): Likewise.
651         (Analyze_Formal_Object_Declaration): Simplify code for
652         Analyze_Aspect_Specifications.
653         (Analyze_Formal_Package_Declaration): Likewise.
654         (Analyze_Formal_Subprogram_Declaration): Likewise.
655         (Analyze_Formal_Type_Declaration): Likewise.
656         (Analyze_Generic_Package_Declaration): Remove Exchange_Aspects.
657         The new node already has the correct aspects after the rewrite.
658         Also simplify code for Analyze_Aspect_Specifications.
659         (Analyze_Generic_Subprogram_Declaration): Likewise.
660         (Analyze_Package_Instantiation): Simplify code for
661         Analyze_Aspect_Specifications.
662         (Build_Instance_Compilation_Unit_Nodes): Remove explicit copy of
663         aspects that is no longer needed.
664         (Save_References): Update the traversal code to handle
665         Aspect_Specifications in the tree.
666         (Copy_Generic_Node): Remove explicit copy for aspects. New_Copy
667         took care of that already.
668         * sem_ch13.adb (Analyze_Aspect_Specifications): Add early return to simplify
669         code for its calls. Avoid reusing the Entity(Associated_Node)
670         field for storing the original expression. Instead use the
671         new Expression_Copy field since Entity(Associated_Node) is
672         also used in generic instantiation.
673         (Analyze_Aspects_On_Subprogram_Body_Or_Stub): Simlify call
674         to Analyze_Aspect_Specifications.
675         (Check_Aspect_At_End_Of_Declarations): Use Expression_Copy
676         instead of Entity.
677         (Check_Aspect_At_Freeze_Point): Likewise.
678         * sem_ch3.adb: Simplify calls to Analyze_Aspect_Specifications.
679         * sem_ch6.adb (Analyze_Abstract_Subprogram_Declaration): Simplify call to
680         Analyze_Aspect_Specifications.
681         (Analyze_Expression_Function): Keep the aspects from the
682         original node after a rewrite.
683         (Analyze_Generic_Subprogram_Body): Remove Exchange aspects
684         that is no longer needed. Simplify call to
685         Analyze_Aspect_Specifications.
686         (Analyze_Null_Procedure): Keep the aspects from the
687         original node after a rewrite.
688         (Analyze_Subprogram_Body_Helper): Simplify calls to
689         Analyze_Aspect_Specifications.
690         (Analyze_Subprogram_Declaration): Likewise.
691         * sem_ch7.adb (Analyze_Package_Body_Helper): Remove Exchange aspects
692         that is no longer needed. Simplify call to
693         Analyze_Aspect_Specifications.
694         (Analyze_Package_Declaration): Simplify call to
695         Analyze_Aspect_Specifications.
696         (Analyze_Private_Type_Declaration): Likewise.
697         * sem_ch8.adb: Simplify calls to
698         Analyze_Aspect_Specifications.
699         * sem_ch9.adb (Analyze_Entry_Body): Simplify call to
700         Analyze_Aspects_On_Subprogram_Body_Or_Stub.
701         (Analyze_Entry_Declaration): Simplify call to
702         Analyze_Aspect_Specifications.
703         (Analyze_Protected_Body): Likewise.
704         (Analyze_Protected_Type_Declaration): Likewise.
705         (Analyze_Single_Protected_Declaration): Keep the aspects from
706         the original node after a rewrite. Simplify call to
707         Analyze_Aspect_Specifications.
708         (Analyze_Single_Task_Declaration): Likewise.
709         (Analyze_Task_Body): Simplify call to
710         Analyze_Aspect_Specifications.
711         (Analyze_Task_Type_Declaration): Simplify calls to
712         Analyze_Aspect_Specifications.
713         * sem_dim.adb: Remove explicitly setting the parents
714         for the Aspect_Specification list.
715         * sem_disp.adb: Remove the with that is no longer
716         required since Aspect_Specifications is a node operation now.
717         * sem_util.adb (Copy_Node_With_Replacement): Remove explicit code for aspects.
718         * treepr.adb (Print_Field): Remove the version that was used for printing
719         aspects.
720         (Print_Node): Remove aspect specific code.
722 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
724         * gen_il-gen-gen_nodes.adb (N_Op_Boolean): Fix description.
725         * sem_ch4.adb (Analyze_Comparison_Equality_Op): Tidy up.
726         * sem_ch12.adb (Copy_Generic_Node): Use N_Op_Compare subtype.
728 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
730         * exp_ch6.adb, exp_disp.adb, sem_ch13.adb, sem_ch3.adb: Fix newly
731         detected violations.
733 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
735         * sem_ch3.adb, sem_ch4.adb, sem_eval.adb: Fix newly detected
736         violations.
738 2023-11-07  Ronan Desplanques  <desplanques@adacore.com>
740         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Fix
741         -gnatwc documentation.
742         * gnat_ugn.texi: Regenerate.
744 2023-11-07  Steve Baird  <baird@adacore.com>
746         * local_restrict.ads: A new package. Declares Local_Restriction
747         enumeration type and provides operations to check for local
748         restriction violations.
749         * local_restrict.adb: Corresponding package body. Replace "not
750         Present (X)" calls with "No (X)" calls.
751         * aspects.ads: Add a new enumeration elements,
752         Aspect_Local_Restrictions and Aspect_User_Aspect, to the Aspect_Id
753         enumeration type. Update Aspect_Id-indexed aggregates. Add nested
754         package User_Aspect_Support to manage two pieces of state. One is
755         a map from identifiers to User_Aspect_Definition pragmas (updated
756         when such a pragma is encountered). The other is an
757         access-to-subprogram variable that is introduced in order to keep
758         the bulk of semantics out of the closure of package Aspects while
759         allowing a call from aspects.adb to the sem_ch13 procedure that
760         analyzes a User_Aspect aspect specification.
761         * aspects.adb (Find_Aspect): Cope with a case of a block statement
762         with an empty parent. It is not clear whether this is papering
763         over a compiler bug. Add indirect call through the aforementioned
764         access-to-subprogram variable when Find_Aspect enounters an
765         unanalyzed User_Aspect aspect specification. If Find_Aspect is
766         called looking for aspect Foo, then a User_Aspect specification
767         might generate (during analysis) a Foo aspect specification. So
768         the Find_Aspect call needs to trigger that analysis if it has not
769         already taken place. Provide a body for package
770         User_Aspect_Support. Replace "not Present (X)" call with "No (X)"
771         call.
772         * freeze.adb (Freeze_Subprogram): Check local restriction
773         compatibility when a dispatching operation is overridden.
774         * par-prag.adb: Add support for parsing a User_Aspect_Definition
775         pragma.
776         * restrict.ads: We'd like to have the body of package Restrict
777         include a call to a procedure declared in package Local_Restrict.
778         Doing that in the obvious way pulls most of semantics into the
779         closure of package Restrict, and that turns out to cause problems.
780         So we introduce a level of indirection and instead call through an
781         access-to-subprogram value. In this unit, we declare the
782         access-to-subprogram type and object.
783         * restrict.adb (Check Restriction): When a construct is
784         encountered that could violate a global restriction (depending on
785         whether the given restriction is in effect), Check_Restriction is
786         called. At this point, we also check for a violation of any
787         corresponding local restriction that is in effect. For reasons
788         described above, this check is performed via an indirect call.
789         * sem_ch13.ads (Parse_Aspect_Local_Restrictions): A new function,
790         similar to the existing Parse_Aspect_Xxx subprograms.
791         * sem_ch13.adb: Perform semantic analysis of Local_Restrictions
792         and User_Aspect aspect specifications. Declare and call new
793         Validate_Aspect_Local_Restrictions and
794         Analyze_User_Aspect_Aspect_Specification procedures (a reference
795         to the latter is registered during package elaboration). In
796         Analyze_Aspect_Specifications, do not set the Analyzed flag of a
797         User_Aspect aspect specification. Replace "not Present (X)" call
798         with "No (X)" call. Replace 'Image with 'Img in a case where the
799         prefix of the attribute reference is an object; this is done to
800         accomodate older compilers.
801         * sem_ch6.adb (Check_Subtype_Conformant): Include in subtype
802         conformance check a check for overriding-related compatibility of
803         local restrictions.
804         * sem_ch8.adb (Analyze_Subprogram_Renaming): In the case of an
805         instance of a generic that takes a formal subprogram, check that
806         formal and actual are compatible with respect to local
807         restrictions.
808         * sem_prag.adb: Add support for User_Aspect_Definition pragma.
809         * sem_res.adb (Resolve_Call): Check caller/callee compatibility
810         with respect to local restrictions.
811         * snames.ads-tmpl: Add Name_Local_Restrictions, Name_User_Aspect,
812         and Name_User_Aspect_Definition constants.
813         * doc/gnat_rm/implementation_defined_aspects.rst: Document new
814         aspects.
815         * doc/gnat_rm/implementation_defined_pragmas.rst: Document new
816         pragma.
817         * doc/gnat_ugn/the_gnat_compilation_model.rst: Add
818         User_Aspect_Definition to list of GNAT pragmas.
819         * gcc-interface/Make-lang.in: Add local_restrict.o.
820         * gnat-style.texi: Regenerate.
821         * gnat_rm.texi: Regenerate.
822         * gnat_ugn.texi: Regenerate.
824 2023-11-07  Bob Duff  <duff@adacore.com>
826         * sem_ch4.adb (Is_Private_Overriding): Return True in the case
827         where a primitive operation is publicly inherited but privately
828         overridden.
830 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
832         * exp_pakd.adb (Expand_Bit_Packed_Element_Set): Remove code from the
833         ELSE branch, because it was is identical to code before the IF
834         statements itself.
836 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
838         * exp_pakd.adb (Expand_Bit_Packed_Element_Set): Change Ctyp and Csiz
839         from variables to constants and compute them using the nominal type
840         of the assigned array object.
842 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
844         * exp_pakd.adb, libgnarl/s-osinte__android.ads,
845         libgnarl/s-osinte__linux.ads, libgnarl/s-osinte__qnx.ads,
846         libgnarl/s-osinte__rtems.ads, libgnat/s-gearop.adb,
847         libgnat/s-poosiz.adb, sem_util.adb: Fix style.
849 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
851         * exp_pakd.adb (Expand_Bit_Packed_Element_Set): Simplify handling of
852         assignments with string literals.
854 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
856         * exp_pakd.adb (Expand_Bit_Packed_Element_Set): Remove Rhs_Val_Known;
857         represent unknown value by assigning Rhs_Val with No_Uint.
859 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
861         * exp_pakd.adb
862         (Expand_Bit_Packed_Element_Set): Change local Decl object from
863         variable to constant.
864         (Setup_Inline_Packed_Array_Reference): Likewise for Csiz.
866 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
868         * exp_pakd.adb (Setup_Inline_Packed_Array_Reference): Remove extra
869         whitespace from the list of parameters.
871 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
873         * sem_util.adb (Get_Actual_Subtype_If_Available): Only call Etype
874         when necessary.
876 2023-11-07  Piotr Trojanek  <trojanek@adacore.com>
878         * sem_util.adb
879         (Get_Actual_Subtype,Get_Actual_Subtype_If_Available): Fix handling
880         of expanded names.
882 2023-11-07  Viljar Indus  <indus@adacore.com>
884         * sem_prag.adb: (Analyze_Pragma): Reduce the number of nested if
885         statements.
887 2023-11-07  Viljar Indus  <indus@adacore.com>
889         * sem_ch10.adb: (Analyze_Compilation_Unit): Restore the orignal
890         state of style check pragmas at the end of the analysis.
892 2023-11-07  Eric Botcazou  <ebotcazou@adacore.com>
894         * exp_pakd.adb (Get_Base_And_Bit_Offset): Use the full component
895         reference instead of just the selector name for 'Bit_Position.
897 2023-11-04  David Malcolm  <dmalcolm@redhat.com>
899         * gcc-interface/misc.cc: Update for changes to diagnostic_context.
901 2023-10-22  Iain Sandoe  <iain@sandoe.co.uk>
903         * gcc-interface/Makefile.in: Handle Darwin rpaths.
905 2023-10-20  Alexandre Oliva  <oliva@adacore.com>
907         * gcc-interface/trans.cc (gigi): Mark __gnat_reraise_zcx with
908         ECF_XTHROW.
909         (build_raise_check): Likewise for all rcheck subprograms.
911 2023-10-19  Yannick Moy  <moy@adacore.com>
913         * aspects.ads: Add aspect Side_Effects.
914         * contracts.adb (Add_Pre_Post_Condition)
915         (Inherit_Subprogram_Contract): Add support for new contract.
916         * contracts.ads: Update comments.
917         * einfo-utils.adb (Get_Pragma): Add support.
918         * einfo-utils.ads (Prag): Update comment.
919         * errout.ads: Add explain codes.
920         * par-prag.adb (Prag): Add support.
921         * sem_ch13.adb (Analyze_Aspect_Specifications)
922         (Check_Aspect_At_Freeze_Point): Add support.
923         * sem_ch6.adb (Analyze_Subprogram_Body_Helper)
924         (Analyze_Subprogram_Declaration): Call new analysis procedure to
925         check SPARK legality rules.
926         (Analyze_SPARK_Subprogram_Specification): New procedure to check
927         SPARK legality rules. Use an explain code for the error.
928         (Analyze_Subprogram_Specification): Move checks to new subprogram.
929         This code was effectively dead, as the kind for parameters was set
930         to E_Void at this point to detect early references.
931         * sem_ch6.ads (Analyze_Subprogram_Specification): Add new
932         procedure.
933         * sem_prag.adb (Analyze_Depends_In_Decl_Part)
934         (Analyze_Global_In_Decl_Part): Adapt legality check to apply only
935         to functions without side-effects.
936         (Analyze_If_Present): Extract functionality in new procedure
937         Analyze_If_Present_Internal.
938         (Analyze_If_Present_Internal): New procedure to analyze given
939         pragma kind.
940         (Analyze_Pragmas_If_Present): New procedure to analyze given
941         pragma kind associated with a declaration.
942         (Analyze_Pragma): Adapt support for Always_Terminates and
943         Exceptional_Cases. Add support for Side_Effects. Make sure to call
944         Analyze_If_Present to ensure pragma Side_Effects is analyzed prior
945         to analyzing pragmas Global and Depends. Use explain codes for the
946         errors.
947         * sem_prag.ads (Analyze_Pragmas_If_Present): Add new procedure.
948         * sem_util.adb (Is_Function_With_Side_Effects): New query function
949         to determine if a function is a function with side-effects.
950         * sem_util.ads (Is_Function_With_Side_Effects): Same.
951         * snames.ads-tmpl: Declare new names for pragma and aspect.
952         * doc/gnat_rm/implementation_defined_aspects.rst: Document new aspect.
953         * doc/gnat_rm/implementation_defined_pragmas.rst: Document new pragma.
954         * gnat_rm.texi: Regenerate.
956 2023-10-19  Sheri Bernstein  <bernstein@adacore.com>
958         * libgnat/s-imagef.adb (Set_Image_Fixed): Refactor loop.
960 2023-10-19  Sheri Bernstein  <bernstein@adacore.com>
962         * libgnat/s-imguti.adb (Set_Decimal_Digits): Add pragma to exempt
963         Unassigned_OUT_Parameters.
964         (Set_Floating_Invalid_Value): Likewise
966 2023-10-19  Patrick Bernardi  <bernardi@adacore.com>
968         * bindusg.adb (Display): Make it clear -Q adds to the number of
969         secondary stacks generated by the binder.
970         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
971         Document the -Q gnatbind switch and fix references to old
972         runtimes.
973         * gnat-style.texi: Regenerate.
974         * gnat_rm.texi: Regenerate.
975         * gnat_ugn.texi: Regenerate.
977 2023-10-19  Ronan Desplanques  <desplanques@adacore.com>
979         * sem_ch3.adb (Constrain_Array): Replace manual list length
980         computation by call to List_Length.
982 2023-10-19  Piotr Trojanek  <trojanek@adacore.com>
984         * exp_aggr.adb (Expand_Container_Aggregate): Simplify with "No".
986 2023-10-10  Eric Botcazou  <ebotcazou@adacore.com>
988         * gcc-interface/decl.cc (inline_status_for_subprog): Minor tweak.
989         (gnat_to_gnu_field): Try harder to get a packable form of the type
990         for a bitfield.
992 2023-10-10  Ronan Desplanques  <desplanques@adacore.com>
994         * libgnat/a-direct.adb (Start_Search_Internal): Tweak subprogram
995         body.
997 2023-10-10  Eric Botcazou  <ebotcazou@adacore.com>
999         * sem_util.ads (Set_Scope_Is_Transient): Delete.
1000         * sem_util.adb (Set_Scope_Is_Transient): Likewise.
1001         * exp_ch7.adb (Create_Transient_Scope): Set Is_Transient directly.
1003 2023-10-10  Eric Botcazou  <ebotcazou@adacore.com>
1005         * exp_aggr.adb (Is_Build_In_Place_Aggregate_Return): Return true
1006         if the aggregate is a dependent expression of a conditional
1007         expression being returned from a build-in-place function.
1009 2023-10-10  Eric Botcazou  <ebotcazou@adacore.com>
1011         PR ada/111434
1012         * sem_ch10.adb (Replace): New procedure to replace an entity with
1013         another on the homonym chain.
1014         (Install_Limited_With_Clause): Rename Non_Lim_View to Typ for the
1015         sake of consistency.  Call Replace to do the replacements and split
1016         the code into the regular and the special cases.  Add debuggging
1017         output controlled by -gnatdi.
1018         (Install_With_Clause): Print the Parent_With and Implicit_With flags
1019         in the debugging output controlled by -gnatdi.
1020         (Remove_Limited_With_Unit.Restore_Chain_For_Shadow (Shadow)): Rewrite
1021         using a direct replacement of E4 by E2.   Call Replace to do the
1022         replacements.  Add debuggging output controlled by -gnatdi.
1024 2023-10-10  Ronan Desplanques  <desplanques@adacore.com>
1026         * libgnat/a-direct.adb: Fix filesystem entry filtering.
1028 2023-10-10  Ronan Desplanques  <desplanques@adacore.com>
1030         * atree.ads, nlists.ads, types.ads: Remove references to extended
1031         nodes. Fix typo.
1032         * sinfo.ads: Likewise and fix position of
1033         Comes_From_Check_Or_Contract description.
1035 2023-10-10  Javier Miranda  <miranda@adacore.com>
1037         * sem_attr.adb (Analyze_Attribute): Protect the frontend against
1038         replacing 'Size by its static value if 'Size is not known at
1039         compile time and we are processing pragmas Compile_Time_Warning or
1040         Compile_Time_Errors.
1042 2023-10-03  David Malcolm  <dmalcolm@redhat.com>
1044         * gcc-interface/misc.cc: Use text_info ctor.
1046 2023-10-02  David Malcolm  <dmalcolm@redhat.com>
1048         * gcc-interface/misc.cc (gnat_post_options): Update for renaming
1049         of diagnostic_context's show_caret to m_source_printing.enabled.
1051 2023-09-26  Eric Botcazou  <ebotcazou@adacore.com>
1053         * exp_ch7.adb (Build_Finalizer.Process_Declarations): Remove call
1054         to Is_Simple_Protected_Type as redundant.
1055         (Build_Finalizer.Process_Object_Declaration): Do not retrieve the
1056         corresponding record type for simple protected objects. Make the
1057         flow of control more explicit in their specific processing.
1058         * exp_util.adb (Requires_Cleanup_Actions): Return false for simple
1059         protected objects present in library-level package bodies for the
1060         sake of consistency with Build_Finalizer and remove call to
1061         Is_Simple_Protected_Type as redundant.
1063 2023-09-26  Eric Botcazou  <ebotcazou@adacore.com>
1065         PR ada/110488
1066         * sem_ch3.adb (Analyze_Object_Declaration): Do not build a default
1067         subtype for a deferred constant in the definite case too.
1069 2023-09-26  Marc Poulhiès  <poulhies@adacore.com>
1071         * exp_ch7.adb (Contains_Subprogram): Recursively search for subp
1072         in loop's statements.
1073         (Unnest_Loop)<Fixup_Inner_Scopes>: New.
1074         (Unnest_Loop): Rename local variable for more clarity.
1075         * exp_unst.ads: Refresh comment.
1077 2023-09-26  Javier Miranda  <miranda@adacore.com>
1079         * exp_ch6.adb (Expand_Call_Helper): When computing the
1080         accessibility level of an actual parameter based on the
1081         expresssion of a constant declaration, add missing support for
1082         deferred constants
1084 2023-09-26  Eric Botcazou  <ebotcazou@adacore.com>
1086         * einfo.ads (Status_Flag_Or_Transient_Decl): Remove ??? comment.
1087         * exp_ch6.adb (Expand_N_Extended_Return_Statement): Extend the
1088         handling of finalizable return objects to the non-BIP case.
1089         * exp_ch7.adb (Build_Finalizer.Process_Declarations): Adjust the
1090         comment accordingly.
1091         * exp_util.adb (Requires_Cleanup_Actions): Likewise.
1093 2023-09-26  Daniel King  <dmking@adacore.com>
1095         * raise-gcc.c (get_ip_from_context): Adapt for CHERI purecap
1096         (get_call_site_action_for): Adapt for CHERI purecap
1098 2023-09-26  Daniel King  <dmking@adacore.com>
1100         * libgnat/a-tags.adb (To_Tag): Use System.Storage_Elements for
1101         integer to address conversion.
1102         * libgnat/s-putima.adb (Put_Image_Pointer): Likewise.
1104 2023-09-26  Daniel King  <dmking@adacore.com>
1106         * libgnat/s-stratt__cheri.adb: New file
1108 2023-09-26  Daniel King  <dmking@adacore.com>
1110         * libgnat/i-cheri.ads (Capability_Bound_Error)
1111         (Capability_Permission_Error, Capability_Sealed_Error)
1112         (Capability_Tag_Error): New, define CHERI exception types.
1114 2023-09-26  Ronan Desplanques  <desplanques@adacore.com>
1116         * exp_prag.adb: Make minor corrections in comments.
1117         * rtsfind.ads: Remove unused element from RTU_Id definition.
1119 2023-09-26  Derek Schacht  <schacht@adacore.com>
1121         * doc/gnat_ugn/gnat_and_program_execution.rst: Add more details on
1122         using Generic Elementary Functions with dimensional analysis.
1123         * gnat_ugn.texi: Regenerate.
1125 2023-09-26  Yannick Moy  <moy@adacore.com>
1127         * exp_ch5.adb (Expand_N_Case_Statement): Reference both sections
1128         of the Ada RM that deal with case statements and case expressions
1129         to justify the insertion of a runtime check.
1131 2023-09-19  Richard Wai  <richard@annexi-strayline.com>
1133         * exp_ch3.adb (Expand_Freeze_Class_Wide_Type): Expanded comments
1134         explaining why TSS Finalize_Address is not generated for
1135         concurrent class-wide types.
1136         * exp_ch7.adb (Make_Finalize_Address_Stmts): Handle cases where the
1137         underlying non-constrained parent type is a concurrent type, and
1138         adjust the designated type to be the corresponding record’s
1139         class-wide type.
1141 2023-09-19  Richard Wai  <richard@annexi-strayline.com>
1143         * sem_ch3.adb (Build_Derived_Record_Type): Treat presence of
1144         keyword "synchronized" the same as "limited" when determining if a
1145         private extension is limited.
1147 2023-09-19  Marc Poulhiès  <poulhies@adacore.com>
1149         * gcc-interface/utils.cc (max_value): New.
1150         * gcc-interface/gigi.h (max_value): New.
1151         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Array_Subtype>:
1152         When computing gnu_min/gnu_max, try to use max_value if there is
1153         an initial expression.
1155 2023-09-19  Javier Miranda  <miranda@adacore.com>
1157         * contracts.adb
1158         (Has_Public_Visibility_Of_Subprogram): Add missing support for
1159         child subprograms.
1161 2023-09-15  Eric Botcazou  <ebotcazou@adacore.com>
1163         * gcc-interface/utils.cc (finish_record_type): Round the size in
1164         the padding case as well.
1166 2023-09-15  Piotr Trojanek  <trojanek@adacore.com>
1168         * exp_aggr.adb (Build_Array_Aggr_Code): Don't build aggregate code
1169         for null array aggregates.
1170         * sem_aggr.adb (Resolve_Array_Aggregate): Don't examine formatting
1171         of a null array aggregate.
1173 2023-09-15  Eric Botcazou  <ebotcazou@adacore.com>
1175         * inline.adb (Expand_Inlined_Call): In the case of a function call
1176         that returns an unconstrained type and initializes an object, set
1177         the No_Initialization flag on the new declaration of the object.
1179 2023-09-15  Patrick Bernardi  <bernardi@adacore.com>
1181         * exp_ch6.adb (Expand_N_Subprogram_Body): Do not perform
1182         local-exception-to- goto optimization on barrier functions.
1183         * exp_ch9.adb (Expand_Entry_Barrier): Simplify the if statement
1184         around the simple barrier optimization and remove an old, no
1185         longer relevant comment.
1187 2023-09-15  Patrick Bernardi  <bernardi@adacore.com>
1189         * bindgen.adb (Gen_Adainit): Generate restrictions when standard
1190         library is suppressed.
1191         (Gen_Output_File_Ada): Ditto.
1192         (Gen_Restrictions): Ditto.
1194 2023-09-15  Eric Botcazou  <ebotcazou@adacore.com>
1196         * exp_util.adb (Component_May_Be_Bit_Aligned): Do not return false
1197         for a small component of a record type with a variant part.
1199 2023-09-15  Eric Botcazou  <ebotcazou@adacore.com>
1201         * exp_aggr.adb (Convert_To_Assignments): In the case of a
1202         component association, call Is_Container_Aggregate on the parent's
1203         parent.
1204         (Expand_Array_Aggregate): Likewise.
1206 2023-09-15  Kévin Le Gouguec  <legouguec@adacore.com>
1208         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Remove
1209         extended discussion regarding mold run-time dependencies;
1210         packaging changes in GNAT Pro have made them obsolete.
1212 2023-09-15  Eric Botcazou  <ebotcazou@adacore.com>
1214         * sem_res.adb (Resolve_Call): When the target is an entity, do not
1215         freeze it if the current scope is the inner wrapper function built
1216         for an expression function with a Post or Refined_Post aspect.
1218 2023-09-15  Bob Duff  <duff@adacore.com>
1219             Ronan Desplanques  <desplanques@adacore.com>
1221         * atree.adb (Node_Kind_Table): Specify parameter explicitly in
1222         GNAT.Table instantiations. Use fully qualified references instead
1223         of relying on use clauses.
1224         (Get_Field_Value): Remove special case for F_Scope_Depth_Value.
1225         That is, enable the Field_Present check in that case.
1226         (It was already enabled for all other fields.) Violations of this
1227         check were already fixed.
1228         (Print_Node_Statistics): Sort the output in decreasing order of
1229         frequencies.
1230         (Print_Field_Statistics): Likewise (sort).
1231         * accessibility.adb (Accessibility_Level): Pass Allow_Alt_Model in
1232         recursive calls. Apparently, an oversight.
1233         (Innermost_Master_Scope_Depth): Need to special-case the 'Old
1234         attribute and allocators.
1235         * einfo-utils.ads (Scope_Depth): Use Scope_Kind_Id to get
1236         predicate checks.
1237         (Scope_Depth_Set): Likewise.
1238         (Scope_Depth_Default_0): Likewise.
1239         * einfo-utils.adb: As for spec.
1240         * frontend.adb (Frontend): Remove unnecessary "return;".
1241         * gen_il-types.ads (Scope_Kind): New union type.
1242         * gen_il-gen-gen_entities.adb (Scope_Kind): New union type.
1243         * sem.ads: Move "with Einfo.Entities;" from body to spec.
1244         (Scope_Stack_Entry): Declare Entity to be of Scope_Kind_Id to get
1245         predicate checks. We had previously been putting non-scopes on the
1246         scope stack; this prevents such anomalies.
1247         * sem.adb: Move "with Einfo.Entities;" from body to spec.
1248         * sem_ch8.ads: Move "with Einfo.Entities;" from body to spec. Add
1249         "with Types;".
1250         (Push_Scope): Use Scope_Kind_Id to get predicate checks.
1251         * sem_ch8.adb: Move "with Einfo.Entities;" from body to spec. Add
1252         "with Types;".
1253         (Push_Scope): Use Scope_Kind_Id to get predicate checks.
1254         (Pop_Scope): Use Scope_Kind_Id on popped entity to get predicate
1255         checks. This prevents anomalies where a scope pushed onto the
1256         stack is later mutated to a nonscope before being popped.
1257         * sem_util.ads (Find_Enclosing_Scope): Add postcondition to ensure
1258         that the enclosing scope of a node N is not the same node N.
1259         Clearly, N does not enclose itself.
1260         * sem_util.adb (Find_Enclosing_Scope): There were several bugs
1261         where Find_Enclosing_Scope(N) = N. For example, if N is an entity,
1262         then we would typically go up to its declaration, and then back
1263         down to the Defining_Entity of the declaration, which is N itself.
1264         There were other cases where Find_Enclosing_Scope of an entity
1265         disagreed with Scope. Clearly, Find_Enclosing_Scope and Scope
1266         should agree (when both are defined). Such bugs caused latent bugs
1267         in accessibility.adb related to 'Old, and fixing bugs here caused
1268         such bugs to be revealed. These are fixed by calling Scope when N
1269         is an entity.
1271 2023-09-15  Javier Miranda  <miranda@adacore.com>
1273         * accessibility.ads (Needs_Result_Accessibility_Extra_Formal):
1274         Removed.
1275         * accessibility.adb (Needs_Result_Accessibility_Level_Param):
1276         Removed.
1277         (Needs_Result_Accessibility_Extra_Formal): Removed.
1278         (Needs_Result_Accessibility_Level): Revert previous patch.
1279         * sem_ch6.adb (Parent_Subprogram): Handle function overriding an
1280         enumeration literal.
1281         (Create_Extra_Formals): Ensure that the parent subprogram has all
1282         its extra formals.
1284 2023-09-14  Yannick Moy  <moy@adacore.com>
1286         * exp_util.adb (Is_Statically_Disabled): New function to detect a
1287         "statically disabled condition which evaluates to a given value",
1288         as described in SPARK UG 7.3.2.
1289         (Kill_Dead_Code): Call the new function Is_Statically_Disabled for
1290         conditions of if statements.
1291         * exp_util.ads (Is_Statically_Disabled): New function spec.
1293 2023-09-14  Javier Miranda  <miranda@adacore.com>
1295         * exp_util.adb (Process_Record_Component): Adjust assertion on the
1296         availablity of the invariant procedure; required because the
1297         invariant procedure is built by the expander, and hence it is not
1298         available compiling generic units or when the sources have errors,
1299         since expansion is then disabled.
1301 2023-09-14  Javier Miranda  <miranda@adacore.com>
1303         * sem_util.adb (Large_Max_Size_Mutable): Protect access to
1304         attribute Is_Array_Type.
1306 2023-09-14  Javier Miranda  <miranda@adacore.com>
1308         * sem_util.adb (Is_Dependent_Component_Of_Mutable_Object): Protect
1309         access to Entity attribute and add missing code to check function
1310         selector in a prefix form call.
1312 2023-09-14  Eric Botcazou  <ebotcazou@adacore.com>
1314         * exp_ch6.adb (Expand_Ctrl_Function_Call): Also do nothing for the
1315         expression of a delta aggregate.
1317 2023-09-14  Eric Botcazou  <ebotcazou@adacore.com>
1319         * exp_util.adb (Initialized_By_Aliased_BIP_Func_Call): Make the name
1320         matching more robust.
1322 2023-09-14  Javier Miranda  <miranda@adacore.com>
1324         * sem_ch6.adb (Parent_Subprogram): Complete assertion.
1326 2023-09-05  Eric Botcazou  <ebotcazou@adacore.com>
1328         * gcc-interface/trans.cc (gnat_to_gnu): Really test Storage_Pool on
1329         the simple return statement.
1331 2023-09-05  Tom Tromey  <tromey@adacore.com>
1333         * gcc-interface/decl.cc (gnat_to_gnu_entity): Set bit-packed for
1334         constrained and unconstrained array types.
1335         * gcc-interface/misc.cc (gnat_get_array_descr_info): Examine
1336         BIT_PACKED_ARRAY_TYPE_P.
1338 2023-09-05  Piotr Trojanek  <trojanek@adacore.com>
1340         * sem_type.adb (Interface_Present_In_Ancestor): Remove guard against no
1341         list of interfaces; fix style in comments (trailing dots).
1343 2023-09-05  Piotr Trojanek  <trojanek@adacore.com>
1345         * sem_type.adb (Iface_Present_In_Ancestor): Only look at the list of
1346         interfaces for types that allow it. The guard is a high-level equivalent
1347         of the entity kinds listed in the preconditon of the Interfaces query.
1349 2023-09-05  Piotr Trojanek  <trojanek@adacore.com>
1351         * sem_type.adb (Iface_Present_In_Ancestor): Remove guard for empty list
1352         of interfaces; the following loop will work just fine without it.
1354 2023-09-05  Eric Botcazou  <ebotcazou@adacore.com>
1356         * exp_ch9.adb (Build_Protected_Entry): Move the At_End procedure
1357         from the entry body to the inner block statement.
1359 2023-09-05  Bob Duff  <duff@adacore.com>
1361         * sem_ch4.adb (Find_Component_In_Instance): Check that
1362         Declaration_Node (Par) is not Empty, as it is for itypes.
1364 2023-09-05  Ronan Desplanques  <desplanques@adacore.com>
1366         * sem_ch7.adb (Analyze_Package_Declaration): Restrict calls to
1367         `Sem_Warn.Check_References` and adjust comment accordingly.
1369 2023-09-05  Eric Botcazou  <ebotcazou@adacore.com>
1371         * freeze.adb (Freeze_Enumeration_Type): Give an error on a type with
1372         both representation clause and too large size.
1374 2023-09-05  Liaiss Merzougue  <merzougue@adacore.com>
1376         * libgnat/s-imguti.adb: Remove comment.
1378 2023-09-05  Javier Miranda  <miranda@adacore.com>
1380         * accessibility.ads (Needs_Result_Accessibility_Extra_Formal): New
1381         subprogram.
1382         * accessibility.adb (Needs_Result_Accessibility_Level_Param): New
1383         subprogram.
1384         (Needs_Result_Accessibility_Extra_Formal): New subprogram,
1385         temporarily keep the previous behavior of the frontend.
1386         * sem_ch6.adb (Create_Extra_Formals): Replace occurrences of
1387         function Needs_Result_Accessibility_Level_Param by calls to
1388         function Needs_Result_Accessibility_Extra_Formal.
1389         (Extra_Formals_OK): Ditto.
1391 2023-09-05  Alexandre Oliva  <oliva@adacore.com>
1393         * libgnat/system-vxworks-ppc-rtp-smp.ads: Add -msmp to
1394         Linker_Options pragma.
1396 2023-09-05  Javier Miranda  <miranda@adacore.com>
1398         * exp_aggr.adb (Expand_Container_Aggregate): Report warning on
1399         infinite recursion if an empty container aggregate appears in the
1400         return statement of its Empty function. Fix typo in comment.
1401         * sem_aggr.adb (Resolve_Aggregate): Resolve Ada 2022 empty
1402         aggregate that initializes a record type that has defined its
1403         container aggregate aspects.
1404         (Resolve_Iterated_Association): Protect access to attribute Etype.
1405         * sem_ch13.adb (Resolve_Aspect_Aggregate): Fix typo in comment.
1407 2023-09-05  Steve Baird  <baird@adacore.com>
1409         * sem_attr.adb (Denote_Same_Function): Handle the case where
1410         Has_Homonym (Pref_Id) returns True but Homonym (Pref_Id) returns
1411         an empty result.
1413 2023-09-05  Steve Baird  <baird@adacore.com>
1415         * sem_res.adb (Resolve_Unary_Op): In deciding whether to emit a
1416         warning about a modular type's unary minus operator being applied
1417         to an integer literal, ignore integer literals for which
1418         Comes_From_Source is False.
1420 2023-09-05  Johannes Kliemann  <kliemann@adacore.com>
1422         * libgnarl/s-taprop__qnx.adb: Implement Set_Task_Affinity.
1424 2023-09-05  Ghjuvan Lacambre  <lacambre@adacore.com>
1426         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Fix
1427         index.
1428         * gnat_ugn.texi: Regenerate.
1430 2023-09-05  Daniel King  <dmking@adacore.com>
1432         * libgnat/s-carsi8.adb: Use operations from
1433         System.Storage_Elements for address arithmetic.
1434         * libgnat/s-carun8.adb: Likewise
1435         * libgnat/s-casi128.adb: Likewise
1436         * libgnat/s-casi16.adb: Likewise
1437         * libgnat/s-casi32.adb: Likewise
1438         * libgnat/s-casi64.adb: Likewise
1439         * libgnat/s-caun128.adb: Likewise
1440         * libgnat/s-caun16.adb: Likewise
1441         * libgnat/s-caun32.adb: Likewise
1442         * libgnat/s-caun64.adb: Likewise
1443         * libgnat/s-geveop.adb: Likewise
1445 2023-09-05  Eric Botcazou  <ebotcazou@adacore.com>
1447         * sem_ch12.adb (Component_Type_For_Private_View): New function.
1448         (Check_Generic_Actuals): For an actual type parameter, also check
1449         its component type if it is an array type.
1450         (Check_Private_View): Use Component_Type_For_Private_View in the
1451         case of an array type.
1452         (Instantiate_Type): Likewise.
1453         (Save_Global_References.Set_Global_Type): Likewise.
1455 2023-09-05  Sheri Bernstein  <bernstein@adacore.com>
1457         * libgnat/s-aridou.adb: Add pragma to exempt Metrics_LSLOC.
1458         (Double_Divide): Add pragma to exempt
1459         Metrics_Cyclomatic_Complexity.
1460         (Scaled_Divide): Likewise.
1461         * libgnat/s-vauspe.ads (Uns_Option): Add pragma to exempt
1462         Discriminated_Records.
1464 2023-09-05  Ronan Desplanques  <desplanques@adacore.com>
1466         * Makefile.rtl: Add missing units.
1468 2023-09-05  Sheri Bernstein  <bernstein@adacore.com>
1470         * libgnarl/a-reatim.adb (Time_Of): Add pragma to exempt
1471         Discriminated_Records.
1472         * libgnat/s-imguti.adb (Round, Set_Decimal_Digits): Likewise.
1473         * libgnat/s-multip.adb (Number_Of_CPUs): Likewise.
1474         * libgnarl/s-tpopsp__posix-foreign.adb (Self): Refactor multiple
1475         returns.
1477 2023-09-05  Javier Miranda  <miranda@adacore.com>
1479         * sem_ch3.adb (Add_Internal_Interface_Entities): Add missing
1480         subtype-conformance check on primitives implementing interface
1481         primitives.
1482         (Error_Posted_In_Formals): New subprogram.
1484 2023-09-05  Ronan Desplanques  <desplanques@adacore.com>
1486         * libgnarl/s-tassta.adb: Tweak comment.
1488 2023-09-05  Yang Yujie  <yangyujie@loongson.cn>
1490         * Makefile.rtl: Add LoongArch support.
1491         * libgnarl/s-linux__loongarch.ads: New file.
1492         * libgnat/system-linux-loongarch.ads: New file.
1494 2023-08-07  Sheri Bernstein  <bernstein@adacore.com>
1496         * libgnat/s-parame__qnx.adb: Refactor multiple returns.
1498 2023-08-07  Piotr Trojanek  <trojanek@adacore.com>
1500         * libgnat/i-cstrin.ads (Value): Extend preconditions; adapt comment for
1501         the package.
1503 2023-08-07  Yannick Moy  <moy@adacore.com>
1505         * sem_res.adb (Resolve_Call): Always call Cannot_Inline so that
1506         subprogram called is marked as not always inlined.
1508 2023-08-07  Javier Miranda  <miranda@adacore.com>
1510         * sem_res.adb (Resolve_Type_Conversion): Do not warn on conversion
1511         to class-wide type on internally build helpers of class-wide
1512         preconditions.
1514 2023-08-03  Sheri Bernstein  <bernstein@adacore.com>
1516         * libgnat/s-aridou.adb: Add pragma to exempt Improper_Returns.
1517         * libgnat/s-atopri.adb (Lock_Free_Try_Write): Likewise.
1518         * libgnat/s-bitops.adb (Bit_Eq): Likewise.
1519         * libgnat/s-carsi8.adb: Likewise.
1520         * libgnat/s-carun8.adb: Likewise.
1521         * libgnat/s-casi16.adb: Likewise.
1522         * libgnat/s-casi32.adb: Likewise.
1523         * libgnat/s-casi64.adb: Likewise.
1524         * libgnat/s-caun16.adb: Likewise.
1525         * libgnat/s-caun32.adb: Likewise.
1526         * libgnat/s-caun64.adb: Likewise.
1527         * libgnat/s-exponn.adb: Likewise.
1528         * libgnat/s-expont.adb: Likewise.
1529         * libgnat/s-valspe.adb: Likewise.
1530         * libgnat/s-vauspe.adb: Likewise.
1532 2023-08-03  Vasiliy Fofanov  <fofanov@adacore.com>
1534         * libgnat/s-imageb.adb (Set_Image_Based_Unsigned): Rewritten.
1535         * libgnat/s-imagew.adb (Set_Image_Width_Unsigned): Likewise.
1537 2023-08-03  Eric Botcazou  <ebotcazou@adacore.com>
1539         * exp_util.adb (Make_Invariant_Call): Convert the expression to
1540         the type of the formal parameter if need be.
1542 2023-08-03  Eric Botcazou  <ebotcazou@adacore.com>
1544         * libgnat/s-dwalin.adb ("-"): New subtraction operator.
1545         (Enable_Cache): Use it to compute the offset.
1546         (Symbolic_Address): Likewise.
1548 2023-08-01  Yannick Moy  <moy@adacore.com>
1550         * repinfo.adb (Compute_Max_Length): Set parameter to print number
1551         in decimal notation.
1552         (List_Component_Layout): Same.
1554 2023-08-01  Yannick Moy  <moy@adacore.com>
1556         * inline.adb (Can_Be_Inlined_In_GNATprove_Mode): Check for
1557         Skip_Proof and Skip_Flow_And_Proof annotations for deciding
1558         whether a subprogram can be inlined.
1560 2023-08-01  Steve Baird  <baird@adacore.com>
1562         * sem_ch3.adb (Constrain_Corresponding_Record): When copying
1563         information from the unconstrained record type to a newly
1564         constructed constrained record subtype, the
1565         Direct_Primitive_Operations attribute must be copied.
1567 2023-08-01  Steve Baird  <baird@adacore.com>
1569         * sem_ch3.adb (Analyze_Component_Declaration): Remove
1570         Build_Default_Subtype_OK call and code that could only executed in
1571         the case where the removed call would have returned True. Other
1572         calls to Build_Default_Subtype_Ok are unaffected by this change.
1574 2023-08-01  Pascal Obry  <obry@adacore.com>
1576         * aspects.ads (Find_Aspect): Add Boolean parameter Or_Rep_Item
1577         (defaulted to False).
1578         * aspects.adb (Find_Aspect): If new Boolean parameter Or_Rep_Item
1579         is True, then instead of returning an empty result if no
1580         appropriate N_Aspect_Specification node is found, return an
1581         appropriate N_Attribute_Definition_Clause if one is found.
1582         * exp_put_image.ads: Change name of Enable_Put_Image function to
1583         Put_Image_Enabled.
1584         * exp_put_image.adb (Build_Record_Put_Image_Procedure): Detect the
1585         case where a call to the Put_Image procedure of a derived type can
1586         be transformed into a call to the parent type's Put_Image
1587         procedure (with a type conversion to the parent type as the actual
1588         parameter).
1589         (Put_Image_Enabled): Change name of function (previously
1590         Enable_Put_Image). Return True in more cases. In particular,
1591         return True for a type with an explicitly specified Put_Image
1592         aspect even if the type is declared in a predefined unit (or in an
1593         instance of a predefined generic unit).
1594         * exp_attr.adb: Changes due to Put_Image_Enabled function name
1595         change.
1597 2023-08-01  Yannick Moy  <moy@adacore.com>
1599         * repinfo.adb (List_Common_Type_Info): Fix output when alignment
1600         is not statically known, and fix assertion when expansion is not
1601         enabled.
1603 2023-08-01  Bob Duff  <duff@adacore.com>
1605         * atree.adb (Field_Present): New function to detect whether or not
1606         a given field is present in a given node, based on either the node
1607         kind or the entity kind as appropriate.
1608         (Get_Field_Value): Check that the field begin fetched exists.
1609         However, disable the check in the case of Scope_Depth_Value,
1610         because we have failures in that case. Those failures need to be
1611         fixed, and then the check can be enabled for all fields.
1612         (Set_Field_Value): Check that the field begin set exists.
1614 2023-08-01  Léo Creuse  <creuse@adacore.com>
1616         * par_sco.adb (Process_Decisions): Traverse all attributes of
1617         quantified expressions nodes.
1619 2023-07-28  Eric Botcazou  <ebotcazou@adacore.com>
1621         * gcc-interface/trans.cc (gnat_to_gnu): Restrict previous change to
1622         the case where the simple return statement has got no storage pool.
1624 2023-07-28  Clément Chigot  <chigot@adacore.com>
1626         * libgnarl/s-inmaop__posix.adb: Add assert after sigwait in
1627         Interrupt_Wait
1629 2023-07-28  Javier Miranda  <miranda@adacore.com>
1631         * einfo-utils.adb (Underlying_Type): Protect recursion call
1632         against non-available attribute Etype.
1633         * einfo.ads (Protected_Subprogram): Fix typo in documentation.
1634         * exp_ch3.adb (BIP_Function_Call_Id): New subprogram.
1635         (Expand_N_Object_Declaration): Improve code that evaluates if the
1636         object is initialized with a BIP function call.
1637         * exp_ch6.adb (Is_True_Build_In_Place_Function_Call): New
1638         subprogram.
1639         (Add_Task_Actuals_To_Build_In_Place_Call): Add dummy actuals if
1640         the function does not require the BIP task actuals but it is a
1641         dispatching operation that inherited them.
1642         (Build_In_Place_Formal): Improve code to avoid never-ending loop
1643         if the BIP formal is not found.
1644         (Add_Dummy_Build_In_Place_Actuals): New subprogram.
1645         (Expand_Call_Helper): Add calls to
1646         Add_Dummy_Build_In_Place_Actuals.
1647         (Expand_N_Extended_Return_Statement): Adjust assertion.
1648         (Expand_Simple_Function_Return): Adjust assertion.
1649         (Make_Build_In_Place_Call_In_Allocator): No action needed if the
1650         called function inherited the BIP extra formals but it is not a
1651         true BIP function.
1652         (Make_Build_In_Place_Call_In_Assignment): Ditto.
1653         * exp_intr.adb (Expand_Dispatching_Constructor_Call): Remove code
1654         reporting unsupported case (since this patch adds support for it).
1655         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Adding assertion
1656         to ensure matching of BIP formals when setting the
1657         Protected_Formal field of a protected subprogram to reference the
1658         corresponding extra formal of the subprogram that implements it.
1659         (Might_Need_BIP_Task_Actuals): New subprogram.
1660         (Create_Extra_Formals): Improve code adding inherited extra
1661         formals.
1663 2023-07-28  Pascal Obry  <obry@adacore.com>
1665         * s-oscons-tmplt.c: Add support for SO_BINDTODEVICE constant.
1666         * libgnat/g-socket.ads (Set_Socket_Option): Handle SO_BINDTODEVICE option.
1667         (Get_Socket_Option): Handle SO_BINDTODEVICE option.
1668         * libgnat/g-socket.adb: Likewise.
1669         (Get_Socket_Option): Handle the case where IF_NAMESIZE is not defined
1670         and so equal to -1.
1672 2023-07-28  Léo Creuse  <creuse@adacore.com>
1674         * par_sco.adb (Has_Decision): Consider that quantified expressions
1675         contain decisions.
1677 2023-07-28  Ronan Desplanques  <desplanques@adacore.com>
1679         * libgnarl/s-tposen.adb: Fix race condition. Add comment to justify
1680         the locking timing.
1682 2023-07-28  Viljar Indus  <indus@adacore.com>
1684         * exp_util.adb (Find_Optional_Prim_Op): use "No" instead of "= Empty"
1686 2023-07-28  Piotr Trojanek  <trojanek@adacore.com>
1688         * sem_res.adb (Resolve_Actuals): Add guard for the call to
1689         Class_Preconditions_Subprogram.
1691 2023-07-28  Eric Botcazou  <ebotcazou@adacore.com>
1693         * exp_aggr.adb (Is_Two_Dim_Packed_Array): Return true only if the
1694         component type of the array is scalar.
1696 2023-07-28  Piotr Trojanek  <trojanek@adacore.com>
1698         * sem_ch6.adb (Check_Statement_Sequence): Only warn about missing return
1699         statements and let GNATprove emit a check when needed.
1701 2023-07-28  Tom Tromey  <tromey@adacore.com>
1703         * fe.h (Convention): Now inline function.
1704         * gen_il-gen.adb (Put_C_Type_And_Subtypes.Put_Enum_Lit)
1705         (Put_C_Type_And_Subtypes.Put_Kind_Subtype, Put_C_Getter):
1706         Emit enum.
1707         * snames.h-tmpl (Name_Id, Name_, Attribute_Id, Attribute_)
1708         (Convention_Id, Convention_, Pragma_Id, Pragma_): Now enum.
1709         (Get_Attribute_Id, Get_Pragma_Id): Now inline functions.
1710         * types.h (Node_Kind, Entity_Kind, Convention_Id, Name_Id):
1711         Now enum.
1712         * xsnamest.adb (Output_Header_Line, Make_Value): Emit enum.
1714 2023-07-28  Piotr Trojanek  <trojanek@adacore.com>
1716         * libgnat/a-except.ads (Save_Occurrence): Fix typo.
1718 2023-07-28  Piotr Trojanek  <trojanek@adacore.com>
1720         * einfo-utils.adb (Number_Formals): Change types in body.
1721         * einfo-utils.ads (Number_Formals): Change type in spec.
1722         * einfo.ads (Number_Formals): Change type in comment.
1723         * sem_ch13.adb (Is_Property_Function): Fix style in a caller of
1724         Number_Formals that was likely to crash because of missing guards.
1726 2023-07-28  Piotr Trojanek  <trojanek@adacore.com>
1728         * sem_warn.adb (Check_Infinite_Loop_Warning): Don't look at the type of
1729         actual parameter when it has no type at all, e.g. because the entire
1730         subprogram call is illegal.
1732 2023-07-18  Tom Tromey  <tromey@adacore.com>
1734         * gcc-interface/decl.cc (check_ok_for_atomic_type): Use Pragma_Id.
1735         * gcc-interface/trans.cc (lvalue_required_p, Pragma_to_gnu): Use
1736         Pragma_Id.
1737         (get_type_length, Attribute_to_gnu, get_atomic_access): Use
1738         Attribute_Id.
1740 2023-07-18  Javier Miranda  <miranda@adacore.com>
1742         * exp_imgv.adb (Rewrite_Object_Image): fix type of formal. Found
1743         reading sources.
1744         (Expand_Wide_Image_Attribute): ditto.
1745         (Expand_Wide_Wide_Image_Attribute): ditto.
1746         (Rewrite_Object_Image): ditto.
1747         * exp_put_image.adb (Build_Image_Call): For class-wide interface
1748         type prefix generate code to displace the pointer to the object to
1749         reference the base of the underlying object.
1751 2023-07-18  Viljar Indus  <indus@adacore.com>
1753         * sem_aggr.adb (Resolve_Iterated_Association): Add temporary scope
1754         when analyzing the Iterator Specification. Use preanalysis instead
1755         of Analysis to avoid polluting the tree.
1757 2023-07-18  Viljar Indus  <indus@adacore.com>
1759         * sem_aggr.adb (Resolve_Iterated_Association): Use the element
1760         type for the iterator in a container aggregate with an iterator
1761         specification.
1763 2023-07-18  Viljar Indus  <indus@adacore.com>
1765         * exp_aggr.adb (Expand_Container_Aggregate): Use the positional
1766         addition method only when dealing with a container aggregate
1767         without an Iterator Specification e.g. with a loop parameter
1768         specification
1770 2023-07-18  Eric Botcazou  <ebotcazou@adacore.com>
1772         * sem_util.ads (Wrong_Type): Add Multiple parameter defaulting to
1773         False and document it.
1774         * sem_util.adb (Wrong_Type): Do not return early if an error has
1775         already been posted on Expr and Multiple is True.
1776         * sem_ch4.adb (Analyze_One_Call): Pass All_Errors_Mode as the
1777         actual parameter for Multiple to Wrong_Type.
1779 2023-07-18  Javier Miranda  <miranda@adacore.com>
1781         * exp_disp.adb (Has_Dispatching_Constructor_Call): Removed.
1782         (Expand_Interface_Conversion): Reverse patch.
1784 2023-07-18  Ronan Desplanques  <desplanques@adacore.com>
1786         * libgnarl/s-taprop__linux.adb (Set_Task_Affinity, Create_Task): Tweak
1787         handling of CPU affinities.
1789 2023-07-18  Eric Botcazou  <ebotcazou@adacore.com>
1791         * sem_type.ads (Is_Ancestor): Remove mention of tagged type.
1792         * exp_aggr.adb: Add with and use clauses for Sem_Type.
1793         (Build_Record_Aggr_Code.Replace_Type): Call Is_Ancestor to spot
1794         self-references to the type of the aggregate.
1795         * sem_aggr.adb (Resolve_Record_Aggregate.Add_Discriminant_Values):
1796         Likewise.
1798 2023-07-18  Eric Botcazou  <ebotcazou@adacore.com>
1800         * sem_ch13.adb (Replace_Type_References_Generic.Visible_Component):
1801         In the case of private discriminated types, explicitly check that we
1802         have a private declaration before examining its discriminant part.
1804 2023-07-18  Alexandre Oliva  <oliva@adacore.com>
1806         * libgnat/a-except.ads (Raise_Exception): Mark expected_throw.
1807         (Reraise_Occurrence): Likewise.
1808         (Raise_Exception_Always): Likewise.
1809         (Raise_From_Controlled_Operation): Likewise.
1810         (Reraise_Occurrence_Always): Likewise.
1811         (Reraise_Occurrence_No_Defer): Likewise.
1812         * libgnat/a-except.adb
1813         (Exception_Propagation.Propagate_Exception): Likewise.
1814         (Complete_And_Propagate_Occurrence): Likewise.
1815         (Raise_Exception_No_Defer): Likewise.
1816         (Raise_From_Signal_Handler): Likewise.
1817         (Raise_With_Msg): Likewise.
1818         (Raise_With_Location_And_Msg): Likewise.
1819         (Raise_Constraint_Error): Likewise.
1820         (Raise_Constraint_Error_Msg): Likewise.
1821         (Raise_Program_Error): Likewise.
1822         (Raise_Program_Error_Msg): Likewise.
1823         (Raise_Storage_Error): Likewise.
1824         (Raise_Storage_Error_Msg): Likewise.
1825         (Reraise, Rcheck_*): Likewise.
1826         * doc/gnat_rm/security_hardening_features.rst (Control Flow
1827         Hardening): Note the influence of expected_throw.
1828         * gnat_rm.texi: Regenerate.
1829         * gnat_ugn.texi: Regenerate.
1830         * gcc-interface/utils.cc (handle_expected_throw_attribute): New.
1831         (gnat_internal_attribute_table): Add expected_throw.
1833 2023-07-18  Vasiliy Fofanov  <fofanov@adacore.com>
1835         * libgnat/s-pack03.adb: Update copyright year; refactor return statements.
1836         * libgnat/s-pack05.adb: Likewise.
1837         * libgnat/s-pack06.adb: Likewise.
1838         * libgnat/s-pack07.adb: Likewise.
1839         * libgnat/s-pack09.adb: Likewise.
1840         * libgnat/s-pack10.adb: Likewise.
1841         * libgnat/s-pack100.adb: Likewise.
1842         * libgnat/s-pack101.adb: Likewise.
1843         * libgnat/s-pack102.adb: Likewise.
1844         * libgnat/s-pack103.adb: Likewise.
1845         * libgnat/s-pack104.adb: Likewise.
1846         * libgnat/s-pack105.adb: Likewise.
1847         * libgnat/s-pack106.adb: Likewise.
1848         * libgnat/s-pack107.adb: Likewise.
1849         * libgnat/s-pack108.adb: Likewise.
1850         * libgnat/s-pack109.adb: Likewise.
1851         * libgnat/s-pack11.adb: Likewise.
1852         * libgnat/s-pack110.adb: Likewise.
1853         * libgnat/s-pack111.adb: Likewise.
1854         * libgnat/s-pack112.adb: Likewise.
1855         * libgnat/s-pack113.adb: Likewise.
1856         * libgnat/s-pack114.adb: Likewise.
1857         * libgnat/s-pack115.adb: Likewise.
1858         * libgnat/s-pack116.adb: Likewise.
1859         * libgnat/s-pack117.adb: Likewise.
1860         * libgnat/s-pack118.adb: Likewise.
1861         * libgnat/s-pack119.adb: Likewise.
1862         * libgnat/s-pack12.adb: Likewise.
1863         * libgnat/s-pack120.adb: Likewise.
1864         * libgnat/s-pack121.adb: Likewise.
1865         * libgnat/s-pack122.adb: Likewise.
1866         * libgnat/s-pack123.adb: Likewise.
1867         * libgnat/s-pack124.adb: Likewise.
1868         * libgnat/s-pack125.adb: Likewise.
1869         * libgnat/s-pack126.adb: Likewise.
1870         * libgnat/s-pack127.adb: Likewise.
1871         * libgnat/s-pack13.adb: Likewise.
1872         * libgnat/s-pack14.adb: Likewise.
1873         * libgnat/s-pack15.adb: Likewise.
1874         * libgnat/s-pack17.adb: Likewise.
1875         * libgnat/s-pack18.adb: Likewise.
1876         * libgnat/s-pack19.adb: Likewise.
1877         * libgnat/s-pack20.adb: Likewise.
1878         * libgnat/s-pack21.adb: Likewise.
1879         * libgnat/s-pack22.adb: Likewise.
1880         * libgnat/s-pack23.adb: Likewise.
1881         * libgnat/s-pack24.adb: Likewise.
1882         * libgnat/s-pack25.adb: Likewise.
1883         * libgnat/s-pack26.adb: Likewise.
1884         * libgnat/s-pack27.adb: Likewise.
1885         * libgnat/s-pack28.adb: Likewise.
1886         * libgnat/s-pack29.adb: Likewise.
1887         * libgnat/s-pack30.adb: Likewise.
1888         * libgnat/s-pack31.adb: Likewise.
1889         * libgnat/s-pack33.adb: Likewise.
1890         * libgnat/s-pack34.adb: Likewise.
1891         * libgnat/s-pack35.adb: Likewise.
1892         * libgnat/s-pack36.adb: Likewise.
1893         * libgnat/s-pack37.adb: Likewise.
1894         * libgnat/s-pack38.adb: Likewise.
1895         * libgnat/s-pack39.adb: Likewise.
1896         * libgnat/s-pack40.adb: Likewise.
1897         * libgnat/s-pack41.adb: Likewise.
1898         * libgnat/s-pack42.adb: Likewise.
1899         * libgnat/s-pack43.adb: Likewise.
1900         * libgnat/s-pack44.adb: Likewise.
1901         * libgnat/s-pack45.adb: Likewise.
1902         * libgnat/s-pack46.adb: Likewise.
1903         * libgnat/s-pack47.adb: Likewise.
1904         * libgnat/s-pack48.adb: Likewise.
1905         * libgnat/s-pack49.adb: Likewise.
1906         * libgnat/s-pack50.adb: Likewise.
1907         * libgnat/s-pack51.adb: Likewise.
1908         * libgnat/s-pack52.adb: Likewise.
1909         * libgnat/s-pack53.adb: Likewise.
1910         * libgnat/s-pack54.adb: Likewise.
1911         * libgnat/s-pack55.adb: Likewise.
1912         * libgnat/s-pack56.adb: Likewise.
1913         * libgnat/s-pack57.adb: Likewise.
1914         * libgnat/s-pack58.adb: Likewise.
1915         * libgnat/s-pack59.adb: Likewise.
1916         * libgnat/s-pack60.adb: Likewise.
1917         * libgnat/s-pack61.adb: Likewise.
1918         * libgnat/s-pack62.adb: Likewise.
1919         * libgnat/s-pack63.adb: Likewise.
1920         * libgnat/s-pack65.adb: Likewise.
1921         * libgnat/s-pack66.adb: Likewise.
1922         * libgnat/s-pack67.adb: Likewise.
1923         * libgnat/s-pack68.adb: Likewise.
1924         * libgnat/s-pack69.adb: Likewise.
1925         * libgnat/s-pack70.adb: Likewise.
1926         * libgnat/s-pack71.adb: Likewise.
1927         * libgnat/s-pack72.adb: Likewise.
1928         * libgnat/s-pack73.adb: Likewise.
1929         * libgnat/s-pack74.adb: Likewise.
1930         * libgnat/s-pack75.adb: Likewise.
1931         * libgnat/s-pack76.adb: Likewise.
1932         * libgnat/s-pack77.adb: Likewise.
1933         * libgnat/s-pack78.adb: Likewise.
1934         * libgnat/s-pack79.adb: Likewise.
1935         * libgnat/s-pack80.adb: Likewise.
1936         * libgnat/s-pack81.adb: Likewise.
1937         * libgnat/s-pack82.adb: Likewise.
1938         * libgnat/s-pack83.adb: Likewise.
1939         * libgnat/s-pack84.adb: Likewise.
1940         * libgnat/s-pack85.adb: Likewise.
1941         * libgnat/s-pack86.adb: Likewise.
1942         * libgnat/s-pack87.adb: Likewise.
1943         * libgnat/s-pack88.adb: Likewise.
1944         * libgnat/s-pack89.adb: Likewise.
1945         * libgnat/s-pack90.adb: Likewise.
1946         * libgnat/s-pack91.adb: Likewise.
1947         * libgnat/s-pack92.adb: Likewise.
1948         * libgnat/s-pack93.adb: Likewise.
1949         * libgnat/s-pack94.adb: Likewise.
1950         * libgnat/s-pack95.adb: Likewise.
1951         * libgnat/s-pack96.adb: Likewise.
1952         * libgnat/s-pack97.adb: Likewise.
1953         * libgnat/s-pack98.adb: Likewise.
1954         * libgnat/s-pack99.adb: Likewise.
1956 2023-07-18  Yannick Moy  <moy@adacore.com>
1958         * errout.adb (Error_Msg_Internal): Remove call to
1959         Prescan_Message on the special continuation for the explain code
1960         command, as this does not play well with the setting of global
1961         variables for the message (like its status as a warning or not).
1962         Instead, set directly the global variables regarding content of
1963         the message in terms of special characters.
1965 2023-07-18  Eric Botcazou  <ebotcazou@adacore.com>
1967         * sem_util.ads (Validated_View): Document enhanced behavior.
1968         * sem_util.adb (Validated_View): Return the nonlimited view, if any,
1969         of types coming from a limited with.
1971 2023-07-11  Bob Duff  <duff@adacore.com>
1973         * exp_ch3.adb (Expand_N_Object_Declaration): Avoid transforming to
1974         a renaming in case of constrained array that comes from source.
1976 2023-07-11  Eric Botcazou  <ebotcazou@adacore.com>
1978         * sem_ch13.adb (Replace_Type_References_Generic.Visible_Component):
1979         In the case of private discriminated types, return a discriminant
1980         only if it is listed in the discriminant part of the declaration.
1982 2023-07-10  Eric Botcazou  <ebotcazou@adacore.com>
1984         * adaint.c [_WIN32]: Undefine 'abort' macro.
1986 2023-07-10  Tom Tromey  <tromey@adacore.com>
1988         * snames.h-tmpl (Name_Id, Attribute_Id, Convention_Id)
1989         (Pragma_Id): New typedefs.
1990         (Get_Attribute_Id, Get_Pragma_Id): Use typedef.
1992 2023-07-10  Yannick Moy  <moy@adacore.com>
1994         * libgnat/s-aridou.adb (Lemma_Powers_Of_2_Commutation): Rewrite
1995         assertion.
1997 2023-07-10  Bob Duff  <duff@adacore.com>
1999         * doc/gnat_rm/gnat_language_extensions.rst
2000         (Local Declarations Without Block): Document the feature very
2001         briefly, and refer the reader to the RFC for details and examples.
2002         * gnat_rm.texi: Regenerate.
2003         * gnat_ugn.texi: Regenerate.
2005 2023-07-10  Alexandre Oliva  <oliva@adacore.com>
2007         * doc/gnat_rm/security_hardening_features.rst (Control Flow
2008         Hardening): Document -fhardcfr-skip-leaf.
2009         * gnat_rm.texi: Regenerate.
2011 2023-07-10  Alexandre Oliva  <oliva@adacore.com>
2013         * doc/gnat_rm/security_hardening_features.rst (Control Flow
2014         Redundancy): Add -fhardcfr-check-noreturn-calls=no-xthrow.
2015         * gnat_rm.texi: Regenerate.
2017 2023-07-10  Yannick Moy  <moy@adacore.com>
2019         * libgnat/s-aridou.adb (Lemma_Div_Mult): New simple lemma.
2020         (Lemma_Powers_Of_2_Commutation): State post in else branch.
2021         (Lemma_Div_Pow2): Introduce local lemma and use it.
2022         (Scaled_Divide): Use cut operations in assertions, lemmas, new
2023         assertions. Introduce local lemma and use it.
2025 2023-07-10  Alexandre Oliva  <oliva@adacore.com>
2027         * doc/gnat_rm/security_hardening_features.rst (Register
2028         Scrubbing): Document leafy mode.
2029         * gnat_rm.texi: Regenerate.
2031 2023-07-06  Claire Dross  <dross@adacore.com>
2033         * gcc-interface/Make-lang.in: Add object files of specification
2034         files.
2036 2023-07-06  Claire Dross  <dross@adacore.com>
2038         * libgnat/s-vs_int.ads: Instance of Value_I_Spec for Integer.
2039         * libgnat/s-vs_lli.ads: Instance of Value_I_Spec for
2040         Long_Long_Integer.
2041         * libgnat/s-vsllli.ads: Instance of Value_I_Spec for
2042         Long_Long_Long_Integer.
2043         * libgnat/s-vs_uns.ads: Instance of Value_U_Spec for Unsigned.
2044         * libgnat/s-vs_llu.ads: Instance of Value_U_Spec for
2045         Long_Long_Unsigned.
2046         * libgnat/s-vslllu.ads: Instance of Value_U_Spec for
2047         Long_Long_Long_Unsigned.
2048         * libgnat/s-imagei.ads: Take instances of Value_*_Spec as
2049         parameters.
2050         * libgnat/s-imagei.adb: Idem.
2051         * libgnat/s-imageu.ads: Idem.
2052         * libgnat/s-imageu.adb: Idem.
2053         * libgnat/s-valuei.ads: Idem.
2054         * libgnat/s-valuei.adb: Idem.
2055         * libgnat/s-valueu.ads: Idem.
2056         * libgnat/s-valueu.adb: Idem.
2057         * libgnat/s-imgint.ads: Adapt instance to new ghost parameters.
2058         * libgnat/s-imglli.ads: Adapt instance to new ghost parameters.
2059         * libgnat/s-imgllli.ads: Adapt instance to new ghost parameters.
2060         * libgnat/s-imglllu.ads: Adapt instance to new ghost parameters.
2061         * libgnat/s-imgllu.ads: Adapt instance to new ghost parameters.
2062         * libgnat/s-imguns.ads: Adapt instance to new ghost parameters.
2063         * libgnat/s-valint.ads: Adapt instance to new ghost parameters.
2064         * libgnat/s-vallli.ads: Adapt instance to new ghost parameters.
2065         * libgnat/s-valllli.ads: Adapt instance to new ghost parameters.
2066         * libgnat/s-vallllu.ads: Adapt instance to new ghost parameters.
2067         * libgnat/s-valllu.ads: Adapt instance to new ghost parameters.
2068         * libgnat/s-valuns.ads: Adapt instance to new ghost parameters.
2069         * libgnat/s-vaispe.ads: Take instance of Value_U_Spec as parameter
2070         and remove unused declaration.
2071         * libgnat/s-vaispe.adb: Idem.
2072         * libgnat/s-vauspe.ads: Remove unused declaration.
2073         * libgnat/s-valspe.ads: Factor out the specification part of
2074         Val_Util.
2075         * libgnat/s-valspe.adb: Idem.
2076         * libgnat/s-valuti.ads: Move specification to Val_Spec.
2077         * libgnat/s-valuti.adb: Idem.
2078         * libgnat/s-valboo.ads: Use Val_Spec.
2079         * libgnat/s-valboo.adb: Idem.
2080         * libgnat/s-imgboo.adb: Idem.
2081         * libgnat/s-imagef.adb: Adapt instances to new ghost parameters.
2082         * Makefile.rtl: List new files.
2084 2023-07-06  Viljar Indus  <indus@adacore.com>
2086         * sem_attr.adb (analyze_attribute.check_array_type): Replace valid
2087         indexes with their staticly evaluated values.
2089 2023-07-06  Viljar Indus  <indus@adacore.com>
2091         * doc/gnat_ugn/the_gnat_compilation_model.rst: Reference "Binding
2092         with Non-Ada Main Programs" from "Creating a Stand-alone Library
2093         to be used in a non-Ada context".
2094         * gnat_ugn.texi: Regenerate.
2096 2023-07-06  Viljar Indus  <indus@adacore.com>
2098         * sem_util.adb (Is_Fully_Initialized_Type): Avoid recalculating
2099         the underlying type twice.
2101 2023-07-06  Viljar Indus  <indus@adacore.com>
2103         * exp_util.adb (Find_Optional_Prim_Op): Stop deriving primitive
2104         operation if there is no underlying type to derive it from.
2106 2023-07-06  Yannick Moy  <moy@adacore.com>
2108         * errout.ads: Add explain code.
2109         * sem_prag.adb (Check_Library_Level_Entity): Refine error message
2110         and add explain code.
2112 2023-07-06  Steve Baird  <baird@adacore.com>
2114         * exp_ch7.adb (Make_Final_Call): Add assertion that if no
2115         finalization call is generated, then the type of the object being
2116         finalized does not require finalization.
2117         * freeze.adb (Freeze_Entity): If freezing an already-frozen
2118         subtype, do not assume that nothing needs to be done. In the case
2119         of a frozen subtype of a non-frozen type or subtype (which is
2120         possible), freeze the non-frozen entity.
2122 2023-07-04  Eric Botcazou  <ebotcazou@adacore.com>
2124         * exp_ch5.adb (Expand_Assign_Array): Adjust comment above the
2125         calls to Possible_Bit_Aligned_Component on the LHS and RHS. Do not
2126         call Is_Possibly_Unaligned_Slice in the slice case.
2127         * exp_util.ads (Component_May_Be_Bit_Aligned): Add For_Slice
2128         boolean parameter.
2129         (Possible_Bit_Aligned_Component): Likewise.
2130         * exp_util.adb (Component_May_Be_Bit_Aligned): Do not return False
2131         for the slice of a small record or bit-packed array component.
2132         (Possible_Bit_Aligned_Component): Pass For_Slice in recursive
2133         calls, except in the slice case where True is passed, as well as
2134         in call to Component_May_Be_Bit_Aligned.
2136 2023-07-04  Eric Botcazou  <ebotcazou@adacore.com>
2138         * exp_ch4.ads (Expand_Unchecked_Union_Equality): Only take a
2139         single parameter.
2140         * exp_ch4.adb (Expand_Unchecked_Union_Equality): Add guard against
2141         repeated invocation on the same node.
2142         * exp_ch6.adb (Expand_Call): Only pass a single actual parameter
2143         in the call to Expand_Unchecked_Union_Equality.
2145 2023-07-04  Viljar Indus  <indus@adacore.com>
2147         * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst:
2148         add No_Use_Of_Attribute & No_Use_Of_Pragma restrictions.
2149         * gnat_rm.texi: Regenerate.
2150         * gnat_ugn.texi: Regenerate.
2152 2023-07-04  Yannick Moy  <moy@adacore.com>
2154         * sem_disp.adb (Inherited_Subprograms): Add parameter to filter
2155         out results.
2156         * sem_disp.ads: Likewise.
2158 2023-07-03  Eric Botcazou  <ebotcazou@adacore.com>
2160         * exp_ch3.ads (Build_Variant_Record_Equality): Add Spec_Id as second
2161         parameter.
2162         * exp_ch3.adb (Build_Variant_Record_Equality): For unchecked union
2163         types, build the additional parameters as extra formal parameters.
2164         (Expand_Freeze_Record_Type.Build_Variant_Record_Equality): Pass
2165         Empty as Spec_Id in call to Build_Variant_Record_Equality.
2166         * exp_ch4.ads (Expand_Unchecked_Union_Equality): New procedure.
2167         * exp_ch4.adb (Expand_Composite_Equality): In the presence of a
2168         function implementing composite equality, do not special case the
2169         unchecked union types, and only convert the operands if the base
2170         types are not the same like in Build_Equality_Call.
2171         (Build_Equality_Call): Do not special case the unchecked union types
2172         and relocate the operands only once.
2173         (Expand_N_Op_Eq): Do not special case the unchecked union types.
2174         (Expand_Unchecked_Union_Equality): New procedure implementing the
2175         specific expansion of calls to the predefined equality function.
2176         * exp_ch6.adb (Is_Unchecked_Union_Equality): New predicate.
2177         (Expand_Call): Call Is_Unchecked_Union_Equality to determine whether
2178         to call Expand_Unchecked_Union_Equality or Expand_Call_Helper.
2179         * exp_ch8.adb (Build_Body_For_Renaming): Set Has_Delayed_Freeze flag
2180         earlier on Id and pass Id in call to Build_Variant_Record_Equality.
2182 2023-07-03  Eric Botcazou  <ebotcazou@adacore.com>
2184         * exp_ch3.adb (Build_Untagged_Equality): Rename into...
2185         (Build_Untagged_Record_Equality): ...this.
2186         (Expand_Freeze_Record_Type): Adjust to above renaming and invoke
2187         the procedure also for discriminated types without a variant part.
2189 2023-07-03  Eric Botcazou  <ebotcazou@adacore.com>
2191         * sem_util.adb (Has_Inferable_Discriminants): In the case of a
2192         component with a per-object constraint, also return true if the
2193         enclosing object is not of an unchecked union type.
2194         In the default case, remove a useless call to Base_Type.
2196 2023-06-29  Richard Sandiford  <richard.sandiford@arm.com>
2198         * gcc-interface/decl.cc (gt_pch_nx): Remove overloads for Entity_Id.
2200 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2202         * gcc-interface/Makefile.in (LIBIBERTY): Fix condition.
2203         (TOOLS_LIBS): Add @LD_PICFLAG@.
2205 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2207         * gcc-interface/trans.cc (Subprogram_Body_to_gnu): Add guard to the
2208         code turning the type of the RESULT_DECL into a reference type.
2209         (maybe_make_gnu_thunk): Use a more precise guard in the same case.
2211 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2213         * gcc-interface/trans.cc (Case_Statement_to_gnu): Rename boolean
2214         constant and use From_Conditional_Expression flag for its value.
2216 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2218         * debug.adb (d.L): Remove documentation.
2219         * exp_ch4.adb (Expand_N_Case_Expression): In the not-by-copy case,
2220         do not wrap the case statement in an Expression_With_Actions node.
2221         (Expand_N_If_Expression): Do not test
2222         Back_End_Handles_Limited_Types
2223         * gnat1drv.adb (Adjust_Global_Switches): Do not set it.
2224         * opt.ads (Back_End_Handles_Limited_Types): Delete.
2226 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2228         * sem_ch12.adb (Check_Generic_Actuals): Check the component type
2229         of constants and variables of an array type.
2230         (Copy_Generic_Node): Fix bogus handling of iterator
2231         specifications.
2233 2023-06-27  Claire Dross  <dross@adacore.com>
2235         * libgnat/a-textio.ads (Get_Line): Use Relaxed_Initialization on
2236         the Item parameter of Get_Line.
2238 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2240         * exp_ch4.adb (Expand_N_Quantified_Expression): Revert the latest
2241         change as it is subsumed by the machinery in Sem_Ch5.
2242         * sem_ch5.adb (Prepare_Iterator_Loop): Also wrap the loop
2243         statement in a block in the name contains a function call that
2244         returns on the secondary stack.
2246 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2248         * sem_ch12.adb (Scope_Within_Body_Or_Same): New predicate.
2249         (Check_Actual_Type): Take into account packages nested in bodies
2250         to compute the enclosing scope by means of
2251         Scope_Within_Body_Or_Same.
2253 2023-06-27  Eric Botcazou  <ebotcazou@adacore.com>
2255         * sem_ch12.adb (Check_Private_View): Also check the type of
2256         visible discriminants in record and concurrent types.
2258 2023-06-27  Viljar Indus  <indus@adacore.com>
2260         * sprint.adb (Print_Node_Actual): Print homogeneous N_Aggregate
2261         nodes with brackets.
2263 2023-06-27  Viljar Indus  <indus@adacore.com>
2265         * exp_aggr.adb (Expand_N_Aggregate): Ensure that container
2266         aggregate expressions do not get expanded as records but instead
2267         as container aggregates.
2269 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2271         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Variable>: Pass
2272         the NULL_TREE explicitly and test imported_p in lieu of
2273         Is_Imported. <E_Function>: Remove public_flag local variable and
2274         make extern_flag local variable a constant.
2276 2023-06-20  Yannick Moy  <moy@adacore.com>
2278         * sem_res.adb (Resolve_Call): Fix change that replaced test for
2279         quantified expressions by the test for potentially unevaluated
2280         contexts. Both should be performed.
2282 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2284         * exp_ch7.adb (Convert_View): Detect more cases of mismatches for
2285         private types and use Implementation_Base_Type as main criterion.
2286         * gen_il-fields.ads (Opt_Field_Enum): Add
2287         Has_Secondary_Private_View
2288         * gen_il-gen-gen_nodes.adb (N_Expanded_Name): Likewise.
2289         (N_Direct_Name): Likewise.
2290         (N_Op): Likewise.
2291         * sem_ch12.ads (Check_Private_View): Document the usage of second
2292         flag Has_Secondary_Private_View.
2293         * sem_ch12.adb (Get_Associated_Entity): New function to retrieve
2294         the ultimate associated entity, if any.
2295         (Check_Private_View): Implement Has_Secondary_Private_View
2296         support.
2297         (Copy_Generic_Node): Remove specific treatment for Component_Type
2298         of an array type and Designated_Type of an access type. Add
2299         specific treatment for comparison and equality operators, as well
2300         as iterator and loop parameter specifications.
2301         (Instantiate_Type): Implement Has_Secondary_Private_View support.
2302         (Requires_Delayed_Save): Call Get_Associated_Entity.
2303         (Set_Global_Type): Implement Has_Secondary_Private_View support.
2304         * sem_ch6.adb (Conforming_Types): Remove bypass for private views
2305         in instances.
2306         * sem_type.adb (Covers): Return true if Is_Subtype_Of does so.
2307         Remove bypass for private views in instances.
2308         (Specific_Type): Likewise.
2309         * sem_util.adb (Wrong_Type): Likewise.
2310         * sinfo.ads (Has_Secondary_Private_View): Document new flag.
2312 2023-06-20  Ronan Desplanques  <desplanques@adacore.com>
2314         * libgnarl/s-mudido.ads: Remove outdated comment.
2316 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2318         * doc/gnat_ugn/gnat_and_program_execution.rst (Overflows in GNAT)
2319         <Default Settings>: Remove obsolete paragraph about -gnato.
2320         <Implementation Notes>: Replace CHECKED with STRICT.
2321         * gnat_ugn.texi: Regenerate.
2323 2023-06-20  Yannick Moy  <moy@adacore.com>
2325         * sem_util.adb (Check_Result_And_Post_State): Do not warn in cases
2326         where the warning could be spurious.
2328 2023-06-20  Yannick Moy  <moy@adacore.com>
2330         * err_vars.ads (Error_Msg_Code): New variable for error codes.
2331         * errout.adb (Error_Msg_Internal): Display continuation message
2332         when an error code was present.
2333         (Set_Msg_Text): Handle character sequence [] for error codes.
2334         * errout.ads: Document new insertion sequence [].
2335         (Error_Msg_Code): New renaming.
2336         * erroutc.adb (Prescan_Message): Detect presence of error code.
2337         (Set_Msg_Insertion_Code): Handle new insertion sequence [].
2338         * erroutc.ads (Has_Error_Code): New variable for prescan.
2339         (Set_Msg_Insertion_Code): Handle new insertion sequence [].
2340         * contracts.adb (Check_Type_Or_Object_External_Properties):
2341         Replace reference to SPARK RM section by an error code.
2342         * sem_elab.adb (SPARK_Processor): Same.
2343         * sem_prag.adb (Check_Missing_Part_Of): Same.
2344         * sem_res.adb (Resolve_Actuals, Resolve_Entity_Name): Same.
2346 2023-06-20  Piotr Trojanek  <trojanek@adacore.com>
2348         * sem_res.adb (Resolve_Entity_Name): Handle Range like First and Last.
2350 2023-06-20  Jose Ruiz  <ruiz@adacore.com>
2352         * doc/gnat_ugn/the_gnat_compilation_model.rst
2353         (Partition-Wide Settings): add this subsection to document
2354         configuration settings made by the Ada run time.
2355         * gnat_ugn.texi: Regenerate.
2357 2023-06-20  Piotr Trojanek  <trojanek@adacore.com>
2359         * sem_res.adb (Resolve_Entity_Name): Ignore implicit loop scopes
2360         introduced by quantified expressions.
2362 2023-06-20  Bob Duff  <duff@adacore.com>
2364         * sem_ch3.adb (Analyze_Object_Declaration): Remove predicate-check
2365         generation if there is an address clause. These are unnecessary,
2366         and cause gigi to crash.
2367         * exp_util.ads (Following_Address_Clause): Remove obsolete "???"
2368         comments. The suggested changes were done long ago.
2370 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2372         * einfo.ads (Has_Private_Ancestor): Fix inaccuracy in description.
2373         * sem_ch12.adb (Check_Actual_Type): Do not switch the view of the
2374         type if it has a private ancestor.
2376 2023-06-20  Daniel King  <dmking@adacore.com>
2378         * libgnat/i-cheri.ads: Add CHERI intrinsics and helper functions.
2379         * libgnat/i-cheri.adb: Likewise
2381 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2383         * exp_ch7.adb (Convert_View): Remove Ind parameter and adjust.
2384         * sem_ch12.adb (Check_Generic_Actuals): Check the type of both in
2385         and in out actual objects, as well as the type of formal parameters
2386         of actual subprograms.  Extend the condition under which the views
2387         are swapped to nested generic constructs.
2388         (Save_References_In_Identifier): Call Set_Global_Type on a global
2389         identifier rewritten as an explicit dereference, either directly
2390         or after having first been rewritten as a function call.
2391         (Save_References_In_Operator): Set N2 unconditionally and reuse it.
2392         * sem_ch3.adb (Build_Derived_Record_Type): Add missing comment.
2393         * sem_res.adb (Resolve_Implicit_Dereference): Remove special bypass
2394         for private views in instances.
2396 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2398         * exp_aggr.adb (Convert_To_Assignments): Tweak comment.
2399         (Expand_Array_Aggregate): Do not delay the expansion if the parent
2400         node is a container aggregate.
2402 2023-06-20  Ghjuvan Lacambre  <lacambre@adacore.com>
2404         * errout.adb (Output_Messages): Fix loop termination condition.
2406 2023-06-20  Eric Botcazou  <ebotcazou@adacore.com>
2408         * doc/gnat_ugn/building_executable_programs_with_gnat.rst (Compiler
2409         Switches): Document -gnateH.
2410         * opt.ads (Reverse_Bit_Order_Threshold): New variable.
2411         * sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order): Use its value
2412         if it is nonnegative instead of System_Max_Integer_Size.
2413         * switch-c.adb (Scan_Front_End_Switches): Deal with -gnateH.
2414         * usage.adb (Usage): Print -gnateH.
2415         * gnat_ugn.texi: Regenerate.
2417 2023-06-20  Yannick Moy  <moy@adacore.com>
2419         * libgnat/s-aridou.adb (Scaled_Divide): Add assertions.
2420         * libgnat/s-valuti.adb: Add Loop_Variant.
2421         * libgnat/s-valuti.ads: Add Exceptional_Cases on No_Return
2422         procedure.
2424 2023-06-20  Marc Poulhiès  <poulhies@adacore.com>
2426         * sem_ch3.adb (Build_Derived_Record_Type): Use full view as
2427         Parent_Base if needed.
2429 2023-06-20  Ghjuvan Lacambre  <lacambre@adacore.com>
2431         * lib-load.adb (Load_Unit): Pass Error_Node to calls to Error_Msg.
2433 2023-06-20  Claire Dross  <dross@adacore.com>
2435         * libgnat/a-strfix.ads: Replace Might_Not_Return annotations by
2436         Exceptional_Cases and Always_Terminates aspects.
2437         * libgnat/a-tideio.ads: Idem.
2438         * libgnat/a-tienio.ads: Idem.
2439         * libgnat/a-tifiio.ads: Idem.
2440         * libgnat/a-tiflio.ads: Idem.
2441         * libgnat/a-tiinio.ads: Idem.
2442         * libgnat/a-timoio.ads: Idem.
2443         * libgnat/a-textio.ads: Idem. Also mark functions Name, Col, Line,
2444         and Page as out of SPARK as they might raise Layout_Error.
2445         * libgnarl/a-reatim.ads: Replace Always_Return annotations by
2446         Always_Terminates aspects.
2447         * libgnat/a-chahan.ads: Idem.
2448         * libgnat/a-nbnbig.ads: Idem.
2449         * libgnat/a-nbnbin.ads: Idem.
2450         * libgnat/a-nbnbre.ads: Idem.
2451         * libgnat/a-ngelfu.ads: Idem.
2452         * libgnat/a-nlelfu.ads: Idem.
2453         * libgnat/a-nllefu.ads: Idem.
2454         * libgnat/a-nselfu.ads: Idem.
2455         * libgnat/a-nuelfu.ads: Idem.
2456         * libgnat/a-strbou.ads: Idem.
2457         * libgnat/a-strmap.ads: Idem.
2458         * libgnat/a-strsea.ads: Idem.
2459         * libgnat/a-strsup.ads: Idem.
2460         * libgnat/a-strunb.ads: Idem.
2461         * libgnat/a-strunb__shared.ads: Idem.
2462         * libgnat/g-souinf.ads: Idem.
2463         * libgnat/i-c.ads: Idem.
2464         * libgnat/interfac.ads: Idem.
2465         * libgnat/interfac__2020.ads: Idem.
2466         * libgnat/s-aridou.adb: Idem.
2467         * libgnat/s-arit32.adb: Idem.
2468         * libgnat/s-atacco.ads: Idem.
2469         * libgnat/s-spcuop.ads: Idem.
2470         * libgnat/s-stoele.ads: Idem.
2471         * libgnat/s-vaispe.ads: Idem.
2472         * libgnat/s-vauspe.ads: Idem.
2473         * libgnat/i-cstrin.ads: Add a precondition instead of a
2474         Might_Not_Return annotation.
2476 2023-06-20  Javier Miranda  <miranda@adacore.com>
2478         * sem_ch4.adb
2479         (Try_Selected_Component_In_Instance): New subprogram; factorizes
2480         existing code.
2481         (Find_Component_In_Instance) Moved inside the new subprogram.
2482         (Analyze_Selected_Component): Invoke the new subprogram before
2483         trying the Object.Operation notation.
2485 2023-06-20  Ronan Desplanques  <desplanques@adacore.com>
2487         * libgnat/a-calfor.adb (Time_Of): Fix handling of special case.
2489 2023-06-15  Marek Polacek  <polacek@redhat.com>
2491         * gcc-interface/Make-lang.in (ALL_ADAFLAGS): Remove NO_PIE_CFLAGS.  Add
2492         PICFLAG.  Use PICFLAG when building ada/b_gnat1.o and ada/b_gnatb.o.
2493         * gcc-interface/Makefile.in: Use pic/libiberty.a if PICFLAG is set.
2494         Remove NO_PIE_FLAG.
2496 2023-06-15  Marc Poulhiès  <poulhies@adacore.com>
2498         * vxworks7-cert-rtp-base-link.spec: Removed.
2499         * vxworks7-cert-rtp-base-link__ppc64.spec: Removed.
2500         * vxworks7-cert-rtp-base-link__x86.spec: Removed.
2501         * vxworks7-cert-rtp-base-link__x86_64.spec: Removed.
2502         * vxworks7-cert-rtp-link.spec: Removed.
2503         * vxworks7-cert-rtp-link__ppcXX.spec: Removed.
2505 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2507         * gcc-interface/utils2.cc (build_binary_op) <MODIFY_EXPR>: Do not
2508         remove a VIEW_CONVERT_EXPR on the LHS if it is also on the RHS.
2510 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2512         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Variable>: Restrict
2513         the special handling of temporaries created for return values and
2514         subject to a renaming to the top level.
2516 2023-06-15  Ronan Desplanques  <desplanques@adacore.com>
2518         * doc/gnat_ugn/about_this_guide.rst: Fix typo. Uniformize punctuation.
2519         * doc/gnat_ugn/the_gnat_compilation_model.rst: Uniformize punctuation.
2520         Fix capitalization. Fix indentation of code block. Fix RST formatting
2521         syntax errors.
2522         * gnat_ugn.texi: Regenerate.
2524 2023-06-15  Yannick Moy  <moy@adacore.com>
2526         * sem_attr.adb (Analyze_Attribute): Reject case of Loop_Entry
2527         inside the prefix of Loop_Entry, as per SPARK RM 5.5.3.1(4,8).
2529 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2531         * exp_ch3.adb (Make_Allocator_For_Return): Rewrite the logic that
2532         determines the type used for the allocation and add assertions.
2533         * exp_util.adb (Has_Tag_Of_Type): Also return true for extension
2534         aggregates.
2536 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2538         * sinfo.ads (Iterator_Filter): Document field.
2539         * sem_ch5.adb (Analyze_Iterator_Specification): Move comment around.
2540         (Analyze_Loop_Parameter_Specification): Only preanalyze the iterator
2541         filter, if any.
2542         * exp_ch5.adb (Expand_N_Loop_Statement): Analyze the new list built
2543         when an iterator filter is present.
2545 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2547         * exp_util.adb (Find_Hook_Context): Revert latest change.
2549 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2551         * exp_ch3.adb (Make_Allocator_For_Return): Deal again specifically
2552         with an aggregate returned through an object of a class-wide type.
2554 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2556         * exp_ch5.adb (Expand_Iterator_Loop_Over_Container): Do not insert
2557         an always empty list. Remove unused parameter Isc.
2558         (Expand_Iterator_Loop): Adjust call to above procedure.
2560 2023-06-15  Ronan Desplanques  <desplanques@adacore.com>
2562         * targparm.adb: Allow pragma Style_Checks in some forms.
2563         * targparm.ads: Document new pragma permission.
2565 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2567         * exp_util.ads (Within_Case_Or_If_Expression): Adjust description.
2568         * exp_util.adb (Find_Hook_Context): Stop the search for the topmost
2569         conditional expression, if within one, at contexts where temporaries
2570         may be contained.
2571         (Within_Case_Or_If_Expression): Return false upon first encoutering
2572         contexts where temporaries may be contained.
2574 2023-06-15  Johannes Kliemann  <kliemann@adacore.com>
2576         * libgnarl/s-osinte__qnx.adb: Adjust priority conversion function.
2577         * libgnat/system-qnx-arm.ads: Adjust priority range and default
2578         priority.
2580 2023-06-15  Ronan Desplanques  <desplanques@adacore.com>
2582         * targparm.ads: Remove references to front-end-based exceptions. Fix
2583         thinko.
2585 2023-06-15  Piotr Trojanek  <trojanek@adacore.com>
2587         * contracts.adb (Add_Contract_Item): Add pragma Always_Terminates to
2588         package contract.
2589         * sem_prag.adb (Analyze_Pragma): Accept pragma Always_Terminates on
2590         packages and generic packages, but only when it has no arguments.
2592 2023-06-15  Piotr Trojanek  <trojanek@adacore.com>
2594         * sem_prag.adb (Analyze_Pragma): Accept pragma Always_Terminates when
2595         it applies to an entry.
2597 2023-06-15  Piotr Trojanek  <trojanek@adacore.com>
2599         * sem_prag.adb (Analyze_Pragma): Reject pragma Always_Terminates when
2600         it applies to a function or generic function.
2602 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2604         * sem_ch4.adb (Analyze_Call): Adjust the test to detect the presence
2605         of an incomplete view of a type on a function call.
2607 2023-06-15  Ronan Desplanques  <desplanques@adacore.com>
2609         * ttypes.ads: Remove reference to Ttypef in comment. Fix typo in
2610         comment.
2612 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2614         * get_targ.ads (Get_Max_Unaligned_Field): Delete.
2615         * ada_get_targ.adb (Get_Max_Unaligned_Field): Likewise.
2616         * get_targ.adb (Get_Max_Unaligned_Field): Likewise.
2617         * set_targ.ads (Max_Unaligned_Field): Adjust comment.
2618         * set_targ.adb: Set Max_Unaligned_Field to 1 during elaboration.
2619         * ttypes.ads (Max_Unaligned_Field): Delete.
2621 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2623         * sem_type.adb (Disambiguate): Fix pasto in the implementation of
2624         the RM 8.4(10) clause for operators.
2626 2023-06-15  Piotr Trojanek  <trojanek@adacore.com>
2628         * aspects.adb
2629         (Base_Aspect): Fix layout.
2630         * aspects.ads
2631         (Aspect_Argument): Expression for Always_Terminates is optional.
2632         * sem_prag.adb
2633         (Analyze_Always_Terminates_In_Decl_Part): Only analyze expression when
2634         pragma argument is present.
2635         (Analyze_Pragma): Argument for Always_Terminates is optional; fix
2636         whitespace for Async_Readers.
2638 2023-06-15  Javier Miranda  <miranda@adacore.com>
2640         * sem_util.adb
2641         (Is_CPP_Constructor_Call): Add missing support for calls to
2642         functions returning a private type.
2644 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2646         * exp_util.ads (Build_Transient_Object_Statements): Remove obsolete
2647         references to array and record aggregates in documentation.
2649 2023-06-15  Eric Botcazou  <ebotcazou@adacore.com>
2651         * sem_ch13.adb (Analyze_Aspect_Specifications): Add missing items
2652         in the list of aspects handled by means of Insert_Pragma.
2653         <Aspect_Linker_Section>: Remove obsolete code.  Do not delay the
2654         processing of the aspect if the entity is already frozen.
2656 2023-06-15  Piotr Trojanek  <trojanek@adacore.com>
2658         * sem_aggr.adb
2659         (Resolve_Array_Aggregate): Simplify comment.
2660         (Resolve_Iterated_Component_Association): Tune comment; change variable
2661         to constant.
2663 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2665         * sem_aggr.adb (Resolve_Iterated_Component_Association): Simply resolve
2666         the expression.
2668 2023-06-13  Bob Duff  <duff@adacore.com>
2670         * exp_ch4.adb
2671         (Expand_N_Quantified_Expression): Detect the secondary-stack
2672         case, and find the innermost scope where we should mark/release,
2673         and Set_Uses_Sec_Stack on that. Skip intermediate blocks and loops
2674         that are part of expansion.
2676 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2678         * sem_util.adb (Is_Repeatedly_Evaluated): Recognize iterated component
2679         association as repeatedly evaluated.
2681 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2683         * sem_util.adb (Is_Potentially_Unevaluated): Recognize iterated
2684         component association as potentially unevaluated.
2686 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2688         * sem_res.adb (Resolve_Call): Replace early call to
2689         In_Quantified_Expression with a call to Is_Potentially_Unevaluated that
2690         was only done when Full_Analysis is true.
2692 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2694         * aspects.ads (Aspect_Id): Add new aspect.
2695         (Implementation_Defined_Aspect): New aspect is
2696         implementation-defined.
2697         (Aspect_Argument): New aspect has an expression argument.
2698         (Is_Representation_Aspect): New aspect is not a representation
2699         aspect.
2700         (Aspect_Names): Link new aspect identifier with a name.
2701         (Aspect_Delay): New aspect is never delayed.
2702         * contracts.adb (Expand_Subprogram_Contract): Mention new aspect
2703         in comment.
2704         (Add_Contract_Item): Attach pragma corresponding to the new aspect
2705         to contract items.
2706         (Analyze_Entry_Or_Subprogram_Contract): Analyze pragma
2707         corresponding to the new aspect that appears with subprogram spec.
2708         (Analyze_Subprogram_Body_Stub_Contract): Expand pragma
2709         corresponding to the new aspect.
2710         * contracts.ads
2711         (Add_Contract_Item, Analyze_Entry_Or_Subprogram_Contract)
2712         (Analyze_Entry_Or_Subprogram_Body_Contract)
2713         (Analyze_Subprogram_Body_Stub_Contract): Mention new aspect in
2714         comment.
2715         * einfo-utils.adb (Get_Pragma): Return pragma attached to
2716         contract.
2717         * einfo-utils.ads (Get_Pragma): Mention new contract in comment.
2718         * exp_prag.adb (Expand_Pragma_Always_Terminates): Placeholder for
2719         possibly expanding new aspect.
2720         * exp_prag.ads (Expand_Pragma_Always_Terminates): Dedicated
2721         routine for expansion of the new aspect.
2722         * inline.adb (Remove_Aspects_And_Pragmas): Remove aspect from
2723         inlined bodies.
2724         * par-prag.adb (Prag): Postpone checking of the pragma until
2725         analysis.
2726         * sem_ch12.adb: Mention new aspect in explanation of handling
2727         contracts on generic units.
2728         * sem_ch13.adb (Analyze_Aspect_Specifications): Convert new aspect
2729         into a corresponding pragma.
2730         (Check_Aspect_At_Freeze_Point): Don't expect new aspect.
2731         * sem_prag.adb (Analyze_Always_Terminates_In_Decl_Part): Analyze
2732         pragma corresponding to the new aspect.
2733         (Analyze_Pragma): Handle pragma corresponding to the new aspect.
2734         (Is_Non_Significant_Pragma_Reference): Handle references appearing
2735         within new aspect.
2736         * sem_prag.ads (Aspect_Specifying_Pragma): New aspect can be
2737         emulated with a pragma.
2738         (Assertion_Expression_Pragma): New aspect has an assertion
2739         expression.
2740         (Pragma_Significant_To_Subprograms): New aspect is significant to
2741         subprograms.
2742         (Analyze_Always_Terminates_In_Decl_Part): Add spec for routine
2743         that analyses new aspect.
2744         (Find_Related_Declaration_Or_Body): Mention new aspect in comment.
2745         * sem_util.adb (Is_Subprogram_Contract_Annotation): New aspect is
2746         a subprogram contract annotation.
2747         * sem_util.ads (Is_Subprogram_Contract_Annotation): Mention new
2748         aspect in comment.
2749         * sinfo.ads (Is_Generic_Contract_Pragma): New pragma is a generic
2750         contract.
2751         (Contract): Explain attaching new pragma to subprogram contract.
2752         * snames.ads-tmpl (Name_Always_Terminates): New name for the new
2753         contract.
2754         (Pragma_Always_Terminates): New pragma identifier.
2756 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2758         * sem_elab.adb (Check_Overriding_Primitive): Prevent Corresponding_Body
2759         to be called with entity of an abstract subprogram.
2761 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2763         * sem_ch12.adb (Save_References_In_Identifier): In the case where
2764         the identifier has been turned into a function call by analysis,
2765         call Set_Global_Type on the entity if it is global.
2767 2023-06-13  Marc Poulhiès  <poulhies@adacore.com>
2769         * sem_aggr.adb (Resolve_Iterated_Component_Association): Call
2770         Preanalyze_And_Resolve instead of Resolve_Aggr_Expr except for
2771         aggregate.
2772         Co-authored-by: Ed Schonberg <schonberg@adacore.com>
2774 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2776         * contracts.adb (Contract_Error): New exception.
2777         (Add_Contract_Item): Raise Contract_Error instead of Program_Error.
2778         (Add_Generic_Contract_Pragma): Deal with Contract_Error.
2780 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2782         * sem_attr.adb (Eval_Attribute): Add more exceptions to the early
2783         return for a prefix which is a nonfrozen generic actual type.
2784         * sem_ch12.adb (Copy_Generic_Node): Also check private views in the
2785         case of an entity name or operator analyzed as a function call.
2786         (Set_Global_Type): Make it a child of Save_Global_References.
2787         (Save_References_In_Operator): In the case where the operator has
2788         been turned into a function call, call Set_Global_Type on the entity
2789         if it is global.
2791 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2793         * contracts.adb (Analyze_Entry_Or_Subprogram_Body_Contract): For a
2794         subprogram body that has no contracts and does not come from source,
2795         make sure that contracts on its corresponding spec are analyzed, if
2796         any, before expanding them.
2798 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2800         * gen_il-fields.ads (Opt_Field_Enum): Add No_Finalize_Actions and
2801         remove No_Side_Effect_Removal.
2802         * gen_il-gen-gen_nodes.adb (N_Function_Call): Remove semantic flag
2803         No_Side_Effect_Removal
2804         (N_Assignment_Statement): Add semantic flag No_Finalize_Actions.
2805         * sinfo.ads (No_Ctrl_Actions): Adjust comment.
2806         (No_Finalize_Actions): New flag on assignment statements.
2807         (No_Side_Effect_Removal): Delete.
2808         * exp_aggr.adb (Build_Record_Aggr_Code): Remove obsolete comment and
2809         Ancestor_Is_Expression variable.  In the case of an extension, do
2810         not generate a call to Adjust manually, call Set_No_Finalize_Actions
2811         instead.  Do not set the tags, replace call to Make_Unsuppress_Block
2812         by Make_Suppress_Block and remove useless assertions.
2813         In the general case, call Initialize_Component.
2814         (Initialize_Controlled_Component): Delete.
2815         (Initialize_Simple_Component): Delete.
2816         (Initialize_Component): Do the low-level processing, but do not
2817         generate a call to Adjust manually, call Set_No_Finalize_Actions.
2818         (Process_Transient_Component): Delete.
2819         (Process_Transient_Component_Completion): Likewise.
2820         * exp_ch5.adb (Expand_Assign_Array): Deal with No_Finalize_Actions.
2821         (Expand_Assign_Array_Loop): Likewise.
2822         (Expand_N_Assignment_Statement): Likewise.
2823         (Make_Tag_Ctrl_Assignment): Likewise.
2824         * exp_util.adb (Remove_Side_Effects): Do not test the
2825         No_Side_Effect_Removal flag.
2826         * sem_prag.adb (Process_Suppress_Unsuppress): Give the warning in
2827         SPARK mode only for pragma Suppress.
2828         * tbuild.ads (Make_Suppress_Block): New declaration.
2829         (Make_Unsuppress_Block): Adjust comment.
2830         * tbuild.adb (Make_Suppress_Block): New procedure.
2831         (Make_Unsuppress_Block): Unsuppress instead of suppressing.
2833 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2835         * sem_ch5.adb (Analyze_Assignment): Turn Rhs into a constant and
2836         remove calls to the following subprograms.
2837         (Transform_BIP_Assignment): Delete.
2838         (Should_Transform_BIP_Assignment): Likewise.
2840 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2842         * sem_util.ads (Is_Inherited_Operation_For_Type): Remove spec.
2843         * sem_util.adb (Is_Inherited_Operation_For_Type): Remove body.
2845 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2847         * exp_aggr.adb (Build_Record_Aggr_Code): Add new variable Ancestor_Q
2848         to store the result of Unqualify on Ancestor.  Remove the dead call
2849         to Generate_Finalization_Actions in the case of another aggregate as
2850         ancestor part.  Remove the redundant setting of Assignment_OK.  Use
2851         Init_Typ in lieu of Etype (Ancestor) more consistently.
2853 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2855         * exp_aggr.adb (Build_Record_Aggr_Code): In the case of an extension
2856         aggregate of a limited type whose ancestor part is an aggregate, do
2857         not skip the final code assigning the tag of the extension.
2859 2023-06-13  Yannick Moy  <moy@adacore.com>
2861         * ghost.adb (Check_Ghost_Context): Allow absence of Ghost_Id
2862         for attribute. Update error message to mention Ghost_Predicate.
2863         (Is_Ghost_Attribute_Reference): New query.
2864         * ghost.ads (Is_Ghost_Attribute_Reference): New query.
2865         * sem_attr.adb (Resolve_Attribute): Check ghost context for ghost
2866         attributes.
2868 2023-06-13  Daniel King  <dmking@adacore.com>
2870         * libgnat/s-stoele.ads: Add No_Elaboration_Code_All pragma.
2872 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2874         * exp_util.ads (Make_Tag_Assignment_From_Type): Declare.
2875         * exp_util.adb (Make_Tag_Assignment_From_Type): New function.
2876         * exp_aggr.adb (Build_Record_Aggr_Code): Call the above function.
2877         (Initialize_Simple_Component): Likewise.
2878         * exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): Likewise.
2879         (Build_Record_Init_Proc.Build_Init_Procedure ): Likewise.
2880         (Make_Tag_Assignment): Likewise.  Rename local variable and call
2881         Unqualify to go through qualified expressions.
2882         * exp_ch4.adb (Expand_Allocator_Expression): Likewise.
2884 2023-06-13  Yannick Moy  <moy@adacore.com>
2886         * libgnat/a-strsup.ads: Change predicate aspect.
2887         * sem_ch13.adb (Add_Predicate): Fix for first predicate.
2889 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2891         * exp_aggr.adb (Initialize_Component): Perform immediate expansion
2892         of the initialization expression if it is a conditional expression
2893         and the component type is controlled.
2895 2023-06-13  Eric Botcazou  <ebotcazou@adacore.com>
2897         * exp_aggr.adb (Initialize_Component): New procedure factored out
2898         from the processing of array and record aggregates.
2899         (Initialize_Controlled_Component): Likewise.
2900         (Initialize_Simple_Component): Likewise.
2901         (Build_Array_Aggr_Code.Gen_Assign): Remove In_Loop parameter.
2902         Call Initialize_Component to initialize the component.
2903         (Initialize_Array_Component): Delete.
2904         (Initialize_Ctrl_Array_Component): Likewise.
2905         (Build_Array_Aggr_Code): Adjust calls to Gen_Assign.
2906         (Build_Record_Aggr_Code): Call Initialize_Simple_Component or
2907         Initialize_Component to initialize the component.
2908         (Initialize_Ctrl_Record_Component): Delete.
2909         (Initialize_Record_Component): Likewise.
2911 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2913         * exp_ch11.adb (Expand_N_Raise_Statement): Expansion of raise statements
2914         never happens in GNATprove mode.
2916 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2918         * exp_ch11.adb (Find_Local_Handler): Replace guard against other
2919         constructs appearing in the list of exception handlers with iteration
2920         using First_Non_Pragma/Next_Non_Pragma.
2922 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2924         * exp_ch11.ads (Find_Local_Handler): Fix typo in comment.
2925         * exp_ch11.adb (Find_Local_Handler): Remove redundant check for the
2926         Exception_Handler list being present; use membership test to eliminate
2927         local object LCN; fold nested IF statements. Remove useless ELSIF
2928         condition.
2930 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2932         * sem_util.adb (Check_Function_Writable_Actuals): Tune style; use
2933         subtype name to detect membership test nodes.
2935 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2937         * exp_disp.adb (Make_Disp_Asynchronous_Select_Spec): Use a single call
2938         to New_List.
2940 2023-06-13  Yannick Moy  <moy@adacore.com>
2942         * doc/gnat_rm/implementation_defined_aspects.rst: Document new
2943         aspect.
2944         * doc/gnat_rm/implementation_defined_pragmas.rst: Whitespace.
2945         * aspects.adb (Init_Canonical_Aspect): Set it to Predicate.
2946         * aspects.ads: Set global constants for new aspect.
2947         * einfo.ads: Describe new flag related to new aspect.
2948         * exp_ch6.adb (Can_Fold_Predicate_Call): Do not fold new aspect.
2949         * exp_util.adb (Make_Predicate_Check): Add comment.
2950         * gen_il-fields.ads: Add new flag.
2951         * gen_il-gen-gen_entities.adb: Add new flag.
2952         * ghost.adb (Is_OK_Ghost_Context): Ghost predicate is an OK
2953         ghost context.
2954         (Mark_Ghost_Pragma): Add overloading with ghost mode parameter.
2955         * ghost.ads (Mark_Ghost_Pragma): Add overloading with ghpst mode
2956         parameter.
2957         (Name_To_Ghost_Mode): Make function public.
2958         * sem_aggr.adb: Issue error for violation of valid use.
2959         * sem_case.adb: Issue error for violation of valid use.
2960         * sem_ch13.adb: Adapt for new aspect.
2961         * sem_ch3.adb (Analyze_Full_Type_Declaration): Remove dead code
2962         which was trying to propagate Has_Predicates flag in the wrong
2963         direction (from derived to parent type).
2964         (Analyze_Number_Declaration): Issue error for violation of valid
2965         use.
2966         (Build_Derived_Type): Cleanup inheritance of predicate flags from
2967         parent to derived type.
2968         (Build_Predicate_Function): Only add a predicate check when it
2969         is not ignored as Ghost code.
2970         * sem_ch4.adb (Analyze_Membership_Op): Issue an error for use of
2971         a subtype with a ghost predicate as name in a membership test.
2972         * sem_ch5.adb (Check_Predicate_Use): Issue error for violation of
2973         valid use.
2974         * sem_eval.adb: Adapt code for Dynamic_Predicate to account for
2975         Ghost_Predicate too.
2976         * sem_prag.adb (Analyze_Pragma): Make pragma ghost or not.
2977         * sem_util.adb (Bad_Predicated_Subtype_Use): Adapt to new aspect.
2978         (Inherit_Predicate_Flags): Add inheritance of flag. Add parameter
2979         to apply to derived types.
2980         * sem_util.ads (Inherit_Predicate_Flags): Change signature.
2981         * snames.ads-tmpl: Add new aspect name.
2982         * gnat_rm.texi: Regenerate.
2984 2023-06-13  Piotr Trojanek  <trojanek@adacore.com>
2986         * exp_ch3.adb (Make_Controlling_Function_Wrappers): Remove early
2987         decoration.
2989 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
2991         * gcc-interface/trans.cc (get_storage_model_access): Also strip any
2992         type conversion in the node when unwinding the components.
2994 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
2996         * gcc-interface/trans.cc (node_is_component): Remove parentheses.
2997         (node_is_type_conversion): New predicate.
2998         (get_atomic_access): Use it.
2999         (get_storage_model_access): Likewise and look into the parent to
3000         find a component if it returns true.
3001         (present_in_lhs_or_actual_p): Likewise.
3003 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3005         * gcc-interface/trans.cc (Attribute_to_gnu) <Attr_Size>: Check that
3006         the storage model has Copy_From before instantiating loads for it.
3007         <Attr_Length>: Likewise.
3008         <Attr_Bit_Position>: Likewise.
3009         (gnat_to_gnu) <N_Indexed_Component>: Likewise.
3010         <N_Slice>: Likewise.
3012 2023-05-30  Marc Poulhiès  <poulhies@adacore.com>
3014         * gcc-interface/trans.cc (Attribute_to_gnu): Also strip conversion
3015         in case of DECL.
3017 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3019         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Array_Type>: Use a
3020         local variable for the GNAT index type.
3021         <E_Array_Subtype>: Likewise.  Call Is_Null_Range on the bounds and
3022         force the zero on TYPE_SIZE and TYPE_SIZE_UNIT if it returns true.
3024 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3026         * gcc-interface/trans.cc (gnat_to_gnu) <N_Op_Mod>: Test the
3027         precision of the operation rather than that of the result type.
3029 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3031         * gcc-interface/decl.cc (gnat_to_gnu_entity) <E_Variable>: Replace
3032         integer_zero_node with null_pointer_node for pointer types.
3033         * gcc-interface/trans.cc (gnat_gimplify_expr) <NULL_EXPR>: Likewise.
3034         * gcc-interface/utils.cc (maybe_pad_type): Do not attempt to make a
3035         packable type from a fat pointer type.
3036         * gcc-interface/utils2.cc (build_atomic_load): Use a local variable.
3037         (build_atomic_store): Likewise.
3039 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3041         * gcc-interface/misc.cc (internal_error_function): Be prepared for
3042         an input_location set to UNKNOWN_LOCATION.
3044 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3046         * gcc-interface/trans.cc (Attribute_to_gnu) <Attr_Size>: Tweak.
3047         (gnat_to_gnu) <N_Assignment_Statement>: Declare a local variable.
3048         For a target with a storage model, use the Actual_Designated_Subtype
3049         to compute the size if it is present.
3051 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3053         * gcc-interface/trans.cc (Call_to_gnu): Remove code implementing the
3054         by-copy semantics for actuals with nonnative storage models.
3055         (gnat_to_gnu) <N_Assignment_Statement>: Remove code instantiating a
3056         temporary for assignments between nonnative storage models.
3058 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3060         * gcc-interface/decl.cc (range_cannot_be_superflat): Return true
3061         immediately if Cannot_Be_Superflat is set.
3062         * gcc-interface/misc.cc (gnat_post_options): Do not override the
3063         -Wstringop-overflow setting.
3065 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3067         * gcc-interface/Make-lang.in (ADA_CFLAGS): Move up.
3068         (ALL_ADAFLAGS): Add $(NO_PIE_CFLAGS).
3069         (ada/mdll.o): Remove.
3070         (ada/mdll-fil.o): Likewise.
3071         (ada/mdll-utl.o): Likewise.
3073 2023-05-30  Marc Poulhiès  <poulhies@adacore.com>
3075         * gcc-interface/trans.cc (get_storage_model_access): Don't require
3076         storage model access for dereference used as lvalue or renamings.
3078 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3080         * exp_aggr.adb (Build_Array_Aggr_Code): Move the declaration of Typ
3081         to the beginning.
3082         (Initialize_Array_Component): Test the unqualified version of the
3083         expression for the nested array case.
3084         (Initialize_Ctrl_Array_Component): Do not duplicate the expression
3085         here.  Do the pattern matching of the unqualified version of it.
3086         (Gen_Assign): Call Unqualify to compute Expr_Q and use Expr_Q in
3087         subsequent pattern matching.
3088         (Initialize_Ctrl_Record_Component): Do the pattern matching of the
3089         unqualified version of the aggregate.
3090         (Build_Record_Aggr_Code): Call Unqualify.
3091         (Convert_Aggr_In_Assignment): Likewise.
3092         (Convert_Aggr_In_Object_Decl): Likewise.
3093         (Component_OK_For_Backend): Likewise.
3094         (Is_Delayed_Aggregate): Likewise.
3096 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3098         * exp_aggr.adb (Build_Array_Aggr_Code.Get_Assoc_Expr): Duplicate the
3099         expression here instead of...
3100         (Build_Array_Aggr_Code): ...here.
3102 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3104         * freeze.adb (Check_Large_Modular_Array): Fix head comment, use
3105         Standard_Long_Long_Integer_Size directly and generate a reference
3106         just before the raise statement if the Etype of the object is an
3107         itype declared in an open scope.
3109 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3111         * exp_ch7.adb (Find_Enclosing_Transient_Scope): Return the index in
3112         the scope table instead of the scope's entity.
3113         (Establish_Transient_Scope): If an enclosing scope already exists,
3114         do not set the Uses_Sec_Stack flag on it if the node to be wrapped
3115         is a return statement which requires secondary stack management.
3117 2023-05-30  Joel Brobecker  <brobecker@adacore.com>
3119         * Makefile.rtl: Use libgnat/s-tsmona__linux.adb on
3120         aarch64-linux.  Link libgnat with -ldl, as the use of
3121         s-tsmona__linux.adb requires it.
3123 2023-05-30  Piotr Trojanek  <trojanek@adacore.com>
3125         * exp_ch3.adb
3126         (Build_Access_Subprogram_Wrapper_Body): Build wrapper body if requested
3127         by routine that builds wrapper spec.
3128         * sem_ch3.adb
3129         (Analyze_Full_Type_Declaration): Only build wrapper when expander is
3130         active.
3131         (Build_Access_Subprogram_Wrapper):
3132         Remove special-case for GNATprove.
3134 2023-05-30  Ronan Desplanques  <desplanques@adacore.com>
3136         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Fix minor issues.
3137         * doc/gnat_ugn/the_gnat_compilation_model.rst: Fix minor issues.
3138         * gnat_ugn.texi: Regenerate.
3140 2023-05-30  Johannes Kliemann  <kliemann@adacore.com>
3142         * libgnat/s-parame.adb: Check that Default_Stack_Size >=
3143         Minimum_Stack_size.
3144         * libgnat/s-parame__rtems.adb: Ditto.
3145         * libgnat/s-parame__vxworks.adb: Check that Default_Stack_Size >=
3146         Minimum_Stack_size and use the proper Minimum_Stack_Size if
3147         Stack_Check_Limits is enabled.
3149 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3151         * sem_res.adb (Resolve_Call): Restrict previous change to calls that
3152         return on the same stack as the enclosing function.  Tidy up.
3154 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3156         * libgnat/a-cidlli.adb (Put_Image): Simplify.
3157         * libgnat/a-coinve.adb (Put_Image): Likewise.
3159 2023-05-30  Eric Botcazou  <ebotcazou@adacore.com>
3161         * exp_util.adb (Build_DIC_Procedure_Body.Add_Own_DIC): When inside
3162         a generic unit, preanalyze the expression directly.
3163         (Build_Invariant_Procedure_Body.Add_Own_Invariants): Likewise.
3165 2023-05-30  Cedric Landet  <landet@adacore.com>
3167         * init.c: Replace FIXME by ???
3169 2023-05-29  Cedric Landet  <landet@adacore.com>
3171         * s-oscons-tmplt.c: move the definition of sigset out of the
3172         HAVE_SOCKETS bloc.
3174 2023-05-29  Cedric Landet  <landet@adacore.com>
3176         * Makefile.rtl: Move g-spogwa$(objext) from GNATRTL_NONTASKING_OBJS
3177         to GNATRTL_SOCKETS_OBJS
3179 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3181         * freeze.adb (Wrap_Imported_Subprogram): Use Copy_Subprogram_Spec in
3182         both cases to copy the spec of the subprogram.
3184 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3186         * exp_ch7.adb (Establish_Transient_Scope.Find_Transient_Context):
3187         Bail out for a simple return statement only if the transient scope
3188         and the function both require secondary stack management, or else
3189         if the function is a thunk.
3190         * sem_res.adb (Resolve_Call): Do not create a transient scope when
3191         the call is the expression of a simple return statement.
3193 2023-05-29  Patrick Bernardi  <bernardi@adacore.com>
3195         * libgnat/a-excach.adb (Call_Chain): Replace
3196         Code_Address_For_AAA/ZZZ functions with AAA/ZZZ'Code_Address.
3197         * libgnat/a-except.adb (Code_Address_For_AAA/ZZZ): Delete.
3198         (AAA/ZZZ): New null procedures.
3199         * libgnat/g-debpoo.adb
3200         (Code_Address_For_Allocate_End): Delete.
3201         (Code_Address_For_Deallocate_End): Delete.
3202         (Code_Address_For_Dereference_End): Delete.
3203         (Allocate): Remove label and use Code_Address attribute to
3204         determine subprogram addresses.
3205         (Dellocate): Likewise.
3206         (Dereference): Likewise.
3207         (Allocate_End): Convert to null procedure.
3208         (Dellocate_End): Likewise.
3209         (Dereference_End): Likewise.
3211 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3213         * exp_ch6.adb (Expand_Simple_Function_Return): Call Insert_Actions
3214         consistently when rewriting the expression.
3216 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3218         * exp_util.adb (Is_Finalizable_Transient.Is_Indexed_Container):
3219         New predicate to detect a temporary created to hold the result of
3220         a constant indexing on a container.
3221         (Is_Finalizable_Transient.Is_Iterated_Container): Adjust a couple
3222         of obsolete comments.
3223         (Is_Finalizable_Transient): Return False if Is_Indexed_Container
3224         returns True on the object.
3226 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3228         * sem_res.adb (Has_Applicable_User_Defined_Literal): Make it clear
3229         that the predicate also checks the node itself.
3230         (Try_User_Defined_Literal): Move current implementation to...
3231         Deal only with literals, named numbers and conditional expressions
3232         whose dependent expressions are literals or named numbers.
3233         (Try_User_Defined_Literal_For_Operator): ...this.  Remove multiple
3234         return False statements and put a single one at the end.
3235         (Resolve): Call Try_User_Defined_Literal instead of directly
3236         Has_Applicable_User_Defined_Literal for all nodes.  Call
3237         Try_User_Defined_Literal_For_Operator for operator nodes.
3239 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3241         * sem_res.adb (Invoked_With_Different_Arguments): Use Get_Called_Entity,
3242         which properly deals with calls via an access-to-subprogram; fix
3243         inconsistent use of a Call object declared in enclosing subprogram.
3245 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3247         * contracts.adb
3248         (Add_Pre_Post_Condition): Attach pre/post aspects to E_Subprogram_Type
3249         entity.
3250         (Analyze_Entry_Or_Subprogram_Contract): Adapt to use full type
3251         declaration for a contract attached to E_Subprogram_Type entity.
3252         * sem_prag.adb
3253         (Analyze_Pre_Post_Condition): Add pre/post aspects to the designed type.
3255 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3257         * sem_util.adb (Check_Function_Writable_Actuals): Remove guard against
3258         a membership test with no alternatives; simplify with a membership test.
3260 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3262         * doc/gnat_ugn/gnat_and_program_execution.rst
3263         (Some Useful Memory Pools): Remove extra whitespace from examples.
3264         * sem_aggr.adb (Make_String_Into_Aggregate): Remove extra whitespace.
3265         * gnat_ugn.texi: Regenerate.
3267 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3269         * exp_aggr.adb (Convert_Aggr_In_Allocator): Replace Get_TSS_Name
3270         with a high-level Is_TSS.
3271         * sem_ch6.adb (Check_Conformance): Replace DECLARE block and
3272         nested IF with a call to Get_TSS_Name and a membership test.
3273         (Has_Reliable_Extra_Formals): Refactor repeated calls to
3274         Get_TSS_Name.
3275         * sem_disp.adb (Check_Dispatching_Operation): Replace repeated
3276         calls to Get_TSS_Name with a membership test.
3278 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3280         * exp_ch5.adb (Expand_N_Case_Statement): Do not remove the statement
3281         if it is the node to be wrapped by a transient scope.
3283 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3285         * sem_prag.adb (Process_Compile_Time_Warning_Or_Error): Do not defer
3286         anything to the back-end when the main unit is generic.
3288 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3290         * sem_res.adb (Try_User_Defined_Literal): Restrict previous change
3291         to non-leaf nodes.
3293 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3295         * sem_res.adb (Try_User_Defined_Literal): For arithmetic operators,
3296         also accept operands whose type is covered by the resolution type.
3298 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3300         * exp_aggr.adb (Initialize_Array_Component): Fix condition detecting
3301         the nested case that requires an adjustment.
3303 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3305         * exp_ch4.adb (Expand_N_In): Deal specifically with a null operand.
3307 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3309         * exp_ch6.adb (Expand_Simple_Function_Return): Deal with a rewriting
3310         of the simple return during the adjustment of its expression.
3312 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3314         * exp_ch4.adb (Expand_N_Case_Expression): Distribute simple return
3315         statements enclosing the conditional expression into the dependent
3316         expressions in almost all cases.
3317         (Expand_N_If_Expression): Likewise.
3318         (Process_Transient_In_Expression): Adjust to the above distribution.
3319         * exp_ch6.adb (Expand_Ctrl_Function_Call): Deal with calls in the
3320         dependent expressions of a conditional expression.
3321         * sem_ch6.adb (Analyze_Function_Return): Deal with the rewriting of
3322         a simple return statement during the resolution of its expression.
3324 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3326         * sem_res.adb (Resolve_Entity_Name): Refine rules for Exceptional_Cases.
3328 2023-05-29  Marc Poulhiès  <poulhies@adacore.com>
3330         * exp_aggr.adb (Convert_To_Assignments): Do not mark node for
3331         delayed expansion if parent type has the Aggregate aspect.
3332         * sem_util.adb (Is_Container_Aggregate): Move...
3333         * sem_util.ads (Is_Container_Aggregate): ... here and make it
3334         public.
3336 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3338         * sem_res.adb (Resolve_Entity_Name): Relax rules for Exceptional_Cases.
3340 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3342         * sem_ch4.ads (Unresolved_Operator): New procedure.
3343         * sem_ch4.adb (Has_Possible_Literal_Aspects): Rename into...
3344         (Has_Possible_User_Defined_Literal): ...this.  Tidy up.
3345         (Operator_Check): Accept again unresolved operators if they have a
3346         possible user-defined literal as operand.  Factor out the handling
3347         of the general error message into...
3348         (Unresolved_Operator): ...this new procedure.
3349         * sem_res.adb (Resolve): Be prepared for unresolved operators on
3350         entry in Ada 2022 or later.  If they are still unresolved on exit,
3351         call Unresolved_Operator to give the error message.
3352         (Try_User_Defined_Literal): Tidy up.
3354 2023-05-29  Steve Baird  <baird@adacore.com>
3356         * exp_ch3.adb
3357         (Expand_N_Object_Declaration.Default_Initialize_Object): Add test for
3358         specified Default_Component_Value aspect when deciding whether
3359         either Initialize_Scalars or Normalize_Scalars impacts default
3360         initialization of an array object.
3362 2023-05-29  Javier Miranda  <miranda@adacore.com>
3364         * sem_aggr.adb
3365         (Resolve_Record_Aggregate): For aggregates of derived tagged
3366         record types with discriminants, when collecting components
3367         from ancestors, pass to subprogram Gather_Components the
3368         parent type. Required to report errors on wrong aggregate
3369         components.
3371 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3373         * sem_util.adb (Check_Result_And_Post_State): Replace low-level
3374         navigation with a high-level Unique_Entity.
3376 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3378         * sem_util.adb (Check_Result_And_Post_State): Properly handle entry
3379         bodies.
3381 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3383         * contracts.adb (Fix_Parent): Fir part both for lists and nodes.
3385 2023-05-29  Arnaud Charlet  <charlet@adacore.com>
3387         * sem_ch7.adb: Refine handling of inlining for CCG
3389 2023-05-29  Eric Botcazou  <ebotcazou@adacore.com>
3391         * sem_ch12.adb (Copy_Generic_Node): Test the original node kind
3392         for the sake of consistency.  For identifiers and other entity
3393         names and operators, accept an expanded name as associated node.
3394         Replace "or" with "or else" in condtion and fix its formatting.
3396 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3398         * sem_util.adb (Check_Result_And_Post_State): Tune message.
3400 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3402         * contracts.adb (Remove_Formals): Remove.
3403         (Preanalyze_Condition): Replace Pop_Scope with End_Scope.
3404         * sem_ch13.adb (Build_Discrete_Static_Predicate): Replace
3405         Pop_Scope with End_Scope; enclose Install_Formals within
3406         Push_Scope/End_Scope.
3408 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3410         * sem_prag.adb (Analyze_Pre_Post_Condition): Tune error message.
3412 2023-05-29  Javier Miranda  <miranda@adacore.com>
3414         * scans.ads (Inside_Interpolated_String_Expression): New variable.
3415         * par-ch2.adb (P_Interpolated_String_Literal): Set/clear new
3416         variable when parsing interpolated string expressions.
3417         * scng.adb (Set_String): Skip processing operator symbols when we
3418         arescanning an interpolated string literal.
3420 2023-05-29  Johannes Kliemann  <kliemann@adacore.com>
3422         * Makefile.rtl (QNX): Use s-parame__qnx.adb for s-parame.adb.
3423         * libgnat/s-parame__qnx.adb: Add QNX specific version of
3424         System.Parameters.
3426 2023-05-29  Yannick Moy  <moy@adacore.com>
3428         * libgnat/a-ngelfu.ads: Restore SPARK_Mode from context.
3430 2023-05-29  Marc Poulhiès  <poulhies@adacore.com>
3432         * contracts.adb (Restore_Original_Selected_Component): Adjust assertion.
3434 2023-05-29  Piotr Trojanek  <trojanek@adacore.com>
3436         * contracts.adb
3437         (Add_Pre_Post_Condition): Adapt to handle pre/post of an
3438         access-to-subprogram type.
3439         (Analyze_Type_Contract): Analyze pre/post of an
3440         access-to-subprogram.
3441         * contracts.ads
3442         (Analyze_Type_Contract): Adapt comment.
3443         * sem_ch3.adb
3444         (Build_Access_Subprogram_Wrapper): Copy pre/post aspects to
3445         wrapper spec and keep it on the type.
3446         * sem_prag.adb
3447         (Analyze_Pre_Post_Condition): Expect pre/post aspects on
3448         access-to-subprogram and complain if they appear without -gnat2022
3449         switch.
3450         (Analyze_Pre_Post_Condition_In_Decl_Part): Adapt to handle
3451         pre/post on an access-to-subprogram type entity.
3452         * sem_attr.adb (Analyze_Attribute_Old_Result): Likewise.
3453         (Result): Likewise.
3455 2023-05-26  Bob Duff  <duff@adacore.com>
3457         * sem_ch3.adb
3458         (Build_Derived_Record_Type): Temporarily set the state of the
3459         Derived_Type to "self-hidden" while processing constraints
3460         and discriminants of a record extension.
3462 2023-05-26  Bob Duff  <duff@adacore.com>
3464         * einfo.ads: Add comma.
3465         * contracts.adb: Fix typos.
3466         * exp_attr.adb: Likewise.
3467         * exp_ch5.adb: Likewise.
3468         * exp_ch6.adb: Likewise.
3469         * lib-xref.adb: Likewise.
3471 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3473         * debug.adb (d.N): Document new usage.
3474         * exp_ch4.adb (Expand_N_Type_Conversion): Copy the Float_Truncate
3475         flag when rewriting a floating-point to fixed-point conversion as
3476         a floating-point to integer conversion.
3477         * exp_fixd.adb: Add with and use clauses for Debug.
3478         (Expand_Convert_Fixed_To_Fixed): Generate a truncation in all cases
3479         except if the result is explicitly rounded.
3480         (Expand_Convert_Integer_To_Fixed): Likewise.
3481         (Expand_Convert_Float_To_Fixed): Generate a truncation for all kind
3482         of fixed-point types, except if the result is explicitly rounded, or
3483         -gnatd.N is specified and the type is an ordinary fixed-point type.
3484         * sinfo.ads (Float_Truncate): Document usage for floating-point to
3485         fixed-point conversions.
3487 2023-05-26  Javier Miranda  <miranda@adacore.com>
3489         * exp_ch4.adb
3490         (Expand_N_Allocator): If an allocator with constraints is called
3491         in the return statement of a function returning a general access
3492         type, then propagate to the itype the master of the general
3493         access type (since it is the master associated with the
3494         returned object).
3496 2023-05-26  Yannick Moy  <moy@adacore.com>
3498         * sem_aggr.adb (Resolve_Record_Aggregate): Add dummy initialization and
3499         assertion that clarifies when we reassigned to a useful value.
3501 2023-05-26  Yannick Moy  <moy@adacore.com>
3503         * doc/gnat_rm/gnat_language_extensions.rst: Be more explicit on
3504         pattern matching limitation.
3505         * gnat_rm.texi: Regenerate.
3506         * gnat_ugn.texi: Regenerate.
3508 2023-05-26  Yannick Moy  <moy@adacore.com>
3510         * libgnat/a-calend.ads: Mark with SPARK_Mode=>Off the functions which may
3511         raise Time_Error.
3512         * libgnat/a-ngelfu.ads: Mark with SPARK_Mode=>Off the functions which may
3513         lead to an overflow (which is not the case of Tan with one parameter for
3514         example, or Arctanh or Arcoth, despite their mathematical range covering
3515         the reals).
3516         * libgnat/a-textio.ads: Remove Always_Return annotation from functions, as
3517         this is now compulsory for functions to always return in SPARK.
3518         * libgnat/i-cstrin.ads: Add Might_Not_Return annotation to Update procedure
3519         which may not return.
3521 2023-05-26  Bob Duff  <duff@adacore.com>
3523         * exp_put_image.adb (Build_Image_Call): Treat 'Img the same as
3524         'Image.
3525         * exp_imgv.adb (Expand_Image_Attribute): If Discard_Names, expand
3526         to 'Image instead of 'Img.
3527         * snames.ads-tmpl, par-ch4.adb, sem_attr.adb, sem_attr.ads:
3528         Cleanups: Rename Attribute_Class_Array to be Attribute_Set. Remove
3529         unnecessary qualifications. DRY: Don't repeat "True".
3531 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3533         * sem_prag.adb (Record_Possible_Body_Reference): Remove call to Present.
3534         * sem_util.adb (Find_Untagged_Type_Of): Likewise.
3536 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3538         * exp_aggr.adb (Initialize_Array_Component): Remove obsolete code.
3539         (Expand_Array_Aggregate): In the case where a temporary is created
3540         and the parent is an assignment statement with No_Ctrl_Actions set,
3541         set Is_Ignored_Transient on the temporary.
3543 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3545         * sem_ch12.adb (Instantiate_Package_Body): Set the ghost mode to
3546         that of the instance only after loading the generic's parent.
3547         (Instantiate_Subprogram_Body): Likewise.
3549 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3551         * exp_ch4.adb (Expand_Set_Membership): Simplify by using Evolve_Or_Else.
3553 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3555         * exp_ch4.adb (Is_OK_Object_Reference): Replace loop with a call to
3556         Unqual_Conv; consequently, change object from variable to constant;
3557         replace an IF statement with an AND THEN expression.
3559 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3561         * exp_ch9.adb
3562         (Build_Entry_Count_Expression): Remove loop over component declaration;
3563         consequently remove a parameter that is no longer used; adapt callers.
3564         (Make_Task_Create_Call): Refine type of a local variable.
3566 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3568         * sem_cat.adb (Check_Non_Static_Default_Expr): Detect components inside
3569         loop, not in the loop condition itself.
3571 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3573         * libgnat/a-cbdlli.ads (List): Move Nodes component to the end.
3575 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3577         * libgnat/a-crdlli.ads (List): Move Nodes component to the end.
3579 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3581         * sem_attr.adb (Is_Thin_Pointer_To_Unc_Array): New predicate.
3582         (Resolve_Attribute): Apply the static matching legality rule to an
3583         Unrestricted_Access attribute applied to an aliased prefix if the
3584         type is a thin pointer.  Call Is_Thin_Pointer_To_Unc_Array for the
3585         aliasing legality rule as well.
3587 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3589         * sem_util.adb (Is_Null_Record_Definition): Use First_Non_Pragma and
3590         Next_Non_Pragma to ignore pragmas within component list.
3592 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3594         * sem_prag.adb (Get_Argument): Improve detection of generic units.
3596 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3598         * sem_ch4.adb (Check_Action_OK): Replace low-level test with a
3599         high-level routine.
3600         * sem_ch13.adb (Is_Predicate_Static): Likewise.
3602 2023-05-26  Javier Miranda  <miranda@adacore.com>
3604         * exp_ch9.adb
3605         (Expand_N_Conditional_Entry_Call): Factorize code to avoid
3606         duplicating subtrees; required to avoid problems when the copied
3607         code has implicit labels.
3608         * sem_util.ads (New_Copy_Separate_List): Removed.
3609         (New_Copy_Separate_Tree): Removed.
3610         * sem_util.adb (New_Copy_Separate_List): Removed.
3611         (New_Copy_Separate_Tree): Removed.
3613 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3615         * sem_ch13.adb (Check_Component_List): Local variable Compl is now
3616         a constant; a nested block is no longer needed.
3618 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3620         * sem_aggr.adb
3621         (Resolve_Record_Aggregate): Remove useless assignment.
3622         * sem_aux.adb
3623         (Has_Variant_Part): Remove useless guard; this routine is only called
3624         on type entities (and now will crash in other cases).
3625         * sem_ch3.adb
3626         (Create_Constrained_Components): Only assign Assoc_List when necessary;
3627         tune whitespace.
3628         (Is_Variant_Record): Refactor repeated calls to Parent.
3629         * sem_util.adb
3630         (Gather_Components): Assert that discriminant association has just one
3631         choice in component_association; refactor repeated calls to Next.
3632         * sem_util.ads
3633         (Gather_Components): Tune whitespace in comment.
3635 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3637         * sem_ch3.adb (Check_CPP_Type_Has_No_Defaults): Iterate with
3638         First_Non_Pragma and Next_Non_Pragma.
3639         * exp_dist.adb (Append_Record_Traversal): Likewise.
3641 2023-05-26  Javier Miranda  <miranda@adacore.com>
3643         * exp_ch9.adb (Build_Class_Wide_Master): Remember internal blocks
3644         that have a task master entity declaration.
3645         (Build_Master_Entity): Code cleanup.
3646         * sem_util.ads (Is_Internal_Block): New subprogram.
3647         * sem_util.adb (Is_Internal_Block): New subprogram.
3649 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3651         * sem_util.adb (Gather_Components): Remove guard for empty list of
3652         components.
3654 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3656         * back_end.adb (Call_Back_End): Add gigi_standard_address to the
3657         signature of the gigi procedure and alphabetize other parameters.
3658         Pass Standard_Address as actual parameter for it.
3659         * cstand.adb (Create_Standard): Do not set Is_Descendant_Of_Address
3660         on Standard_Address.
3661         * gcc-interface/gigi.h (gigi): Add a standard_address parameter and
3662         alphabetize others.
3663         * gcc-interface/trans.cc (gigi): Likewise.  Record a builtin address
3664         type and save it as the type for Standard.Address.
3666 2023-05-26  Ghjuvan Lacambre  <lacambre@adacore.com>
3668         * exp_disp.adb (Expand_Dispatching_Call): Handle new Controlling_Tag.
3669         * sem_scil.adb (Check_SCIL_Node): Treat N_Object_Renaming_Declaration as
3670         N_Object_Declaration.
3672 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3674         * exp_aggr.adb
3675         (Build_Constrained_Type): Remove local constants that were shadowing
3676         equivalent global constants; replace a wrapper that calls
3677         Make_Integer_Literal with a numeric literal; remove explicit
3678         Aliased_Present parameter which is equivalent to the default value.
3679         (Check_Bounds): Remove unused initial value.
3680         (Expand_Array_Aggregate): Use aggregate type from the context.
3682 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3684         * einfo.ads (Delay_Cleanups): Document new usage.
3685         * exp_ch7.ads (Build_Finalizer): New declaration.
3686         * exp_ch7.adb (Build_Finalizer.Process_Declarations): Do not treat
3687         library-level package instantiations specially.
3688         (Build_Finalizer): Return early for package bodies and specs that
3689         are not compilation units instead of using a more convoluted test.
3690         (Expand_N_Package_Body): Do not build a finalizer if Delay_Cleanups
3691         is set on the defining entity.
3692         (Expand_N_Package_Declaration): Likewise.
3693         * inline.ads (Pending_Body_Info): Reorder and add Fin_Scop.
3694         (Add_Pending_Instantiation): Add Fin_Scop parameter.
3695         * inline.adb (Add_Pending_Instantiation): Likewise and copy it into
3696         the Pending_Body_Info appended to Pending_Instantiations.
3697         (Add_Scope_To_Clean): Change parameter name to Scop and remove now
3698         irrelevant processing.
3699         (Cleanup_Scopes): Deal with scopes that are package specs or bodies.
3700         (Instantiate_Body): For package instantiations, deal specially with
3701         scopes that are package bodies and with scopes that are dynamic.
3702         Pass the resulting scope to Add_Scope_To_Clean directly.
3703         * sem_ch12.adb (Analyze_Package_Instantiation): In the case where a
3704         body is needed, compute the enclosing finalization scope and pass it
3705         in the call to Add_Pending_Instantiation.
3706         (Inline_Instance_Body): Adjust aggregate passed in the calls to
3707         Instantiate_Package_Body.
3708         (Load_Parent_Of_Generic): Likewise.
3710 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3712         * sem_util.adb (Compile_Time_Constraint_Error): Test the Ekind.
3714 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3716         * exp_aggr.adb (Build_Constrained_Type): Use List_Length to count
3717         expressions in consecutive subaggregates.
3719 2023-05-26  Doug Rupp  <rupp@adacore.com>
3721         * libgnarl/s-osinte__qnx.ads (sigset_t): Modify
3722         declaration to use system.os_constants computed
3723         value. Align it.
3725 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3727         * exp_sel.adb: Add clauses for Sem_Util, remove them for Opt, Sinfo
3728         and Sinfo.Nodes.
3729         (Build_K): Always use 'Tag of the object.
3730         (Build_S_Assignment): Likewise.
3732 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3734         * accessibility.adb
3735         (Is_Formal_Of_Current_Function): This routine expects an entity
3736         reference and not the entity itself, so its parameter is a Node_Id
3737         and not an Entity_Id.
3739 2023-05-26  Piotr Trojanek  <trojanek@adacore.com>
3741         * exp_aggr.adb
3742         (Build_Array_Aggr_Code): Change variable to constant.
3743         (Check_Same_Aggr_Bounds): Fix style; remove unused initial value.
3745 2023-05-26  Ronan Desplanques  <desplanques@adacore.com>
3747         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Create extra formals
3748         in more situations.
3750 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3752         * checks.adb (Selected_Range_Checks): Add guards to protect calls
3753         to Expr_Value on bounds.
3755 2023-05-26  Eric Botcazou  <ebotcazou@adacore.com>
3757         * sem_eval.ads (Is_Null_Range): Remove requirements of compile-time
3758         known bounds and add WARNING line.
3759         (Not_Null_Range): Remove requirements of compile-time known bounds.
3760         * sem_eval.adb (Is_Null_Range): Fall back to Compile_Time_Compare.
3761         (Not_Null_Range): Likewise.
3762         * fe.h (Is_Null_Range): New predicate.
3764 2023-05-25  Javier Miranda  <miranda@adacore.com>
3766         * sem_aggr.adb
3767         (Warn_On_Null_Component_Association): New subprogram.
3768         (Empty_Range): Adding missing support for iterated component
3769         association node.
3770         (Resolve_Array_Aggregate): Report warning on iterated component
3771         association that may initialize some component of an array of
3772         null-excluding access type components with a null value.
3773         * exp_ch4.adb
3774         (Expand_N_Expression_With_Actions): Add missing type check since
3775         the subtype of the EWA node and the subtype of the expression
3776         may differ.
3778 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3780         * sem_util.adb (Determining_Expressions): Fix style; fix layout and
3781         ordering of pragma names; expect pragma Exceptional_Cases.
3783 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3785         * einfo-utils.adb (Write_Entity_Info): Use procedural Next_Index.
3786         * sem_aggr.adb (Collect_Aggr_Bounds): Reuse local constant.
3787         (Resolve_Null_Array_Aggregate): Use procedural Next_Index.
3789 2023-05-25  Javier Miranda  <miranda@adacore.com>
3791         * exp_aggr.adb (Build_Record_Aggr_Code): Protect access to
3792         aggregate components when the aggregate is empty.
3794 2023-05-25  Johannes Kliemann  <kliemann@adacore.com>
3796         * libgnat/system-vxworks7-ppc-kernel.ads: Enable
3797         Support_Atomic_Primitives.
3798         * libgnat/system-vxworks7-ppc-rtp-smp.ads: Likewise.
3800 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
3802         * sem_ch3.adb (Find_Type_Of_Object): Copy the object definition when
3803         building the subtype declaration in the case of a spec expression.
3805 2023-05-25  Tom Tromey  <tromey@adacore.com>
3807         * Make-generated.in (ada/stamp-snames): Check result of
3808         gnatmake.
3810 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
3812         * cstand.adb (Create_Standard): Set the Is_Descendant_Of_Address
3813         flag on Standard_Address.
3814         * freeze.adb (Freeze_Entity): Copy the modulus of System.Address
3815         onto Standard_Address.
3817 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
3819         * libgnat/system-aix.ads (Address): Likewise.
3820         * libgnat/system-darwin-arm.ads (Address): Likewise.
3821         * libgnat/system-darwin-ppc.ads (Address): Likewise.
3822         * libgnat/system-darwin-x86.ads (Address): Likewise.
3823         * libgnat/system-djgpp.ads (Address): Likewise.
3824         * libgnat/system-dragonfly-x86_64.ads (Address): Likewise.
3825         * libgnat/system-freebsd.ads (Address): Likewise.
3826         * libgnat/system-hpux-ia64.ads (Address): Likewise.
3827         * libgnat/system-hpux.ads (Address): Likewise.
3828         * libgnat/system-linux-alpha.ads (Address): Likewise.
3829         * libgnat/system-linux-arm.ads (Address): Likewise.
3830         * libgnat/system-linux-hppa.ads (Address): Likewise.
3831         * libgnat/system-linux-ia64.ads (Address): Likewise.
3832         * libgnat/system-linux-m68k.ads (Address): Likewise.
3833         * libgnat/system-linux-mips.ads (Address): Likewise.
3834         * libgnat/system-linux-ppc.ads (Address): Likewise.
3835         * libgnat/system-linux-riscv.ads (Address): Likewise.
3836         * libgnat/system-linux-s390.ads (Address): Likewise.
3837         * libgnat/system-linux-sh4.ads (Address): Likewise.
3838         * libgnat/system-linux-sparc.ads (Address): Likewise.
3839         * libgnat/system-linux-x86.ads (Address): Likewise.
3840         * libgnat/system-lynxos178-ppc.ads (Address): Likewise.
3841         * libgnat/system-lynxos178-x86.ads (Address): Likewise.
3842         * libgnat/system-mingw.ads (Address): Likewise.
3843         * libgnat/system-qnx-arm.ads (Address): Likewise.
3844         * libgnat/system-rtems.ads (Address): Likewise.
3845         * libgnat/system-solaris-sparc.ads (Address): Likewise.
3846         * libgnat/system-solaris-x86.ads (Address): Likewise.
3847         * libgnat/system-vxworks-ppc-kernel.ads (Address): Likewise.
3848         * libgnat/system-vxworks-ppc-rtp-smp.ads (Address): Likewise.
3849         * libgnat/system-vxworks-ppc-rtp.ads (Address): Likewise.
3850         * libgnat/system-vxworks7-aarch64-rtp-smp.ads (Address): Likewise.
3851         * libgnat/system-vxworks7-aarch64.ads (Address): Likewise.
3852         * libgnat/system-vxworks7-arm-rtp-smp.ads (Address): Likewise.
3853         * libgnat/system-vxworks7-arm.ads (Address): Likewise.
3854         * libgnat/system-vxworks7-ppc-kernel.ads (Address): Likewise.
3855         * libgnat/system-vxworks7-ppc-rtp-smp.ads (Address): Likewise.
3856         * libgnat/system-vxworks7-ppc64-kernel.ads (Address): Likewise.
3857         * libgnat/system-vxworks7-ppc64-rtp-smp.ads (Address): Likewise.
3858         * libgnat/system-vxworks7-x86-kernel.ads (Address): Likewise.
3859         * libgnat/system-vxworks7-x86-rtp-smp.ads (Address): Likewise.
3860         * libgnat/system-vxworks7-x86_64-kernel.ads (Address): Likewise.
3861         * libgnat/system-vxworks7-x86_64-rtp-smp.ads (Address): Likewise.
3863 2023-05-25  Marc Poulhiès  <poulhies@adacore.com>
3865         * sem_ch13.adb (Check_Aspect_At_Freeze_Point): fix format string,
3866         use existing local Ident.
3868 2023-05-25  Bob Duff  <duff@adacore.com>
3870         * atree.adb (Check_Vanishing_Fields): Fix bug in the "blah type
3871         only" cases. Remove the special cases for E_Void. Misc cleanup.
3872         (Mutate_Nkind): Disallow mutating to the same kind.
3873         (Mutate_Ekind): Disallow mutating to E_Void.
3874         (From E_Void is still OK -- entities start out as E_Void by
3875         default.) Fix bug in statistics gathering -- was setting the wrong
3876         count. Enable Check_Vanishing_Fields for entities.
3877         * sem_ch8.adb (Is_Self_Hidden): New function.
3878         (Find_Direct_Name): Call Is_Self_Hidden to use the new
3879         Is_Not_Self_Hidden flag to determine whether a declaration is
3880         hidden from all visibility by itself. This replaces the old method
3881         of checking E_Void.
3882         (Find_Expanded_Name): Likewise.
3883         (Find_Selected_Component): Likewise.
3884         * sem_util.adb (Enter_Name): Remove setting of Ekind to E_Void.
3885         * sem_ch3.adb: Set the Is_Not_Self_Hidden flag in appropriate
3886         places. Comment fixes.
3887         (Inherit_Component): Remove setting of Ekind to E_Void.
3888         * sem_ch9.adb
3889         (Analyze_Protected_Type_Declaration): Update comment. Skip Itypes,
3890         which should not be turned into components.
3891         * atree.ads (Mutate_Nkind): Document error case.
3892         (Mutate_Ekind): Remove comments apologizing for E_Void mutations.
3893         Document error cases.
3895 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
3897         * libgnat/a-ststio.adb (Set_Mode): Test System.Memory_Size.
3898         * libgnat/g-debuti.ads (Address_64): Likewise.
3899         * libgnat/i-c.ads: Add with clause for System.
3900         (ptrdiff_t): Define based on the size of memory space.
3901         (size_t): Likewise.
3902         * libgnat/s-crtl.ads (size_t): Likewise.
3903         (ssize_t): Likewise.
3904         * libgnat/s-memory.ads (size_t): Likewise.
3905         * libgnat/s-parame.ads (Size_Type): Likewise.
3906         * libgnat/s-parame__hpux.ads (Size_Type): Likewise.
3907         * libgnat/s-parame__posix2008.ads (Size_Type): Likewise.
3908         * libgnat/s-parame__vxworks.ads (Size_Type): Likewise.
3909         * libgnat/s-putima.adb (Signed_Address): Likewise.
3910         (Unsigned_Address): Likewise.
3911         * libgnat/s-stoele.ads (Storage_Offset): Likewise.
3913 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3915         * sem_util.adb (Visit_Node): Decrement EWA_Level with the same condition
3916         as when it was incremented.
3918 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3920         * sem_util.ads (New_Copy_Tree): Remove Scopes_In_EWA_OK from spec;
3921         adapt comment.
3922         * sem_util.adb (New_Copy_Tree): Remove Scopes_In_EWA_OK from body;
3923         adapt code.
3925 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3927         * sem_util.adb (Update_New_Entities): Remove redundant check for entity
3928         map being present.
3930 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3932         * atree.adb (Copy_List): Call Copy_Separate_Tree for both entities and
3933         other nodes.
3935 2023-05-25  Steve Baird  <baird@adacore.com>
3937         * exp_attr.adb
3938         (Cached_Streaming_Ops): A new package, providing maps to save
3939         previously-generated Read/Write/Input/Output procedures.
3940         (Expand_N_Attribute_Reference): When a new subprogram is generated
3941         for a Read/Write/Input/Output attribute reference, record that
3942         type/subp pair in the appropriate Cached_Streaming_Ops map.
3943         (Find_Stream_Subprogram): Check the appropriate
3944         Cached_Streaming_Ops map to see if an appropriate subprogram has
3945         already been generated. If so, then return it. The appropriateness
3946         test includes a call to a new nested subprogram,
3947         In_Available_Context.
3948         * exp_strm.ads, exp_strm.adb: Do not pass in a Loc parameter (or a
3949         source-location-bearing Nod parameter) to the 16 procedures
3950         provided for building streaming-related subprograms. Use the
3951         source location of the type instead.
3952         * exp_dist.adb, exp_ch3.adb: Adapt to Exp_Strm spec changes. For
3953         these calls the source location of the type was already being
3954         used.
3956 2023-05-25  Marc Poulhiès  <poulhies@adacore.com>
3958         * sem_ch6.adb (Analyze_Function_Return): Add missing
3959         Is_Access_Type check before accessing the Designated_Type field.
3961 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3963         * sem_ch6.adb (Analyze_Return_Type): Remove unused initial value.
3965 2023-05-25  Marc Poulhiès  <poulhies@adacore.com>
3967         * sem_ch13.adb (Analyze_One_Aspect): Call Record_Rep_Item.
3968         (Check_Aspect_At_Freeze_Point): Check the aspect is specified on
3969         non-array type only...
3970         (Analyze_One_Aspect): ... instead of doing it too early here.
3971         * sem_aggr.adb (Resolve_Container_Aggregate): Do nothing in case
3972         the parameters failed to resolve.
3974 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3976         * sem_util.adb (Check_Internal_Protected_Use): Add standard protection
3977         against search going too far.
3979 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3981         * contracts.adb
3982         (Add_Pre_Post_Condition): Mention new aspects in the comment.
3983         * contracts.ads
3984         (Add_Contract_Item): Likewise.
3985         (Analyze_Subprogram_Body_Stub_Contract): Likewise.
3986         * sem_prag.adb
3987         (Contract_Freeze_Error): Likewise.
3988         (Ensure_Aggregate_Form): Likewise.
3989         * sem_prag.ads
3990         (Find_Related_Declaration_Or_Body): Likewise.
3991         * sinfo.ads
3992         (Is_Generic_Contract_Pragma): Likewise.
3994 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
3996         * aspects.ads
3997         (Implementation_Defined_Aspect): Recently added aspects are
3998         implementation-defined, just like Contract_Cases.
3999         * sem_prag.ads
4000         (Aspect_Specifying_Pragma): Recently added aspects have corresponding
4001         pragmas, just like Contract_Cases.
4002         (Pragma_Significant_To_Subprograms): Recently added aspects are
4003         significant to subprograms, just like Contract_Cases.
4005 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4007         * sem_res.adb (Resolve_Entity_Name): Tune handling of formal parameters
4008         in contract Exceptional_Cases.
4010 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4012         * par-ch7.adb (P_Package): Remove redundant guard from call to
4013         Move_Aspects.
4014         * par-ch9.adb (P_Task): Likewise.
4015         * sem_ch6.adb (Analyze_Expression_Function, Is_Inline_Pragma): Likewise.
4017 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
4019         * exp_ch6.adb (Add_Simple_Call_By_Copy_Code): Use Get_Actual_Subtype
4020         to retrieve the actual subtype for all actuals and do it in only one
4021         place for all unconstrained composite formal types.
4023 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4025         * sem_prag.adb (Analyze_Pragma): Fix references to Exceptional_Cases in
4026         code copied from handling of Subprogram_Variant.
4028 2023-05-25  Ronan Desplanques  <desplanques@adacore.com>
4030         * sem_ch3.adb (Replace_Type): Add more documentation.
4032 2023-05-25  Ronan Desplanques  <desplanques@adacore.com>
4034         * sem_ch3.adb (Replace_Type): Use existing constant wherever
4035         possible.
4037 2023-05-25  Ronan Desplanques  <desplanques@adacore.com>
4039         * sem_ch3.adb (Replace_Type): Reduce span of variable.
4041 2023-05-25  Bob Duff  <duff@adacore.com>
4043         * sem_ch9.adb (Analyze_Protected_Type_Declaration): Set the flag
4044         for protected types.
4045         (Analyze_Single_Protected_Declaration): Likewise, for singleton
4046         protected objects.
4047         (Analyze_Task_Type_Declaration): Set the flag for task types.
4048         (Analyze_Single_Task_Declaration): Likewise, for singleton task
4049         objects.
4050         * sem_ch10.adb (Decorate_Type): Set the flag for types treated as
4051         incomplete.
4052         (Build_Shadow_Entity): Set the flag for shadow entities.
4053         (Decorate_State): Set the flag for an abstract state.
4054         (Build_Limited_Views): Set the flag for limited view of package.
4055         * sem_attr.adb (Check_Not_Incomplete_Type): Disable the check when
4056         this is a current instance.
4058 2023-05-25  Ronan Desplanques  <desplanques@adacore.com>
4060         * freeze.adb (Build_DTW_Body): Add appropriate type conversions for
4061         controlling access parameters.
4062         * sem_util.adb (Build_Overriding_Spec): Fix designated types in
4063         controlling access parameters.
4065 2023-05-25  Bob Duff  <duff@adacore.com>
4067         * gen_il-gen-gen_entities.adb (E_Label): Add
4068         Entry_Cancel_Parameter. This is necessary because
4069         Analyze_Implicit_Label_Declaration set the Ekind to E_Label.
4070         Without this change, this field would fail the vanishing-fields
4071         check in Atree (which is currently commented out).
4072         * einfo.ads (Entry_Cancel_Parameter): Document for E_Label.
4073         * sem_eval.adb (Why_Not_Static): Protect against previous errors
4074         (no need to explain why something is not static if it's already
4075         illegal for other reasons).
4076         * sem_util.ads (Enter_Name): Fix misleading comment.
4078 2023-05-25  Eric Botcazou  <ebotcazou@adacore.com>
4080         * einfo.ads (Scope_Depth): Fix circular definition.
4081         (Scope_Depth_Value): Fix value for library units.
4083 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4085         * sem_ch11.adb (Analyze_Raise_Expression): Tune warning condition.
4086         * libgnat/g-dirope.ads (Open): Remove a potentially inaccurate comment.
4087         * libgnat/g-dirope.adb (Open): Remove a potentially useless assignment;
4088         the Dir output parameter should be assigned a null value anyway by the
4089         preceding call to Free.
4091 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4093         * sem_res.adb (Resolve_Entity_Name): Allow aliased parameters; tune
4094         error message.
4096 2023-05-25  Marc Poulhiès  <poulhies@adacore.com>
4098         * sem_ch13.adb (Analyze_One_Aspect): Mark Aggregate aspect as
4099         needing delayed resolution and reject the aspect on non-array
4100         type.
4102 2023-05-25  Bob Duff  <duff@adacore.com>
4104         * sinfo-utils.adb: Update comment to refer to
4105         New_Node_Debugging_Output.
4107 2023-05-25  Marc Poulhiès  <poulhies@adacore.com>
4109         * rtsfind.adb (Load_RTU.Restore_SPARK_Context): New.
4110         (Load_RTU): Use Restore_SPARK_Context on all exit paths.
4111         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Initialize local
4112         variable to Empty.
4114 2023-05-25  Piotr Trojanek  <trojanek@adacore.com>
4116         * sem_attr.adb
4117         (Analyze_Attribute_Old_Result): Allow uses of 'Old and 'Result within
4118         the new aspect.
4119         * sem_res.adb
4120         (Within_Exceptional_Cases_Consequence): New utility routine.
4121         (Resolve_Entity_Name): Restrict use of formal parameters within the
4122         new aspect.
4124 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4126         * aspects.ads
4127         (Aspect_Id): Add aspect identifier.
4128         (Aspect_Argument): New aspect accepts an expression.
4129         (Is_Representation_Aspect): New aspect is not a representation
4130         aspect.
4131         (Aspect_Names): Associate name with the new aspect identifier.
4132         (Aspect_Delay): New aspect is never delayed.
4133         * contracts.adb
4134         (Add_Contract_Item): Store new aspect among contract items.
4135         (Analyze_Entry_Or_Subprogram_Contract): Likewise.
4136         (Analyze_Subprogram_Body_Stub_Contract): Likewise.
4137         (Process_Contract_Cases): Expand new aspect, if present.
4138         * contracts.ads
4139         (Analyze_Entry_Or_Subprogram_Body_Contract): Mention new aspect in
4140         spec.
4141         (Analyze_Entry_Or_Subprogram_Contract): Likewise.
4142         * einfo-utils.adb
4143         (Get_Pragma): Allow new aspect to be picked by the backend.
4144         * einfo-utils.ads
4145         (Get_Pragma): Mention new aspect in spec.
4146         * exp_prag.adb
4147         (Expand_Pragma_Exceptional_Cases): Dummy expansion routine.
4148         * exp_prag.ads
4149         (Expand_Pragma_Exceptional_Cases): Add spec for expansion routine.
4150         * inline.adb
4151         (Remove_Aspects_And_Pragmas): Remove aspect from bodies to inline.
4152         * par-prag.adb
4153         (Par.Prag): Accept pragma in the parser, so it will be checked
4154         later.
4155         * sem_ch12.adb
4156         (Implementation of Generic Contracts): Mention new aspect in
4157         comment.
4158         * sem_ch13.adb
4159         (Analyze_Aspect_Specifications): Transform new aspect info a
4160         corresponding pragma.
4161         * sem_prag.adb
4162         (Analyze_Exceptional_Cases_In_Decl_Part): Analyze aspect
4163         expression; heavily inspired by the existing code for analysis of
4164         Subprogram_Variant and exception handlers.
4165         (Analyze_Pragma): Analyze pragma corresponding to the new aspect.
4166         (Is_Non_Significant_Pragma_Reference): Add new pragma to the
4167         table.
4168         * sem_prag.ads
4169         (Assertion_Expression_Pragma): New pragma acts as an assertion
4170         expression, even though it is not currently expanded.
4171         (Analyze_Exceptional_Cases_In_Decl_Part): Add spec.
4172         * sem_util.adb
4173         (Is_Subprogram_Contract_Annotation): Mark new annotation is a
4174         subprogram contract, so the subprogram with it won't be inlined.
4175         * sem_util.ads
4176         (Is_Subprogram_Contract_Annotation): Mention new aspect in
4177         comment.
4178         * sinfo.ads
4179         (Contract_Test_Cases): Mention new aspect in comment.
4180         * snames.ads-tmpl: Add entries for the new name and pragma.
4182 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4184         * sem_ch13.adb (Build_Predicate_Functions): If the current scope
4185         is not that of the type, push this scope and pop it at the end.
4186         * sem_util.ads (Current_Scope_No_Loops_No_Blocks): Delete.
4187         * sem_util.adb (Current_Scope_No_Loops_No_Blocks): Likewise.
4188         (Set_Public_Status): Call again Current_Scope.
4190 2023-05-23  Gary Dismukes  <dismukes@adacore.com>
4192         * exp_ch6.adb (Might_Have_Tasks): Remove unneeded Etype call from
4193         call to Is_Limited_Record, since that flag is now properly
4194         inherited by class-wide types.
4195         * sem_ch3.adb (Analyze_Private_Extension_Declaration): Remove call
4196         to Make_Class_Wide_Type, which is done too early, and will later
4197         be done in Build_Derived_Record_Type after flags such as
4198         Is_Limited_Record and Is_Controlled_Active have been set on the
4199         derived type.
4201 2023-05-23  Patrick Bernardi  <bernardi@adacore.com>
4203         * libgnat/s-stchop.adb (Stack_Check): Remove redundant parentheses.
4205 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4207         * freeze.adb (Freeze_Record_Type): Add tag for redundant pragma Pack.
4208         * sem_aggr.adb (Resolve_Record_Aggregate): Add tag for redundant OTHERS
4209         choice.
4210         * sem_ch8.adb (Use_One_Type): Add tag for redundant USE clauses.
4212 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4214         * sem_ch11.adb
4215         (Check_Duplication): Fix inconsistent iteration.
4216         (Others_Present): Iterate over handlers using First_Non_Pragma and
4217         Next_Non_Pragma just like in Check_Duplication.
4219 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4221         * einfo.ads (Delay_Subprogram_Descriptors): Delete.
4222         * gen_il-fields.ads (Opt_Field_Enum): Remove
4223         Delay_Subprogram_Descriptors.
4224         * gen_il-gen-gen_entities.adb (Gen_Entities): Likewise.
4225         * gen_il-gen-gen_nodes.adb (N_Entry_Body): Add Corresponding_Spec.
4226         * sinfo.ads (Corresponding_Spec): Document new use.
4227         (N_Entry_Body): Likewise.
4228         * exp_ch6.adb (Expand_Protected_Object_Reference): Be prepared for
4229         protected subprograms that have been expanded.
4230         * exp_ch7.adb (Expand_Cleanup_Actions): Remove unreachable code.
4231         * exp_ch9.adb (Build_Protected_Entry): Add a local variable for the
4232         new block and propagate Uses_Sec_Stack from the corresponding spec.
4233         (Expand_N_Protected_Body) <N_Subprogram_Body>: Unconditionally reset
4234         the scopes of top-level entities in the new body.
4235         * inline.adb (Cleanup_Scopes): Do not adjust the scope on the fly.
4236         * sem_ch9.adb (Analyze_Entry_Body): Set Corresponding_Spec.
4237         * sem_ch12.adb (Analyze_Package_Instantiation): Remove obsolete code
4238         setting Delay_Subprogram_Descriptors and tidy up.
4239         * sem_util.adb (Scope_Within): Deal with protected subprograms that
4240         have been expanded.
4241         (Scope_Within_Or_Same): Likewise.
4243 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4245         * libgnarl/s-taskin.ads (Atomic_Address): Delete.
4246         (Attribute_Array): Add pragma Atomic_Components.
4247         (Ada_Task_Control_Block): Adjust default value of Attributes.
4248         * libgnarl/s-tasini.adb (Finalize_Attributes): Adjust type of local
4249         variable.
4250         * libgnarl/s-tataat.ads (Deallocator): Adjust type of parameter.
4251         (To_Attribute): Adjust source type.
4252         * libgnarl/a-tasatt.adb: Add clauses for System.Storage_Elements.
4253         (New_Attribute): Adjust return type.
4254         (Deallocate): Adjust type of parameter.
4255         (To_Real_Attribute): Adjust source type.
4256         (To_Address): Add target type.
4257         (To_Attribute): Adjust source type.
4258         (Fast_Path): Adjust tested type.
4259         (Finalize): Compare with Null_Address.
4260         (Reference): Likewise.
4261         (Reinitialize): Likewise.
4262         (Set_Value): Likewise.  Add conversion to Integer_Address.
4263         (Value): Likewise.
4265 2023-05-23  Raphael Amiard  <amiard@adacore.com>
4267         * scng.adb (Scan): Replace occurrences of All_Extensions_Allowed
4268         by Core_Extensions_Allowed.
4270 2023-05-23  Claire Dross  <dross@adacore.com>
4272         * libgnat/s-valueu.adb (Scan_Raw_Unsigned): Use new helpers.
4273         * libgnat/s-vauspe.ads (Raw_Unsigned_Starts_As_Based_Ghost,
4274         Raw_Unsigned_Is_Based_Ghost): New ghost helper functions.
4275         (Is_Raw_Unsigned_Format_Ghost, Scan_Split_No_Overflow_Ghost,
4276         Scan_Split_Value_Ghost, Raw_Unsigned_Last_Ghost): Use new
4277         helpers.
4279 2023-05-23  Arnaud Charlet  <charlet@adacore.com>
4281         * par-ch5.adb, style.ads, styleg.adb, styleg.ads
4282         (Check_Xtra_Parens): Remove extra parameter Enable.
4283         (Check_Xtra_Parens_Precedence): New.
4284         (P_Case_Statement): Add -gnatyx style check.
4285         * sem_ch4.adb: Replace calls to Check_Xtra_Parens by
4286         Check_Xtra_Parens_Precedence.
4287         * stylesw.ads, stylesw.adb, usage.adb: Add support for
4288         -gnatyz.
4289         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
4290         Update -gnatyxzg doc.
4291         * sem_prag.adb, libgnat/s-regpat.adb,
4292         libgnarl/s-interr__hwint.adb, libgnarl/s-interr__vxworks.adb:
4293         Remove extra parens.
4294         * par-ch3.adb (P_Discrete_Range): Do not emit a style check if
4295         the expression is not a simple expression.
4296         * gnat_ugn.texi: Regenerate.
4298 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4300         * libgnat/s-dwalin.adb (Enable_Cache): Use the subtract operator of
4301         System.Storage_Elements to compute the offset.
4302         (Symbolic_Address): Likewise.
4304 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4306         * sem_res.adb (Resolve_Intrinsic_Operator): Always perform the same
4307         resolution for the special mod operator of System.Storage_Elements.
4309 2023-05-23  Raphael Amiard  <amiard@adacore.com>
4311         * doc/gnat_rm.rst, doc/gnat_rm/gnat_language_extensions.rst,
4312         doc/gnat_rm/implementation_defined_pragmas.rst:
4313         * gnat_rm.texi: Regenerate.
4315 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4317         * exp_ch4.adb (Expand_N_Op_Mod): Adjust the detection of the special
4318         operator of System.Storage_Elements.  Do not rewrite it into a rem.
4319         * sem_res.adb (Resolve_Intrinsic_Operator): Use the base type of the
4320         left operand for the special mod operator of System.Storage_Elements
4322 2023-05-23  Vadim Godunko  <godunko@adacore.com>
4324         * libgnat/a-coinho__shared.adb (Constant_Reference): Remove call
4325         of Detach
4326         (Query_Element): Likewise.
4328 2023-05-23  Ronan Desplanques  <desplanques@adacore.com>
4330         * sem_disp.adb: Fix reference to Ada issue in comment.
4332 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4334         * exp_disp.adb (Expand_Dispatching_Call): In the abstract interface
4335         class-wide case, use 'Tag of the object as the controlling tag.
4336         (Expand_Interface_Thunk): Perform address arithmetic using operators
4337         of System.Storage_Elements.
4339 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4341         * libgnat/i-cpoint.adb: Add clauses for System.Storage_Elements.
4342         (Addr): Delete.
4343         (Offset): New subtype of Storage_Offset.
4344         (To_Offset): New instance of Unchecked_Conversion.
4345         (To_Pointer): Adjust.
4346         (To_Addr): Likewise.
4347         (To_Ptrdiff): Likewise.
4348         ("+"): Call To_Offset on the offset.
4349         ("-"): Likewise.
4350         * libgnat/s-bituti.adb: Add clauses for System.Storage_Elements.
4351         (Val_Bytes): Change type to Storage_Count.
4352         (Get_Val_2): Add qualification to second operand of mod operator.
4353         (Set_Val_2): Likewise.
4354         (Copy_Bitfield): Likewise.  Change type of Src_Adjust & Dest_Adjust.
4355         * libgnat/s-stratt.ads (Thin_Pointer): Change to subtype of Address.
4356         * libgnat/s-statxd.adb (I_AD): Adjust.
4357         (I_AS): Likewise.
4358         (W_AS): Likewise.
4360 2023-05-23  Steve Baird  <baird@adacore.com>
4362         * sem_util.adb
4363         (Is_Variable): Correctly return False for a selected component
4364         name of the form Some_Object.Some_Discriminant, even if
4365         Some_Object is a variable. We don't want to allow such a name as
4366         an actual parameter in a call if the corresponding formal
4367         parameter's mode is not "in".
4369 2023-05-23  Yannick Moy  <moy@adacore.com>
4371         * sem_util.adb (Check_Node): Add default init on local Id.
4373 2023-05-23  Yannick Moy  <moy@adacore.com>
4375         * libgnat/i-c.adb (To_Ada): Add loop invariant.
4377 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4379         * exp_ch4.adb (Expand_N_Op_Mod): Deal with the special mod
4380         operator of System.Storage_Elements.
4381         * exp_intr.adb (Expand_To_Integer): New procedure.
4382         (Expand_Intrinsic_Call): Call Expand_To_Integer appropriately.
4383         (Expand_To_Address): Deal with an argument with modular type.
4384         * sem_ch3.adb (Derive_Subprogram): Also set convention Intrinsic
4385         on a derived intrinsic subprogram.
4386         * sem_res.adb (Resolve_Arithmetic_Op): Deal with intrinsic
4387         operators not coming from source exactly as those coming from
4388         source and also generate a reference in both cases.
4389         (Resolve_Op_Expon): Likewise.
4390         (Resolve_Intrinsic_Operator): Call Implementation_Base_Type to get
4391         a nonprivate base type.
4392         * snames.ads-tmpl (Name_To_Integer): New intrinsic name.
4393         * libgnat/s-stoele.ads: Replace pragma Convention with pragma
4394         Import throughout and remove pragma Inline_Always and
4395         Pure_Function.
4396         * libgnat/s-stoele.adb: Replace entire contents with pragma
4397         No_Body.
4398         * libgnat/s-atacco.adb: Adjust comment about pragma No_Body.
4400 2023-05-23  Javier Miranda  <miranda@adacore.com>
4402         * sem_prag.adb (Analyze_Pre_Post_Condition_In_Decl_Part): Remove
4403         call to preanalyze class-wide conditions since here it is too
4404         early; they must be preanalyzed when full views of private types
4405         have been analyzed.
4406         * sem_ch7.adb (Analyze_Package_Specification): Preanalyze
4407         class-wide conditions of dispatching primitives defined in nested
4408         packages.
4410 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4412         * errout.adb (Last_Sloc): Refactor a heavily repeated "S := S + 1"
4413         statement into a subprogram; replace assertions with defensive code;
4414         fix few more off-by-one errors.
4416 2023-05-23  Ronan Desplanques  <desplanques@adacore.com>
4418         * einfo.ads: Mention full name of LSP.
4420 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4422         * errout.adb (Last_Sloc): Rewrite skipping past numeric literals.
4424 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4426         * sem_ch13.adb (Build_Predicate_Function_Declaration): Adjust the
4427         commentary to the current implementation.
4428         * sem_util.ads (Current_Scope_No_Loops): Move around.
4429         (Current_Scope_No_Loops_No_Blocks): New declaration.
4430         (Add_Block_Identifier): Fix formatting.
4431         * sem_util.adb (Add_Block_Identifier): Likewise.
4432         (Current_Scope_No_Loops_No_Blocks): New function.
4433         (Set_Public_Status): Call Current_Scope_No_Loops_No_Blocks instead
4434         of Current_Scope to get the current scope.
4436 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4438         * exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): Do not
4439         manually generate a predicate check.  Call Unqualify before doing
4440         pattern matching on the expression.
4441         * sem_ch3.adb (Analyze_Object_Declaration): Also freeze the actual
4442         subtype when it is built in the definite case.
4444 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4446         * libgnarl/s-interr.adb
4447         (Registered_Handler): Remove default expression.
4448         (Registered_Handlers): Switch to singly-linked list.
4449         (Bind_Interrupt_To_Entry): Sync whitespace with other unit variants.
4450         (Is_Registered): Use singly-linked list.
4451         (Register_Interrupt_Handler): Use singly-linked list and initialized
4452         allocator; sync assertion with other unit variants.
4453         * libgnarl/s-interr__sigaction.adb: Likewise.
4454         * libgnarl/s-interr__vxworks.adb: Likewise.
4455         * libgnarl/s-interr__hwint.adb: Likewise.
4456         (Is_Registered): Remove repeated declaration.
4458 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4460         * pprint.adb (Expression_Image): Restore some of the old pretty-printing
4461         for CodePeer.
4463 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4465         * errout.adb (First_And_Last_Nodes): Ignore accessibility parameters.
4467 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4469         * exp_ch4.adb (Expand_N_Op_Ne): Simply don't add extra parens.
4471 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4473         * pprint.adb (Expression_Image): Move Count_Parentheses and
4474         Fix_Parentheses routines from GNATprove and apply them before
4475         returning the slice of a source code buffer.
4477 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4479         * errout.adb
4480         (Paren_Required): New subsidiary routine for better handling of
4481         parentheses in First_Node/Last_Node.
4482         (First_Sloc, Last_Sloc): Use Get_Source_File_Index to correctly
4483         handle generic instances and inlined subprograms; tune handling of
4484         parentheses; improve handling of literals.
4485         * pprint.adb (Expression_Image): Simplify using
4486         First_Sloc/Last_Sloc.
4487         * sem_ch6.adb (Analyze_Expression_Function): Remove parenthesis
4488         when relocating expression from expression function to simple
4489         return statement.
4491 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4493         * exp_prag.adb (Expand_Pragma_Check): Suppress warning for checks of
4494         subprogram variants.
4496 2023-05-23  Eric Botcazou  <ebotcazou@adacore.com>
4498         * frontend.adb (Frontend): Merge two conditional blocks and adjust.
4500 2023-05-23  Piotr Trojanek  <trojanek@adacore.com>
4502         * libgnat/s-mmap.adb (Mapped_Region_Record): Fix typo in comment.
4504 2023-05-23  Ronan Desplanques  <desplanques@adacore.com>
4506         * sem_ch7.adb: Remove duplicate comment.
4508 2023-05-23  Javier Miranda  <miranda@adacore.com>
4510         * sem_ch10.adb
4511         (Analyze_Required_Limited_With_Units): New subprogram.
4512         (Depends_On_Limited_Views): New subprogram.
4513         (Has_Limited_With_Clauses): New subprogram.
4514         (Analyze_Compilation_Unit): Call the new subprogram that performs
4515         the full analysis of required limited-with units.
4517 2023-05-22  Ronan Desplanques  <desplanques@adacore.com>
4519         * cstand.adb: Use more idiomatic procedure.
4521 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4523         * errout.adb (First_Loc): Avoid repeated calls.
4524         (Last_Loc): Likewise.
4526 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4528         * inline.adb (Cleanup_Scopes): Do not propagate the Uses_Sec_Stack
4529         flag from original to rewritten protected subprograms here...
4530         * exp_ch9.adb (Expand_N_Protected_Body) <N_Subprogram_Body>:
4531         ...but here instead. Add local variables and remove a useless
4532         test.
4534 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4536         * exp_ch7.adb (Expand_N_Package_Body): Call Defining_Entity to get
4537         the entity of the body.
4539 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4541         * exp_attr.adb (Expand_Loop_Entry_Attribute): Use location of the
4542         attribute reference, not of the loop statement.
4544 2023-05-22  Ronan Desplanques  <desplanques@adacore.com>
4546         * par-ch3.adb: Add missing word in comment.
4548 2023-05-22  Justin Squirek  <squirek@adacore.com>
4550         * checks.adb (Install_Null_Excluding_Check): Avoid non-null
4551         optimizations when assertions are enabled.
4553 2023-05-22  Marc Poulhiès  <poulhies@adacore.com>
4555         * exp_aggr.adb (Process_Transient_Component): Reset Analyzed flag
4556         for the copy of the initialization expression.
4557         * sem_attr.adb (Validate_Non_Static_Attribute_Function_Call): Skip
4558         error emission during Pre_Analyze.
4560 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4562         * exp_ch7.adb (Process_Package_Body): New procedure taken from...
4563         (Build_Finalizer.Process_Declarations): ...here.  Call the above
4564         procedure to deal with both package bodies and package body stubs.
4566 2023-05-22  Ronan Desplanques  <desplanques@adacore.com>
4568         * atree.ads: Remove outdated part of comment.
4570 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4572         * exp_ch7.adb (Build_Finalizer): Reverse the test comparing the
4573         instantiation and declaration nodes of a package instance, and
4574         therefore bail out only when they are equal.  Adjust comments.
4575         (Expand_N_Package_Declaration): Do not clear the Finalizer field.
4576         * lib-writ.adb: Add with and use clauses for Sem_Util.
4577         (Write_Unit_Information): Look at unit nodes to find finalizers.
4578         * sem_ch12.adb (Analyze_Package_Instantiation): Beef up the comment
4579         about the rewriting of the instantiation node into a declaration.
4581 2023-05-22  Bob Duff  <duff@adacore.com>
4583         * cstand.adb (Is_Past_Self_Hiding_Point): Rename to be
4584         Is_Not_Self_Hidden.
4585         * einfo.ads: Likewise.
4586         * exp_aggr.adb: Likewise.
4587         * gen_il-fields.ads: Likewise.
4588         * gen_il-gen-gen_entities.adb: Likewise.
4589         * sem.adb: Likewise.
4590         * sem_aggr.adb: Likewise.
4591         * sem_ch11.adb: Likewise.
4592         * sem_ch12.adb: Likewise.
4593         * sem_ch5.adb: Likewise.
4594         * sem_ch6.adb: Likewise.
4595         * sem_ch7.adb: Likewise.
4596         * sem_prag.adb: Likewise.
4598 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4600         * exp_ch3.adb (Make_Controlling_Function_Wrappers): Create the body
4601         as the expanded body of an expression function.
4603 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4605         * pprint.adb (Expression_Image): Handle several previously unsupported
4606         constructs.
4608 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4610         * sem_res.adb (Resolve_Entity_Name): Combine two IF statements that
4611         execute code only for references that come from source.
4613 2023-05-22  Bob Duff  <duff@adacore.com>
4615         * einfo.ads (Is_Past_Self_Hiding_Point): Document.
4616         * gen_il-fields.ads (Is_Past_Self_Hiding_Point): Add to list of
4617         fields.
4618         * gen_il-gen-gen_entities.adb (Is_Past_Self_Hiding_Point): Declare
4619         in all entities.
4620         * exp_aggr.adb: Set Is_Past_Self_Hiding_Point as appropriate.
4621         * sem.adb: Likewise.
4622         * sem_aggr.adb: Likewise.
4623         * sem_ch11.adb: Likewise.
4624         * sem_ch12.adb: Likewise.
4625         * sem_ch5.adb: Likewise.
4626         * sem_ch7.adb: Likewise.
4627         * sem_prag.adb: Likewise.
4628         * sem_ch6.adb: Likewise.
4629         (Set_Formal_Mode): Minor cleanup: Move from spec.
4630         * sem_ch6.ads:
4631         (Set_Formal_Mode): Minor cleanup: Move to body.
4632         * cstand.adb: Call Set_Is_Past_Self_Hiding_Point on all entities
4633         as soon as they are created.
4634         * comperr.adb (Compiler_Abort): Minor cleanup -- use 'in' instead
4635         of 'or else'.
4636         * debug.adb: Minor comment cleanups.
4638 2023-05-22  Steve Baird  <baird@adacore.com>
4640         * sem_ch4.adb (Analyze_Expression_With_Actions.Check_Action_Ok):
4641         Accept an executable pragma occuring in a declare expression as
4642         per AI22-0045. This means Assert and Inspection_Point pragmas as
4643         well as any implementation-defined pragmas that the implementation
4644         chooses to categorize as executable. Currently Assume and Debug
4645         are the only such pragmas.
4647 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4649         * sem_prag.adb
4650         (Check_Postcondition_Use_In_Inlined_Subprogram): Mention
4651         Subprogram_Variant in the comment.
4652         (Analyze_Subprogram_Variant_In_Decl_Part): Warn when contract is
4653         ignored because of pragma Inline_Always and frontend inlining.
4655 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4657         * sem_prag.adb (Check_Postcondition_Use_In_Inlined_Subprogram): Only
4658         emit warning when frontend inlining is enabled.
4660 2023-05-22  Arnaud Charlet  <charlet@adacore.com>
4662         * par-ch3.adb, sem_ch4.adb (P_Discrete_Range, Analyze_Logical_Op,
4663         Analyze_Short_Circuit): Add calls to Check_Xtra_Parentheses.
4664         * par-ch5.adb (P_Condition): Move logic to Check_Xtra_Parentheses.
4665         * style.ads, styleg.adb, styleg.ads (Check_Xtra_Parens): Move logic
4666         related to expressions requiring parentheses here.
4668 2023-05-22  Arnaud Charlet  <charlet@adacore.com>
4670         * ali-util.adb, par-endh.adb, par-prag.adb, par-ch2.adb,
4671         checks.adb, fmap.adb, libgnat/a-nbnbig.ads, libgnat/g-dynhta.adb,
4672         libgnat/s-carun8.adb, libgnat/s-strcom.adb, libgnat/a-dhfina.adb,
4673         libgnat/a-direct.adb, libgnat/a-rbtgbo.adb, libgnat/a-strsea.adb,
4674         libgnat/a-ststio.adb, libgnat/a-suenco.adb, libgnat/a-costso.adb,
4675         libgnat/a-strmap.adb, libgnat/g-alleve.adb,
4676         libgnat/g-debpoo.adb, libgnat/g-sercom__linux.adb,
4677         libgnat/s-genbig.adb, libgnat/s-mmap.adb, libgnat/s-regpat.adb,
4678         par-ch5.adb, sem_case.adb, sem_ch12.adb, sem_ch13.adb,
4679         sem_ch8.adb, sem_eval.adb, sem_prag.adb, sem_type.adb,
4680         exp_ch11.adb, exp_ch2.adb, exp_ch3.adb, exp_ch4.adb, exp_ch5.adb,
4681         exp_ch6.adb, exp_ch9.adb, exp_put_image.adb, freeze.adb, live.adb,
4682         sem_aggr.adb, sem_cat.adb, sem_ch10.adb, sem_ch3.adb, sem_ch6.adb,
4683         sem_ch9.adb, sem_disp.adb, sem_elab.adb, sem_res.adb,
4684         sem_util.adb, sinput.adb, uintp.adb, bcheck.adb, binde.adb,
4685         binderr.adb, einfo-utils.adb, clean.adb, sem_ch4.adb, gnatls.adb,
4686         gprep.adb, sem_ch11.adb: Remove extra parentheses.
4688 2023-05-22  Arnaud Charlet  <charlet@adacore.com>
4690         * sem_aggr.adb (Get_Value): Use ?? instead of ?.
4692 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4694         * exp_aggr.adb (Aggregate_Size): Remove redundant calls to
4695         Present.
4696         * exp_ch5.adb (Expand_N_If_Statement): Likewise.
4697         * sem_prag.adb (Analyze_Pragma): Likewise.
4698         * sem_warn.adb (Find_Var): Likewise.
4700 2023-05-22  Claire Dross  <dross@adacore.com>
4702         * sem_util.adb (Find_Actual): On calls through dereferences,
4703         return the corresponding formal in the designated subprogram
4704         profile.
4706 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4708         * sem_util.ads (Is_Actual_Tagged_Parameter): Remove spec.
4709         * sem_util.adb (Is_Actual_Tagged_Parameter): Remove body.
4711 2023-05-22  Joffrey Huguet  <huguet@adacore.com>
4713         * libgnat/a-strunb.ads, libgnat/a-strunb__shared.ads
4714         (To_Unbounded_String): Add postcondition. Add aspect SPARK_Mode
4715         Off on the version that takes a Natural as parameter.
4716         (To_String): Complete postcondition.
4717         (Set_Unbounded_String): Add postcondition.
4718         (Element): Likewise.
4719         ("="): Likewise.
4721 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4723         * exp_ch3.adb (Freeze_Type): Do not associate the Finalize_Address
4724         routine for a class-wide type if restriction No_Dispatching_Calls
4725         is in effect.
4727 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4729         * libgnat/s-genbig.ads (From_Bignum): New overloaded declarations.
4730         * libgnat/s-genbig.adb (LLLI): New subtype.
4731         (LLLI_Is_128): New boolean constant.
4732         (From_Bignum): Change the return type of the signed implementation
4733         to Long_Long_Long_Integer and add support for the case where its
4734         size is 128 bits.  Add a wrapper around it for Long_Long_Integer.
4735         Add an unsigned implementation returning Unsigned_128 and a wrapper
4736         around it for Unsigned_64.
4737         (To_Bignum): Test LLLI_Is_128 instead of its size.
4738         (To_String.Image): Add qualification to calls to From_Bignum.
4739         * libgnat/a-nbnbin.adb (To_Big_Integer): Likewise.
4740         (Signed_Conversions.From_Big_Integer): Likewise.
4741         (Unsigned_Conversions): Likewise.
4743 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4745         * freeze.adb (Wrap_Imported_Subprogram): Use Copy_Subprogram_Spec
4746         to copy the spec from the subprogram to the generated subprogram
4747         body.
4748         (Freeze_Entity): Do not wrap imported subprograms inside generics.
4750 2023-05-22  Steve Baird  <baird@adacore.com>
4752         * sem_ch4.adb (Analyze_Expression_With_Actions.Check_Action_Ok):
4753         If Comes_From_Source (A) is False, then look at Original_Node (A)
4754         instead of A. In particular, if an (illegal) expression function
4755         is transformed into a "vanilla" function, we don't want to allow
4756         it just because Comes_From_Source is now False.
4758 2023-05-22  Steve Baird  <baird@adacore.com>
4760         * sem_prag.adb (Analyze_Pragma): In Check_No_Return, call
4761         Error_Msg_Ada_2022_Feature in the case of a function. Remove code
4762         outside of Check_No_Return that was querying Ada_Version.
4764 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4766         * exp_ch4.adb (Expand_N_Expression_With_Actions.Process_Action): Do
4767         not look into nested blocks.
4769 2023-05-22  Eric Botcazou  <ebotcazou@adacore.com>
4771         * sem_ch3.adb (Find_Type_Of_Object): In a spec expression, also set
4772         the Scope of the type, and call Constrain_Array for array subtypes.
4774 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4776         * pprint.adb (Expression_Image): Reduce scope of local variables; inline
4777         local uncommented constant From_Source; concatenate string with a single
4778         character, as it is likely to execute faster; add missing cases to
4779         traversal for the rightmost node and assertion to demonstrate that the
4780         ??? comment is no longer relevant.
4782 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4784         * pprint.adb (Expr_Name): Qualify CASE expression with N_Subexpr; add
4785         missing alternative for N_Raise_Storage_Error; remove dead alternatives;
4786         explicitly list unsupported alternatives.
4788 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4790         * pprint.adb (Expr_Name): Exclude DEL from printable range.
4792 2023-05-22  Piotr Trojanek  <trojanek@adacore.com>
4794         * sem_util.ads (New_Copy_Tree): Update comment.
4795         * sem_util.adb (New_Copy_Tree): Update Controlling_Argument, very
4796         much like we update the First/Next_Named_Association.
4798 2023-05-22  Bob Duff  <duff@adacore.com>
4800         * fe.h: Remove Ada_With_Extensions and add commentary.
4801         * opt.ads: Rearrange code and add commentary.
4803 2023-05-22  Bob Duff  <duff@adacore.com>
4805         * sem_util.adb (Process_Type): Stop the recursion.
4806         * exp_aggr.adb (Build_Record_Aggr_Code): Add assertion.
4808 2023-05-18  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>
4810         * gcc-interface/decl.cc (gnat_to_gnu_entity): Use _P defines
4811         from tree.h.
4812         (constructor_address_p): Ditto.
4813         (elaborate_expression_1): Ditto.
4814         * gcc-interface/trans.cc (Identifier_to_gnu): Ditto.
4815         (is_nrv_p): Ditto.
4816         (Subprogram_Body_to_gnu): Ditto.
4817         (gnat_to_gnu): Ditto.
4818         (gnat_to_gnu_external): Ditto.
4819         (add_decl_expr): Ditto.
4820         (gnat_gimplify_expr): Ditto.
4821         * gcc-interface/utils.cc (create_var_decl): Ditto.
4822         * gcc-interface/utils2.cc (get_base_type): Ditto.
4823         (build_binary_op): Ditto.
4824         (build_unary_op): Ditto.
4825         (gnat_protect_expr): Ditto.
4826         (gnat_invariant_expr): Ditto.
4828 2023-05-16  Steve Baird  <baird@adacore.com>
4830         * usage.adb: Generate output text describing the -gnatw_s switch
4831         (and the corresponding -gnatw_S switch).
4833 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4835         * exp_attr.adb (Expand_N_Attribute_Reference) <Attribute_Reduce>:
4836         Use the canonical accumulator type as the type of the accumulator
4837         in the prefixed case.
4839 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4841         * exp_aggr.adb (Expand_Array_Aggregate): Do not set Warnings_Off on
4842         the temporary created when in-place expansion is not possible.
4844 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4846         * freeze.adb (Freeze_Expression): When the freezing is to be done
4847         outside the current scope, skip any scope that is an internal loop.
4849 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4851         * exp_imgv.adb (Rewrite_Object_Image): If the prefix is a component
4852         that depends on a discriminant, create an actual subtype for it.
4854 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4856         * sem_ch13.adb: Add with and use clauses for Expander.
4857         (Resolve_Aspect_Expressions) <Aspect_Predicate>: Emulate a
4858         bona-fide preanalysis setup before calling
4859         Resolve_Aspect_Expression.
4861 2023-05-16  Yannick Moy  <moy@adacore.com>
4863         * libgnat/s-aridou.adb (Lemma_Div_Pow2): Add assertion.
4864         * libgnat/s-arit32.adb (Lemma_Abs_Div_Commutation): Simplify.
4865         * libgnat/s-expmod.adb (Lemma_Exp_Mod): Add assertions.
4866         (Lemma_Euclidean_Mod): Add body to lemma.
4867         (Lemma_Mult_Mod): Add assertion.
4868         * libgnat/s-valueu.adb (Scan_Raw_Unsigned): Modify assertion.
4869         * libgnat/s-vauspe.ads (Raw_Unsigned_Last_Ghost): Add
4870         postcondition.
4871         * libgnat/s-widthi.adb: Use more precise types.
4873 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4875         * sem_res.adb (Has_Applicable_User_Defined_Literal): Apply the
4876         same processing for derived untagged types as for tagged types.
4877         * sem_util.ads (Corresponding_Primitive_Op): Adjust description.
4878         * sem_util.adb (Corresponding_Primitive_Op): Handle untagged
4879         types.
4881 2023-05-16  Javier Miranda  <miranda@adacore.com>
4883         * sem_attr.adb
4884         (Analyze_Attribute_Old_Result): When preanalyzing a class-wide
4885         condition, search in the scopes stack for the subprogram that has
4886         the condition. This is required because returning the current
4887         scope causes reporting spurious errors when the occurrence of the
4888         attribute is found, for example, in a quantified expression.
4890 2023-05-16  Javier Miranda  <miranda@adacore.com>
4892         * exp_ch6.adb
4893         (Needs_BIP_Alloc_Form): Return False for functions with foreign
4894         convention since we never use build-in-place for such functions.
4896 2023-05-16  Piotr Trojanek  <trojanek@adacore.com>
4898         * sem_util.adb (Aggregate_Constraint_Checks): Don't exit early
4899         when preanalysing in GNATprove mode. Now the condition is
4900         consistent with other similar conditions in other code.
4902 2023-05-16  Ghjuvan Lacambre  <lacambre@adacore.com>
4904         * usage.adb (Usage): Document -gnatyD.
4906 2023-05-16  Marc Poulhiès  <poulhies@adacore.com>
4908         * libgnat/s-tsmona__linux.adb (link_map, r_debug_type): Add
4909         'aliased' on all components.
4911 2023-05-16  Johannes Kliemann  <kliemann@adacore.com>
4913         * libgnat/system-linux-ppc.ads: Add Support_Atomic_Primitives.
4914         * libgnat/s-atopri__32.ads: Add 32 bit version of s-atopri.ads.
4915         * Makefile.rtl: Use s-atopro__32.ads for ppc-linux.
4917 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4919         * sem_util.adb (Get_Actual_Subtype): For an explicit dereference,
4920         return the Actual_Designated_Subtype if it is present.
4921         (Get_Actual_Subtype_If_Available): Likewise.
4923 2023-05-16  Arnaud Charlet  <charlet@adacore.com>
4925         * errout.ads: Update comment.
4926         * errout.adb (Skip_Msg_Insertion_Warning): Update to take e.g.
4927         -gnatyM into account.
4928         * erroutc.adb (Get_Warning_Option, Get_Warning_Tag)
4929         (Prescan_Message): Add support for Style tags.
4930         * par-ch5.adb, par-ch6.adb, par-ch7.adb, par-endh.adb,
4931         par-util.adb, style.adb, styleg.adb: Set tag on all style
4932         messages.
4934 2023-05-16  Tom Tromey  <tromey@adacore.com>
4936         * doc/gnat_ugn/building_executable_programs_with_gnat.rst
4937         (Switches_for_gnatbind): Fix typo.
4938         * libgnat/g-spipat.ads: Fix typo.
4939         * gnat_ugn.texi: Regenerate.
4941 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4943         * exp_aggr.adb (Build_Assignment_With_Temporary): Adjust comment
4944         and fix type of second parameter. Create the temporary on the
4945         secondary stack by calling Build_Temporary_On_Secondary_Stack.
4946         (Convert_Array_Aggr_In_Allocator): Adjust formatting.
4947         (Expand_Array_Aggregate): Likewise.
4948         * exp_ch4.adb (Expand_N_Allocator): Set Actual_Designated_Subtype
4949         on the dereference in the initialization for all composite types.
4950         * exp_ch5.adb (Expand_N_Assignment_Statement): Create a temporary
4951         on the host for an assignment between nonnative storage models.
4952         Suppress more checks when Suppress_Assignment_Checks is set.
4953         * exp_ch6.adb (Add_Simple_Call_By_Copy_Code): Deal with actuals
4954         that are dereferences with an Actual_Designated_Subtype. Add
4955         support for nonnative storage models.
4956         (Expand_Actuals): Create a copy if the actual is a dereference
4957         with a nonnative storage model.
4958         * exp_util.ads (Build_Temporary_On_Secondary_Stack): Declare.
4959         * exp_util.adb (Build_Temporary_On_Secondary_Stack): New function.
4960         * sem_ch5.adb (Analyze_Assignment.Set_Assignment_Type): Do not
4961         build an actual subtype for dereferences with an
4962         Actual_Designated_Subtype
4963         * sinfo.ads (Actual_Designated_Subtype): Adjust documentation.
4964         (Suppress_Assignment_Checks): Likewise.
4966 2023-05-16  Piotr Trojanek  <trojanek@adacore.com>
4968         * exp_spark.adb (SPARK_Freeze_Type): Copy whole handling of DIC
4969         and Type_Invariant from Freeze_Type.
4971 2023-05-16  Richard Kenner  <kenner@adacore.com>
4973         * sem_util.adb (Subprogram_Name): If what's passed is already an
4974         entity, use that for the name.
4976 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4978         * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst
4979         (No_Dependence): Give examples of new No_Dependence restrictions.
4980         * gnat_rm.texi: Regenerate.
4982 2023-05-16  Arnaud Charlet  <charlet@adacore.com>
4984         * snames.ads-tmpl (Name_ASCII): New.
4985         * style.adb (Check_Identifier): Fix handling of ASCII.
4987 2023-05-16  Eric Botcazou  <ebotcazou@adacore.com>
4989         * gen_il-fields.ads (Opt_Field_Enum): Add Cannot_Be_Superflat.
4990         * gen_il-gen-gen_nodes.adb (N_Range): Add Cannot_Be_Superflat as
4991         semantical flag and change Includes_Infinities to semantical.
4992         * sinfo.ads (Cannot_Be_Superflat): Document it for N_Range.
4993         * exp_ch4.adb (Expand_Concatenate): Set Cannot_Be_Superflat on the
4994         range of the result if the result cannot be null.
4996 2023-05-16  Richard Kenner  <kenner@adacore.com>
4998         * gen_il-gen-gen_nodes.adb (Present_Expr): Type is now Uint.
5000 2023-05-16  Yannick Moy  <moy@adacore.com>
5002         * libgnat/s-aridou.adb (Big3, Is_Mult_Decomposition)
5003         (Is_Scaled_Mult_Decomposition): Add annotation for inlining.
5004         (Double_Divide, Scaled_Divide): Simplify and remove ghost code.
5005         (Prove_Multiplication): Add calls to lemmas to make proof go
5006         through.
5007         * libgnat/s-aridou.ads (Big, In_Double_Int_Range): Add annotation
5008         for inlining.
5010 2023-05-16  Yannick Moy  <moy@adacore.com>
5012         * libgnat/a-strsup.adb: Add intermediate assertions.
5014 2023-05-16  Arnaud Charlet  <charlet@adacore.com>
5016         * gnat1drv.adb: Ensure all dependencies are recorded even when not
5017         generating code.
5019 2023-05-16  Yannick Moy  <moy@adacore.com>
5021         * libgnat/a-strsup.adb: Set assertion policy for Loop_Variant.
5023 2023-05-16  Marc Poulhiès  <poulhies@adacore.com>
5025         * sem_ch12.adb (Instantiate_Package_Body): Simplify if/then/else.
5026         (Instantiate_Subprogram_Body): Likewise.
5028 2023-05-16  Yannick Moy  <moy@adacore.com>
5030         * libgnat/s-aridou.adb:
5031         (Big3): Remove override made useless.
5032         (Lemma_Quot_Rem): Add new lemma and justify it, as no prover
5033         manages to prove it.
5034         (Lemma_Div_Pow2): Use new lemma Lemma_Quot_Rem.
5035         (Prove_Scaled_Mult_Decomposition_Regroup3): Retype for
5036         simplification.
5037         (Scaled_Divide): Remove useless assertions.Decompose some
5038         assertions with cut operations. Use Assert_And_Cut for second
5039         half. Add assertions.
5041 2023-05-15  Marc Poulhiès  <poulhies@adacore.com>
5043         * exp_ch3.adb (Make_Allocator_For_Return): Fix typo in comment.
5045 2023-05-15  Yannick Moy  <moy@adacore.com>
5047         * libgnat/a-strbou.ads: Add justifications for Mapping.
5048         * libgnat/a-strfix.adb: Same.
5049         * libgnat/a-strfix.ads: Same.
5050         * libgnat/a-strsea.adb: Same.
5051         * libgnat/a-strsea.ads: Same.
5052         * libgnat/a-strsup.adb: Same and add loop variants.
5053         * libgnat/a-strsup.ads: Same and add specification of termination.
5055 2023-05-15  Yannick Moy  <moy@adacore.com>
5057         * libgnat/a-strsup.adb (Super_Slice): Reorder component assignment
5058         to avoid failing predicate check related to initialization.
5059         * libgnat/s-expmod.adb (Exp_Modular): Add intermediate assertion.
5061 2023-05-15  Yannick Moy  <moy@adacore.com>
5063         * libgnat/i-c.adb: Add loop variants. Remove useless
5064         initialization.
5066 2023-05-15  Bob Duff  <duff@adacore.com>
5068         * einfo-utils.ads: Remove comment.
5070 2023-05-15  Bob Duff  <duff@adacore.com>
5072         * einfo-utils.ads, einfo-utils.adb: Get rid of the Proc_Next_...
5073         procedures. Use Inline aspect instead of pragma Inline.
5074         Is_Discrete_Or_Fixed_Point_Type did not have pragma Inline, but
5075         now has the aspect; this was probably an oversight
5076         (which illustrates why aspects are better).
5078 2023-05-15  Ronan Desplanques  <desplanques@adacore.com>
5080         * doc/gnat_ugn/gnat_utility_programs.rst: Fix formatting
5081         inconsistency.
5083 2023-05-15  Bob Duff  <duff@adacore.com>
5085         * einfo-utils.adb:
5086         (Proc_Next_Component_Or_Discriminant): Call
5087         Next_Component_Or_Discriminant.
5089 2023-05-15  Bob Duff  <duff@adacore.com>
5091         * einfo.ads:
5092         (First_Entity): Update comment explaining why this exists on all
5093         [sub]types, as opposed to just the ones with associated entities.
5095 2023-05-15  Bob Duff  <duff@adacore.com>
5097         * atree.adb
5098         (Check_Vanishing_Fields): Disable the check for "root/base type
5099         only" fields. This is a bug fix -- if we're checking some subtype
5100         S, we don't want to reach over to the root or base type and
5101         Reinit_Field_To_Zero of that, thus modifying the field for lots of
5102         subtypes other than S. Disable in the to/from E_Void cases. Misc
5103         cleanup.
5104         * gen_il-gen-gen_entities.adb: Define First_Entity, Last_Entity,
5105         and Stored_Constraint for all type entities, because there are too
5106         many cases where Reinit_Field_To_Zero would otherwise be needed.
5107         In any case, it seems cleaner to have First_Entity and Last_Entity
5108         defined in the same entity kinds.
5109         * einfo.ads:
5110         (First_Entity, Last_Entity, Stored_Constraint): Update comments to
5111         reflect gen_il-gen-gen_entities.adb changes.
5112         (Lit_Hash): Add missing "[root type only]" comment.
5113         * exp_ch5.adb: Add Reinit_Field_To_Zero calls for vanishing
5114         fields.
5115         * sem_ch10.adb: Likewise.
5116         * sem_ch6.adb: Likewise.
5117         * sem_ch7.adb: Likewise.
5118         * sem_ch8.adb: Likewise.
5119         * sem_ch3.adb: Likewise. Also remove now-unnecessary
5120         Reinit_Field_To_Zero calls.
5122 2023-05-15  Eric Botcazou  <ebotcazou@adacore.com>
5124         * sem_ch7.adb (Hide_Public_Entities): Use the same condition for
5125         subprogram bodies without specification as for those with one.
5127 2023-05-15  Piotr Trojanek  <trojanek@adacore.com>
5129         * sem_util.adb (New_Copy_Tree): Remove redundant calls to Present.
5131 2023-05-15  Ronan Desplanques  <desplanques@adacore.com>
5133         * sem_ch8.adb (End_Scope): Simplify lookup of predecessor in
5134         homonym chain.
5136 2023-05-15  Piotr Trojanek  <trojanek@adacore.com>
5138         * sem_aggr.adb (Resolve_Aggregate): Accept aggregates with OTHERS
5139         appearing inside unchecked conversions.
5141 2023-05-15  Steve Baird  <baird@adacore.com>
5143         * warnsw.ads: Add a new element,
5144         Warn_On_Ineffective_Predicate_Test, to the Opt_Warnings_Enum
5145         enumeration type.
5146         * warnsw.adb: Bind "-gnatw_s" to the new
5147         Warn_On_Ineffective_Predicate_Test switch. Add the new switch to
5148         the set of switches enabled by -gnata .
5149         * sem_ch13.adb
5150         (Build_Discrete_Static_Predicate): Declare new local procedure,
5151         Warn_If_Test_Ineffective, which conditionally generates new
5152         warning. Call this new procedure when building a new element of an
5153         RList.
5154         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
5155         Document the -gnatw_s switch (and the corresponding -gnatw_S
5156         switch).
5157         * gnat_ugn.texi: Regenerate.
5159 2023-05-15  Yannick Moy  <moy@adacore.com>
5161         * sem_attr.adb: Update comment referring to rule number.
5163 2023-05-15  Ronan Desplanques  <desplanques@adacore.com>
5165         * sem_attr.adb: sem_attr.adb (Analyze_Access_Attribute): Tighten
5166         validity check for task types.
5168 2023-05-15  Ronan Desplanques  <desplanques@adacore.com>
5170         * doc/gnat_rm/implementation_defined_characteristics.rst: Fix
5171         minor documentation formatting issue.
5172         * gnat_rm.texi: Regenerate.
5173         * gnat_ugn.texi: Regenerate.
5175 2023-05-15  Bob Duff  <duff@adacore.com>
5177         * exp_ch4.adb
5178         (Expand_N_Op_Expon): Remove the too-big check. Simplify. Signed
5179         and modular cases are combined, etc. Remove code with comment "We
5180         only handle cases where the right type is a[sic] integer", because
5181         the right operand must always be an integer at this point.
5183 2023-05-15  Bob Duff  <duff@adacore.com>
5185         * sem_attr.adb
5186         (Analyze_Attribute): Add a call to Check_Error_Detected.
5188 2023-05-15  Yannick Moy  <moy@adacore.com>
5190         * par-prag.adb (First_Arg_Is_Matching_Tool_Name): Fix access to
5191         expression in pragma association.
5193 2023-05-15  Eric Botcazou  <ebotcazou@adacore.com>
5195         * repinfo.ads (JSON output format): Document special case of
5196         Present member of a Variant object.
5197         * repinfo.adb (List_Structural_Record_Layout): Change the type of
5198         Ext_Level parameter to Integer. Restrict the first recursion with
5199         increasing levels to the fixed part and implement a second
5200         recursion with decreasing levels for the variant part. Deal with
5201         an extension of a type with unknown discriminants.
5203 2023-05-15  Claire Dross  <dross@adacore.com>
5205         * libgnat/s-valueu.adb: Use cut operations inside assertion to
5206         restore proofs
5207         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add s-spark and
5208         s-spcuop dependencies.
5210 2023-05-15  Yannick Moy  <moy@adacore.com>
5212         * sem_prag.adb (Check_Grouping): Allow Annotate pragmas between
5213         loop pragmas.
5215 2023-05-15  Javier Miranda  <miranda@adacore.com>
5217         * doc/gnat_rm/implementation_defined_pragmas.rst
5218         (Extensions_Allowed): Document string interpolation.
5219         * gnat_rm.texi: Regenerate.
5220         * gnat_ugn.texi: Regenerate.
5222 2023-05-15  Joel Brobecker  <brobecker@adacore.com>
5224         * doc/gnat_ugn/platform_specific_information.rst
5225         (_PIE_Enabled_By_Default_On_Linux): New section.
5226         * gnat-style.texi: Regenerate.
5227         * gnat_ugn.texi: Regenerate.
5229 2023-05-15  Javier Miranda  <miranda@adacore.com>
5231         * exp_disp.adb
5232         (Has_Dispatching_Constructor_Call): New subprogram.
5233         (Expand_Interface_Conversion): No need to perform dynamic
5234         interface conversion when the operand and the target type are
5235         interface types and the target interface type is an ancestor of
5236         the operand type. The unique exception to this rule is when the
5237         operand has a dispatching constructor call (as documented in the
5238         sources).
5240 2023-05-15  Piotr Trojanek  <trojanek@adacore.com>
5242         * sem_attr.adb (Analyze_Attribute): Reject attribute Initialized
5243         on unchecked unions; fix grammar in comment.
5245 2023-05-15  Ronan Desplanques  <desplanques@adacore.com>
5247         * sem_ch13.adb (Validate_Unchecked_Conversion): Fix behavior on
5248         System.Address to access to subprogram subtype conversion.
5250 2023-05-15  Piotr Trojanek  <trojanek@adacore.com>
5252         * atree.ads
5253         (Is_Syntactic_Node): Refactored from New_Copy_Tree.
5254         * atree.adb
5255         (Is_Syntactic_Node): Likewise.
5256         (Copy_Separate_Tree): Use Is_Syntactic_Node.
5257         * sem_util.adb
5258         (Has_More_Ids): Move to Atree.
5259         (Is_Syntactic_Node): Likewise.
5261 2023-04-18  Jin Ma  <jinma@linux.alibaba.com>
5263         * gcc-interface/utils.cc (unchecked_convert): Fix typo.
5265 2023-04-17  Martin Liska  <mliska@suse.cz>
5267         * gnatvsn.ads: Bump Library_Version to 14.
5269 2023-04-15  Eric Botcazou  <ebotcazou@adacore.com>
5271         PR bootstrap/109510
5272         * gcc-interface/decl.cc (gnat_to_gnu_entity) <types>: Do not reset
5273         align to zero in any case.  Set TYPE_USER_ALIGN on the type only if
5274         it is an aggregate type, or else a type whose default alignment is
5275         specifically capped on selected platforms.
5277 2023-04-14  Eric Botcazou  <ebotcazou@adacore.com>
5279         PR bootstrap/109510
5280         * gcc-interface/decl.cc (gnat_to_gnu_entity) <types>: Reset align
5281         to zero if its value is equal to TYPE_ALIGN and the type is scalar.
5282         Set TYPE_USER_ALIGN on the type only if align is positive.
5284 2023-03-06  Javier Miranda  <miranda@adacore.com>
5286         PR ada/108858
5287         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): For functions with
5288         separate spec, if their return type was visible through a limited-
5289         with context clause, their extra formals were not added when the
5290         spec was analyzed.  Now the full view must be available, and the
5291         extra formals can be created and Returns_By_Ref computed.
5293 2023-03-06  Eric Botcazou  <ebotcazou@adacore.com>
5295         PR ada/108909
5296         PR ada/108983
5297         * Make-generated.in: Do not use GNATMAKE.
5298         * gcc-interface/Makefile.in: Ditto.
5300 2023-02-26  Peter Foley  <pefoley2@pefoley.com>
5302         PR ada/108909
5303         * Make-generated.in: Use GNATMAKE.
5304         * gcc-interface/Makefile.in: Ditto.
5306 2023-02-14  Eric Botcazou  <ebotcazou@adacore.com>
5308         * gcc-interface/trans.cc (gnat_gimplify_expr): Add missing guard.
5310 2023-02-14  Dongsheng Song  <dongsheng.song@gmail.com>
5312         * adaint.c [Linux]: Include <features.h>.
5313         (__gnat_get_executable_load_address) [Linux]: Enable only for
5314         glibc and uClibc.
5316 2023-01-16  Marc Poulhiès  <poulhies@adacore.com>
5318         * gcc-interface/Make-lang.in: Update copyright years.
5319         * gcc-interface/Makefile.in: Likewise.
5320         * gcc-interface/ada-builtin-types.def: Likewise.
5321         * gcc-interface/ada-builtins.def: Likewise.
5322         * gcc-interface/ada-tree.def: Likewise.
5323         * gcc-interface/ada-tree.h: Likewise.
5324         * gcc-interface/ada.h: Likewise.
5325         * gcc-interface/config-lang.in: Likewise.
5326         * gcc-interface/cuintp.cc: Likewise.
5327         * gcc-interface/decl.cc: Likewise.
5328         * gcc-interface/gadaint.h: Likewise.
5329         * gcc-interface/gigi.h: Likewise.
5330         * gcc-interface/lang-specs.h: Likewise.
5331         * gcc-interface/lang.opt: Likewise.
5332         * gcc-interface/misc.cc: Likewise.
5333         * gcc-interface/system.ads: Likewise.
5334         * gcc-interface/targtyps.cc: Likewise.
5335         * gcc-interface/trans.cc: Likewise.
5336         * gcc-interface/utils.cc: Likewise.
5337         * gcc-interface/utils2.cc: Likewise.
5339 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5341         * exp_ch3.adb (Make_Allocator_For_Return): Fix typo in comment.
5343 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5345         * exp_ch3.adb (Make_Allocator_For_Return): Convert the expression
5346         to the return object's type in the constrained array case as well.
5348 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5350         * exp_ch3.adb (Expand_N_Object_Declaration): For a class-wide non-
5351         interface stand-alone object initialized by a function call, call
5352         Remove_Side_Effects on the expression to capture the result.
5354 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5356         * exp_util.ads (Has_Tag_Of_Type): Declare.
5357         * exp_util.adb (Has_Tag_Of_Type): Move to package level.  Recurse on
5358         qualified expressions.
5359         * exp_ch3.adb (Expand_N_Object_Declaration): Use a static reference
5360         to the interface tag in more cases for class-wide interface objects.
5362 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5364         * exp_util.adb (Make_CW_Equivalent_Type.Has_Tag_Of_Type): Fix pasto.
5366 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5368         * exp_util.adb (Is_Temporary_For_Interface_Object): Delete.
5369         (Is_Finalizable_Transient.Is_Aliased): Deal with the specific case
5370         of temporaries generated for interface objects.
5372 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5374         * exp_ch3.adb (Expand_N_Object_Declaration): Do not generate a back-
5375         and-forth displacement of the object's address when using a renaming
5376         for an interface object with an expression of the same type.
5377         * exp_ch4.adb (Expand_Allocator_Expression): Do not remove the side
5378         effects of the expression up front for the simple allocators. Do not
5379         call the Adjust primitive if the expression is a function call.
5380         * exp_ch6.adb (Expand_Ctrl_Function_Call): Do not expand the call
5381         unnecessarily for a special return object.
5382         (Expand_Simple_Function_Return): Restore the displacement of the
5383         return object's address in the case where the expression is the call
5384         to a function whose result type is a type that needs finalization.
5385         * exp_util.adb (Expand_Subtype_From_Expr): Do not remove the side
5386         effects of the expression before calling Make_Subtype_From_Expr.
5387         (Make_CW_Equivalent_Type): If the expression has the tag of its type
5388         and this type has a uniform size, use 'Object_Size of this type in
5389         lieu of 'Size of the expression to compute the expression's size.
5391 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5393         * exp_ch3.adb (Make_Allocator_For_Return): Put back an interface
5394         conversion for expressions with non-interface class-wide type.
5396 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5398         * exp_ch3.adb (Expand_N_Object_Declaration): Also optimize aliased
5399         objects if their nominal subtype is not an unconstrained array.
5401 2023-01-16  Eric Botcazou  <ebotcazou@adacore.com>
5403         * exp_ch3.adb (Expand_N_Object_Declaration): Factor out conditions
5404         needed for an initializating expression that is a function call to
5405         be renamable into the Is_Renamable_Function_Call predicate.
5406         Use it to implement the renaming in the case of class-wide interface
5407         objects.  Remove an interface conversion on all paths, separate and
5408         optimize the renaming path in the special expansion for interfaces.
5409         (Is_Renamable_Function_Call): New predicate.
5410         (Make_Allocator_For_Return): Put back an interface conversion.
5411         * exp_ch6.adb (Apply_CW_Accessibility_Check): Remove useless access
5412         checks on RE_Tag_Ptr.
5414 2023-01-09  Arnaud Charlet  <charlet@adacore.com>
5416         * accessibility.adb, accessibility.ads, ada_get_targ.adb: Update copyright year.
5417         * adabkend.adb, adabkend.ads, adadecode.c, adadecode.h, adaint.c: Likewise.
5418         * adaint.h, affinity.c, ali-util.adb, ali-util.ads, ali.adb: Likewise.
5419         * ali.ads, alloc.ads, argv-lynxos178-raven-cert.c, argv.c: Likewise.
5420         * aspects.adb, aspects.ads, atree.adb, atree.ads, atree.h: Likewise.
5421         * aux-io.c, back_end.adb, back_end.ads, backend_utils.adb: Likewise.
5422         * backend_utils.ads, bcheck.adb, bcheck.ads, binde.adb, binde.ads: Likewise.
5423         * binderr.adb, binderr.ads, bindgen.adb, bindgen.ads: Likewise.
5424         * bindo-augmentors.adb, bindo-augmentors.ads, bindo-builders.adb: Likewise.
5425         * bindo-builders.ads, bindo-diagnostics.adb: Likewise.
5426         * bindo-diagnostics.ads, bindo-elaborators.adb: Likewise.
5427         * bindo-elaborators.ads, bindo-graphs.adb, bindo-graphs.ads: Likewise.
5428         * bindo-units.adb, bindo-units.ads, bindo-validators.adb: Likewise.
5429         * bindo-validators.ads, bindo-writers.adb, bindo-writers.ads: Likewise.
5430         * bindo.adb, bindo.ads, bindusg.adb, bindusg.ads, butil.adb: Likewise.
5431         * butil.ads, cal.c, casing.adb, casing.ads, checks.adb: Likewise.
5432         * checks.ads, cio.c, clean.adb, clean.ads: Likewise.
5433         * comperr.adb, comperr.ads, contracts.adb, contracts.ads: Likewise.
5434         * csets.adb, csets.ads, cstand.adb: Likewise.
5435         * cstand.ads, cstreams.c, ctrl_c.c, debug.adb, debug.ads: Likewise.
5436         * debug_a.adb, debug_a.ads, einfo-utils.adb, einfo-utils.ads: Likewise.
5437         * einfo.adb, einfo.ads, elists.adb, elists.ads, elists.h, env.c: Likewise.
5438         * env.h, err_vars.ads, errno.c, errout.adb, errout.ads: Likewise.
5439         * erroutc.adb, erroutc.ads, errutil.adb, errutil.ads: Likewise.
5440         * eval_fat.adb, eval_fat.ads, exit.c, exp_aggr.adb, exp_aggr.ads: Likewise.
5441         * exp_atag.adb, exp_atag.ads, exp_attr.adb, exp_attr.ads: Likewise.
5442         * exp_cg.adb, exp_cg.ads, exp_ch10.ads, exp_ch11.adb: Likewise.
5443         * exp_ch11.ads, exp_ch12.adb, exp_ch12.ads, exp_ch13.adb: Likewise.
5444         * exp_ch13.ads, exp_ch2.adb, exp_ch2.ads, exp_ch3.adb: Likewise.
5445         * exp_ch3.ads, exp_ch4.adb, exp_ch4.ads, exp_ch5.adb, exp_ch5.ads: Likewise.
5446         * exp_ch6.adb, exp_ch6.ads, exp_ch7.adb, exp_ch7.ads, exp_ch8.adb: Likewise.
5447         * exp_ch8.ads, exp_ch9.adb, exp_ch9.ads, exp_code.adb: Likewise.
5448         * exp_code.ads, exp_dbug.adb, exp_dbug.ads, exp_disp.adb: Likewise.
5449         * exp_disp.ads, exp_dist.adb, exp_dist.ads, exp_fixd.adb: Likewise.
5450         * exp_fixd.ads, exp_imgv.adb, exp_imgv.ads, exp_intr.adb: Likewise.
5451         * exp_intr.ads, exp_pakd.adb, exp_pakd.ads, exp_prag.adb: Likewise.
5452         * exp_prag.ads, exp_put_image.adb, exp_put_image.ads, exp_sel.adb: Likewise.
5453         * exp_sel.ads, exp_smem.adb, exp_smem.ads, exp_spark.adb: Likewise.
5454         * exp_spark.ads, exp_strm.adb, exp_strm.ads, exp_tss.adb: Likewise.
5455         * exp_tss.ads, exp_unst.adb, exp_unst.ads, exp_util.adb: Likewise.
5456         * exp_util.ads, expander.adb, expander.ads, expect.c, fe.h: Likewise.
5457         * final.c, fmap.adb, fmap.ads, fname-sf.adb, fname-sf.ads: Likewise.
5458         * fname-uf.adb, fname-uf.ads, fname.adb, fname.ads, freeze.adb: Likewise.
5459         * freeze.ads, frontend.adb, frontend.ads, gen_il-fields.ads: Likewise.
5460         * gen_il-gen-gen_entities.adb, gen_il-gen-gen_nodes.adb: Likewise.
5461         * gen_il-gen.adb, gen_il-gen.ads, gen_il-internals.adb: Likewise.
5462         * gen_il-internals.ads, gen_il-main.adb, gen_il-types.ads: Likewise.
5463         * gen_il.adb, gen_il.ads, get_scos.adb, get_scos.ads: Likewise.
5464         * get_targ.adb, get_targ.ads, ghost.adb, ghost.ads, gnat1drv.adb: Likewise.
5465         * gnat1drv.ads, gnat_cuda.adb, gnat_cuda.ads: Likewise.
5466         * gnatbind.adb, gnatbind.ads, gnatchop.adb: Likewise.
5467         * gnatclean.adb, gnatcmd.adb, gnatcmd.ads, gnatdll.adb: Likewise.
5468         * gnatkr.adb, gnatkr.ads, gnatlink.adb, gnatlink.ads, gnatls.adb: Likewise.
5469         * gnatls.ads, gnatmake.adb, gnatmake.ads, gnatname.adb: Likewise.
5470         * gnatname.ads, gnatprep.adb, gnatprep.ads: Likewise.
5471         * gprep.adb, gprep.ads, gsocket.h: Likewise.
5472         * hostparm.ads: Likewise.
5473         * impunit.adb, impunit.ads, indepsw-aix.adb, indepsw-darwin.adb: Likewise.
5474         * indepsw-gnu.adb, indepsw.adb, indepsw.ads, init.c: Likewise.
5475         * initialize.c, inline.adb, inline.ads, itypes.adb, itypes.ads: Likewise.
5476         * krunch.adb, krunch.ads, layout.adb, layout.ads: Likewise.
5477         * lib-list.adb, lib-load.adb, lib-load.ads, lib-sort.adb: Likewise.
5478         * lib-util.adb, lib-util.ads, lib-writ.adb, lib-writ.ads: Likewise.
5479         * lib-xref-spark_specific.adb, lib-xref.adb, lib-xref.ads: Likewise.
5480         * lib.adb, lib.ads, libgnarl/a-astaco.adb, libgnarl/a-dispat.adb: Likewise.
5481         * libgnarl/a-dynpri.adb, libgnarl/a-etgrbu.ads: Likewise.
5482         * libgnarl/a-exetim__darwin.adb, libgnarl/a-exetim__default.ads: Likewise.
5483         * libgnarl/a-exetim__mingw.adb, libgnarl/a-exetim__mingw.ads: Likewise.
5484         * libgnarl/a-exetim__posix.adb, libgnarl/a-interr.adb: Likewise.
5485         * libgnarl/a-interr.ads, libgnarl/a-intnam.ads: Likewise.
5486         * libgnarl/a-intnam__aix.ads, libgnarl/a-intnam__darwin.ads: Likewise.
5487         * libgnarl/a-intnam__dragonfly.ads, libgnarl/a-intnam__dummy.ads: Likewise.
5488         * libgnarl/a-intnam__freebsd.ads, libgnarl/a-intnam__hpux.ads: Likewise.
5489         * libgnarl/a-intnam__linux.ads, libgnarl/a-intnam__lynxos.ads: Likewise.
5490         * libgnarl/a-intnam__mingw.ads, libgnarl/a-intnam__qnx.ads: Likewise.
5491         * libgnarl/a-intnam__rtems.ads, libgnarl/a-intnam__solaris.ads: Likewise.
5492         * libgnarl/a-intnam__vxworks.ads, libgnarl/a-reatim.adb: Likewise.
5493         * libgnarl/a-reatim.ads, libgnarl/a-retide.adb: Likewise.
5494         * libgnarl/a-retide.ads, libgnarl/a-rttiev.adb: Likewise.
5495         * libgnarl/a-rttiev.ads, libgnarl/a-synbar.adb: Likewise.
5496         * libgnarl/a-synbar.ads, libgnarl/a-synbar__posix.adb: Likewise.
5497         * libgnarl/a-synbar__posix.ads, libgnarl/a-sytaco.adb: Likewise.
5498         * libgnarl/a-sytaco.ads, libgnarl/a-tasatt.adb: Likewise.
5499         * libgnarl/a-tasatt.ads, libgnarl/a-taside.adb: Likewise.
5500         * libgnarl/a-taside.ads, libgnarl/a-tasini.adb: Likewise.
5501         * libgnarl/a-tasini.ads, libgnarl/a-taster.adb: Likewise.
5502         * libgnarl/g-boubuf.adb, libgnarl/g-boubuf.ads: Likewise.
5503         * libgnarl/g-boumai.ads, libgnarl/g-semaph.adb: Likewise.
5504         * libgnarl/g-semaph.ads, libgnarl/g-signal.adb: Likewise.
5505         * libgnarl/g-signal.ads, libgnarl/g-tastus.ads: Likewise.
5506         * libgnarl/g-thread.adb, libgnarl/g-thread.ads: Likewise.
5507         * libgnarl/i-vxinco.adb, libgnarl/i-vxinco.ads: Likewise.
5508         * libgnarl/s-inmaop.ads, libgnarl/s-inmaop__dummy.adb: Likewise.
5509         * libgnarl/s-inmaop__hwint.adb, libgnarl/s-inmaop__posix.adb: Likewise.
5510         * libgnarl/s-interr.adb, libgnarl/s-interr.ads: Likewise.
5511         * libgnarl/s-interr__dummy.adb, libgnarl/s-interr__hwint.adb: Likewise.
5512         * libgnarl/s-interr__sigaction.adb: Likewise.
5513         * libgnarl/s-interr__vxworks.adb, libgnarl/s-intman.ads: Likewise.
5514         * libgnarl/s-intman__android.adb, libgnarl/s-intman__dummy.adb: Likewise.
5515         * libgnarl/s-intman__lynxos.adb, libgnarl/s-intman__mingw.adb: Likewise.
5516         * libgnarl/s-intman__posix.adb, libgnarl/s-intman__qnx.adb: Likewise.
5517         * libgnarl/s-intman__rtems.adb, libgnarl/s-intman__rtems.ads: Likewise.
5518         * libgnarl/s-intman__solaris.adb, libgnarl/s-intman__susv3.adb: Likewise.
5519         * libgnarl/s-intman__vxworks.adb, libgnarl/s-intman__vxworks.ads: Likewise.
5520         * libgnarl/s-linux.ads, libgnarl/s-linux__alpha.ads: Likewise.
5521         * libgnarl/s-linux__android.ads, libgnarl/s-linux__hppa.ads: Likewise.
5522         * libgnarl/s-linux__mips.ads, libgnarl/s-linux__riscv.ads: Likewise.
5523         * libgnarl/s-linux__sparc.ads, libgnarl/s-linux__x32.ads: Likewise.
5524         * libgnarl/s-mudido.adb, libgnarl/s-mudido__affinity.adb: Likewise.
5525         * libgnarl/s-osinte__aix.adb, libgnarl/s-osinte__aix.ads: Likewise.
5526         * libgnarl/s-osinte__android.adb, libgnarl/s-osinte__android.ads: Likewise.
5527         * libgnarl/s-osinte__darwin.adb, libgnarl/s-osinte__darwin.ads: Likewise.
5528         * libgnarl/s-osinte__dragonfly.adb: Likewise.
5529         * libgnarl/s-osinte__dragonfly.ads, libgnarl/s-osinte__dummy.ads: Likewise.
5530         * libgnarl/s-osinte__freebsd.adb, libgnarl/s-osinte__freebsd.ads: Likewise.
5531         * libgnarl/s-osinte__gnu.adb, libgnarl/s-osinte__gnu.ads: Likewise.
5532         * libgnarl/s-osinte__hpux-dce.adb: Likewise.
5533         * libgnarl/s-osinte__hpux-dce.ads, libgnarl/s-osinte__hpux.ads: Likewise.
5534         * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
5535         * libgnarl/s-osinte__linux.ads, libgnarl/s-osinte__lynxos178.adb: Likewise.
5536         * libgnarl/s-osinte__lynxos178e.ads, libgnarl/s-osinte__mingw.ads: Likewise.
5537         * libgnarl/s-osinte__posix.adb, libgnarl/s-osinte__qnx.adb: Likewise.
5538         * libgnarl/s-osinte__qnx.ads, libgnarl/s-osinte__rtems.adb: Likewise.
5539         * libgnarl/s-osinte__rtems.ads, libgnarl/s-osinte__solaris.adb: Likewise.
5540         * libgnarl/s-osinte__solaris.ads, libgnarl/s-osinte__vxworks.adb: Likewise.
5541         * libgnarl/s-osinte__vxworks.ads, libgnarl/s-osinte__x32.adb: Likewise.
5542         * libgnarl/s-proinf.adb, libgnarl/s-proinf.ads: Likewise.
5543         * libgnarl/s-putaim.adb, libgnarl/s-putaim.ads: Likewise.
5544         * libgnarl/s-qnx.ads, libgnarl/s-solita.adb: Likewise.
5545         * libgnarl/s-solita.ads, libgnarl/s-stusta.adb: Likewise.
5546         * libgnarl/s-stusta.ads, libgnarl/s-taasde.adb: Likewise.
5547         * libgnarl/s-taasde.ads, libgnarl/s-tadeca.adb: Likewise.
5548         * libgnarl/s-tadeca.ads, libgnarl/s-tadert.adb: Likewise.
5549         * libgnarl/s-tadert.ads, libgnarl/s-taenca.adb: Likewise.
5550         * libgnarl/s-taenca.ads, libgnarl/s-taprob.adb: Likewise.
5551         * libgnarl/s-taprob.ads, libgnarl/s-taprop.ads: Likewise.
5552         * libgnarl/s-taprop__dummy.adb, libgnarl/s-taprop__hpux-dce.adb: Likewise.
5553         * libgnarl/s-taprop__linux.adb, libgnarl/s-taprop__mingw.adb: Likewise.
5554         * libgnarl/s-taprop__posix.adb, libgnarl/s-taprop__qnx.adb: Likewise.
5555         * libgnarl/s-taprop__rtems.adb, libgnarl/s-taprop__solaris.adb: Likewise.
5556         * libgnarl/s-taprop__vxworks.adb, libgnarl/s-tarest.adb: Likewise.
5557         * libgnarl/s-tarest.ads, libgnarl/s-tasdeb.adb: Likewise.
5558         * libgnarl/s-tasdeb.ads, libgnarl/s-tasinf.adb: Likewise.
5559         * libgnarl/s-tasinf.ads, libgnarl/s-tasinf__linux.adb: Likewise.
5560         * libgnarl/s-tasinf__linux.ads, libgnarl/s-tasinf__mingw.adb: Likewise.
5561         * libgnarl/s-tasinf__mingw.ads, libgnarl/s-tasinf__solaris.adb: Likewise.
5562         * libgnarl/s-tasinf__solaris.ads, libgnarl/s-tasinf__vxworks.ads: Likewise.
5563         * libgnarl/s-tasini.adb, libgnarl/s-tasini.ads: Likewise.
5564         * libgnarl/s-taskin.adb, libgnarl/s-taskin.ads: Likewise.
5565         * libgnarl/s-taspri__dummy.ads, libgnarl/s-taspri__hpux-dce.ads: Likewise.
5566         * libgnarl/s-taspri__lynxos.ads, libgnarl/s-taspri__mingw.ads: Likewise.
5567         * libgnarl/s-taspri__posix-noaltstack.ads: Likewise.
5568         * libgnarl/s-taspri__posix.ads, libgnarl/s-taspri__solaris.ads: Likewise.
5569         * libgnarl/s-taspri__vxworks.ads, libgnarl/s-tasque.adb: Likewise.
5570         * libgnarl/s-tasque.ads, libgnarl/s-tasren.adb: Likewise.
5571         * libgnarl/s-tasren.ads, libgnarl/s-tasres.ads: Likewise.
5572         * libgnarl/s-tassta.adb, libgnarl/s-tassta.ads: Likewise.
5573         * libgnarl/s-tasuti.adb, libgnarl/s-tasuti.ads: Likewise.
5574         * libgnarl/s-tataat.adb, libgnarl/s-tataat.ads: Likewise.
5575         * libgnarl/s-tpinop.adb, libgnarl/s-tpinop.ads: Likewise.
5576         * libgnarl/s-tpoaal.adb, libgnarl/s-tpoben.adb: Likewise.
5577         * libgnarl/s-tpoben.ads, libgnarl/s-tpobmu.adb: Likewise.
5578         * libgnarl/s-tpobmu.ads, libgnarl/s-tpobop.adb: Likewise.
5579         * libgnarl/s-tpobop.ads, libgnarl/s-tpopmo.adb: Likewise.
5580         * libgnarl/s-tpopsp__posix-foreign.adb: Likewise.
5581         * libgnarl/s-tpopsp__posix.adb, libgnarl/s-tpopsp__solaris.adb: Likewise.
5582         * libgnarl/s-tpopsp__tls.adb, libgnarl/s-tpopsp__vxworks-rtp.adb: Likewise.
5583         * libgnarl/s-tpopsp__vxworks-tls.adb: Likewise.
5584         * libgnarl/s-tpopsp__vxworks.adb, libgnarl/s-tporft.adb: Likewise.
5585         * libgnarl/s-tposen.adb, libgnarl/s-tposen.ads: Likewise.
5586         * libgnarl/s-vxwext.adb, libgnarl/s-vxwext.ads: Likewise.
5587         * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
5588         * libgnarl/s-vxwext__kernel.adb, libgnarl/s-vxwext__kernel.ads: Likewise.
5589         * libgnarl/s-vxwext__rtp-smp.adb, libgnarl/s-vxwext__rtp.adb: Likewise.
5590         * libgnarl/s-vxwext__rtp.ads, libgnarl/s-vxwork__aarch64.ads: Likewise.
5591         * libgnarl/s-vxwork__arm.ads, libgnarl/s-vxwork__ppc.ads: Likewise.
5592         * libgnarl/s-vxwork__x86.ads, libgnarl/thread.c: Likewise.
5593         * libgnat/a-assert.adb, libgnat/a-assert.ads: Likewise.
5594         * libgnat/a-btgbso.adb, libgnat/a-btgbso.ads: Likewise.
5595         * libgnat/a-calari.adb, libgnat/a-calari.ads: Likewise.
5596         * libgnat/a-calcon.adb, libgnat/a-calcon.ads: Likewise.
5597         * libgnat/a-caldel.adb, libgnat/a-caldel.ads: Likewise.
5598         * libgnat/a-calend.adb, libgnat/a-calend.ads: Likewise.
5599         * libgnat/a-calfor.adb, libgnat/a-calfor.ads: Likewise.
5600         * libgnat/a-catizo.adb, libgnat/a-cbdlli.adb: Likewise.
5601         * libgnat/a-cbdlli.ads, libgnat/a-cbhama.adb: Likewise.
5602         * libgnat/a-cbhama.ads, libgnat/a-cbhase.adb: Likewise.
5603         * libgnat/a-cbhase.ads, libgnat/a-cbmutr.adb: Likewise.
5604         * libgnat/a-cbmutr.ads, libgnat/a-cborma.adb: Likewise.
5605         * libgnat/a-cborma.ads, libgnat/a-cborse.adb: Likewise.
5606         * libgnat/a-cborse.ads, libgnat/a-cbprqu.adb: Likewise.
5607         * libgnat/a-cbprqu.ads, libgnat/a-cbsyqu.adb: Likewise.
5608         * libgnat/a-cbsyqu.ads, libgnat/a-cdlili.adb: Likewise.
5609         * libgnat/a-cdlili.ads, libgnat/a-cfdlli.ads: Likewise.
5610         * libgnat/a-cfhama.ads, libgnat/a-cfhase.ads: Likewise.
5611         * libgnat/a-cfidll.ads, libgnat/a-cfinse.ads: Likewise.
5612         * libgnat/a-cfinve.ads, libgnat/a-cforma.ads: Likewise.
5613         * libgnat/a-cforse.ads, libgnat/a-cgaaso.adb: Likewise.
5614         * libgnat/a-cgaaso.ads, libgnat/a-cgarso.adb: Likewise.
5615         * libgnat/a-cgcaso.adb, libgnat/a-chacon.adb: Likewise.
5616         * libgnat/a-chacon.ads, libgnat/a-chahan.adb: Likewise.
5617         * libgnat/a-chahan.ads, libgnat/a-chlat9.ads: Likewise.
5618         * libgnat/a-chtgbk.adb, libgnat/a-chtgbk.ads: Likewise.
5619         * libgnat/a-chtgbo.adb, libgnat/a-chtgbo.ads: Likewise.
5620         * libgnat/a-chtgfk.adb, libgnat/a-chtgfk.ads: Likewise.
5621         * libgnat/a-chtgfo.adb, libgnat/a-chtgfo.ads: Likewise.
5622         * libgnat/a-chtgke.adb, libgnat/a-chtgke.ads: Likewise.
5623         * libgnat/a-chtgop.adb, libgnat/a-chtgop.ads: Likewise.
5624         * libgnat/a-chzla1.ads, libgnat/a-chzla9.ads: Likewise.
5625         * libgnat/a-cidlli.adb, libgnat/a-cidlli.ads: Likewise.
5626         * libgnat/a-cihama.adb, libgnat/a-cihama.ads: Likewise.
5627         * libgnat/a-cihase.adb, libgnat/a-cihase.ads: Likewise.
5628         * libgnat/a-cimutr.adb, libgnat/a-cimutr.ads: Likewise.
5629         * libgnat/a-ciorma.adb, libgnat/a-ciorma.ads: Likewise.
5630         * libgnat/a-ciormu.adb, libgnat/a-ciormu.ads: Likewise.
5631         * libgnat/a-ciorse.adb, libgnat/a-ciorse.ads: Likewise.
5632         * libgnat/a-clrefi.adb, libgnat/a-clrefi.ads: Likewise.
5633         * libgnat/a-coboho.adb, libgnat/a-coboho.ads: Likewise.
5634         * libgnat/a-cobove.adb, libgnat/a-cobove.ads: Likewise.
5635         * libgnat/a-cofove.ads, libgnat/a-cofuma.ads: Likewise.
5636         * libgnat/a-cofuse.ads, libgnat/a-cofuve.ads: Likewise.
5637         * libgnat/a-cogeso.adb, libgnat/a-cogeso.ads: Likewise.
5638         * libgnat/a-cohama.adb, libgnat/a-cohama.ads: Likewise.
5639         * libgnat/a-cohase.adb, libgnat/a-cohase.ads: Likewise.
5640         * libgnat/a-cohata.ads, libgnat/a-coinho.adb: Likewise.
5641         * libgnat/a-coinho.ads, libgnat/a-coinho__shared.adb: Likewise.
5642         * libgnat/a-coinho__shared.ads, libgnat/a-coinve.adb: Likewise.
5643         * libgnat/a-coinve.ads, libgnat/a-colien.adb: Likewise.
5644         * libgnat/a-colien.ads, libgnat/a-colire.adb: Likewise.
5645         * libgnat/a-colire.ads, libgnat/a-comlin.adb: Likewise.
5646         * libgnat/a-comlin.ads, libgnat/a-comutr.adb: Likewise.
5647         * libgnat/a-comutr.ads, libgnat/a-conhel.adb: Likewise.
5648         * libgnat/a-conhel.ads, libgnat/a-convec.adb: Likewise.
5649         * libgnat/a-convec.ads, libgnat/a-coorma.adb: Likewise.
5650         * libgnat/a-coorma.ads, libgnat/a-coormu.adb: Likewise.
5651         * libgnat/a-coormu.ads, libgnat/a-coorse.adb: Likewise.
5652         * libgnat/a-coorse.ads, libgnat/a-coprnu.adb: Likewise.
5653         * libgnat/a-coprnu.ads, libgnat/a-costso.adb: Likewise.
5654         * libgnat/a-costso.ads, libgnat/a-crbltr.ads: Likewise.
5655         * libgnat/a-crbtgk.adb, libgnat/a-crbtgk.ads: Likewise.
5656         * libgnat/a-crbtgo.adb, libgnat/a-crbtgo.ads: Likewise.
5657         * libgnat/a-crdlli.adb, libgnat/a-crdlli.ads: Likewise.
5658         * libgnat/a-csquin.ads, libgnat/a-cuprqu.adb: Likewise.
5659         * libgnat/a-cuprqu.ads, libgnat/a-cusyqu.adb: Likewise.
5660         * libgnat/a-cusyqu.ads, libgnat/a-cwila1.ads: Likewise.
5661         * libgnat/a-cwila9.ads, libgnat/a-decima.adb: Likewise.
5662         * libgnat/a-decima.ads, libgnat/a-decima__128.ads: Likewise.
5663         * libgnat/a-dhfina.adb, libgnat/a-dhfina.ads: Likewise.
5664         * libgnat/a-diocst.adb, libgnat/a-diocst.ads: Likewise.
5665         * libgnat/a-direct.adb, libgnat/a-direct.ads: Likewise.
5666         * libgnat/a-direio.adb, libgnat/a-direio.ads: Likewise.
5667         * libgnat/a-dirval.adb, libgnat/a-dirval.ads: Likewise.
5668         * libgnat/a-dirval__mingw.adb, libgnat/a-einuoc.adb: Likewise.
5669         * libgnat/a-einuoc.ads, libgnat/a-elchha.adb: Likewise.
5670         * libgnat/a-elchha.ads, libgnat/a-envvar.adb: Likewise.
5671         * libgnat/a-excach.adb, libgnat/a-except.adb: Likewise.
5672         * libgnat/a-except.ads, libgnat/a-exctra.adb: Likewise.
5673         * libgnat/a-exctra.ads, libgnat/a-exexda.adb: Likewise.
5674         * libgnat/a-exexpr.adb, libgnat/a-exextr.adb: Likewise.
5675         * libgnat/a-exstat.adb, libgnat/a-finali.adb: Likewise.
5676         * libgnat/a-finali.ads, libgnat/a-locale.adb: Likewise.
5677         * libgnat/a-locale.ads, libgnat/a-nagefl.ads: Likewise.
5678         * libgnat/a-naliop.ads, libgnat/a-naliop__nolibm.ads: Likewise.
5679         * libgnat/a-nallfl.ads, libgnat/a-nallfl__wraplf.ads: Likewise.
5680         * libgnat/a-nalofl.ads, libgnat/a-nalofl__simd.ads: Likewise.
5681         * libgnat/a-nashfl.ads, libgnat/a-nashfl__wraplf.ads: Likewise.
5682         * libgnat/a-nbnbig.adb, libgnat/a-nbnbin.adb: Likewise.
5683         * libgnat/a-nbnbin__gmp.adb, libgnat/a-nbnbre.adb: Likewise.
5684         * libgnat/a-ngcefu.adb, libgnat/a-ngcoar.adb: Likewise.
5685         * libgnat/a-ngcoty.adb, libgnat/a-ngcoty.ads: Likewise.
5686         * libgnat/a-ngelfu.adb, libgnat/a-ngelfu.ads: Likewise.
5687         * libgnat/a-ngrear.adb, libgnat/a-ngrear.ads: Likewise.
5688         * libgnat/a-nuauco.ads, libgnat/a-nuauco__x86.ads: Likewise.
5689         * libgnat/a-nuaufl.ads, libgnat/a-nuaufl__simd.ads: Likewise.
5690         * libgnat/a-nuaufl__wraplf.ads, libgnat/a-nudira.adb: Likewise.
5691         * libgnat/a-nudira.ads, libgnat/a-nuflra.adb: Likewise.
5692         * libgnat/a-nuflra.ads, libgnat/a-numaux.ads: Likewise.
5693         * libgnat/a-rbtgbk.adb, libgnat/a-rbtgbk.ads: Likewise.
5694         * libgnat/a-rbtgbo.adb, libgnat/a-rbtgbo.ads: Likewise.
5695         * libgnat/a-rbtgso.adb, libgnat/a-rbtgso.ads: Likewise.
5696         * libgnat/a-sbecin.adb, libgnat/a-sbecin.ads: Likewise.
5697         * libgnat/a-sbhcin.adb, libgnat/a-sbhcin.ads: Likewise.
5698         * libgnat/a-sblcin.adb, libgnat/a-sblcin.ads: Likewise.
5699         * libgnat/a-secain.adb, libgnat/a-secain.ads: Likewise.
5700         * libgnat/a-sequio.adb, libgnat/a-sequio.ads: Likewise.
5701         * libgnat/a-sfecin.ads, libgnat/a-sfhcin.ads: Likewise.
5702         * libgnat/a-sflcin.ads, libgnat/a-shcain.adb: Likewise.
5703         * libgnat/a-shcain.ads, libgnat/a-siocst.adb: Likewise.
5704         * libgnat/a-siocst.ads, libgnat/a-slcain.adb: Likewise.
5705         * libgnat/a-slcain.ads, libgnat/a-ssicst.adb: Likewise.
5706         * libgnat/a-ssicst.ads, libgnat/a-stboha.adb: Likewise.
5707         * libgnat/a-stbubo.adb, libgnat/a-stbubo.ads: Likewise.
5708         * libgnat/a-stbufi.adb, libgnat/a-stbufi.ads: Likewise.
5709         * libgnat/a-stbufo.adb, libgnat/a-stbufo.ads: Likewise.
5710         * libgnat/a-stbuun.adb, libgnat/a-stbuut.adb: Likewise.
5711         * libgnat/a-stbuut.ads, libgnat/a-stmaco.ads: Likewise.
5712         * libgnat/a-storio.adb, libgnat/a-strbou.adb: Likewise.
5713         * libgnat/a-strbou.ads, libgnat/a-stream.adb: Likewise.
5714         * libgnat/a-stream.ads, libgnat/a-strfix.adb: Likewise.
5715         * libgnat/a-strhas.adb, libgnat/a-strmap.adb: Likewise.
5716         * libgnat/a-strmap.ads, libgnat/a-strsea.adb: Likewise.
5717         * libgnat/a-strsea.ads, libgnat/a-strsto.ads: Likewise.
5718         * libgnat/a-strsup.adb, libgnat/a-strsup.ads: Likewise.
5719         * libgnat/a-strunb.adb, libgnat/a-strunb.ads: Likewise.
5720         * libgnat/a-strunb__shared.adb, libgnat/a-strunb__shared.ads: Likewise.
5721         * libgnat/a-ststbo.adb, libgnat/a-ststbo.ads: Likewise.
5722         * libgnat/a-ststio.adb, libgnat/a-ststio.ads: Likewise.
5723         * libgnat/a-ststun.adb, libgnat/a-ststun.ads: Likewise.
5724         * libgnat/a-sttebu.adb, libgnat/a-stunau.adb: Likewise.
5725         * libgnat/a-stunau.ads, libgnat/a-stunau__shared.adb: Likewise.
5726         * libgnat/a-stunha.adb, libgnat/a-stuten.adb: Likewise.
5727         * libgnat/a-stwibo.adb, libgnat/a-stwibo.ads: Likewise.
5728         * libgnat/a-stwifi.adb, libgnat/a-stwiha.adb: Likewise.
5729         * libgnat/a-stwima.adb, libgnat/a-stwima.ads: Likewise.
5730         * libgnat/a-stwise.adb, libgnat/a-stwise.ads: Likewise.
5731         * libgnat/a-stwisu.adb, libgnat/a-stwisu.ads: Likewise.
5732         * libgnat/a-stwiun.adb, libgnat/a-stwiun.ads: Likewise.
5733         * libgnat/a-stwiun__shared.adb, libgnat/a-stwiun__shared.ads: Likewise.
5734         * libgnat/a-stzbou.adb, libgnat/a-stzbou.ads: Likewise.
5735         * libgnat/a-stzfix.adb, libgnat/a-stzhas.adb: Likewise.
5736         * libgnat/a-stzmap.adb, libgnat/a-stzmap.ads: Likewise.
5737         * libgnat/a-stzsea.adb, libgnat/a-stzsea.ads: Likewise.
5738         * libgnat/a-stzsup.adb, libgnat/a-stzsup.ads: Likewise.
5739         * libgnat/a-stzunb.adb, libgnat/a-stzunb.ads: Likewise.
5740         * libgnat/a-stzunb__shared.adb, libgnat/a-stzunb__shared.ads: Likewise.
5741         * libgnat/a-suecin.adb, libgnat/a-suecin.ads: Likewise.
5742         * libgnat/a-suenco.adb, libgnat/a-suenst.adb: Likewise.
5743         * libgnat/a-suewst.adb, libgnat/a-suezst.adb: Likewise.
5744         * libgnat/a-suhcin.adb, libgnat/a-suhcin.ads: Likewise.
5745         * libgnat/a-sulcin.adb, libgnat/a-sulcin.ads: Likewise.
5746         * libgnat/a-suteio.adb, libgnat/a-suteio.ads: Likewise.
5747         * libgnat/a-suteio__shared.adb, libgnat/a-swbwha.adb: Likewise.
5748         * libgnat/a-swmwco.ads, libgnat/a-swunau.adb: Likewise.
5749         * libgnat/a-swunau.ads, libgnat/a-swunau__shared.adb: Likewise.
5750         * libgnat/a-swuwha.adb, libgnat/a-swuwti.adb: Likewise.
5751         * libgnat/a-swuwti.ads, libgnat/a-swuwti__shared.adb: Likewise.
5752         * libgnat/a-szbzha.adb, libgnat/a-szmzco.ads: Likewise.
5753         * libgnat/a-szunau.adb, libgnat/a-szunau.ads: Likewise.
5754         * libgnat/a-szunau__shared.adb, libgnat/a-szuzha.adb: Likewise.
5755         * libgnat/a-szuzti.adb, libgnat/a-szuzti.ads: Likewise.
5756         * libgnat/a-szuzti__shared.adb, libgnat/a-tags.adb: Likewise.
5757         * libgnat/a-tags.ads, libgnat/a-teioed.adb, libgnat/a-teioed.ads: Likewise.
5758         * libgnat/a-textio.adb, libgnat/a-textio.ads: Likewise.
5759         * libgnat/a-tiboio.adb, libgnat/a-ticoau.adb: Likewise.
5760         * libgnat/a-ticoau.ads, libgnat/a-ticoio.adb: Likewise.
5761         * libgnat/a-ticoio.ads, libgnat/a-tideau.adb: Likewise.
5762         * libgnat/a-tideau.ads, libgnat/a-tideio.adb: Likewise.
5763         * libgnat/a-tideio.ads, libgnat/a-tideio__128.adb: Likewise.
5764         * libgnat/a-tienau.adb, libgnat/a-tienau.ads: Likewise.
5765         * libgnat/a-tienio.adb, libgnat/a-tifiau.adb: Likewise.
5766         * libgnat/a-tifiau.ads, libgnat/a-tifiio.adb: Likewise.
5767         * libgnat/a-tifiio__128.adb, libgnat/a-tiflau.adb: Likewise.
5768         * libgnat/a-tiflau.ads, libgnat/a-tiflio.adb: Likewise.
5769         * libgnat/a-tiflio.ads, libgnat/a-tigeau.adb: Likewise.
5770         * libgnat/a-tigeau.ads, libgnat/a-tigeli.adb: Likewise.
5771         * libgnat/a-tiinau.adb, libgnat/a-tiinau.ads: Likewise.
5772         * libgnat/a-tiinio.adb, libgnat/a-tiinio.ads: Likewise.
5773         * libgnat/a-tiinio__128.adb, libgnat/a-timoio.adb: Likewise.
5774         * libgnat/a-timoio.ads, libgnat/a-timoio__128.adb: Likewise.
5775         * libgnat/a-tiocst.adb, libgnat/a-tiocst.ads: Likewise.
5776         * libgnat/a-tirsfi.adb, libgnat/a-tirsfi.ads: Likewise.
5777         * libgnat/a-titest.adb, libgnat/a-undesu.adb: Likewise.
5778         * libgnat/a-wichha.adb, libgnat/a-wichun.adb: Likewise.
5779         * libgnat/a-wichun.ads, libgnat/a-witeio.adb: Likewise.
5780         * libgnat/a-witeio.ads, libgnat/a-wrstfi.adb: Likewise.
5781         * libgnat/a-wrstfi.ads, libgnat/a-wtcoau.adb: Likewise.
5782         * libgnat/a-wtcoau.ads, libgnat/a-wtcoio.adb: Likewise.
5783         * libgnat/a-wtcstr.adb, libgnat/a-wtcstr.ads: Likewise.
5784         * libgnat/a-wtdeau.adb, libgnat/a-wtdeau.ads: Likewise.
5785         * libgnat/a-wtdeio.adb, libgnat/a-wtdeio__128.adb: Likewise.
5786         * libgnat/a-wtedit.adb, libgnat/a-wtedit.ads: Likewise.
5787         * libgnat/a-wtenau.adb, libgnat/a-wtenau.ads: Likewise.
5788         * libgnat/a-wtenio.adb, libgnat/a-wtfiau.adb: Likewise.
5789         * libgnat/a-wtfiau.ads, libgnat/a-wtfiio.adb: Likewise.
5790         * libgnat/a-wtfiio__128.adb, libgnat/a-wtflau.adb: Likewise.
5791         * libgnat/a-wtflau.ads, libgnat/a-wtflio.adb: Likewise.
5792         * libgnat/a-wtgeau.adb, libgnat/a-wtgeau.ads: Likewise.
5793         * libgnat/a-wtinau.adb, libgnat/a-wtinau.ads: Likewise.
5794         * libgnat/a-wtinio.adb, libgnat/a-wtinio__128.adb: Likewise.
5795         * libgnat/a-wtmoio.adb, libgnat/a-wtmoio.ads: Likewise.
5796         * libgnat/a-wtmoio__128.adb, libgnat/a-wttest.adb: Likewise.
5797         * libgnat/a-wwboio.adb, libgnat/a-zchhan.adb: Likewise.
5798         * libgnat/a-zchuni.adb, libgnat/a-zchuni.ads: Likewise.
5799         * libgnat/a-zrstfi.adb, libgnat/a-zrstfi.ads: Likewise.
5800         * libgnat/a-ztcoau.adb, libgnat/a-ztcoio.adb: Likewise.
5801         * libgnat/a-ztcstr.adb, libgnat/a-ztcstr.ads: Likewise.
5802         * libgnat/a-ztdeau.adb, libgnat/a-ztdeau.ads: Likewise.
5803         * libgnat/a-ztdeio.adb, libgnat/a-ztdeio__128.adb: Likewise.
5804         * libgnat/a-ztedit.adb, libgnat/a-ztedit.ads: Likewise.
5805         * libgnat/a-ztenau.adb, libgnat/a-ztenau.ads: Likewise.
5806         * libgnat/a-ztenio.adb, libgnat/a-ztexio.adb: Likewise.
5807         * libgnat/a-ztexio.ads, libgnat/a-ztfiau.adb: Likewise.
5808         * libgnat/a-ztfiau.ads, libgnat/a-ztfiio.adb: Likewise.
5809         * libgnat/a-ztfiio__128.adb, libgnat/a-ztflau.adb: Likewise.
5810         * libgnat/a-ztflau.ads, libgnat/a-ztflio.adb: Likewise.
5811         * libgnat/a-ztgeau.adb, libgnat/a-ztgeau.ads: Likewise.
5812         * libgnat/a-ztinau.adb, libgnat/a-ztinau.ads: Likewise.
5813         * libgnat/a-ztinio.adb, libgnat/a-ztinio__128.adb: Likewise.
5814         * libgnat/a-ztmoio.adb, libgnat/a-ztmoio__128.adb: Likewise.
5815         * libgnat/a-zttest.adb, libgnat/a-zzboio.adb: Likewise.
5816         * libgnat/g-allein.ads, libgnat/g-alleve.adb: Likewise.
5817         * libgnat/g-alleve.ads, libgnat/g-alleve__hard.adb: Likewise.
5818         * libgnat/g-alleve__hard.ads, libgnat/g-altcon.adb: Likewise.
5819         * libgnat/g-altcon.ads, libgnat/g-altive.ads: Likewise.
5820         * libgnat/g-alveop.adb, libgnat/g-alveop.ads: Likewise.
5821         * libgnat/g-alvety.ads, libgnat/g-alvevi.ads: Likewise.
5822         * libgnat/g-arrspl.adb, libgnat/g-arrspl.ads, libgnat/g-awk.adb: Likewise.
5823         * libgnat/g-awk.ads, libgnat/g-binenv.adb, libgnat/g-binenv.ads: Likewise.
5824         * libgnat/g-binsea.adb, libgnat/g-binsea.ads: Likewise.
5825         * libgnat/g-brapre.ads, libgnat/g-bubsor.adb: Likewise.
5826         * libgnat/g-bubsor.ads, libgnat/g-busora.adb: Likewise.
5827         * libgnat/g-busora.ads, libgnat/g-busorg.adb: Likewise.
5828         * libgnat/g-busorg.ads, libgnat/g-byorma.adb: Likewise.
5829         * libgnat/g-byorma.ads, libgnat/g-bytswa.adb: Likewise.
5830         * libgnat/g-bytswa.ads, libgnat/g-calend.adb: Likewise.
5831         * libgnat/g-calend.ads, libgnat/g-casuti.adb: Likewise.
5832         * libgnat/g-casuti.ads, libgnat/g-catiio.adb: Likewise.
5833         * libgnat/g-catiio.ads, libgnat/g-cgi.adb, libgnat/g-cgi.ads: Likewise.
5834         * libgnat/g-cgicoo.adb, libgnat/g-cgicoo.ads: Likewise.
5835         * libgnat/g-cgideb.adb, libgnat/g-cgideb.ads: Likewise.
5836         * libgnat/g-comlin.adb, libgnat/g-comlin.ads: Likewise.
5837         * libgnat/g-comver.adb, libgnat/g-comver.ads: Likewise.
5838         * libgnat/g-cppexc.adb, libgnat/g-cppexc.ads, libgnat/g-crc32.adb: Likewise.
5839         * libgnat/g-crc32.ads, libgnat/g-ctrl_c.adb, libgnat/g-ctrl_c.ads: Likewise.
5840         * libgnat/g-curexc.ads, libgnat/g-debpoo.adb: Likewise.
5841         * libgnat/g-debpoo.ads, libgnat/g-debuti.adb: Likewise.
5842         * libgnat/g-debuti.ads, libgnat/g-decstr.adb: Likewise.
5843         * libgnat/g-decstr.ads, libgnat/g-deutst.ads: Likewise.
5844         * libgnat/g-diopit.adb, libgnat/g-diopit.ads: Likewise.
5845         * libgnat/g-dirope.adb, libgnat/g-dirope.ads: Likewise.
5846         * libgnat/g-dynhta.adb, libgnat/g-dynhta.ads: Likewise.
5847         * libgnat/g-dyntab.adb, libgnat/g-dyntab.ads: Likewise.
5848         * libgnat/g-eacodu.adb, libgnat/g-encstr.adb: Likewise.
5849         * libgnat/g-encstr.ads, libgnat/g-enutst.ads: Likewise.
5850         * libgnat/g-excact.adb, libgnat/g-excact.ads: Likewise.
5851         * libgnat/g-except.ads, libgnat/g-exctra.adb: Likewise.
5852         * libgnat/g-exctra.ads, libgnat/g-expect.adb: Likewise.
5853         * libgnat/g-expect.ads, libgnat/g-exptty.adb: Likewise.
5854         * libgnat/g-exptty.ads, libgnat/g-flocon.ads: Likewise.
5855         * libgnat/g-forstr.adb, libgnat/g-forstr.ads: Likewise.
5856         * libgnat/g-gfmafu.ads, libgnat/g-graphs.adb: Likewise.
5857         * libgnat/g-graphs.ads, libgnat/g-heasor.adb: Likewise.
5858         * libgnat/g-heasor.ads, libgnat/g-hesora.adb: Likewise.
5859         * libgnat/g-hesora.ads, libgnat/g-hesorg.adb: Likewise.
5860         * libgnat/g-hesorg.ads, libgnat/g-htable.adb: Likewise.
5861         * libgnat/g-htable.ads, libgnat/g-io.adb, libgnat/g-io.ads: Likewise.
5862         * libgnat/g-io_aux.adb, libgnat/g-io_aux.ads, libgnat/g-lists.adb: Likewise.
5863         * libgnat/g-lists.ads, libgnat/g-locfil.adb, libgnat/g-locfil.ads: Likewise.
5864         * libgnat/g-mbdira.adb, libgnat/g-mbdira.ads: Likewise.
5865         * libgnat/g-mbflra.adb, libgnat/g-mbflra.ads, libgnat/g-md5.adb: Likewise.
5866         * libgnat/g-md5.ads, libgnat/g-memdum.adb, libgnat/g-memdum.ads: Likewise.
5867         * libgnat/g-moreex.adb, libgnat/g-moreex.ads: Likewise.
5868         * libgnat/g-os_lib.adb, libgnat/g-os_lib.ads: Likewise.
5869         * libgnat/g-pehage.adb, libgnat/g-pehage.ads: Likewise.
5870         * libgnat/g-rannum.adb, libgnat/g-rannum.ads: Likewise.
5871         * libgnat/g-regexp.adb, libgnat/g-regexp.ads: Likewise.
5872         * libgnat/g-regist.adb, libgnat/g-regist.ads: Likewise.
5873         * libgnat/g-regpat.adb, libgnat/g-regpat.ads: Likewise.
5874         * libgnat/g-rewdat.adb, libgnat/g-rewdat.ads: Likewise.
5875         * libgnat/g-sechas.adb, libgnat/g-sechas.ads: Likewise.
5876         * libgnat/g-sehamd.adb, libgnat/g-sehamd.ads: Likewise.
5877         * libgnat/g-sehash.adb, libgnat/g-sehash.ads: Likewise.
5878         * libgnat/g-sercom.adb, libgnat/g-sercom.ads: Likewise.
5879         * libgnat/g-sercom__linux.adb, libgnat/g-sercom__mingw.adb: Likewise.
5880         * libgnat/g-sestin.ads, libgnat/g-sets.adb, libgnat/g-sets.ads: Likewise.
5881         * libgnat/g-sha1.adb, libgnat/g-sha1.ads, libgnat/g-sha224.ads: Likewise.
5882         * libgnat/g-sha256.ads, libgnat/g-sha384.ads: Likewise.
5883         * libgnat/g-sha512.ads, libgnat/g-shsh32.adb: Likewise.
5884         * libgnat/g-shsh32.ads, libgnat/g-shsh64.adb: Likewise.
5885         * libgnat/g-shsh64.ads, libgnat/g-shshco.adb: Likewise.
5886         * libgnat/g-shshco.ads, libgnat/g-soccon.ads: Likewise.
5887         * libgnat/g-socket.adb, libgnat/g-socket.ads: Likewise.
5888         * libgnat/g-socket__dummy.adb, libgnat/g-socket__dummy.ads: Likewise.
5889         * libgnat/g-socpol.adb, libgnat/g-socpol.ads: Likewise.
5890         * libgnat/g-socpol__dummy.adb, libgnat/g-socpol__dummy.ads: Likewise.
5891         * libgnat/g-socthi.adb, libgnat/g-socthi.ads: Likewise.
5892         * libgnat/g-socthi__dummy.adb, libgnat/g-socthi__dummy.ads: Likewise.
5893         * libgnat/g-socthi__mingw.adb, libgnat/g-socthi__mingw.ads: Likewise.
5894         * libgnat/g-socthi__vxworks.adb, libgnat/g-socthi__vxworks.ads: Likewise.
5895         * libgnat/g-soliop.ads, libgnat/g-soliop__lynxos.ads: Likewise.
5896         * libgnat/g-soliop__mingw.ads, libgnat/g-soliop__qnx.ads: Likewise.
5897         * libgnat/g-soliop__solaris.ads, libgnat/g-sopowa.adb: Likewise.
5898         * libgnat/g-sopowa__mingw.adb, libgnat/g-sopowa__posix.adb: Likewise.
5899         * libgnat/g-sothco.adb, libgnat/g-sothco.ads: Likewise.
5900         * libgnat/g-sothco__dummy.adb, libgnat/g-sothco__dummy.ads: Likewise.
5901         * libgnat/g-souinf.ads, libgnat/g-spchge.adb: Likewise.
5902         * libgnat/g-spchge.ads, libgnat/g-speche.adb: Likewise.
5903         * libgnat/g-speche.ads, libgnat/g-spipat.adb: Likewise.
5904         * libgnat/g-spipat.ads, libgnat/g-spitbo.adb: Likewise.
5905         * libgnat/g-spitbo.ads, libgnat/g-spogwa.adb: Likewise.
5906         * libgnat/g-spogwa.ads, libgnat/g-sptabo.ads: Likewise.
5907         * libgnat/g-sptain.ads, libgnat/g-sptavs.ads, libgnat/g-sse.ads: Likewise.
5908         * libgnat/g-ssvety.ads, libgnat/g-sthcso.adb: Likewise.
5909         * libgnat/g-stheme.adb, libgnat/g-strhas.ads: Likewise.
5910         * libgnat/g-string.adb, libgnat/g-string.ads: Likewise.
5911         * libgnat/g-strspl.ads, libgnat/g-stseme.adb: Likewise.
5912         * libgnat/g-stsifd__sockets.adb, libgnat/g-table.adb: Likewise.
5913         * libgnat/g-table.ads, libgnat/g-tasloc.adb, libgnat/g-tasloc.ads: Likewise.
5914         * libgnat/g-timsta.adb, libgnat/g-timsta.ads: Likewise.
5915         * libgnat/g-traceb.adb, libgnat/g-traceb.ads: Likewise.
5916         * libgnat/g-trasym.adb, libgnat/g-trasym.ads, libgnat/g-tty.adb: Likewise.
5917         * libgnat/g-tty.ads, libgnat/g-u3spch.adb, libgnat/g-u3spch.ads: Likewise.
5918         * libgnat/g-utf_32.adb, libgnat/g-utf_32.ads: Likewise.
5919         * libgnat/g-wispch.adb, libgnat/g-wispch.ads: Likewise.
5920         * libgnat/g-wistsp.ads, libgnat/g-zspche.adb: Likewise.
5921         * libgnat/g-zspche.ads, libgnat/g-zstspl.ads, libgnat/gnat.ads: Likewise.
5922         * libgnat/i-c.adb, libgnat/i-cexten.ads: Likewise.
5923         * libgnat/i-cexten__128.ads, libgnat/i-cobol.adb: Likewise.
5924         * libgnat/i-cobol.ads, libgnat/i-cpoint.adb, libgnat/i-cpoint.ads: Likewise.
5925         * libgnat/i-cstrea.adb, libgnat/i-cstrea.ads: Likewise.
5926         * libgnat/i-cstrin.adb, libgnat/i-cstrin.ads: Likewise.
5927         * libgnat/i-fortra.adb, libgnat/i-pacdec.adb: Likewise.
5928         * libgnat/i-pacdec.ads, libgnat/i-vxwoio.adb: Likewise.
5929         * libgnat/i-vxwoio.ads, libgnat/i-vxwork.ads: Likewise.
5930         * libgnat/i-vxwork__x86.ads, libgnat/interfac.ads: Likewise.
5931         * libgnat/interfac__2020.ads, libgnat/memtrack.adb: Likewise.
5932         * libgnat/s-addima.adb, libgnat/s-addima.ads: Likewise.
5933         * libgnat/s-addope.adb, libgnat/s-addope.ads: Likewise.
5934         * libgnat/s-aoinar.adb, libgnat/s-aoinar.ads: Likewise.
5935         * libgnat/s-aomoar.adb, libgnat/s-aomoar.ads: Likewise.
5936         * libgnat/s-aotase.adb, libgnat/s-aotase.ads: Likewise.
5937         * libgnat/s-aridou.adb, libgnat/s-aridou.ads: Likewise.
5938         * libgnat/s-arit128.adb, libgnat/s-arit128.ads: Likewise.
5939         * libgnat/s-arit32.adb, libgnat/s-arit32.ads: Likewise.
5940         * libgnat/s-arit64.adb, libgnat/s-arit64.ads: Likewise.
5941         * libgnat/s-assert.adb, libgnat/s-assert.ads: Likewise.
5942         * libgnat/s-atacco.adb, libgnat/s-atacco.ads: Likewise.
5943         * libgnat/s-atocou.adb, libgnat/s-atocou.ads: Likewise.
5944         * libgnat/s-atocou__builtin.adb, libgnat/s-atoope.ads: Likewise.
5945         * libgnat/s-atopex.adb, libgnat/s-atopex.ads: Likewise.
5946         * libgnat/s-atopri.adb, libgnat/s-atopri.ads: Likewise.
5947         * libgnat/s-auxdec.adb, libgnat/s-auxdec.ads: Likewise.
5948         * libgnat/s-bignum.adb, libgnat/s-bignum.ads: Likewise.
5949         * libgnat/s-bitfie.ads, libgnat/s-bitops.adb: Likewise.
5950         * libgnat/s-bitops.ads, libgnat/s-bituti.adb: Likewise.
5951         * libgnat/s-bituti.ads, libgnat/s-boarop.ads: Likewise.
5952         * libgnat/s-boustr.adb, libgnat/s-boustr.ads: Likewise.
5953         * libgnat/s-bytswa.ads, libgnat/s-carsi8.adb: Likewise.
5954         * libgnat/s-carsi8.ads, libgnat/s-carun8.adb: Likewise.
5955         * libgnat/s-carun8.ads, libgnat/s-casi128.adb: Likewise.
5956         * libgnat/s-casi128.ads, libgnat/s-casi16.adb: Likewise.
5957         * libgnat/s-casi16.ads, libgnat/s-casi32.adb: Likewise.
5958         * libgnat/s-casi32.ads, libgnat/s-casi64.adb: Likewise.
5959         * libgnat/s-casi64.ads, libgnat/s-casuti.adb: Likewise.
5960         * libgnat/s-casuti.ads, libgnat/s-caun128.adb: Likewise.
5961         * libgnat/s-caun128.ads, libgnat/s-caun16.adb: Likewise.
5962         * libgnat/s-caun16.ads, libgnat/s-caun32.adb: Likewise.
5963         * libgnat/s-caun32.ads, libgnat/s-caun64.adb: Likewise.
5964         * libgnat/s-caun64.ads, libgnat/s-chepoo.ads: Likewise.
5965         * libgnat/s-commun.adb, libgnat/s-commun.ads: Likewise.
5966         * libgnat/s-conca2.adb, libgnat/s-conca2.ads: Likewise.
5967         * libgnat/s-conca3.adb, libgnat/s-conca3.ads: Likewise.
5968         * libgnat/s-conca4.adb, libgnat/s-conca4.ads: Likewise.
5969         * libgnat/s-conca5.adb, libgnat/s-conca5.ads: Likewise.
5970         * libgnat/s-conca6.adb, libgnat/s-conca6.ads: Likewise.
5971         * libgnat/s-conca7.adb, libgnat/s-conca7.ads: Likewise.
5972         * libgnat/s-conca8.adb, libgnat/s-conca8.ads: Likewise.
5973         * libgnat/s-conca9.adb, libgnat/s-conca9.ads, libgnat/s-crc32.adb: Likewise.
5974         * libgnat/s-crc32.ads, libgnat/s-crtl.ads, libgnat/s-dfmkio.ads: Likewise.
5975         * libgnat/s-dfmopr.ads, libgnat/s-dgmgop.ads: Likewise.
5976         * libgnat/s-diflio.adb, libgnat/s-diflio.ads: Likewise.
5977         * libgnat/s-diflmk.ads, libgnat/s-digemk.ads: Likewise.
5978         * libgnat/s-diinio.adb, libgnat/s-diinio.ads: Likewise.
5979         * libgnat/s-dilomk.ads, libgnat/s-dim.ads, libgnat/s-dimkio.ads: Likewise.
5980         * libgnat/s-dimmks.ads, libgnat/s-direio.adb: Likewise.
5981         * libgnat/s-direio.ads, libgnat/s-dlmkio.ads: Likewise.
5982         * libgnat/s-dlmopr.ads, libgnat/s-dmotpr.ads: Likewise.
5983         * libgnat/s-dorepr.adb, libgnat/s-dorepr__fma.adb: Likewise.
5984         * libgnat/s-dourea.adb, libgnat/s-dourea.ads: Likewise.
5985         * libgnat/s-dsaser.ads, libgnat/s-dwalin.adb: Likewise.
5986         * libgnat/s-dwalin.ads, libgnat/s-elaall.adb: Likewise.
5987         * libgnat/s-elaall.ads, libgnat/s-excdeb.adb: Likewise.
5988         * libgnat/s-excdeb.ads, libgnat/s-except.adb: Likewise.
5989         * libgnat/s-except.ads, libgnat/s-excmac__arm.adb: Likewise.
5990         * libgnat/s-excmac__arm.ads, libgnat/s-excmac__gcc.adb: Likewise.
5991         * libgnat/s-excmac__gcc.ads, libgnat/s-exctab.adb: Likewise.
5992         * libgnat/s-exctab.ads, libgnat/s-exctra.adb: Likewise.
5993         * libgnat/s-exctra.ads, libgnat/s-exnflt.ads: Likewise.
5994         * libgnat/s-exnint.adb, libgnat/s-exnint.ads: Likewise.
5995         * libgnat/s-exnlfl.ads, libgnat/s-exnllf.adb: Likewise.
5996         * libgnat/s-exnllf.ads, libgnat/s-exnlli.adb: Likewise.
5997         * libgnat/s-exnlli.ads, libgnat/s-exnllli.ads: Likewise.
5998         * libgnat/s-expint.adb, libgnat/s-expint.ads: Likewise.
5999         * libgnat/s-explli.adb, libgnat/s-explli.ads: Likewise.
6000         * libgnat/s-expllli.ads, libgnat/s-explllu.ads: Likewise.
6001         * libgnat/s-expllu.adb, libgnat/s-expllu.ads: Likewise.
6002         * libgnat/s-expmod.adb, libgnat/s-expmod.ads: Likewise.
6003         * libgnat/s-exponn.adb, libgnat/s-exponn.ads: Likewise.
6004         * libgnat/s-exponr.adb, libgnat/s-exponr.ads: Likewise.
6005         * libgnat/s-expont.adb, libgnat/s-expont.ads: Likewise.
6006         * libgnat/s-exponu.adb, libgnat/s-exponu.ads: Likewise.
6007         * libgnat/s-expuns.adb, libgnat/s-expuns.ads: Likewise.
6008         * libgnat/s-fatflt.ads, libgnat/s-fatgen.adb: Likewise.
6009         * libgnat/s-fatgen.ads, libgnat/s-fatlfl.ads: Likewise.
6010         * libgnat/s-fatllf.ads, libgnat/s-ficobl.ads: Likewise.
6011         * libgnat/s-filatt.ads, libgnat/s-fileio.adb: Likewise.
6012         * libgnat/s-fileio.ads, libgnat/s-finmas.adb: Likewise.
6013         * libgnat/s-finmas.ads, libgnat/s-finroo.adb: Likewise.
6014         * libgnat/s-finroo.ads, libgnat/s-flocon.adb: Likewise.
6015         * libgnat/s-flocon.ads, libgnat/s-flocon__none.adb: Likewise.
6016         * libgnat/s-fode128.ads, libgnat/s-fode32.ads: Likewise.
6017         * libgnat/s-fode64.ads, libgnat/s-fofi128.ads: Likewise.
6018         * libgnat/s-fofi32.ads, libgnat/s-fofi64.ads: Likewise.
6019         * libgnat/s-fore_d.adb, libgnat/s-fore_d.ads: Likewise.
6020         * libgnat/s-fore_f.adb, libgnat/s-fore_f.ads: Likewise.
6021         * libgnat/s-forrea.adb, libgnat/s-forrea.ads: Likewise.
6022         * libgnat/s-gearop.adb, libgnat/s-gearop.ads: Likewise.
6023         * libgnat/s-genbig.adb, libgnat/s-genbig.ads: Likewise.
6024         * libgnat/s-geveop.adb, libgnat/s-geveop.ads: Likewise.
6025         * libgnat/s-gloloc.adb, libgnat/s-gloloc.ads: Likewise.
6026         * libgnat/s-gloloc__mingw.adb, libgnat/s-htable.adb: Likewise.
6027         * libgnat/s-htable.ads, libgnat/s-imageb.adb: Likewise.
6028         * libgnat/s-imageb.ads, libgnat/s-imaged.adb: Likewise.
6029         * libgnat/s-imaged.ads, libgnat/s-imagef.adb: Likewise.
6030         * libgnat/s-imagef.ads, libgnat/s-imagei.adb: Likewise.
6031         * libgnat/s-imagei.ads, libgnat/s-imagen.adb: Likewise.
6032         * libgnat/s-imagen.ads, libgnat/s-imager.adb: Likewise.
6033         * libgnat/s-imager.ads, libgnat/s-imageu.adb: Likewise.
6034         * libgnat/s-imageu.ads, libgnat/s-imagew.adb: Likewise.
6035         * libgnat/s-imagew.ads, libgnat/s-imde128.ads: Likewise.
6036         * libgnat/s-imde32.ads, libgnat/s-imde64.ads: Likewise.
6037         * libgnat/s-imen16.ads, libgnat/s-imen32.ads: Likewise.
6038         * libgnat/s-imenu8.ads, libgnat/s-imfi128.ads: Likewise.
6039         * libgnat/s-imfi32.ads, libgnat/s-imfi64.ads: Likewise.
6040         * libgnat/s-imgbiu.adb, libgnat/s-imgbiu.ads: Likewise.
6041         * libgnat/s-imgboo.adb, libgnat/s-imgboo.ads: Likewise.
6042         * libgnat/s-imgcha.adb, libgnat/s-imgcha.ads: Likewise.
6043         * libgnat/s-imgflt.ads, libgnat/s-imgint.adb: Likewise.
6044         * libgnat/s-imgint.ads, libgnat/s-imglfl.ads: Likewise.
6045         * libgnat/s-imgllb.adb, libgnat/s-imgllb.ads: Likewise.
6046         * libgnat/s-imgllf.ads, libgnat/s-imglli.adb: Likewise.
6047         * libgnat/s-imglli.ads, libgnat/s-imglllb.ads: Likewise.
6048         * libgnat/s-imgllli.ads, libgnat/s-imglllu.ads: Likewise.
6049         * libgnat/s-imglllw.ads, libgnat/s-imgllu.adb: Likewise.
6050         * libgnat/s-imgllu.ads, libgnat/s-imgllw.adb: Likewise.
6051         * libgnat/s-imgllw.ads, libgnat/s-imgrea.adb: Likewise.
6052         * libgnat/s-imgrea.ads, libgnat/s-imguns.adb: Likewise.
6053         * libgnat/s-imguns.ads, libgnat/s-imguti.adb: Likewise.
6054         * libgnat/s-imguti.ads, libgnat/s-imgwch.adb: Likewise.
6055         * libgnat/s-imgwch.ads, libgnat/s-imgwiu.adb: Likewise.
6056         * libgnat/s-imgwiu.ads, libgnat/s-io.adb, libgnat/s-io.ads: Likewise.
6057         * libgnat/s-llflex.ads, libgnat/s-maccod.ads: Likewise.
6058         * libgnat/s-mantis.adb, libgnat/s-mantis.ads: Likewise.
6059         * libgnat/s-mastop.adb, libgnat/s-mastop.ads: Likewise.
6060         * libgnat/s-memcop.ads, libgnat/s-memory.adb: Likewise.
6061         * libgnat/s-memory.ads, libgnat/s-mmap.adb, libgnat/s-mmap.ads: Likewise.
6062         * libgnat/s-mmauni__long.ads, libgnat/s-mmosin__mingw.adb: Likewise.
6063         * libgnat/s-mmosin__mingw.ads, libgnat/s-mmosin__unix.adb: Likewise.
6064         * libgnat/s-mmosin__unix.ads, libgnat/s-multip.adb: Likewise.
6065         * libgnat/s-objrea.adb, libgnat/s-objrea.ads: Likewise.
6066         * libgnat/s-optide.adb, libgnat/s-os_lib.adb: Likewise.
6067         * libgnat/s-os_lib.ads, libgnat/s-osprim.ads: Likewise.
6068         * libgnat/s-osprim__darwin.adb, libgnat/s-osprim__lynxos.ads: Likewise.
6069         * libgnat/s-osprim__mingw.adb, libgnat/s-osprim__posix.adb: Likewise.
6070         * libgnat/s-osprim__posix2008.adb, libgnat/s-osprim__rtems.adb: Likewise.
6071         * libgnat/s-osprim__solaris.adb, libgnat/s-osprim__unix.adb: Likewise.
6072         * libgnat/s-osprim__x32.adb, libgnat/s-pack03.adb: Likewise.
6073         * libgnat/s-pack03.ads, libgnat/s-pack05.adb: Likewise.
6074         * libgnat/s-pack05.ads, libgnat/s-pack06.adb: Likewise.
6075         * libgnat/s-pack06.ads, libgnat/s-pack07.adb: Likewise.
6076         * libgnat/s-pack07.ads, libgnat/s-pack09.adb: Likewise.
6077         * libgnat/s-pack09.ads, libgnat/s-pack10.adb: Likewise.
6078         * libgnat/s-pack10.ads, libgnat/s-pack100.adb: Likewise.
6079         * libgnat/s-pack100.ads, libgnat/s-pack101.adb: Likewise.
6080         * libgnat/s-pack101.ads, libgnat/s-pack102.adb: Likewise.
6081         * libgnat/s-pack102.ads, libgnat/s-pack103.adb: Likewise.
6082         * libgnat/s-pack103.ads, libgnat/s-pack104.adb: Likewise.
6083         * libgnat/s-pack104.ads, libgnat/s-pack105.adb: Likewise.
6084         * libgnat/s-pack105.ads, libgnat/s-pack106.adb: Likewise.
6085         * libgnat/s-pack106.ads, libgnat/s-pack107.adb: Likewise.
6086         * libgnat/s-pack107.ads, libgnat/s-pack108.adb: Likewise.
6087         * libgnat/s-pack108.ads, libgnat/s-pack109.adb: Likewise.
6088         * libgnat/s-pack109.ads, libgnat/s-pack11.adb: Likewise.
6089         * libgnat/s-pack11.ads, libgnat/s-pack110.adb: Likewise.
6090         * libgnat/s-pack110.ads, libgnat/s-pack111.adb: Likewise.
6091         * libgnat/s-pack111.ads, libgnat/s-pack112.adb: Likewise.
6092         * libgnat/s-pack112.ads, libgnat/s-pack113.adb: Likewise.
6093         * libgnat/s-pack113.ads, libgnat/s-pack114.adb: Likewise.
6094         * libgnat/s-pack114.ads, libgnat/s-pack115.adb: Likewise.
6095         * libgnat/s-pack115.ads, libgnat/s-pack116.adb: Likewise.
6096         * libgnat/s-pack116.ads, libgnat/s-pack117.adb: Likewise.
6097         * libgnat/s-pack117.ads, libgnat/s-pack118.adb: Likewise.
6098         * libgnat/s-pack118.ads, libgnat/s-pack119.adb: Likewise.
6099         * libgnat/s-pack119.ads, libgnat/s-pack12.adb: Likewise.
6100         * libgnat/s-pack12.ads, libgnat/s-pack120.adb: Likewise.
6101         * libgnat/s-pack120.ads, libgnat/s-pack121.adb: Likewise.
6102         * libgnat/s-pack121.ads, libgnat/s-pack122.adb: Likewise.
6103         * libgnat/s-pack122.ads, libgnat/s-pack123.adb: Likewise.
6104         * libgnat/s-pack123.ads, libgnat/s-pack124.adb: Likewise.
6105         * libgnat/s-pack124.ads, libgnat/s-pack125.adb: Likewise.
6106         * libgnat/s-pack125.ads, libgnat/s-pack126.adb: Likewise.
6107         * libgnat/s-pack126.ads, libgnat/s-pack127.adb: Likewise.
6108         * libgnat/s-pack127.ads, libgnat/s-pack13.adb: Likewise.
6109         * libgnat/s-pack13.ads, libgnat/s-pack14.adb: Likewise.
6110         * libgnat/s-pack14.ads, libgnat/s-pack15.adb: Likewise.
6111         * libgnat/s-pack15.ads, libgnat/s-pack17.adb: Likewise.
6112         * libgnat/s-pack17.ads, libgnat/s-pack18.adb: Likewise.
6113         * libgnat/s-pack18.ads, libgnat/s-pack19.adb: Likewise.
6114         * libgnat/s-pack19.ads, libgnat/s-pack20.adb: Likewise.
6115         * libgnat/s-pack20.ads, libgnat/s-pack21.adb: Likewise.
6116         * libgnat/s-pack21.ads, libgnat/s-pack22.adb: Likewise.
6117         * libgnat/s-pack22.ads, libgnat/s-pack23.adb: Likewise.
6118         * libgnat/s-pack23.ads, libgnat/s-pack24.adb: Likewise.
6119         * libgnat/s-pack24.ads, libgnat/s-pack25.adb: Likewise.
6120         * libgnat/s-pack25.ads, libgnat/s-pack26.adb: Likewise.
6121         * libgnat/s-pack26.ads, libgnat/s-pack27.adb: Likewise.
6122         * libgnat/s-pack27.ads, libgnat/s-pack28.adb: Likewise.
6123         * libgnat/s-pack28.ads, libgnat/s-pack29.adb: Likewise.
6124         * libgnat/s-pack29.ads, libgnat/s-pack30.adb: Likewise.
6125         * libgnat/s-pack30.ads, libgnat/s-pack31.adb: Likewise.
6126         * libgnat/s-pack31.ads, libgnat/s-pack33.adb: Likewise.
6127         * libgnat/s-pack33.ads, libgnat/s-pack34.adb: Likewise.
6128         * libgnat/s-pack34.ads, libgnat/s-pack35.adb: Likewise.
6129         * libgnat/s-pack35.ads, libgnat/s-pack36.adb: Likewise.
6130         * libgnat/s-pack36.ads, libgnat/s-pack37.adb: Likewise.
6131         * libgnat/s-pack37.ads, libgnat/s-pack38.adb: Likewise.
6132         * libgnat/s-pack38.ads, libgnat/s-pack39.adb: Likewise.
6133         * libgnat/s-pack39.ads, libgnat/s-pack40.adb: Likewise.
6134         * libgnat/s-pack40.ads, libgnat/s-pack41.adb: Likewise.
6135         * libgnat/s-pack41.ads, libgnat/s-pack42.adb: Likewise.
6136         * libgnat/s-pack42.ads, libgnat/s-pack43.adb: Likewise.
6137         * libgnat/s-pack43.ads, libgnat/s-pack44.adb: Likewise.
6138         * libgnat/s-pack44.ads, libgnat/s-pack45.adb: Likewise.
6139         * libgnat/s-pack45.ads, libgnat/s-pack46.adb: Likewise.
6140         * libgnat/s-pack46.ads, libgnat/s-pack47.adb: Likewise.
6141         * libgnat/s-pack47.ads, libgnat/s-pack48.adb: Likewise.
6142         * libgnat/s-pack48.ads, libgnat/s-pack49.adb: Likewise.
6143         * libgnat/s-pack49.ads, libgnat/s-pack50.adb: Likewise.
6144         * libgnat/s-pack50.ads, libgnat/s-pack51.adb: Likewise.
6145         * libgnat/s-pack51.ads, libgnat/s-pack52.adb: Likewise.
6146         * libgnat/s-pack52.ads, libgnat/s-pack53.adb: Likewise.
6147         * libgnat/s-pack53.ads, libgnat/s-pack54.adb: Likewise.
6148         * libgnat/s-pack54.ads, libgnat/s-pack55.adb: Likewise.
6149         * libgnat/s-pack55.ads, libgnat/s-pack56.adb: Likewise.
6150         * libgnat/s-pack56.ads, libgnat/s-pack57.adb: Likewise.
6151         * libgnat/s-pack57.ads, libgnat/s-pack58.adb: Likewise.
6152         * libgnat/s-pack58.ads, libgnat/s-pack59.adb: Likewise.
6153         * libgnat/s-pack59.ads, libgnat/s-pack60.adb: Likewise.
6154         * libgnat/s-pack60.ads, libgnat/s-pack61.adb: Likewise.
6155         * libgnat/s-pack61.ads, libgnat/s-pack62.adb: Likewise.
6156         * libgnat/s-pack62.ads, libgnat/s-pack63.adb: Likewise.
6157         * libgnat/s-pack63.ads, libgnat/s-pack65.adb: Likewise.
6158         * libgnat/s-pack65.ads, libgnat/s-pack66.adb: Likewise.
6159         * libgnat/s-pack66.ads, libgnat/s-pack67.adb: Likewise.
6160         * libgnat/s-pack67.ads, libgnat/s-pack68.adb: Likewise.
6161         * libgnat/s-pack68.ads, libgnat/s-pack69.adb: Likewise.
6162         * libgnat/s-pack69.ads, libgnat/s-pack70.adb: Likewise.
6163         * libgnat/s-pack70.ads, libgnat/s-pack71.adb: Likewise.
6164         * libgnat/s-pack71.ads, libgnat/s-pack72.adb: Likewise.
6165         * libgnat/s-pack72.ads, libgnat/s-pack73.adb: Likewise.
6166         * libgnat/s-pack73.ads, libgnat/s-pack74.adb: Likewise.
6167         * libgnat/s-pack74.ads, libgnat/s-pack75.adb: Likewise.
6168         * libgnat/s-pack75.ads, libgnat/s-pack76.adb: Likewise.
6169         * libgnat/s-pack76.ads, libgnat/s-pack77.adb: Likewise.
6170         * libgnat/s-pack77.ads, libgnat/s-pack78.adb: Likewise.
6171         * libgnat/s-pack78.ads, libgnat/s-pack79.adb: Likewise.
6172         * libgnat/s-pack79.ads, libgnat/s-pack80.adb: Likewise.
6173         * libgnat/s-pack80.ads, libgnat/s-pack81.adb: Likewise.
6174         * libgnat/s-pack81.ads, libgnat/s-pack82.adb: Likewise.
6175         * libgnat/s-pack82.ads, libgnat/s-pack83.adb: Likewise.
6176         * libgnat/s-pack83.ads, libgnat/s-pack84.adb: Likewise.
6177         * libgnat/s-pack84.ads, libgnat/s-pack85.adb: Likewise.
6178         * libgnat/s-pack85.ads, libgnat/s-pack86.adb: Likewise.
6179         * libgnat/s-pack86.ads, libgnat/s-pack87.adb: Likewise.
6180         * libgnat/s-pack87.ads, libgnat/s-pack88.adb: Likewise.
6181         * libgnat/s-pack88.ads, libgnat/s-pack89.adb: Likewise.
6182         * libgnat/s-pack89.ads, libgnat/s-pack90.adb: Likewise.
6183         * libgnat/s-pack90.ads, libgnat/s-pack91.adb: Likewise.
6184         * libgnat/s-pack91.ads, libgnat/s-pack92.adb: Likewise.
6185         * libgnat/s-pack92.ads, libgnat/s-pack93.adb: Likewise.
6186         * libgnat/s-pack93.ads, libgnat/s-pack94.adb: Likewise.
6187         * libgnat/s-pack94.ads, libgnat/s-pack95.adb: Likewise.
6188         * libgnat/s-pack95.ads, libgnat/s-pack96.adb: Likewise.
6189         * libgnat/s-pack96.ads, libgnat/s-pack97.adb: Likewise.
6190         * libgnat/s-pack97.ads, libgnat/s-pack98.adb: Likewise.
6191         * libgnat/s-pack98.ads, libgnat/s-pack99.adb: Likewise.
6192         * libgnat/s-pack99.ads, libgnat/s-parame.adb: Likewise.
6193         * libgnat/s-parame.ads, libgnat/s-parame__hpux.ads: Likewise.
6194         * libgnat/s-parame__posix2008.ads, libgnat/s-parame__rtems.adb: Likewise.
6195         * libgnat/s-parame__vxworks.adb, libgnat/s-parame__vxworks.ads: Likewise.
6196         * libgnat/s-parint.adb, libgnat/s-parint.ads: Likewise.
6197         * libgnat/s-pehage.adb, libgnat/s-pehage.ads: Likewise.
6198         * libgnat/s-pooglo.adb, libgnat/s-pooglo.ads: Likewise.
6199         * libgnat/s-pooloc.adb, libgnat/s-pooloc.ads: Likewise.
6200         * libgnat/s-poosiz.adb, libgnat/s-poosiz.ads: Likewise.
6201         * libgnat/s-powflt.ads, libgnat/s-powlfl.ads: Likewise.
6202         * libgnat/s-powllf.ads, libgnat/s-purexc.ads: Likewise.
6203         * libgnat/s-putima.adb, libgnat/s-putima.ads: Likewise.
6204         * libgnat/s-rannum.adb, libgnat/s-rannum.ads: Likewise.
6205         * libgnat/s-ransee.adb, libgnat/s-ransee.ads: Likewise.
6206         * libgnat/s-regexp.adb, libgnat/s-regexp.ads: Likewise.
6207         * libgnat/s-regpat.adb, libgnat/s-regpat.ads: Likewise.
6208         * libgnat/s-resfil.adb, libgnat/s-resfil.ads: Likewise.
6209         * libgnat/s-restri.adb, libgnat/s-restri.ads: Likewise.
6210         * libgnat/s-retsta.ads, libgnat/s-rident.ads, libgnat/s-rpc.adb: Likewise.
6211         * libgnat/s-rpc.ads, libgnat/s-scaval.adb, libgnat/s-scaval.ads: Likewise.
6212         * libgnat/s-scaval__128.adb, libgnat/s-scaval__128.ads: Likewise.
6213         * libgnat/s-secsta.adb, libgnat/s-secsta.ads: Likewise.
6214         * libgnat/s-sequio.adb, libgnat/s-sequio.ads: Likewise.
6215         * libgnat/s-shabig.ads, libgnat/s-shasto.adb: Likewise.
6216         * libgnat/s-shasto.ads, libgnat/s-soflin.adb: Likewise.
6217         * libgnat/s-soflin.ads, libgnat/s-soliin.adb: Likewise.
6218         * libgnat/s-soliin.ads, libgnat/s-spark.ads, libgnat/s-spcuop.adb: Likewise.
6219         * libgnat/s-spcuop.ads, libgnat/s-spsufi.adb: Likewise.
6220         * libgnat/s-spsufi.ads, libgnat/s-stache.adb: Likewise.
6221         * libgnat/s-stache.ads, libgnat/s-stalib.adb: Likewise.
6222         * libgnat/s-stalib.ads, libgnat/s-statxd.adb: Likewise.
6223         * libgnat/s-statxd.ads, libgnat/s-stausa.adb: Likewise.
6224         * libgnat/s-stausa.ads, libgnat/s-stchop.adb: Likewise.
6225         * libgnat/s-stchop.ads, libgnat/s-stchop__limit.ads: Likewise.
6226         * libgnat/s-stchop__vxworks.adb, libgnat/s-stoele.adb: Likewise.
6227         * libgnat/s-stoele.ads, libgnat/s-stopoo.adb: Likewise.
6228         * libgnat/s-stopoo.ads, libgnat/s-stposu.adb: Likewise.
6229         * libgnat/s-stposu.ads, libgnat/s-stratt.adb: Likewise.
6230         * libgnat/s-stratt.ads, libgnat/s-strcom.adb: Likewise.
6231         * libgnat/s-strcom.ads, libgnat/s-strhas.adb: Likewise.
6232         * libgnat/s-strhas.ads, libgnat/s-string.adb: Likewise.
6233         * libgnat/s-string.ads, libgnat/s-ststop.adb: Likewise.
6234         * libgnat/s-ststop.ads, libgnat/s-tasloc.adb: Likewise.
6235         * libgnat/s-tasloc.ads, libgnat/s-traceb.adb: Likewise.
6236         * libgnat/s-traceb.ads, libgnat/s-traceb__hpux.adb: Likewise.
6237         * libgnat/s-traceb__mastop.adb, libgnat/s-traent.adb: Likewise.
6238         * libgnat/s-traent.ads, libgnat/s-trasym.adb: Likewise.
6239         * libgnat/s-trasym.ads, libgnat/s-trasym__dwarf.adb: Likewise.
6240         * libgnat/s-tsmona.adb, libgnat/s-tsmona__linux.adb: Likewise.
6241         * libgnat/s-tsmona__mingw.adb, libgnat/s-unstyp.ads: Likewise.
6242         * libgnat/s-utf_32.adb, libgnat/s-utf_32.ads: Likewise.
6243         * libgnat/s-vade128.ads, libgnat/s-vade32.ads: Likewise.
6244         * libgnat/s-vade64.ads, libgnat/s-vaen16.ads: Likewise.
6245         * libgnat/s-vaen32.ads, libgnat/s-vaenu8.ads: Likewise.
6246         * libgnat/s-vafi128.ads, libgnat/s-vafi32.ads: Likewise.
6247         * libgnat/s-vafi64.ads, libgnat/s-vaispe.adb: Likewise.
6248         * libgnat/s-vaispe.ads, libgnat/s-valboo.adb: Likewise.
6249         * libgnat/s-valboo.ads, libgnat/s-valcha.adb: Likewise.
6250         * libgnat/s-valcha.ads, libgnat/s-valflt.ads: Likewise.
6251         * libgnat/s-valint.adb, libgnat/s-valint.ads: Likewise.
6252         * libgnat/s-vallfl.ads, libgnat/s-valllf.ads: Likewise.
6253         * libgnat/s-vallli.adb, libgnat/s-vallli.ads: Likewise.
6254         * libgnat/s-valllli.ads, libgnat/s-vallllu.ads: Likewise.
6255         * libgnat/s-valllu.adb, libgnat/s-valllu.ads: Likewise.
6256         * libgnat/s-valrea.adb, libgnat/s-valrea.ads: Likewise.
6257         * libgnat/s-valued.adb, libgnat/s-valued.ads: Likewise.
6258         * libgnat/s-valuef.adb, libgnat/s-valuef.ads: Likewise.
6259         * libgnat/s-valuei.adb, libgnat/s-valuei.ads: Likewise.
6260         * libgnat/s-valuen.adb, libgnat/s-valuen.ads: Likewise.
6261         * libgnat/s-valuer.adb, libgnat/s-valuer.ads: Likewise.
6262         * libgnat/s-valueu.adb, libgnat/s-valueu.ads: Likewise.
6263         * libgnat/s-valuns.adb, libgnat/s-valuns.ads: Likewise.
6264         * libgnat/s-valuti.adb, libgnat/s-valuti.ads: Likewise.
6265         * libgnat/s-valwch.adb, libgnat/s-valwch.ads: Likewise.
6266         * libgnat/s-vauspe.adb, libgnat/s-vauspe.ads: Likewise.
6267         * libgnat/s-veboop.adb, libgnat/s-veboop.ads: Likewise.
6268         * libgnat/s-vector.ads, libgnat/s-vercon.adb: Likewise.
6269         * libgnat/s-vercon.ads, libgnat/s-wchcnv.adb: Likewise.
6270         * libgnat/s-wchcnv.ads, libgnat/s-wchcon.adb: Likewise.
6271         * libgnat/s-wchcon.ads, libgnat/s-wchjis.adb: Likewise.
6272         * libgnat/s-wchjis.ads, libgnat/s-wchstw.adb: Likewise.
6273         * libgnat/s-wchstw.ads, libgnat/s-wchwts.adb: Likewise.
6274         * libgnat/s-wchwts.ads, libgnat/s-widboo.adb: Likewise.
6275         * libgnat/s-widboo.ads, libgnat/s-widcha.adb: Likewise.
6276         * libgnat/s-widcha.ads, libgnat/s-widenu.adb: Likewise.
6277         * libgnat/s-widenu.ads, libgnat/s-widint.ads: Likewise.
6278         * libgnat/s-widlli.adb, libgnat/s-widlli.ads: Likewise.
6279         * libgnat/s-widllli.ads, libgnat/s-widlllu.ads: Likewise.
6280         * libgnat/s-widllu.adb, libgnat/s-widllu.ads: Likewise.
6281         * libgnat/s-widthi.adb, libgnat/s-widthi.ads: Likewise.
6282         * libgnat/s-widthu.adb, libgnat/s-widthu.ads: Likewise.
6283         * libgnat/s-widuns.ads, libgnat/s-widwch.adb: Likewise.
6284         * libgnat/s-widwch.ads, libgnat/s-win32.ads, libgnat/s-winext.ads: Likewise.
6285         * libgnat/s-wwdcha.adb, libgnat/s-wwdcha.ads: Likewise.
6286         * libgnat/s-wwdenu.adb, libgnat/s-wwdenu.ads: Likewise.
6287         * libgnat/s-wwdwch.adb, libgnat/s-wwdwch.ads: Likewise.
6288         * libgnat/system-aix.ads, libgnat/system-darwin-arm.ads: Likewise.
6289         * libgnat/system-darwin-ppc.ads, libgnat/system-darwin-x86.ads: Likewise.
6290         * libgnat/system-djgpp.ads, libgnat/system-dragonfly-x86_64.ads: Likewise.
6291         * libgnat/system-freebsd.ads, libgnat/system-hpux-ia64.ads: Likewise.
6292         * libgnat/system-hpux.ads, libgnat/system-linux-alpha.ads: Likewise.
6293         * libgnat/system-linux-arm.ads, libgnat/system-linux-hppa.ads: Likewise.
6294         * libgnat/system-linux-ia64.ads, libgnat/system-linux-m68k.ads: Likewise.
6295         * libgnat/system-linux-mips.ads, libgnat/system-linux-ppc.ads: Likewise.
6296         * libgnat/system-linux-riscv.ads, libgnat/system-linux-s390.ads: Likewise.
6297         * libgnat/system-linux-sh4.ads, libgnat/system-linux-sparc.ads: Likewise.
6298         * libgnat/system-linux-x86.ads, libgnat/system-lynxos178-ppc.ads: Likewise.
6299         * libgnat/system-lynxos178-x86.ads, libgnat/system-mingw.ads: Likewise.
6300         * libgnat/system-qnx-arm.ads, libgnat/system-rtems.ads: Likewise.
6301         * libgnat/system-solaris-sparc.ads: Likewise.
6302         * libgnat/system-solaris-x86.ads: Likewise.
6303         * libgnat/system-vxworks-ppc-kernel.ads: Likewise.
6304         * libgnat/system-vxworks-ppc-rtp-smp.ads: Likewise.
6305         * libgnat/system-vxworks-ppc-rtp.ads: Likewise.
6306         * libgnat/system-vxworks7-aarch64-rtp-smp.ads: Likewise.
6307         * libgnat/system-vxworks7-aarch64.ads: Likewise.
6308         * libgnat/system-vxworks7-arm-rtp-smp.ads: Likewise.
6309         * libgnat/system-vxworks7-arm.ads: Likewise.
6310         * libgnat/system-vxworks7-ppc-kernel.ads: Likewise.
6311         * libgnat/system-vxworks7-ppc-rtp-smp.ads: Likewise.
6312         * libgnat/system-vxworks7-ppc64-kernel.ads: Likewise.
6313         * libgnat/system-vxworks7-ppc64-rtp-smp.ads: Likewise.
6314         * libgnat/system-vxworks7-x86-kernel.ads: Likewise.
6315         * libgnat/system-vxworks7-x86-rtp-smp.ads: Likewise.
6316         * libgnat/system-vxworks7-x86_64-kernel.ads: Likewise.
6317         * libgnat/system-vxworks7-x86_64-rtp-smp.ads, link.c, live.adb: Likewise.
6318         * live.ads, locales.c, make.adb, make.ads, make_util.adb: Likewise.
6319         * make_util.ads, makeusg.adb, makeusg.ads, mdll-fil.adb: Likewise.
6320         * mdll-fil.ads, mdll-utl.adb, mdll-utl.ads, mdll.adb, mdll.ads: Likewise.
6321         * mingw32.h, mkdir.c, namet-sp.adb, namet-sp.ads, namet.adb: Likewise.
6322         * namet.ads, namet.h, nlists.adb, nlists.ads, nlists.h, opt.adb: Likewise.
6323         * opt.ads, osint-b.adb, osint-b.ads, osint-c.adb, osint-c.ads: Likewise.
6324         * osint-l.adb, osint-l.ads, osint-m.adb, osint-m.ads, osint.adb: Likewise.
6325         * osint.ads, output.adb, output.ads, par-ch10.adb, par-ch11.adb: Likewise.
6326         * par-ch12.adb, par-ch13.adb, par-ch2.adb, par-ch3.adb: Likewise.
6327         * par-ch4.adb, par-ch5.adb, par-ch6.adb, par-ch7.adb, par-ch8.adb: Likewise.
6328         * par-ch9.adb, par-endh.adb, par-labl.adb, par-load.adb: Likewise.
6329         * par-prag.adb, par-sync.adb, par-tchk.adb, par-util.adb, par.adb: Likewise.
6330         * par.ads, par_sco.adb, par_sco.ads: Likewise.
6331         * pprint.adb, pprint.ads, prep.adb, prep.ads: Likewise.
6332         * prepcomp.adb, prepcomp.ads, put_scos.adb, put_scos.ads: Likewise.
6333         * raise-gcc.c, raise.c, raise.h, repinfo-input.adb: Likewise.
6334         * repinfo-input.ads, repinfo.adb, repinfo.ads, repinfo.h: Likewise.
6335         * restrict.adb, restrict.ads, rident.ads, rtfinal.c, rtinit.c: Likewise.
6336         * rtsfind.adb, rtsfind.ads, runtime.h, s-oscons-tmplt.c: Likewise.
6337         * scans.adb, scans.ads, scil_ll.adb, scil_ll.ads, scn.adb: Likewise.
6338         * scn.ads, scng.adb, scng.ads, scos.adb, scos.ads: Likewise.
6339         * scos.h, sdefault.ads, seh_init.c, sem.adb, sem.ads: Likewise.
6340         * sem_aggr.adb, sem_aggr.ads, sem_attr.adb, sem_attr.ads: Likewise.
6341         * sem_aux.adb, sem_aux.ads, sem_case.adb, sem_case.ads: Likewise.
6342         * sem_cat.adb, sem_cat.ads, sem_ch10.adb, sem_ch10.ads: Likewise.
6343         * sem_ch11.adb, sem_ch11.ads, sem_ch12.adb, sem_ch12.ads: Likewise.
6344         * sem_ch13.adb, sem_ch13.ads, sem_ch2.adb, sem_ch2.ads: Likewise.
6345         * sem_ch3.adb, sem_ch3.ads, sem_ch4.adb, sem_ch4.ads, sem_ch5.adb: Likewise.
6346         * sem_ch5.ads, sem_ch6.adb, sem_ch6.ads, sem_ch7.adb, sem_ch7.ads: Likewise.
6347         * sem_ch8.adb, sem_ch8.ads, sem_ch9.adb, sem_ch9.ads, sem_dim.adb: Likewise.
6348         * sem_dim.ads, sem_disp.adb, sem_disp.ads, sem_dist.adb: Likewise.
6349         * sem_dist.ads, sem_elab.adb, sem_elab.ads, sem_elim.adb: Likewise.
6350         * sem_elim.ads, sem_eval.adb, sem_eval.ads, sem_intr.adb: Likewise.
6351         * sem_intr.ads, sem_mech.adb, sem_mech.ads, sem_prag.adb: Likewise.
6352         * sem_prag.ads, sem_res.adb, sem_res.ads, sem_scil.adb: Likewise.
6353         * sem_scil.ads, sem_smem.adb, sem_smem.ads, sem_type.adb: Likewise.
6354         * sem_type.ads, sem_util.adb, sem_util.ads, sem_warn.adb: Likewise.
6355         * sem_warn.ads, set_targ.adb, set_targ.ads, sfn_scan.adb: Likewise.
6356         * sfn_scan.ads, sigtramp-arm-qnx.c, sigtramp-armdroid.c: Likewise.
6357         * sigtramp-ios.c, sigtramp-qnx.c: Likewise.
6358         * sigtramp-vxworks-target.h, sigtramp-vxworks.c, sigtramp.h: Likewise.
6359         * sinfo-cn.adb, sinfo-cn.ads, sinfo-utils.adb, sinfo-utils.ads: Likewise.
6360         * sinfo.adb, sinfo.ads, sinput-c.adb, sinput-c.ads, sinput-d.adb: Likewise.
6361         * sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.adb: Likewise.
6362         * sinput.ads, socket.c, spark_xrefs.adb, spark_xrefs.ads: Likewise.
6363         * sprint.adb, sprint.ads, stand.ads: Likewise.
6364         * stringt.adb, stringt.ads, stringt.h, strub.adb, strub.ads: Likewise.
6365         * style.adb, style.ads, styleg.adb, styleg.ads, stylesw.adb: Likewise.
6366         * stylesw.ads, switch-b.adb, switch-b.ads, switch-c.adb: Likewise.
6367         * switch-c.ads, switch-m.adb, switch-m.ads, switch.adb: Likewise.
6368         * switch.ads, sysdep.c, table.adb: Likewise.
6369         * table.ads, targext.c, targparm.adb, targparm.ads, tbuild.adb: Likewise.
6370         * tbuild.ads, tempdir.adb, tempdir.ads, terminals.c, tracebak.c: Likewise.
6371         * treepr.adb, treepr.ads, ttypes.ads, types.adb, types.ads: Likewise.
6372         * types.h, uintp.adb, uintp.ads, uintp.h, uname.adb, uname.ads: Likewise.
6373         * urealp.adb, urealp.ads, urealp.h, usage.adb, usage.ads: Likewise.
6374         * validsw.adb, validsw.ads, vast.adb, vast.ads, warnsw.adb: Likewise.
6375         * warnsw.ads, widechar.adb, widechar.ads, xoscons.adb: Likewise.
6376         * xsnamest.adb, xutil.adb, xutil.ads, gnatvsn.adb: Likewise.
6377         * gnatvsn.ads (Current_Year): Likewise and bump to 2023.
6379 2023-01-09  Eric Botcazou  <ebotcazou@adacore.com>
6381         * exp_ch7.adb (Make_Adjust_Call): Remove unreachable statement.
6382         (Make_Final_Call): Likewise.
6384 2023-01-09  Eric Botcazou  <ebotcazou@adacore.com>
6386         * exp_util.ads (Is_Tag_To_Class_Wide_Conversion): Delete.
6387         (Is_Displacement_Of_Object_Or_Function_Result): Likewise.
6388         * exp_util.adb (Is_Tag_To_Class_Wide_Conversion): Rename to...
6389         (Is_Temporary_For_Interface_Object): ...this.
6390         (Is_Finalizable_Transient): Adjust call to above renaming.
6391         (Is_Displacement_Of_Object_Or_Function_Result): Delete.
6392         (Requires_Cleanup_Actions): Remove special handling of the
6393         temporaries created for interface objects.
6394         * exp_ch7.adb (Build_Finalizer): Likewise.
6396 2023-01-07  LIU Hao  <lh_mouse@126.com>
6398         PR middle-end/108300
6399         * adaint.c: Define `WIN32_LEAN_AND_MEAN` before `#include
6400         <windows.h>`.
6401         * cio.c: Likewise.
6402         * ctrl_c.c: Likewise.
6403         * expect.c: Likewise.
6404         * gsocket.h: Likewise.
6405         * mingw32.h: Likewise.
6406         * mkdir.c: Likewise.
6407         * rtfinal.c: Likewise.
6408         * rtinit.c: Likewise.
6409         * seh_init.c: Likewise.
6410         * sysdep.c: Likewise.
6411         * terminals.c: Likewise.
6412         * tracebak.c: Likewise.
6414 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6416         * exp_util.adb (Make_CW_Equivalent_Type) <Has_Tag_Of_Type>: Tweak.
6418 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6420         * exp_ch3.adb (Expand_N_Object_Declaration): Rewrite the end of the
6421         handling of objects with (class-wide) interface type by using the
6422         same idiom as the other cases generating a renaming.
6423         * exp_util.adb (Is_Displacement_Of_Object_Or_Function_Result): Tweak
6424         pattern matching code and exclude special return objects.
6425         (Requires_Cleanup_Actions): Adjust comment.
6426         * exp_ch7.adb (Build_Finalizer): Likewise.
6428 2023-01-05  Piotr Trojanek  <trojanek@adacore.com>
6430         * freeze.adb (Build_Renamed_Body): Rewrite subprogram renaming to
6431         subprogram declaration early and then set the Body_To_Inling flag.
6433 2023-01-05  Piotr Trojanek  <trojanek@adacore.com>
6435         * freeze.adb (Build_Renamed_Body): Revert a special case for
6436         GNATprove; remove unnecessary initialization of a local variable.
6438 2023-01-05  Marc Poulhiès  <poulhies@adacore.com>
6440         * sem_ch12.adb (Instantiate_Package_Body): Better filtering when
6441         installing parent on the scope stack.
6443 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6445         * repinfo.ads (The JSON output format): Document change.
6446         * urealp.adb (UR_Write_To_JSON): Output a fraction instead of a
6447         decimal approximation.
6449 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6451         * exp_ch3.adb (Expand_N_Object_Declaration): New local variable
6452         Func_Id holding the function for a special return object.
6453         Use a direct renaming in the class-wide case when the initializing
6454         expression is a captured function call, except for a special return
6455         object when the two functions do not return on the same stack.
6456         Apply the accessibility check for class-wide special return objects.
6457         * exp_util.adb (Make_CW_Equivalent_Type) <Has_Tag_Of_Type>: New.
6458         Do not force a dispatching call to the primitive operation _Size if
6459         the expression is known to statically have the tag of its type.
6461 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6463         * exp_ch3.adb (Expand_N_Object_Declaration): Fix pasto in comment.
6465 2023-01-05  Ronan Desplanques  <desplanques@adacore.com>
6467         * sem_aggr.adb (Resolve_Array_Aggregate): Tweak conditions for
6468         warning about use of parentheses for array aggregates.
6470 2023-01-05  Javier Miranda  <miranda@adacore.com>
6472         * scans.ads (Tok_Left_Curly_Bracket, Tok_Right_Curly_Bracket)
6473         (Tok_Left_Interpolated_String): Placed in no category since they
6474         don't fit well in the existing categories. Fix typo in comment.
6475         (Inside_Interpolated_String_Literal): New scan state variable.
6476         * scng.adb (Slit): Scan interpolated string literals,
6477         continuations of interpolated string literals and escaped
6478         characters found in interpolated string literals.
6479         (Scan): Handle consecutive interpolated expressions. Handle ending
6480         delimiter placed immediately after an interpolated expression.
6481         Handle string literal placed after interpolated expression. Handle
6482         left and right curly brackets; when extensions are not allowed
6483         they are treated as left and right paren; when extensions are
6484         allowed they are handled as delimiters of interpolated string
6485         literals.
6486         * sinfo.ads (N_Interpolated_String_Literal): New node.
6487         * gen_il-gen-gen_nodes.adb (N_Interpolated_String_Literal): Define
6488         N_String_Literal node.
6489         * gen_il-types.ads (Opt_Type_Enum): Define N_String_Literal as
6490         concrete node type.
6491         * par-ch2.adb (P_Interpolated_String_Literal): New subprogram.
6492         * par-ch4.adb (P_Simple_Expression): Handle '}' as expression
6493         terminator when scanning an interpolated expression; disable error
6494         recovery machinery for binary operator when we are processing an
6495         interpolated string literal and reach the expression terminator
6496         '}'.
6497         (P_Primary): Call P_Interpolated_String_Literal when the opening
6498         interpolated-string-literal delimiter is found (that is, the left
6499         curly bracket '{').
6500         * par-tchk.adb (T_Right_Curly_Bracket): New subprogram.
6501         * par.adb (P_Interpolated_String_Literal): New declaration.
6502         (T_Right_Curly_Bracket): New declaration.
6503         * sem.adb (Analyze): Call Analyze_Interpolated_String_Literal.
6504         * sem_ch2.ads (Analyze_Interpolated_String_Literal): New
6505         subprogram
6506         * sem_ch2.adb (Analyze_Interpolated_String_Literal): Likewise.
6507         * sem_util.adb (Is_User_Defined_Literal): Complete mapping of
6508         literal aspects adding that interpolated string literals have no
6509         correspondence with any aspect.
6510         * sem_res.adb (Resolve_Interpolated_String_Literal): New
6511         subprogram.
6512         (Has_Applicable_User_Defined_Literal): Complete mapping of literal
6513         aspects adding that interpolated string literals have no
6514         correspondency with any aspect.
6515         * expander.adb (Expand): Add call to
6516         Expand_N_Interpolated_String_Literal.
6517         * exp_util.adb (Insert_Actions): Handle
6518         N_Interpolated_String_Literal nodes; that is, continue climbing.
6519         * exp_ch2.ads (Expand_N_Interpolated_String_Literal): New
6520         subprogram.
6521         * exp_ch2.adb (Expand_N_Interpolated_String_Literal): Likewise.
6522         * exp_put_image.adb (Build_Elementary_Put_Image_Call): Add missing
6523         conversion to force dispatching call. Required to handle calls to
6524         descendants.
6525         (Build_String_Put_Image_Call): Do not output string delimiters
6526         when the put_image call is part of an interpolated string literal.
6527         * rtsfind.ads (RTU_Id): Add RE_Set_Trim_Leading_Spaces.
6528         * sprint.adb (Sprint_Node): Output interpolated string contents.
6529         * libgnat/a-stbubo.adb (Get_UTF_8): Add default value for
6530         Trim_Leading_White_Spaces component in aggregate.
6531         (Buffer_Type_Implementation): Update Trim_Leading_White_Spaces.
6532         * libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
6533         (Buffer_Type_Implementation): Likewise.
6534         * libgnat/a-sttebu.ads (Set_Trim_Leading_Spaces): New subprogram.
6535         (Trim_Leading_Spaces): New subprogram.
6536         (Root_Buffer_Type): Adding Trim_Leading_While_Spaces component.
6537         * libgnat/a-sttebu.adb (procedure Set_Trim_Leading_Spaces): New
6538         subprogram.
6539         (Trim_Leading_Space): New subprogram.
6540         (Put_UTF_8): Handle Trim_Leading_White_Spaces.
6541         (New_Line): Likewise.
6542         * libgnat/s-putima.ads (Put_Image_String): Adding formal
6543         (with_delimiters).
6544         (Put_Image_Wide_String): Likewise.
6545         (Put_Image_Wide_Wide_String): Likewise.
6546         * libgnat/s-putima.adb (Put_Image_String): Adding support for new
6547         formal.
6548         (Put_Image_Wide_String): Likewise.
6549         (Put_Image_Wide_Wide_String): Likewise.
6551 2023-01-05  Joao Azevedo  <azevedo@adacore.com>
6553         * doc/gnat_ugn/gnat_utility_programs.rst: add gnatpp --layout
6554         switch and update legacy switches.
6556 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6558         * freeze.adb (Freeze_Entity): For the purpose of deciding whether to
6559         freeze an entity coming from an outer scope in an inner scope, treat
6560         the internal subprogram generated because of post-conditions as also
6561         coming from source if the original subprogram itself does.
6563 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6565         * contracts.adb (Build_Subprogram_Contract_Wrapper): Generate an
6566         extended return statement in all cases.
6567         (Expand_Subprogram_Contract): Adjust comment.
6569 2023-01-05  Ronan Desplanques  <desplanques@adacore.com>
6571         * libgnat/g-forstr.adb (F_Kind): Rename enumeration literal.
6572         (P_Flt_Format): Adjust handling of "%g".
6573         (Determine_Notation_And_Aft): New procedure.
6574         (Decimal_Exponent): New function.
6575         (Increment_Integral_Part): New procedure.
6576         (Remove_Extraneous_Decimal_Digit): New procedure.
6577         (Trim_Fractional_Part): New procedure.
6578         * libgnat/g-forstr.ads: Change description of "%g" specifier.
6580 2023-01-05  Marc Poulhiès  <poulhies@adacore.com>
6582         * sem_ch12.adb (Instantiate_Package_Body): Correctly find the
6583         parent instance to place on the scope stack.
6585 2023-01-05  Justin Squirek  <squirek@adacore.com>
6587         * sem_ch8.adb (Set_Entity_Or_Discriminal): Verify we are actually
6588         resetting the entity field of a non-prefixed discriminant
6589         reference.
6591 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6593         * exp_ch3.adb (Expand_N_Object_Declaration): New local variable used
6594         throughout instead of testing Is_Special_Return_Object every time.
6595         Do not rename an OK_To_Rename object for a special return object.
6596         * exp_ch4.adb (Expand_Concatenate): Revert to constrained allocation
6597         if the result is allocated on the secondary stack.
6599 2023-01-05  Steve Baird  <baird@adacore.com>
6601         * sem_prag.adb (Analyze_Pragma): Fix Is_Configuration_Pragma
6602         function to handle case where the pragma's parent is an
6603         N_Aspect_Specification node. In analyzing a Discard_Names pragma,
6604         do not assume that a nonzero number of arguments implies that the
6605         pragma is not a configuration pragma; that assumption only holds
6606         for legal programs.
6608 2023-01-05  Bob Duff  <duff@adacore.com>
6610         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
6611         Add RM references.
6612         * gnat_ugn.texi: Regenerate.
6614 2023-01-05  Eric Botcazou  <ebotcazou@adacore.com>
6616         * exp_ch3.adb (Expand_N_Object_Declaration): For a special return
6617         object of an interface type that is not inherently limited, make
6618         a call to the Adjust primitive after doing the copy.  For a special
6619         return object of a non-class-wide type initialized by a function
6620         call, use a direct renaming only if the object doing the capture
6621         is flagged by Is_Related_To_Func_Return.  For a special return
6622         object using a direct renaming, reassign the tag, if need be.
6623         * exp_ch6.adb (Expand_Simple_Function_Return): Fix comment.
6624         * exp_util.adb (Is_Related_To_Func_Return): Accept both regular and
6625         renaming object declarations for return objects.
6627 2023-01-05  Bob Duff  <duff@adacore.com>
6629         * sem_ch5.adb (Analyze_Assignment): Fix the bug by checking
6630         Original_Node. The renaming might be elsewhere, but the (original)
6631         reference is right here.
6632         * errout.adb: Remove pragma Unreferenced which was added because
6633         of the above bug.
6634         * einfo.ads: Misc cleanup.
6635         * lib.adb: Likewise.
6636         * lib.ads: Likewise.
6638 2023-01-03  Ghjuvan Lacambre  <lacambre@adacore.com>
6640         * errout.adb (Write_JSON_Span): Escape subprogram name.
6642 2023-01-03  Ghjuvan Lacambre  <lacambre@adacore.com>
6644         * output.adb (Write_Buffer): Use Flush_Buffer instead of Write_Eol.
6646 2023-01-03  Ronan Desplanques  <desplanques@adacore.com>
6648         * libgnat/g-forstr.adb (P_Flt_Format): Add "*" syntax handling.
6650 2023-01-03  Ronan Desplanques  <desplanques@adacore.com>
6652         * libgnat/g-forstr.adb (P_Int_Format): Fix parsing bug.
6654 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6656         * exp_ch6.adb (Expand_Simple_Function_Return): Make sure that a
6657         captured function call also verifies Is_Related_To_Func_Return.
6658         Do not generate an actual subtype for special return objects.
6659         * exp_util.ads (Is_Related_To_Func_Return): Add commentary.
6661 2023-01-03  Ronan Desplanques  <desplanques@adacore.com>
6663         * libgnat/g-forstr.adb
6664         (Advance_And_Accumulate_Until_Next_Specifier): New procedure.
6665         ("-"): Replace inline code with call to
6666         Advance_And_Accumulate_Until_Next_Specifier.
6667         (Next_Format): likewise.
6669 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6671         * checks.adb (Apply_Discriminant_Check.Denotes_Explicit_Dereference):
6672         Return false for artificial dereferences generated by the expander.
6674 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6676         * exp_ch6.adb (Is_Build_In_Place_Function): Adjust comment.
6677         * sem_util.adb (Compute_Returns_By_Ref): Do not set Returns_By_Ref
6678         on functions with foreign convention.
6680 2023-01-03  Marc Poulhiès  <poulhies@adacore.com>
6682         * exp_aggr.adb (Build_Assignment_With_Temporary): New.
6683         (Expand_Array_Aggregate): Tune backend optimization
6684         and insert a temporary in the case of an access with
6685         Designated_Storage_Model aspect.
6686         (Convert_Array_Aggr_In_Allocator): Likewise.
6688 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6690         * sem_res.adb (Resolve_Membership_Op): Adjust again latest change.
6692 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6694         * sem_util.ads (Set_Debug_Info_Defining_Id): Adjust comment.
6695         * sem_util.adb (Is_Aliased_View) <N_Explicit_Dereference>: Return
6696         false for more artificial dereferences generated by the expander.
6697         (Set_Debug_Info_Defining_Id): Set Debug_Info_Needed unconditionally
6698         in -gnatD mode.
6699         * exp_ch6.adb (Replace_Renaming_Declaration_Id): Also preserve the
6700         Is_Aliased flag.
6702 2023-01-03  Joel Brobecker  <brobecker@adacore.com>
6704         * doc/gnat_ugn/platform_specific_information.rst
6705         (_Platform_Specific_Information): Minor rewording of intro text.
6706         * gnat_ugn.texi: Regenerate.
6708 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6710         * exp_util.ads (Is_Captured_Function_Call): Declare.
6711         * exp_util.adb (Is_Captured_Function_Call): New predicate.
6712         * exp_ch3.adb (Expand_N_Object_Declaration): Use it to detect a
6713         rewritten function call as the initializing expression.
6714         * exp_ch6.adb (Expand_Simple_Function_Return): Use it to detect a
6715         rewritten function call as the returned expression.
6717 2023-01-03  Bob Duff  <duff@adacore.com>
6719         * exp_util.adb (Integer_Type_For): Assertion and comment.
6720         (Small_Integer_Type_For): Remove some code and call
6721         Integer_Type_For instead.
6722         * sem_util.ads (Rep_To_Pos_Flag): Improve comments. "Standard_..."
6723         seems overly pedantic here.
6724         * exp_attr.adb (Succ, Pred): Clean up: make the code as similar as
6725         possible.
6726         * exp_ch4.adb: Minor: named notation.
6728 2023-01-03  Javier Miranda  <miranda@adacore.com>
6730         * ghost.adb (Is_OK_Declaration): A reference to a Ghost entity may
6731         appear within the class-wide precondition of a helper subprogram.
6732         This context is treated as suitable because it was already
6733         verified when we were analyzing the original class-wide
6734         precondition.
6736 2023-01-03  Eric Botcazou  <ebotcazou@adacore.com>
6738         * exp_tss.adb (Base_Init_Proc): Do not return the Init_Proc of the
6739         ancestor type for a derived array type.
6740         * sem_ch13.adb (Inherit_Aspects_At_Freeze_Point): Factor out the
6741         common processing done on representation items.
6742         For Default_Component_Value and Default_Value, look into the first
6743         subtype to find out the representation items.
6745 2023-01-02  Iain Sandoe  <iain@sandoe.co.uk>
6747         PR ada/108202
6748         * gcc-interface/Make-lang.in (GCC_LINKERFLAGS, GCC_LDFLAGS):
6749         Versions of ALL_LINKERFLAGS, LDFLAGS with -Werror and
6750         -static-libgcc filtered out for Darwin8 and 9 (-Werror is filtered
6751         out for other hosts).
6753 2023-01-02  Jakub Jelinek  <jakub@redhat.com>
6755         * gnat_ugn.texi: Bump @copying's copyright year.
6756         * gnat_rm.texi: Likewise.
6759 Copyright (C) 2023 Free Software Foundation, Inc.
6761 Copying and distribution of this file, with or without modification,
6762 are permitted in any medium without royalty provided the copyright
6763 notice and this notice are preserved.