gcc/ada/ChangeLog

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