Skip several gcc.dg/builtin-dynamic-object-size tests on hppa*-*-hpux*
[official-gcc.git] / gcc / ada / ChangeLog-2021
blob451d7b20c43c31ad697f5af01d227134154a7661
1 2021-12-28  Martin Liska  <mliska@suse.cz>
3         * doc/share/gnu_free_documentation_license.rst: Replace http:// with https.
4         * gnat-style.texi: Likewise.
5         * gnat_rm.texi: Likewise.
6         * gnat_ugn.texi: Likewise.
8 2021-12-09  Jakub Jelinek  <jakub@redhat.com>
10         PR pch/71934
11         * gcc-interface/decl.c (gt_pch_nx): Pass NULL as new middle argument
12         to op.
14 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
16         * gcc-interface/Make-lang.in (ADA_GENERATED_FILES): Add warning.
18 2021-12-02  Marc Poulhiès  <poulhies@adacore.com>
20         * gcc-interface/a-assert.ads, gcc-interface/a-assert.adb: Remove.
22 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
24         * gcc-interface/decl.c (gnat_to_gnu_entity): Do not back-annotate a
25         maximum size for the Esize of limited record and concurrent types.
27 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
29         * gcc-interface/gigi.h (aggregate_type_contains_array_p): Delete.
30         (type_has_variable_size): Declare.
31         * gcc-interface/decl.c (adjust_packed): Return 0 only if the field
32         type is an array with variable size.
33         * gcc-interface/utils.c (aggregate_type_contains_array_p): Make
34         static and remove SELF_REFERENTIAL parameter.
35         (type_has_variable_size): Make public.
36         (create_field_decl): Adjust call to aggregate_type_contains_array_p.
38 2021-12-02  Justin Squirek  <squirek@adacore.com>
40         * gcc-interface/decl.c (gnat_to_gnu_entity): Skip normal
41         processing for Itypes that are E_Class_Wide_Subtype with
42         Equivalent_Type set.
44 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
46         * gcc-interface/trans.c (Call_to_gnu): Rename GNAT_NAME variable
47         into GNAT_SUBPROG to avoid later shadowing.
49 2021-12-02  Yannick Moy  <moy@adacore.com>
51         * libgnat/s-arit32.adb: Add ghost instances and lemmas.
52         (Scaled_Divide32): Add ghost code to prove. Minor code
53         modification to return early in error when divisor is zero.
54         * libgnat/s-arit32.ads: Add ghost instances and utilities.
55         (Scaled_Divide32): Add contract.
57 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
59         * sprint.adb (Source_Dump): Set both Print_Generated_Code and
60         Debug_Generated_Code to False at the end.
62 2021-12-02  Marc Poulhiès  <poulhies@adacore.com>
64         * sem_aggr.adb (Resolve_Array_Aggregate): Filter out nodes not
65         coming from source before emitting the warning.
67 2021-12-02  Yannick Moy  <moy@adacore.com>
69         * libgnat/s-aridou.adb (Log_Single_Size, Big_0): New ghost
70         constants.
71         (Lemma_Mult_Non_Negative, Lemma_Mult_Non_Positive,
72         Lemma_Not_In_Range_Big2xx64): New lemmas on big integers.
73         (Double_Divide): Remove justifications. Amend for that local
74         lemma Prove_Overflow_Case.
75         (Scaled_Divide): Remove justifications. Insert for that local
76         lemmas Prove_Negative_Dividend, Prove_Positive_Dividend and
77         Prove_Q_Too_Big, and amend local lemma Prove_Overflow.  To prove
78         the loop invariant on (Shift mod 2 = 0), introduce local ghost
79         variable Iter to count loop iterations, and relate its value to
80         the value of Shift through Log_Single_Size, with the help of
81         local lemma Prove_Power. Deal with proof regression by adding
82         new local lemma Prove_First_Iteration and local ghost variable
83         D123.
84         * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64): Remove
85         unnecessary Pure_Function on function as package is Pure.
87 2021-12-02  Yannick Moy  <moy@adacore.com>
89         * libgnat/s-widthi.adb: Add pragma Annotate.
91 2021-12-02  Yannick Moy  <moy@adacore.com>
93         * libgnat/s-widint.ads: Mark in SPARK.
94         * libgnat/s-widlli.ads: Likewise.
95         * libgnat/s-widllli.ads: Likewise.
96         * libgnat/s-widlllu.ads: Likewise.
97         * libgnat/s-widllu.ads: Disable ghost/contract.
98         * libgnat/s-widthi.adb: Replicate and adapt the proof from
99         s-widthu.adb.
100         * libgnat/s-widthi.ads: Add minimal postcondition.
101         * libgnat/s-widthu.adb: Fix comments in the modular case.
102         * libgnat/s-widthu.ads: Add minimal postcondition.
103         * libgnat/s-widuns.ads: Disable ghost/contract.
105 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
107         * rtsfind.ads (RE_Id, RE_Unit_Table): Add RE_Suspension_Object.
108         * sem_util.adb (Is_Descendant_Of_Suspension_Object): Use Is_RTE.
109         (Is_Suspension_Object): Remove body.
110         * sem_util.ads (Is_Suspension_Object): Remove spec.
111         * snames.ads-tmpl (Name_Suspension_Object): Remove, now
112         unreferenced.
114 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
116         * exp_util.adb (Append_Freeze_Action): Tune whitespace to make
117         the code look similar to Append_Freeze_Actions, which takes a
118         List_Id.
119         * sem_ch6.adb (Analyze_Return_Type): Cleanup with
120         Append_Freeze_Action.
121         * exp_ch3.adb (Build_Access_Subprogram_Wrapper_Body): Likewise.
122         * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Likewise.
123         * contracts.adb (Add_Indirect_Call_Wrapper): Remove extra call
124         to Ensure_Freeze_Node.
125         (Add_Call_Helper): Likewise.
126         * freeze.adb (Check_Inherited_Conditions): Likewise.
127         (Attribute_Renaming): Likewise.
128         * sem_ch8.adb: Likewise.
130 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
132         * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst
133         (No_Dispatching_Calls): Fix whitespace in example code.
134         * gnat_rm.texi: Regenerate.
135         * exp_ch13.adb (Expand_N_Freeze_Entity): Replace low-level
136         membership test with a high-level wrapper.
137         * exp_ch3.adb (Expand_Freeze_Record_Type): Remove unnecessary
138         initialization of list of wrapper declarations and unnecessary
139         guard for list of their bodies (if no bodies are created then
140         Append_Freeze_Actions is a no-op).
142 2021-12-02  Marc Poulhiès  <poulhies@adacore.com>
144         * exp_imgv.adb (Append_Table_To): Add new parameter to
145         Make_Aggregate call.
146         * gen_il-fields.ads (Opt_Field_Enum):
147         Add Is_Parenthesis_Aggregate and Is_Enum_Array_Aggregate.
148         * gen_il-gen-gen_nodes.adb (Union): Add Is_Enum_Array_Aggregate
149         and Is_Parenthesis_Aggregate field to N_Aggregate.
150         * libgnarl/s-interr.adb (User_Handler, User_Entry, Blocked)
151         (Ignored, Last_Unblocker, Server_ID): Likewise.
152         * libgnarl/s-intman.ads (Keep_Unmasked, Reserve): Likewise.
153         * libgnarl/s-intman__posix.adb (Exception_Interrupts)
154         (Initialize): Likewise.
155         * libgnarl/s-mudido__affinity.adb (Create): Likewise.
156         * libgnarl/s-osinte__linux.ads (Unmasked, Reserved): Likewise.
157         * libgnarl/s-taprop__linux.adb (Create_Task, Set_Task_Affinity)
158         * libgnarl/s-tasdeb.adb (Trace_On): Likewise.
159         * libgnarl/s-tasdeb.ads (Known_Tasks): Likewise.
160         * libgnarl/s-tasinf__linux.ads (Any_CPU, No_CPU): Likewise.
161         * libgnarl/s-taskin.adb (Initialize_ATCB): Likewise.
162         * libgnarl/s-taskin.ads (Ada_Task_Control_Block): Likewise.
163         * libgnarl/s-tasren.adb (Default_Treatment)
164         (New_State): Likewise.
165         * libgnarl/s-tassta.adb (Trace_Unhandled_Exception_In_Task):
166         Likewise.
167         * libgnarl/s-tataat.adb (Index_Array): Likewise.
168         * libgnarl/s-tpobop.adb (New_State): Likewise.
169         * libgnat/a-calend.adb (Cumulative_Days_Before_Month)
170         (Leap_Second_Times): Likewise.
171         * libgnat/a-calend.ads (Days_In_Month): Likewise.
172         * libgnat/a-cfinve.adb (Insert): Likewise.
173         * libgnat/a-chahan.adb (Char_Map): Likewise.
174         * libgnat/a-chtgbo.adb (Clear): Likewise.
175         * libgnat/a-cobove.adb ("&", Insert, To_Vector): Likewise.
176         * libgnat/a-cofove.adb (Insert, To_Vector): Likewise.
177         * libgnat/a-cohata.ads (Hash_Table_Type): Likewise.
178         * libgnat/a-coinve.adb (Merge, Insert, Insert_Space): Likewise.
179         * libgnat/a-convec.adb (Insert, To_Vector): Likewise.
180         * libgnat/a-coprnu.ads (Primes): Likewise.
181         * libgnat/a-direct.adb (Empty_String): Use regular "" instead
182         of aggregate.
183         (Start_Search_Internal, Name_Case_Equivalence, Search)
184         (Start_Search, Start_Search_Internal): Use bracket for
185         aggregate.
186         * libgnat/a-direct.ads (Start_Search,Search): Likewise.
187         * libgnat/a-direio.adb (Zeroes): Likewise.
188         * libgnat/a-nbnbre.adb (Leading_Padding, Trailing_Padding)
189         (Numerator_Image): Likewise.
190         * libgnat/a-ngrear.adb (Jacobi): Likewise.
191         * libgnat/a-stbubo.adb (Get_UTF_8): Likewise.
192         * libgnat/a-stbufo.adb (Put): Likewise.
193         * libgnat/a-stbuun.adb (Get_UTF_8): Likewise.
194         * libgnat/a-stbuut.adb (Put_7bit, Put_Character)
195         (Put_Wide_Character, Put_Wide_Wide_Character): Likewise.
196         * libgnat/a-stmaco.ads (Control_Set,Graphic_Set,Letter_Set)
197         (Lower_Set, Upper_Set, Basic_Set, Decimal_Digit_Set)
198         (Hexadecimal_Digit_Set, Alphanumeric_Set, Special_Set)
199         (ISO_646_Set): Likewise.
200         * libgnat/a-strbou.ads (Insert, Tail, "*", Replicate)
201         (Null_Bounded_String): Likewise.
202         * libgnat/a-strfix.ads (Head, Tail): Likewise.
203         * libgnat/a-strmap.adb (To_Domain, Lemma_Is_Sorted): Likewise.
204         * libgnat/a-strmap.ads (Null_Set): Likewise.
205         * libgnat/a-strsup.adb (Super_Head, Super_Replicate)
206         (Super_Tail): Likewise.
207         * libgnat/a-strsup.ads (Super_Head, Super_Tail, Times)
208         (Super_Replicate): Likewise.
209         * libgnat/a-sttebu.adb (Put_UTF8, Wide_Put_UTF_16): Likewise.
210         * libgnat/a-stuten.ads (BOM_16): Likewise.
211         * libgnat/a-stwibo.ads (Null_Bounded_Wide_String): Likewise.
212         * libgnat/a-stwima.ads (Null_Range): Likewise.
213         * libgnat/a-stwisu.adb (Super_Head, Super_Replicate)
214         (Super_Tail): Likewise.
215         * libgnat/a-stzbou.ads
216         (Null_Bounded_Wide_Wide_String): Likewise.
217         * libgnat/a-stzmap.ads (Null_Range): Likewise.
218         * libgnat/a-stzsup.adb (Super_Head, Super_Replicate)
219         (Super_Tail, Super_Trim): Likewise.
220         * libgnat/a-swmwco.ads (Control_Ranges, Graphic_Ranges)
221         (Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
222         (Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
223         (Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
224         (Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
225         (Basic_Mapping): Likewise.
226         * libgnat/a-szmzco.ads (Control_Ranges, Graphic_Ranges)
227         (Letter_Ranges, Lower_Ranges, Upeer_Ranges, Basic_Ranges)
228         (Decimal_Digit_Ranges, Hexadecimal_Digit_Ranges)
229         (Alphanumeric_Ranges, Special_Graphic_Ranges, ISO_646_Ranges)
230         (Character_Ranges, Lower_Case_Mapping, Upper_Case_Mapping)
231         (Basic_Mapping): Likewise.
232         * libgnat/a-teioed.adb (Format_Number): Likewise.
233         * libgnat/a-wtedit.adb (Format_Number): Likewise.
234         * libgnat/a-ztedit.adb (Format_Number): Likewise.
235         * libgnat/g-arrspl.adb (Separators): Likewise.
236         * libgnat/g-catiio.adb (Month_Name_To_Number): Likewise.
237         * libgnat/g-cgideb.adb (NL, Title): Likewise.
238         * libgnat/g-comlin.adb (Internal_Initialize_Option_Scan)
239         (Display_Section_Help): Likewise.
240         * libgnat/g-comlin.ads (Opt_Parser_Data): Likewise.
241         * libgnat/g-debpoo.adb (Set_Dead_Beef, Dump): Likewise.
242         * libgnat/g-expect.adb (Expect, Has_Process, Send): Likewise.
243         * libgnat/g-forstr.adb ("+", Get_Formatted): Likewise.
244         * libgnat/g-memdum.adb (Dump): Likewise.
245         * libgnat/g-rannum.adb (Image): Likewise.
246         * libgnat/g-sechas.adb (Final, HMAC_Initial_Context): Likewise.
247         * libgnat/g-sehamd.ads (Initial_State): Likewise.
248         * libgnat/g-sehash.ads (Initial_State): Likewise.
249         * libgnat/g-sercom.ads (Data_Rate_Value): Likewise.
250         * libgnat/g-sercom__linux.adb (C_Data_Rate, C_Bits, C_Stop_Bits)
251         (C_Parity): Likewise.
252         * libgnat/g-shsh32.ads (K, Transform): Likewise.
253         * libgnat/g-shsh64.ads (K, Transform): Likewise.
254         * libgnat/g-socket.adb (Levels, Modes, Shutmodes, Requests)
255         (Options, Flags, Get_Name_Info, Image): Likewise.
256         * libgnat/g-socket.ads (Inet_Addr_Bytes_Length, Inet_Addr_Type)
257         (IPv4_To_IPv6_Prefix, Any_Inet_Addr, Any_Inet6_Addr)
258         (No_Inet_Addr, Broadcast_Inet_Addr, Loopback_Inet_Addr)
259         (Loopback_Inet6_Addr, Unspecified_Group_Inet_Addr)
260         (All_Hosts_Group_Inet_Addr, All_Routers_Group_Inet_Addr)
261         (Unspecified_Group_Inet6_Addr, All_Hosts_Group_Inet6_Addr)
262         (All_Routers_Group_Inet6_Addr): Likewise.
263         * libgnat/g-socpol.adb (To_C, Status, Get_Events): Likewise.
264         * libgnat/g-socpol.ads (Input_Event, Output_Event, Both_Event)
265         (Error_Event): Likewise.
266         * libgnat/g-sothco.ads (Families, Lengths, Sockaddr): Likewise.
267         * libgnat/g-spipat.adb (OK_For_Simple_Arbno): Likewise.
268         * libgnat/i-cobol.ads (Ada_To_COBOL, COBOL_To_Ada): Likewise.
269         * libgnat/i-pacdec.adb (Packed_Byte): Likewise.
270         * libgnat/i-pacdec.ads (Packed_Size): Likewise.
271         * libgnat/s-bitops.adb (Masks): Likewise.
272         * libgnat/s-crc32.adb (Table): Likewise.
273         * libgnat/s-gearop.adb (Unit_Matrix, Unit_Vector): Likewise.
274         * libgnat/s-genbig.adb (Out_data, Zero_Data, Big_Exp, Big_Mul)
275         (To_Bignum, To_String, Image, Leading_Padding): Likewise.
276         * libgnat/s-htable.adb (Reset): Likewise.
277         * libgnat/s-imgcha.adb (C0, C1): Likewise.
278         * libgnat/s-powflt.ads (Powten): Likewise.
279         * libgnat/s-powlfl.ads (Powten): Likewise.
280         * libgnat/s-powllf.ads (Powten): Likewise.
281         * libgnat/s-rannum.adb (Matrix_A, Random_Float_Template, Image):
282         Likewise.
283         * libgnat/s-rannum.ads (Generator): Likewise.
284         * libgnat/s-regexp.adb (Compile,Create_Primary_Table)
285         (Create_Primary_Table_Glob, Create_Secondary_Table, Compile):
286         Likewise.
287         * libgnat/s-regpat.adb (Bit_Conversion, Set, Dump_Until)
288         (Dump_Current, Dump_Error, Try, Reset_Class): Likewise.
289         * libgnat/s-regpat.ads (Pattern_Matcher, Never_Match): Likewise.
290         * libgnat/s-scaval__128.adb (Initialize): Likewise.
291         * libgnat/s-statxd.adb (Fields, W_F, W_LF)
292         (W_LLF, W_SF): Likewise.
293         * libgnat/s-stausa.adb (Initialize, Initialize_Analyzer)
294         (Output_Results): Likewise.
295         * libgnat/s-strops.adb (Str_Concat_SC): Likewise.
296         * libgnat/s-valrea.adb (Maxexp32, Maxexp64, Maxexp80): Likewise.
297         * libgnat/s-wchcon.ads (WC_Encoding_Letters)
298         (WC_Longest_Sequences): Likewise.
299         * par-ch4.adb (P_Aggregate_Or_Paren_Expr): Set
300         Is_Parenthesis_Aggregate when creating a N_Aggregate using
301         parenthesis.
302         * scng.adb (Scan): Lower version needed for bracket syntax from
303         Extensions to Ada2022.
304         * sem_aggr.adb (Resolve_Aggregate): Raise error for container
305         aggregate using parenthesis instead of bracket.
306         (Resolve_Array_Aggregate): Raise warning for aggregate using
307         parenthesis in Ada2022 with obsolescent warning enabled and not
308         in GNAT mode.
309         * sem_util.ads (Check_Ambiguous_Aggregate): Typo fix in comment.
311 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
313         * libgnarl/a-taside.ads (Activation_Is_Complete): Add pragma
314         Inline.
316 2021-12-02  Eric Botcazou  <ebotcazou@adacore.com>
318         * sem_ch12.adb (Freeze_Package_Instance): Consistently consider
319         the freeze node of the parent and use large inequality for
320         Slocs.
321         (Freeze_Subprogram_Instance): Likewise.
322         (Insert_Freeze_Node_For_Instance): For an instance in a package
323         spec with no source body that immediately follows, consider the
324         body of the package for the placement of the freeze node and go
325         to the outer level if there is no such body.
327 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
329         * exp_ch13.ads (Expand_N_Freeze_Entity): Add note about a SPARK
330         twin.
331         * exp_ch3.ads (Freeze_Type): Likewise.
332         * exp_spark.adb (Expand_SPARK_N_Freeze_Entity): Mimic what is
333         done in Freeze_Entity.
334         (SPARK_Freeze_Type): Mimic what is done in Freeze_Type; add call
335         to Make_Predefined_Primitive_Eq_Spec.
337 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
339         * exp_ch3.adb (Make_Predefined_Primitive_Specs): Move code for
340         spec of dispatching equality.
341         (Predefined_Primitive_Bodies): Move code for body if dispatching
342         equality.
343         (Make_Predefined_Primitive_Eq_Spec): Separated code for spec of
344         dispatching equality.
345         (Predefined_Primitive_Eq_Body): Separated code for body of
346         dispatching equality.
347         * exp_ch3.ads: Update.
349 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
351         * libgnat/s-valuti.ads (Scan_Natural_Ghost): Split body from
352         spec and put it into private part, so that GNATprove can pick it
353         both when analysing the unit and its clients.
355 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
357         * exp_aggr.adb, exp_ch6.adb, par-ch4.adb, sem_ch13.adb: Remove
358         extra space after ":=" symbol.
359         * gen_il-gen.adb: Likewise; add missing headerbox.
361 2021-12-02  Richard Kenner  <kenner@adacore.com>
363         * rtsfind.adb (Maybe_Add_With): Ensure that the added "with" is
364         never marked as ignored ghost code.
366 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
368         * freeze.adb (Freeze_Entity): Replace First_Entity/Next_Entity
369         with First_Component/Next_Component; remove condition with Ekind
370         equal to E_Component.
371         * sem_ch13.adb (Check_Record_Representation_Clause): Likewise
372         for component-or-discriminant.
373         * sem_util.adb (Is_Fully_Initialized_Type): Likewise; rename Ent
374         to a more specific Comp.
375         * sem_warn.adb (Check_References): Likewise.
377 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
379         * sem_warn.adb (Warn_On_Unassigned_Out_Parameter): Move inner
380         loop at the beginning of subprogram, so it is executed only
381         once; fix order in the "add an ad hoc" phrase.
383 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
385         * sem_warn.adb (Check_References): Remove redundant condition.
387 2021-12-02  Doug Rupp  <rupp@adacore.com>
389         * vxworks7-cert-rtp-link__ppcXX.spec: New file.
390         * Makefile.rtl: Use it.
392 2021-12-02  Yannick Moy  <moy@adacore.com>
394         * libgnat/i-c.adb: Add ghost code.
395         (C_Length_Ghost): New ghost functions to query the C length of a
396         string.
397         (To_Ada): Insert constant Count_Cst where needed to comply with
398         SPARK.  Homogeneize code between variants for char, wchar_t,
399         char16_t and char32_t. Use char16_nul and char32_nul
400         systematically instead of their value. Fix the type of index To
401         to be Integer instead of Positive, to avoid a possible range
402         check failure on an empty Target. Insert an exit statement to
403         avoid a possible overflow failure when the last index in Target
404         is Natural'Last (possibly on a small string as well).
405         * libgnat/i-c.ads: Add contracts.
406         (C_Length_Ghost): New ghost functions to query the C length of a
407         string.
408         * libgnat/s-os_lib.adb: Remove pragma Compiler_Unit_Warning
409         causing a spurious error during compilation of GNAT, as this
410         pragma is not needed anymore now that we bootstrap (stage1) with
411         the base compiler runtime.
413 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
415         * libgnarl/a-taside.ads (Activation_Is_Complete): Add
416         precondition.
418 2021-12-02  Piotr Trojanek  <trojanek@adacore.com>
420         * sem_ch3.adb (Check_Derived_Type): Rename local variables; fix
421         style in comment.
423 2021-12-02  Yannick Moy  <moy@adacore.com>
425         * libgnat/s-valboo.adb (First_Non_Space_Ghost): Move to
426         utilities.
427         (Value_Boolean): Prefix call to First_Non_Space_Ghost.
428         * libgnat/s-valboo.ads (First_Non_Space_Ghost): Move to
429         utilities.
430         (Is_Boolean_Image_Ghost, Value_Boolean): Prefix call to
431         First_Non_Space_Ghost.
432         * libgnat/s-valuer.adb (Scan_Raw_Real): Adapt to change of
433         function Scan_Exponent to procedure.
434         * libgnat/s-valueu.adb (Scan_Raw_Unsigned): Adapt to change of
435         function Scan_Exponent to procedure.
436         * libgnat/s-valuti.adb (First_Non_Space_Ghost): Function moved
437         here.
438         (Last_Number_Ghost): New ghost query function.
439         (Scan_Exponent): Change function with side-effects into
440         procedure, to mark in SPARK. Prove procedure wrt contract.
441         Change type of local P to avoid possible range check failure (it
442         is not known whether this can be activated by callers).
443         (Scan_Plus_Sign, Scan_Sign): Change type of local P to avoid
444         possible range check failure. Add loop invariants and assertions
445         for proof.
446         (Scan_Trailing_Blanks): Add loop invariant.
447         (Scan_Underscore): Remove SPARK_Mode Off.
448         * libgnat/s-valuti.ads (First_Non_Space_Ghost): Function moved
449         here.
450         (Last_Number_Ghost, Only_Number_Ghost, Is_Natural_Format_Ghost,
451         Scan_Natural_Ghost): New ghost query functions.
452         (Scan_Plus_Sign, Scan_Sign, Scan_Exponent, Scan_Trailing_Blanks,
453         Scan_Underscore): Add functional contracts.
455 2021-12-02  Yannick Moy  <moy@adacore.com>
457         * libgnat/s-imgboo.adb: Mark in SPARK.
458         * libgnat/s-imgboo.ads: Mark in SPARK. Change from Pure to
459         Preelaborate unit in order to be able to depend on
460         System.Val_Bool.
461         (Image_Boolean): Functionally specify the result of the
462         procedure by calling System.Val_Bool.Value_Boolean on the
463         result.
464         * libgnat/s-valboo.adb: Mark in SPARK.
465         (First_Non_Space_Ghost): New ghost function.
466         (Value_Boolean): Change type of L and F to avoid possible range
467         check failure on empty Str.
468         * libgnat/s-valboo.ads: Mark in SPARK. Duplicate with-clause
469         from body in the spec to be able to call
470         System.Val_Util.Only_Space_Ghost in the contract.
471         (First_Non_Space_Ghost): New ghost function computing the first
472         non-space character in a string.
473         (Is_Boolean_Image_Ghost): New ghost function computing whether a
474         string is the image of a boolean value.
475         (Value_Boolean): Add in precondition the conditions to avoid
476         raising Constraint_Error. This precondition is never executed,
477         and only used in proof, thanks to the use of pragma
478         Assertion_Policy. Given that precondition, the postcondition can
479         simply check the first non-space character to decide whether
480         True or False is read.
481         * libgnat/s-valuti.adb: Mark in SPARK, but use SPARK_Mode Off on
482         all subprograms not yet proved.
483         (Bad_Value): Annotate expected exception.
484         (Normalize_String): Rewrite to avoid possible overflow when
485         incrementing F in the first loop. Add loop invariants.
486         * libgnat/s-valuti.ads: Mark in SPARK.
487         (Bad_Value): Add Depends contract to avoid warning on unused S.
488         (Only_Space_Ghost): New ghost function to query if string has
489         only space in the specified range.
490         (Normalize_String): Add functional contract.
491         (Scan_Exponent): Mark spec as not in SPARK as this function has
492         side-effects.
494 2021-12-02  Pascal Obry  <obry@adacore.com>
496         * libgnat/g-socket.ads (Max_Name_Length): Initialize with
497         NI_MAXHOST.
499 2021-12-02  Pascal Obry  <obry@adacore.com>
501         * libgnat/g-socket.ads: Minor style fix.
503 2021-12-01  Eric Botcazou  <ebotcazou@adacore.com>
505         * einfo.ads (E_Decimal_Fixed_Point_Subtype): Fix pasto.
506         * freeze.adb (Freeze_Fixed_Point_Type): Retrieve the underlying type
507         of the first subtype and do not use a stale value of Small_Value.
508         * sem_res.adb (Resolve_Real_Literal): In the case of a fixed-point
509         type, make sure that the base type is frozen and use its Small_Value
510         to compute the corresponding integer value of the literal.
512 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
514         * libgnat/a-cbdlli.ads (List): Remove extra space in Aggregate
515         aspect.
517 2021-12-01  Gary Dismukes  <dismukes@adacore.com>
519         * doc/gnat_rm/implementation_defined_pragmas.rst: Add
520         documentation of the new form of formal subprogram default in
521         the section on language extensions (pragma Extensions_Allowed).
522         * gnat_rm.texi: Regenerate.
523         * gen_il-gen-gen_nodes.adb: Add Expression as a syntactic field
524         of N_Formal_(Abstract|Concrete)_Subprogram_Declaration nodes.
525         * par-ch12.adb (P_Formal_Subprogram_Declaration): Add parsing
526         support for the new default of a parenthesized expression for
527         formal functions. Issue an error when extensions are not
528         allowed, suggesting use of -gnatX. Update comment with extended
529         syntax for SUBPROGRAM_DEFAULT.
530         * sem_ch12.adb (Analyze_Formal_Subprogram_Declaration): Issue an
531         error when an expression default is given for an abstract formal
532         function. When a default expression is present for a formal
533         function, install the function's formals and preanalyze the
534         expression.
535         (Instantiate_Formal_Subprogram): Fix typo in RM paragraph in a
536         comment.  When a formal function has a default expression,
537         create a body for the function that will evaluate the expression
538         and will be called when the default applies in an instantiation.
539         The implicit function is marked as inlined and as having
540         convention Intrinsic.
542 2021-12-01  Eric Botcazou  <ebotcazou@adacore.com>
544         * sem_elab.adb (Previous_Suitable_Construct): New function declared
545         in the Early_Call_Region_Processor package.
546         (Find_ECR): Call it to get the previous node at the start.
547         (Include): Call it to get the previous node during the traversal.
549 2021-12-01  Bob Duff  <duff@adacore.com>
551         * sem_prag.adb (Process_Compile_Time_Warning_Or_Error): Do not
552         follow the Corresponding_Spec pointer if Acts_As_Spec is True,
553         because Corresponding_Spec is Empty in that case, so we would
554         exit the loop prematurely, and incorrectly think we are not
555         inside a generic unit when we are.
557 2021-12-01  Bob Duff  <duff@adacore.com>
559         * par-ch3.adb (P_Access_Type_Definition): If Not_Null_Subtype is
560         True, give an error in the access-to-subprogram cases.
562 2021-12-01  Eric Botcazou  <ebotcazou@adacore.com>
564         * sem_ch12.adb (Freeze_Package_Instance): Move up.
566 2021-12-01  Eric Botcazou  <ebotcazou@adacore.com>
568         * sem_ch12.adb (Freeze_Subprogram_Body): Rename into...
569         (Freeze_Subprogram_Instance): ...this and change the name of the
570         first parameter and local variables for the sake of consistency.
571         (Insert_Freeze_Node_For_Instance): Use local variable Par_Inst.
572         (Install_Body): Rename into...
573         (Freeze_Package_Instance): ...this, remove first parameter and
574         change the name of local variables for the sake of consistency.
575         Do not deal with the special case of incomplete actual types here
576         and do not insert the body.
577         (Instantiate_Package_Body): Deal with the special case of incomplete
578         actual types here and insert the body.  Call Freeze_Package_Instance
579         only if expansion is done.
580         (Instantiate_Subprogram_Body): Minor consistency tweak.
582 2021-12-01  Etienne Servais  <servais@adacore.com>
584         * sem_aggr.adb (Resolve_Aggregate): Fix typo in comment.
586 2021-12-01  Steve Baird  <baird@adacore.com>
588         * sem_case.adb (Check_Bindings): Provide a second strategy for
589         implementing bindings and choose which strategy to use for a
590         given binding. The previous approach was to introduce a new
591         object and assign the bound value to the object.  The new
592         approach is to introduce a renaming of a dereference of an
593         access value that references the appropriate subcomponent, so no
594         copies are made.  The original strategy is still used if the
595         type of the object is elementary.  When the renaming approach is
596         used, the initialization of the access value is not generated
597         until expansion. Until this missing initialization is added, the
598         tree looks like a known-at-compile-time dereference of a null
599         access value: Temp : Some_Access_Type; Obj : Designated_Type
600         renames Temp.all; This leads to problems, so a bogus initial
601         value is provided here and then later deleted during expansion.
602         (Check_Composite_Case_Selector): Disallow a case selector
603         expression that requires finalization. Note that it is ok if the
604         selector's type requires finalization, as long as the expression
605         itself doesn't have any "newly constructed" parts.
606         * exp_ch5.adb (Pattern_Match): Detect the case where analysis of
607         a general (i.e., composite selector type) case statement chose
608         to implement a binding as a renaming rather than by making a
609         copy. In that case, generate the assignments to initialize the
610         access-valued object whose designated value is later renamed
611         (and remove the bogus initial value for that object that was
612         added during analysis).
613         * sem_util.ads, sem_util.adb: Add new function
614         Is_Newly_Constructed corresponding to RM 4.4 term.
616 2021-12-01  Richard Kenner  <kenner@adacore.com>
618         * frontend.adb (Frontend): Do unnesting after ignored ghost code
619         has been removed.
620         * inline.adb (Analyze_Inlined_Bodies): Don't put ignored ghost
621         entities on inlined subprogram list.
623 2021-12-01  Ghjuvan Lacambre  <lacambre@adacore.com>
625         * libgnarl/s-tasren.adb (Timed_Task_Entry_Call): Replace
626         Defer_Abort and Undefer_Abort with Defer_Abort_Nestable and
627         Undefer_Abort_Nestable.
629 2021-12-01  Ghjuvan Lacambre  <lacambre@adacore.com>
631         * exp_ch7.adb (Cleanup_Record): Don't process parent.
633 2021-12-01  Justin Squirek  <squirek@adacore.com>
635         * sem_attr.adb (Type_Key): Avoid premature use warnings when the
636         prefix is a generic actual.
638 2021-12-01  Richard Kenner  <kenner@adacore.com>
640         * gnat1drv.adb (Gnat1drv): Force generation of object file if
641         compilation unit is an ignored ghost.
643 2021-12-01  Patrick Bernardi  <bernardi@adacore.com>
645         * tracebak.c: Add AArch64 RTEMS support.
647 2021-12-01  Patrick Bernardi  <bernardi@adacore.com>
649         * init.c: Add __gnat_error_handler and __gnat_install_handler
650         for RTEMS.
652 2021-12-01  Eric Botcazou  <ebotcazou@adacore.com>
654         * sprint.ads (Source_Dump): Fix typo in comment.
655         * sprint.adb (Source_Dump): Set Dump_Freeze_Null for both -gnatG
656         and -gnatD.
657         * switch-c.adb (Scan_Front_End_Switches) <'D'>: Remove obsolete
658         kludge.
660 2021-12-01  Yannick Moy  <moy@adacore.com>
662         * einfo.ads (Direct_Primitive_Operations): Update the doc to
663         indicate that this field is used for all types now.
664         * sem_ch4.adb (Try_Object_Operation): Add parameter
665         Allow_Extensions set to True to pretend that extensions are
666         allowed.
667         * sem_ch4.ads: Same.
668         * sem_ch6.adb: Do not require Extensions_Allowed.
669         * sem_ch8.adb (Find_Selected_Component): Remove duplicate
670         "where" in comment.  Improve the error messages regarding use of
671         prefixed calls.
673 2021-12-01  Yannick Moy  <moy@adacore.com>
675         * sem_util.adb (Is_Extended_Precision_Floating_Point_Type): New
676         function.
677         * sem_util.ads (Is_Extended_Precision_Floating_Point_Type): New
678         function.
680 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
682         * exp_aggr.adb, sem_cat.adb, sem_ch10.adb, sem_ch12.adb,
683         sem_elim.adb, sem_util.adb: Replace uses of Subprogram_Kind with
684         Is_Subprogram.
686 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
688         * libgnat/a-coinho.ads: Sync whitespace with
689         a-coinho__shared.ads.
690         * libgnat/a-coinho__shared.ads: Sync whitespace with
691         a-coinho.ads.
693 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
695         * Makefile.rtl (GNATRTL_TASKING_OBJS): Sort.
696         (GNATRTL_NONTASKING_OBJS): Sort.
698 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
700         * Makefile.rtl: Remove extra whitespace in special compilation
701         rules.
703 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
705         * doc/gnat_rm/the_gnat_library.rst (System.Atomic_Counters):
706         Sync description with comment in s-atocou.ads.
707         * gnat-style.texi, gnat_rm.texi, gnat_ugn.texi: Regenerate.
709 2021-12-01  Yannick Moy  <moy@adacore.com>
711         * sem_ch10.adb (Is_Private_Library_Unit): Move query to
712         Sem_Util for sharing.
713         * sem_ch7.adb (Analyze_Package_Body_Helper): Add continuation
714         message.
715         * sem_prag.adb (Analyze_Part_Of): Call new function
716         Is_Private_Library_Unit.
717         (Check_Valid_Library_Unit_Pragma): Specialize error messages on
718         misplaced pragmas.
719         (Analyze_Refined_State_In_Decl_Part): Recognize missing Part_Of
720         on object in private part.
721         * sem_util.adb (Check_State_Refinements): Add continuation
722         message.
723         (Find_Placement_In_State_Space): Fix detection of placement,
724         which relied wrongly on queries In_Package_Body/In_Private_Part
725         which do not provide the right information here for all cases.
726         (Is_Private_Library_Unit): Move query here for sharing.
727         * sem_util.ads (Is_Private_Library_Unit): Move query here for
728         sharing.
730 2021-12-01  Gary Dismukes  <dismukes@adacore.com>
732         * sem_ch3.adb (Analyze_Full_Type_Declaration): If the full type
733         has a primitives list but its base type doesn't, set the base
734         type's list to the full type's list (covers certain constrained
735         cases, such as for arrays).
736         (Analyze_Incomplete_Type_Decl): Unconditionally initialize an
737         incomplete type's primitives list.
738         (Analyze_Subtype_Declaration): Unconditionally set a subtype's
739         primitives list to the base type's list, so the lists are
740         shared.
741         (Build_Derived_Private_Type): Unconditionally initialize a
742         derived private type's list to a new empty list.
743         (Build_Derived_Record_Type): Unconditionally initialize a
744         derived record type's list to a new empty list (now a single
745         call for tagged and untagged cases).
746         (Derived_Type_Declaration): Unconditionally initialize a derived
747         type's list to a new empty list in error cases (when Parent_Type
748         is undefined or illegal).
749         (Process_Full_View): Unconditionally copy the primitive
750         operations from the private view to the full view (rather than
751         conditioning it on whether extensions are enabled).
752         * sem_ch7.adb (New_Private_Type): Unconditionally initialize an
753         untagged private type's primitives list to a new empty list.
755 2021-12-01  Etienne Servais  <servais@adacore.com>
757         * libgnat/a-cbhase.adb, libgnat/a-cborse.adb,
758         libgnat/a-cihase.adb, libgnat/a-ciorse.adb,
759         libgnat/a-cohase.adb, libgnat/a-coorse.adb
760         (Constant_Reference,Reference_Preserving_Key): Refactor using
761         the equivalence stated in the RM.
763 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
765         * exp_ch3.adb (Make_Eq_Body): Refactor to avoid appending to an
766         empty list; also, when exiting early we will not create any
767         list; fix style in comment.
769 2021-12-01  Piotr Trojanek  <trojanek@adacore.com>
771         * repinfo.adb (List_Entities): Simplify detection of entries;
772         refactor potentially redundant comparison.
774 2021-11-29  Eric Gallager  <egallager@gcc.gnu.org>
776         PR other/103021
777         * gcc-interface/Make-lang.in: Use ETAGS variable in
778         TAGS target.
780 2021-11-15  Iain Sandoe  <iain@sandoe.co.uk>
782         * gcc-interface/Makefile.in: Use DSYMUTIL_FOR_TARGET in
783         libgnat/libgnarl recipies.
785 2021-11-10  Eric Botcazou  <ebotcazou@adacore.com>
787         * gcc-interface/ada-tree.h (DECL_STUBBED_P): Delete.
788         * gcc-interface/decl.c (gnat_to_gnu_entity): Do not set it.
789         * gcc-interface/trans.c (Call_to_gnu): Use GNAT_NAME local variable
790         and adjust accordingly.  Replace test on DECL_STUBBED_P with direct
791         test on Convention and move it down in the processing.
793 2021-11-10  Bob Duff  <duff@adacore.com>
795         * scng.adb (Check_Bidi): New procedure to give warning. Note
796         that this is called only for non-ASCII characters, so should not
797         be an efficiency issue.
798         (Slit): Call Check_Bidi for wide characters in string_literals.
799         (Minus_Case): Call Check_Bidi for wide characters in comments.
800         (Char_Literal_Case): Call Check_Bidi for wide characters in
801         character_literals.  Move Accumulate_Checksum down, because
802         otherwise, if Err is True, the Code is uninitialized.
803         * errout.ads: Make the obsolete nature of "Insertion character
804         ?" more prominent; one should not have to read several
805         paragraphs before finding out that it's obsolete.
807 2021-11-10  Bob Duff  <duff@adacore.com>
809         * repinfo.adb (List_Component_Layout): Initialize Sbit.
811 2021-11-10  Piotr Trojanek  <trojanek@adacore.com>
813         * exp_ch4.adb (Expand_Array_Equality): Fix inconsistent casing
814         in comment about the template for expansion of array equality;
815         now we use lower case for true/false/boolean.
816         (Handle_One_Dimension): Fix comment about the template for
817         expansion of array equality.
819 2021-11-10  Bob Duff  <duff@adacore.com>
821         * repinfo.adb (List_Common_Type_Info, List_Object_Info): Add
822         check for In_Generic_Scope.
823         (List_Component_Layout): Check for known static values.
824         * sem_ch13.adb (Check_Record_Representation_Clause): Add check
825         for In_Generic_Scope.
827 2021-11-10  Etienne Servais  <servais@adacore.com>
829         * aspects.adb, aspects.ads (Is_Aspect_Id): New function.
830         * namet-sp.ads, namet-sp.adb (Aspect_Spell_Check,
831         Attribute_Spell_Check): New Functions.
832         * par-ch13.adb (Possible_Misspelled_Aspect): Removed.
833         (With_Present): Use Aspect_Spell_Check, use Is_Aspect_Id.
834         (Get_Aspect_Specifications): Use Aspect_Spell_Check,
835         Is_Aspect_Id, Bad_Aspect.
836         * par-sync.adb (Resync_Past_Malformed_Aspect): Use Is_Aspect_Id.
837         * sem_ch13.adb (Check_One_Attr): Use Is_Aspect_Id.
838         * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
839         Introduce the Process_No_Specification_Of_Aspect, emit a warning
840         instead of an error on unknown aspect, hint for typos.
841         Introduce Process_No_Use_Of_Attribute to add spell check for
842         attributes too.
843         (Set_Error_Msg_To_Profile_Name): Use Is_Aspect_Id.
844         * sem_util.adb (Bad_Attribute): Use Attribute_Spell_Check.
845         (Bad_Aspect): New function.
846         * sem_util.ads (Bad_Aspect): New function.
848 2021-11-10  Patrick Bernardi  <bernardi@adacore.com>
850         * libgnarl/s-taskin.adb (Initialize_ATCB): Initialize
851         T.Common.Current_Priority to Priority'First.
852         * libgnarl/s-taskin.ads (Unspecified_Priority): Redefined as -1.
853         * libgnat/system-rtems.ads: Start priority range from 1, as 0 is
854         reserved by the operating system.
856 2021-11-10  Pierre-Alexandre Bazin  <bazin@adacore.com>
858         * libgnat/a-nbnbig.ads: Mark the unit as Pure.
859         * libgnat/s-aridou.adb: Add contracts and ghost code for proof.
860         (Scaled_Divide): Reorder operations and use of temporaries in
861         two places to facilitate proof.
862         * libgnat/s-aridou.ads: Add full functional contracts.
863         * libgnat/s-arit64.adb: Mark in SPARK.
864         * libgnat/s-arit64.ads: Add contracts similar to those from
865         s-aridou.ads.
866         * rtsfind.ads: Document the limitation that runtime units
867         loading does not work for private with-clauses.
869 2021-11-10  Piotr Trojanek  <trojanek@adacore.com>
871         * exp_ch3.adb (Make_Eq_Body): Adapt call to
872         Expand_Record_Equality.
873         * exp_ch4.ads, exp_ch4.adb (Expand_Composite_Equality): Remove
874         Bodies parameter; adapt comment; fix style in body; adapt calls
875         to Expand_Record_Equality.
876         (Expand_Array_Equality): Adapt calls to
877         Expand_Composite_Equality.
878         (Expand_Record_Equality): Remove Bodies parameter; adapt
879         comment; adapt call to Expand_Composite_Equality.
880         * exp_ch8.adb (Build_Body_For_Renaming): Adapt call to
881         Expand_Record_Equality.
883 2021-11-10  Piotr Trojanek  <trojanek@adacore.com>
885         * exp_ch4.adb (Expand_Composite_Equality): Handle arrays inside
886         records just like scalars; only records inside records need
887         dedicated handling.
889 2021-11-10  Eric Botcazou  <ebotcazou@adacore.com>
891         * sem_type.ads (Has_Compatible_Type): Add For_Comparison parameter.
892         * sem_type.adb (Has_Compatible_Type): Put back the reversed calls
893         to Covers guarded with For_Comparison.
894         * sem_ch4.adb (Analyze_Membership_Op) <Try_One_Interp>: Remove new
895         reversed call to Covers and set For_Comparison to true instead.
896         (Find_Comparison_Types) <Try_One_Interp>: Likewise
897         (Find_Equality_Types) <Try_One_Interp>: Likewise.
899 2021-11-10  Yannick Moy  <moy@adacore.com>
901         * Makefile.rtl: Add unit.
902         * libgnat/a-nbnbin__ghost.adb: Move...
903         * libgnat/a-nbnbig.adb: ... here. Mark ghost as ignored.
904         * libgnat/a-nbnbin__ghost.ads: Move...
905         * libgnat/a-nbnbig.ads: ... here.  Add comment for purpose of
906         this unit. Mark ghost as ignored.
907         * libgnat/s-widthu.adb: Use new unit.
908         * sem_aux.adb (First_Subtype): Adapt to the case of a ghost type
909         whose freeze node is rewritten to a null statement.
911 2021-11-10  Etienne Servais  <servais@adacore.com>
913         * libgnat/s-regexp.adb (Check_Well_Formed_Pattern): Fix
914         Constraint_Error on missing close bracket.
916 2021-11-10  Piotr Trojanek  <trojanek@adacore.com>
918         * exp_ch4.adb (Expand_Array_Equality): Remove check of the array
919         bound being an N_Range node; use Type_High_Bound/Type_Low_Bound,
920         which handle all kinds of array bounds.
922 2021-11-10  Etienne Servais  <servais@adacore.com>
924         * sem_ch3.adb (Derived_Type_Declaration): Introduce a subprogram
925         for tree transformation. If a tree transformation is performed,
926         then warn that it would be better to reorder the interfaces.
928 2021-11-10  Eric Botcazou  <ebotcazou@adacore.com>
930         * sem_ch4.adb (Find_Non_Universal_Interpretations): Add guard.
932 2021-11-10  Yannick Moy  <moy@adacore.com>
934         * par-ch4.adb (P_Primary): Adapt test for getting error message
935         on missing parentheses.
937 2021-11-09  Ghjuvan Lacambre  <lacambre@adacore.com>
939         * freeze.adb (Check_Inherited_Conditions): Initialize
940         Ifaces_List.
942 2021-11-09  Eric Botcazou  <ebotcazou@adacore.com>
944         * sem_ch4.adb (Analyze_Membership_Op) <Find_Interpretation>: Handle
945         both overloaded and non-overloaded cases.
946         <Try_One_Interp>: Do a reversed call to Covers if the outcome of the
947         call to Has_Compatible_Type is false.
948         Simplify implementation after change to Find_Interpretation.
949         (Analyze_User_Defined_Binary_Op): Be prepared for previous errors.
950         (Find_Comparison_Types) <Try_One_Interp>: Do a reversed call to
951         Covers if the outcome of the call to Has_Compatible_Type is false.
952         (Find_Equality_Types) <Try_One_Interp>: Likewise.
953         * sem_type.adb (Has_Compatible_Type): Remove the reversed calls to
954         Covers.  Add explicit return on all paths.
956 2021-11-09  Justin Squirek  <squirek@adacore.com>
958         * gnatls.adb (Initialize_Default_Project_Path): Remove early
959         abort on invalid path.
961 2021-11-09  Eric Botcazou  <ebotcazou@adacore.com>
963         * sprint.adb (Sprint_Node_Actual) <N_Allocator>: Also print the
964         Procedure_To_Call field if it is present.
965         <N_Extended_Return_Statement>: Also print the Storage_Pool and
966         Procedure_To_Call fields if they are present.
967         <N_Free_Statement>: Likewise.
968         <N_Simple_Return_Statement>: Likewise.
970 2021-11-09  Patrick Bernardi  <bernardi@adacore.com>
972         * libgnarl/s-tasini.adb (Check_Abort_Status): Don't return 1 if
973         the task is aborting.
974         * libgnarl/s-tasini.ads (Check_Abort_Status): Update comment.
976 2021-11-09  Patrick Bernardi  <bernardi@adacore.com>
978         * Makefile.rtl: Add ATOMICS_TARGET_PAIRS and
979         ATOMICS_BUILTINS_TARGET_PAIRS to LIBGNAT_TARGET_PAIRS for
980         aarch64-rtems.
982 2021-11-09  Justin Squirek  <squirek@adacore.com>
984         * exp_util.adb (Ancestor_Primitive): Prevent return of an
985         subprogram alias when the ancestor primitive of the alias is the
986         same as Subp.
988 2021-11-09  Justin Squirek  <squirek@adacore.com>
990         * exp_ch4.adb (Tagged_Membership): Use corresponding record type
991         when expanding a tagged membership test on protected types.
993 2021-11-09  Alexandre Oliva  <oliva@adacore.com>
995         * strub.adb, strub.ads: New files.
996         * exp_attr.adb (Access_Cases): Copy strub mode to subprogram type.
997         * exp_disp.adb (Expand_Dispatching_Call): Likewise.
998         * freeze.adb (Check_Inherited_Conditions): Check that strub modes
999         match overridden subprograms and interfaces.
1000         (Freeze_All): Renaming declarations too.
1001         * sem_attr.adb (Resolve_Attribute): Reject 'Access to
1002         strub-annotated data object.
1003         * sem_ch3.adb (Derive_Subprogram): Copy strub mode to
1004         inherited subprogram.
1005         * sem_prag.adb (Analyze_Pragma): Propagate Strub Machine_Attribute
1006         from access-to-subprogram to subprogram type when required,
1007         but not from access-to-data to data type.  Mark the entity that
1008         got the pragma as having a gigi rep item.
1009         * sem_res.adb (Resolve): Reject implicit conversions that
1010         would change strub modes.
1011         (Resolve_Type_Conversions): Reject checked conversions
1012         between incompatible strub modes.
1013         * doc/gnat_rm/security_hardening_features.rst: Update.
1014         * gnat_rm.texi: Regenerate.
1015         * libgnat/a-except.ads (Raise_Exception): Revert strub-callable
1016         annotation in public subprogram.
1017         * libgnat/s-arit128.ads (Multiply_With_Ovflo_Check128): Likewise.
1018         * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64): Likewise.
1019         * libgnat/s-secsta.ads (SS_Allocate): Likewise.
1020         (SS_Mark, SS_Release): Likewise.
1021         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add ada/strub.o.
1023 2021-11-09  Etienne Servais  <servais@adacore.com>
1025         * sinput.ads: Initialize Current_Source_Unit to No_Unit.
1027 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1029         * Makefile.rtl (ARM and Aarch64 VxWorks): Use atomic variants of
1030         runtime units.
1031         * libgnat/a-strunb__shared.ads: Mention AARCH64 and ARM as
1032         supported.
1033         * libgnat/s-atocou.ads: Likewise.
1035 2021-11-09  Ghjuvan Lacambre  <lacambre@adacore.com>
1037         * sem_util.adb (Accessibility_Level): Use init_proc_level_formal
1038         instead of computing a new accessibility level from Scope_Depth
1039         (E).
1041 2021-11-09  Johannes Kliemann  <kliemann@adacore.com>
1043         * vxworks7-cert-rtp-link.spec: Replace the definition of
1044         __wrs_rtp_base with the base_link spec.
1045         * vxworks7-cert-rtp-base-link.spec: Add base_link spec with
1046         __wrs_rtp_base definition for all architectures.
1047         * vxworks7-cert-rtp-base-link__ppc64.spec: Add base_link spec
1048         with __wrs_rtp_base definition for ppc64.
1049         * vxworks7-cert-rtp-base-link__x86.spec: Add base_link spec with
1050         __wrs_rtp_base definition for x86.
1051         * vxworks7-cert-rtp-base-link__x86_64.spec: Add base_link spec
1052         with __wrs_rtp_base definition for x86_64.
1054 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1056         * sem_util.adb (Copy_Parameter_List): Refactor to remove
1057         repeated calls to First_Formal.
1059 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1061         * exp_ch8.adb (Build_Body_For_Renaming): Remove unnecessary
1062         calls to Sloc; set Handled_Statement_Sequence when building
1063         subprogram body; whitespace cleanup.
1065 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1067         * exp_ch4.adb (Handle_One_Dimension): Parameter N must be always
1068         positive, because it is translated into expression of 'First and
1069         'Last.
1071 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1073         * tbuild.adb (New_Occurrence_Of): Simplify by reusing
1074         Make_Identifier.
1076 2021-11-09  Etienne Servais  <servais@adacore.com>
1078         * scng.adb (Set_Start_Column): Return Column_Number'Last when
1079         handling Constraint_Error. Plus reformat a strangely 7 level if
1080         loop.
1082 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1084         * exp_ch4.adb (Test_Empty_Arrays): Simplify with Evolve_Or_Else;
1085         remove unnecessary call to Relocate_Node.
1086         (Test_Lengths_Correspond): Likewise.
1088 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1090         * libgnat/a-strunb.adb (Deallocate): Rename Reference_Copy to
1091         Old, to make the code similar to other routines in this package.
1092         (Realloc_For_Chunk): Use a temporary, deallocate the previous
1093         string using a null-allowing copy of the string reference.
1095 2021-11-09  Ghjuvan Lacambre  <lacambre@adacore.com>
1097         * sem_util.adb (Accessibility_Level): Fix typos.
1099 2021-11-09  Tom Tromey  <tromey@adacore.com>
1101         * doc/gnat_ugn/platform_specific_information.rst: Document the
1102         SuSE kernel bug.
1103         * gnat_ugn.texi: Regenerate.
1105 2021-11-09  Gary Dismukes  <dismukes@adacore.com>
1107         * sem_ch13.adb (Freeze_Entity_Checks): Analyze the expression of
1108         a pragma Predicate associated with an aspect at the freeze point
1109         of the type, to ensure that references to globals get saved when
1110         the aspect occurs within a generic body. Also, add
1111         Aspect_Static_Predicate to the choices of the membership test of
1112         the enclosing guard.
1114 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1116         * exp_ch4.adb (Arr_Attr): Refine type of the parameter from Int
1117         to Pos; refine name of the parameter from Num to Dim; fix
1118         reference to "Expr" in comment.
1120 2021-11-09  Steve Baird  <baird@adacore.com>
1122         * libgnat/s-regexp.adb (Compile.Check_Well_Formed_Patern): When
1123         a "|" operator is encountered in a pattern, check that it is not
1124         the last character of the pattern.
1126 2021-11-09  Yannick Moy  <moy@adacore.com>
1128         * sem_ch3.adb (Analyze_Subtype_Declaration,
1129         Derived_Type_Declaration): Initialize list of primitive
1130         operations when Extensions_Allowed.
1132 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1134         * checks.adb (Apply_Constraint_Check): Guard against calling
1135         Choices when the first association in an array aggregate is a
1136         N_Iterated_Component_Association node.
1138 2021-11-09  Yannick Moy  <moy@adacore.com>
1140         * sem_ch3.adb (Analyze_Incomplete_Type_Decl): Add the missing
1141         initialization.
1143 2021-11-09  Piotr Trojanek  <trojanek@adacore.com>
1145         * sem_prag.adb (Check_Usage): Guard against calling Usage_Error
1146         with illegal Item_Id. The intention to do this was already
1147         described in the comment but not implemented.
1149 2021-11-09  Etienne Servais  <servais@adacore.com>
1151         * exp_ch6.adb (Expand_Actuals): Add a condition to check for the
1152         possibility of task.
1154 2021-11-05  Iain Sandoe  <iain@sandoe.co.uk>
1156         * gcc-interface/Make-lang.in: Use iOS signal trampoline code
1157         for hosted Ada tools.
1158         * sigtramp-ios.c: Wrap the declarations in extern "C" when
1159         the code is built by a C++ compiler.
1161 2021-10-30  Alexandre Oliva  <oliva@adacore.com>
1163         * doc/gnat_rm/security_hardening_features.rst: Mention
1164         optimization to operations with implied compares.
1166 2021-10-28  Alexandre Oliva  <oliva@adacore.com>
1168         * doc/gnat_rm/security_hardening_features.rst
1169         (Hardened Conditionals): New.
1171 2021-10-25  Arnaud Charlet  <charlet@adacore.com>
1173         * gcc-interface/Make-lang.in, gcc-interface/Makefile.in: Remove
1174         gnatfind and gnatxref.
1176 2021-10-25  Ed Schonberg  <schonberg@adacore.com>
1178         * sem_ch4.adb (Has_Possible_Literal_Aspects): If analysis of an
1179         operator node fails to find  a possible interpretation, and one
1180         of its operands is a literal or a named number, assign to the
1181         node the corresponding class type (Any_Integer, Any_String,
1182         etc).
1183         (Operator_Check): Call it before emitting a type error.
1184         * sem_res.adb (Has_Applicable_User_Defined_Literal): Given a
1185         literal and a type, determine whether the type has a
1186         user_defined aspect that can apply to the literal, and rewrite
1187         the node as call to the corresponding function. Most of the code
1188         was previously in procedure Resolve.
1189         (Try_User_Defined_Literal): Check operands of a predefined
1190         operator that fails to resolve, and apply
1191         Has_Applicable_User_Defined_Literal to literal operands if any,
1192         to find if a conversion will allow the operator to resolve
1193         properly.
1194         (Resolve): Call the above when a literal or an operator with a
1195         literal operand fails to resolve.
1197 2021-10-25  Bob Duff  <duff@adacore.com>
1199         * freeze.adb (Freeze_Fixed_Point_Type): Remove
1200         previously-inserted test for Uint_0; no longer needed.
1201         * gen_il-gen.ads: Improve comments.
1202         * repinfo.adb (Rep_Value): Use Ubool type for B.
1203         * repinfo.ads (Node_Ref): Use Unegative type.
1204         (Node_Ref_Or_Val): Document that values of this type can be
1205         No_Uint.
1206         * exp_disp.adb (Make_Disp_Requeue_Body): Minor comment fix.
1207         * sem_ch3.adb: Likewise.
1208         * sem_ch8.adb: Likewise.
1209         * sinfo-utils.adb (End_Location): End_Span can never be No_Uint,
1210         so remove the "if No (L)" test.
1211         * uintp.adb (Image_String): Use "for ... of" loop.
1212         * uintp.ads (Unegative): New type for negative integers.  We
1213         give it a long name (unlike Unat and Upos) because it is rarely
1214         used.
1216 2021-10-25  Etienne Servais  <servais@adacore.com>
1218         * errout.adb (Skip_Msg_Insertion_Warning): Adapt and format as
1219         Erroutc.Prescan_Message.Parse_Message_Class.
1220         (Warn_Insertion): Adapt to new format.
1221         * errout.ads: Update documentation.
1222         * erroutc.adb (Get_Warning_Tag): Adapt to new format.
1223         (Prescan_Message): Introduce Parse_Message_Class function.
1224         (Validate_Specific_Warnings): Update ?W? to ?.w?.
1225         * erroutc.ads: Update type and documentation.
1226         * checks.adb (Validity_Check_Range): Update ?X? to ?.x?.
1227         * exp_ch11.adb (Possible_Local_Raise): Update ?X? to ?.x?.
1228         (Warn_If_No_Local_Raise): Likewise.
1229         (Warn_If_No_Propagation): Likewise.
1230         (Warn_No_Exception_Propagation_Active): Likewise.
1231         * exp_ch4.adb (Expand_N_Allocator): Attach warning message to
1232         -gnatw_a.
1233         * exp_prag.adb (Expand_Pragma_Check): Update ?A? to ?.a?.
1234         * exp_util.adb (Activate_Atomic_Synchronization): Update ?N? to
1235         ?.n?.
1236         (Add_Invariant_Check): Update ?L? to ?.l?.
1237         * freeze.adb (Check_Suspicious_Modulus): Update ?M? to ?.m?.
1238         (Freeze_Entity): Update ?T? to ?.t?, ?Z? to ?.z?.
1239         * par-util.adb (Warn_If_Standard_Redefinition): Update ?K? to
1240         ?.k?.
1241         * sem_attr.adb (Min_Max): Update ?U? to ?.u?.
1242         * sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order): Update ?V?
1243         to ?.v?.
1244         (Adjust_Record_For_Reverse_Bit_Order_Ada_95): Update ?V? to ?.v?.
1245         (Component_Size_Case): Update ?S? to ?.s?.
1246         (Analyze_Record_Representation_Clause): Update ?S? to ?.s? and
1247         ?C? to ?.c?.
1248         (Add_Call): Update ?L? to ?.l?.
1249         (Component_Order_Check): Attach warning message to -gnatw_r.
1250         (Check_Component_List): Update ?H? to ?.h?.
1251         (Set_Biased): Update ?B? to ?.b?.
1252         * sem_ch3.adb (Modular_Type_Declaration): Update ?M? to ?.m?.
1253         * sem_ch4.adb (Analyze_Mod): Update ?M? to ?.m?.
1254         (Analyze_Quantified_Expression): Update ?T? to ?.t?.
1255         * sem_ch6.adb (Check_Conformance): Attach warning message to
1256         -gnatw_p.
1257         (List_Inherited_Pre_Post_Aspects): Update ?L? to ?.l?.
1258         * sem_ch7.adb (Unit_Requires_Body_Info): Update ?Y? to ?.y?.
1259         * sem_ch8.adb (Analyze_Object_Renaming): Update ?R? to ?.r?.
1260         * sem_prag.adb (Validate_Compile_Time_Warning_Or_Error): Attach
1261         warning message to -gnatw_c.
1262         * sem_res.adb (Check_Argument_Order): Update ?P? to ?.p?.
1263         (Resolve_Comparison_Op): Update ?U? to ?.u?.
1264         (Resolve_Range): Update ?U? to ?.u?.
1265         (Resolve_Short_Circuit): Update ?A? to ?.a?.
1266         (Resolve_Unary_Op): Update ?M? to ?.m?.
1267         * sem_util.adb (Check_Result_And_Post_State): Update ?T? to ?.t?.
1268         * sem_warn.adb (Output_Unused_Warnings_Off_Warnings): Update ?W?
1269         to ?.w?.
1270         * warnsw.ads: Update documentation for -gnatw_c.
1272 2021-10-25  Bob Duff  <duff@adacore.com>
1274         * inline.adb (Establish_Actual_Mapping_For_Inlined_Call): Fix
1275         comment.
1277 2021-10-25  Bob Duff  <duff@adacore.com>
1279         * gen_il-gen.adb (Put_Seinfo): Generate type
1280         Seinfo.Type_Only_Enum based on type
1281         Gen_IL.Internals.Type_Only_Enum. Automatically generating a copy
1282         of the type will help keep them in sync.  (Note that there are
1283         no Ada compiler packages imported into Gen_IL.)  Add a Type_Only
1284         field to Field_Descriptor, so this information is available in
1285         the Ada compiler (as opposed to just in the Gen_IL "compiler").
1286         (One_Comp): Add initialization of the Type_Only field of
1287         Field_Descriptor.
1288         * gen_il-internals.ads (Image): Image function for
1289         Type_Only_Enum.
1290         * atree.ads (Node_To_Fetch_From): New function to compute which
1291         node to fetch from, based on the Type_Only aspect.
1292         * atree.adb (Get_Field_Value): Call Node_To_Fetch_From.
1293         * treepr.adb (Print_Entity_Field): Call Node_To_Fetch_From.
1294         (Print_Node_Field): Assert.
1295         * sinfo-utils.adb (Walk_Sinfo_Fields,
1296         Walk_Sinfo_Fields_Pairwise): Asserts.
1298 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1300         * exp_ch4.adb (Expand_Composite_Equality): Fix style.
1301         (Element_To_Compare): Simplify loop.
1302         (Expand_Record_Equality): Adapt calls to Element_To_Compare.
1304 2021-10-25  Steve Baird  <baird@adacore.com>
1306         * sem_case.adb (Composite_Case_Ops.Box_Value_Required): A new
1307         function which takes a component type and returns a Boolean.
1308         Returns True for the cases which were formerly forbidden as
1309         components (these checks were formerly performed in the
1310         now-deleted procedure
1311         Check_Composite_Case_Selector.Check_Component_Subtype).
1312         (Composite_Case_Ops.Normalized_Case_Expr_Type): Hoist this
1313         function out of the Array_Case_Ops package because it has been
1314         generalized to also do the analogous thing in the case of a
1315         discriminated type.
1316         (Composite_Case_Ops.Scalar_Part_Count): Return 0 if
1317         Box_Value_Required returns True for the given type/subtype.
1318         (Composite_Case_Ops.Choice_Analysis.Choice_Analysis.Component_Bounds_Info.
1319         Traverse_Discrete_Parts): Return without doing anything if
1320         Box_Value_Required returns True for the given type/subtype.
1321         (Composite_Case_Ops.Choice_Analysis.Parse_Choice.Traverse_Choice):
1322         If Box_Value_Required yields True for a given component type,
1323         then check that the value of that component in a choice
1324         expression is indeed a box (in which case the component is
1325         ignored).
1326         * doc/gnat_rm/implementation_defined_pragmas.rst: Update
1327         documentation.
1328         * gnat_rm.texi: Regenerate.
1330 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1332         * libgnat/a-nbnbin__gmp.adb (From_String): Fix predicate
1333         mismatch between subprogram declaration and body.
1335 2021-10-25  Bob Duff  <duff@adacore.com>
1337         * einfo-utils.adb (Declaration_Node): Avoid returning the
1338         following node kinds: N_Assignment_Statement, N_Integer_Literal,
1339         N_Procedure_Call_Statement, N_Subtype_Indication, and
1340         N_Type_Conversion.  Assert that the result is in N_Is_Decl or
1341         empty.
1342         * gen_il-gen-gen_nodes.adb (N_Is_Decl): Modify to match the
1343         things that Declaration_Node can return.
1345 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1347         * libgnat/a-strsup.ads (Super_Length, Super_Element,
1348         Super_Slice): Add Global contracts.
1350 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1352         * exp_ch3.adb (Predefined_Primitive_Bodies): Simplify detection
1353         of existing equality operator.
1355 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1357         * exp_ch3.adb (Predefined_Primitive_Bodies): Remove redundant
1358         conditions related to interface types.
1360 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1362         * adaint.c (__gnat_portable_spawn): Do not expect execv to
1363         return 0.
1364         (__gnat_portable_no_block_spawn): Likewise.
1366 2021-10-25  Ghjuvan Lacambre  <lacambre@adacore.com>
1368         * sem_ch8.adb (Analyze_Subprogram_Renaming): Set New_S to Empty.
1370 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1372         * libgnat/a-strunb.ads (Unbounded_String): Reference is never
1373         null.
1374         * libgnat/a-strunb.adb (Finalize): Copy reference while it needs
1375         to be deallocated.
1377 2021-10-25  Piotr Trojanek  <trojanek@adacore.com>
1379         * lib-xref.adb (Get_Through_Renamings): Exit loop when an
1380         enumeration literal is found.
1382 2021-10-25  Arnaud Charlet  <charlet@adacore.com>
1384         * libgnat/s-widthu.adb: Add pragma Annotate.
1386 2021-10-25  Javier Miranda  <miranda@adacore.com>
1388         * sem_ch8.adb (Build_Class_Wide_Wrapper): Previous version split
1389         in two subprograms to factorize its functionality:
1390         Find_Suitable_Candidate, and Build_Class_Wide_Wrapper. These
1391         routines are also placed in the new subprogram
1392         Handle_Instance_With_Class_Wide_Type.
1393         (Handle_Instance_With_Class_Wide_Type): New subprogram that
1394         encapsulates all the code that handles instantiations with
1395         class-wide types.
1396         (Analyze_Subprogram_Renaming): Adjust code to invoke the new
1397         nested subprogram Handle_Instance_With_Class_Wide_Type; adjust
1398         documentation.
1400 2021-10-25  Bob Duff  <duff@adacore.com>
1402         * einfo-utils.ads, einfo-utils.adb (Alias, Set_Alias,
1403         Renamed_Entity, Set_Renamed_Entity, Renamed_Object,
1404         Set_Renamed_Object): Add assertions that reflect how these are
1405         supposed to be used and what they are supposed to return.
1406         (Renamed_Entity_Or_Object): New getter.
1407         (Set_Renamed_Object_Of_Possibly_Void): Setter that allows N to
1408         be E_Void.
1409         * checks.adb (Ensure_Valid): Use Renamed_Entity_Or_Object
1410         because this is called for both cases.
1411         * exp_dbug.adb (Debug_Renaming_Declaration): Use
1412         Renamed_Entity_Or_Object because this is called for both cases.
1413         Add assertions.
1414         * exp_util.adb (Possible_Bit_Aligned_Component): Likewise.
1415         * freeze.adb (Freeze_All_Ent): Likewise.
1416         * sem_ch5.adb (Within_Function): Likewise.
1417         * exp_attr.adb (Calculate_Header_Size): Call Renamed_Entity
1418         instead of Renamed_Object.
1419         * exp_ch11.adb (Expand_N_Raise_Statement): Likewise.
1420         * repinfo.adb (Find_Declaration): Likewise.
1421         * sem_ch10.adb (Same_Unit, Process_Spec_Clauses,
1422         Analyze_With_Clause, Install_Parents): Likewise.
1423         * sem_ch12.adb (Build_Local_Package, Needs_Body_Instantiated,
1424         Build_Subprogram_Renaming, Check_Formal_Package_Instance,
1425         Check_Generic_Actuals, In_Enclosing_Instance,
1426         Denotes_Formal_Package, Process_Nested_Formal,
1427         Check_Initialized_Types, Map_Formal_Package_Entities,
1428         Restore_Nested_Formal): Likewise.
1429         * sem_ch6.adb (Report_Conflict): Likewise.
1430         * sem_ch8.adb (Analyze_Exception_Renaming,
1431         Analyze_Generic_Renaming, Analyze_Package_Renaming,
1432         Is_Primitive_Operator_In_Use, Declared_In_Actual,
1433         Note_Redundant_Use): Likewise.
1434         * sem_warn.adb (Find_Package_Renaming): Likewise.
1435         * sem_elab.adb (Ultimate_Variable): Call Renamed_Object instead
1436         of Renamed_Entity.
1437         * exp_ch6.adb (Get_Function_Id): Call
1438         Set_Renamed_Object_Of_Possibly_Void, because the defining
1439         identifer is still E_Void at this point.
1440         * sem_util.adb (Function_Call_Or_Allocator_Level): Likewise.
1441         Remove redundant (unreachable) code.
1442         (Is_Object_Renaming, Is_Valid_Renaming): Call Renamed_Object
1443         instead of Renamed_Entity.
1444         (Get_Fullest_View): Call Renamed_Entity instead of
1445         Renamed_Object.
1446         (Copy_Node_With_Replacement): Call
1447         Set_Renamed_Object_Of_Possibly_Void because the defining entity
1448         is sometimes E_Void.
1449         * exp_ch5.adb (Expand_N_Assignment_Statement): Protect a call to
1450         Renamed_Object with Is_Object to avoid assertion failure.
1451         * einfo.ads: Minor comment fixes.
1452         * inline.adb: Minor comment fixes.
1453         * tbuild.ads: Minor comment fixes.
1455 2021-10-25  Arnaud Charlet  <charlet@adacore.com>
1457         * sem_ch13.adb (Build_Discrete_Static_Predicate): Remove use of
1458         exception propagation since this code is exercised during the
1459         bootstrap.
1461 2021-10-25  Yannick Moy  <moy@adacore.com>
1463         * sem_ch13.adb (Freeze_Entity_Checks): Perform same check on
1464         predicate expression inside pragma as inside aspect.
1465         * sem_util.adb (Is_Current_Instance): Recognize possible
1466         occurrence of subtype as current instance inside the pragma
1467         Predicate.
1469 2021-10-25  Ghjuvan Lacambre  <lacambre@adacore.com>
1471         * erroutc.adb (Count_Compile_Time_Pragma_Warnings): Don't count
1472         deleted warnings.
1474 2021-10-22  Eric Gallager  <egallager@gcc.gnu.org>
1476         PR other/102663
1477         * gcc-interface/Make-lang.in: Allow dvi-formatted
1478         documentation to be installed.
1480 2021-10-20  Bob Duff  <duff@adacore.com>
1482         * gcc-interface/decl.c (gnat_to_gnu_entity): Remove unnecessary
1483         call to No_Uint_To_0.
1485 2021-10-20  Richard Kenner  <kenner@adacore.com>
1487         * exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
1488         instrinsic subprograms as nested.
1490 2021-10-20  Yannick Moy  <moy@adacore.com>
1492         * libgnat/s-widlllu.ads: Mark in SPARK.
1493         * libgnat/s-widllu.ads: Likewise.
1494         * libgnat/s-widuns.ads: Likewise.
1495         * libgnat/s-widthu.adb: Add ghost code and a
1496         pseudo-postcondition.
1498 2021-10-20  Yannick Moy  <moy@adacore.com>
1500         * libgnat/a-nbnbin__ghost.adb (Signed_Conversions,
1501         Unsigned_Conversions): Mark subprograms as not imported.
1502         * libgnat/a-nbnbin__ghost.ads: Provide a dummy body.
1504 2021-10-20  Eric Botcazou  <ebotcazou@adacore.com>
1506         * sem_eval.adb (Eval_Type_Conversion): If the target subtype is
1507         a static floating-point subtype and the result is a real literal,
1508         consider its machine-rounded value to raise Constraint_Error.
1509         (Test_In_Range): Turn local variables into constants.
1511 2021-10-20  Doug Rupp  <rupp@adacore.com>
1513         * libgnat/g-io-put__vxworks.adb: Remove (unused)
1514         * libgnat/s-parame__ae653.ads: Likewise.
1515         * libgnat/s-thread.ads: Likewise.
1516         * libgnat/s-thread__ae653.adb: Likewise.
1518 2021-10-20  Eric Botcazou  <ebotcazou@adacore.com>
1520         * sem_eval.ads (Machine_Number): New inline function.
1521         * sem_eval.adb (Machine_Number): New function body implementing
1522         the machine rounding operation specified by RM 4.9(38/2).
1523         (Check_Non_Static_Context): Call Machine_Number and set the
1524         Is_Machine_Number flag consistently on the resulting node.
1525         * sem_attr.adb (Eval_Attribute) <Attribute_Machine>: Likewise.
1526         * checks.adb (Apply_Float_Conversion_Check): Call Machine_Number.
1527         (Round_Machine): Likewise.
1529 2021-10-20  Johannes Kliemann  <kliemann@adacore.com>
1531         * vxworks7-cert-rtp-link.spec: Add the definition of
1532         __wrs_rtp_base.
1534 2021-10-20  Piotr Trojanek  <trojanek@adacore.com>
1536         * sem_aggr.adb (Resolve_Delta_Record_Aggregate): Reject boxes in
1537         record delta aggregates.
1539 2021-10-20  Justin Squirek  <squirek@adacore.com>
1541         * sem_ch6.adb (Check_Return_Construct_Accessibility): Modify
1542         generation of accessibility checks to be more consolidated and
1543         get triggered properly in required cases.
1544         * sem_util.adb (Accessibility_Level): Add extra check within
1545         condition to handle aliased formals properly in more cases.
1547 2021-10-20  Justin Squirek  <squirek@adacore.com>
1549         * exp_ch7.adb (Make_Final_Call): Detect expanded protected types
1550         and use original protected type in order to calculate
1551         appropriate finalization routine.
1553 2021-10-20  Johannes Kliemann  <kliemann@adacore.com>
1555         * libgnat/a-nbnbin__ghost.ads: Add ghost package.
1557 2021-10-20  Piotr Trojanek  <trojanek@adacore.com>
1559         * sem_aggr.adb (Variant_Depth): Refine type from Integer to
1560         Natural.
1562 2021-10-20  Bob Duff  <duff@adacore.com>
1564         * atree.ads: Comment improvements. How is a "completely new
1565         node" different from a "new node"? Document default values
1566         corresponding to field types.
1567         * exp_ch7.adb (Process_Tagged_Type_Declaration): Use
1568         higher-level Scope_Depth instead of Scope_Depth_Value.  Remove
1569         confusing comment: not clear what a "true" library level package
1570         is.
1571         * uintp.adb (Image_Out): Print No_Uint in a more readable way.
1572         * gen_il-gen.adb, gen_il-gen-gen_entities.adb,
1573         gen_il-gen-gen_nodes.adb, gen_il-types.ads: Tighten up the
1574         subtypes of fields whose type is Uint, where possible; use
1575         more-constrained subtypes such as Unat.
1576         * einfo-utils.adb, einfo-utils.ads, exp_attr.adb,
1577         exp_ch3.adb, exp_intr.adb, exp_unst.adb, exp_util.adb,
1578         freeze.adb, repinfo.adb, sem.adb, sem_ch12.adb, sem_ch13.adb,
1579         sem_ch3.adb, sem_ch8.adb, sem_util.adb, sprint.adb, treepr.adb:
1580         No longer use Uint_0 to indicate "unknown" or "not yet known"
1581         for various fields whose type is Uint. Use No_Uint for that,
1582         except in a small number of legacy cases that cause test
1583         failures. Protect many queries of such fields with calls to
1584         Known_... functions. Improve comments.
1585         * exp_aggr.adb: Likewise.
1586         (Is_OK_Aggregate): Check whether Csiz is present.
1587         (Aggr_Assignment_OK_For_Backend): Ensure we do not access an
1588         uninitialized size.
1589         * exp_strm.adb (Build_Elementary_Input_Call,
1590         Build_Elementary_Write_Call): Check whether P_Size is present.
1591         * cstand.adb: Leave Component_Size of Any_Composite unknown.
1592         Similar for RM_Size of Standard_Exception_Type.  These should
1593         not be used.
1594         * einfo.ads: Comment improvements.
1595         * exp_disp.ads: Minor.
1596         * gen_il-internals.ads, gen_il-internals.adb: Minor.
1597         * sinfo-utils.adb: Take advantage of full-coverage rules.
1598         * types.h: Minor.
1600 2021-10-20  Gary Dismukes  <dismukes@adacore.com>
1602         * sem_ch6.adb: Add with and use of Warnsw.
1603         (Check_Conformance): Report a warning when subtypes or
1604         designated subtypes of formal parameters or result subtypes
1605         denote different declarations between the spec and body of the
1606         (Subprogram_Subtypes_Have_Same_Declaration): New function nested
1607         within Check_Conformance that determines whether two subtype
1608         entities referenced in a subprogram come from the same
1609         declaration. Returns True immediately if the subprogram is in a
1610         generic instantiation, or the subprogram is marked Is_Internal
1611         or is declared in an internal (GNAT library) unit, or GNAT_Mode
1612         is enabled, otherwise compares the nonlimited views of the
1613         entities (or their designated subtypes' nonlimited views in the
1614         anonymous access cases).
1615         (Nonlimited_View_Of_Subtype): New function nested within
1616         function Subprogram_Subtypes_Have_Same_Declaration that returns
1617         Non_Limited_View of a type or subtype that is an incomplete or
1618         class-wide type that comes from a limited of a
1619         package (From_Limited_With is True for the entity), or returns
1620         Full_View when the nonlimited view is an incomplete type.
1621         Otherwise returns the entity passed in.
1622         * warnsw.ads (Warn_On_Pedantic_Checks): New warning flag.
1623         (type Warning_Record): New component Warn_On_Pedantic_Checks.
1624         * warnsw.adb (All_Warnings): Set Warn_On_Pedantic_Checks from
1625         parameter Setting.
1626         (Restore_Warnings): Restore the value of the
1627         Warn_On_Pedantic_Checks flag.
1628         (Save_Warnings): Save the value of the Warn_On_Pedantic_Checks
1629         flag.
1630         (Set_Underscore_Warning_Switch): Add settings of the
1631         Warn_On_Pedantic flag according to the switch ("-gnatw_p" vs.
1632         "-gnatw_P").
1633         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Add
1634         documentation of new switches -gnatw_p and -gnatw_P (warnings
1635         for pedantic checks).
1636         * gnat_ugn.texi: Regenerate.
1637         * usage.adb: Add Warn_On_Pedantic_Checks.
1639 2021-10-20  Piotr Trojanek  <trojanek@adacore.com>
1641         * exp_spark.adb (Expand_SPARK_N_Attribute_Reference): Guard
1642         against equality of an uninitialized RM_Size field.
1644 2021-10-20  Eric Botcazou  <ebotcazou@adacore.com>
1646         * sem_ch12.adb (Analyze_Subprogram_Instantiation): Also propagate an
1647         interface name on an intrinsic subprogram.  Remove obsolete comment.
1648         * libgnat/s-atopri.ads (Atomic_Load): New generic intrinsic function
1649         (Atomic_Load_8): Rewrite into instantiation.
1650         (Atomic_Load_16): Likewise.
1651         (Atomic_Load_32): Likewise.
1652         (Atomic_Load_64): Likewise.
1653         (Sync_Compare_And_Swap): New generic intrinsic function.
1654         (Sync_Compare_And_Swap_8): Rewrite into instantiation.
1655         (Sync_Compare_And_Swap_16): Likewise.
1656         (Sync_Compare_And_Swap_32): Likewise.
1657         (Sync_Compare_And_Swap_64): Likewise.
1658         (Lock_Free_Read): New generic inline function.
1659         (Lock_Free_Read_8): Rewrite into instantiation.
1660         (Lock_Free_Read_16): Likewise.
1661         (Lock_Free_Read_32): Likewise.
1662         (Lock_Free_Read_64): Likewise.
1663         (Lock_Free_Try_Write): New generic inline function.
1664         (Lock_Free_Try_Write_8): Rewrite into instantiation.
1665         (Lock_Free_Try_Write_16): Likewise.
1666         (Lock_Free_Try_Write_32): Likewise.
1667         (Lock_Free_Try_Write_64): Likewise.
1668         * libgnat/s-atopri.adb (Lock_Free_Read): New function body.
1669         (Lock_Free_Read_8): Delete.
1670         (Lock_Free_Read_16): Likewise.
1671         (Lock_Free_Read_32): Likewise.
1672         (Lock_Free_Read_64): Likewise.
1673         (Lock_Free_Try_Write): New function body.
1674         (Lock_Free_Try_Write_8): Delete.
1675         (Lock_Free_Try_Write_16): Likewise.
1676         (Lock_Free_Try_Write_32): Likewise.
1677         (Lock_Free_Try_Write_64): Likewise.
1678         * libgnat/s-aoinar.adb (Atomic_Fetch_And_Add): Use type-generic GCC
1679         atomic builtin and tidy up implementation.
1680         (Atomic_Fetch_And_Subtract): Likewise.
1681         * libgnat/s-aomoar.adb (Atomic_Fetch_And_Add): Likewise.
1682         (Atomic_Fetch_And_Subtract): Likewise.
1683         * libgnat/s-atopex.adb (Atomic_Exchange): Likewise.
1684         (Atomic_Compare_And_Exchange): Likewise.
1686 2021-10-20  Eric Botcazou  <ebotcazou@adacore.com>
1688         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Subprogram_Type>:
1689         Replace test on Convention_Intrinsic with Is_Intrinsic_Subprogram.
1690         (gnat_to_gnu_param): Likewise.
1691         (gnat_to_gnu_subprog_type): Likewise.
1692         * gcc-interface/trans.c (elaborate_all_entities_for_package): Ditto.
1694 2021-10-20  Eric Botcazou  <ebotcazou@adacore.com>
1696         * sem_eval.ads (Check_Non_Static_Context): Update documentation.
1697         * sem_eval.adb (In_Any_Integer_Context): Change parameter type,
1698         adjust accordingly and remove unreachable case.
1699         (Eval_Integer_Literal): Consider the node kind throughout and
1700         trim down verbose condition.
1702 2021-10-20  Doug Rupp  <rupp@adacore.com>
1704         * Makefile.rtl: Remove references to system-vxworks-ppc.ads
1705         and system-vxworks-x86.ads.
1706         * libgnat/system-vxworks-ppc.ads: Remove.
1707         * libgnat/system-vxworks-ppc-ravenscar.ads: Likewise.
1708         * libgnat/system-vxworks-x86.ads: Likewise.
1710 2021-10-20  Yannick Moy  <moy@adacore.com>
1712         * sem_ch4.adb (Analyze_QUantified_Expression): Issue warning on
1713         conjunct/disjunct sub-expression of the full expression inside a
1714         quantified expression, when it does not reference the quantified
1715         variable.
1717 2021-10-20  Marc Poulhiès  <poulhies@adacore.com>
1719         * checks.adb (Insert_Valid_Check): in case of checked type
1720         conversion, update Typ to match Exp's type and add call to
1721         Analyze_And_Resolve.
1723 2021-10-20  Arnaud Charlet  <charlet@adacore.com>
1725         PR ada/100486
1726         * sem_prag.adb (Check_Valid_Library_Unit_Pragma): Do not raise an
1727         exception as part of the bootstrap.
1729 2021-10-15  Richard Biener  <rguenther@suse.de>
1731         * gcc-interface/misc.c (gnat_post_options): Do not warn
1732         about DBX_DEBUG use here.
1734 2021-10-14  Alexandre Oliva  <oliva@adacore.com>
1736         * par-ch10.adb (P_Compilation_Unit): Reenable ada83 library
1737         unit renaming test and error.
1739 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1741         * gcc-interface/gigi.h (resolve_atomic_size): Declare.
1742         (list_third): New inline function.
1743         * gcc-interface/decl.c (type_for_atomic_builtin_p): New function.
1744         (resolve_atomic_builtin): Likewise.
1745         (gnat_to_gnu_subprog_type): Perform type resolution for most of
1746         type-generic GCC atomic builtins and give an error for the rest.
1747         * gcc-interface/utils2.c (resolve_atomic_size): Make public.
1749 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1751         * gcc-interface/trans.c (gnat_to_gnu) <N_Pop_Constraint_Error_Label>:
1752         Given the warning only if No_Exception_Propagation is active.
1753         <N_Pop_Storage_Error_Label>: Likewise.
1754         <N_Pop_Program_Error_Label>: Likewise.
1756 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1758         * gcc-interface/decl.c (promote_object_alignment): Add GNU_SIZE
1759         parameter and use it for the size of the object if not null.
1760         (gnat_to_gnu_entity) <E_Variable>: Perform the automatic alignment
1761         promotion for objects whose nominal subtype is of variable size.
1762         (gnat_to_gnu_field): Adjust call to promote_object_alignment.
1764 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1766         * gcc-interface/decl.c (gnat_to_gnu_param): Strip padding types
1767         only if the size does not change in the process.  Rename local
1768         variable and add bypass for initialization procedures.
1770 2021-10-11  Doug Rupp  <rupp@adacore.com>
1772         * libgnat/s-thread.ads: Fix comments.  Remove unused package
1773         imports.
1774         (Thread_Body_Exception_Exit): Remove Exception_Occurrence
1775         parameter.
1776         (ATSD): Declare type locally.
1777         * libgnat/s-thread__ae653.adb: Fix comments.  Remove unused
1778         package imports.  Remove package references to Stack_Limit
1779         checking.
1780         (Install_Handler): Remove.
1781         (Set_Sec_Stack): Likewise.
1782         (Thread_Body_Enter): Remove calls to Install_Handler and
1783         Stack_Limit checking.
1784         (Thread_Body_Exception_Exit): Remove Exception_Occurrence
1785         parameter.
1786         (Init_RTS): Call local Get_Sec_Stack.  Remove call to
1787         Install_Handler.  Remove references to accessors for
1788         Get_Sec_Stack and Set_Sec_Stack.  Remove OS check.
1789         (Set_Sec_Stack): Remove.
1791 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1793         * exp_ch3.adb (Make_Predefined_Primitive_Specs,
1794         Predefined_Primitive_Bodies): Remove guard with restriction
1795         No_Dispatching_Calls.
1797 2021-10-11  Steve Baird  <baird@adacore.com>
1799         * sem_attr.adb (Analyze_Attribute_Old_Result): Permit an
1800         attribute reference inside a compiler-generated _Postconditions
1801         procedure. In this case, Subp_Decl is assigned the declaration
1802         of the enclosing subprogram.
1803         * exp_util.adb (Insert_Actions): When climbing up the tree
1804         looking for an insertion point, do not climb past an
1805         N_Iterated_Component/Element_Association, since this could
1806         result in inserting a reference to a loop parameter at a
1807         location outside of the scope of that loop parameter. On the
1808         other hand, be careful to preserve existing behavior in the case
1809         of an N_Component_Association node.
1811 2021-10-11  Steve Baird  <baird@adacore.com>
1813         * exp_ch6.adb (Can_Fold_Predicate_Call): Do not attempt folding
1814         if there is more than one predicate involved. Recall that
1815         predicate aspect specification are additive, not overriding, and
1816         that there are three different predicate
1817         aspects (Dynamic_Predicate, Static_Predicate, and the
1818         GNAT-defined Predicate aspect). These various ways of
1819         introducing multiple predicates are all checked for.  A new
1820         nested function, Augments_Other_Dynamic_Predicate, is
1821         introduced.
1822         * sem_ch4.adb
1823         (Analyze_Indexed_Component_Form.Process_Function_Call): When
1824         determining whether a name like "X (Some_Discrete_Type)" might
1825         be interpreted as a slice, the answer should be "no" if the
1826         type/subtype name denotes the current instance of type/subtype.
1828 2021-10-11  Patrick Bernardi  <bernardi@adacore.com>
1830         * libgnarl/s-osinte__rtems.ads: Change sigset_t to an unsigned
1831         long.
1833 2021-10-11  Patrick Bernardi  <bernardi@adacore.com>
1835         * libgnat/s-parame__rtems.adb: use
1836         _POSIX_Threads_Minimum_stack_size instead of
1837         ada_pthread_minimum_stack_size.
1839 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1841         * fe.h (No_Exception_Propagation_Active): Declare.
1842         * restrict.ads (No_Exception_Propagation_Active): Add WARNING line.
1844 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1846         * sem_ch13.adb (Validate_Unchecked_Conversion): Simplify code
1847         for detecting conversions with Ada.Calendar.Time type and extend
1848         it to similar types in the Ada.Real_Time package.
1850 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1852         * sem_ch10.adb, sem_prag.adb, sem_util.adb: Use
1853         N_Generic_Declaration in membership tests.
1855 2021-10-11  Etienne Servais  <servais@adacore.com>
1857         * ali.adb (Get_Name): Ignore_Spaces is always False.
1858         * bindo-graphs.adb (Set_Is_Existing_Source_Target_Relation): Val
1859         is always True.
1860         * cstand.adb (New_Standard_Entity): New_Node_Kind is always
1861         N_Defininig_Identifier.
1862         * exp_ch3.adb (Predef_Stream_Attr_Spec): For_Body is always
1863         False.
1864         * exp_dist.adb (Add_Parameter_To_NVList): RACW_Ctrl is always
1865         False.
1866         * gnatls.adb (Add_Directories): Prepend is always False.
1867         * sem_ch10.adb, sem_ch10.ads (Load_Needed_Body): Do_Analyze is
1868         always True.
1869         * sem_ch3.adb, sem_ch3.ads (Process_Range_Expr_In_Decl):
1870         R_Check_Off is always False.
1871         * sem_elab.adb: (Info_Variable_Reference): Info_Msg is always
1872         False, In_SPARK is always True.
1873         (Set_Is_Traversed_Body, Set_Is_Saved_Construct,
1874         Set_Is_Saved_Relation): Val is always True.
1875         * treepr.adb (Visit_Descendant): No_Indent is always False.
1876         (Print_Node): Fmt does not need such a big scope.
1878 2021-10-11  Etienne Servais  <servais@adacore.com>
1880         * sem_ch4.adb (Analyze_Membership_Op): Finds interpretation for
1881         the case of a membership test with a singleton value in case of
1882         overloading.
1884 2021-10-11  Patrick Bernardi  <bernardi@adacore.com>
1886         * Makefile.rtl (VxWorks): Rename s-inmaop__vxworks.adb to
1887         s-inmaop__hwint.adb.
1888         (RTEMS): Use s-inmaop__hwint.adb, s-intman__rtems.adb/s,
1889         s-taprop__rtems.adb.
1890         * libgnarl/a-intnam__rtems.ads: Remove signals definitions and
1891         replace with Hardware_Interrupts.
1892         * libgnarl/s-inmaop__vxworks.adb: Rename as...
1893         * libgnarl/s-inmaop__hwint.adb: ... this.
1894         * libgnarl/s-interr__hwint.adb: Remove unnecessary comments.
1895         * libgnarl/s-intman__rtems.ads, libgnarl/s-intman__rtems.adb:
1896         New files.
1897         * libgnarl/s-osinte__rtems.adb: Add RTEMS API bindings.
1898         (Binary_Semaphore_Create, Binary_Semaphore_Delete,
1899         Binary_Semaphore_Obtain, Binary_Semaphore_Release,
1900         Binary_Semaphore_Flush, Interrupt_Connect,
1901         Interrupt_Number_To_Vector): New functions.
1902         * libgnarl/s-osinte__rtems.ads (Num_HW_Interrupts, Signal):
1903         Removed.
1904         (NSIG, Interrupt_Range): New.
1905         (Binary_Semaphore_Create, Binary_Semaphore_Delete,
1906         Binary_Semaphore_Obtain, Binary_Semaphore_Release,
1907         Binary_Semaphore_Flush, Interrupt_Connect,
1908         Interrupt_Number_To_Vector): Remove Import pragma.
1909         * libgnarl/s-taprop__rtems.adb: New file.
1911 2021-10-11  Eric Botcazou  <ebotcazou@adacore.com>
1913         * exp_fixd.adb (Get_Size_For_Value): New function returning a size
1914         suitable for a non-negative integer value.
1915         (Get_Type_For_Size): New function returning a standard type suitable
1916         for a size.
1917         (Build_Divide): Call both functions to compute the result type, but
1918         make sure to pass a non-negative value to the first.
1919         (Build_Multiply): Likewise.
1920         (Do_Multiply_Fixed_Universal): Minor consistency tweak.
1921         (Integer_Literal): Call both functions to compute the type.
1923 2021-10-11  Etienne Servais  <servais@adacore.com>
1925         * sem_ch4.adb (Analyze_Membership_Op): Reorder subprogram spec
1926         and bodies in alphabetical order.
1928 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1930         * exp_util.adb (Build_Class_Wide_Expression): Replace entities
1931         of both simple and extended names.
1933 2021-10-11  Ghjuvan Lacambre  <lacambre@adacore.com>
1935         * libgnarl/s-intman__android.adb, libgnarl/s-intman__lynxos.adb,
1936         libgnarl/s-intman__posix.adb, libgnarl/s-intman__qnx.adb,
1937         libgnarl/s-intman__solaris.adb, libgnarl/s-intman__susv3.adb,
1938         libgnarl/s-taprob.adb, libgnarl/s-taprop__hpux-dce.adb,
1939         libgnarl/s-taprop__linux.adb, libgnarl/s-taprop__mingw.adb,
1940         libgnarl/s-taprop__posix.adb, libgnarl/s-taprop__qnx.adb,
1941         libgnarl/s-taprop__solaris.adb, libgnarl/s-taprop__vxworks.adb,
1942         libgnarl/s-taskin.adb, libgnarl/s-tasque.adb,
1943         libgnarl/s-tpoben.adb, libgnat/a-calend.adb,
1944         libgnat/a-excach.adb, libgnat/a-except.adb, libgnat/a-tags.adb,
1945         libgnat/a-textio.adb, libgnat/a-witeio.adb,
1946         libgnat/a-ztexio.adb, libgnat/g-binenv.adb,
1947         libgnat/s-parame.adb, libgnat/s-parame__vxworks.adb,
1948         libgnat/s-stratt.adb, libgnat/s-trasym__dwarf.adb: Mark imported
1949         binder globals as constant.
1951 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1953         * exp_aggr.adb (Initialize_Record_Component): Add assertion
1954         about one of the parameters, so that illegal attempts to
1955         initialize record components with Empty node are detected early
1956         on.
1957         (Build_Record_Aggr_Code): Handle boxes in aggregate component
1958         associations just the components with no initialization in
1959         Build_Record_Init_Proc.
1960         * sem_aggr.adb (Resolve_Record_Aggregate): For components that
1961         require simple initialization carry boxes from resolution to
1962         expansion.
1963         * sem_util.adb (Needs_Simple_Initialization): Remove redundant
1964         paren.
1966 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1968         * exp_ch3.adb (Build_Init_Statements): Simplify detection of
1969         concurrent record types.
1971 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1973         * exp_aggr.adb (Is_Delayed_Aggregate): Simplify.
1975 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1977         * exp_aggr.adb (Has_Default_Init_Comps): Simplify.
1979 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1981         * exp_aggr.adb (Component_OK_For_Backend): Remove redundant
1982         guard.
1984 2021-10-11  Patrick Bernardi  <bernardi@adacore.com>
1986         * Makefile.rtl (RTEMS): Add s-stchop.o to
1987         EXTRA_GNATRTL_NONTASKING_OBJS, remove s-stchop__rtems.adb.
1988         * libgnat/s-stchop__rtems.adb: Removed.
1990 2021-10-11  Marc Poulhiès  <poulhies@adacore.com>
1992         * expander.adb (Expand): Skip clearing of Analyzed flag if
1993         already set for N_Real_Literal.
1995 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
1997         * sem_util.adb (Compile_Time_Constraint_Error): Simplify getting
1998         the type of the first formal parameter.
2000 2021-10-11  Piotr Trojanek  <trojanek@adacore.com>
2002         * exp_util.adb (Inside_Init_Proc): Simplify.
2003         * sem_aggr.adb (Resolve_Record_Aggregate): Fix style.
2004         * sem_util.adb (Compile_Time_Constraint_Error): Guard against
2005         calling Corresponding_Concurrent_Type with an array type entity.
2007 2021-10-11  Doug Rupp  <rupp@adacore.com>
2009         * libgnat/s-parame__ae653.ads (time_t_bits): Change to
2010         Long_Long_Integer'Size.  Add some comments to explain.
2012 2021-10-08  Martin Liska  <mliska@suse.cz>
2014         * gcc-interface/misc.c (gnat_post_options): Use new macro
2015         OPTION_SET_P.
2016         (gnat_init_gcc_eh): Likewise.
2017         (gnat_init_gcc_fp): Likewise.
2019 2021-10-05  Eric Botcazou  <ebotcazou@adacore.com>
2021         * gcc-interface/trans.c (gnat_to_gnu): Do not wrap boolean values
2022         referenced in pragmas.
2024 2021-10-05  Eric Botcazou  <ebotcazou@adacore.com>
2026         * gcc-interface/trans.c (Subprogram_Body_to_gnu): Do not set the
2027         DECL_DISREGARD_INLINE_LIMITS flag if -gnatd.8 is specified.
2029 2021-10-05  Bob Duff  <duff@adacore.com>
2031         * gcc-interface/trans.c (set_end_locus_from_node): Check that
2032         Handled_Statement_Sequence is not Empty before calling
2033         End_Label, because the Empty node has no End_Label, and
2034         depending on the exact node layout chosen by gen_il, calling
2035         End_Label might crash, or might work OK by accident.
2037 2021-10-05  Eric Botcazou  <ebotcazou@adacore.com>
2039         * gcc-interface/cuintp.c: Adjust placement of include directive.
2040         * gcc-interface/targtyps.c: Likewise.
2042 2021-10-05  Alexandre Oliva  <oliva@adacore.com>
2044         * doc/gnat_rm.rst: Add...
2045         * doc/gnat_rm/security_hardening_features.rst: New.
2046         * doc/gnat_rm/about_this_guide.rst: Link to new chapter.
2047         * gnat_rm.texi: Regenerate.
2048         * gcc-interface/utils.c (handle_strub_attribute): New.
2049         (gnat_internal_attribute_table): Add strub.
2050         * libgnat/a-except.adb: Make Rcheck_CE_* strub-callable.
2051         * libgnat/a-except.ads (Raise_Exception): Likewise.
2052         (Raise_Exception_Always): Likewise.
2053         * libgnat/s-arit128.ads (Multiply_With_Ovflo_Check128):
2054         Likewise.
2055         * libgnat/s-arit64.ads (Multiply_With_Ovflo_Check64):
2056         Likewise.
2057         * libgnat/s-secsta.ads (SS_Allocate, SS_Mark, SS_Release):
2058         Likewise.
2060 2021-10-05  Eric Botcazou  <ebotcazou@adacore.com>
2062         * exp_ch9.adb (Install_Private_Data_Declarations): Copy the Sloc of
2063         components for the local renamings as well as the Comes_From_Source
2064         flag, and also set Warnings_Off on them.  Use Nam local variable.
2066 2021-10-05  Arnaud Charlet  <charlet@adacore.com>
2068         * libgnarl/a-tasini.ads (Set_Initialization_Handler): Update
2069         comments.
2071 2021-10-05  Corentin Gay  <gay@adacore.com>
2073         * init.c (QNX): Add #include errno.h.
2075 2021-10-05  Eric Botcazou  <ebotcazou@adacore.com>
2077         * exp_attr.adb (Expand_Fpt_Attribute): Likewise.
2078         * snames.ads-tmpl (Name_Unaligned_Valid): Delete.
2080 2021-10-05  Etienne Servais  <servais@adacore.com>
2082         * sem_prag.adb (Analyze_Pragma): Forbid use of
2083         Compile_Time_(Error|Warning) as configuration pragma.
2084         * doc/gnat_ugn/the_gnat_compilation_model.rst:
2085         Compile_Time_(Error|Warning) and Compiler_Unit(_Warning) are not
2086         configuration pragmas and shall not be listed as such.  The
2087         following pragmas are either obsolete or undocumented:
2088         No_Run_Time, Propagate_Exceptions, Rational, Ravenscar,
2089         Restricted_Run_Time, Short_Descriptors, Universal_Data.  Fix
2090         some typos (notably on Restriction_Warnings).
2091         * doc/gnat_rm/implementation_defined_pragmas.rst: Move
2092         Rename_Pragma documentation to alphabetical order.
2093         * gnat_rm.texi, gnat_ugn.texi: Regenerate.
2095 2021-10-05  Corentin Gay  <gay@adacore.com>
2097         * adaint.c (QNX): Add #include for sys/time.h.
2099 2021-10-05  Pascal Obry  <obry@adacore.com>
2101         * libgnat/g-forstr.adb (Next_Format): When there is no more
2102         format specifier found issue a proper error message instead of
2103         raising a contraint error.
2105 2021-10-05  Pascal Obry  <obry@adacore.com>
2107         * libgnat/g-forstr.adb (Get_Formatted): Fix computation of the
2108         number of zero to use in the formatted string. This was a wrong
2109         copy/paste.
2111 2021-10-05  Pascal Obry  <obry@adacore.com>
2113         * libgnat/g-forstr.adb (Get_Formatted): Minor code clean-up.
2115 2021-10-05  Etienne Servais  <servais@adacore.com>
2117         * libgnat/a-zchhan.ads, libgnat/a-zchhan.adb
2118         (Character_Set_Version, Is_Basic, To_Basic): New.
2119         * libgnat/a-zchuni.ads, libgnat/a-zchuni.adb (Is_Basic,
2120         To_Basic): New.
2122 2021-10-05  Yannick Moy  <moy@adacore.com>
2124         * sem_aggr.adb (Resolve_Array_Aggregate): Improve error message.
2126 2021-10-05  Gary Dismukes  <dismukes@adacore.com>
2128         * aspects.ads (type Aspect_Id): Add
2129         Aspect_Designated_Storage_Model and Aspect_Storage_Model_Type.
2130         (Aspect_Argument): Add associations for the above new aspects.
2131         (Is_Representation_Aspect): Likewise.
2132         (Aspect_Names, Aspect_Delay): Likewise.
2133         * exp_ch4.adb (Expand_N_Allocator): Call Find_Storage_Op rather
2134         than Find_Prim_Op.
2135         * exp_intr.adb (Expand_Unc_Deallocation): Likewise.
2136         * exp_util.ads (Find_Storage_Op): New function that locates
2137         either a primitive operation of a storage pool or an operation
2138         of a storage-model type specified in its Storage_Model_Type
2139         aspect.
2140         * exp_util.adb (Find_Storage_Op): New function that calls either
2141         Find_Prim_Op or Get_Storage_Model_Type_Entity to locate a
2142         storage-related operation that is associated with a type.
2143         * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): Analyzes,
2144         resolves, and validates the arguments of aspect
2145         Designated_Storage_Model_Type.
2146         (Analyze_Aspect_Specifications): Sets delay-related flags on
2147         storage-model aspects when Delay_Required. Checks that aspect
2148         Designated_Storage_Model is only specified for an access type
2149         and that aspect Storage_Model_Type is only specified on an
2150         immutably limited type. Also records such aspects for their
2151         associated types.
2152         (Check_Aspect_At_Freeze_Point): Resolve each of the argument
2153         associations given for a Storage_Model_Type aspect.
2154         (Resolve_Storage_Model_Type_Argument): New procedure that
2155         resolves an argument given in the association for a given entity
2156         name associated with a type with aspect Storage_Model_Type,
2157         ensuring that it has the proper kind or profile.
2158         (Validate_Storage_Model_Type_Aspect): New procedure that checks
2159         the legality and completeness of the entity associations given
2160         in a Storage_Model_Type aspect.
2161         * sem_util.ads (package Storage_Model_Support): New nested
2162         package that encapsulates a set of convenient utility functions
2163         for retrieving entities, etc. associated with
2164         storage-model-related types and objects.
2165         (Get_Storage_Model_Type_Entity): New function to return a
2166         specified entity associated with a type that has aspect
2167         Storage_Model_Type.
2168         (Has_Designated_Storage_Model_Aspect): New function that returns
2169         whether a type has aspect Designated_Storage_Model.
2170         (Has_Storage_Model_Type_Aspect): New function that returns
2171         whether a type has aspect Storage_Model_Type.
2172         (Storage_Model_Object): New function that returns the object
2173         Entity_Id associated with a type's Designated_Storage_Model
2174         aspect.
2175         (Storage_Model_Type): New function that returns the type
2176         associated with a storage-model object (when the object's type
2177         specifies Storage_Model_Type).
2178         (Storage_Model_Address_Type): New function that returns the
2179         Address_Type associated with a type that has aspect
2180         Storage_Model_Type.
2181         (Storage_Model_Null_Address): New function that returns the
2182         Null_Address constant associated with a type that has aspect
2183         Storage_Model_Type.
2184         (Storage_Model_Allocate): New function that returns the Allocate
2185         procedure associated with a type that has aspect
2186         Storage_Model_Type.
2187         (Storage_Model_Deallocate): New function that returns the
2188         Deallocate procedure associated with a type that has aspect
2189         Storage_Model_Type.
2190         (Storage_Model_Copy_From): New function that returns the
2191         Copy_From procedure associated with a type that has aspect
2192         Storage_Model_Type.
2193         (Storage_Model_Copy_To): New function that returns the Copy_To
2194         procedure associated with a type that has aspect
2195         Storage_Model_Type.
2196         (Storage_Model_Storage_Size): New function that returns the
2197         Storage_Size function associated with a type that has aspect
2198         Storage_Model_Type.
2199         * sem_util.adb (package Storage_Model_Support): Body of new
2200         nested package that contains the implementations the utility
2201         functions declared in the spec of this package.
2202         * snames.ads-tmpl: Add new names Name_Designated_Storage_Pool,
2203         Name_Storage_Model, Name_Storage_Model_Type, Name_Address_Type,
2204         Name_Copy_From, Name_Copy_To, and Name_Null_Address for the new
2205         aspects and associated aspect arguments.
2207 2021-10-05  Richard Kenner  <kenner@adacore.com>
2209         * debug.adb: Add documentation for -gnatd_t.
2211 2021-10-05  Corentin Gay  <gay@adacore.com>
2213         * sysdep.c (__gnat_is_file_not_found_error): Add else if case.
2215 2021-10-05  Piotr Trojanek  <trojanek@adacore.com>
2217         * exp_util.adb (Build_Class_Wide_Expression): Replace entities
2218         of both identifiers and operator symbols.
2220 2021-10-05  Piotr Trojanek  <trojanek@adacore.com>
2222         * sem_ch3.adb (Derive_Subprogram): Copy ghost status from parent
2223         to derived subprogram.
2225 2021-10-05  Joffrey Huguet  <huguet@adacore.com>
2227         * libgnat/a-strunb.ads, libgnat/a-strunb__shared.ads: Add
2228         Default_Initial_Condition to Unbounded_String.
2230 2021-10-05  Claire Dross  <dross@adacore.com>
2232         * libgnat/a-cfdlli.ads: Use pragma Assertion_Policy to disable
2233         contract cases at execution.
2234         * libgnat/a-cfinve.ads: Idem.
2235         * libgnat/a-cofove.ads: Idem.
2236         * libgnat/a-cfhase.ads: Idem.
2237         * libgnat/a-cfhama.ads: Idem.
2238         * libgnat/a-cforse.ads: Idem.
2239         * libgnat/a-cforma.ads: Idem.
2241 2021-10-05  Bob Duff  <duff@adacore.com>
2243         * par-ch4.adb (P_Iterated_Component_Association): Parse these
2244         features the same way in all language versions.  Move the call
2245         to Error_Msg_Ada_2022_Feature into semantic analysis.
2246         * sem_aggr.adb (Resolve_Iterated_Component_Association,
2247         Resolve_Iterated_Association): Move the call to
2248         Error_Msg_Ada_2022_Feature here from par-ch4.adb.
2250 2021-10-05  Yannick Moy  <moy@adacore.com>
2252         * sem_res.adb (Resolve): Recognize specially that case.
2254 2021-10-05  Yannick Moy  <moy@adacore.com>
2256         * libgnat/a-strmap.adb: Add ghost code for proof.
2257         (To_Range): This is the most involved proof, as it requires
2258         creating the result of the call to To_Domain as a ghost
2259         variable, and show the unicity of this result in order to prove
2260         the postcondition.
2261         * libgnat/a-strmap.ads: (SPARK_Proof_Sorted_Character_Sequence):
2262         New ghost function.
2263         (To_Domain): Add postcondition regarding sorting of result.
2264         (To_Range): Fix postcondition that should compare Length instead
2265         of Last for the results of To_Domain and To_Range, as the value
2266         of Last for an empty result is not specified in the Ada RM.
2268 2021-10-05  Yannick Moy  <moy@adacore.com>
2270         * libgnat/a-chahan.adb: Add loop invariants as needed to prove
2271         subprograms.  Also use extended return statements where
2272         appropriate and not done already.  Mark data with
2273         Relaxed_Initialization where needed for initialization by parts.
2274         Convert regular functions to expression functions where needed
2275         for proof.
2276         * libgnat/a-chahan.ads: Add postconditions.
2277         * libgnat/a-strmap.ads (Model): New ghost function to create a
2278         publicly visible model of the private data Character_Mapping,
2279         needed in order to prove subprograms in Ada.Characters.Handling.
2281 2021-10-04  Justin Squirek  <squirek@adacore.com>
2283         * doc/gnat_rm/standard_and_implementation_defined_restrictions.rst:
2284         Add new entry for No_Dynamic_Accessibility_Checks documenting
2285         behavior.
2286         * gnat_rm.texi: Regenerate.
2287         * exp_ch4.adb (Expand_N_In): Perform special expansion for
2288         membership tests when No_Dynamic_Accessibility_Checks is active.
2289         * sem_attr.adb (Resolve_Attribute): Skip static accessibility
2290         check on actuals for anonymous access type formal parameters,
2291         and add constants for readability.
2292         * sem_util.adb (Function_Call_Or_Allocator_Level): Use the
2293         innermost master for determining the level for function calls
2294         within the alternative accessibility model.
2295         (Type_Access_Level): Properly get the level for anonymous access
2296         function result types.
2298 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2300         * doc/gnat_ugn/building_executable_programs_with_gnat.rst
2301         (gnateA): This switch no longer looks at the formal parameter
2302         type being composite (as originally mandated by SPARK), but in
2303         the parameter passing mechanism being not specified (as
2304         currently mandated by Ada).
2305         * gnat_ugn.texi: Regenerate.
2307 2021-10-04  Ed Schonberg  <schonberg@adacore.com>
2309         * sem_ch6.adb (Analyze_Operator_Symbol): Recognize strings as
2310         operator names when they are the value of one of the Ada2022
2311         aspects for User_Defined_Literals.
2312         * sem_ch13.adb (Analyze_One_Aspect): Handle an aspect value
2313         given by an Operator_Name.
2314         (Validate_Literal_Aspect): Call Analyze_Operator_Symbol when
2315         needed.
2317 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2319         * gen_il-gen.adb (Put_Make_Spec): Don't emit the LF character in
2320         the middle of a string, because the Put routine won't indent it
2321         properly.
2323 2021-10-04  Ghjuvan Lacambre  <lacambre@adacore.com>
2325         * gnat_cuda.adb (Remove_CUDA_Device_Entities): New function.
2326         (Expand_CUDA_Package): Call Remove_CUDA_Device_Entities.
2327         * gnat_cuda.ads (Expand_CUDA_Package): Expand documentation.
2328         * sem_prag.adb (Analyze_Pragma): Remove warning about
2329         CUDA_Device not being implemented.
2331 2021-10-04  Gary Dismukes  <dismukes@adacore.com>
2333         * sem_ch7.adb (Analyze_Package_Specification): For types marked
2334         as Must_Have_Preelab_Init, we now check for the presence of a
2335         Preelaborable_Initialization aspect on the type, and pass the
2336         aspect's expression (if any) on the call to
2337         Has_Preelaborable_Initialization (or pass Empty if the type has
2338         no such aspect or the aspect has no associated expression).
2339         * sem_util.ads (Has_Preelaborable_Initialization): Change
2340         Boolean formal parameter Formal_Types_Have_Preelab_Init to
2341         instead be a formal of type Node_Id (named Preelab_Init_Expr),
2342         to allow passing an expression that may be a conjunction of
2343         Preelaborable_Initialization aspects. Revise spec comment
2344         accordingly (and remove ??? comment).
2345         * sem_util.adb (Type_Named_In_Preelab_Init_Expression): New
2346         nested function with a result indicating whether a given type is
2347         named as the prefix of a Preelaborable_Initialization attribute
2348         in the expression of a corresponding P_I aspect.
2349         (Has_Preelaborable_Initialization): For generic formal derived
2350         and private types, test whether the type is named in the
2351         expression Preelab_Init_Expr (by calling
2352         Type_Named_In_Preelab_Init_Expression), and if so, treat the
2353         formal type as having preelaborable initialization (returning
2354         True).
2355         * libgnat/a-cobove.ads (Vector): Replace pragma
2356         Preelaborable_Initialization with the aspect, specifying its
2357         value as Element_Type'Preelaborable_Initialization.
2358         (Cursor): Replace pragma P_I with the aspect (defaulting to
2359         True).
2360         * libgnat/a-cbdlli.ads (List): Replace pragma
2361         Preelaborable_Initialization with the aspect, specifying its
2362         value as Element_Type'Preelaborable_Initialization.
2363         (Cursor): Replace pragma P_I with the aspect (defaulting to
2364         True).
2365         * libgnat/a-cbhama.ads (Map): Replace pragma
2366         Preelaborable_Initialization with the aspect, specifying its
2367         value as (Element_Type'Preelaborable_Initialization and
2368         Key_Type'Preelaborable_Initialization).
2369         (Cursor): Replace pragma P_I with the aspect (defaulting to
2370         True).
2371         * libgnat/a-cborma.ads (Map): Replace pragma
2372         Preelaborable_Initialization with the aspect, specifying its
2373         value as (Element_Type'Preelaborable_Initialization and
2374         Key_Type'Preelaborable_Initialization).
2375         (Cursor): Replace pragma P_I with the aspect (defaulting to
2376         True).
2377         * libgnat/a-cbhase.ads (Set): Replace pragma
2378         Preelaborable_Initialization with the aspect, specifying its
2379         value as Element_Type'Preelaborable_Initialization.
2380         (Cursor): Replace pragma P_I with the aspect (defaulting to
2381         True).
2382         * libgnat/a-cborse.ads (Set): Replace pragma
2383         Preelaborable_Initialization with the aspect, specifying its
2384         value as Element_Type'Preelaborable_Initialization.
2385         (Cursor): Replace pragma P_I with the aspect (defaulting to
2386         True).
2387         * libgnat/a-cbmutr.ads (Tree): Replace pragma
2388         Preelaborable_Initialization with the aspect, specifying its
2389         value as Element_Type'Preelaborable_Initialization.
2390         (Cursor): Replace pragma P_I with the aspect (defaulting to
2391         True).
2392         * libgnat/a-coboho.ads (Holder): Replace pragma
2393         Preelaborable_Initialization with the aspect, specifying its
2394         value as Element_Type'Preelaborable_Initialization.
2395         (Cursor): Replace pragma P_I with the aspect (defaulting to
2396         True).
2398 2021-10-04  Yannick Moy  <moy@adacore.com>
2400         * libgnat/a-textio.adb: Mark body out of SPARK.
2401         * libgnat/a-textio.ads: Mark spec in SPARK and private part out
2402         of SPARK.
2403         * sem.adb (Semantics.Do_Analyze): Similar to ghost code
2404         attributes, save and restore value of
2405         Ignore_SPARK_Mode_Pragmas_In_Instance.
2407 2021-10-04  Bob Duff  <duff@adacore.com>
2409         * libgnat/s-regpat.ads: Change Data_First to Data'First. Change
2410         "still" to "always".  Similar changes for Data_Last.
2412 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2414         * sprint.adb (Sprint_Node_Actual): Refactor code for generic
2415         package and subprogram declarations.
2417 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2419         * sem_res.adb (Resolve_Indexed_Component, Resolve_Slice): Rename
2420         the local constant Name to Pref; remove repeated calls to
2421         Prefix.
2423 2021-10-04  Matthieu Eyraud  <eyraud@adacore.com>
2425         * scos.ads: Extend the documentation.
2426         * par_sco.adb (Process_Decisions): Emit specific SCOs for
2427         quantified expressions.
2429 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2431         * checks.adb (Selected_Range_Checks): Fix style.
2432         * exp_ch4.adb (Expand_N_Slice): Fix style and comment.
2433         * sem_res.adb (Resolve_Indexed_Component): Fix style.
2435 2021-10-04  Yannick Moy  <moy@adacore.com>
2437         * libgnat/a-strbou.ads: Add comments.
2439 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2441         * sem_attr.adb (Eval_Attribute): Evaluation of attribute
2442         Leading_Part with illegal second parameter is now similar to
2443         evaluation of Remainder with its second parameter being zero.
2445 2021-10-04  Ed Schonberg  <schonberg@adacore.com>
2447         * sem_res.adb (Resolve_Declare_Expression): Use tree traversals
2448         to perform name capture of local entities in the expression of
2449         the construct.
2450         * exp_util.adb (Possible_Side_Effects_In_SPARK): Do not apply to
2451         the prefix of an attribute reference Reduce when that prefix is
2452         an aggregate, because it will be expanded into a loop, and has
2453         no identifiable type.
2455 2021-10-04  Javier Miranda  <miranda@adacore.com>
2457         * sem_ch8.adb (Build_Class_Wide_Wrapper): Fix handling of
2458         class-wide subtypes; required to handle chains of
2459         instantiations. Adding also code to identify these wrappers and
2460         properly resolve instantiations where the wrapper and a tagged
2461         type primitive are visible.
2462         * einfo.ads (Is_Class_Wide_Wrapper): Adding documentation.
2463         * gen_il-fields.ads (Opt_Field_Enum): Adding
2464         Is_Class_Wide_Wrapper.
2465         * gen_il-gen-gen_entities.adb (Root_Entity_Type): Adding
2466         semantic flag Is_Class_Wide_Wrapper.
2468 2021-10-04  Bob Duff  <duff@adacore.com>
2470         * einfo.ads (Declaration_Node): Document that Declaration_Node
2471         for Itypes.
2472         * einfo-utils.adb (Declaration_Node): Make it return Empty for
2473         Itypes, or a proper type or subtype declaration.
2474         * gen_il-gen.adb: Minor comment improvement.
2476 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2478         * sem_res.adb (Resolve_Slice): Fix application of range checks
2479         to slice range given as a subtype name.
2481 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2483         * sem_res.adb (Resolve_Slice): Handle range given as a subtype
2484         indication.
2486 2021-10-04  Piotr Trojanek  <trojanek@adacore.com>
2488         * sem_res.adb (Resolve_Slice): Add custom handling of attribute
2489         Image and similar in CodePeer mode. This complements the
2490         existing custom handling of these attributes in
2491         Expand_N_Attribute_Reference.
2493 2021-10-04  Justin Squirek  <squirek@adacore.com>
2495         * sem_util.adb (Is_Variable): Add check for implicitly
2496         dereferenced access types
2497         (Is_Dependent_Component_Of_Mutable_Object): Set Prefix_Type when
2498         not specified.
2500 2021-10-04  Eric Botcazou  <ebotcazou@adacore.com>
2502         * doc/gnat_ugn/the_gnat_compilation_model.rst (Binding generation):
2503         Document specific behavior for /include/-ending paths and update.
2504         * gnat_ugn.texi: Regenerate.
2506 2021-10-04  Arnaud Charlet  <charlet@adacore.com>
2508         PR ada/102073
2509         * socket.c (__gnat_gethostbyaddr, __gnat_inet_pton): Add missing
2510         return statements.
2512 2021-10-04  Justin Squirek  <squirek@adacore.com>
2514         * sem_util.adb (Function_Or_Allocator_Level): Properly handle
2515         direct function calls in the default alternative accessibility
2516         checking mode.
2518 2021-10-04  Javier Miranda  <miranda@adacore.com>
2520         * sem_util.adb (Is_Library_Level_Entity): Return False for
2521         entities defined in E_Loop scopes. This change is not required
2522         by the frontend; it is required by tools that depend on the
2523         frontend sources.
2524         * einfo-utils.adb (Is_Dynamic_Scope): Code cleanup.
2526 2021-10-04  Justin Squirek  <squirek@adacore.com>
2528         * sem_util.adb (Accessibility_Level): Add a case to handle
2529         renamed subprograms in addition to renamed objects.
2531 2021-10-04  Doug Rupp  <rupp@adacore.com>
2533         * libgnarl/s-osinte__vxworks.ads (tlsKeyCreate): Return int.
2534         * libgnarl/s-tpopsp__vxworks-rtp.adb (ERROR): Declare from
2535         System.VxWorks.Ext.ERROR.
2536         (Initialize): Declare IERR. Assert it.
2537         * libgnarl/s-tpopsp__vxworks.adb (ERROR): Declare from
2538         System.VxWorks.Ext.ERROR.
2539         (Is_Valid_Task): Declare IERR. Test return.
2540         * libgnarl/s-vxwext__kernel.adb (semDelete): Return STATUS.
2542 2021-10-04  Eric Botcazou  <ebotcazou@adacore.com>
2544         * exp_disp.adb (Make_DT): Copy the Needs_Debug_Info flag from the
2545         type onto the TSD object.
2547 2021-10-04  Steve Baird  <baird@adacore.com>
2549         * sem_util.adb (Is_Repeatedly_Evaluated): Handle the case of an
2550         Old attribute reference that occurs within what was originally a
2551         quantified expression but which expansion has transformed into
2552         an Expression_With_Actions.
2554 2021-10-04  Steve Baird  <baird@adacore.com>
2556         * exp_ch4.adb (Expand_N_Indexed_Component): The two improvements
2557         described above.
2559 2021-10-01  Bob Duff  <duff@adacore.com>
2561         * exp_ch6.adb (Expand_Call_Helper): Do not call
2562         Check_Subprogram_Variant if the subprogram is an ignored ghost
2563         entity. Otherwise the compiler crashes (in debug builds) or
2564         gives strange error messages (in production builds).
2566 2021-10-01  Ghjuvan Lacambre  <lacambre@adacore.com>
2568         * gnat_cuda.adb (Empty_CUDA_Global_Subprograms): New procedure.
2569         (Expand_CUDA_Package): Call Empty_CUDA_Global_Subprograms.
2571 2021-10-01  Steve Baird  <baird@adacore.com>
2573         * checks.ads: Define a type Dimension_Set. Add an out-mode
2574         parameter of this new type to Generate_Index_Checks so that
2575         callers can know for which dimensions a check was generated. Add
2576         an in-mode parameter of this new type to
2577         Apply_Subscript_Validity_Checks so that callers can indicate
2578         that no check is needed for certain dimensions.
2579         * checks.adb (Generate_Index_Checks): Implement new
2580         Checks_Generated parameter.
2581         (Apply_Subscript_Validity_Checks): Implement new No_Check_Needed
2582         parameter.
2583         * exp_ch4.adb (Expand_N_Indexed_Component): Call
2584         Apply_Subscript_Validity_Checks in more cases than before. This
2585         includes declaring two new local functions,
2586         (Is_Renamed_Variable_Name,
2587         Type_Requires_Subscript_Validity_Checks_For_Reads): To help in
2588         deciding whether to call Apply_Subscript_Validity_Checks.
2589         Adjust to parameter profile changes in Generate_Index_Checks and
2590         Apply_Subscript_Validity_Checks.
2592 2021-10-01  Eric Botcazou  <ebotcazou@adacore.com>
2594         * doc/gnat_rm/implementation_defined_characteristics.rst: Document
2595         the rounding mode assumed for dynamic computations as per 3.5.7(16).
2596         * gnat_rm.texi: Regenerate.
2598 2021-10-01  Bob Duff  <duff@adacore.com>
2600         * table.ads (Table_Type): Remove "aliased"; no longer needed by
2601         Atree.  Besides it contradicted the comment a few lines above,
2602         "--  Note: We do not make the table components aliased...".
2603         * types.ads: Move type Slot to Atree.
2604         * atree.ads: Move type Slot fromt Types to here.  Move type
2605         Node_Header from Seinfo to here.
2606         * atree.adb: Avoid the need for aliased components of the Slots
2607         table.  Instead of 'Access, use a getter and setter.  Misc
2608         cleanups.
2609         (Print_Statistics): Print statistics about node and entity kind
2610         frequencies. Give 3 digit fractions instead of percentages.
2611         * (Get_Original_Node_Count, Set_Original_Node_Count): Statistics
2612         for calls to Original_Node and Set_Original_Node.
2613         (Original_Node, Set_Original_Node): Gather statistics by calling
2614         the above.
2615         (Print_Field_Statistics): Print Original_Node statistics.
2616         (Update_Kind_Statistics): Remove, and put all statistics
2617         gathering under "if Atree_Statistics_Enabled", which is a flag
2618         generated in Seinfo by Gen_IL.
2619         * gen_il-gen.adb (Compute_Field_Offsets): Choose offsets of
2620         Nkind, Ekind, and Homonym first. This causes a slight efficiency
2621         improvement.  Misc cleanups.  Do not generate Node_Header; it is
2622         now hand-written in Atree.  When choosing the order in which to
2623         assign offsets, weight by the frequency of the node type, so the
2624         more common nodes get their field offsets assigned earlier.  Add
2625         more special cases.
2626         (Compute_Type_Sizes): Remove this and related things.
2627         There was a comment: "At some point we can instrument Atree to
2628         print out accurate size statistics, and remove this code." We
2629         have Atree statistics, so we now remove this code.
2630         (Put_Seinfo): Generate Atree_Statistics_Enabled, which is equal
2631         to Statistics_Enabled. This allows Atree to say "if
2632         Atree_Statistics_Enabled then <gather statistics>" for
2633         efficiency. When Atree_Statistics_Enabled is False, the "if ..."
2634         will be optimized away.
2635         * gen_il-internals.ads (Type_Frequency): New table of kind
2636         frequencies.
2637         * gen_il-internals.adb: Minor comment improvement.
2638         * gen_il-fields.ads: Remove unused subtypes.  Suppress style
2639         checks in the Type_Frequency table.  If we regenerate this
2640         table (see -gnatd.A) we don't want to have to fiddle with
2641         casing.
2642         * impunit.adb: Minor.
2643         * sinfo-utils.adb: Minor.
2644         * debug.adb: Minor comment improvement.
2646 2021-10-01  Eric Botcazou  <ebotcazou@adacore.com>
2648         * sem_type.adb (Specific_Type): Check that the type is tagged
2649         before calling Interface_Present_In_Ancestor on it.
2651 2021-10-01  Eric Botcazou  <ebotcazou@adacore.com>
2653         * debug.adb (d.8): Document usage.
2654         * fe.h (Debug_Flag_Dot_8): Declare.
2656 2021-10-01  Gary Dismukes  <dismukes@adacore.com>
2658         * sem_util.adb (Enter_Name): Suppress hiding warning when in an
2659         instance.
2661 2021-10-01  Ed Schonberg  <schonberg@adacore.com>
2663         * sem_attr.adb (Analyze_Attribute, case Type_Key): Attribute can
2664         be applied to a formal type.
2665         * sem_ch5.adb (Analyze_Case_Statement): If Extensions_Allowed is
2666         not enabled, verify that the type of the expression is discrete.
2668 2021-10-01  Justin Squirek  <squirek@adacore.com>
2670         * exp_dbug.adb (Debug_Renaming_Declaration): Add check for
2671         Entity present for Ren to prevent looking at unanalyzed nodes
2673 2021-10-01  Ghjuvan Lacambre  <lacambre@adacore.com>
2675         * atree.adb (Print_Statistics): Help CodePeer see Total as
2676         greater than zero.
2677         * gen_il-gen.adb (One_Comp): Annotate Field_Table as Modified.
2679 2021-10-01  Richard Kenner  <kenner@adacore.com>
2681         * gen_il-gen-gen_entities.adb (Evaluable_Kind,
2682         Global_Name_Kind): Add.
2683         * gen_il-types.ads (Evaluable_Kind, Global_Name_Kind): Likewise.
2685 2021-10-01  Ghjuvan Lacambre  <lacambre@adacore.com>
2687         * aspects.ads: Add CUDA_Device aspect.
2688         * gnat_cuda.ads (Add_CUDA_Device_Entity): New subprogram.
2689         * gnat_cuda.adb:
2690         (Add_CUDA_Device_Entity): New subprogram.
2691         (CUDA_Device_Entities_Table): New hashmap for CUDA_Device
2692         entities.
2693         (Get_CUDA_Device_Entities): New internal subprogram.
2694         (Set_CUDA_Device_Entities): New internal subprogram.
2695         * par-prag.adb (Prag): Handle pragma id Pragma_CUDA_Device.
2696         * sem_prag.ads (Aspect_Specifying_Pragma): Mark CUDA_Device as
2697         being both aspect and pragma.
2698         * sem_prag.adb (Analyze_Pragma): Add CUDA_Device entities to
2699         list of CUDA_Entities belonging to package N.
2700         (Sig_Flags): Signal CUDA_Device entities as referenced.
2701         * snames.ads-tmpl: Create CUDA_Device names and pragmas.
2703 2021-10-01  Gary Dismukes  <dismukes@adacore.com>
2705         * exp_util.adb (Build_DIC_Procedure_Body): Remove inappropriate
2706         Assert pragma.  Remove unneeded and dead code related to derived
2707         private types.
2709 2021-10-01  Richard Kenner  <kenner@adacore.com>
2711         * gen_il-gen-gen_nodes.adb (N_Alternative, N_Is_Case_Choice):
2712         Add.
2713         (N_Is_Exception_Choice, N_Is_Range): Likewise.
2714         * gen_il-types.ads: Add above names.
2715         * gen_il-gen.adb (Put_Union_Membership): Write both declarations
2716         and definitions of union functions.
2718 2021-10-01  Ed Schonberg  <schonberg@adacore.com>
2720         * exp_aggr.adb (Expand_Array_Aggregate,
2721         Two_Pass_Aggregate_Expansion): Increment index for element
2722         insertion within the loop, only if upper bound has not been
2723         reached.
2725 2021-10-01  Javier Miranda  <miranda@adacore.com>
2727         * contracts.ads (Make_Class_Precondition_Subps): New subprogram.
2728         (Merge_Class_Conditions): New subprogram.
2729         (Process_Class_Conditions_At_Freeze_Point): New subprogram.
2730         * contracts.adb (Check_Class_Condition): New subprogram.
2731         (Set_Class_Condition): New subprogram.
2732         (Analyze_Contracts): Remove code analyzing class-wide-clone
2733         subprogram since it is no longer built.
2734         (Process_Spec_Postconditions): Avoid processing twice seen
2735         subprograms.
2736         (Process_Preconditions): Simplify its functionality to
2737         non-class-wide preconditions.
2738         (Process_Preconditions_For): No action needed for wrappers and
2739         helpers.
2740         (Make_Class_Precondition_Subps): New subprogram.
2741         (Process_Class_Conditions_At_Freeze_Point): New subprogram.
2742         (Merge_Class_Conditions): New subprogram.
2743         * exp_ch6.ads (Install_Class_Preconditions_Check): New
2744         subprogram.
2745         * exp_ch6.adb (Expand_Call_Helper): Install class-wide
2746         preconditions check on dispatching primitives that have or
2747         inherit class-wide preconditions.
2748         (Freeze_Subprogram): Remove code for null procedures with
2749         preconditions.
2750         (Install_Class_Preconditions_Check): New subprogram.
2751         * exp_util.ads (Build_Class_Wide_Expression): Lower the
2752         complexity of this subprogram; out-mode formal Needs_Wrapper
2753         since this functionality is now provided by a new subprogram.
2754         (Get_Mapped_Entity): New subprogram.
2755         (Map_Formals): New subprogram.
2756         * exp_util.adb (Build_Class_Wide_Expression): Lower the
2757         complexity of this subprogram. Its previous functionality is now
2758         provided by subprograms Needs_Wrapper and Check_Class_Condition.
2759         (Add_Parent_DICs): Map the overridden primitive to the
2760         overriding one.
2761         (Get_Mapped_Entity): New subprogram.
2762         (Map_Formals): New subprogram.
2763         (Update_Primitives_Mapping): Adding assertion.
2764         * freeze.ads (Check_Inherited_Conditions): Subprogram made
2765         public with added formal to support late overriding.
2766         * freeze.adb (Check_Inherited_Conditions): New implementation;
2767         builds the dispatch table wrapper required for class-wide
2768         pre/postconditions; added support for late overriding.
2769         (Needs_Wrapper): New subprogram.
2770         * sem.ads (Inside_Class_Condition_Preanalysis): New global
2771         variable.
2772         * sem_disp.ads (Covered_Interface_Primitives): New subprogram.
2773         * sem_disp.adb (Covered_Interface_Primitives): New subprogram.
2774         (Check_Dispatching_Context): Skip checking context of
2775         dispatching calls during preanalysis of class-wide conditions
2776         since at that stage the expression is not installed yet on its
2777         definite context.
2778         (Check_Dispatching_Call): Skip checking 6.1.1(18.2/5) by
2779         AI12-0412 on helpers and wrappers internally built for
2780         supporting class-wide conditions; for late-overriding
2781         subprograms call Check_Inherited_Conditions to build the
2782         dispatch-table wrapper (if required).
2783         (Propagate_Tag): Adding call to
2784         Install_Class_Preconditions_Check.
2785         * sem_util.ads (Build_Class_Wide_Clone_Body): Removed.
2786         (Build_Class_Wide_Clone_Call): Removed.
2787         (Build_Class_Wide_Clone_Decl): Removed.
2788         (Class_Condition): New subprogram.
2789         (Nearest_Class_Condition_Subprogram): New subprogram.
2790         * sem_util.adb (Build_Class_Wide_Clone_Body): Removed.
2791         (Build_Class_Wide_Clone_Call): Removed.
2792         (Build_Class_Wide_Clone_Decl): Removed.
2793         (Class_Condition): New subprogram.
2794         (Nearest_Class_Condition_Subprogram): New subprogram.
2795         (Eligible_For_Conditional_Evaluation): No need to evaluate
2796         class-wide conditions during preanalysis since the expression is
2797         not installed on its definite context.
2798         * einfo.ads (Class_Wide_Clone): Removed.
2799         (Class_Postconditions): New attribute.
2800         (Class_Preconditions): New attribute.
2801         (Class_Preconditions_Subprogram): New attribute.
2802         (Dynamic_Call_Helper): New attribute.
2803         (Ignored_Class_Postconditions): New attribute.
2804         (Ignored_Class_Preconditions): New attribute.
2805         (Indirect_Call_Wrapper): New attribute.
2806         (Is_Dispatch_Table_Wrapper): New attribute.
2807         (Static_Call_Helper): New attribute.
2808         * exp_attr.adb (Expand_N_Attribute_Reference): When the prefix
2809         is of an access-to-subprogram type that has class-wide
2810         preconditions and an indirect-call wrapper of such subprogram is
2811         available, replace the prefix by the wrapper.
2812         * exp_ch3.adb (Build_Class_Condition_Subprograms): New
2813         subprogram.
2814         (Register_Dispatch_Table_Wrappers): New subprogram.
2815         * exp_disp.adb (Build_Class_Wide_Check): Removed; class-wide
2816         precondition checks now rely on internally built helpers.
2817         * sem_ch13.adb (Analyze_Aspect_Specifications): Set initial
2818         value of attributes Class_Preconditions, Class_Postconditions,
2819         Ignored_Class_Preconditions and Ignored_Class_Postconditions.
2820         These values are later updated with the full pre/postcondition
2821         by Merge_Class_Conditions.
2822         (Freeze_Entity_Checks): Call
2823         Process_Class_Conditions_At_Freeze_Point.
2824         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Remove code
2825         building the body of the class-wide clone subprogram since it is
2826         no longer required.
2827         (Install_Entity): Adding assertion.
2828         * sem_prag.adb (Analyze_Pre_Post_Condition_In_Decl_Part): Remove
2829         code building and analyzing the class-wide clone subprogram; no
2830         longer required.
2831         (Build_Pragma_Check_Equivalent): Adjust call to
2832         Build_Class_Wide_Expression since the formal named Needs_Wrapper
2833         has been removed.
2834         * sem_attr.adb (Analyze_Attribute_Old_Result): Skip processing
2835         these attributes during preanalysis of class-wide conditions
2836         since at that stage the expression is not installed yet on its
2837         definite context.
2838         * sem_res.adb (Resolve_Actuals): Skip applying RM 3.9.2(9/1) and
2839         SPARK RM 6.1.7(3) on actuals of internal helpers and wrappers
2840         built to support class-wide preconditions.
2841         * sem_ch5.adb (Process_Bounds): Do not generate a constant
2842         declaration for the bounds when we are preanalyzing a class-wide
2843         condition.
2844         (Analyze_Loop_Parameter_Specification): Handle preanalysis of
2845         quantified expression placed in the outermost expression of a
2846         class-wide condition.
2847         * ghost.adb (Check_Ghost_Context): No check required during
2848         preanalysis of class-wide conditions.
2849         * gen_il-fields.ads (Opt_Field_Enum): Adding
2850         Class_Postconditions, Class_Preconditions,
2851         Class_Preconditions_Subprogram, Dynamic_Call_Helper,
2852         Ignored_Class_Postconditions, Ignored_Class_Preconditions,
2853         Indirect_Call_Wrapper, Is_Dispatch_Table_Wrapper,
2854         Static_Call_Helper.
2855         * gen_il-gen-gen_entities.adb (Is_Dispatch_Table_Wrapper):
2856         Adding semantic flag Is_Dispatch_Table_Wrapper; removing
2857         semantic field Class_Wide_Clone; adding semantic fields for
2858         Class_Postconditions, Class_Preconditions,
2859         Class_Preconditions_Subprogram, Dynamic_Call_Helper,
2860         Ignored_Class_Postconditions, Indirect_Call_Wrapper,
2861         Ignored_Class_Preconditions, and Static_Call_Helper.
2863 2021-10-01  Piotr Trojanek  <trojanek@adacore.com>
2865         * comperr.adb (Delete_SCIL_Files): Handle generic subprogram
2866         declarations and renaming just like generic package declarations
2867         and renamings, respectively; handle
2868         N_Subprogram_Renaming_Declaration.
2870 2021-10-01  Steve Baird  <baird@adacore.com>
2872         * bcheck.adb (Check_Versions): Add support for the case where
2873         the .ali file contains both a primary and a secondary version
2874         number, as in "GNAT Lib v22.20210809".
2876 2021-10-01  Steve Baird  <baird@adacore.com>
2878         * sem_res.adb (Resolve): Two separate fixes. In the case where
2879         Find_Aspect for a literal aspect returns the aspect for a
2880         different (ancestor) type, call Corresponding_Primitive_Op to
2881         get the right callee. In the case where a downward tagged type
2882         conversion appears to be needed, generate a null extension
2883         aggregate instead, as per Ada RM 3.4(27).
2884         * sem_util.ads, sem_util.adb: Add new Corresponding_Primitive_Op
2885         function. It maps a primitive op of a tagged type and a
2886         descendant type of that tagged type to the corresponding
2887         primitive op of the descendant type. The body of this function
2888         was written by Javier Miranda.
2890 2021-10-01  Bob Duff  <duff@adacore.com>
2892         * atree.adb: Gather and print statistics about frequency of
2893         getter and setter calls.
2894         * atree.ads (Print_Statistics): New procedure for printing
2895         statistics.
2896         * debug.adb: Document -gnatd.A switch.
2897         * gen_il-gen.adb: Generate code for statistics gathering.
2898         Choose the offset of Homonym early.  Misc cleanup.  Put more
2899         comments in the generated code.
2900         * gen_il-internals.ads (Unknown_Offset): New value to indicate
2901         that the offset has not yet been chosen.
2902         * gnat1drv.adb: Call Print_Statistics.
2903         * libgnat/s-imglli.ads: Minor comment fix.
2904         * output.ads (Write_Int_64): New procedure to write a 64-bit
2905         value.  Needed for new statistics, and could come in handy
2906         elsewhere.
2907         * output.adb (Write_Int_64): Likewise.
2908         * sinfo.ads: Remove obsolete comment. The xtreeprs program no
2909         longer exists.
2910         * types.ads: New 64-bit types needed for new statistics.
2912 2021-10-01  Dmitriy Anisimkov  <anisimko@adacore.com>
2914         * libgnat/memtrack.adb (Putc): New routine wrapped around fputc
2915         with error check.
2916         (Write): New routine wrapped around fwrite with error check.
2917         Remove bound functions fopen, fwrite, fputs, fclose, OS_Exit.
2918         Use the similar routines from System.CRTL and System.OS_Lib.
2920 2021-10-01  Ed Schonberg  <schonberg@adacore.com>
2922         * exp_aggr.adb (Must_Slide): If the aggregate only contains an
2923         others_clause no sliding id involved. Otherwise sliding is
2924         required if any bound of the aggregate or the context subtype is
2925         non-static.
2927 2021-10-01  Richard Kenner  <kenner@adacore.com>
2929         * gen_il-gen-gen_nodes.adb (N_Is_Decl): Add.
2930         * gen_il-types.ads (N_Is_Decl): Likewise.
2932 2021-10-01  Richard Kenner  <kenner@adacore.com>
2934         * gen_il-gen-gen_nodes.adb (N_Entity_Name): Add.
2935         * gen_il-types.ads (N_Entity_Name): Likewise.
2937 2021-10-01  Steve Baird  <baird@adacore.com>
2939         * bcheck.adb (Check_Versions): In the case of an ali file
2940         version mismatch, if distinct integer values can be extracted
2941         from the two version strings then include those values in the
2942         generated error message.
2944 2021-10-01  Steve Baird  <baird@adacore.com>
2946         * sem_elab.adb (Is_Safe_Call): Return True in the case of a
2947         (possibly rewritten) call to an expression function.
2949 2021-10-01  Ghjuvan Lacambre  <lacambre@adacore.com>
2951         * sem_aggr.adb (Resolve_Iterated_Component_Association):
2952         Initialize Id_Typ to Any_Type by default.
2954 2021-10-01  Eric Botcazou  <ebotcazou@adacore.com>
2956         * doc/gnat_ugn/gnat_and_program_execution.rst (gnatmem): Document
2957         that it works only with fixed-position executables.
2959 2021-10-01  Doug Rupp  <rupp@adacore.com>
2961         * libgnat/s-parame__vxworks.ads (time_t_bits): Change to
2962         Long_Long_Integer'Size.
2964 2021-09-23  Eric Botcazou  <ebotcazou@adacore.com>
2966         * gcc-interface/decl.c (gnat_to_gnu_entity): Fix comment.
2968 2021-09-23  Richard Kenner  <kenner@adacore.com>
2970         * gen_il-gen-gen_entities.adb (Subprogram_Body_Or_Type): Add.
2971         * gen_il-types.ads (Subprogram_Body_Or_Type): Likewise.
2973 2021-09-23  Richard Kenner  <kenner@adacore.com>
2975         * einfo-utils.adb (Next_Index): Verify input and output are
2976         N_Is_Index.
2977         * gen_il-gen-gen_nodes.adb (N_Has_Bounds, N_Is_Index): Add.
2978         * gen_il-types.ads (N_Has_Bounds, N_Is_Index): Likewise.
2979         * sem_ch3.adb (Array_Type_Declaration): Use Next, not
2980         Next_Index.
2981         * sem_ch12.adb (Formal_Dimensions): Likewise.
2982         * sem_util.adb (Is_Valid_Renaming): Likewise.
2984 2021-09-23  Eric Botcazou  <ebotcazou@adacore.com>
2986         * doc/gnat_ugn/gnat_utility_programs.rst (gnatsymbolize):
2987         Document new --load option and -g1 as minimal compilation
2988         requirement.
2990 2021-09-23  Piotr Trojanek  <trojanek@adacore.com>
2992         * sem_aggr.adb (Resolve_Array_Aggregate): Only keep the bounds
2993         for internally generated attributes; otherwise, compute them
2994                 anew.
2996 2021-09-23  Javier Miranda  <miranda@adacore.com>
2998         * sem_ch3.adb (Build_Access_Subprogram_Wrapper): Decorate the
2999         wrapper with attribute Is_Wrapper, and move its declaration to
3000         the freezing actions of its type declaration; done to facilitate
3001         identifying it at later stages to avoid handling it as a
3002         primitive operation of a tagged type; otherwise it may be
3003         handled as a dispatching operation and erroneously registered in
3004         a dispatch table.
3005         (Make_Index): Add missing decoration of field Parent.
3006         * sem_disp.adb (Check_Dispatching_Operation): Complete
3007         decoration of late-overriding dispatching primitives.
3008         (Is_Access_To_Subprogram_Wrapper): New subprogram.
3009         (Inherited_Subprograms): Prevent cascaded errors; adding missing
3010         support for private types.
3011         * sem_type.adb (Add_One_Interp): Add missing support for the
3012         first interpretation of a primitive of an inmediate ancestor
3013         interface.
3014         * sem_util.adb (Check_Result_And_Post_State_In_Pragma): Do not
3015         report missing reference in postcondition placed in internally
3016         built wrappers.
3017         * exp_disp.adb (Expand_Dispatching_Call): Adding assertion.
3019 2021-09-23  Ed Schonberg  <schonberg@adacore.com>
3021         * sem_aggr.adb (Resolve_Array_Aggregate): Check the validity of
3022         an array aggregate all of whose components are iterated
3023         component associations.
3024         * exp_aggr.adb (Expand_Array_Aggregate,
3025         Two_Pass_Aggregate_Expansion): implement two-pass algorithm and
3026         replace original aggregate with resulting temporary, to ensure
3027         that a proper length check is performed if context is
3028         constrained. Use attributes Pos and Val to handle index types of
3029         any discrete type.
3031 2021-09-23  Bob Duff  <duff@adacore.com>
3033         * gen_il-gen.adb: Set the number of concrete nodes that have the
3034         Homonym field to a higher number than any other field. This
3035         isn't true, but it forces Homonym's offset to be chosen first,
3036         so it will be at offset zero and hence slot zero.
3038 2021-09-23  Richard Kenner  <kenner@adacore.com>
3040         * atree.adb (Relocate_Node): If relocating a subprgram call and
3041         we're doing unnesting, make a new Parameter_Associations, if
3042         any.
3044 2021-09-23  Piotr Trojanek  <trojanek@adacore.com>
3046         * libgnat/a-strbou.ads (Generic_Bounded_Length): Remove explicit
3047         Initializes contract.
3049 2021-09-23  Bob Duff  <duff@adacore.com>
3051         * gen_il-gen.adb: Generate getters and setters with much of the
3052         code inlined. Generate code for storing a few fields in the node
3053         header, to avoid the extra level of indirection for those
3054         fields. We generate the header type, so we don't have to
3055         duplicate hand-written Ada and C code to depend on the number of
3056         header fields.  Declare constants for slot size. Use short names
3057         because these are used all over.  Remove
3058         Put_Low_Level_Accessor_Instantiations, Put_Low_Level_C_Getter,
3059         which are no longer needed.  Rename
3060         Put_High_Level_C_Getter-->Put_C_Getter.
3061         * atree.ads, atree.adb: Take into account the header slots.
3062         Take into account the single Node_Or_Entity_Field type.  Remove
3063         "pragma Assertion_Policy (Ignore);", because the routines in
3064         this package are no longer efficiency critical.
3065         * atree.h: Remove low-level getters, which are no longer used by
3066         sinfo.h and einfo.h.
3067         * einfo-utils.adb: Avoid crash in Known_Alignment.
3068         * live.adb, sem_eval.adb: Remove code that prevents Node_Id from
3069         having a predicate.  We don't actually add a predicate to
3070         Node_Id, but we want to be able to for temporary debugging.
3071         * sinfo-utils.adb: Remove code that prevents Node_Id from having
3072         a predicate.  Take into account the single Node_Or_Entity_Field
3073         type.
3074         * sinfo-utils.ads: Minor.
3075         * table.ads (Table_Type): Make the components aliased, because
3076         low-level setters in Atree need to take 'Access.
3077         * treepr.adb: Take into account the single Node_Or_Entity_Field
3078         type.  Make some code more robust, so we can print out
3079         half-baked nodes.
3080         * types.ads: Move types here for visibility purposes.
3081         * gcc-interface/gigi.h, gcc-interface/trans.c: Take into account
3082         the Node_Header change in the GNAT front end.
3083         * gcc-interface/cuintp.c, gcc-interface/targtyps.c: Add because
3084         gigi.h now refers to type Node_Header, which is in sinfo.h.
3086 2021-09-23  Yannick Moy  <moy@adacore.com>
3088         * libgnat/a-strfix.adb (Delete, Insert, Overwrite,
3089         Replace_Slice): Remove SPARK_Mode Off.
3090         * libgnat/a-strfix.ads (Insert, Overwrite, Replace_Slice):
3091         Strengthen precondition.
3093 2021-09-23  Piotr Trojanek  <trojanek@adacore.com>
3095         * libgnat/a-strbou.ads (Generic_Bounded_Length): Remove non-null
3096         Global contracts.
3098 2021-09-23  Steve Baird  <baird@adacore.com>
3100         * doc/gnat_rm/implementation_defined_characteristics.rst: Update
3101         this section to reflect the current version of Ada RM M.2.
3102         * gnat_rm.texi: Regenerate.
3104 2021-09-22  Yannick Moy  <moy@adacore.com>
3106         * libgnat/a-strfix.ads (Trim): Simplify contracts.
3107         * libgnat/a-strfix.adb (Trim): Remove white space.
3109 2021-09-22  Piotr Trojanek  <trojanek@adacore.com>
3111         * exp_ch4.adb (Expand_N_Op_Eq): Reuse Is_Attribute_Result.
3112         * exp_prag.adb (Expand_Attributes): Reuse Is_Attribute_Old.
3114 2021-09-22  Yannick Moy  <moy@adacore.com>
3116         * sem_ch3.adb (Analyze_Object_Declaration): Do not insert a
3117         predicate check after a deferred constant declaration.
3119 2021-09-22  Bob Duff  <duff@adacore.com>
3121         * contracts.adb, einfo-utils.adb, einfo-utils.ads, exp_ch7.adb,
3122         exp_ch9.adb, exp_disp.adb, exp_prag.adb, exp_smem.adb,
3123         exp_util.adb, freeze.adb, sem_aggr.adb, sem_attr.adb,
3124         sem_ch8.adb, sem_prag.ads, sem_util.adb, sem_util.ads: Fix
3125         conformance errors.
3126         * errout.adb, erroutc.adb: Remove pragmas Suppress.
3127         * err_vars.ads: Initialize variables that were previously being
3128         read uninitialized.
3130 2021-09-22  Yannick Moy  <moy@adacore.com>
3132         * libgnat/a-strunb.ads: Mark package in SPARK with private part
3133         not in SPARK.
3134         (Free): Mark not in SPARK.
3136 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3138         * snames.ads-tmpl: Update status of some attributes.
3140 2021-09-22  Doug Rupp  <rupp@adacore.com>
3142         * libgnarl/s-interr__vxworks.adb (Interfaces.C): Remove as
3143         unused.
3144         (System.VxWorks.Ext): Import.
3145         (System.VxWorks.Ext.STATUS): use type.
3146         (STATUS): New subtype.
3147         (OK): New constant.
3148         (Interrupt_Connector): Return STATUS type vice int.
3149         (Interrupt_Connect, Notify_Interrupt, Unbind_Handler,
3150         Interrupt_Server_Task): Rename Status to Result. Assert Result =
3151         OK.
3152         * libgnarl/s-osinte__vxworks.adb (To_Clock_Ticks): Define constant
3153         IERR, and return it vice ERROR.
3154         (Binary_Semaphore_Delete): Return STATUS type vice int.
3155         (Binary_Semaphore_Obtain): Likewise.
3156         (Binary_Semaphore_Release): Likewise.
3157         (Binary_Semaphore_Flush): Likewise.
3158         * libgnarl/s-osinte__vxworks.ads (SVE): Renaming of
3159         System.VxWorks.Ext.
3160         (STATUS): Use SVE in declaration of subtype.
3161         (BOOL): Likewise.
3162         (vx_freq_t): Likewise.
3163         (t_id): Likewise.
3164         (gitpid): Use SVE in renaming of subprogram
3165         (Task_Stop): Likewise.
3166         (Task_Cont): Likewise.
3167         (Int_Lock): Likewise.
3168         (Int_Unlock): Likewise.
3169         (Set_Time_Slice): Likewise.
3170         (semDelete): Likewise.
3171         (taskCpuAffinitySet): Likewise.
3172         (taskMaskAffinitySet): Likewise.
3173         (sigset_t): Use SVE in declaration of type.
3174         (OK): Remove as unused.
3175         (ERROR): Likewise.
3176         (taskOptionsGet): return STATUS vice int.
3177         (taskSuspend): Likewise.
3178         (taskResume): Likewise.
3179         (taskDelay): Likewise.
3180         (taskVarAdd): Likewise.
3181         (taskVarDelete): Likewise.
3182         (taskVarSet): Likewise.
3183         (tlkKeyCreate): Likewise.
3184         (taskPrioritySet): Likewise.
3185         (semGive): Likewise.
3186         (semTake): Likewise.
3187         (Binary_Semaphore_Delete): Likewise.
3188         (Binary_Semaphore_Obtain): Likewise.
3189         (Binary_Semaphore_Release): Likewise.
3190         (Binary_Semaphore_Flush): Likewise.
3191         (Interrupt_Connect): Likewise.
3192         * libgnarl/s-taprop__vxworks.adb
3193         (System.VxWorks.Ext.STATUS): use type.
3194         (int): Syntactically align subtype.
3195         (STATUS): New subtype.
3196         (OK): New constant.
3197         (Finalize_Lock): Check STATUS vice int. Assert OK.
3198         (Finalize_Lock): Likewise.
3199         (Write_Lock): Likewise.
3200         (Write_Lock): Likewise.
3201         (Write_Lock): Likewise.
3202         (Unlock): Likewise.
3203         (Unlock): Likewise.
3204         (Unlock): Likewise.
3205         (Unlock): Likewise.
3206         (Sleep): Likewise.
3207         (Sleep): Likewise.
3208         (Sleep): Likewise.
3209         (Timed_Sleep): Likewise and test Result.
3210         (Timed_Delay): Likewise and test Result.
3211         (Wakeup): Likewise.
3212         (Yield): Likewise.
3213         (Finalize_TCB): Likewise.
3214         (Suspend_Until_True): Check OK.
3215         (Stop_All_Tasks): Declare Dummy STATUS vice in.  Check OK.
3216         (Is_Task_Context): Use OSI renaming.
3217         (Initialize): Use STATUS vice int.
3218         * libgnarl/s-vxwext.adb
3219         (IERR): Renamed from ERROR.
3220         (taskCpuAffinitySet): Return IERR (int).
3221         (taskMaskAffinitySet): Likewise.
3222         * libgnarl/s-vxwext.ads
3223         (STATUS): New subtype.
3224         (OK): New STATUS constant.
3225         (ERROR): Likewise.
3226         * libgnarl/s-vxwext__kernel-smp.adb
3227         (IERR): Renamed from ERROR.
3228         (Int_Lock): Return IERR.
3229         (semDelete): Return STATUS.
3230         (Task_Cont): Likewise.
3231         (Task_Stop): Likewise.
3232         * libgnarl/s-vxwext__kernel.adb
3233         (IERR): Renamed from ERROR.
3234         (semDelete): Return STATUS.
3235         (Task_Cont): Likewise.
3236         (Task_Stop): Likewise.
3237         (taskCpuAffinitySet): Return IERR (int)
3238         (taskMaskAffinitySet): Likewise.
3239         * libgnarl/s-vxwext__kernel.ads
3240         (STATUS): New subtype.
3241         (OK): New STATUS constant.
3242         (ERROR): Likewise.
3243         (Interrupt_Connect): Return STATUS
3244         (semDelete): Likewise.
3245         (Task_Cont): Likewise.
3246         (Task_Stop): Likewise.
3247         (Set_Time_Slice): Likewise.
3248         * libgnarl/s-vxwext__rtp-smp.adb
3249         (IERR): Renamed from ERROR.
3250         (Int_Lock): return IERR constant vice ERROR.
3251         (Interrupt_Connect): Return STATUS.
3252         (semDelete): Likewise.
3253         (Set_Time_Slice): Likewise.
3254         * libgnarl/s-vxwext__rtp.adb
3255         (IERR): Renamed from ERROR.
3256         (Int_Lock): return IERR constant vice ERROR.
3257         (Int_Unlock): Return STATUS.
3258         (semDelete): Likewise.
3259         (Set_Time_Slice): Likewise.
3260         (taskCpuAffinitySet): Return IERR (int)
3261         (taskMaskAffinitySet): Likewise.
3262         * libgnarl/s-vxwext__rtp.ads
3263         (STATUS): New subtype.
3264         (OK): New STATUS constant.
3265         (ERROR): Likewise.
3266         (Interrupt_Connect): Return STATUS
3267         (semDelete): Likewise.
3268         (Task_Cont): Likewise.
3269         (Task_Stop): Likewise.
3270         (Set_Time_Slice): Likewise.
3272 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3274         * prep.adb (Preprocess): Allow for more flexibility when
3275         Relaxed_RM_Semantics is set.
3277 2021-09-22  Pierre-Alexandre Bazin  <bazin@adacore.com>
3279         * libgnat/a-strbou.adb: Turn SPARK_Mode on.
3280         * libgnat/a-strbou.ads: Write contracts.
3281         * libgnat/a-strfix.ads (Index): Fix grammar error in a comment.
3282         * libgnat/a-strsea.ads (Index): Likewise.
3283         * libgnat/a-strsup.adb: Rewrite the body to take into account
3284         the new definition of Super_String using Relaxed_Initialization
3285         and a predicate.
3286         (Super_Replicate, Super_Translate, Times): Added loop
3287         invariants, and ghost lemmas for Super_Replicate and Times.
3288         (Super_Trim): Rewrite the body using search functions to
3289         determine the cutting points.
3290         (Super_Element, Super_Length, Super_Slice, Super_To_String):
3291         Remove (now written as expression functions in a-strsup.ads).
3292         * libgnat/a-strsup.ads: Added contracts.
3293         (Super_Element, Super_Length, Super_Slice, Super_To_String):
3294         Rewrite as expression functions.
3296 2021-09-22  Yannick Moy  <moy@adacore.com>
3298         * sem_ch13.adb (Build_Predicate_Functions): Add guard.
3300 2021-09-22  Doug Rupp  <rupp@adacore.com>
3302         * libgnarl/s-vxwext.ads (BOOL): New int type.
3303         (Interrupt_Context): Change return type to BOOL.
3304         * libgnarl/s-vxwext__kernel.ads: Likewise.
3305         * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
3306         * libgnarl/s-vxwext__rtp.adb: Likewise.
3307         * libgnarl/s-vxwext__rtp.ads: Likewise.
3308         * libgnarl/s-osinte__vxworks.adb (Interrupt_Context): Change
3309         return type to BOOL.
3310         * libgnarl/s-osinte__vxworks.ads (BOOL) New subtype.
3311         (taskIsSuspended): Change return type to BOOL.
3312         (Interrupt_Context): Change return type to BOOL. Adjust comments
3313         accordingly.
3314         * libgnarl/s-taprop__vxworks.adb (System.VxWorks.Ext.BOOL):
3315         use type.
3316         (Is_Task_Context): Test Interrupt_Context against 0.
3317         * libgnat/i-vxwork.ads (BOOL): New int.
3318         (intContext): Change return type to BOOL. Adjust comments.
3319         * libgnat/i-vxwork__x86.ads: Likewise.
3321 2021-09-22  Piotr Trojanek  <trojanek@adacore.com>
3323         * sem_aux.adb, sem_aux.ads (Package_Body): Moved from GNATprove.
3324         * sem_elab.adb (Spec_And_Body_From_Entity): Refine type of parameter.
3326 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3328         * doc/gnat_ugn/platform_specific_information.rst: Improve doc
3329         on permission and containers.
3330         * gnat_ugn.texi: Regenerate.
3332 2021-09-22  Yannick Moy  <moy@adacore.com>
3334         * atree.adb (Rewrite): Fix parent node of shared aspects.
3335         * atree.ads (Rewrite): Add ??? comment on incorrect
3336         documentation.
3337         * einfo-utils.adb (Known_Esize): Fix logic.
3338         * sem_ch13.adb (Alignment_Check_For_Size_Change,
3339         Analyze_Attribute_Definition_Clause): Protect against unset
3340         Size.
3342 2021-09-22  Yannick Moy  <moy@adacore.com>
3344         * freeze.adb (Build_Renamed_Body): Special case for GNATprove.
3345         * sem_ch6.adb (Analyze_Expression_Function): Remove useless test
3346         for a node to come from source, which becomes harmful otherwise.
3348 2021-09-22  Justin Squirek  <squirek@adacore.com>
3350         * ali.adb, ali.ads (Scan_ALI): Remove use of deprecated
3351         parameter Ignore_ED, and all specification for Lower in call to
3352         Get_File_Name.
3353         * ali-util.adb (Read_Withed_ALIs): Modify call to Scan_ALI.
3354         * clean.adb (Clean_Executables): Likewise.
3355         * gnatbind.adb (Add_Artificial_ALI_File, Executable section):
3356         Likewise.
3357         * gnatlink.adb (Executable section): Likewise.
3358         * gnatls.adb (Executable section): Likewise.
3359         * make.adb (Check, Wait_For_Available_Slot): Likewise.
3360         * aspects.ads: Add Aspect_No_Controlled_Parts to
3361         Nonoverridable_Aspect_Id
3362         * opt.ads: Remove function pointers used as a workaround for
3363         ASIS.
3364         * osint-c.adb (Executable section): Remove setting of function
3365         pointer workarounds needed for ASIS.
3366         * osint.adb (Read_Default_Search_Dirs): Correct behavior to
3367         detect EOL characters.
3368         * par_sco.adb (Output_Header): Remove comment regarding use of
3369         First_Sloc.
3370         (Traverse_Sync_Definition): Renamed to
3371         Traverse_Protected_Or_Task_Definition.
3372         * pprint.adb (Interal_List_Name): Add description about purpose,
3373         and refactor conditional statement.
3374         (Prepend): Removed.
3375         * repinfo.adb (List_Rep_Info, Write_Info_Line): Remove use of
3376         subprogram pointer.
3377         * scng.adb (Scan): Remove CODEFIX question, and minor comment
3378         change.
3379         * sem_attr.adb (Analyze_Image_Attribute): Remove special
3380         processing for 'Img.
3381         * sem_ch6.adb (Check_Untagged_Equality): Add RM reference.
3382         (FCE): Add comment describing behavior.
3383         (Is_Non_Overriding_Operation): Minor comment formatting change.
3384         * sem_type.adb (Is_Actual_Subprogram): Add comment about
3385         Comes_From_Source test.
3386         (Matching_Types): Describe non-matching cases.
3387         * sem_util.adb (Is_Confirming): Add stub case for
3388         No_Controlled_Parts.
3390 2021-09-22  Yannick Moy  <moy@adacore.com>
3392         * sem_ch13.adb (Build_Predicate_Functions): Access
3393         Predicated_Parent only on subtypes.
3395 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3397         * sem_prag.adb (Process_Import_Or_Interface): Relax error when
3398         Relaxed_RM_Semantics.
3400 2021-09-22  Steve Baird  <baird@adacore.com>
3402         * libgnat/s-regpat.adb (Match): Handle the case where Self.First
3403         is not NUL (so we know the first character we are looking for),
3404         but case-insensitive matching has
3405         been specified.
3406         (Optimize): In the case of an EXACTF Op, set Self.First as is
3407         done in the EXACT case, except with the addition of a call to
3408         Lower_Case.
3410 2021-09-22  Eric Botcazou  <ebotcazou@adacore.com>
3412         * libgnat/s-imenne.ads, libgnat/s-imenne.adb: Delete.
3413         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Remove s-imenne.o.
3414         (GNATBIND_OBJS): Likewise.
3416 2021-09-22  Yannick Moy  <moy@adacore.com>
3418         * einfo.ads: Fix comments.
3419         * exp_aggr.adb: Fix variable name.
3420         * exp_util.adb: Fix comments.
3421         * sem_ch13.adb: Fix comments.
3422         * sem_ch3.adb: Fix comments and variable name.
3424 2021-09-22  Doug Rupp  <rupp@adacore.com>
3426         * libgnarl/s-osinte__vxworks.ads: Make procedure vice function.
3427         * libgnarl/s-vxwext.ads: Likewise.
3428         * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
3429         * libgnarl/s-vxwext__kernel.adb: Likewise.
3430         * libgnarl/s-vxwext__kernel.ads: Likewise.
3431         * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
3432         * libgnarl/s-vxwext__rtp.adb: Likewise.
3433         * libgnarl/s-vxwext__rtp.ads: Likewise.
3434         * libgnarl/s-taprop__vxworks.adb (Stop_All_Tasks): Call
3435         Int_Unlock as a procedure.
3437 2021-09-22  Doug Rupp  <rupp@adacore.com>
3439         * libgnarl/s-osinte__vxworks.ads (SVE): New package renaming
3440         (vx_freq_t): New subtype.
3441         (sysClkRateGet): Return vx_freq_t.
3442         * libgnarl/s-vxwext.ads (vx_freq_t): New type.
3443         * libgnarl/s-vxwext__kernel.ads: Likewise.
3444         * libgnarl/s-vxwext__rtp.ads: Likewise.
3446 2021-09-22  Ghjuvan Lacambre  <lacambre@adacore.com>
3448         * sem_case.adb (Composite_Case_Ops): Replace 'Image with
3449         Error_Msg_Uint.
3451 2021-09-22  Eric Botcazou  <ebotcazou@adacore.com>
3453         * exp_ch4.adb (Expand_N_If_Expression): Generate an intermediate
3454         temporary when the expression is a condition in an outer decision
3455         and control-flow optimizations are suppressed.
3457 2021-09-22  Steve Baird  <baird@adacore.com>
3459         * exp_ch5.adb (Expand_General_Case_Statement.Pattern_Match): Add
3460         new function Indexed_Element to handle array element
3461         comparisons. Handle case choices that are array aggregates,
3462         string literals, or names denoting constants.
3463         * sem_case.adb (Composite_Case_Ops.Array_Case_Ops): New package
3464         providing utilities needed for casing on arrays.
3465         (Composite_Case_Ops.Choice_Analysis): If necessary, include
3466         array length as a "component" (like a discriminant) when
3467         traversing components. We do not (yet) partition choice analysis
3468         to deal with unequal length choices separately. Instead, we
3469         embed everything in the minimum-dimensionality Cartesian product
3470         space needed to handle all choices properly; this is determined
3471         by the length of the longest choice pattern.
3472         (Composite_Case_Ops.Choice_Analysis.Traverse_Discrete_Parts):
3473         Include length as a "component" in the traversal if necessary.
3474         (Composite_Case_Ops.Choice_Analysis.Parse_Choice.Traverse_Choice):
3475         Add support for case choices that are string literals or names
3476         denoting constants.
3477         (Composite_Case_Ops.Choice_Analysis): Include length as a
3478         "component" in the analysis if necessary.
3479         (Check_Choices.Check_Case_Pattern_Choices.Ops.Value_Sets.Value_Index_Count):
3480         Improve error message when capacity exceeded.
3481         * doc/gnat_rm/implementation_defined_pragmas.rst: Update
3482         documentation to reflect current implementation status.
3483         * gnat_rm.texi: Regenerate.
3485 2021-09-22  Eric Botcazou  <ebotcazou@adacore.com>
3487         * freeze.adb (Check_Component_Storage_Order): Give a specific error
3488         message for non-byte-aligned component in the packed case.  Replace
3489         "composite" with "record" in both cases.
3491 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3493         * libgnarl/a-tasini.ads, libgnarl/a-tasini.adb: Make compatible
3494         with No_Elaboration_Code_All.
3495         * libgnarl/s-taskin.ads, libgnarl/s-tassta.adb: Adjust
3496         accordingly.
3498 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3500         * sem_ch6.adb (Check_Returns): Change message on missing return.
3502 2021-09-22  Arnaud Charlet  <charlet@adacore.com>
3504         * gnatfind.adb, gnatxref.adb: Mark these tools as obsolete
3505         before removing them completely.
3507 2021-09-22  Eric Botcazou  <ebotcazou@adacore.com>
3509         * gcc-interface/decl.c (range_cannot_be_superflat): Tweak comments.
3511 2021-09-21  Doug Rupp  <rupp@adacore.com>
3513         * init.c (__gnat_error_handler) [LynxOS]: Add a comment about
3514         missing optional args.
3516 2021-09-21  Yannick Moy  <moy@adacore.com>
3518         * gen_il-gen.adb (Put_Opt_Subtype): Add suffix.
3520 2021-09-21  Justin Squirek  <squirek@adacore.com>
3522         * sem_util.adb (Accessibility_Level): Remove spurious special
3523         case for protected type components.
3524         * exp_ch4.adb (Generate_Accessibility_Check): Use general
3525         Accessibility_Level instead of the low-level function
3526         Type_Access_Level.
3528 2021-09-21  Eric Botcazou  <ebotcazou@adacore.com>
3530         * gnat_ugn.texi: Regenerate.
3532 2021-09-21  Matthieu Eyraud  <eyraud@adacore.com>
3534         * par_sco.adb (Traverse_One): Add support for pragma Invariant /
3535         Type_Invariant.
3537 2021-09-21  Bob Duff  <duff@adacore.com>
3539         * gen_il-gen.adb (Put_Opt_Subtype): Print out subtypes of the
3540         form:
3541         subtype Opt_N_Declaration is
3542         Node_Id with Predicate =>
3543         Opt_N_Declaration = Empty or else
3544         Opt_N_Declaration in N_Declaration_Id;
3545         One for each node or entity type, with the predicate allowing
3546         Empty.
3547         * atree.adb (Parent, Set_Parent): Remove unnecessary "Atree.".
3549 2021-09-21  Patrick Bernardi  <bernardi@adacore.com>
3551         * bindgen.adb (Gen_Adainit): For targets that suppress the
3552         standard library: set the default stack size global variable if
3553         a value is provided via the -d switch, and generate a call to
3554         __gnat_initialize_stack_limit if stack checking using stack
3555         limits is enabled.
3557 2021-09-21  Bob Duff  <duff@adacore.com>
3559         * sem_ch13.adb (Stream_Size): Print message about allowed stream
3560         sizes even if other error were already found. This avoids
3561         falling into the 'else', which prints "Stream_Size cannot be
3562         given for...", which is misleading -- the Size COULD be given if
3563         it were correct.
3565 2021-09-21  Daniel Mercier  <mercier@adacore.com>
3567         * exp_util.adb (Build_Temporary): In case of an external DISCR
3568         symbol, set the related expression for CodePeer so that a more
3569         comprehensible message can be emitted to the user.
3571 2021-09-21  Eric Botcazou  <ebotcazou@adacore.com>
3573         * libgnat/s-dwalin.adb (Parse_Header): Tweak comments.
3574         (Read_Entry_Format_Array): Tweak exception message.
3575         (Symbolic_Address.Set_Result): Likewise.
3577 2021-09-21  Ed Schonberg  <schonberg@adacore.com>
3579         * exp_ch7.adb (Make_Init_Call): Add guard to protect against a
3580         missing initialization procedure for a type.
3582 2021-09-21  Doug Rupp  <rupp@adacore.com>
3584         * Makefile.rtl: Remove unused VxWorks sections.
3585         * libgnarl/s-vxwext__noints.adb: Remove.
3586         * libgnarl/s-vxwext__vthreads.ads: Remove.
3587         * libgnat/a-elchha__vxworks-ppc-full.adb: Remove.
3588         * libgnat/s-osprim__vxworks.adb: Remove.
3589         * libgnat/s-osvers__vxworks-653.ads: Remove.
3590         * libgnat/system-vxworks-e500-vthread.ads: Remove.
3591         * libgnat/system-vxworks-ppc-vthread.ads: Remove.
3592         * libgnat/system-vxworks-x86-vthread.ads: Remove.
3594 2021-09-21  Bob Duff  <duff@adacore.com>
3596         * uintp.ads, uintp.adb (UI_Is_In_Int_Range): Change the type of
3597         the formal parameter to Valid_Uint. Remove code that preserved
3598         the previous behavior, and replace it with an assertion. The
3599         previous behavior is no longer needed given the recent change to
3600         gigi.
3601         (No, Present): Add comment.
3603 2021-09-21  Bob Duff  <duff@adacore.com>
3605         * sem_eval.adb (Fold_Shift): Replace an if_expression with an
3606         if_statement.
3608 2021-09-21  Bob Duff  <duff@adacore.com>
3610         * uintp.ads, uintp.adb: Add assertions.
3611         (Ubool, Opt_Ubool): New "boolean" subtypes.
3612         (UI_Is_In_Int_Range): The parameter should probably be
3613         Valid_Uint, but we don't change that for now, because it causes
3614         failures in gigi.
3615         * sem_util.ads, sem_util.adb (Is_True, Is_False,
3616         Static_Boolean): Use Opt_Ubool subtype.  Document the fact that
3617         Is_True (No_Uint) = True.  Implement Is_False in terms of
3618         Is_True.  We considered changing Static_Boolean to return Uint_1
3619         in case of error, but that doesn't fit in well with
3620         Static_Integer.
3621         (Has_Compatible_Alignment_Internal): Deal with cases where Offs
3622         is No_Uint. Change one "and" to "and then" to ensure we don't
3623         pass No_Uint to ">", which would violate the new assertions.
3624         * exp_util.adb, freeze.adb, sem_ch13.adb: Avoid violating new
3625         assertions in Uintp.
3627 2021-09-21  Eric Botcazou  <ebotcazou@adacore.com>
3629         * libgnat/s-dwalin.adb (To_File_Name): Fetch only the last string
3630         from the .debug_line_str section.
3631         (Symbolic_Address.Set_Result): Likewise.
3633 2021-09-21  Eric Botcazou  <ebotcazou@adacore.com>
3635         * libgnat/s-dwalin.adb (Skip_Form): Fix cases of DW_FORM_addrx
3636         and DW_FORM_implicit_const.  Replace Constraint_Error with
3637         Dwarf_Error.
3639 2021-09-21  Ghjuvan Lacambre  <lacambre@adacore.com>
3641         * exp_pakd.adb (Expand_Packed_Not): Replace expression with
3642         statement.
3644 2021-09-21  Ghjuvan Lacambre  <lacambre@adacore.com>
3646         * sem_eval.adb (Is_Static_Subtype): Take predicates created
3647         through "predicate" pragma into account.
3649 2021-09-21  Frederic Konrad  <konrad@adacore.com>
3651         * Makefile.rtl (aarch64-rtems*): Add GNATRTL_128BIT_PAIRS to
3652         the LIBGNAT_TARGET_PAIRS list and also GNATRTL_128BIT_OBJS to
3653         the EXTRA_GNATRTL_NONTASKING_OBJS list.
3655 2021-09-21  Gary Dismukes  <dismukes@adacore.com>
3657         * sem_ch4.adb (Remove_Abstract_Operations): Add condition to
3658         test for an E_Operator as part of criteria for setting
3659         Abstract_Op on interpretations involving predefined operators.
3661 2021-09-21  Javier Miranda  <miranda@adacore.com>
3663         * exp_ch6.adb (Expand_Simple_Function_Return): For explicit
3664         dereference of type conversion, enable code that ensures that
3665         the tag of the result is that of the result type.
3667 2021-09-21  Bob Duff  <duff@adacore.com>
3669         * einfo-utils.adb: Add support (currently disabled) for using
3670         "initial zero" instead of "Uint_0" to represent "unknown".  Call
3671         Known_ functions, instead of evilly duplicating their code
3672         inline.
3673         * fe.h (No_Uint_To_0): New function to convert No_Uint to
3674         Uint_0, in order to preserve existing behavior.
3675         (Copy_Esize, Copy_RM_Size): New imports from Einfo.Utils.
3676         * cstand.adb: Set size fields of Standard_Debug_Renaming_Type
3677         and Standard_Exception_Type.
3678         * checks.adb, exp_attr.adb, exp_ch3.adb, exp_ch5.adb,
3679         exp_ch6.adb, exp_pakd.adb, exp_util.adb, freeze.adb, itypes.adb,
3680         layout.adb, repinfo.adb, sem_attr.adb, sem_ch12.adb,
3681         sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch7.adb,
3682         sem_util.adb: Protect calls with Known_..., use Copy_...  Remove
3683         assumption that Uint_0 represents "unknown".
3684         * types.ads (Nonzero_Int): New subtype.
3685         * gcc-interface/decl.c, gcc-interface/trans.c: Protect calls
3686         with Known_... and use Copy_...  as appropriate, to avoid
3687         blowing up in unknown cases. Similarly, call No_Uint_To_0 to
3688         preserve existing behavior.
3690 2021-09-21  Steve Baird  <baird@adacore.com>
3692         * sem_ch13.adb (Analyze_Aspect_Specifications): Add a new nested
3693         function, Directly_Specified, and then use it in the
3694         implementation of the required check.
3696 2021-09-21  Steve Baird  <baird@adacore.com>
3698         * libgnat/a-costso.ads, libgnat/a-costso.adb: A new library
3699         unit, Ada.Containers.Stable_Sorting, which exports a pair of
3700         generics (one within the other) which are instantiated by each
3701         of the 5 doubly-linked list container generics to implement
3702         their respective Sort procedures. We use a pair of generics,
3703         rather than a single generic, in order to further reduce code
3704         duplication. The outer generic takes a formal private Node_Ref
3705         type representing a reference to a linked list element. For some
3706         instances, the corresponding actual parameter will be an access
3707         type; for others, it will be the index type for an array.
3708         * Makefile.rtl: Include new Ada.Containers.Stable_Sorting unit.
3709         * libgnat/a-cbdlli.adb, libgnat/a-cdlili.adb,
3710         libgnat/a-cfdlli.adb, libgnat/a-cidlli.adb, libgnat/a-crdlli.adb
3711         (Sort): Replace existing Sort implementation with a call to an
3712         instance of
3713         Ada.Containers.Stable_Sorting.Doubly_Linked_List_Sort. Declare
3714         the (trivial) actual parameters needed to declare that instance.
3715         * libgnat/a-cfdlli.ads: Fix a bug encountered during testing in
3716         the postcondition for M_Elements_Sorted. With a partial
3717         ordering, it is possible for all three of (X < Y), (Y < X),
3718         and (X = Y) to be simultaneously false, so that case needs to
3719         handled correctly.
3721 2021-09-21  Piotr Trojanek  <trojanek@adacore.com>
3723         * errout.adb (Error_Msg_Internal): Fix references to Sptr and
3724         Optr in comment; fix grammar of "low-level" where it is used as
3725         an adjective.
3727 2021-09-21  Piotr Trojanek  <trojanek@adacore.com>
3729         * errout.adb (Write_Source_Code_Lines): Use Cur_Loc before
3730         incrementing it, so that we don't need to decrement it.
3732 2021-09-21  Yannick Moy  <moy@adacore.com>
3734         * errout.adb (Get_Line_End): Do not allow the result to go past
3735         the end of the buffer.
3737 2021-09-21  Ed Schonberg  <schonberg@adacore.com>
3739         * sem_ch3.adb (Process_Discriminant_Expressions): If the
3740         constraint is for a Component_Definition that appears in a
3741         Component_Declaration, the entity to be used to create the
3742         potentially global symbol is the Defining_Identifier of the
3743         Component_Declaration.
3745 2021-09-21  Bob Duff  <duff@adacore.com>
3747         * libgnat/a-stbufi.ads, libgnat/a-stbufi.adb: Change all
3748         occurrences of GNAT.OS_Lib to System.OS_Lib.
3750 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3752         * inline.adb (Has_Excluded_Declaration): Remove redundant guard;
3753         the guarded code will call First on a No_List, which is
3754         well-defined and gives Empty.
3756 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3758         * inline.adb (Has_Excluded_Declaration): Rename and reduce scope
3759         of a local variable.
3761 2021-09-20  Bob Duff  <duff@adacore.com>
3763         * uintp.ads, uintp.adb (Present, No): New functions for
3764         comparing with No_Uint.
3765         * checks.adb, einfo-utils.adb, exp_aggr.adb, exp_attr.adb,
3766         exp_ch3.adb, exp_ch4.adb, exp_dbug.adb, exp_disp.adb,
3767         exp_util.adb, repinfo.adb, repinfo-input.adb, scn.adb,
3768         sem_attr.adb, sem_ch13.adb, sem_eval.adb, sem_util.adb,
3769         sinfo-utils.adb, treepr.adb: Use Present (...) instead of "...
3770         /= No_Uint", and No (...) instead of "... = No_Uint".
3772 2021-09-20  Claire Dross  <dross@adacore.com>
3774         * libgnat/s-ficobl.ads: The entire package has a SPARK_Mode =>
3775         Off aspect.
3777 2021-09-20  Doug Rupp  <rupp@adacore.com>
3779         * libgnat/a-calend.adb: Remove time_t, replace with OS_Time.
3780         * libgnat/s-os_lib.ads: Fix comments regarding time_t conversion
3781         functions to reflect the use of To_Ada in in Ada.Calendar
3782         package body.
3783         * sysdep.c (__gnat_localtime_tzoff): Use OS_Time instead of
3784         time_t.
3786 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3788         * sem_res.adb (Resolve_Actual): Remove
3790 2021-09-20  Bob Duff  <duff@adacore.com>
3792         * einfo-utils.ads, einfo-utils.adb, fe.h, einfo.ads,
3793         gen_il-fields.ads: Remove unused and no-longer-used routines.
3794         Move related routines together.  Rewrite incorrect
3795         documentation, and documentation that will be incorrect when
3796         e.g. Esize-related routines are fixed.  Remove unused field
3797         Normalized_Position_Max.
3798         * cstand.adb, exp_pakd.adb, freeze.adb,
3799         gen_il-gen-gen_entities.adb, itypes.adb, layout.adb,
3800         sem_ch10.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb,
3801         sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_prag.adb,
3802         sem_util.adb, ttypes.ads: Update calls to routines removed from
3803         or renamed in Einfo.Utils.
3804         * uintp.ads (Upos): Fix this subtype, which was unintentionally
3805         declared to include Uint_0.
3807 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3809         * exp_ch7.adb (Expand_N_Package_Declaration): Fix wording in
3810         comment.
3811         * exp_disp.adb (Mark_DT): Remove unnecessary initialization of
3812         I_Depth.
3814 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3816         * contracts.adb (Add_Contract_Item): Accept volatile-related
3817         properties on constants.
3818         (Analyze_Object_Contract): Check external properties on
3819         constants; accept volatile constants.
3820         (Check_Type_Or_Object_External_Properties): Replace "variable"
3821         with "object" in error messages; replace Decl_Kind with a local
3822         constant.
3823         * sem_prag.adb (Analyze_Pragma): Accept volatile-related
3824         properties on constants.
3826 2021-09-20  Pierre-Alexandre Bazin  <bazin@adacore.com>
3828         * libgnat/a-strfix.adb ("*"): Added loop invariants and lemmas
3829         for proof.
3830         (Delete): Added assertions for proof, and conditions to avoid
3831         overflow.
3832         (Head): Added loop invariant.
3833         (Insert): Same as Delete.
3834         (Move): Declared with SPARK_Mode Off.
3835         (Overwrite): Added assertions for proof, and conditions to avoid
3836         overflow.
3837         (Replace_Slice): Added assertions for proof, and conditions to
3838         avoid overflow.
3839         (Tail): Added loop invariant and avoided overflows.
3840         (Translate): Added loop invariants.
3841         (Trim): Ensured empty strings returned start at 1.
3842         * libgnat/a-strfix.ads (Index): Rewrote contract cases for
3843         easier proof.
3844         (Index_Non_Blank): Separated the null string case.
3845         (Count): Specified Mapping shouldn't be null.
3846         (Find_Token): Specified Source'First should be Positive when no
3847         From is given.
3848         (Translate): Specified Mapping shouldn't be null.
3849         ("*"): Rewrote postcondition for easier proof.
3850         * libgnat/a-strsea.adb (Belongs): Added postcondition.
3851         (Count): Rewrote loops and added loop invariants to avoid
3852         overflows.
3853         (Find_Token): Added loop invariants.
3854         (Index): Rewrote loops to avoid overflows and added loop
3855         invariants for proof.
3856         (Index_Non_Blank): Added loop invariants.
3857         (Is_Identity): New function isolated without SPARK_Mode.
3858         * libgnat/a-strsea.ads: Fix starting comment as package is no
3859         longer private.
3860         (Match): Declared ghost expression function Match.
3861         (Is_Identity): Described identity in the postcondition.
3862         (Index, Index_Non_Blank, Count, Find_Token): Added contract from
3863         a-strfix.ads.
3865 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3867         * sem_ch13.adb (Resolve_Aspect_Aggregate): Move comments after
3868         specs; fix typo in header box; cleanup whitespace.
3870 2021-09-20  Eric Botcazou  <ebotcazou@adacore.com>
3872         * libgnat/s-objrea.adb (Get_Load_Address): Return 0 for ELF.
3874 2021-09-20  Eric Botcazou  <ebotcazou@adacore.com>
3876         * adaint.c (__gnat_get_executable_load_address): Add Win32 support.
3877         * libgnat/s-objrea.ads (Get_Xcode_Bounds): Fix typo in comment.
3878         (Object_File): Minor reformatting.
3879         (ELF_Object_File): Uncomment predicate.
3880         (PECOFF_Object_File): Likewise.
3881         (XCOFF32_Object_File): Likewise.
3882         * libgnat/s-objrea.adb: Minor reformatting throughout.
3883         (Get_Load_Address): Implement for PE-COFF.
3884         * libgnat/s-dwalin.ads: Remove clause for System.Storage_Elements
3885         and use consistent wording in comments.
3886         (Dwarf_Context): Set type of Low, High and Load_Address to Address.
3887         * libgnat/s-dwalin.adb (Get_Load_Displacement): New function.
3888         (Is_Inside): Call Get_Load_Displacement.
3889         (Low_Address): Likewise.
3890         (Open): Adjust to type change.
3891         (Aranges_Lookup): Change type of Addr to Address.
3892         (Read_Aranges_Entry): Likewise for Start and adjust.
3893         (Enable_Cach): Adjust to type change.
3894         (Symbolic_Address): Change type of Addr to Address.
3895         (Symbolic_Traceback): Call Get_Load_Displacement.
3897 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3899         * exp_disp.adb (Make_DT): Move call to Set_Has_Dispatch_Table,
3900         so it is executed regardless of the Generate_SCIL mode.
3902 2021-09-20  Ed Schonberg  <schonberg@adacore.com>
3904         * exp_util.ads (Force_Evaluation): Add formal parameter
3905         Discr_Number, to indicate discriminant expression for which an
3906         external name must be created.
3907         (Remove_Side_Effects): Ditto.
3908         * exp_util.adb (Force_Evaluation): Call Remove_Side_Effects with
3909         added parameter.
3910         (Remove_Side_Effects, Build_Temporary): If Discr_Number is
3911         positive, create an external name with suffix DISCR and the
3912         given discriminant number, analogous to what is done for
3913         temporaries for array type bounds.
3914         * sem_ch3.adb (Process_Discriminant_Expressions): If the
3915         constraint is for an object or component declaration and the
3916         corresponding entity may be visible in another unit, invoke
3917         Force_Evaluation with the new parameter.
3919 2021-09-20  Arnaud Charlet  <charlet@adacore.com>
3921         * gen_il-internals.ads (Invalid_Val): Remove, unused and
3922         generates warnings.
3924 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
3926         * exp_aggr.adb, exp_ch4.adb, exp_ch5.adb, sprint.adb: Refine
3927         types of local constants.
3929 2021-09-20  Gary Dismukes  <dismukes@adacore.com>
3931         * exp_attr.adb (Expand_N_Attribute_Reference): Fold
3932         Preelaborable_Initialization attribute in cases where it hasn't
3933         been folded by the analyzer.
3934         * exp_disp.adb (Original_View_In_Visible_Part): This function is
3935         removed and moved to sem_util.adb.
3936         * sem_attr.adb (Attribute_22): Add
3937         Attribute_Preelaborable_Initialization as an Ada 2022 attribute.
3938         (Analyze_Attribute, Attribute_Preelaborable_Initialization):
3939         Check that the prefix of the attribute is either a formal
3940         private or derived type, or a composite type declared within the
3941         visible part of a package or generic package.
3942         (Eval_Attribute): Perform folding of
3943         Preelaborable_Initialization attribute based on
3944         Has_Preelaborable_Initialization applied to the prefix type.
3945         * sem_ch3.adb (Resolve_Aspects): Add specialized code for
3946         Preelaborable_Initialization used at the end of a package
3947         visible part for setting Known_To_Have_Preelab_Init on types
3948         that are specified with True or that have a conjunction of one
3949         or more P_I attributes applied to formal types.
3950         * sem_ch7.adb (Analyze_Package_Specification): On call to
3951         Has_Preelaborable_Initialization, pass True for new formal
3952         Formal_Types_Have_Preelab_Init, so that error checking treats
3953         subcomponents that are declared within types in generics as
3954         having preelaborable initialization when the subcomponents are
3955         of formal types.
3956         * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): Add test for
3957         P_I to prevent calling Make_Pragma_From_Boolean_Aspect, since
3958         this aspect is handled specially and the
3959         Known_To_Have_Preelab_Init flag will get set on types that have
3960         the aspect by other means.
3961         (Analyze_Aspect_Specifications.Analyze_One_Aspect): Add test for
3962         Aspect_Preelaborable_Initialization for allowing the aspect to
3963         be specified on formal type declarations.
3964         (Is_Operational_Item): Treat Attribute_Put_Image as an
3965         operational attribute.  The need for this was encountered while
3966         working on these changes.
3967         * sem_util.ads (Has_Preelaborable_Initialization): Add
3968         Formal_Types_Have_Preelab_Init as a new formal parameter that
3969         defaults to False.
3970         (Is_Conjunction_Of_Formal_Preelab_Init_Attributes): New
3971         function.
3972         (Original_View_In_Visible_Part): Moved here from exp_disp.adb,
3973         so it can be called by Analyze_Attribute.
3974         * sem_util.adb (Has_Preelaborable_Initialization): Return True
3975         for formal private and derived types when new formal
3976         Formal_Types_Have_Preelab_Init is True, and pass along the
3977         Formal_Types_Have_Preelab_Init flag in the array component case.
3978         (Check_Components): Pass along Formal_Types_Have_Preelab_Init
3979         flag on call to Has_Preelaborable_Initialization.
3980         (Is_Conjunction_Of_Formal_Preelab_Init_Attributes): New function
3981         that returns True when passed an expression that includes one or
3982         more attributes for Preelaborable_Initialization applied to
3983         prefixes that denote formal types.
3984         (Is_Formal_Preelab_Init_Attribute): New utility function nested
3985         within Is_Conjunction_Of_Formal_Preelab_Init_Attributes that
3986         determines whether a node is a P_I attribute applied to a
3987         generic formal type.
3988         (Original_View_In_Visible_Part): Moved here from exp_util.adb,
3989         so it can be called by Analyze_Attribute.
3990         * snames.ads-tmpl: Add note near the start of spec giving
3991         details about what needs to be done when adding a name that
3992         corresponds to both an attribute and a pragma.  Delete existing
3993         occurrence of Name_Preelaborable_Initialization, and add a note
3994         comment in the list of Name_* constants at that place,
3995         indicating that it's included in type Pragma_Id, etc., echoing
3996         other such comments for names that are both an attribute and a
3997         pragma.  Insert Name_Preelaborable_Initialization in the
3998         alphabetized set of Name_* constants corresponding to
3999         attributes (between First_Attribute_Name and
4000         Last_Attribute_Name).
4001         (type Attribute_Id): Add new literal
4002         Attribute_Preelaborable_Initialization.
4003         (type Pragma_Id): Move Pragma_Preelaborable_Initialization from
4004         its current position to the end of the type, in the special set
4005         of pragma literals that have corresponding atttributes. Add to
4006         accompanying comment, indicating that functions Get_Pragma_Id
4007         and Is_Pragma_Name need to be updated when adding a pragma
4008         literal to the special set.
4009         * snames.adb-tmpl (Get_Pragma_Id): Add case alternative for
4010         Pragma_Preelaborable_Initialization.
4011         (Is_Pragma_Name): Add test for
4012         Name_Preelaborable_Initialization.
4014 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4016         * sem_ch4.adb (Finc_Non_Universal_Interpretations): Fix check.
4018 2021-09-20  Piotr Trojanek  <trojanek@adacore.com>
4020         * sem_ch3.adb (Build_Discriminant_Constraints): Exit once a
4021         first discriminant is found and the Discrim_Present flag is set.
4023 2021-09-20  Bob Duff  <duff@adacore.com>
4025         * gnat1drv.adb (Gnat1drv): Avoid calling List_Rep_Info in
4026         Generate_SCIL and GNATprove_Mode.
4027         * repinfo.adb (List_Common_Type_Info): Fix comment.
4029 2021-09-20  Eric Botcazou  <ebotcazou@adacore.com>
4031         * libgnat/s-dwalin.ads: Remove clause for Ada.Exceptions.Traceback,
4032         add clause for System.Traceback_Entries and alphabetize.
4033         (AET): Delete.
4034         (STE): New package renaming.
4035         (Symbolic_Traceback): Adjust.
4036         * libgnat/s-dwalin.adb: Remove clauses for Ada.Exceptions.Traceback
4037         and System.Traceback_Entries.
4038         (Symbolic_Traceback): Adjust.
4040 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4042         * sem_ch4.adb (Find_Non_Universal_Interpretations): Check if
4043         types are compatible before adding interpretation.
4045 2021-09-20  Justin Squirek  <squirek@adacore.com>
4047         * exp_ch4.adb (Expand_N_Type_Conversion): Add guard to protect
4048         against calculating accessibility levels against internal
4049         compiler-generated types.
4051 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4053         * sem_dim.adb (Dimensions_Msg_Of): Capitalize comment.
4055 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4057         * adabkend.adb (Scan_Back_End_Switches): Replace switch-scanning
4058         logic with call to Backend_Utils.Scan_Common_Back_End_Switches.
4059         * back_end.adb (Scan_Back_End_Switches): Replace switch-scanning
4060         logic with call to Backend_Utils.Scan_Common_Back_End_Switches.
4061         * backend_utils.adb: New file.
4062         * backend_utils.ads: New file.
4063         * gcc-interface/Make-lang.in: Add ada/backend_utils.o.
4065 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4067         * atree.adb (Get_32_Bit_Field): Declare result before returning.
4069 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4071         * exp_ch7.adb (Expand_N_Package_Body): Replace
4072         Build_And_Insert_Cuda_Initialization with Expand_CUDA_Package.
4073         * gnat_cuda.adb (Expand_CUDA_Package): New procedure.
4074         (Build_And_Insert_Cuda_Initialization): Make internal.
4075         * gnat_cuda.ads (Expand_CUDA_Package): New procedure.
4076         (Build_And_Insert_Cuda_Initialization): Remove from spec.
4078 2021-09-20  Ghjuvan Lacambre  <lacambre@adacore.com>
4080         * usage.adb (Usage): Update -gnatw.c messages.
4082 2021-09-20  Eric Botcazou  <ebotcazou@adacore.com>
4084         * sem_aux.adb (Is_By_Reference_Type): Do not test Error_Posted.
4086 2021-09-15  Alexandre Oliva  <oliva@adacore.com>
4088         * gcc-interface/utils.c: Include opts.h.
4089         (handle_zero_call_used_regs_attribute): New.
4090         (gnat_internal_attribute_table): Add zero_call_used_regs.
4092 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4094         PR ada/101970
4095         * exp_attr.adb (Expand_N_Attribute_Reference) <Attribute_Enum_Rep>:
4096         Use an unchecked conversion instead of a regular conversion in the
4097         enumeration case and remove Conversion_OK flag in the integer case.
4098         <Attribute_Pos>: Remove superfluous test.
4100 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4102         * gcc-interface/decl.c (validate_size): Do not issue an error if the
4103         old size has overflowed.
4105 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4107         * gcc-interface/decl.c (gnat_to_gnu_entity): For vector types, make
4108         the representative array the debug type.
4110 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4112         * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Turn variable
4113         into constant.  Capitalize GCC in warning message.
4114         (intrin_arglists_compatible_p): Change parameter to pointer-to-const
4115         Adjust warning messages.  Turn warning into error for vector types.
4116         (intrin_return_compatible_p): Likewise.
4117         (intrin_profiles_compatible_p): Change parameter to pointer-to-const
4119 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4121         * libgnat/s-atopri.ads (bool): Delete.
4122         (Atomic_Test_And_Set): Replace bool with Boolean.
4123         (Atomic_Always_Lock_Free): Likewise.
4124         * libgnat/s-aoinar.adb (Is_Lock_Free): Adjust.
4125         * libgnat/s-aomoar.adb (Is_Lock_Free): Likewise.
4126         * libgnat/s-aotase.adb (Atomic_Test_And_Set): Likewise.
4127         * libgnat/s-atopex.adb (Atomic_Compare_And_Exchange): Likewise.
4128         * gcc-interface/decl.c: Include gimple-expr.h.
4129         (intrin_types_incompatible_p): Delete.
4130         (intrin_arglists_compatible_p): Call types_compatible_p.
4131         (intrin_return_compatible_p): Likewise.
4133 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4135         * gcc-interface/utils.c (update_pointer_to): Set TYPE_CANONICAL on
4136         pointer and reference types.
4138 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4140         PR ada/101385
4141         * doc/gnat_ugn/building_executable_programs_with_gnat.rst
4142         (-Wall): Minor fixes.
4143         (-w): Likewise.
4144         (-Werror): Document that it also sets -gnatwe by default.
4145         * gcc-interface/lang-specs.h (ada): Expand -gnatwe if -Werror is
4146         passed and move expansion of -gnatw switches to before -gnatez.
4148 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4150         * gcc-interface/utils.c (can_materialize_object_renaming_p): Do not
4151         call UI_Is_In_Int_Range on the result of Normalized_First_Bit.
4153 2021-09-14  Eric Botcazou  <ebotcazou@adacore.com>
4155         * gcc-interface/decl.c (gnat_to_gnu_entity) <is_type>: Declare new
4156         constant.  Adjust error message issued by validate_size in the case
4157         of by-reference types.
4158         (validate_size): Always use the error strings passed by the caller.
4160 2021-09-08  liuhongt  <hongtao.liu@intel.com>
4162         * gcc-interface/misc.c (gnat_post_options): Issue an error for
4163         -fexcess-precision=16.
4165 2021-08-19  Arnaud Charlet  <charlet@adacore.com>
4167         PR ada/101924
4168         * gcc-interface/Make-lang.in (STAGE1_LIBS): Define on hpux.
4170 2021-08-18  Eric Botcazou  <ebotcazou@gcc.gnu.org>
4172         * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Fix
4173         thinko in latest change.
4175 2021-08-11  Bernd Edlinger  <bernd.edlinger@hotmail.de>
4177         PR debug/101598
4178         * gcc-interface/trans.c (Subprogram_Body_to_gnu): Set the
4179         DECL_SOURCE_LOCATION of DECL_IGNORED_P gnu_subprog_decl to
4180         UNKNOWN_LOCATION.
4182 2021-07-25  Arnaud Charlet  <charlet@adacore.com>
4184         * libgnat/s-osprim__x32.adb: Add missing with clause.
4186 2021-07-12  Pierre-Marie de Rodat  <derodat@adacore.com>
4188         * adaint.c (__gnat_number_of_cpus): Replace "#ifdef" by "#if
4189         defined".
4191 2021-07-12  Eric Botcazou  <ebotcazou@adacore.com>
4193         * gcc-interface/decl.c (gnat_to_gnu_entity) <discrete_type>: Add a
4194         parallel type only when -fgnat-encodings=all is specified.
4195         <E_Array_Type>: Use the PAT name and special suffixes only when
4196         -fgnat-encodings=all is specified.
4197         <E_Array_Subtype>: Build a special type for debugging purposes only
4198         when -fgnat-encodings=all is specified.  Add a parallel type or use
4199         the PAT name only when -fgnat-encodings=all is specified.
4200         <E_Record_Type>: Generate debug info for the inner record types only
4201         when -fgnat-encodings=all is specified.
4202         <E_Record_Subtype>: Use a debug type for an artificial subtype only
4203         except when -fgnat-encodings=all is specified.
4204         (elaborate_expression_1): Reset need_for_debug when possible only
4205         except when -fgnat-encodings=all is specified.
4206         (components_to_record): Use XV encodings for variable size only
4207         when -fgnat-encodings=all is specified.
4208         (associate_original_type_to_packed_array): Add a parallel type only
4209         when -fgnat-encodings=all is specified.
4210         * gcc-interface/misc.c (gnat_get_array_descr_info): Do not return
4211         full information only when -fgnat-encodings=all is specified.
4212         * gcc-interface/utils.c (make_packable_type): Add a parallel type
4213         only when -fgnat-encodings=all is specified.
4214         (maybe_pad_type): Make the inner type a debug type only except when
4215         -fgnat-encodings=all is specified.  Create an XVS type for variable
4216         size only when -fgnat-encodings=all is specified.
4217         (rest_of_record_type_compilation): Add a parallel type only when
4218         -fgnat-encodings=all is specified.
4220 2021-07-12  Eric Botcazou  <ebotcazou@adacore.com>
4222         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Use a
4223         fixed lower bound if the index subtype is marked so, as well as a
4224         more efficient formula for the upper bound if the array cannot be
4225         superflat.
4226         (flb_cannot_be_superflat): New predicate.
4227         (cannot_be_superflat): Rename into...
4228         (range_cannot_be_superfla): ...this.  Minor tweak.
4230 2021-07-12  Bob Duff  <duff@adacore.com>
4232         * uintp.ads, types.h: New subtypes of Uint: Valid_Uint, Unat,
4233         Upos, Nonzero_Uint with predicates. These correspond to new
4234         field types in Gen_IL.
4235         * gen_il-types.ads (Valid_Uint, Unat, Upos, Nonzero_Uint): New
4236         field types.
4237         * einfo-utils.ads, einfo-utils.adb, fe.h (Known_Alignment,
4238         Init_Alignment): Use the initial zero value to represent
4239         "unknown". This will ensure that if Alignment is called before
4240         Set_Alignment, the compiler will blow up (if assertions are
4241         enabled).
4242         * atree.ads, atree.adb, atree.h, gen_il-gen.adb
4243         (Get_Valid_32_Bit_Field): New generic low-level getter for
4244         subtypes of Uint.
4245         (Copy_Alignment): New procedure to copy Alignment field even
4246         when Unknown.
4247         (Init_Object_Size_Align, Init_Size_Align): Do not bypass the
4248         Init_ procedures.
4249         * exp_pakd.adb, freeze.adb, layout.adb, repinfo.adb,
4250         sem_util.adb: Protect calls to Alignment with Known_Alignment.
4251         Use Copy_Alignment when it might be unknown.
4252         * gen_il-gen-gen_entities.adb (Alignment,
4253         String_Literal_Length): Use type Unat instead of Uint, to ensure
4254         that the field is always Set_ before we get it, and that it is
4255         set to a nonnegative value.
4256         (Enumeration_Pos): Unat.
4257         (Enumeration_Rep): Valid_Uint. Can be negative, but must be
4258         valid before fetching.
4259         (Discriminant_Number): Upos.
4260         (Renaming_Map): Remove.
4261         * gen_il-gen-gen_nodes.adb (Char_Literal_Value, Reason): Unat.
4262         (Intval, Corresponding_Integer_Value): Valid_Uint.
4263         * gen_il-internals.ads: New functions for dealing with special
4264         defaults and new subtypes of Uint.
4265         * scans.ads: Correct comments.
4266         * scn.adb (Post_Scan): Do not set Intval to No_Uint; that is no
4267         longer allowed.
4268         * sem_ch13.adb (Analyze_Enumeration_Representation_Clause): Do
4269         not set Enumeration_Rep to No_Uint; that is no longer allowed.
4270         (Offset_Value): Protect calls to Alignment with Known_Alignment.
4271         * sem_prag.adb (Set_Atomic_VFA): Do not use Uint_0 to mean
4272         "unknown"; call Init_Alignment instead.
4273         * sinfo.ads: Minor comment fix.
4274         * treepr.adb: Deal with printing of new field types.
4275         * einfo.ads, gen_il-fields.ads (Renaming_Map): Remove.
4276         * gcc-interface/decl.c (gnat_to_gnu_entity): Use Known_Alignment
4277         before calling Alignment. This preserve some probably buggy
4278         behavior: if the alignment is not set, it previously defaulted
4279         to Uint_0; we now make that explicit.  Use Copy_Alignment,
4280         because "Set_Alignment (Y, Alignment (X));" no longer works when
4281         the Alignment of X has not yet been set.
4282         * gcc-interface/trans.c (process_freeze_entity): Use
4283         Copy_Alignment.
4285 2021-07-12  Eric Botcazou  <ebotcazou@adacore.com>
4287         * libgnat/s-dwalin.ads: Adjust a few comments left and right.
4288         (Line_Info_Register): Comment out unused components.
4289         (Line_Info_Header): Add DWARF 5 support.
4290         (Dwarf_Context): Likewise.  Rename "prologue" into "header".
4291         * libgnat/s-dwalin.adb: Alphabetize "with" clauses.
4292         (DWARF constants): Add DWARF 5 support and reorder.
4293         (For_Each_Row): Adjust.
4294         (Initialize_Pass): Likewise.
4295         (Initialize_State_Machine): Likewise and fix typo.
4296         (Open): Add DWARF 5 support.
4297         (Parse_Prologue): Rename into...
4298         (Parse_Header): ...this and add DWARF 5 support.
4299         (Read_And_Execute_Isn): Rename into...
4300         (Read_And_Execute_Insn): ...this and adjust.
4301         (To_File_Name): Change parameter name and add DWARF 5 support.
4302         (Read_Entry_Format_Array): New procedure.
4303         (Skip_Form): Add DWARF 5 support and reorder.
4304         (Seek_Abbrev): Do not count entries and add DWARF 5 support.
4305         (Debug_Info_Lookup): Add DWARF 5 support.
4306         (Symbolic_Address.Set_Result): Likewise.
4307         (Symbolic_Address): Adjust.
4309 2021-07-12  Bob Duff  <duff@adacore.com>
4311         * sem_ch13.adb (Duplicate_Clause): Add a helper routine
4312         Check_One_Attr, with a parameter for the attribute_designator we
4313         are looking for, and one for the attribute_designator of the
4314         current node (which are usually the same). For Size and
4315         Value_Size, call it twice, once for each.
4316         * errout.ads: Fix a typo.
4318 2021-07-12  Piotr Trojanek  <trojanek@adacore.com>
4320         * exp_imgv.adb (Expand_Image_Attribute): Move rewriting to
4321         attribute Put_Image to the beginning of expansion of attribute
4322         Image.
4324 2021-07-09  Eric Botcazou  <ebotcazou@adacore.com>
4326         * gcc-interface/utils.c (finish_subprog_decl): Remove obsolete line.
4328 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4330         * exp_put_image.adb (Make_Put_Image_Name): Fix style.
4331         (Image_Should_Call_Put_Image): Likewise.
4332         (Build_Image_Call): Likewise.
4334 2021-07-09  Ghjuvan Lacambre  <lacambre@adacore.com>
4336         * par-ch6.adb (Contains_Import_Aspect): New function.
4337         (P_Subprogram): Acknowledge `Import` aspects.
4339 2021-07-09  Bob Duff  <duff@adacore.com>
4341         * exp_put_image.adb (Make_Component_Attributes): Use
4342         Implementation_Base_Type to get the parent type. Otherwise,
4343         Parent_Type_Decl is actually an internally generated subtype
4344         declaration, so we blow up on
4345         Type_Definition (Parent_Type_Decl).
4347 2021-07-09  Dmitriy Anisimkov  <anisimko@adacore.com>
4349         * gsocket.h: Include net/if.h to get IF_NAMESIZE constant.
4350         * s-oscons-tmplt.c: Define IPV6_FLOWINFO for Linux.
4352 2021-07-09  Steve Baird  <baird@adacore.com>
4354         * libgnat/a-cdlili.adb: Reimplement
4355         Ada.Containers.Doubly_Linked_Lists.Generic_Sorting.Sort using
4356         Mergesort instead of the previous Quicksort variant.
4358 2021-07-09  Justin Squirek  <squirek@adacore.com>
4360         * exp_ch6.adb (Is_Build_In_Place_Function_Call): Add check to
4361         verify the Selector_Name of Exp_Node has been analyzed before
4362         obtaining its entity.
4364 2021-07-09  Gary Dismukes  <dismukes@adacore.com>
4366         * libgnarl/s-osinte__vxworks.ads: Fix typo ("release" =>
4367         "releases") plus comment reformatting.
4368         * libgnat/s-os_lib.ads: In a comment, fix typo ("indended" =>
4369         "intended"), add a hyphen and semicolon, plus reformatting. In
4370         comment for subtype time_t, fix typo ("effect" => "affect"), add
4371         hyphens, plus reformatting.
4372         * libgnat/s-parame.ads, libgnat/s-parame__ae653.ads,
4373         libgnat/s-parame__hpux.ads: Remove period from one-line comment.
4375 2021-07-09  Steve Baird  <baird@adacore.com>
4377         * exp_ch5.adb (Expand_General_Case_Statement): Add new function
4378         Else_Statements to handle the case of invalid data analogously
4379         to how it is handled when casing on a discrete value.
4380         * sem_case.adb (Has_Static_Discriminant_Constraint): A new
4381         Boolean-valued function.
4382         (Composite_Case_Ops.Scalar_Part_Count): Include discriminants
4383         when traversing components.
4384         (Composite_Case_Ops.Choice_Analysis.Traverse_Discrete_Parts):
4385         Include discriminants when traversing components; the component
4386         range for a constrained discriminant is a single value.
4387         (Composite_Case_Ops.Choice_Analysis.Parse_Choice): Eliminate
4388         Done variable and modify how Next_Part is computed so that it is
4389         always correct (as opposed to being incorrect when Done is
4390         True).  This includes changes in Update_Result (a local
4391         procedure).  Add new local procedure
4392         Update_Result_For_Box_Component and call it not just for box
4393         components but also for "missing" components (components
4394         associated with an inactive variant).
4395         (Check_Choices.Check_Composite_Case_Selector.Check_Component_Subtype):
4396         Instead of disallowing all discriminated component types, allow
4397         those that are unconstrained or statically constrained. Check
4398         discriminant subtypes along with other component subtypes.
4399         * doc/gnat_rm/implementation_defined_pragmas.rst: Update
4400         documentation to reflect current implementation status.
4401         * gnat_rm.texi: Regenerate.
4403 2021-07-09  Justin Squirek  <squirek@adacore.com>
4405         * sem_ch6.adb (Check_Pragma_Inline): Correctly use
4406         Corresponding_Spec_Of_Stub when dealing subprogram body stubs.
4408 2021-07-09  Doug Rupp  <rupp@adacore.com>
4410         * Makefile.rtl: Add translations for s-parame__posix2008.ads
4411         * libgnarl/s-linux.ads: Import System.Parameters.
4412         (time_t): Declare using System.Parameters.time_t_bits.
4413         * libgnarl/s-linux__alpha.ads: Likewise.
4414         * libgnarl/s-linux__android.ads: Likewise.
4415         * libgnarl/s-linux__hppa.ads: Likewise.
4416         * libgnarl/s-linux__mips.ads: Likewise.
4417         * libgnarl/s-linux__riscv.ads: Likewise.
4418         * libgnarl/s-linux__sparc.ads: Likewise.
4419         * libgnarl/s-linux__x32.ads: Likewise.
4420         * libgnarl/s-qnx.ads: Likewise.
4421         * libgnarl/s-osinte__aix.ads: Likewise.
4422         * libgnarl/s-osinte__android.ads: Likewise.
4423         * libgnarl/s-osinte__darwin.ads: Likewise.
4424         * libgnarl/s-osinte__dragonfly.ads: Likewise.
4425         * libgnarl/s-osinte__freebsd.ads: Likewise.
4426         * libgnarl/s-osinte__gnu.ads: Likewise.
4427         * libgnarl/s-osinte__hpux-dce.ads: Likewise.
4428         * libgnarl/s-osinte__hpux.ads: Likewise.
4429         * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
4430         * libgnarl/s-osinte__lynxos178e.ads: Likewise.
4431         * libgnarl/s-osinte__qnx.ads: Likewise.
4432         * libgnarl/s-osinte__rtems.ads: Likewise.
4433         * libgnarl/s-osinte__solaris.ads: Likewise.
4434         * libgnarl/s-osinte__vxworks.ads: Likewise.
4435         * libgnat/g-sothco.ads: Likewise.
4436         * libgnat/s-osprim__darwin.adb: Likewise.
4437         * libgnat/s-osprim__posix.adb: Likewise.
4438         * libgnat/s-osprim__posix2008.adb: Likewise.
4439         * libgnat/s-osprim__rtems.adb: Likewise.
4440         * libgnat/s-osprim__x32.adb: Likewise.
4441         * libgnarl/s-osinte__linux.ads: use type System.Linux.time_t.
4442         * libgnat/s-os_lib.ads (time_t): Declare as subtype of
4443         Long_Long_Integer.
4444         * libgnat/s-parame.ads (time_t_bits): New constant.
4445         * libgnat/s-parame__ae653.ads (time_t_bits): Likewise.
4446         * libgnat/s-parame__hpux.ads (time_t_bits): Likewise.
4447         * libgnat/s-parame__vxworks.ads (time_t_bits): Likewise.
4448         * libgnat/s-parame__posix2008.ads: New file for 64 bit time_t.
4450 2021-07-09  Bob Duff  <duff@adacore.com>
4452         * comperr.adb (Compiler_Abort): Print source file name.
4454 2021-07-09  Joffrey Huguet  <huguet@adacore.com>
4456         * libgnat/a-strunb.ads, libgnat/a-strunb__shared.ads: Fix layout
4457         in contracts.
4459 2021-07-09  Eric Botcazou  <ebotcazou@adacore.com>
4461         * repinfo.ads (JSON output format): Document adjusted key name.
4462         * repinfo.adb (List_Record_Layout): Use Original_Record_Component
4463         if the normalized position of the component is not known.
4464         (List_Structural_Record_Layout): Rename Outer_Ent parameter into
4465         Ext_End and add Ext_Level parameter. In an extension, if the parent
4466         subtype has static discriminants, call List_Record_Layout on it.
4467         Output "parent_" prefixes before "variant" according to Ext_Level.
4468         Adjust recursive calls throughout the procedure.
4470 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4472         * exp_util.ads (Map_Types): Fix typo.
4474 2021-07-09  Fedor Rybin  <frybin@adacore.com>
4476         * krunch.adb: Add safeguards against index range violations.
4478 2021-07-09  Arnaud Charlet  <charlet@adacore.com>
4480         * libgnat/a-strfix.adb: Take advantage of extended returns.
4482 2021-07-09  Eric Botcazou  <ebotcazou@adacore.com>
4484         * doc/gnat_rm/implementation_defined_attributes.rst
4485         (Scalar_Storage_Order): Add paragraph about representation
4486         changes.
4487         * gnat_rm.texi: Regenerate.
4489 2021-07-09  Frederic Konrad  <konrad@adacore.com>
4491         * Makefile.rtl (LIBGNAT_TARGET_PAIRS) <aarch64*-*-rtems*>: Use
4492         the wraplf variant of Aux_Long_Long_Float.
4494 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4496         * sem_ch6.adb (Analyze_Expression_Function): Initialize Orig_N
4497         and Typ variables.
4499 2021-07-09  Arnaud Charlet  <charlet@adacore.com>
4501         * sem_ch13.adb (Resolve_Aspect_Expressions): Use the same
4502         processing for Predicate, Static_Predicate and
4503         Dynamic_Predicate. Do not build the predicate function spec.
4504         Update comments.
4505         (Resolve_Name): Only reset Entity when necessary to avoid
4506         spurious visibility errors.
4507         (Check_Aspect_At_End_Of_Declarations): Handle consistently all
4508         Predicate aspects.
4509         * sem_ch3.adb (Analyze_Subtype_Declaration): Fix handling of
4510         private types with predicates.
4512 2021-07-09  Justin Squirek  <squirek@adacore.com>
4514         * sem_util.ads (Type_Access_Level): Add new optional parameter
4515         Assoc_Ent.
4516         * sem_util.adb (Accessibility_Level): Treat access discriminants
4517         the same as components when the restriction
4518         No_Dynamic_Accessibility_Checks is enabled.
4519         (Deepest_Type_Access_Level): Remove exception for
4520         Debug_Flag_Underscore_B when returning the result of
4521         Type_Access_Level in the case where
4522         No_Dynamic_Accessibility_Checks is active.
4523         (Function_Call_Or_Allocator_Level): Correctly calculate the
4524         level of Expr based on its containing subprogram instead of
4525         using Current_Subprogram.
4526         * sem_res.adb (Valid_Conversion): Add actual for new parameter
4527         Assoc_Ent in call to Type_Access_Level, and add test of
4528         No_Dynamic_Accessibility_Checks_Enabled to ensure that static
4529         accessibility checks are performed for all anonymous access type
4530         conversions.
4532 2021-07-09  Eric Botcazou  <ebotcazou@adacore.com>
4534         * exp_dbug.ads: Update documentation of various items.
4536 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4538         * sem_ch6.adb (Analyze_Expression_Function): Reorder code.
4540 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4542         * sem_ch6.adb (Analyze_Expression_Function): Reorder code.
4544 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4546         * sem_ch6.adb (Analyze_Expression_Function): Add variable to
4547         avoid repeated calls to Etype.
4549 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4551         * sem_ch6.adb (Analyze_Expression_Function): Fix comment.
4553 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4555         * sem_ch6.adb (Analyze_Expression_Function): Use Orig_N variable
4556         instead of repeated calls to Original_Node.
4558 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4560         * sem_ch6.adb (Analyze_Expression_Function): Change types local
4561         variables from Entity_Id to Node_Id.
4563 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4565         * sem_ch6.adb (Analyze_Expression_Function): A local Expr
4566         constant was shadowing a global constant with the same name and
4567         the same value.
4569 2021-07-09  Piotr Trojanek  <trojanek@adacore.com>
4571         * sem_res.adb (Preanalyze_And_Resolve): Only call
4572         Set_Must_Not_Freeze when it is necessary to restore the previous
4573         value.
4575 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4577         * sem_ch5.adb (Analyze_Assignment): Clear Current_Assignment at
4578         exit.
4579         (Analyze_Target_Name): Prevent AST climbing from going too far.
4581 2021-07-08  Ed Schonberg  <schonberg@adacore.com>
4583         * sem_ch5.adb (Analyze_Target_Name): Properly reject a
4584         Target_Name when it appears outside of an assignment statement,
4585         or within the left-hand side of one.
4587 2021-07-08  Bob Duff  <duff@adacore.com>
4589         * einfo-utils.ads, einfo-utils.adb (Unknown_Alignment,
4590         Unknown_Component_Bit_Offset, Unknown_Component_Size,
4591         Unknown_Esize, Unknown_Normalized_First_Bit,
4592         Unknown_Normalized_Position, Unknown_Normalized_Position_Max,
4593         Unknown_RM_Size): Remove these functions.
4594         * exp_pakd.adb, exp_util.adb, fe.h, freeze.adb, layout.adb,
4595         repinfo.adb, sem_ch13.adb, sem_ch3.adb, sem_util.adb: Remove
4596         calls to these functions; do "not Known_..." instead.
4597         * gcc-interface/decl.c, gcc-interface/trans.c
4598         (Unknown_Alignment, Unknown_Component_Size, Unknown_Esize,
4599         Unknown_RM_Size): Remove calls to these functions; do
4600         "!Known_..." instead.
4602 2021-07-08  Eric Botcazou  <ebotcazou@adacore.com>
4604         * exp_dbug.adb (Get_Encoded_Name): Do not encode names of discrete
4605         types with custom bounds, except with -fgnat-encodings=all.
4606         * exp_pakd.adb (Create_Packed_Array_Impl_Type): Adjust comment.
4608 2021-07-08  Bob Duff  <duff@adacore.com>
4610         * comperr.adb (Compiler_Abort): Call Sinput.Unlock, because if
4611         this is called late, then Source_Dump would crash otherwise.
4612         * debug.adb: Correct documentation of the -gnatd.9 switch.
4613         * exp_ch4.adb (Expand_Allocator_Expression): Add a comment.
4614         * exp_ch6.adb: Minor comment fixes.  Add assertion.
4615         * exp_ch6.ads (Is_Build_In_Place_Result_Type): Correct comment.
4616         * exp_ch7.adb, checks.ads: Minor comment fixes.
4618 2021-07-08  Doug Rupp  <rupp@adacore.com>
4620         * sigtramp-vxworks-target.inc: Rename to...
4621         * sigtramp-vxworks-target.h: ... this.
4622         * sigtramp-vxworks.c, Makefile.rtl: Likewise.
4624 2021-07-08  Ghjuvan Lacambre  <lacambre@adacore.com>
4626         * lib-writ.ads: Mention SCOs dependency as reason for duplicates.
4627         * lib.ads (Units): Update documentation to mention duplicated
4628         units.
4630 2021-07-08  Ed Schonberg  <schonberg@adacore.com>
4632         * style.adb (Missing_Overriding): Do not emit message when
4633         parent of subprogram is a full type declaration.
4635 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4637         * par-ch5.adb (P_Iterator_Specification): Add support for access
4638         definition in loop parameter.
4639         * sem_ch5.adb (Check_Subtype_Indication): Renamed...
4640         (Check_Subtype_Definition): ... into this and check for conformance
4641         on access definitions, and improve error messages.
4642         (Analyze_Iterator_Specification): Add support for access definition
4643         in loop parameter.
4645 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4647         * sem_util.ads, sem_util.adb
4648         (Apply_Compile_Time_Constraint_Error): New parameter
4649         Emit_Message.
4650         * sem_ch4.adb (Analyze_Selected_Component): Disable warning
4651         within an instance.
4653 2021-07-08  Eric Botcazou  <ebotcazou@adacore.com>
4655         * exp_imgv.adb: Add with and use clause for Restrict and Rident.
4656         (Build_Enumeration_Image_Tables): Do not generate the hash function
4657         if the No_Implicit_Loops restriction is active.
4659 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4661         * sem_ch12.adb, sem_ch6.adb, sem_ch9.adb, sprint.adb: Simplify
4662         checks for non-empty lists.
4664 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4666         * par-ch10.adb (Unit_Display): Remove redundant condition; fix
4667         whitespace.
4669 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4671         * lib-load.adb (Load): Replace early return with goto to properly
4672         restore context on failure.
4674 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4676         * lib-writ.adb (Ensure_System_Dependency): Simplify condition.
4678 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4680         * lib-load.adb (Load_Unit): Fix style in comment.
4681         * par-load.adb (Load): Likewise.
4682         * scng.adb (Initialize_Scanner): Fix whitespace.
4684 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4686         * par-load.adb (Load): Don't remove unit, but flag it as
4687         erroneous and return.
4689 2021-07-08  Ghjuvan Lacambre  <lacambre@adacore.com>
4691         * exp_prag.adb (Expand_Pragma_Inspection_Point): Fix error
4692         message.
4694 2021-07-08  Yannick Moy  <moy@adacore.com>
4696         * layout.adb (Layout_Type): Do not call Number_Dimensions if the
4697         type does not have First_Index set.
4699 2021-07-08  Ghjuvan Lacambre  <lacambre@adacore.com>
4701         * exp_prag.adb (Expand_Pragma_Inspection_Point): After expansion
4702         of the Inspection_Point pragma, check if referenced entities
4703         that have a freeze node are already frozen. If they aren't, emit
4704         a warning and turn the pragma into a no-op.
4706 2021-07-08  Yannick Moy  <moy@adacore.com>
4708         * layout.adb (Layout_Type): Add guard before calling Expr_Value.
4710 2021-07-08  Yannick Moy  <moy@adacore.com>
4712         * layout.adb (Layout_Type): Special case when RM_Size and Esize
4713         can be computed for packed arrays.
4715 2021-07-08  Steve Baird  <baird@adacore.com>
4717         * rtsfind.ads, rtsfind.adb: Add support for finding the packages
4718         System.Atomic_Operations and
4719         System.Atomic_Operations.Test_And_Set and the declarations
4720         within that latter package of the type Test_And_Set_Flag and the
4721         function Atomic_Test_And_Set.
4722         * exp_ch11.adb (Expand_N_Exception_Declaration): If an exception
4723         is declared other than at library level, then we need to call
4724         Register_Exception the first time (and only the first time) the
4725         declaration is elaborated.  In order to decide whether to
4726         perform this call for a given elaboration of the declaration, we
4727         used to unconditionally use a (library-level) Boolean variable.
4728         Now we instead use a variable of type
4729         System.Atomic_Operations.Test_And_Set.Test_And_Set_Flag unless
4730         either that type is unavailable or a No_Tasking restriction is
4731         in effect (in which case we use a Boolean variable as before).
4733 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4735         * gcc-interface/system.ads: Add No_Tasking restriction.
4737 2021-07-08  Ed Schonberg  <schonberg@adacore.com>
4739         * libgnat/a-cohama.ads: Introduce an equality operator over
4740         cursors.
4741         * libgnat/a-cohase.ads: Ditto.
4742         * libgnat/a-cohama.adb: Add body for "=" over cursors.
4743         (Insert): Do not set the Position component of the cursor that
4744         denotes the inserted element.
4745         * libgnat/a-cohase.adb: Ditto.
4747 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4749         * libgnat/a-cbdlli.adb, libgnat/a-cbhama.adb,
4750         libgnat/a-cbhase.adb, libgnat/a-cbmutr.adb,
4751         libgnat/a-cborma.adb, libgnat/a-cborse.adb,
4752         libgnat/a-cobove.adb, libgnat/a-textio.adb,
4753         libgnat/a-witeio.adb, libgnat/a-ztexio.adb: Make code compatible
4754         with No_Dynamic_Accessibility_Checks restriction.
4756 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4758         * debug.adb, sem_util.adb: Revert meaning of -gnatd_b.
4759         * sem_res.adb: Minor reformatting.
4761 2021-07-08  Arnaud Charlet  <charlet@adacore.com>
4763         * make.adb, osint.adb: Make code compatible with
4764         No_Dynamic_Accessibility_Checks restriction.
4766 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4768         * lib-writ.adb (Ensure_System_Dependency): Replace search in
4769         Lib.Units with a search in Lib.Unit_Names.
4771 2021-07-08  Piotr Trojanek  <trojanek@adacore.com>
4773         * sinput-l.adb (Load_File): Simplify foreword manipulation with
4774         concatenation; similar for filename with preprocessed output.
4776 2021-07-07  Dmitriy Anisimkov  <anisimko@adacore.com>
4778         * s-oscons-tmplt.c (MSG_WAITALL): Remove wrong #ifdef
4779         __MINWGW32__.
4781 2021-07-07  Gary Dismukes  <dismukes@adacore.com>
4783         * einfo-utils.adb (Primitive_Operations): Default to returning
4784         Direct_Primitive_Operations in the case of concurrent types
4785         (when Corresponding_Record_Type not present).
4786         * sem_ch9.adb (Analyze_Protected_Type_Declaration): Initialize
4787         Direct_Primitive_Operations to an empty element list.
4788         (Analyze_Task_Type_Declaration): Initialize
4789         Direct_Primitive_Operations to an empty element list.
4791 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4793         * sem_eval.adb (Set_Checking_Potentially_Static_Expression):
4794         Stronger assertion.
4796 2021-07-07  Arnaud Charlet  <charlet@adacore.com>
4798         * sem_ch12.adb (Analyze_Subprogram_Instantiation): Mark Anon_Id
4799         intrinsic before calling Analyze_Instance_And_Renamings because
4800         this flag may be propagated to other nodes.
4802 2021-07-07  Dmitriy Anisimkov  <anisimko@adacore.com>
4804         * s-oscons-tmplt.c (TCP_KEEPCNT TCP_KEEPIDLE, TCP_KEEPINTVL):
4805         Hardcode on Windows if undefined.
4807 2021-07-07  Bob Duff  <duff@adacore.com>
4809         * checks.adb (Install_Primitive_Elaboration_Check): Do not
4810         generate elaboration checks for primitives if pragma Pure or
4811         Preelaborate is present.  Misc comment fixes, including
4812         referring to the correct kind of check (elaboration, not
4813         accessibility).
4814         * checks.ads, restrict.adb, sem_cat.ads, sinfo.ads: Minor
4815         reformatting and comment fixes.
4817 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4819         * sem_prag.adb (Analyze_Pragma): Simplify processing of pragma
4820         CPP_Constructor.
4822 2021-07-07  Arnaud Charlet  <charlet@adacore.com>
4824         * libgnat/g-debpoo.adb (Code_Address_For_Allocate_End): Default
4825         Initialize.
4827 2021-07-07  Arnaud Charlet  <charlet@adacore.com>
4829         * libgnat/s-atocou.ads, libgnat/s-atocou__builtin.adb: Code
4830         cleanups.
4832 2021-07-07  Gary Dismukes  <dismukes@adacore.com>
4834         * freeze.adb (Check_Inherited_Conditions): Setting of Ekind,
4835         LSP_Subprogram, and Is_Wrapper needs to happen for null
4836         procedures as well as other wrapper cases, so the code is moved
4837         from the else part in front of the if statement.  (Fixes a
4838         latent bug encountered while working on this set of changes.)
4839         * sem_attr.adb (Resolve_Attribute): Report an error for the case
4840         of an Access attribute applied to a primitive of an abstract
4841         type when the primitive has any nonstatic Pre'Class or
4842         Post'Class expressions.
4843         * sem_ch8.adb (Analyze_Subprogram_Renaming): Report an error for
4844         the case of a actual subprogram associated with a nonabstract
4845         formal subprogram when the actual is a primitive of an abstract
4846         type and the primitive has any nonstatic Pre'Class or Post'Class
4847         expressions.
4848         * sem_disp.adb (Check_Dispatching_Context): Remove special
4849         testing for null procedures, and replace it with a relaxed test
4850         that avoids getting an error about illegal calls to abstract
4851         subprograms in cases where RM 6.1.1(7/5) applies in
4852         Pre/Post'Class aspects. Also, remove special test for
4853         Postcondition, which seems to be unnecessary, update associated
4854         comments, and fix a typo in one comment.
4855         (Check_Dispatching_Call): Remove an unneeded return statement,
4856         and report an error for the case of a nondispatching call to a
4857         nonabstract subprogram of an abstract type where the subprogram
4858         has nonstatic Pre/Post'Class aspects.
4859         * sem_util.ads
4860         (Is_Prim_Of_Abst_Type_With_Nonstatic_CW_Pre_Post): New function.
4861         (In_Pre_Post_Condition): Add a flag formal Class_Wide_Only,
4862         defaulted to False, for indicating whether the function should
4863         only test for the node being within class-wide pre- and
4864         postconditions.
4865         * sem_util.adb
4866         (Is_Prim_Of_Abst_Type_With_Nonstatic_CW_Pre_Post): New function
4867         to determine whether a subprogram is a primitive of an abstract
4868         type where the primitive has class-wide Pre/Post'Class aspects
4869         specified with nonstatic expressions.
4870         (In_Pre_Post_Condition): Extend testing to account for the new
4871         formal Class_Wide_Only.
4873 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4875         * sem_ch12.adb (Check_Shared_Variable_Control_Aspects): Errors
4876         emitted via Check_Volatility_Compatibility are now emitted at
4877         Actual, just like other errors emitted by
4878         Check_Shared_Variable_Control_Aspects.
4880 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4882         * uname.adb (Get_Unit_Name): Simplify with a bounded string
4883         buffer; also, this addresses a ??? comment about the max length
4884         being exceeded.
4886 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4888         * uname.adb (Get_Body_Name, Get_Parent_Body_Name,
4889         Get_Parent_Spec_Name, Get_Spec_Name, Is_Child_Name,
4890         Is_Body_Name, Is_Spec_Name, Name_To_Unit_Name): Use a local
4891         instead of the global buffer.
4893 2021-07-07  Bob Duff  <duff@adacore.com>
4895         * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Combine
4896         processing of Size and Value_Size clauses. Ensure that
4897         Value_Size is treated the same as Size, in the cases where both
4898         are allowed (i.e. the prefix denotes a first subtype).  Misc
4899         cleanup.
4900         * einfo-utils.adb (Init_Size): Add assertions.
4901         (Size_Clause): Return a Value_Size clause if present, instead of
4902         just looking for a Size clause.
4903         * einfo.ads (Has_Size_Clause, Size_Clause): Change documentation
4904         to include Value_Size.
4905         * sem_ch13.ads, layout.ads, layout.adb: Comment modifications.
4907 2021-07-07  Steve Baird  <baird@adacore.com>
4909         * exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): Add
4910         TSS_Put_Image to list of predefined primitives that need special
4911         treatment.
4912         (Build_General_Calling_Stubs, Build_Subprogram_Receiving_Stubs):
4913         Remove previous hack for dealing with TSS_Put_Image procedures.
4915 2021-07-07  Dmitriy Anisimkov  <anisimko@adacore.com>
4917         * libgnat/g-socket.adb (Get_Socket_Option): Add 500ms only when
4918         Minus_500ms_Windows_Timeout is True.
4919         (Set_Socket_Option): Use "* 1000" instead of "/ 0.001" to
4920         convert to milliseconds.
4922 2021-07-07  Bob Duff  <duff@adacore.com>
4924         * tbuild.adb (Unchecked_Convert_To): Set the Parent of the new
4925         node to the Parent of the old node.
4926         * tbuild.ads (Unchecked_Convert_To): Document differences
4927         between Convert_To and Unchecked_Convert_To. The previous
4928         documentation claimed they are identical except for the
4929         uncheckedness of the conversion.
4931 2021-07-07  Yannick Moy  <moy@adacore.com>
4933         * checks.adb (Apply_Scalar_Range_Check): Remove special case for
4934         GNATprove mode.
4935         * sem_res.adb (Resolve_Arithmetic_Op): Same.
4936         * sem_util.adb (Apply_Compile_Time_Constraint_Error): Same.
4938 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4940         * sem_ch6.adb (Check_For_Primitive_Subprogram): Move
4941         declarations of local variables after nested subprogram bodies.
4943 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4945         * exp_disp.adb (CPP_Num_Prims): Reuse List_Length.
4947 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4949         * exp_ch3.adb, exp_ch6.adb, sem_ch6.adb: Replace Ekind
4950         membership test in Private_Kind with a call to Is_Private_Type.
4952 2021-07-07  Bob Duff  <duff@adacore.com>
4954         * gen_il-gen-gen_entities.adb: Remove Linker_Section_Pragma
4955         field from Record_Field_Kind.  Minor comment improvement.
4957 2021-07-07  Yannick Moy  <moy@adacore.com>
4959         * libgnat/a-ngelfu.ads (Cot): Fix precondition.
4961 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4963         * par.adb (Par): A local Name variable is now a renaming of a
4964         constant slice.
4966 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4968         * gnat1drv.adb (Gnat1drv): Remove flagging of main unit and its
4969         corresponding spec as requiring code generation; now the flags
4970         are set much earlier.
4971         * lib-load.adb (Load_Main_Source): Set Generate_Code flag on the
4972         main unit source.
4973         (Make_Instance_Unit): Copy Generate_Code flag from the main unit
4974         to instance units.
4975         * lib-writ.adb (Write_ALI): Remove redundant condition;
4976         Generate_Code flag is always set for the main unit.
4977         * par-load.adb (Load): Set Generate_Code flag on the main unit's
4978         corresponding spec, if any.
4980 2021-07-07  Dmitriy Anisimkov  <anisimko@adacore.com>
4982         * libgnat/g-socket.ads (Option_Name): Add Keep_Alive_Count,
4983         Keep_Alive_Idle, and Keep_Alive_Interval items to enumeration.
4984         (Option_Type): Add Keep_Alive_Count, Keep_Alive_Idle, and
4985         Keep_Alive_Interval alternatives to the case of discriminated
4986         record.
4987         * libgnat/g-socket.adb (Options): Add Keep_Alive_Count,
4988         Keep_Alive_Idle, and Keep_Alive_Interval to items enumerator to
4989         OS constant converter.
4990         (Set_Socket_Option): Process Keep_Alive_Count, Keep_Alive_Idle,
4991         and Keep_Alive_Interval socket options.
4992         (Get_Socket_Option): Idem.
4994 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
4996         * lib-writ.adb (Write_ALI): Exit from loop after seeing first
4997         unit that violates No_Elaboration_Code restriction.
4999 2021-07-07  Piotr Trojanek  <trojanek@adacore.com>
5001         * inline.adb (Instantiate_Bodies): Fix white in declaration.
5002         (Remove_Dead_Instance): Change iteration from WHILE to FOR.
5004 2021-07-07  Bob Duff  <duff@adacore.com>
5006         * checks.adb, exp_attr.adb, exp_ch4.adb, exp_ch6.adb,
5007         exp_ch9.adb, exp_disp.adb, exp_util.adb, inline.adb,
5008         sem_res.adb: Change all calls to Make_Unchecked_Type_Conversion
5009         to call Unchecked_Convert_To instead. This involves removing
5010         New_Occurrence_Of on the first parameter, because
5011         Unchecked_Convert_To expects a type entity, rather than the name
5012         of one. Also, removed calls to Relocate_Node, because
5013         Unchecked_Convert_To takes care of that.
5014         * sinfo.ads: Change comment to be worded more firmly.
5016 2021-07-07  Steve Baird  <baird@adacore.com>
5018         * libgnarl/s-tassta.adb (Free_Task): Acquire the Task_Lock
5019         before, rather than after, querying the task's Terminated flag.
5020         Add a corresponding Task_Unlock call.
5022 2021-07-06  Bob Duff  <duff@adacore.com>
5024         * atree.ads (Current_Error_Node): Initialize to Empty.
5026 2021-07-06  Steve Baird  <baird@adacore.com>
5028         * exp_put_image.adb: Eliminate references to
5029         Debug_Flag_Underscore_Z.  Change the meaning of the function
5030         Enable_Put_Image. Previously, a result of False for a tagged
5031         type would mean that the type does not get a Put_Image (PI)
5032         routine at all. Now, it means that the type gets a PI routine
5033         with very abbreviated functionality (just a call to
5034         Unknown_Put_Image). This resolves problems in mixing code
5035         compiled with and without the -gnat2022 switch.
5036         * exp_ch3.adb: Enable_Put_Image no longer participates in
5037         determining whether a tagged type gets a Put_Image procedure.  A
5038         tagged type does not get a Put_Image procedure if the type
5039         Root_Buffer_Type is unavailable. This is needed to support cross
5040         targets where tagged types are supported but the type
5041         Root_Buffer_Type is not available.
5042         * exp_dist.adb: Add workarounds for some problems that arise
5043         when using the (obsolete?) Garlic implementation of the
5044         distributed systems annex with Ada 2022 constructs.
5045         * libgnat/a-sttebu.ads: Workaround a bootstrapping problem.
5046         Older compilers do not support raise expressions, so revise the
5047         the Pre'Class condition to meet this requirement without
5048         changing the condition's behavior at run time.
5050 2021-07-06  Eric Botcazou  <ebotcazou@adacore.com>
5052         * repinfo-input.adb (JSON_Entity_Kind, Read_Variant_Part): Fix
5053         typo in comment.
5055 2021-07-06  Steve Baird  <baird@adacore.com>
5057         * sem_ch5.adb (Analyze_Assignment): Add new nested function,
5058         Omit_Range_Check_For_Streaming, and make call to
5059         Apply_Scalar_Range_Check conditional on the result of this new
5060         function.
5061         * exp_attr.adb (Compile_Stream_Body_In_Scope): Eliminate Check
5062         parameter, update callers.  The new
5063         Omit_Range_Check_For_Streaming parameter takes the place of the
5064         old use of calling Insert_Action with Suppress => All_Checks,
5065         which was insufficiently precise (it did not allow suppressing
5066         checks for one component but not for another).
5067         (Expand_N_Attribute_Reference): Eliminate another "Suppress =>
5068         All_Checks" from an Insert_Action call, this one in generating
5069         the expansion of a T'Read attribute reference for a composite
5070         type T.
5072 2021-07-06  Ghjuvan Lacambre  <lacambre@adacore.com>
5074         * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Check for
5075         empty loops caused by constraints.
5077 2021-07-06  Nicolas Roche  <roche@adacore.com>
5079         * rtinit.c (skip_quoted_string): Handle malformed command line
5080         with no closing double quote.
5081         (skip_argument): Handle case in which a null character is
5082         encountered by skip_quote_string.
5084 2021-07-06  Piotr Trojanek  <trojanek@adacore.com>
5086         * uname.adb (Add_Node_Name): Replace local constant whose
5087         initial expression was evaluated even when unnecessary with just
5088         that expression that is evaluated at most once and only when
5089         needed.
5091 2021-07-06  Piotr Trojanek  <trojanek@adacore.com>
5093         * lib.adb (Remove_Unit): Replace defensive code with an
5094         assertion.
5095         * par-load.adb (Load): Address a question mark in the comment.
5097 2021-07-06  Piotr Trojanek  <trojanek@adacore.com>
5099         * sem_util.adb (Enclosing_Comp_Unit_Node): When the loop exits
5100         the Current_Node is either an N_Compilation_Unit node or Empty,
5101         so simply return it without redundant checks.
5103 2021-07-06  Piotr Trojanek  <trojanek@adacore.com>
5105         * lib-load.adb (Load_Unit): Remove excessive whitespace.
5106         * lib.adb (Is_Internal_Unit, Is_Predefined_Unit): Likewise.
5107         * par-ch10.adb (P_Compilation_Unit): Simplify with membership
5108         test.
5109         * par-load.adb (Load): Likewise.
5110         * uname.adb (Get_Unit_Name): Likewise.
5112 2021-07-06  Piotr Trojanek  <trojanek@adacore.com>
5114         * lib-writ.adb (Ensure_System_Dependency): Simplify by reusing a
5115         constant name.
5117 2021-07-06  Steve Baird  <baird@adacore.com>
5119         * exp_ch5.adb
5120         (Expand_N_Case_Statement.Expand_General_Case_Statement.Pattern_Match):
5121         When generating an equality test for a statically known discrete
5122         value, only generate the numeric value if the discrete type is
5123         not an enumeration type.  If it is an enumeration type, then
5124         call Get_Enum_Lit_From_Pos instead.
5126 2021-07-06  Justin Squirek  <squirek@adacore.com>
5128         * par-ch6.adb (Get_Return_Kind): Removed.
5129         (Is_Extended): Created to identify simple and "when" return
5130         statements from extended return statements.
5131         (P_Return_Statement): Merged simple and "when" return statement
5132         processing.
5134 2021-07-06  Gary Dismukes  <dismukes@adacore.com>
5136         * sem_ch4.adb (Try_One_Prefix_Interpretation): Augment test of
5137         "not Extensions_Allowed" with test for absence of Obj_Type's
5138         primitive operations Elist, as an additional condition for early
5139         return from this procedure.
5141 2021-07-06  Gary Dismukes  <dismukes@adacore.com>
5143         * exp_ch4.adb (Process_Transient_In_Expression): In one comment,
5144         fix two typos and reorder wording of one sentence, plus minor
5145         reformatting.
5147 2021-07-06  Justin Squirek  <squirek@adacore.com>
5149         * exp_ch5.adb (Expand_Formal_Container_Element_Loop): Remove
5150         legacy expansion of element iterators, and use expansion form
5151         used by unconstrained element types in the general case.
5153 2021-07-06  Ed Schonberg  <schonberg@adacore.com>
5155         * exp_ch4.adb (Process_Transient_In_Expression): Ensure that
5156         Fin_Context, used to insert finalization code for the
5157         expression, is a list member: the value returned by
5158         Find_Hook_Context may be an expression node when the transient
5159         is part of a larger expression and it has a non-boolean type.
5161 2021-07-06  Yannick Moy  <moy@adacore.com>
5163         * sem_case.adb: Fix error message.
5165 2021-07-06  Bob Duff  <duff@adacore.com>
5167         * tbuild.adb (Convert_To): Add assert, along with a comment.
5168         (Make_DT_Access): Remove this function, which is not used.  It
5169         was incorrect anyway (the call to New_Occurrence_Of should not
5170         be there).
5171         (Unchecked_Convert_To): Add assert.  The previous version's test
5172         for unchecked conversion to the same type was redundant and
5173         could never be true, because the previous 'if' already checked
5174         for ANY expression of the same type. Remove that, and replace
5175         with a test for unchecked conversion to a related type.
5176         Otherwise, we somethings get things like
5177         "finalize(some_type!(some_type!(x)))" in the generated code,
5178         where x is already of type some_type, but we're converting it to
5179         the private type and then to the full type or vice versa (so the
5180         types aren't equal, so the previous 'if' doesn't catch it).
5181         Avoid updating the Parent. This is not necessary; the Parent
5182         will be updated if/when the node is attached to the tree.
5183         * tbuild.ads: Fix comments. No need to say "this is safe" when
5184         we just explained that a few lines earlier.  Remove
5185         Make_DT_Access.
5186         * sinfo.ads: Add comments.
5187         * exp_ch7.adb (Make_Finalize_Address_Stmts): Minor comment fix.
5188         * gen_il-gen.adb, gen_il-gen.ads, gen_il-gen-gen_nodes.adb,
5189         gen_il-internals.ads: Implement a feature where you can put:
5190         Nmake_Assert => "expr" where expr is a boolean expression in a
5191         call to Create_Concrete_Node_Type. It is added in a pragma
5192         Assert in the Nmake.Make_... function for that type.
5194 2021-07-06  Gary Dismukes  <dismukes@adacore.com>
5196         * checks.adb: Remove calls of Set_Do_Tag_Check (N, False).
5197         * einfo.ads: Remove hanging unneeded ??? comment ("this real description
5198         was clobbered").
5199         * exp_util.ads (Insert_Actions_After): Remove ??? from spec comment.
5200         * gen_il-fields.ads (Opt_Field_Enum): Remove literals
5201         Do_Accessibility_Check and Do_Tag_Check.
5202         * gen_il-gen-gen_nodes.adb: Remove all calls to Sm for
5203         Do_Accessibility_Check and Do_Tag_Check.
5204         * sem_type.ads (Is_Subtype_Of): Remove obsolete ???
5205         comment (function is not limited to scalar subtypes).
5206         * sem_util.ads (Is_Local_Variable_Reference): Revise comment to
5207         mention out-mode parameters as well, and remove ???.
5208         (Propagate_Concurrent_Flags): Minor reformatting.
5209         (Propagate_Invariant_Attributes): Typo fix.
5210         (Propagate_Predicate_Attributes): Indicate what is propagated
5211         and remove ??? comment.
5212         * sem_util.adb (Cannot_Raise_Constraint_Error): Remove unneeded
5213         test of Do_Tag_Check.
5214         (Is_Local_Variable_Reference): Extend function to testing for
5215         formals of mode out as well.
5216         * sinfo.ads: Remove ??? comment about flag
5217         Convert_To_Return_False indicating that the flag is obsolete (in
5218         fact it's used). Remove references to Do_Accessibility_Check and
5219         Do_Tag_Check (and the two associated ??? comments), as these
5220         flags are unneeded.
5221         * sinfo-cn.adb (Change_Conversion_To_Unchecked): Remove call of
5222         Set_Do_Tag_Check (N, False).
5223         * targparm.ads (Support_Atomic_Primitives_On_Target): Remove ???
5224         comment, plus minor reformatting.
5226 2021-07-06  Justin Squirek  <squirek@adacore.com>
5228         * par-ch6.adb (Get_Return_Kind): Properly handle the case of a
5229         "return when" statement in the procedure case.
5231 2021-07-06  Bob Duff  <duff@adacore.com>
5233         * sem.ads (Node_To_Be_Wrapped): Minor comment fix.
5234         * exp_ch7.adb (Establish_Transient_Scope): Misc cleanups and
5235         comment improvements.
5236         (Set_Node_To_Be_Wrapped): Remove -- not worth putting this code
5237         in a separate procedure, called only once.
5238         * sem_util.adb (Requires_Transient_Scope): Assert that our
5239         parameter has the right Kind. It probably shouldn't be E_Void,
5240         but that is passed in in some cases.
5241         (Ensure_Minimum_Decoration): Move the call later, so we know Typ
5242         is Present, and remove "if Present (Typ)" from this procedure.
5243         * exp_aggr.adb (Convert_To_Assignments): Use membership test,
5244         and avoid the "if False" idiom.
5245         (Expand_Array_Aggregate): Remove a ??? comment.
5246         * sem_ch8.adb (Push_Scope): Take advantage of the full coverage
5247         rules for aggregates.
5248         * sem_res.adb (Resolve_Declare_Expression): Remove test for
5249         Is_Type -- that's all it can be.  Use named notation in call to
5250         Establish_Transient_Scope.
5251         * libgnat/a-cdlili.adb (Adjust): Remove redundant code.
5252         (Clear): Remove "pragma Warnings (Off);", which wasn't actually
5253         suppressing any warnings.
5255 2021-07-06  Bob Duff  <duff@adacore.com>
5257         * gen_il-gen-gen_nodes.adb: Change the parent of
5258         N_Exception_Declaration to be N_Declaration.  Minor comment fix.
5260 2021-07-06  Ed Schonberg  <schonberg@adacore.com>
5262         * exp_ch4.adb (Expand_N_Type_Conversion): If the conversion is
5263         the name of an assignment operation do not apply predicate check
5264         to it prior to the assignment.
5266 2021-07-06  Bob Duff  <duff@adacore.com>
5268         * libgnat/a-conhel.adb: Assert that tampering counts remain
5269         between 0 and 2**31-1.  This makes debugging of
5270         finalization-related bugs easier.
5272 2021-07-06  Doug Rupp  <rupp@adacore.com>
5274         * Makefile.rtl (LIBGNAT_TARGET_PAIRS): Use s-osprim__posix.adb
5275         vice s-osprim__vxworks.adb for all vxworks7r2 targets.
5277 2021-07-06  Richard Kenner  <kenner@adacore.com>
5279         * gen_il-types.ads (Void_Or_Type_Kind,
5280         Exception_Or_Object_Kind): Declare.
5281         * gen_il-gen-gen_entities.adb: Likewise.
5283 2021-07-06  Gary Dismukes  <dismukes@adacore.com>
5285         * doc/gnat_rm/implementation_defined_pragmas.rst: Add a
5286         description of the feature of prefixed-view calls for untagged
5287         types to the section on pragma Extensions_Allowed.
5288         * gnat_rm.texi: Regenerate.
5289         * einfo.ads: Update specification for
5290         Direct_Primitive_Operations to reflect its use for untagged
5291         types when Extensions_Allowed is True.
5292         * gen_il-gen-gen_entities.adb: Allow Direct_Primitive_Operations
5293         as a field of untagged classes of types by removing the "Pre"
5294         test of "Is_Tagged_Type (N)", and making that field generally
5295         available for all types and subtypes by defining it for
5296         Type_Kind and removing its specification for individual classes
5297         of types.
5298         * sem_ch3.adb (Analyze_Full_Type_Declaration): Initialize the
5299         Direct_Primitive_Operations list when not already set for the
5300         new (sub)type and its base type (except when Ekind of the type
5301         is E_Void, which can happen due to errors in cases where
5302         Derived_Type_Declaration is called and perhaps in other
5303         situations).
5304         (Analyze_Subtype_Declaration): Inherit
5305         Direct_Primitive_Operations list from the base type, for record
5306         and private cases.
5307         (Build_Derived_Record_Type): Initialize the
5308         Direct_Primitive_Operations list for derived record and private
5309         types.
5310         (Build_Derived_Type): Initialize the Direct_Primitive_Operations
5311         list for derived types (and also for their associated base types
5312         when needed).
5313         (Process_Full_View): For full types that are untagged record and
5314         private types, copy the primitive operations of the partial view
5315         to the primitives list of the full view.
5316         * sem_ch4.adb (Analyze_Selected_Component): Allow prefixed
5317         notation for subprogram calls in the case of untagged
5318         types (when Extensions_Allowed is True). In the case where
5319         Is_Private_Type (Prefix_Type) is True, call Try_Object_Operation
5320         when a discriminant selector wasn't found. Also call
5321         Try_Object_Operation in other type kind cases (when
5322         Extensions_Allowed is True).
5323         (Try_Object_Operation.Try_One_Prefixed_Interpretation): Prevent
5324         early return in the untagged case (when Extensions_Allowed is
5325         True). Condition main call to Try_Primitive_Operation on the
5326         type having primitives, and after that, if Prim_Result is False,
5327         test for case where the prefix type is a named access type with
5328         primitive operations and in that case call
5329         Try_Primitive_Operation after temporarily resetting Obj_Type to
5330         denote the access type (and restore it to the designated type
5331         after the call)
5332         (Try_Object_Operation.Valid_First_Argument_Of): Do matching type
5333         comparison by testing Base_Type (Obj_Type) against
5334         Base_Type (Typ), rather than against just Typ, to properly
5335         handle cases where the object prefix has a constrained
5336         subtype.  (Fixes a bug discovered while working on this
5337         feature.)
5338         * sem_ch6.adb
5339         (New_Overloaded_Entity.Check_For_Primitive_Subprogram): Add a
5340         primitive of an untagged type to the type's list of primitive
5341         operations, for both explicit and implicit (derived, so
5342         Comes_From_Source is False) subprogram declarations. In the case
5343         where the new primitive overrides an inherited subprogram,
5344         locate the primitives Elist that references the overridden
5345         subprogram, and replace that element of the list with the new
5346         subprogram (done by calling the new procedure
5347         Add_Or_Replace_Untagged_Primitive on the result type and each
5348         formal atype).
5349         (Check_For_Primitive_Subprogram.Add_Or_Replace_Untagged_Primitive):
5350         New nested procedure to either add or replace an untagged
5351         primitive subprogram in a given type's list of primitive
5352         operations (replacement happens in case where the new subprogram
5353         overrides a primitive of the type).
5354         * sem_ch7.adb (New_Private_Type): When Extensions_Allowed is
5355         True, initialize the Direct_Primitive_Operations list of a
5356         private type to New_Elmt_List in the case of untagged types.
5357         * sem_ch8.adb (Find_Selected_Component): In the case where the
5358         prefix is an entity name, relax condition that tests
5359         Has_Components so that Analyze_Selected_Component will also be
5360         called when Extensions_Allowed is True and the prefix type is
5361         any type.
5363 2021-07-06  Ed Schonberg  <schonberg@adacore.com>
5365         * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Do not perform
5366         conformance check when the subprogram body has been created for
5367         an expression function that is not a completion of a previous
5368         specification, because the profile of the constructed body is
5369         copied from the expression function itself.
5371 2021-07-06  Steve Baird  <baird@adacore.com>
5373         * doc/gnat_rm/implementation_of_specific_ada_features.rst: Add a
5374         warning indicating that the details of the default (i.e.,
5375         selected by the compiler) implementation of T'Put_Image for a
5376         nonscalar type T are subject to change.
5377         * gnat_rm.texi: Regenerate.
5379 2021-07-05  Pierre-Marie de Rodat  <derodat@adacore.com>
5381         * gnat-style.texi, gnat_rm.texi, gnat_ugn.texi: Regenerate.
5383 2021-07-05  Piotr Trojanek  <trojanek@adacore.com>
5385         * sem_prag.adb (Analyze_Depends_In_Decl_Part): Reject overlays
5386         in Depends and Refined_Depends contracts.
5387         (Analyze_Global_In_Decl_Part): Likewise for Global and
5388         Refined_Global.
5389         (Analyze_Initializes_In_Decl_Part): Likewise for Initializes
5390         (when appearing both as a single item and as a initialization
5391         clause).
5392         * sem_util.ads (Ultimate_Overlaid_Entity): New routine.
5393         * sem_util.adb (Report_Unused_Body_States): Ignore overlays.
5394         (Ultimate_Overlaid_Entity): New routine.
5396 2021-07-05  Claire Dross  <dross@adacore.com>
5398         * libgnat/a-cfdlli.ads, libgnat/a-cfdlli.adb
5399         libgnat/a-cfinve.ads, libgnat/a-cfinve.adb,
5400         libgnat/a-cofove.ads, libgnat/a-cofove.adb,
5401         libgnat/a-coboho.ads, libgnat/a-coboho.adb (Constant_Reference):
5402         Get a read-only access to an element of the container.
5403         (At_End): Ghost functions used to express pledges in the
5404         postcondition of Reference.
5405         (Reference): Get a read-write access to an element of the
5406         container.
5407         * libgnat/a-cfhama.ads, libgnat/a-cfhama.adb,
5408         libgnat/a-cforma.ads, libgnat/a-cforma.adb: The full view of the
5409         Map type is no longer a tagged type, but a wrapper over this
5410         tagged type. This is to avoid issues with dispatching result in
5411         At_End functions.
5412         (Constant_Reference): Get a read-only access to an element of
5413         the container.
5414         (At_End): Ghost functions used to express pledges in the
5415         postcondition of Reference.
5416         (Reference): Get a read-write access to an element of the
5417         container.
5418         * libgnat/a-cfhase.ads, libgnat/a-cfhase.adb,
5419         libgnat/a-cforse.ads, libgnat/a-cforse.adb: The full view of the
5420         Map type is no longer a tagged type, but a wrapper over this
5421         tagged type.
5422         (Constant_Reference): Get a read-only access to an element of
5423         the container.
5424         * libgnat/a-cofuse.ads, libgnat/a-cofuve.ads (Copy_Element):
5425         Expression function used to cause SPARK to make sure
5426         Element_Type is copiable.
5427         * libgnat/a-cofuma.ads (Copy_Key): Expression function used to
5428         cause SPARK to make sure Key_Type is copiable.
5429         (Copy_Element): Expression function used to cause SPARK to make
5430         sure Element_Type is copiable.
5432 2021-07-05  Yannick Moy  <moy@adacore.com>
5434         * sem_prag.adb (Analyze_Global_Item): Adapt to update SPARK RM
5435         rule.
5437 2021-07-05  Arnaud Charlet  <charlet@adacore.com>
5439         * Make-generated.in: Add -f switch to ensure cp will never fail.
5441 2021-07-05  Steve Baird  <baird@adacore.com>
5443         * exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): When
5444         building the assignment statement corresponding to the default
5445         expression for a component, we make a copy of the expression.
5446         When making that copy (and if we have seen a component that
5447         requires late initialization), pass a Map parameter into the
5448         call to New_Copy_Tree to redirect references to the type to
5449         instead refer to the _Init formal parameter of the init proc.
5450         This includes hoisting the declaration of Has_Late_Init_Comp out
5451         one level so that it becomes available to Build_Assignment.
5452         (Find_Current_Instance): Return True for other kinds of current
5453         instance references, instead of just access-valued attribute
5454         references such as T'Access.
5455         * sem_util.adb (Is_Aliased_View): Return True for the _Init
5456         formal parameter of an init procedure. The changes in
5457         exp_ch3.adb can have the effect of replacing a "T'Access"
5458         attribute reference in an init procedure with an "_Init'Access"
5459         attribute reference. We want such an attribute reference to be
5460         legal. However, we do not simply mark the formal parameter as
5461         being aliased because that might impact callers.
5462         (Is_Object_Image): Return True if Is_Current_Instance returns
5463         True for the prefix of an Image (or related attribute) attribute
5464         reference.
5466 2021-07-05  Piotr Trojanek  <trojanek@adacore.com>
5468         * exp_ch3.adb (Stream_Operation_OK): Reuse
5469         Is_Concurrent_Interface.
5470         * sem_ch3.adb (Analyze_Interface_Declaration,
5471         Build_Derived_Record_Type): Likewise.
5472         * sem_ch6.adb (Check_Limited_Return): Likewise.
5473         * sem_util.adb (Is_Concurrent_Interface): Don't call
5474         Is_Interface because each of the Is_Protected_Interface,
5475         Is_Synchronized_Interface and Is_Task_Interface calls it anyway.
5477 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5479         * sem_ch6.adb (Check_Limited_Return): Replace Comes_From_Source
5480         with Comes_From_Extended_Return_Statement.
5482 2021-07-05  Steve Baird  <baird@adacore.com>
5484         * libgnat/a-stobbu.adb, libgnat/a-stobbu.ads,
5485         libgnat/a-stobfi.adb, libgnat/a-stobfi.ads,
5486         libgnat/a-stoubu.adb, libgnat/a-stoubu.ads,
5487         libgnat/a-stoufi.adb, libgnat/a-stoufi.ads,
5488         libgnat/a-stoufo.adb, libgnat/a-stoufo.ads,
5489         libgnat/a-stouut.adb, libgnat/a-stouut.ads,
5490         libgnat/a-stteou.ads: Delete files.
5491         * Makefile.rtl, impunit.adb: Remove references to deleted files.
5493 2021-07-05  Piotr Trojanek  <trojanek@adacore.com>
5495         * sem_util.adb (Has_Compatible_Alignment_Internal): If the
5496         prefix of the Address expression is an entire object with a
5497         known alignment, then skip checks related to its size.
5499 2021-07-05  Doug Rupp  <rupp@adacore.com>
5501         * libgnat/s-os_lib.ads: Import OS_Time comparison ops as
5502         intrinsic.
5503         * libgnat/s-os_lib.adb: Remove OS_TIme comparison ops
5504         implementation.
5506 2021-07-05  Doug Rupp  <rupp@adacore.com>
5508         * libgnat/s-os_lib.ads: Add some comments about time_t.
5509         * libgnat/s-os_lib.adb (GM_Split/To_GM_Time): Rename formal to
5510         P_OS_Time.
5511         (GM_Time_Of/To_OS_Time): Likewise.
5513 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5515         * sem_res.adb (Resolve): Insert minus sign if needed.
5517 2021-07-05  Steve Baird  <baird@adacore.com>
5519         * exp_put_image.adb:
5520         (Enable_Put_Image, Preload_Root_Buffer_Type): Revert to querying
5521         the -gnatd_z switch, as opposed to testing whether Ada_Version >= Ada_2022.
5523 2021-07-05  Justin Squirek  <squirek@adacore.com>
5525         * checks.adb (Accessibility_Checks_Suppressed): Add check
5526         against restriction No_Dynamic_Accessibility_Checks.
5527         (Apply_Accessibility_Check): Add assertion to check restriction
5528         No_Dynamic_Accessibility_Checks is not active.
5529         * debug.adb: Add documentation for new debugging switch to
5530         control which accessibility model gets employed under
5531         restriction No_Dynamic_Accessibility_Checks.
5532         * exp_attr.adb (Expand_N_Attribute_Reference): Disable dynamic
5533         accessibility check generation when
5534         No_Dynamic_Accessibility_Checks is active.
5535         * exp_ch4.adb (Apply_Accessibility_Check): Skip check generation
5536         when restriction No_Dynamic_Accessibility_Checks is active.
5537         (Expand_N_Allocator): Disable dynamic accessibility checks when
5538         No_Dynamic_Accessibility_Checks is active.
5539         (Expand_N_In): Disable dynamic accessibility checks when
5540         No_Dynamic_Accessibility_Checks is active.
5541         (Expand_N_Type_Conversion): Disable dynamic accessibility checks
5542         when No_Dynamic_Accessibility_Checks is active.
5543         * exp_ch5.adb (Expand_N_Assignment_Statement): Disable
5544         alternative accessibility model calculations when computing a
5545         dynamic level for a SAOAAT.
5546         * exp_ch6.adb (Add_Call_By_Copy_Code): Disable dynamic
5547         accessibility check generation when
5548         No_Dynamic_Accessibility_Checks is active.
5549         (Expand_Branch): Disable alternative accessibility model
5550         calculations.
5551         (Expand_Call_Helper): Disable alternative accessibility model
5552         calculations.
5553         * restrict.adb, restrict.ads: Add new restriction
5554         No_Dynamic_Accessibility_Checks.
5555         (No_Dynamic_Accessibility_Checks_Enabled): Created to test when
5556         experimental features (which are generally incompatible with
5557         standard Ada) can be enabled.
5558         * sem_attr.adb (Safe_Value_Conversions): Add handling of new
5559         accessibility model under the restriction
5560         No_Dynamic_Accessibility_Checks.
5561         * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
5562         Disallow new restriction No_Dynamic_Accessibility_Checks from
5563         being exclusively specified within a body or subunit without
5564         being present in a specification.
5565         * sem_res.adb (Check_Fully_Declared_Prefix): Minor comment
5566         fixup.
5567         (Valid_Conversion): Omit implicit conversion checks on anonymous
5568         access types and perform static checking instead when
5569         No_Dynamic_Accessibility_Checks is active.
5570         * sem_util.adb, sem_util.ads (Accessibility_Level): Add special
5571         handling of anonymous access objects, formal parameters,
5572         anonymous access components, and function return objects.
5573         (Deepest_Type_Access_Level): When
5574         No_Dynamic_Accessibility_Checks is active employ an alternative
5575         model. Add paramter Allow_Alt_Model to override the new behavior
5576         in certain cases.
5577         (Type_Access_Level): When No_Dynamic_Accessibility_Checks is
5578         active employ an alternative model. Add parameter
5579         Allow_Alt_Model to override the new behavior in certain cases.
5580         (Typ_Access_Level): Created within Accessibility_Level for
5581         convenience.
5582         * libgnat/s-rident.ads, snames.ads-tmpl: Add handing for
5583         No_Dynamic_Accessibility_Checks.
5585 2021-07-05  Doug Rupp  <rupp@adacore.com>
5587         * adaint.h (__gnat_set_file_time_name): Use OS_Time.
5588         * adaint.c (__gnat_set_file_time_name): Likewise.
5590 2021-07-05  Doug Rupp  <rupp@adacore.com>
5592         * adaint.h (OS_Time): typedef as long long.
5593         * osint.adb (Underlying_OS_Time): Declare as 64-bit signed type.
5594         * libgnat/s-os_lib.adb ("<"): Compare OS_Time as
5595         Long_Long_Integer.
5596         ("<="): Likewise.
5597         (">"): Likewise.
5598         (">="): Likewise.
5599         * libgnat/s-os_lib.ads (OS_Time): Declare as 64-bit signed type.
5601 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5603         * sem_ch3.adb (Check_Abstract_Overriding): Post error message on
5604         renaming node.
5606 2021-07-05  Yannick Moy  <moy@adacore.com>
5608         * libgnat/a-uncdea.ads: Add Depends/Post to
5609         Ada.Unchecked_Deallocation.
5610         * sem_ch4.adb (Analyze_Allocator): Remove checking of allocator
5611         placement.
5612         * sem_res.adb (Flag_Object): Same.
5614 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5616         * aspects.ads: Add GNAT_Annotate aspect.
5617         * gnat1drv.adb (Adjust_Global_Switches): Stop defining
5618         Name_Gnat_Annotate as an alias of Name_Annotate.
5619         * snames.ads-tmpl: Define Gnat_Annotate.
5620         * par-prag.adb, sem_prag.ads: Add Pragma_Gnat_Annotate to list
5621         of pragmas.
5622         * lib-writ.adb, sem_ch13.adb, sem_prag.adb: Handle Gnat_Annotate
5623         like Aspect_Annotate.
5625 2021-07-05  Piotr Trojanek  <trojanek@adacore.com>
5627         * ttypes.ads (Target_Strict_Alignment): Fix comment.
5629 2021-07-05  Piotr Trojanek  <trojanek@adacore.com>
5631         * sem_util.adb (Has_Compatible_Alignment_Internal): Fix
5632         indentation of ELSIF comments; remove explicit calls to
5633         UI_To_Int; remove extra parens around the MOD operand.
5635 2021-07-05  Ed Schonberg  <schonberg@adacore.com>
5637         * sem_aggr.adb (Resolve_Record_Aggregate, Step_5): Do not check
5638         for the need to use an extension aggregate for a given component
5639         when within an instance and the type of the component hss a
5640         private ancestor: the instantiation is legal if the generic
5641         compiles, and spurious errors may be generated otherwise.
5643 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5645         * errout.adb (Output_JSON_Message): Recursively call
5646         Output_JSON_Message for continuation messages instead of
5647         appending their content to the initial message.
5649 2021-07-05  Steve Baird  <baird@adacore.com>
5651         * debug.adb: Remove comments about -gnatd_z switch.
5652         * exp_ch3.adb (Make_Predefined_Primitive_Specs): A one-line fix
5653         for a subtle bug that took some effort to debug. Append a new
5654         Put_Image procedure for a type extension even if it seems to
5655         already have one, just as is done for (for example) the
5656         streaming-related Read procedure.
5657         * exp_put_image.adb:
5658         (Build_Record_Put_Image_Procedure.Make_Component_Attributes): Do
5659         not treat _Parent component like just another component, for two
5660         reasons.  1. If the _parent component's type has a
5661         user-specified Put_Image procedure, then we want to generate a
5662         call to that procedure and then generate extension aggregate
5663         syntax.  2. Otherwise, we still don't want to see any mention of
5664         "_parent" in the generated image text.
5665         (Build_Record_Put_Image_Procedure.Make_Component_Name): Add
5666         assertion that we are not generating a reference to an "_parent"
5667         component.
5668         (Build_Record_Put_Image_Procedure): Add special treatment for
5669         null records.  Add call to Duplicate_Subexpr for image attribute
5670         prefix in order to help with expansion needed in the class-wide
5671         case (where the prefix is also referenced in the call to
5672         Wide_Wide_Expanded_Name) if evaluation of the prefix has side
5673         effects. Add new local helper function, Put_String_Exp.  Add
5674         support for case where prefix type is class-wide.
5675         (Enable_Put_Image, Preload_Root_Buffer_Type): Query Ada_Version
5676         > Ada_2022 instead of (indirectly) querying -gnatd_z switch.
5677         * freeze.adb (In_Expanded_Body): A one-line change to add
5678         TSS_Put_Image to the list of subprograms that have
5679         expander-created bodies.
5680         * rtsfind.ads: Add support for accessing
5681         Ada.Tags.Wide_Wide_Expanded_Name.
5682         * sem_ch3.ads, sem_ch3.adb: Delete Is_Null_Extension function,
5683         as part of moving it to Sem_Util.
5684         * sem_ch13.adb
5685         (Analyze_Put_Image_TSS_Definition.Has_Good_Profile): Improve
5686         diagnostic messages in cases where the result is going to be
5687         False and the Report parameter is True. Relax overly-restrictive
5688         checks in order to implement mode conformance.
5689         (Analyze_Stream_TSS_Definition.Has_Good_Profile): Add similar
5690         relaxation of parameter subtype checking for the Stream
5691         parameter of user-defined streaming subprograms.
5692         * sem_disp.adb (Check_Dispatching_Operation): A one-line
5693         change (and an accompanying comment change) to add TSS_Put_Image
5694         to the list of compiler-generated dispatching primitive
5695         operations.
5696         * sem_util.ads, sem_util.adb: Add Ignore_Privacy Boolean
5697         parameter to Is_Null_Record_Type function (typically the
5698         parameter will be False when the function is being used in the
5699         implementation of static semantics and True for dynamic
5700         semantics; the parameter might make a difference in the case of,
5701         for example, a private type that is implemented as a null record
5702         type).  Add related new routines Is_Null_Extension (formerly
5703         declared in Sem_Ch3), Is_Null_Extension_Of, and
5704         Is_Null_Record_Definition.
5706 2021-07-05  Justin Squirek  <squirek@adacore.com>
5708         * freeze.adb (Freeze_Profile): Use N's Sloc, F_type's chars.
5710 2021-07-05  Bob Duff  <duff@adacore.com>
5712         * checks.adb, exp_aggr.adb, exp_ch5.adb, freeze.adb,
5713         sem_util.adb, sem_util.ads: Change L and H to be First and Last,
5714         to match the attributes in the RM. Change calls from procedure
5715         to function where appropriate.
5717 2021-07-05  Bob Duff  <duff@adacore.com>
5719         * sem_util.ads, sem_util.adb (Compute_Returns_By_Ref): New
5720         procedure to compute Returns_By_Ref, to avoid some code
5721         duplication. This will likely change soon, so it's good to have
5722         the code in one place.
5723         (CW_Or_Has_Controlled_Part): Move here from Exp_Ch7, because
5724         it's called by Compute_Returns_By_Ref, and this is a better
5725         place for it anyway.
5726         (Needs_Finalization): Fix comment to be vague instead of wrong.
5727         * exp_ch6.adb (Expand_N_Subprogram_Body, Freeze_Subprogram):
5728         Call Compute_Returns_By_Ref.
5729         * sem_ch6.adb (Check_Delayed_Subprogram): Call
5730         Compute_Returns_By_Ref.
5731         * exp_ch7.ads, exp_ch7.adb (CW_Or_Has_Controlled_Part): Move to
5732         Sem_Util.
5733         (Has_New_Controlled_Component): Remove unused function.
5735 2021-07-05  Ghjuvan Lacambre  <lacambre@adacore.com>
5737         * sem_ch3.adb (Check_Abstract_Overriding): Check for renamings.
5739 2021-07-05  Boris Yakobowski  <yakobowski@adacore.com>
5741         * exp_ch4.adb (Expand_N_Op_Rem): Remove special case for rem -1
5742         in CodePeer_Mode.
5744 2021-07-01  Eric Botcazou  <ebotcazou@adacore.com>
5746         PR ada/101094
5747         * exp_attr.adb (Get_Integer_Type): Return an integer type with the
5748         same signedness as the input type.
5750 2021-06-29  Richard Kenner  <kenner@adacore.com>
5752         * sem_util.adb (Visit_Node): Add handling for N_Block_Statement
5753         with declarations.
5755 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5757         * einfo-utils.adb
5758         (Unknown_Alignment): Simply negate the Known_ counterpart.
5759         (Unknown_Component_Bit_Offset): Likewise.
5760         (Unknown_Esize): Likewise.
5761         (Unknown_Normalized_First_Bit): Likewise.
5762         (Unknown_Normalized_Position): Likewise.
5763         (Unknown_Normalized_Position_Max): Likewise.
5764         (Unknown_RM_Size): Likewise.
5766 2021-06-29  Boris Yakobowski  <yakobowski@adacore.com>
5768         * exp_ch4.adb (Expand_N_Op_Mod): Remove special case for mod -1
5769         in CodePeer_Mode.
5771 2021-06-29  Aleksandra Pasek  <pasek@adacore.com>
5773         * libgnat/s-objrea.adb (EM_AARCH64): New Constant.
5774         (Initialize): Handle EM_AARCH64 case.
5775         (Read_Address): Handle AARCH64 case.
5776         * libgnat/s-objrea.ads (Object_Arch): Add AARCH64 record
5777         component.
5779 2021-06-29  Bob Duff  <duff@adacore.com>
5781         * sem_ch13.adb (Analyze_Record_Representation_Clause): Call
5782         Set_Entity_With_Checks instead of Set_Entity, so we perform the
5783         check for correct casing.
5784         * style.adb (Check_Identifier): Minor comment improvement.
5785         Cleanup overly complicated code.
5787 2021-06-29  Ed Schonberg  <schonberg@adacore.com>
5789         * exp_aggr.adb (Convert_Aggr_In_Object_Decl): After expansion of
5790         the aggregate, the expression can be removed from the
5791         declaration, except if the object is class-wide, in which case
5792         the aggregate provides the actual type. In other cases the
5793         presence of the expression may lead to spurious freezing issue.
5794         * exp_ch3.adb (Expand_N_Object_Declaration): If the expression
5795         in the declaration is an aggregate with delayed expansion (as is
5796         the case for objects of a limited type, or a subsequent address
5797         specification) the aggregate must be resolved at this point.
5798         This resolution must not include expansion, because the
5799         expansion of the enclosing declaration will construct the
5800         necessary aggregate expansion.
5802 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5804         * errout.ads (Adjust_Name_Case): Remove obsolete and now unused
5805         variant.
5806         * errout.adb (Adjust_Name_Case): Likewise; fix variant that uses
5807         a custom buffer to also use it for names in Standard_Location.
5809 2021-06-29  Eric Botcazou  <ebotcazou@adacore.com>
5811         * sem_ch12.adb (Freeze_Subprogram_Body): Add missing "freeze".
5812         (Install_Body): Likewise.
5814 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5816         * adaint.c (__gnat_portable_spawn): Revert change that
5817         introduced setting of __gnat_in_child_after_fork.
5819 2021-06-29  Patrick Bernardi  <bernardi@adacore.com>
5821         * libgnarl/s-tasdeb.ads (Known_Tasks): Add Atomic_Components
5822         aspect.
5824 2021-06-29  Doug Rupp  <rupp@adacore.com>
5826         * Makefile.rtl (x86_64-vx7r2) [EXTRA_GNATRTL_TASKING_OBJS]: Move
5827         i-vxinco.o out of RTP runtime.
5829 2021-06-29  Claire Dross  <dross@adacore.com>
5831         * libgnat/a-cfdlli.ads: Use pragma Assertion_Policy to disable
5832         pre and postconditions.
5833         * libgnat/a-cfhama.ads: Likewise.
5834         * libgnat/a-cfhase.ads: Likewise.
5835         * libgnat/a-cfinve.ads: Likewise.
5836         * libgnat/a-cforma.ads: Likewise.
5837         * libgnat/a-cforse.ads: Likewise.
5838         * libgnat/a-cofove.ads: Likewise.
5840 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5842         * sem_util.ads (Get_Fullest_View): Refill comment; remove extra
5843         extra after period.
5844         * sem_util.adb (Get_Fullest_View): Fix style.
5846 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5848         * sem_ch3.adb (Analyze_Declarations): Remove explicit check for
5849         missing, because a subsequent call to Is_Empty_List will detect
5850         them anyway.
5852 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5854         * freeze.adb (Freeze_All): Simplify by reusing
5855         Is_Subprogram_Or_Entry.
5856         * sem_ch11.adb (Analyze_Handled_Statement): Likewise.
5858 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5860         * sem_warn.adb (Warn_On_Overlapping_Actuals): Prevent cascaded
5861         errors once for the subprogram call, not for every pair of
5862         actual parameters.
5864 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5866         * sem_ch3.adb (Is_Local_Type): Simplify by reusing Scope_Within.
5868 2021-06-29  Gary Dismukes  <dismukes@adacore.com>
5870         * sem_ch6.ads (Can_Override_Operator): Function declaration
5871         moved from package body to package spec.
5872         * sem_ch6.adb (Check_Overriding_Indicator): Now use test of
5873         whether the subprogram's Chars is an operator name, to handle
5874         cases of function instances whose entity is
5875         N_Defining_Identifier rather than N_Defining_Operator_Symbol.
5876         (Can_Override_Operator): Function declaration moved to package
5877         spec.  Now use test of whether the subprogram's Chars is an
5878         operator name, to handle cases of function instances whose
5879         entity is N_Defining_Identifier rather than
5880         N_Defining_Operator_Symbol.
5881         * sem_ch8.adb (Analyze_Renamed_Subprogram): Check for
5882         possibility of an overridden predefined operator, and suppress
5883         the "not overriding" message in that case.
5885 2021-06-29  Doug Rupp  <rupp@adacore.com>
5887         * Makefile.rtl: Add a new ifeq for vx7r2 shared gnatlib.
5889 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5891         * exp_attr.adb (Build_Array_VS_Func): Restore uses of
5892         Validated_View.
5893         (Build_Record_VS_Func): Likewise.
5894         (Expand_N_Attribute_Reference): Likewise.
5895         * sem_util.adb (Validated_View): Behave as an identity function
5896         for arrays and scalars.
5898 2021-06-29  Bob Duff  <duff@adacore.com>
5900         * atree.adb, atree.ads (Parent, Set_Parent): Assert node is
5901         Present.
5902         (Copy_Parent, Parent_Kind): New helper routines.
5903         * gen_il-gen.adb: Add with clause.
5904         * nlists.adb (Parent): Assert Parent of list is Present.
5905         * aspects.adb, checks.adb, exp_aggr.adb, exp_ch6.adb,
5906         exp_util.adb, lib-xref-spark_specific.adb, osint.ads,
5907         sem_ch12.adb, sem_ch13.adb, sem_ch3.adb, sem_ch6.adb,
5908         sem_dim.adb, sem_prag.adb, sem_res.adb, sem_util.adb,
5909         treepr.adb: Do not call Parent and Set_Parent on the Empty node.
5910         * libgnat/a-stwiun__shared.adb, libgnat/a-stzunb__shared.adb:
5911         Minor: Fix typos in comments.
5912         * einfo.ads: Minor comment update.
5913         * sinfo-utils.ads, sinfo-utils.adb (Parent_Kind, Copy_Parent):
5914         New functions.
5916 2021-06-29  Eric Botcazou  <ebotcazou@adacore.com>
5918         * repinfo-input.adb (Read_JSON_Stream): Fix typo.
5920 2021-06-29  Eric Botcazou  <ebotcazou@adacore.com>
5922         * rtsfind.ads (RE_Id): Change RE_Valid_Enumeration_Value_NN into
5923         RE_Valid_Value_Enumeration_NN.
5924         (RE_Unit_Table): Adjust to above renaming.
5925         * exp_imgv.adb (Expand_Valid_Value_Attribute): Likewise.
5926         * libgnat/s-valuen.ads (Invalid): Remove.
5927         (Value_Enumeration_Pos): Move to...
5928         * libgnat/s-valuen.adb (Value_Enumeration_Pos): ...here.
5929         Return -1 instead of Invalid.
5930         (Value_Enumeration): Compare against 0 instead of Invalid.
5931         (Valid_Enumeration_Value): Likewise.  Rename to...
5932         (Valid_Value_Enumeration): ...this.
5933         * libgnat/s-vaenu8.ads (Valid_Enumeration_Value_8): Rename into...
5934         (Valid_Value_Enumeration_8): ...this.
5935         * libgnat/s-vaen16.ads (Valid_Enumeration_Value_16): Rename into...
5936         (Valid_Value_Enumeration_16): ...this.
5937         * libgnat/s-vaen32.ads (Valid_Enumeration_Value_32): Rename into...
5938         (Valid_Value_Enumeration_32): ...this.
5940 2021-06-29  Bob Duff  <duff@adacore.com>
5942         * einfo.ads (Component_Bit_Offset, Component_Size): Update
5943         documentation: Repinfo is the package where these negative
5944         values are documented.
5945         * einfo-utils.adb (Known_Component_Size,
5946         Known_Static_Component_Size, Unknown_Component_Size): Remove
5947         calls to Implementation_Base_Type, because Component_Size is an
5948         Impl_Base_Type_Only field (see Gen_Entities).
5949         * sem_ch13.ads, sem_ch13.adb (Check_Size): Do not set Esize and
5950         RM_Size. This is unnecessary in the case of Size. For
5951         Component_Size, it is wrong, because we would be setting the
5952         Esize and RM_Size of the component type.
5954 2021-06-29  Pascal Obry  <obry@adacore.com>
5956         * s-oscons-tmplt.c: Add some OS constants.
5958 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5960         * sem_util.ads (Validated_View): Fix style in comment.
5961         * sem_util.adb (Validated_View): Rewrite in recursive style.
5963 2021-06-29  Eric Botcazou  <ebotcazou@adacore.com>
5965         * Make-generated.in (ada/stamp-gen_il): Ignore errors from
5966         running gen_il-main.
5968 2021-06-29  Richard Kenner  <kenner@adacore.com>
5970         * gen_il-gen-gen_entities.adb (Record_Field_Kind,
5971         Allocatable_Kind): Add new abstract kinds.
5972         (Constant_Or_Variable_Kind): Likewise.
5973         (E_Constant, E_Variable, E_Loop_Parameter): Use them.
5974         (E_Discriminant, E_Component): Likewise.
5975         * gen_il-types.ads (type Opt_Type_Enum): Add them.
5977 2021-06-29  Bob Duff  <duff@adacore.com>
5979         * gen_il-gen.adb (Put_C_Type_And_Subtypes): Put the correct
5980         numbers.
5981         * gen_il-internals.ads, gen_il-internals.adb: (Pos): Remove this
5982         function. It was assuming that the order of the enumeration
5983         literals in Type_Enum is the same as the order of the generated
5984         types Node_Kind and Entity_Kind, which is not true.
5986 2021-06-29  Piotr Trojanek  <trojanek@adacore.com>
5988         * exp_attr.adb (Expand_N_Attribute_Reference): Explicitly use
5989         Validated_View for record objects.
5991 2021-06-28  Martin Sebor  <msebor@redhat.com>
5993         * gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu):
5994         Replace TREE_NO_WARNING with suppress_warning.
5995         (gnat_gimplify_expr): Same.
5996         * gcc-interface/utils.c (gnat_pushdecl): Same.
5998 2021-06-21  Gary Dismukes  <dismukes@adacore.com>
6000         * checks.adb (Selected_Range_Checks): In the case of a
6001         qualified_expression where the qualifying subtype is an
6002         unconstrained array subtype with fixed lower bounds for some of
6003         its indexes, generate tests to check that those bounds are equal
6004         to the corresponding lower bounds of the qualified array object.
6006 2021-06-21  Bob Duff  <duff@adacore.com>
6008         * libgnat/s-valuen.ads (Value_Enumeration,
6009         Valid_Enumeration_Value): Inline.
6010         (Value_Enumeration_Pos): Add Pure_Function.
6012 2021-06-21  Justin Squirek  <squirek@adacore.com>
6014         * doc/gnat_rm/implementation_defined_pragmas.rst: Document new
6015         feature under pragma Extensions_Allowed.
6016         * gnat_rm.texi: Regenerate.
6017         * errout.adb, errout.ads (Error_Msg_GNAT_Extension): Created to
6018         issue errors when parsing extension only constructs.
6019         * exp_ch11.adb, exp_ch11.ads (Expand_N_Raise_When_Statement):
6020         Created to expand raise ... when constucts.
6021         * exp_ch5.adb, exp_ch5.ads (Expand_N_Goto_When_Statement):
6022         Created to expand goto ... when constructs.
6023         * exp_ch6.adb, exp_ch6.ads (Expand_N_Return_When_Statement):
6024         Created to expand return ... when constructs.
6025         * expander.adb (Expand): Add case entries for "when" constructs.
6026         * gen_il-gen-gen_nodes.adb, gen_il-types.ads: Add entries for
6027         "when" constructs.
6028         * par-ch11.adb (P_Raise_Statement): Add processing for raise ...
6029         when.
6030         * par-ch5.adb (Missing_Semicolon_On_Exit): Renamed to
6031         Missing_Semicolon_On_When and moved to par-util.adb.
6032         * par-ch6.adb (Get_Return_Kind): Renamed from Is_Simple and
6033         processing added for "return ... when" return kind.
6034         (Is_Simple): Renamed to Get_Return_Kind.
6035         (P_Return_Statement): Add case for return ... when variant of
6036         return statement.
6037         * par-util.adb, par.adb (Missing_Semicolon_On_When): Added to
6038         centeralize parsing of "when" keywords in the context of "when"
6039         constructs.
6040         * sem.adb (Analyze): Add case for "when" constructs.
6041         * sem_ch11.adb, sem_ch11.ads (Analyze_Raise_When_Statement):
6042         Created to analyze raise ... when constructs.
6043         * sem_ch5.adb, sem_ch5.ads (Analyzed_Goto_When_Statement):
6044         Created to analyze goto ... when constructs.
6045         * sem_ch6.adb, sem_ch6.ads (Analyze_Return_When_Statement):
6046         Created to analyze return ... when constructs.
6047         * sprint.adb (Sprint_Node_Actual): Add entries for new "when"
6048         nodes.
6050 2021-06-21  Steve Baird  <baird@adacore.com>
6052         * Make-generated.in (GEN_IL_FLAGS): Keep only GNAT flags.
6053         (ada/stamp-gen_il): Remove dependencies on libgnat/ sources.  Do not
6054         copy libgnat/ sources locally and tidy up.
6055         * Makefile.rtl: Include object files for new Text_Buffer units
6056         in the GNATRTL_NONTASKING_OBJS list.
6057         * exp_put_image.ads, exp_put_image.adb: Update Rtsfind calls to
6058         match new specs. For example, calls to RE_Sink are replaced with
6059         calls to RE_Root_Buffer_Type. Update comments and change
6060         subprogram names accordingly (e.g., Preload_Sink is changed to
6061         Preload_Root_Buffer_Type).
6062         * impunit.adb: Add 6 new predefined units (Text_Buffers and 5
6063         child units thereof).
6064         * rtsfind.ads, rtsfind.adb: Add interfaces for accessing the
6065         Ada.Strings.Text_Buffers package and declarations
6066         therein (including the Unbounded child unit). Do not (yet)
6067         delete interfaces for accessing the old Text_Output package.
6068         * sem_attr.adb (Check_Put_Image_Attribute): Replace RE_Sink uses
6069         with RE_Root_Buffer_Type and update comments accordingly.
6070         * sem_ch10.adb (Analyze_Compilation_Unit): Update call to
6071         reflect name change of callee (that is, the former Preload_Sink
6072         is now Preload_Root_Buffer_Type).
6073         * sem_ch13.adb (Has_Good_Profile): Replace RE_Sink use with
6074         RE_Root_Buffer_Type.
6075         (Build_Spec): Update comment describing a parameter type.
6076         * gen_il.ads: Remove clauses for the old Text_Output package and
6077         add them for Ada.Streams.Stream_IO.
6078         (Sink): Declare.
6079         (Create_File): Likewise.
6080         (Increase_Indent): Likewise.
6081         (Decrease_Indent): Likewise.
6082         (Put): Likewise.
6083         (LF): Likewise.
6084         * gen_il.adb: Add clauses for Ada.Streams.Stream_IO.
6085         (Create_File): New procedure.
6086         (Increase_Indent): Likewise.
6087         (Decrease_Indent): Likewise.
6088         (Put): New procedures.
6089         * gen_il-gen.adb: Add clauses for Ada.Text_IO.  Replace
6090         Sink'Class with Sink throughout.  Use string concatenation and
6091         LF marker instead of formatted strings and "\n" marker.  Update
6092         Indent/Outdent calls to use new Increase_Indent/Decrease_Indent
6093         names.
6094         (Put_Membership_Query_Decl): Remove.
6095         * gen_il-internals.ads: Replace Sink'Class with Sink throughout.
6096         (Ptypes): Remove.
6097         (Pfields): Likewise.
6098         * gen_il-internals.adb: Remove clauses for GNAT.OS_Lib and
6099         Ada.Strings.Text_Buffers.Files.  Replace Sink'Class with Sink
6100         throughout.  Use string concatenation and LF marker instead of
6101         formatted strings and "\n" marker.
6102         (Stdout): Remove.
6103         (Ptypes): Likewise.
6104         (Pfields): Likewise.
6105         * libgnarl/s-putaim.ads: Modify context clause, update
6106         declaration of subtype Sink to refer to
6107         Text_Buffers.Root_Buffer_Type instead of the old
6108         Text_Output.Sink type.
6109         * libgnarl/s-putaim.adb: Modify context clause and add use
6110         clause to refer to Text_Buffers package.
6111         * libgnat/a-cbdlli.ads, libgnat/a-cbdlli.adb,
6112         libgnat/a-cbhama.ads, libgnat/a-cbhama.adb,
6113         libgnat/a-cbhase.ads, libgnat/a-cbhase.adb,
6114         libgnat/a-cbmutr.ads, libgnat/a-cbmutr.adb,
6115         libgnat/a-cborma.ads, libgnat/a-cborma.adb,
6116         libgnat/a-cborse.ads, libgnat/a-cborse.adb,
6117         libgnat/a-cdlili.ads, libgnat/a-cdlili.adb,
6118         libgnat/a-cidlli.ads, libgnat/a-cidlli.adb,
6119         libgnat/a-cihama.ads, libgnat/a-cihama.adb,
6120         libgnat/a-cihase.ads, libgnat/a-cihase.adb,
6121         libgnat/a-cimutr.ads, libgnat/a-cimutr.adb,
6122         libgnat/a-ciorma.ads, libgnat/a-ciorma.adb,
6123         libgnat/a-ciormu.ads, libgnat/a-ciormu.adb,
6124         libgnat/a-ciorse.ads, libgnat/a-ciorse.adb,
6125         libgnat/a-coboho.ads, libgnat/a-coboho.adb,
6126         libgnat/a-cobove.ads, libgnat/a-cobove.adb,
6127         libgnat/a-cohama.ads, libgnat/a-cohama.adb,
6128         libgnat/a-cohase.ads, libgnat/a-cohase.adb,
6129         libgnat/a-coinho.ads, libgnat/a-coinho.adb,
6130         libgnat/a-coinho__shared.ads, libgnat/a-coinho__shared.adb,
6131         libgnat/a-coinve.ads, libgnat/a-coinve.adb,
6132         libgnat/a-comutr.ads, libgnat/a-comutr.adb,
6133         libgnat/a-convec.ads, libgnat/a-convec.adb,
6134         libgnat/a-coorma.ads, libgnat/a-coorma.adb,
6135         libgnat/a-coormu.ads, libgnat/a-coormu.adb,
6136         libgnat/a-coorse.ads, libgnat/a-coorse.adb,
6137         libgnat/a-nbnbin.ads, libgnat/a-nbnbin.adb,
6138         libgnat/a-nbnbin__gmp.adb, libgnat/a-nbnbre.ads,
6139         libgnat/a-nbnbre.adb, libgnat/a-strunb.ads,
6140         libgnat/a-strunb.adb, libgnat/a-strunb__shared.ads,
6141         libgnat/a-strunb__shared.adb, libgnat/s-rannum.ads,
6142         libgnat/s-rannum.adb: Modify Put_Image procedure used in
6143         Put_Image aspect specification to conform to Ada profile
6144         rules (in particular, the first parameter shall be of type
6145         Ada.Strings.Text_Buffers.Root_Buffer_Type'Class).
6146         * libgnat/a-sttebu.ads, libgnat/a-sttebu.adb,
6147         libgnat/a-stbubo.ads, libgnat/a-stbubo.adb,
6148         libgnat/a-stbufi.ads, libgnat/a-stbufi.adb,
6149         libgnat/a-stbufo.ads, libgnat/a-stbufo.adb,
6150         libgnat/a-stbuun.ads, libgnat/a-stbuun.adb,
6151         libgnat/a-stbuut.ads, libgnat/a-stbuut.adb: A new predefined
6152         unit, Ada.Strings.Text_Buffers, and five child units.  Two of
6153         the five are RM-defined: Bounded and Unbounded. The remaining
6154         three are GNAT-defined: Files, Utils, and Formatting. The buffer
6155         type corresponding to an output file, type Files.File_Buffer, is
6156         simpler (and perhaps therefore slower) than its predecessor.
6157         Caching similar to what was being done before could be added
6158         later if that seems appropriate.
6159         * libgnat/s-putima.ads: Modify context clause, update
6160         declaration of subtype Sink to refer to
6161         Text_Buffers.Root_Buffer_Type instead of the old
6162         Text_Output.Sink type.
6163         * libgnat/s-putima.adb: Modify context clause.  Update
6164         Indent/Outdent calls to use new Increase_Indent/Decrease_Indent
6165         names; ditto for "Put_String => Put" name change.
6166         * libgnat/a-stteou__bootstrap.ads: Delete.
6168 2021-06-21  Eric Botcazou  <ebotcazou@adacore.com>
6170         * exp_ch5.adb (Expand_Assign_Array_Bitfield_Fast): If big-endian
6171         ordering is in effect for the operands and they are small,
6172         adjust the unchecked conversions done around them.
6174 2021-06-21  Richard Kenner  <kenner@adacore.com>
6176         * einfo.ads (Return_Statement): Add documentation.
6177         * exp_ch6.adb (Expand_N_Extended_Return_Statement): Set it.
6178         * gen_il-fields.ads: Add it.
6179         * gen_il-gen-gen_entities.adb: Add it.
6181 2021-06-21  Bob Duff  <duff@adacore.com>
6183         * rtsfind.ads, libgnat/s-bitfie.ads, libgnat/s-bituti.adb,
6184         libgnat/s-bituti.ads (Fast_Copy_Bitfield): New run-time library
6185         function to copy bit fields faster than Copy_Bitfield. Cannot be
6186         called with zero-size bit fields.  Remove obsolete ??? comments
6187         from s-bituti.adb; we already do "avoid calling this if
6188         Forwards_OK is False".
6189         * exp_ch5.adb (Expand_Assign_Array_Loop_Or_Bitfield,
6190         Expand_Assign_Array_Bitfield_Fast): Generate calls to
6191         Fast_Copy_Bitfield when appropriate.
6192         * sem_util.adb, sem_util.ads (Get_Index_Bounds): Two new
6193         functions for getting the index bounds. These are more
6194         convenient than the procedure of the same name, because they can
6195         be used to initialize constants.
6197 2021-06-21  Ed Schonberg  <schonberg@adacore.com>
6199         * gen_il-fields.ads: Add Default_Subtype_Mark to enumeration
6200         type for fields.
6201         * gen_il-gen-gen_nodes.adb: Add call to create new field for
6202         Formal_Type_Declaration node.
6203         * par-ch12.adb (P_Formal_Type_Declaration): in Ada_2022 mode,
6204         recognize new syntax for default: "or use subtype_mark".
6205         (P_Formal_Type_Definition): Ditto for the case of a formal
6206         incomplete type.
6207         * sinfo.ads: Add field Default_Subtype_Mark to
6208         N_Formal_Type_Declaration.
6209         * sem_ch12.adb (Validate_Formal_Type_Default): New procedure, to
6210         apply legality rules to default subtypes in formal type
6211         declarations. Some legality rules apply to all defaults, such as
6212         the requirement that the default for a formal type that depends
6213         on previous formal entities must itself be a previously declared
6214         formal of the same unit. Other checks are kind- specific.
6215         (Analyze_Associations): Use specified default if there is no
6216         actual provided for a formal type in an instance.
6217         (Analyze_Formal_Type_Declaration): Call
6218         Validate_Formal_Type_Default when default subtype is present.
6220 2021-06-21  Bob Duff  <duff@adacore.com>
6222         * libgnat/s-valuen.ads, libgnat/s-valuen.adb
6223         (Value_Enumeration_Pos): New function to compute the 'Pos of the
6224         enumeration literal for a given String.  Return a special value
6225         instead of raising an exception on invalid input. Called by both
6226         Valid_Enumeration_Image and Value_Enumeration.
6227         (Valid_Enumeration_Image): Return a Boolean indicating whether
6228         the String is a valid Image for the given enumeration type.
6229         (Value_Enumeration): Implement in terms of
6230         Value_Enumeration_Pos.
6231         * libgnat/s-vaenu8.ads, libgnat/s-vaen16.ads,
6232         libgnat/s-vaen32.ads: Rename Valid_Enumeration_Image from the
6233         instances.
6234         * libgnat/s-valuti.ads: Correct documentation (it was not true
6235         for the null string).
6236         * libgnat/s-valuti.adb (Normalize_String): Do not raise
6237         Constraint_Error for the null string, nor strings containing
6238         nothing but blanks, so that Valid_Enumeration_Image can return
6239         False in these cases, rather than raising an exception.
6240         * rtsfind.ads (RE_Value_Enumeration_8, RE_Value_Enumeration_16,
6241         RE_Value_Enumeration_32): New functions.
6242         (RTE_Available): Improve comment (E doesn't have to be a
6243         subprogram, although that's the usual case).
6244         * sem_attr.adb (nalid_Value): Semantic analysis for new
6245         attribute.
6246         * exp_attr.adb: Call Expand_Valid_Value_Attribute for new
6247         attribute.
6248         * exp_imgv.ads, exp_imgv.adb (Expand_Valid_Value_Attribute): New
6249         procedure to expand Valid_Value into a call to
6250         Valid_Enumeration_Image_NN.
6251         (Expand_Value_Attribute): Misc code cleanups.  Remove two ???
6252         mark comments. RTE_Available won't work here.  For one thing,
6253         RTE_Available (X) shouldn't be called until the compiler has
6254         decided to make use of X (see comments on RTE_Available), and in
6255         this case we're trying to AVOID calling something.
6256         * snames.ads-tmpl: New attribute name.
6257         * doc/gnat_rm/implementation_defined_attributes.rst: Document
6258         new attribute.
6259         * gnat_rm.texi: Regenerate.
6261 2021-06-21  Eric Botcazou  <ebotcazou@adacore.com>
6263         * fe.h (Assume_No_Invalid_Values): Declare.
6264         * opt.ads (Assume_No_Invalid_Values): Add warning comment.
6266 2021-06-21  Bob Duff  <duff@adacore.com>
6268         * libgnat/s-bituti.ads (Small_Size): Do not include 0 in this
6269         type.
6270         * libgnat/s-bituti.adb (Copy_Bitfield): Do nothing for 0-bit
6271         bitfields.
6273 2021-06-21  Ghjuvan Lacambre  <lacambre@adacore.com>
6275         * exp_ch9.adb (Build_Simple_Entry_Call): Add comment.
6276         * libgnat/s-rannum.adb (Random): Update comment.
6277         * libgnat/s-rannum.ads (Generator): Update comment.
6279 2021-06-21  Piotr Trojanek  <trojanek@adacore.com>
6281         * doc/gnat_rm/representation_clauses_and_pragmas.rst (Address
6282         Clauses): Fix unbalanced parens.
6283         * gnat_rm.texi: Regenerate.
6285 2021-06-21  Ghjuvan Lacambre  <lacambre@adacore.com>
6287         * errout.adb (Handle_Serious_Error): Capitalize comment.
6288         * exp_dbug.adb (Set_Entity_Name): Capitalize sentence.
6289         * exp_dist.adb (Expand_All_Calls_Remote_Subprogram_Call): Fix
6290         typo.
6291         * sem_ch3.adb (Modular_Type_Declaration): Add space after comma.
6293 2021-06-21  Ghjuvan Lacambre  <lacambre@adacore.com>
6295         * debug.adb: Document -gnatd_U as taken.
6296         * err_vars.ads (Warning_Doc_Switch): Set to True.
6297         * errout.ads (Errout): Update documentation.
6298         * gnat1drv.adb (Adjust_Global_Switches): React to -gnatd_U.
6299         * hostparm.ads (Tag_Errors): Set to True.
6300         * opt.ads (Unique_Error_Tag): Document -gnatd_U.
6302 2021-06-21  Eric Botcazou  <ebotcazou@adacore.com>
6304         * urealp.ads (UR_Write_To_JSON): Declare.
6305         * urealp.adb (Decimal_Exponent_Hi): Treat numbers in base 10
6306         specially and rewrite handling of numbers in other bases.
6307         (Decimal_Exponent_Lo): Likewise.
6308         (Normalize): Minor tweak.
6309         (UR_Write_To_JSON): New wrapper procedure around UR_Write.
6310         * repinfo.adb (List_Type_Info): When the output is to JSON, call
6311         UR_Write_To_JSON instead of UR_Write.
6313 2021-06-21  Piotr Trojanek  <trojanek@adacore.com>
6315         * sem_util.adb (Indexed_Component_Bit_Offset): Return an unknown
6316         offset for components within multidimensional arrays; remove
6317         redundant parens.
6319 2021-06-21  Piotr Trojanek  <trojanek@adacore.com>
6321         * sem_util.adb (Find_Overlaid_Entity): Ignore references to
6322         components and discriminants.
6324 2021-06-21  Doug Rupp  <rupp@adacore.com>
6326         * Makefile.rtl (aarch64-linux) [LIBGNAT_TARGET_PAIRS]: Add
6327         $(TRASYM_DWARF_UNIX_PAIRS).
6328         [EXTRA_GNAT_RTL_NONTASKING_OBJS]: Add $(TRASYM_DWARF_UNIX_OBJS)
6330 2021-06-21  Gary Dismukes  <dismukes@adacore.com>
6332         * exp_util.adb (Expand_Sliding_Conversion): Only perform
6333         expansion when Expander_Active is True. Add a comment about this
6334         and refine existing comment regarding string literals.
6336 2021-06-21  Piotr Trojanek  <trojanek@adacore.com>
6338         * sem_util.adb (Denotes_Same_Object): Simplify handling of
6339         slices.
6341 2021-06-21  Piotr Trojanek  <trojanek@adacore.com>
6343         * sem_util.adb (Is_Object_Renaming): Rename from Is_Renaming;
6344         simplify; adapt callers.
6346 2021-06-21  Frederic Konrad  <konrad@adacore.com>
6348         * Makefile.rtl: Compiles both static and dynamic libgnat for
6349         powerpc64-wrs-vxworks7r2.
6351 2021-06-18  Gary Dismukes  <dismukes@adacore.com>
6353         * sem_ch3.adb (Constrain_Array): Add error checking for
6354         fixed-lower-bound and constrained index ranges applied
6355         inappropriately on subtypes of unconstrained and
6356         fixed-lower-bound array types.
6357         (Constrain_Index): Correct and refine comment related to
6358         fixed-lower-bound index ranges.
6360 2021-06-18  Bob Duff  <duff@adacore.com>
6362         * gen_il-gen.adb: Improve comments.
6363         * snames.ads-tmpl (Convention_Id): Remove "--  Plenty of space
6364         for expansion", because that's irrelevant now that we are no
6365         longer laying out node fields by hand.
6367 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6369         * sem_util.adb (Denotes_Same_Object): Handle character literals
6370         just like integer literals.
6372 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6374         * sem_util.adb (Denotes_Same_Object): Explicitly test for node
6375         kinds being the same; deal with renamings one-by-one; adjust
6376         numbers in references to the Ada RM.
6378 2021-06-18  Bob Duff  <duff@adacore.com>
6380         * sprint.adb (Write_Source_Line): Check for EOF in
6381         Line_Terminator loop.  Note that when a source file is read in,
6382         an EOF character is added to the end.
6384 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6386         * sem_aux.adb (Package_Specification): Add assertions to confirm
6387         the kind of the of parameter and returned node.
6388         * sem_ch12.adb (Remove_Parent): Reorder conditions; this change
6389         appears to be semantically neutral, but is enough to avoid the
6390         problematic call to Package_Specification.
6391         * sem_util.adb (Is_Incomplete_Or_Private_Type): Replace loop
6392         with a call to Package_Specification.
6394 2021-06-18  Bob Duff  <duff@adacore.com>
6396         * sem_attr.adb (Eval_Attribute): For Enum_Lit'Size, use
6397         Enum_Type'Object_Size.
6399 2021-06-18  Olivier Hainque  <hainque@adacore.com>
6401         * sigtramp-vxworks-target.inc (__aarch64__): Sync
6402         REGNO_PC_OFFSET with the back-end DWARF_ALT_FRAME_RETURN_COLUMN.
6403         In CFI_COMMON_REGS, leave r18 alone, VxWorks private.
6405 2021-06-18  Javier Miranda  <miranda@adacore.com>
6407         * contracts.adb (Process_Spec_Postconditions): Add missing
6408         support for aliased subprograms and handle wrappers of
6409         class-wide pre/post conditions.
6410         (Process_Inherited_Preconditions): Add missing support for
6411         aliased subprograms and handle wrappers of class-wide pre/post
6412         conditions.
6413         * einfo.ads (Class_Wide_Clone): Fix typo.
6414         (Is_Class_Wide_Clone): Removed since it is not referenced.
6415         (Is_Wrapper): Documenting new flag.
6416         (LSP_Subprogram): Documenting new attribute.
6417         * exp_ch3.adb (Make_Controlling_Function_Wrappers): Decorate
6418         wrapper as Is_Wrapper and adjust call to
6419         Override_Dispatching_Operation.
6420         * freeze.adb (Build_Inherited_Condition_Pragmas): Fix typo in
6421         documentation.
6422         (Check_Inherited_Conditions): Handle LSP wrappers; ensure
6423         correct decoration of LSP wrappers.
6424         * gen_il-fields.ads (Is_Class_Wide_Clone): Removed.
6425         (Is_Wrapper): Added.
6426         (LSP_Subprogram): Added.
6427         * gen_il-gen-gen_entities.adb (Is_Class_Wide_Clone): Removed.
6428         (Is_Wrapper): Added.
6429         (LSP_Subprogram): Added.
6430         * gen_il-internals.adb (Image): Adding uppercase image of
6431         LSP_Subprogram.
6432         * sem_ch6.adb (New_Overloaded_Entity): Fix decoration of LSP
6433         wrappers.
6434         * sem_disp.ads (Override_Dispatching_Operation): Remove
6435         parameter Is_Wrapper; no longer needed.
6436         * sem_disp.adb (Check_Dispatching_Operation): Adjust assertion.
6437         (Override_Dispatching_Operation): Remove parameter Is_Wrapper;
6438         no longer needed.
6439         * treepr.adb (Image): Adding uppercase image of LSP_Subprogram.
6441 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6443         * exp_ch4.adb (Expand_N_Quantified_Expression): Ensure the type
6444         of the name of a "for of" loop is frozen.
6445         * exp_disp.adb (Check_Premature_Freezing): Complete condition to
6446         take into account a private type completed by another private
6447         type now that the freezing rule are better implemented.
6448         * freeze.adb (Freeze_Entity.Freeze_Profile): Do not perform an
6449         early freeze on types if not in the proper scope. Special case
6450         expression functions that requires access to the dispatch table.
6451         (Should_Freeze_Type): New.
6452         * sem_ch13.adb (Resolve_Aspect_Expressions): Prevent assert
6453         failure in case of an invalid tree (previous errors detected).
6454         * sem_res.adb (Resolve): Remove kludge related to entities
6455         causing incorrect premature freezing.
6456         * sem_util.adb (Ensure_Minimum_Decoration): Add protection
6457         against non base types.
6459 2021-06-18  Gary Dismukes  <dismukes@adacore.com>
6461         * sem_ch3.adb (Constrain_Index): Set the High_Bound of a
6462         fixed-lower-bound subtype's range to T (the subtype of the FLB
6463         index being constrained) rather than Base_Type (T).
6465 2021-06-18  Bob Duff  <duff@adacore.com>
6467         * ada_get_targ.adb, aspects.ads, checks.adb, cstand.adb,
6468         einfo.ads, exp_attr.adb, freeze.adb, get_targ.adb,
6469         libgnat/a-textio.ads, libgnat/g-memdum.ads,
6470         libgnat/s-scaval__128.adb, libgnat/s-scaval.adb, make.adb,
6471         osint.ads, par-prag.adb, sem_ch13.adb, sem_prag.adb,
6472         sem_prag.ads, set_targ.adb, set_targ.ads, snames.ads-tmpl,
6473         targparm.ads, types.ads: Remove AAMP-specific code.
6474         * switch.ads: Minor reformatting.
6475         * gen_il-fields.ads, gen_il-gen.adb,
6476         gen_il-gen-gen_entities.adb, gen_il-types.ads, einfo-utils.adb,
6477         einfo-utils.ads: Package Types now contains "type Float_Rep_Kind
6478         is (IEEE_Binary);", which used to also have an enumeral AAMP.
6479         Gen_IL can't handle fields of this type, which would be zero
6480         sized. Therefore, we move the Float_Rep field into Einfo.Utils
6481         as a synthesized attribute. (We do not delete the field
6482         altogether, in case we want new floating-point representations
6483         in the future.)
6484         * doc/gnat_rm/implementation_defined_pragmas.rst,
6485         doc/gnat_rm/implementation_defined_aspects.rst,
6486         doc/gnat_ugn/building_executable_programs_with_gnat.rst,
6487         doc/gnat_ugn/the_gnat_compilation_model.rst: Remove
6488         AAMP-specific documentation.
6489         * gnat_rm.texi, gnat_ugn.texi: Regenerate.
6491 2021-06-18  Gary Dismukes  <dismukes@adacore.com>
6493         * exp_util.adb (Expand_Sliding_Conversion): Move test of
6494         Is_Fixed_Lower_Bound_Subtype to an assertion. Exclude string
6495         literals from sliding expansion.
6497 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6499         * sem_warn.adb (Warn_On_Overlapping_Actuals): Cleanup conditions
6500         related to Ada_Version.
6502 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6504         * sem_util.adb (Address_Value): Simplify.
6506 2021-06-18  Bob Duff  <duff@adacore.com>
6508         * sem_attr.adb (Check_Array_Or_Scalar_Type): Use Expr_Value
6509         instead of Intval, because the latter only exists in literals.
6510         Remove Set_Etype on E1; setting the type is done elsewhere.
6512 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6514         * sem_warn.adb (Warn_On_Overlapping_Actuals): Examine types of
6515         both formal parameters; refactor a complex detection of
6516         by-reference types.
6518 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6520         * gnatcmd.adb: Fix handling of check and test commands.
6522 2021-06-18  Gary Dismukes  <dismukes@adacore.com>
6524         * doc/gnat_rm/implementation_defined_pragmas.rst: Add
6525         documentation for the array fixed-lower-bound feature.
6526         * gnat_rm.texi: Regenerate.
6528 2021-06-18  Bob Duff  <duff@adacore.com>
6530         * debug.adb: Document switch.
6531         * exp_aggr.adb: If -gnatd_g was given, then do not bump the
6532         limit to 500_000.
6534 2021-06-18  Bob Duff  <duff@adacore.com>
6536         * sem_util.ads, sem_util.adb (Has_Access_Values): Remove
6537         Include_Internal parameter that was added in previous change.
6538         * sem_warn.adb (Warnings_Off_E1): Back out E_Out_Parameter ==>
6539         Formal_Kind change made previously. Check Is_Private_Type to
6540         avoid warnings on private types. Misc cleanup.
6541         * sem_attr.adb (Attribute_Has_Access_Values): Remove
6542         Include_Internal parameter.
6544 2021-06-18  Piotr Trojanek  <trojanek@adacore.com>
6546         * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove dead branch
6547         for overlapping actuals in prefix notation.
6549 2021-06-18  Eric Botcazou  <ebotcazou@adacore.com>
6551         * sem_prag.adb (Process_Import_Or_Interface): Do not
6552         artificially record a possible modification for a constant.
6554 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6556         * exp_ch6.adb (Expand_Call_Helper): Code cleanups.
6558 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6560         * exp_aggr.adb, exp_dist.adb, exp_unst.adb, sa_messages.ads,
6561         sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_eval.adb,
6562         sem_util.adb, sem_util.ads, sinfo.ads: Update comments.
6564 2021-06-18  Ghjuvan Lacambre  <lacambre@adacore.com>
6566         * back_end.adb (Scan_Back_End_Switches): Set Opt.JSON_Output to
6567         True if -fdiagnostics-format=json option is found.
6568         * back_end.ads (Scan_Compiler_Arguments): Mention
6569         Opt.JSON_Output.
6570         * errout.adb (Output_JSON_Message): New procedure.
6571         (Output_Messages): If Opt.JSON_Output is True, print messages
6572         with new Output_JSON_Message procedure.
6573         * opt.ads: Declare JSON_Output variable.
6574         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
6575         Mention new -fdiagnostics-format option.
6576         * gnat_ugn.texi: Regenerate.
6578 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6580         * sem_ch6.adb (Null_Exclusions_Match): Relax null exclusion
6581         mismatch check when Relaxed_RM_Semantics is set.
6583 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6585         * fe.h, opt.adb, opt.ads, par-prag.adb, sem_prag.adb,
6586         switch-c.adb (Extensions_Allowed): Replace by a function.
6587         (Ada_Version_Type): Add new value Ada_With_Extensions, to
6588         replace setting of Extensions_Allowed.  Update setting of
6589         Extensions_Allowed.
6591 2021-06-18  Arnaud Charlet  <charlet@adacore.com>
6593         * bindgen.adb (Gen_Output_File_Ada): Generate a new constant
6594         GNAT_Version_Address.
6595         * libgnat/g-comver.adb (GNAT_Version_Address): New;
6596         (GNAT_Version): Use GNAT_Version_Address to disable LTO warning.
6598 2021-06-18  Javier Miranda  <miranda@adacore.com>
6600         * einfo.ads (Is_Ada_2022_Only): Adding documentation.
6601         * gen_il-fields.ads (Is_Ada_2022_Only): New flag.
6602         * gen_il-gen-gen_entities.adb (Is_Ada_2022_Only): New flag.
6603         * itypes.adb (Create_Null_Excluding_Itype): Inherit
6604         Is_Ada_2022_Only.
6605         * sem_ch3.adb (Check_Abstract_Overriding): Skip reporting error
6606         on Ada 2022 only subprograms that require overriding if we are
6607         not in Ada 2022 mode.
6608         (Derive_Subprogram): Inherit Is_Ada_2022_Only.
6609         * sem_ch6.adb (Check_Overriding_Indicator): Inherit
6610         Is_Ada_2022_Only.
6611         (New_Overloaded_Entity): Inherit Is_Ada_2022_Only.
6612         * sem_ch7.adb (Declare_Inherited_Private_Subprograms): Inherit
6613         Is_Ada_2022_Only.
6614         (Preserve_Full_Attributes): Inherit Is_Ada_2022_Only.
6615         * sem_disp.adb (Find_Hidden_Overridden_Primitive): Inherit
6616         Is_Ada_2022_Only.
6617         (Override_Dispatching_Operation): Inherit Is_Ada_2022_Only.
6618         * sem_prag.adb (Analyze_Pragma): Allow form with argument for
6619         Ada 2022.
6620         * sem_type.adb: (Disambiguate): Deal with Is_Ada_2022_Only
6621         * lib-xref.adb (Generate_Reference): Error on static and
6622         dispatching calls to Ada 2022 subprograms that require
6623         overriding if we are not in Ada 2022 mode; warn on other
6624         references to Ada 2022 entities when not in Ada 2022 mode.
6625         * sem_ch13.adb (Inherit_Aspects_At_Freeze_Point): Inherit
6626         Ada_2020_Only.
6627         * libgnat/a-cdlili.ads (Empty): Adding pragma Ada_2022.
6628         * libgnat/a-cidlli.ads (Empty): Adding pragma Ada_2022.
6629         * libgnat/a-ciorma.ads (Empty): Adding pragma Ada_2022.
6630         * libgnat/a-cobove.ads (Empty): Adding pragma Ada_2022.
6631         * libgnat/a-coorma.ads (Empty): Adding pragma Ada_2022.
6632         (New_Vector): Adding pragma Ada_2022.
6633         (Insert_Vector): Adding pragma Ada_2022.
6634         (Prepend_Vector): Adding pragma Ada_2022.
6635         (Append_Vector): Adding pragma Ada_2022.
6637 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6639         * sem_ch3.adb (Check_Ops_From_Incomplete_Type): Protect against
6640         no Primitive_Operations.
6642 2021-06-17  Vadim Godunko  <godunko@adacore.com>
6644         * libgnat/a-strunb__shared.ads (Allocate): Additional parameter
6645         to provide additional amount of space to be allocated.
6646         * libgnat/a-strunb__shared.adb (Aligned_Max_Length): Limit
6647         length to Natural'Last when requested length is larger than it.
6648         (Allocate): Merge two slightly different implementations into
6649         one.
6651 2021-06-17  Gary Dismukes  <dismukes@adacore.com>
6653         * checks.adb (Discrete_Range_Cond): For an index subtype that
6654         has a fixed lower bound, require that the range's lower bound
6655         match that of the subtype.
6656         (Selected_Range_Checks): Warn about the case where a static
6657         lower bound does not equal an index subtype's fixed lower bound.
6658         * einfo.ads (Is_Fixed_Lower_Bound_Array_Subtype,
6659         Is_Fixed_Lower_Bound_Index_Subtype): Document new entity flag.
6660         * exp_ch4.adb (Expand_N_Type_Conversion): If the operand is of
6661         an unconstrained array subtype with fixed lower bound, then
6662         Expand_Sliding_Conversion is applied to the operand.
6663         * exp_ch6.adb (Expand_Simple_Function_Return): If the result
6664         subtype is an unconstrained array subtype with fixed lower
6665         bound, then Expand_Sliding_Conversion is applied to the return
6666         object.
6667         * exp_util.ads (Expand_Sliding_Conversion): New procedure for
6668         applying a sliding subtype conversion to an array object of a
6669         fixed-lower-bound subtype when needed.
6670         * exp_util.adb: Add with_clause for Freeze.
6671         (Expand_Sliding_Conversion): New procedure for applying a
6672         sliding subtype conversion to an array object of a
6673         fixed-lower-bound subtype when needed.  It traverses the indexes
6674         of the unconstrained array type/subtype to create a target
6675         constrained subtype and rewrites the array object to be a
6676         conversion to that subtype, when there's at least one index
6677         whose lower bound does not statically match the fixed-lower
6678         bound of the target subtype.
6679         * gen_il-fields.ads (type Opt_Field_Enum): Add literals
6680         Is_Fixed_Lower_Bound_Array_Subtype and
6681         Is_Fixed_Lower_Bound_Index_Subtype for new flags on type
6682         entities.
6683         * gen_il-gen-gen_entities.adb: Add calls to
6684         Create_Semantic_Field for the new fixed-lower-bound flags on
6685         type entities.
6686         * par-ch3.adb (P_Array_Type_Definition): Add handling for
6687         parsing of fixed-lower-bound index ranges in unconstrained array
6688         types. Report an error if such an index is encountered and GNAT
6689         language extensions are not enabled.
6690         (P_Index_Subtype_Def_With_Fixed_Lower_Bound): Support procedure
6691         for parsing unconstrained index ranges.
6692         (P_Index_Or_Discriminant_Constraint): Add handling for parsing
6693         of index constraints that specify ranges with fixed lower
6694         bounds. Report an error if such an index is encountered and GNAT
6695         language extensions are not enabled.
6696         * sem_ch3.adb (Analyze_Object_Declaration): If the object's
6697         nominal subtype is an array subtype with fixed lower bound, then
6698         Expand_Sliding_Conversion is applied to the object.
6699         (Array_Type_Declaration): Mark the array type and the subtypes
6700         of any indexes that specify a fixed lower bound as being
6701         fixed-lower-bound subtypes, and set the High_bound of the range
6702         of such an index to the upper bound of the named subtype.
6703         (Constrain_Array): For an array subtype with one or more index
6704         ranges specifying a fixed lower bound, set Is_Constrained to
6705         False and set the array subtype's
6706         Is_Fixed_Lower_Bound_Array_Subtype flag to True.
6707         (Constrain_Index): Mark the subtypes of an index that specifies
6708         a fixed lower bound as being a fixed-lower-bound index subtype,
6709         and set the High_bound of the range of such an index to the
6710         upper bound of the base type of the array type's corresponding
6711         index.
6712         * sem_res.adb (Resolve_Actuals): If a formal is of an
6713         unconstrained array subtype with fixed lower bound, then
6714         Expand_Sliding_Conversion is applied to the actual.
6715         * sem_util.adb (Build_Actual_Subtype): If the actual subtype
6716         corresponds to an unconstrained array subtype having any indexes
6717         with fixed lower bounds, then set the lower bounds of any such
6718         indexes of the actual subtype to the appropriate fixed lower
6719         bound of the formal subtype (rather than taking it from the
6720         formal itself).
6721         * sprint.adb (Sprint_Node_Actual, case N_Range): If a range's
6722         Etype has a fixed lower bound, then print "<>" rather than the
6723         High_Bound of the range.
6725 2021-06-17  Bob Duff  <duff@adacore.com>
6727         * sem_util.adb, sem_util.ads (Has_Access_Values): New formal
6728         Include_Internal to indicate whether internal types should be
6729         included.
6730         * sem_warn.adb (Check_References): Change E_Out_Parameter to
6731         Formal_Kind, to match the comment about Spec_Entity.  Pass
6732         Include_Internal => False to Has_Access_Values, so that we warn
6733         on types with access values that happen to be in internal types,
6734         such as Unbounded_String.
6735         * sem_attr.adb (Attribute_Has_Access_Values): Pass
6736         Include_Internal => True to Has_Access_Values, to preserve
6737         existing behavior.
6738         * libgnat/g-rewdat.adb (Do_Output): Change B from 'in out' to
6739         'in', to avoid warning enabled by the change to sem_warn.adb.
6740         * libgnat/s-objrea.adb (Check_Read_Offset): Change S from 'in
6741         out' to 'in', to avoid warning enabled by the change to
6742         sem_warn.adb.
6744 2021-06-17  Steve Baird  <baird@adacore.com>
6746         * exp_ch5.adb
6747         (Expand_N_Case_Statement.Expand_General_Case_Statement): New
6748         subprogram.
6749         (Expand_N_Case_Statement): If extensions are allowed and the
6750         case selector is not of a discrete type, then call
6751         Expand_General_Case_Statement to generate expansion instead of
6752         flagging the non-discrete selector as an error.
6753         * sem_case.ads (Is_Case_Choice_Pattern): New Boolean-valued
6754         function for testing whether a given expression occurs as part
6755         of a case choice pattern.
6756         * sem_case.adb (Composite_Case_Ops): New package providing
6757         support routines for the new form of case statements. This
6758         includes a nested package, Composite_Case_Ops.Value_Sets, which
6759         encapsulates the "representative values" implementation of
6760         composite value sets.
6761         (Check_Choices.Check_Case_Pattern_Choices): New procedure for
6762         semantic checking of non-discrete case choices. This includes
6763         the checks pertaining to coverage and overlapping.
6764         (Check_Choices.Check_Composite_Case_Selector): New procedure for
6765         semantic checking of non-discrete case selectors.
6766         (Check_Choices): If extensions are allowed then a non-discrete
6767         selector type no longer implies that an error must have been
6768         flagged earlier.  Instead of simply returning, call
6769         Check_Composite_Case_Selector and Check_Case_Pattern_Choices.
6770         (Is_Case_Choice_Pattern): Body of new function declared in
6771         sem_case.ads .
6772         * sem_ch5.adb (Analyze_Case_Statement): If extensions are
6773         allowed, then we can't use RM 5.4's "The selecting_expression is
6774         expected to be of any discrete type" name resolution rule.
6775         Handle the case where the type of the selecting expression is
6776         not discrete, as well as the new ambiguous-name-resolution error
6777         cases made possible by this change.
6778         * sem_res.adb (Resolve_Entity_Name): It is ok to treat the name
6779         of a type or subtype as an expression if it is part of a case
6780         choice pattern, as in "(Field1 => Positive, Field2 => <>)".
6781         * exp_aggr.adb (Expand_Record_Aggregate): Do not expand case
6782         choice aggregates.
6783         * gen_il-fields.ads: Define two new node attributes,
6784         Binding_Chars and Multidefined_Bindings.
6785         * gen_il-gen-gen_nodes.adb: The new Multidefined_Bindings
6786         attribute is Boolean-valued and may be set on
6787         N_Case_Statement_Alternative nodes. The new Binding_Chars
6788         attribute is Name_Id-valued and may be set on
6789         N_Component_Association nodes.
6790         * par-ch4.adb (P_Record_Or_Array_Component_Association): When
6791         parsing a component association, check for both new syntax forms
6792         used to specify a bound value in a case-choice aggregate.  In
6793         the case of a box value, an identifier may occur within the box,
6794         as in "Foo => <Abc>" instead of "Foo => <>". In the more general
6795         case, an expression (or a box) may be followed by "is
6796         <identifier>", as in
6797         "Foo => Bar is Abc" instead of just "Foo => Bar".
6798         * sem_aggr.adb (Resolve_Record_Aggregate): Do not transform box
6799         component values in a case-choice aggregate.
6800         * sinfo.ads: Provide comments for the new attributes added in
6801         gen_il-fields.ads.
6802         * doc/gnat_rm/implementation_defined_pragmas.rst: Describe this
6803         new feature in documentation for pragma Extensions_Allowed.
6804         * gnat_rm.texi: Regenerate.
6806 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6808         * exp_ch4.adb (Expand_N_Expression_With_Actions.Process_Action):
6809         Do not abandon processing on a nested N_Expression_With_Actions
6810         or N_Loop_Statement, otherwise we may miss some transient
6811         declarations.
6813 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6815         * exp_util.adb (Find_Hook_Context): Do not stop on an aggregate
6816         node.
6818 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6820         * sem_util.adb (Is_Valid_Renaming): Check not only indexed
6821         components, but slices too.
6823 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6825         * sem_ch3.adb (Analyze_Private_Extension_Declaration): Check
6826         No_Wide_Characters restriction after rejecting illegal parent
6827         types.
6828         (Derived_Type_Declaration): Likewise.
6829         (Find_Type_Of_Subtype_Indic): Remove check for
6830         No_Wide_Characters restriction, which was done too early.
6832 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6834         * sem_util.adb (Is_Valid_Renaming): Body moved from its nested
6835         routine.
6837 2021-06-17  Gary Dismukes  <dismukes@adacore.com>
6839         * sem_ch12.adb (Instantiate_Type): If the actual type for an
6840         incomplete formal type is also incomplete, but has a Full_View,
6841         use the Full_View of the actual type rather than the incomplete
6842         view.
6844 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6846         * doc/gnat_ugn/building_executable_programs_with_gnat.rst
6847         (-gnatw.I): Remove double period at the end of sentence.
6848         * gnat_ugn.texi: Regenerate.
6850 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6852         * sem_util.adb (Denotes_Same_Object): Call Get_Index_Bounds with
6853         the range of a slice object, not its type.
6855 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6857         * sem_warn.adb (Warn_On_Overlapping_Actuals): Fix style;
6858         refactor repeated calls to Nkind; remove early RETURN.
6860 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6862         * sem_warn.adb (Warn_On_Overlapping_Actuals): Ignore formal of
6863         generic types, but keep examining other parameters.
6865 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6867         * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove dead code.
6869 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6871         * sem_warn.adb (Warn_On_Overlapping_Actuals): Remove repeated
6872         code.
6874 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6876         * checks.adb (Overlap_Check): Replace Set_Casing with
6877         Adjust_Name_Case and adapt surrounding code as needed.
6879 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6881         * libgnat/s-putaim.ads, libgnat/s-putaim.adb: Move...
6882         * libgnarl/s-putaim.ads, libgnarl/s-putaim.adb: ... here.
6884 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6886         * uintp.ads, uintp.adb (UI_To_Unsigned_64): New.
6888 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6890         * sem_prag.adb (Get_Overflow_Mode): Reword error message.
6891         * switch-c.adb (Get_Overflow_Mode): Likewise.
6893 2021-06-17  Richard Kenner  <kenner@adacore.com>
6895         * exp_util.adb (Expand_Static_Predicates_In_Choices): Handle
6896         Others_Discrete_Choices in N_Others_Choice.
6898 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6900         * atree.adb: Remove redundant comment with spec.
6901         * sem_warn.adb: Fix typo in comment.
6903 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6905         * atree.adb: Do not suppress checks.
6907 2021-06-17  Justin Squirek  <squirek@adacore.com>
6909         * exp_ch3.adb (Check_Missing_Others): Add comment.
6910         (Build_Initialization_Call): Remove inaccurate accessibility
6911         comment.
6912         * sem_ch12.adb (Analyze_Generic_Subprogram_Declaration): Remove
6913         test for Ada2012.
6914         (Analyze_Package_Instantiation): Remove speculative comment.
6915         (Inline_Instance_Body): Add comments for loops.
6916         (Build_Subprogram_Renaming): Remove comment about fix being
6917         partial and "ugly."
6918         (Instantiate_Subprogram_Body): Remove comment referencing DEC
6919         related internal issue.
6920         (Subtypes_Match): Add comment and simplify anonymous access
6921         test.
6922         (Is_Global): Add test for when E is an expanded name, and
6923         calculate the scope accordingly.
6924         * sem_ch6.adb (Analyze_Function_Return): Update comment
6925         regarding accessibility, and add check for
6926         Warn_On_Ada_2012_Compatibility.
6927         (Mask_Type_Refs): Add comments.
6928         (Analyze_Subprogram_Declaration): Remove mysterious suppression
6929         of elaboration checks.
6930         * sem_ch7.adb (Preserve_Full_Attributes): Preserve Is_Atomic
6931         value.
6932         * sem_ch8.adb (Most_Descendant_Use_Clause): Remove comment.
6933         (Note_Redundant_Use): Fix calls to Find_First_Use to be
6934         Find_Most_Prev.
6935         (Get_Object_Name): Modify error message to be more descriptive.
6936         (Known_But_Visible): Remove mysterious special case for
6937         GNAT_Mode.
6938         (Find_First_Use): Removed.
6939         (Find_Most_Prev): Renamed from Find_First_Use.
6940         * sem_prag.adb (Check_Static_Constraint): Add comments to
6941         routine.
6943 2021-06-17  Bob Duff  <duff@adacore.com>
6945         * treepr.adb (Print_Node): Display the Entity or Associated_Node
6946         fields if appropriate.
6947         * sinfo-utils.ads (F_Associated_Node, F_Entity): Remove. These
6948         are no longer needed.
6950 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6952         * checks.adb (Apply_Parameter_Aliasing_Checks): Replace calls to
6953         Is_Object_Reference with calls to Is_Name_Reference; remove
6954         asymmetric condition that only detected an aggregate as the
6955         first actual (aggregate objects were just a special case of an
6956         object reference that was not a name).
6958 2021-06-17  Bob Duff  <duff@adacore.com>
6960         * gen_il-gen.adb, gen_il-internals.ads: Generate field
6961         enumeration literals with "F_" prefix.  Update all generated
6962         references accordingly.
6963         * atree.adb, einfo-utils.adb, sem_ch3.adb, sem_ch5.adb,
6964         sem_ch6.adb, sem_ch8.adb, sinfo-cn.adb, sinfo-utils.adb,
6965         sinfo-utils.ads, treepr.adb: Add "F_" prefix to all uses of the
6966         field enumeration literals.
6968 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6970         * libgnat/i-c.ads, libgnat/i-cexten.ads,
6971         libgnat/i-cexten__128.ads: bool renamed C_bool.
6973 2021-06-17  Piotr Trojanek  <trojanek@adacore.com>
6975         * sem_ch4.adb (Analyze_Allocator): Reject allocators in
6976         restricted contexts.
6978 2021-06-17  Arnaud Charlet  <charlet@adacore.com>
6980         * gcc-interface/Make-lang.in: Use libgnat.so if libgnat.a cannot
6981         be found.
6983 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
6985         * sem_util.adb (Is_Volatile_Function): Follow the exact wording
6986         of SPARK (regarding volatile functions) and Ada (regarding
6987         protected functions).
6989 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
6991         * sem_util.adb (Is_OK_Volatile_Context): All references to
6992         volatile objects are legal in preanalysis.
6993         (Within_Volatile_Function): Previously it was wrongly called on
6994         Empty entities; now it is only called on E_Return_Statement,
6995         which allow the body to be greatly simplified.
6997 2021-06-16  Yannick Moy  <moy@adacore.com>
6999         * sem_res.adb (Set_Slice_Subtype): Revert special-case
7000         introduced previously, which is not needed as Itypes created for
7001         slices are precisely always used.
7003 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7005         * urealp.adb (Scale): Change first paramter to Uint and adjust.
7006         (Equivalent_Decimal_Exponent): Pass U.Den directly to Scale.
7007         * libgnat/s-exponr.adb (Negative): Rename to...
7008         (Safe_Negative): ...this and change its lower bound.
7009         (Exponr): Adjust to above renaming and deal with Integer'First.
7011 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7013         * sem_res.adb (Flag_Effectively_Volatile_Objects): Detect also
7014         allocators within restricted contexts and not just entity names.
7015         (Resolve_Actuals): Remove duplicated code for detecting
7016         restricted contexts; it is now exclusively done in
7017         Is_OK_Volatile_Context.
7018         (Resolve_Entity_Name): Adapt to new parameter of
7019         Is_OK_Volatile_Context.
7020         * sem_util.ads, sem_util.adb (Is_OK_Volatile_Context): Adapt to
7021         handle contexts both inside and outside of subprogram call
7022         actual parameters.
7023         (Within_Subprogram_Call): Remove; now handled by
7024         Is_OK_Volatile_Context itself and its parameter.
7026 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7028         * sinput.adb (Sloc_Range): Refactor several repeated calls to
7029         Sloc and two comparisons with No_Location.
7031 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7033         * checks.adb (Apply_Scalar_Range_Check): Fix handling of check depending
7034         on the parameter passing mechanism.  Grammar adjustment ("has"
7035         => "have").
7036         (Parameter_Passing_Mechanism_Specified): Add a hyphen in a comment.
7038 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7040         * exp_ch3.adb (Build_Slice_Assignment): Remove unused
7041         initialization.
7043 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7045         * restrict.adb, sem_attr.adb, types.ads: Fix typos in
7046         "occuring"; refill comment as necessary.
7048 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7050         * sem_util.ads (Is_Actual_Parameter): Update comment.
7051         * sem_util.adb (Is_Actual_Parameter): Also detect entry parameters.
7053 2021-06-16  Arnaud Charlet  <charlet@adacore.com>
7055         * rtsfind.ads, libgnarl/s-taskin.ads, exp_ch3.adb, exp_ch4.adb,
7056         exp_ch6.adb, exp_ch9.adb, sem_ch6.adb: Move master related
7057         entities to the expander directly.
7059 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7061         * sem_res.adb (Is_Assignment_Or_Object_Expression): Whitespace
7062         cleanup.
7063         (Is_Attribute_Expression): Prevent AST climbing from going to
7064         the root of the compilation unit.
7066 2021-06-16  Steve Baird  <baird@adacore.com>
7068         * doc/gnat_rm/implementation_advice.rst: Add a section for RM
7069         A.18 .
7070         * gnat_rm.texi: Regenerate.
7072 2021-06-16  Justin Squirek  <squirek@adacore.com>
7074         * sem_ch13.adb (Analyze_Enumeration_Representation_Clause): Add
7075         check for the mixing of entries.
7077 2021-06-16  Justin Squirek  <squirek@adacore.com>
7079         * sem_ch13.adb (Make_Aitem_Pragma): Check for static expressions
7080         in Priority aspect arguments for restriction Static_Priorities.
7082 2021-06-16  Justin Squirek  <squirek@adacore.com>
7084         * sem_util.adb (Accessibility_Level): Take into account
7085         renamings of loop parameters.
7087 2021-06-16  Matthieu Eyraud  <eyraud@adacore.com>
7089         * par_sco.adb (Set_Statement_Entry): Change sloc for dominance
7090         marker.
7091         (Traverse_One): Fix typo.
7092         (Output_Header): Fix comment.
7094 2021-06-16  Richard Kenner  <kenner@adacore.com>
7096         * exp_unst.adb (Register_Subprogram): Don't look for aliases for
7097         subprograms that are generic.  Reorder tests for efficiency.
7099 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7101         * sem_util.adb (Incomplete_Or_Partial_View): Retrieve the scope of
7102         the parameter and use it to find its incomplete view, if any.
7104 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7106         * freeze.adb (Check_No_Parts_Violations): Return earlier if the
7107         type is elementary or does not come from source.
7109 2021-06-16  Bob Duff  <duff@adacore.com>
7111         * ghost.adb: Add another special case where full analysis is
7112         needed. This bug is due to quirks in the way
7113         Mark_And_Set_Ghost_Assignment works (it happens very early,
7114         before name resolution is done).
7116 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7118         * sem_util.adb (Current_Entity_In_Scope): Reimplement.
7120 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7122         * sem_ch8.adb (End_Scope): Remove extra parens.
7124 2021-06-16  Javier Miranda  <miranda@adacore.com>
7126         * exp_disp.adb (Build_Class_Wide_Check): Ensure that evaluation
7127         of actuals is side effects free (since the check duplicates
7128         actuals).
7130 2021-06-16  Ed Schonberg  <schonberg@adacore.com>
7132         * sem_res.adb (Resolve_Raise_Expression): Apply Ada_2020 rules
7133         concerning the need for parentheses around Raise_Expressions in
7134         various contexts.
7136 2021-06-16  Piotr Trojanek  <trojanek@adacore.com>
7138         * sem_ch13.adb (Validate_Unchecked_Conversion): Move detection
7139         of generic types before switching to their private views; fix
7140         style in using AND THEN.
7142 2021-06-16  Arnaud Charlet  <charlet@adacore.com>
7144         * sem_ch3.adb (Analyze_Component_Declaration): Do not special
7145         case raise expressions.
7147 2021-06-16  Sergey Rybin  <rybin@adacore.com>
7149         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
7150         Instead of referring to the formatting of the Ada examples in
7151         Ada RM add use the list of checks that are actually performed.
7152         * gnat_ugn.texi: Regenerate.
7154 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7156         * initialize.c: Do not include vxWorks.h and fcntl.h from here.
7157         (__gnat_initialize) [__MINGW32__]: Remove #ifdef and attribute
7158         (__gnat_initialize) [init_float]: Delete.
7159         (__gnat_initialize) [VxWorks]: Likewise.
7160         (__gnat_initialize) [PA-RISC HP-UX 10]: Likewise.
7161         * runtime.h: Add comment about vxWorks.h include.
7163 2021-06-16  Eric Botcazou  <ebotcazou@adacore.com>
7165         * libgnat/s-except.ads (ZCX_By_Default): Delete.
7166         (Require_Body): Likewise.
7167         * libgnat/s-except.adb: Replace body with pragma No_Body.
7169 2021-06-15  Steve Baird  <baird@adacore.com>
7171         * exp_util.adb (Kill_Dead_Code): Generalize the existing
7172         handling of if statements to handle case statements similarly.
7174 2021-06-15  Eric Botcazou  <ebotcazou@adacore.com>
7176         * raise.h (_gnat_builtin_longjmp): Delete.
7177         (set_gnat_exit_status): Likewise.
7179 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7181         * exp_util.adb (Possible_Side_Effect_In_SPARK): Handle component
7182         declaration just like full type and subtype declarations.
7184 2021-06-15  Yannick Moy  <moy@adacore.com>
7186         * errout.adb (First_And_Last_Node): Also apply to arbitrary late
7187         declarations, not only subprogram specs.
7189 2021-06-15  Bob Duff  <duff@adacore.com>
7191         * sem_ch3.adb (Make_Class_Wide_Type): Make sure all the calls to
7192         Reinit_Field_To_Zero are for the correct Ekinds.
7194 2021-06-15  Bob Duff  <duff@adacore.com>
7196         * aspects.ads (No_Task_Parts): New aspect.
7197         * snames.ads-tmpl: Add the aspect name.
7198         * exp_ch6.adb (Might_Have_Tasks): Return False if this is a
7199         class-wide type whose specific type has No_Task_Parts.
7200         * freeze.adb (Check_No_Parts_Violations): This is an adaptation
7201         of the procedure formerly known as
7202         Check_No_Controlled_Parts_Violations, which now supports both
7203         No_Controlled_Parts and No_Task_Parts.  It takes a parameter
7204         indicating which aspect is being checked.
7205         (Freeze_Entity): Call Check_No_Parts_Violations for both
7206         aspects.
7207         * sem_ch13.adb (Analyze_Aspect_Specifications): The code for
7208         Aspect_No_Controlled_Parts already works as is with
7209         Aspect_No_Task_Parts.
7210         * libgnat/a-iteint.ads: Add No_Task_Parts aspect to the two
7211         iterator iterfaces.
7212         * doc/gnat_rm/implementation_defined_aspects.rst: Add
7213         documentation for the No_Task_Parts aspect.
7214         * gnat_rm.texi: Regenerate.
7216 2021-06-15  Arnaud Charlet  <charlet@adacore.com>
7218         * exp_unst.adb (Unnest_Subprogram.Build_Table.Visit_Node): Fix
7219         handling of scopes for subprogram calls.
7221 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7223         * sem_prag.adb: Fix typos in comments related to access types.
7224         * sem_util.adb (Is_Access_Variable): Stronger condition.
7226 2021-06-15  Arnaud Charlet  <charlet@adacore.com>
7228         * Make-generated.in: Add rule to copy runtime files needed
7229         during stage1.
7230         * raise.c: Remove obsolete symbols used during bootstrap.
7231         * gcc-interface/Make-lang.in: Do not use libgnat sources during
7232         stage1.
7233         (GNAT_ADA_OBJS, GNATBIND_OBJS): Split in two parts, the common
7234         part and the part only used outside of stage1.
7235         (ADA_GENERATED_FILES): Add runtime files needed during bootstrap
7236         when recent APIs are needed.
7237         (ada/b_gnatb.adb): Remove prerequisite.
7238         * gcc-interface/system.ads: Remove obsolete entries.
7240 2021-06-15  Eric Botcazou  <ebotcazou@adacore.com>
7242         * raise-gcc.c (__gnat_personality_seh0): Use PERSONALITY_FUNCTION.
7244 2021-06-15  Ed Schonberg  <schonberg@adacore.com>
7246         * sem_util.adb (Is_Confirming): Separate the handling of
7247         Implicit_Dereference, for which no pragma is generated but which
7248         is already checked for legality in Sem_Ch13, including renamed
7249         discriminants in a derived type.
7250         (Is_Confirming, Same_Name): For expanded names, only check
7251         matching of selector, because prefix may correspond to original
7252         and derived types with different names and/or scopes. Semantic
7253         checks on aspect expression have already verified its legality.
7254         Add comments regarding possible gaps in RM description of the
7255         feature.
7257 2021-06-15  Gary Dismukes  <dismukes@adacore.com>
7259         * freeze.adb (Freeze_Subprogram): Don't propagate conventions
7260         Intrinsic or Entry to anonymous access-to-subprogram types
7261         associated with subprograms having those conventions. Update
7262         related comment.
7263         * sem_attr.adb (Resolve_Attribute, Attribute_*Access): Remove
7264         special-case warning code for cases where a called subprogram
7265         has convention Intrinsic as well as its formal's type (the
7266         expected type for the Access attribute), since this case can no
7267         longer occur.
7269 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7271         * exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Fix
7272         typos.
7274 2021-06-15  Bob Duff  <duff@adacore.com>
7276         * einfo-utils.adb (Known_Component_Size,
7277         Known_Static_Component_Size, Unknown_Component_Size): Use
7278         Implementation_Base_Type instead of Base_Type.
7280 2021-06-15  Bob Duff  <duff@adacore.com>
7282         * gen_il-gen-gen_entities.adb (E_Loop_Parameter): Add
7283         Interface_Name field.
7285 2021-06-15  Bob Duff  <duff@adacore.com>
7287         * sem_cat.adb (Check_Non_Static_Default_Expr): Allow nonstatic
7288         expression in predefined unit with pragma Preelaborate.
7290 2021-06-15  Yannick Moy  <moy@adacore.com>
7292         * doc/gnat_rm/intrinsic_subprograms.rst: More details on shift
7293         operations for signed types. Also add the missing Import and
7294         Convention on the example.
7295         * gnat_rm.texi: Regenerate.
7297 2021-06-15  Eric Botcazou  <ebotcazou@adacore.com>
7299         * raise-gcc.c: Include <cstdarg> instead of <stdarg.h> in C++.
7300         Include <stdbool.h> and unconditionally <stdlib.h> in C.
7302 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7304         * sem_util.ads (Find_Overlaid_Entity): Simplify comment for
7305         spec.
7306         * sem_util.adb (Find_Overlaid_Entity): Remove defensive code
7307         from body.
7309 2021-06-15  Eric Botcazou  <ebotcazou@adacore.com>
7311         * argv.c: Add include of <stdlib.h> for the runtime.
7312         (gnat_argv): Change type to char ** and initialize to NULL.
7313         (gnat_envp): Likewise.
7314         * argv-lynxos178-raven-cert.c: Add include of <stdlib.h>.
7315         (gnat_argv): Change type to char ** and initialize to NULL.
7316         (gnat_envp): Likewise.
7318 2021-06-15  Bob Duff  <duff@adacore.com>
7320         * gen_il-gen.adb (Setter_Needs_Parent): Add missing
7321         Then_Actions.  Fix self-contradictory comment.
7322         * exp_util.adb (Insert_Actions): Minor comment improvments.
7324 2021-06-15  Arnaud Charlet  <charlet@adacore.com>
7326         * sem_eval.adb (Eval_Logical_Op, Test_Expression_Is_Foldable):
7327         Add support for folding more "and"/"or" expressions.
7328         * exp_util.adb (Side_Effect_Free): Fix handling of membership
7329         tests.
7331 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7333         * sem_res.adb (Resolve_Actual): Replace repeated calls to
7334         "Etype (F)" with references to "F_Typ", which keeps the results
7335         of exactly that call.
7337 2021-06-15  Bob Duff  <duff@adacore.com>
7339         * gen_il-gen.adb (To_Bit_Offset): Use 'Base to avoid overflow in
7340         computations in Last_Bit when Offset = 'Last.
7341         (Choose_Offset): Give a better error message when we run out of
7342         fields.  In particular, point out that
7343         Gen_IL.Internals.Bit_Offset'Last needs to be increased.
7345 2021-06-15  Bob Duff  <duff@adacore.com>
7347         * atree.ads, einfo-utils.ads, einfo-utils.adb, fe.h, gen_il.adb,
7348         gen_il.ads, gen_il-gen-gen_entities.adb,
7349         gen_il-gen-gen_nodes.adb, sem_ch12.adb, sem_ch3.adb,
7350         sem_util.adb, sinfo-utils.ads, treepr.adb, types.ads: Clean up
7351         ??? comments and other comments.
7352         * atree.adb: Clean up ??? comments and other comments.
7353         (Validate_Node): Fix bug: "Off_0 (N) < Off_L (N)"
7354         should be "Off_0 (N) <= Off_L (N)".
7355         * gen_il-gen.adb, gen_il-gen.ads: Clean up ???
7356         comments and other comments.  Add support for getter-specific
7357         and setter-specific preconditions.  Detect the error of putting
7358         a field in the wrong subrange.  Misc cleanup.
7359         (Node_Field vs. Entity_Field): Clean up Nmake.  Improve
7360         comments.
7361         * gen_il-utils.ads: Misc cleanup. Move...
7362         * gen_il-internals.ads: ... here.
7363         * gen_il-utils.adb: Misc cleanup. Move...
7364         * gen_il-internals.adb: ... here.
7365         * gen_il-fields.ads: Move Was_Default_Init_Box_Association,
7366         which was in the wrong subrange.  Add comments.  Misc cleanup.
7367         * gen_il-types.ads: Add Named_Access_Kind.
7368         * sinfo-cn.adb: Clean up ??? comments and other comments.
7369         Remove redundant assertions.
7370         * einfo.ads, sinfo.ads: Clean up ??? comments and other
7371         comments.  Remove all the comments indicating field offsets.
7372         These are obsolete now that Gen_IL computes the offsets
7373         automatically.
7375 2021-06-15  Arnaud Charlet  <charlet@adacore.com>
7377         * einfo.ads, errout.adb, errout.ads, exp_aggr.adb, exp_ch5.adb,
7378         exp_ch6.adb, exp_ch8.adb, exp_ch9.adb, exp_imgv.adb,
7379         exp_put_image.adb, fe.h, impunit.adb, impunit.ads,
7380         libgnat/a-cobove.ads, libgnat/a-convec.ads, opt.ads,
7381         par-ch12.adb, par-ch3.adb, par-ch4.adb, par-ch5.adb,
7382         par-ch6.adb, par-prag.adb, par-util.adb, scans.ads, scng.adb,
7383         sem_aggr.adb, sem_attr.adb, sem_ch10.adb, sem_ch12.adb,
7384         sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_ch6.adb,
7385         sem_ch8.adb, sem_elab.adb, sem_eval.adb, sem_prag.adb,
7386         sem_res.adb, sem_type.adb, sem_util.adb, sem_util.ads,
7387         sinfo.ads, snames.ads-tmpl, sprint.adb, switch-c.adb, usage.adb,
7388         doc/gnat_ugn/building_executable_programs_with_gnat.rst,
7389         doc/gnat_rm/implementation_defined_aspects.rst,
7390         gcc-interface/trans.c: Update all references to Ada 2020 to Ada
7391         2022. Rename pragma Ada_2020 to Ada_2022.  Update documentation
7392         accordingly.
7393         * gnat_ugn.texi, gnat_rm.texi: Regenerate.
7395 2021-06-15  Steve Baird  <baird@adacore.com>
7397         * sem_util.adb (Gather_Components): Factor the test that was
7398         already being used to govern emitting a pre-Ada_2020 error
7399         message into an expression function,
7400         OK_Scope_For_Discrim_Value_Error_Messages. Call that new
7401         function in two places: the point where the same test was being
7402         performed previously, and in governing emission of a newer
7403         Ada_2020 error message. In both cases, the out-mode parameter
7404         Gather_Components.Report_Errors is set to True even if no error
7405         messages are generated within Gather_Components.
7406         * sem_util.ads: Correct a comment.
7408 2021-06-15  Richard Kenner  <kenner@adacore.com>
7410         * sem_ch3.adb (Array_Type_Declaration, Build_Derived_Type):
7411         Reinitialize Stored_Constraint when needed.
7412         (Set_Modular_Size): Likewise.
7413         * atree.adb: (Check_Vanishing_Fields): Add node id to debugging
7414         information.
7416 2021-06-15  Bob Duff  <duff@adacore.com>
7418         * sem_util.adb (Propagate_Invariant_Attributes): Call
7419         Set_Has_Own_Invariants on the base type, because these are
7420         Base_Type_Only. The problem is that the base type of a type is
7421         indeed a base type when Set_Base_Type is called, but then the
7422         type is mutated into a subtype in rare cases.
7423         * atree.ads, atree.adb (Is_Entity): Export. Correct subtype of
7424         parameter in body.
7425         * gen_il-gen.adb: Improve getters so that "Pre => ..." can refer
7426         to the value of the field. Put Warnings (Off) on some with
7427         clauses that are not currently used, but might be used by such
7428         Pre's.
7430 2021-06-15  Piotr Trojanek  <trojanek@adacore.com>
7432         * sem_ch3.adb (Access_Type_Declaration): Add comments to explain
7433         the ordering of Mutate_Kind and Set_Directly_Designated_Type;
7434         remove temporary setting of Ekind to E_Access_Type for building
7435         _master objects, since now the Ekind is already set to its final
7436         value. Move repeated code into Setup_Access_Type routine and use
7437         it so that Process_Subtype is executed before mutating the kind
7438         of the type entity.
7439         * gen_il-gen-gen_entities.adb (Gen_Entities): Remove
7440         Directly_Designated_Type from E_Void, E_Private_Record,
7441         E_Limited_Private_Type and Incomplete_Kind; now it only belongs
7442         to Access_Kind entities.
7443         * sem_util.adb: Minor reformatting.
7445 2021-06-03  Eric Botcazou  <ebotcazou@adacore.com>
7447         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Add PAT
7448         local constant and use it throughout.  If it is set, use a ref-all
7449         pointer type for the pointer-to-array field of the fat pointer type.
7450         <E_Array_Subtype>: Add PAT local constant and use it throughout.
7452 2021-05-26  Jakub Jelinek  <jakub@redhat.com>
7454         * init.c (__gnat_error_handler): Remove register keyword.
7456 2021-05-25  Martin Liska  <mliska@suse.cz>
7458         * doc/share/conf.py: Fix Sphinx 4.0.x error.
7460 2021-05-21  Piotr Trojanek  <trojanek@adacore.com>
7462         * gcc-interface/trans.c (Raise_Error_to_gnu): Add an assertion.
7464 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7466         * gcc-interface/utils.c (gnat_pushdecl): Fix typo in comment.
7467         * gcc-interface/utils2.c (build_simple_component_ref): Build NULL_EXPR
7468         if the offset of the field has overflowed.
7469         (build_component_ref): Add gigi checking assertion that the reference
7470         has been built and replace the discriminant check by a Program_Error.
7472 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7474         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Named_Integer>: Do
7475         not pass default value in call to create_var_decl.
7476         <E_Variable>: Likewise.
7477         <E_Record_Subtype>: Both pass true for const_flag and false for
7478         const_decl_allowed_p in call to create_var_decl.
7479         Small tweaks in the generic record type case.
7480         (elaborate_expression): Rename need_debug into need_for_debug and
7481         adjust throughout.
7482         (elaborate_expression_1): Likewise.  Pass Needs_Debug_Info instead
7483         of need_for_debug in call to create_var_decl.
7484         (elaborate_expression_2): Likewise.
7485         * gcc-interface/utils.c (maybe_pad_type): Pass false for
7486         const_decl_allowed_p in call to create_var_decl.
7488 2021-05-21  Ghjuvan Lacambre  <lacambre@adacore.com>
7490         * gcc-interface/decl.c (gnat_to_gnu_entity): Replace ? with ??.
7491         (gnat_to_gnu_param): Likewise.
7492         (gnat_to_gnu_subprog_type): Likewise.
7493         (warn_on_field_placement): Likewise.
7494         (intrin_arglists_compatible_p): Likewise.
7495         * gcc-interface/trans.c (Pragma_to_gnu): Likewise.
7496         (gnat_to_gnu): Likewise.
7497         (validate_unchecked_conversion): Likewise.
7498         * gcc-interface/utils.c (maybe_pad_type): Likewise.
7500 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7502         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Process
7503         the implementation type of a packed type implemented specially.
7505 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7507         * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Always translate
7508         the Is_Pure flag into the "pure" attribute of GNU C.
7510 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7512         * gcc-interface/trans.c (Call_to_gnu): Restrict previous change
7513         to bitfields whose size is not equal to the type size.
7514         (gnat_to_gnu): Likewise.
7516 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7518         * gcc-interface/trans.c (Call_to_gnu): Minor tweaks.
7519         (gnat_to_gnu_external): Likewise.
7520         (Raise_Error_to_gnu): Return an empty statement list if there is a
7521         condition and it is always false.
7522         (gnat_to_gnu): Do not check for elaboration code a priori during the
7523         translation but a posteriori instead.
7525 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7527         * gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>:
7528         Put a SLOC on the assignment from the return value to the return
7529         object in the copy-in/copy-out case.
7531 2021-05-21  Eric Botcazou  <ebotcazou@adacore.com>
7533         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Replace
7534         CEIL_DIV_EXPR with EXACT_DIV_EXPR.
7535         * gcc-interface/misc.c (gnat_type_max_size): Likewise.
7536         * gcc-interface/utils.c (maybe_pad_type): Likewise.
7537         (finish_record_type): Likewise.  And always compute the unit size.
7539 2021-05-14  Martin Liska  <mliska@suse.cz>
7541         * doc/Makefile: Add gnat-style target.
7542         * doc/share/conf.py: Likewise.
7543         * doc/gnat-style.rst: New file.
7545 2021-05-12  Bob Duff  <duff@adacore.com>
7547         PR ada/100564
7548         * atree.adb (Change_Node): Do not call Zero_Slots on a Node_Id
7549         when the Nkind has not yet been set; call the other Zero_Slots
7550         that takes a range of slot offsets.  Call the new Mutate_Kind
7551         that takes an Old_Size, for the same reason -- the size cannot
7552         be computed without the Nkind.
7553         (Mutate_Nkind): New function that allows specifying the Old_Size.
7554         (Size_In_Slots): Assert that the Nkind has proper (nonzero) value.
7555         * atree.ads: Minor reformatting.
7557 2021-05-12  Martin Liska  <mliska@suse.cz>
7559         * doc/share/conf.py: Do not use binary mode.
7560         Do not use u' literals as Python3 uses unicode by default.
7562 2021-05-11  Martin Liska  <mliska@suse.cz>
7564         * gcc-interface/ada-tree.h (BUILT_IN_LIKELY): Use builtins
7565         from COROUTINES.
7566         (BUILT_IN_UNLIKELY): Likewise.
7568 2021-05-11  Eric Botcazou  <ebotcazou@adacore.com>
7570         * gnatvsn.adb (Version_String): Rename to...
7571         (C_Version_String): ...this.
7572         (Gnat_Version_String): Adjust to above renaming.
7573         * version.c : Fix formatting glitches.
7575 2021-05-10  Martin Liska  <mliska@suse.cz>
7577         PR bootstrap/100506
7578         * Make-generated.in: Replace version.c with ada/version.c.
7579         * gcc-interface/Make-lang.in: Add version.o to GNAT1_C_OBJS and
7580         GNATBIND_OBJS.
7581         * gcc-interface/Makefile.in: Replace version.c with ada/version.c.
7582         Add version.o to TOOLS_LIBS.
7583         * gnatvsn.adb: Replace version_string with gnat_version_string.
7584         * version.c: New file.
7586 2021-05-10  Eric Botcazou  <ebotcazou@adacore.com>
7588         * einfo-utils.ads (Classification Attributes): Add pragma Inline.
7589         (Synthesized Attribute Functions): Move pragma Inline around.
7590         (Type Representation Attribute Predicates): Likewise.
7591         (Field Initialization Routines): Likewise.
7592         (Miscellaneous Subprogram): Likewise.
7594 2021-05-10  Eric Botcazou  <ebotcazou@adacore.com>
7596         * atree.ads (Slot): Remove pragma Provide_Shift_Operators.
7597         (Shift_Left): New intrinsic function.
7598         (Shift_Right): Likewise.
7599         * atree.adb (Get_1_Bit_Val): Use Natural instead of Integer.
7600         (Get_2_Bit_Val): Likewise.
7601         (Get_4_Bit_Val): Likewise.
7602         (Get_8_Bit_Val): Likewise.
7603         (Set_1_Bit_Val): Likewise.
7604         (Set_2_Bit_Val): Likewise.
7605         (Set_4_Bit_Val): Likewise.
7606         (Set_8_Bit_Val): Likewise.
7608 2021-05-10  Eric Botcazou  <ebotcazou@adacore.com>
7610         * atree.adb (Zero_Slots): Remove obsolete comment and add header.
7612 2021-05-10  Eric Botcazou  <ebotcazou@adacore.com>
7614         * atree.h (Get_32_Bit_Field): Tidy up.
7615         (Get_32_Bit_Field_With_Default): Likewise.
7617 2021-05-10  Eric Botcazou  <ebotcazou@adacore.com>
7619         * Make-generated.in (do_gen_il): Replace with...
7620         (ada/stamp-gen_il): ...this.  Do not copy files into generated/.
7622 2021-05-10  Martin Liska  <mliska@suse.cz>
7624         * gcc-interface/utils.c (def_builtin_1): Use startswith
7625         function instead of strncmp.
7627 2021-05-07  Piotr Trojanek  <trojanek@adacore.com>
7629         * einfo-utils.adb (Is_Access_Object_Type): Use
7630         Directly_Designated_Type.
7631         (Is_Access_Subprogram_Type): Use Directly_Designated_Type.
7632         (Set_Convention): Use plain Ekind.
7633         * gen_il-gen-gen_entities.adb (Type_Kind): Use plain Ekind.
7634         * sem_ch3.adb (Access_Type_Declaration): When seeing an illegal
7635         completion with an access type don't attempt to decorate the
7636         completion entity; previously the entity had its Ekind set to
7637         E_General_Access_Type or E_Access_Type, but its Designated_Type
7638         was empty, which caused a crash in freezing. (Actually, the
7639         error recovery in the surrounding context is still incomplete,
7640         e.g. we will crash when the illegal completion is an access to
7641         an unknown identifier).
7643 2021-05-07  Bob Duff  <duff@adacore.com>
7645         * par_sco.adb: Align with/use clauses.
7646         (Traverse_Declarations_Or_Statements): Minor comment fix.
7647         * aspects.adb, atree.adb, atree.ads, checks.adb, comperr.adb,
7648         contracts.adb, cstand.adb, debug_a.adb, einfo-utils.adb,
7649         errout.adb, eval_fat.adb, exp_aggr.adb, expander.adb,
7650         exp_atag.adb, exp_attr.adb, exp_cg.adb, exp_ch11.adb,
7651         exp_ch12.adb, exp_ch13.adb, exp_ch2.adb, exp_ch3.adb,
7652         exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, exp_ch8.adb,
7653         exp_ch9.adb, exp_code.adb, exp_dbug.adb, exp_disp.adb,
7654         exp_dist.adb, exp_fixd.adb, exp_imgv.adb, exp_intr.adb,
7655         exp_pakd.adb, exp_prag.adb, exp_put_image.adb, exp_sel.adb,
7656         exp_smem.adb, exp_spark.adb, exp_strm.adb, exp_tss.adb,
7657         exp_unst.adb, exp_util.adb, exp_util.ads, freeze.adb,
7658         frontend.adb, ghost.adb, gnat1drv.adb, gnat_cuda.adb,
7659         impunit.adb, inline.adb, itypes.adb, itypes.ads, layout.adb,
7660         lib.adb, lib-load.adb, lib-writ.adb, lib-xref.adb,
7661         lib-xref-spark_specific.adb, live.adb, nlists.adb, par.adb,
7662         par-ch11.adb, par-ch3.adb, par-ch5.adb, par-ch6.adb, pprint.adb,
7663         repinfo.adb, restrict.adb, rtsfind.adb, scil_ll.adb, scn.adb,
7664         sem.adb, sem_aggr.adb, sem_attr.adb, sem_aux.adb, sem_case.adb,
7665         sem_cat.adb, sem_ch10.adb, sem_ch11.adb, sem_ch12.adb,
7666         sem_ch13.adb, sem_ch2.adb, sem_ch3.adb, sem_ch4.adb,
7667         sem_ch5.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb,
7668         sem_dim.adb, sem_disp.adb, sem_dist.adb, sem_elab.adb,
7669         sem_elim.adb, sem_eval.adb, sem_intr.adb, sem_mech.adb,
7670         sem_prag.adb, sem_res.adb, sem_scil.adb, sem_smem.adb,
7671         sem_type.adb, sem_util.adb, sem_util.ads, sem_warn.adb,
7672         sinfo-cn.adb, sinfo-utils.ads, sinput.adb, sinput-l.adb,
7673         sprint.adb, style.adb, styleg.adb, tbuild.adb, tbuild.ads,
7674         treepr.adb, uname.adb: Align with/use clauses.
7676 2021-05-07  Bob Duff  <duff@adacore.com>
7678         * atree.ads, atree.adb, gen_il-gen.ads: Fix comments and clean
7679         up ???  marks.  Rename Set_Ekind to be Mutate_Ekind.
7680         * einfo.ads, sinfo.ads: Likewise.  Change "definitive
7681         definition" to "official definition", because the former sounds
7682         redundant.  Rename Set_Ekind to be Mutate_Ekind.
7683         * checks.adb, contracts.adb, cstand.adb, exp_aggr.adb,
7684         exp_attr.adb, exp_ch11.adb, exp_ch3.adb, exp_ch5.adb,
7685         exp_ch6.adb, exp_ch7.adb, exp_ch9.adb, exp_disp.adb,
7686         exp_dist.adb, exp_imgv.adb, exp_intr.adb, exp_prag.adb,
7687         exp_unst.adb, exp_util.adb, gen_il-gen.adb, inline.adb,
7688         lib-writ.adb, lib-xref-spark_specific.adb, sem_aggr.adb,
7689         sem_ch10.adb, sem_ch11.adb, sem_ch12.adb, sem_ch13.adb,
7690         sem_ch3.adb, sem_ch5.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb,
7691         sem_ch9.adb, sem_dist.adb, sem_elab.adb, sem_prag.adb,
7692         sem_util.adb: Rename Set_Ekind to be Mutate_Ekind.
7694 2021-05-07  Bob Duff  <duff@adacore.com>
7696         * atree.adb: Move nnd-related code from here, and leave a
7697         comment pointing to sinfo-utils.adb.
7698         * sinfo-utils.ads, sinfo-utils.adb: Move nnd-related code to
7699         here.
7701 2021-05-07  Piotr Trojanek  <trojanek@adacore.com>
7703         * einfo.ads: Move Corresponding_Protected_Entry...
7704         * sinfo.ads: ... here.
7705         * exp_ch9.adb (Build_Entry_Body): Link procedure and entry
7706         bodies.
7707         * gen_il-fields.ads (Opt_Field_Enum): Add
7708         Corresponding_Entry_Body field to nodes; remove
7709         Corresponding_Protected_Entry field from entities.
7710         * gen_il-gen-gen_entities.adb (Gen_Entities): Remove
7711         Corresponding_Protected_Entry field from E_Void and
7712         E_Subprogram_Body.
7713         * gen_il-gen-gen_nodes.adb (Gen_Nodes): Add
7714         Corresponding_Entry_Body field to N_Subprogram_Body.
7715         * sem_ch6.adb (Analyze_Subprogram_Specification): Remove
7716         manipulation of Ekind and Corresponding_Protected_Entry added as
7717         part of the support for varsize-nodes.
7719 2021-05-07  Bob Duff  <duff@adacore.com>
7721         * sem_ch3.adb (Process_Incomplete_Dependents): Reset
7722         Private_Dependents field to zero before calling Set_Ekind.  Also
7723         move Set_Etype to after Set_Ekind, because it's always best to
7724         set the Ekind as early as possible.
7725         * atree.adb: Improve debugging facilities for vanishing fields.
7727 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7729         * atree.ads (Slot): Change to modular type.
7730         (Slot_1_Bit): Delete.
7731         (Slot_2_Bit): Likewise.
7732         (Slot_4_Bit): Likewise.
7733         (Slot_8_Bit): Likewise.
7734         (Slot_32_Bit): Likewise.
7735         * atree.adb (Get_1_Bit_Val): Adjust to above change.
7736         (Get_2_Bit_Val): Likewise.
7737         (Get_4_Bit_Val): Likewise.
7738         (Get_8_Bit_Val): Likewise.
7739         (Get_32_Bit_Val): Likewise.
7740         (Set_1_Bit_Val): Likewise.
7741         (Set_2_Bit_Val): Likewise.
7742         (Set_4_Bit_Val): Likewise.
7743         (Set_8_Bit_Val): Likewise.
7744         (Set_32_Bit_Val): Likewise.
7745         (Print_Atree_Info): Likewise.
7746         (Zero): Likewise.
7747         * atree.h (Get_1_Bit_Field): Likewise.
7748         (Get_2_Bit_Field): Likewise.
7749         (Get_4_Bit_Field): Likewise.
7750         (Get_8_Bit_Field): Likewise.
7751         (Get_32_Bit_Field): Likewise.
7752         (Get_32_Bit_Field_With_Default): Likewise.
7753         * types.h (slot_1_bit): Delete.
7754         (slot_2_bit): Likewise.
7755         (slot_4_bit): Likewise.
7756         (slot_8_bit): Likewise.
7757         (slot_32_bit): Likewise.
7758         (any_slot): Change to unsigned int.
7759         (Slot_Size): New macro.
7761 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7763         * gcc-interface/gigi.h (enum standard_datatype): Remove
7764         ADT_exception_data_name_id and add ADT_not_handled_by_others_name_id.
7765         (exception_data_name_id): Delete.
7766         (not_handled_by_others_name_id): New macro.
7767         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Exception>: Remove old
7768         kludge for exceptions.
7769         <E_Record_Type>: Likewise.
7770         (gnat_to_gnu_field): Force character type on Not_Handled_By_Others.
7771         * gcc-interface/misc.c (gnat_argv): Change type to char **.
7772         (gnat_init_options): Adjust accordingly.
7773         * gcc-interface/trans.c (gigi): Set not_handled_by_others_name_id
7774         and use it to set not_handled_by_others_decl.
7775         (Exception_Handler_to_gnu_fe_sjlj): Fix indentation.
7777 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7779         * raise-gcc.c (__gnat_others_value): Remove const qualifier.
7780         (__gnat_all_others_value): Likewise.
7781         (__gnat_unhandled_others_value): Likewise.
7782         (GNAT_OTHERS): Cast to Exception_Id instead of _Unwind_Ptr.
7783         (GNAT_ALL_OTHERS): Likewise.
7784         (GNAT_UNHANDLED_OTHERS): Likewise.
7785         (Is_Handled_By_Others): Change parameter type to Exception_Id.
7786         (Language_For): Likewise.
7787         (Foreign_Data_For): Likewise.
7788         (is_handled_by): Likewise.  Adjust throughout, remove redundant
7789         line and fix indentation.
7790         * libgnat/a-exexpr.adb (Is_Handled_By_Others): Remove pragma and
7791         useless qualification from parameter type.
7792         (Foreign_Data_For): Likewise.
7793         (Language_For): Likewise.
7795 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7797         * libgnat/s-stalib.ads (Exception_Data): Mark components as aliased.
7798         * stand.ads (Standard_Entity_Type): Enhance comments.
7799         * cstand.adb (Make_Component): Rename into...
7800         (Make_Aliased_Component): ...this; set Is_Aliased and Is_Independent
7801         flags on the component.
7802         (Create_Standard): Adjust the types of the component of the record
7803         Standard_Exception_Type and mark them as aliased.
7804         * exp_ch11.adb (Expand_N_Exception_Declaration): Use OK
7805         conversion to Standard_Address for Full_Name component, except
7806         in CodePeer_Mode (set it to 0).
7807         * exp_prag.adb (Expand_Pragma_Import_Or_Interface): Likewise.
7808         * raise.h (struct Exception_Data): Change the type of Full_Name,
7809         HTable_Ptr and Foreign_Data.
7811 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7813         * atree.h (Slots_Ptr): Change pointed-to type to any_slot.
7814         * fe.h (Get_RT_Exception_Name): Change type of parameter.
7815         * namet.ads (Name_Entry): Mark non-boolean components as aliased,
7816         reorder the boolean components and add an explicit Spare component.
7817         * namet.adb (Name_Enter): Adjust aggregate accordingly.
7818         (Name_Find): Likewise.
7819         (Reinitialize): Likewise.
7820         * namet.h (struct Name_Entry): Adjust accordingly.
7821         (Names_Ptr): Use correct type.
7822         (Name_Chars_Ptr): Likewise.
7823         (Get_Name_String): Fix declaration and adjust to above changes.
7824         * types.ads (RT_Exception_Code): Add pragma Convention C.
7825         * types.h (Column_Number_Type): Fix original type.
7826         (slot): Rename union type to...
7827         (any_slot): ...this and adjust assertion accordingly.
7828         (RT_Exception_Code): New enumeration type.
7829         * uintp.ads (Uint_Entry): Mark components as aliased.
7830         * uintp.h (Uints_Ptr):  Use correct type.
7831         (Udigits_Ptr): Likewise.
7832         * gcc-interface/gigi.h (gigi): Adjust name and type of parameter.
7833         * gcc-interface/cuintp.c (UI_To_gnu): Adjust references to Uints_Ptr
7834         and Udigits_Ptr.
7835         * gcc-interface/trans.c (Slots_Ptr): Adjust pointed-to type.
7836         (gigi): Adjust type of parameter.
7837         (build_raise_check): Add cast in call to Get_RT_Exception_Name.
7839 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7841         * init.c (__gnat_raise_program_error): Fix parameter type.
7842         (Raise_From_Signal_Handler): Likewise and mark as no-return.
7843         * raise-gcc.c (__gnat_others_value): Fix type.
7844         (__gnat_all_others_value): Likewise.
7845         (__gnat_unhandled_others_value): Likewise.
7846         * seh_init.c (Raise_From_Signal_Handler): Fix parameter type.
7847         * libgnat/a-except.ads (Raise_From_Signal_Handler): Use convention C
7848         and new symbol name, move declaration to...
7849         (Raise_From_Controlled_Operation): Minor tweak.
7850         * libgnat/a-except.adb (Raise_From_Signal_Handler): ...here.
7851         * libgnat/a-exexpr.adb (bool): New C compatible boolean type.
7852         (Is_Handled_By_Others): Use it as return type for the function.
7854 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7856         * errout.ads (Set_Identifier_Casing): Add pragma Convention C.
7857         * eval_fat.ads (Rounding_Mode): Likewise.
7858         (Machine): Add WARNING comment line.
7859         * exp_code.ads (Clobber_Get_Next): Add pragma Convention C.
7860         * fe.h (Compiler_Abort): Fix return type.
7861         (Set_Identifier_Casing): Change type of parameters.
7862         (Clobber_Get_Next): Change return type.
7863         * gcc-interface/trans.c (gnat_to_gnu) <N_Code_Statement>: Add cast.
7865 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
7867         * atree.h (Parent): Remove duplicate declaration.
7868         (Get_1_Bit_Field): Also use INLINE specifier in the declaration,
7869         fix formatting and use gcc_unreachable for the default case.
7870         (Get_2_Bit_Field): Likewise.
7871         (Get_4_Bit_Field): Likewise.
7872         (Get_8_Bit_Field): Likewise.
7873         (Get_32_Bit_Field): Likewise.
7874         (Get_32_Bit_Field_With_Default): Likewise.
7876 2021-05-07  Bob Duff  <duff@adacore.com>
7878         * atree.ads, atree.adb: Major rewrite to support variable-sized
7879         node types. Add pragmas Suppress and Assertion_Policy.  We now
7880         have an extra level of indirection: Node_Offsets is a table
7881         mapping Node_Ids to the offset of the start of each node in
7882         Slots. Slots is a table containing one or more contiguous slots
7883         for each node. Each slot is a 32-bit unchecked union that can
7884         contain any mixture of 1, 2, 4, 8, and 32-bit fields that fits.
7885         The old low-level getters and setters (e.g.  Flag123) are
7886         removed.
7887         * gen_il-fields.ads, gen_il-gen-gen_entities.adb,
7888         gen_il-gen-gen_nodes.adb, gen_il-gen.adb, gen_il-gen.ads,
7889         gen_il-main.adb, gen_il-types.ads, gen_il-utils.adb,
7890         gen_il-utils.ads, gen_il.adb, gen_il.ads: New gen_il program
7891         that generates various Ada and C++ files. In particular, the
7892         following files are generated by gen_il: einfo-entities.adb
7893         einfo-entities.ads, gnatvsn.ads, nmake.adb, nmake.ads,
7894         seinfo.ads, seinfo_tables.adb, seinfo_tables.ads,
7895         sinfo-nodes.adb, sinfo-nodes.ads, einfo.h, and sinfo.h.
7896         * sinfo-utils.adb, sinfo-utils.ads, einfo-utils.adb,
7897         einfo-utils.ads: New files containing code that needs to refer
7898         to Sinfo.Nodes and Einfo.Entities. This code is mostly moved
7899         here from Sinfo and Einfo to break cycles.
7900         * back_end.adb: Pass node_offsets_ptr and slots_ptr to gigi,
7901         instead of nodes_ptr and flags_ptr. The Nodes and Flags tables
7902         no longer exist. (Note that gigi never used the Flags table.)
7903         * sinfo-cn.ads (Change_Identifier_To_Defining_Identifier,
7904         Change_Character_Literal_To_Defining_Character_Literal,
7905         Change_Operator_Symbol_To_Defining_Operator_Symbol): Turn N into
7906         an IN formal.
7907         * sinfo-cn.adb: Update.  Add assertions, which can be removed at
7908         some point.  Rewrite to use higher-level facilities.  Make sure
7909         vanishing fields are zeroed out.  Add with/use for new packages.
7910         * sem_util.adb: Remove "Assert(False)" immediately followed by
7911         "raise Program_Error".  Use higher-level facilities such as
7912         Walk_Sinfo_Fields instead of depending on low-level Set_FieldN
7913         routines that no longer exist. Use Get_Comes_From_Source_Default
7914         instead of Default_Node.Comes_From_Source (Default_Node no
7915         longer exists).  Use Set_Basic_Convention instead of
7916         Basic_Set_Convention.  Add with/use for new packages.
7917         * sem_util.ads: The Convention field had getter Convention and
7918         setter Basic_Set_Convention. Make that more uniform: there is
7919         now a field called Basic_Convention, with Basic_Convention and
7920         Set_Basic_Convention as getter/setter, and write Convention and
7921         Set_Convention here.
7922         * nlists.adb: Rewrite to use abstractions, rather then depending
7923         on low-level implementation details of Atree. Necessary because
7924         those details have changed. Add with/use for new packages.
7925         * sem_ch12.adb: Use higher-level facilities such as
7926         Walk_Sinfo_Fields instead of depending on low-level Set_FieldN
7927         routines that no longer exist. Add with/use for new packages.
7928         * exp_cg.adb, sem_ch10.adb, sem_ch4.adb, sem_eval.adb,
7929         sem_prag.adb, sem_warn.adb: Change expanded names to refer to
7930         the new packages for things that moved. Add with/use for new
7931         packages.
7932         * sem_ch3.adb: Likewise. Reinitialize vanishing fields.
7933         * exp_disp.adb: Likewise. Remove failing assertion.
7934         * sinfo.ads, einfo.ads: Remove code that is now generated into
7935         Sinfo.Nodes and Einfo.Entities.
7936         * sinfo.adb, einfo.adb: Replace bodies with "pragma No_Body;".
7937         We should delete these at some point, but No_Body makes make
7938         files easier. Some code is moved to Sinfo.Nodes, Einfo.Entities,
7939         Sinfo.Utils, and Einfo.Utils. Some is no longer necessary.
7940         * treepr.adb: Rewrite to use new tables. We no longer need
7941         treeprs.ads.
7942         * treepr.ads: Add comment.
7943         * types.ads: Move types Component_Alignment_Kind and
7944         Float_Rep_Kind here.
7945         * atree.h: Major update to match atree.ads changes.  Add slot
7946         types, for use by getters/setters.
7947         * types.h: Move types Component_Alignment_Kind and
7948         Float_Rep_Kind here.
7949         * fe.h: Rewrite to deal with code that has changed or moved from
7950         Atree, Sinfo, Einfo.
7951         * nlists.h: Move some code to fe.h.
7952         * alloc.ads: Split Nodes_* constants into Node_Offsets and
7953         Slots, because Atree has two separate tables.  Increase values.
7954         Remove Nodes_Release_Threshold. Improve comment.
7955         * debug.adb, gnat1drv.adb: Remove obsolete gnatd.A and gnatd.N
7956         switches.  Add with/use for new packages.
7957         * opt.ads: Minor comment fix.
7958         * aspects.adb, checks.adb, comperr.adb, contracts.adb,
7959         cstand.adb, debug_a.adb, errout.adb, eval_fat.adb, exp_aggr.adb,
7960         exp_atag.adb, exp_attr.adb, exp_ch11.adb, exp_ch12.adb,
7961         exp_ch13.adb, exp_ch2.adb, exp_ch3.adb, exp_ch4.adb,
7962         exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, exp_ch8.adb, exp_ch9.adb,
7963         exp_code.adb, exp_dbug.adb, exp_dist.adb, exp_fixd.adb,
7964         exp_imgv.adb, exp_intr.adb, exp_pakd.adb, exp_prag.adb,
7965         exp_put_image.adb, exp_sel.adb, exp_smem.adb, exp_spark.adb,
7966         exp_strm.adb, exp_tss.adb, exp_unst.adb, exp_util.adb,
7967         exp_util.ads, expander.adb, freeze.adb, frontend.adb,
7968         get_targ.ads, ghost.adb, gnat_cuda.adb, impunit.adb, inline.adb,
7969         itypes.adb, itypes.ads, layout.adb, lib.adb, lib-load.adb,
7970         lib-writ.adb, lib-xref.adb, lib-xref.ads,
7971         lib-xref-spark_specific.adb, live.adb, par.adb, par_sco.adb,
7972         pprint.adb, repinfo.adb, restrict.adb, rtsfind.adb, scil_ll.adb,
7973         scn.adb, sem.adb, sem.ads, sem_aggr.adb, sem_attr.adb,
7974         sem_aux.adb, sem_case.adb, sem_cat.adb, sem_ch11.adb,
7975         sem_ch13.adb, sem_ch2.adb, sem_ch5.adb, sem_ch6.adb,
7976         sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_dim.adb,
7977         sem_disp.adb, sem_dist.adb, sem_elab.adb, sem_elim.adb,
7978         sem_intr.adb, sem_mech.adb, sem_res.adb, sem_scil.adb,
7979         sem_smem.adb, sem_type.adb, set_targ.ads, sinput.adb,
7980         sinput-l.adb, sprint.adb, style.adb, styleg.adb, tbuild.adb,
7981         tbuild.ads, uname.adb: Add with/use for new packages.
7982         * libgnat/a-stoubu.adb, libgnat/a-stouut.adb: Simplify to ease
7983         bootstrap.
7984         * libgnat/a-stobfi.adb, libgnat/a-stoufi.adb (Create_File,
7985         Create_New_File): Create file in binary format, to avoid
7986         introducing unwanted text conversions on Windows. Simplify to
7987         ease bootstrap.
7988         * libgnat/a-stteou__bootstrap.ads: New.
7989         * ceinfo.adb, csinfo.adb, nmake.adt, treeprs.adt, xeinfo.adb,
7990         xnmake.adb, xsinfo.adb, xtreeprs.adb: Delete.
7991         * Make-generated.in: Build and run the gen_il program to
7992         generate files. The files are generated in the ada/gen_il
7993         subdirectory, and then moved up to ada.  We rely on gnatmake (as
7994         opposed to make) to build the gen_il program efficiently (i.e.
7995         don't do anything if the sources didn't change).
7996         * gcc-interface/Makefile.in (ADAFLAGS): Add -gnatU.
7997         (GNATMAKE_OBJS): Add new object files.
7998         (GENERATED_FILES_FOR_TOOLS): New variable.
7999         (../stamp-tools): Create a link for all
8000         GENERATED_FILES_FOR_TOOLS.
8001         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add new object
8002         files.  Remove ada/treeprs.o.
8003         (GNATBIND_OBJS): Add new object files.
8004         (ada.mostlyclean): Remove ada/sdefault.adb and add
8005         ada/stamp-gen_il.
8006         (ada.maintainer-clean): Remove ada/treeprs.ads.
8007         (update-sources): Remove obsolete target.
8008         (ada_generated_files): Rename to...
8009         (ADA_GENERATED_FILES): ... this.  Add new source files.  Add
8010         comment.
8011         * gcc-interface/trans.c: Remove obsolete Nodes_Ptr and
8012         Flags_ptr.  Add Node_Offsets_Ptr and Slots_Ptr, which point to
8013         the corresponding tables in Atree.
8014         * gcc-interface/gigi.h (gigi): New parameters for initializing
8015         Node_Offsets_Ptr and Slots_Ptr.
8016         * gcc-interface/decl.c: Numeric_Kind,
8017         Discrete_Or_Fixed_Point_Kind, and Record_Kind were
8018         nonhierarchical, and were therefore removed for simplicity.
8019         Replace uses with calls to Is_In_... functions.
8021 2021-05-07  Ed Schonberg  <schonberg@adacore.com>
8023         * exp_ch4.adb (Unconstrained_UU_In_Component_Declaration): A
8024         component declaration whose subtype indication is an entity name
8025         without an explicit constraint is an Unchecked_Union type only
8026         if the entity has an unconstrained nominal subtype (record type
8027         or private type) whose parent type is an Unchecked_Union.
8029 2021-05-07  Piotr Trojanek  <trojanek@adacore.com>
8031         * sem_res.adb (Flag_Object): Ignore prefixes of attribute
8032         Address.
8034 2021-05-07  Yannick Moy  <moy@adacore.com>
8036         * opt.ads: Update comment for Warn_On_Suspicious_Modulus_Value.
8037         * sem_res.adb (Resolve_Unary_Op): Generate warning.
8038         * usage.adb: Refine doc for -gnatw.m/M switch.
8039         * doc/gnat_ugn/building_executable_programs_with_gnat.rst:
8040         Update doc on -gnatw.m switch.
8041         * gnat_ugn.texi: Regenerate.
8043 2021-05-07  Piotr Trojanek  <trojanek@adacore.com>
8045         * sem_res.adb (Flag_Object): Replace chained IF with a CASE;
8046         remove repeated calls to Entity; do not traverse into
8047         N_Identifier and N_Expanded_Name, because only need to examine
8048         their Entity field anyway.
8050 2021-05-07  Piotr Trojanek  <trojanek@adacore.com>
8052         * sem_ch4.adb (Analyze_Call): Remove call to End_Interp_List.
8053         (Process_Overloaded_Indexed_Component): Remove call to
8054         End_Interp_List.
8055         * sem_util.adb (Insert_Explicit_Dereference): Remove call to
8056         End_Interp_List.
8057         * sem_type.ads (End_Interp_List): Remove.
8058         * sem_type.adb (Add_Entry): The guard against duplicate entries
8059         is now checked before other conditions, so that EXIT statements
8060         do not bypass this guard.
8061         (End_Interp_List): Remove.
8063 2021-05-07  Ed Schonberg  <schonberg@adacore.com>
8065         * exp_util.adb (Remove_Init_Call): If a simple initialization
8066         call is present, and the next statement is an initialization
8067         block (that contains a call to a Deep_ Initialize routine),
8068         remove the block as well, and insert the first initialization
8069         call in it, in case it is needed for later relocation.
8071 2021-05-07  Gary Dismukes  <dismukes@adacore.com>
8073         * errout.ads (Size_Too_Small_Message): Remove low-value ???
8074         comment.
8075         * exp_util.ads: Remove ??? in part of overall package comments
8076         and restructure comment to clarify.
8077         (Duplicate_Subexpr): Remove ??? comment that seems unnecessary.
8078         * sem_ch3.ads (Analyze_Declarations): Remove two parenthesized
8079         ??? comments and add more description of the procedure's
8080         actions.
8081         (Get_Discriminant_Value): Remove ??? comment requesting more
8082         documentation, expanding description of the function's actions.
8083         * sem_disp.ads (Check_Operation_From_Incomplete_Type): Add more
8084         semantic description of the procedure and remove ??? comment
8085         requesting such.
8086         (Propagate_Tag): Refine comment to indicate meaning of formal
8087         parameters and generally improve the spec comment (and remove
8088         ??? comment asking about the parameters).
8090 2021-05-07  Arnaud Charlet  <charlet@adacore.com>
8092         * sem_eval.adb (Fold_Shift): Fix computation of Shift_Left
8093         resulting in negative signed values.
8095 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
8097         * sem_util.ads (Defining_Entity): Remove Empty_On_Errors parameter.
8098         (Defining_Entity_Or_Empty): New function.
8099         * sem_util.adb (Defining_Entity): Move bulk of implementation to...
8100         (Defining_Entity_Or_Empty): ...here.  Do not raise Program_Error.
8101         (Innermost_Master_Scope_Depth): Call Defining_Entity_Or_Empty.
8103 2021-05-07  Justin Squirek  <squirek@adacore.com>
8105         * aspects.ads: Add entries to register
8106         Aspect_No_Controlled_Parts.
8107         * freeze.adb (Check_No_Controlled_Parts_Violations): Added to
8108         check requirements of aspect No_Controlled_Parts after a type
8109         has been frozen.
8110         (Freeze_Entity): Add call to
8111         Check_No_Controlled_Parts_Violations.
8112         (Find_Aspect_No_Controlled_Parts): Created to obtain the aspect
8113         specification for No_Controlled_Parts on a given type when
8114         present.
8115         (Find_Aspect_No_Controlled_Parts_Value): Protect against invalid
8116         value.
8117         (Has_Aspect_No_Controlled_Parts): Created as a prediate function
8118         to check if No_Controlled_Parts has been specified on a type for
8119         Get_Anacestor_Types_With_Specification.
8120         (Get_Aspect_No_Controlled_Parts_Value): Created to obtain the
8121         value of the aspect No_Controlled_Parts when specified on a
8122         given type.
8123         (Get_Generic_Formal_Types_In_Hierarchy): Created to collect
8124         formal types in a given type's hierarchy.
8125         (Get_Types_With_Aspect_In_Hierarchy): Created to collect types
8126         in a given type's hierarchy with No_Controlled_Parts specified.
8127         * sem_ch13.adb (Analyze_One_Aspect): Add processing for
8128         No_Controlled_Parts, and fix error in check for allowed pragmas
8129         for formal types.
8130         (Check_Expr_Is_OK_Static_Expression): Created to enforce
8131         checking of static expressions in the same vein as
8132         Analyze_Pragma.Check_Expr_OK_Static_Expression.
8133         * sem_util.adb (Collect_Types_In_Hierarchy): Created to collect
8134         types in a given type's hierarchy that match a given predicate
8135         function.
8136         * sem_util.ads: Fix typo.
8137         * snames.ads-tmpl: Add entry for No_Controlled_Parts.
8139 2021-05-07  Eric Botcazou  <ebotcazou@adacore.com>
8141         * libgnat/s-fatgen.adb (Scaling): Raise Constraint_Error in the
8142         overflow case when T'Machine_Overflows is True.
8144 2021-05-07  Bob Duff  <duff@adacore.com>
8146         * libgnat/a-conhel.adb (TC_Check): Move the Assert into the
8147         'if'.
8149 2021-05-07  Frederic Konrad  <konrad@adacore.com>
8151         * sigtramp-vxworks-target.inc: Use a local label for the TOC.
8153 2021-05-07  Claire Dross  <dross@adacore.com>
8155         * exp_ch4.adb (Has_Inferable_Discriminants): Moved to Sem_Util.
8156         * sem_util.ads, sem_util.adb (Has_Inferable_Discriminants):
8157         Moved from Exp_Ch4.
8159 2021-05-07  Ed Schonberg  <schonberg@adacore.com>
8161         * exp_util.adb (Build_Class_Wide_Expression, Replace_Entity):
8162         Add guard to verify that the enclosing pragma is a precondition.
8164 2021-05-06  Javier Miranda  <miranda@adacore.com>
8166         * exp_disp.adb (Build_Class_Wide_Check): Extending the
8167         functionality of this routine to climb to the ancestors
8168         searching for the enclosing overridden dispatching primitive
8169         that has a class-wide precondition to generate the check.
8171 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8173         * sem_ch3.adb (Constraint_Index): Remove redundant problematic
8174         analysis.
8176 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8178         * exp_unst.adb (Note_Uplevel_Bound): Exclude
8179         E_Enumeration_Literal.
8181 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8183         * exp_ch4.adb (Expand_N_If_Expression):
8184         Apply_Arithmetic_Overflow_Check will not deal with
8185         Then/Else_Actions so skip minimizing overflow checks if any
8186         actions are present.
8188 2021-05-06  Boris Yakobowski  <yakobowski@adacore.com>
8190         * gnat1drv.adb (Adjust_Global_Switches): Simplify logic.
8192 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8194         * libgnat/i-c.ads (bool): New type.
8195         * libgnat/i-cexten.ads, libgnat/i-cexten__128.ads (bool): Now
8196         a subtype of Interfaces.C.bool.
8197         * libgnarl/s-interr__vxworks.adb (Interrupt_Manager): Qualify
8198         False.
8199         * libgnarl/s-interr.adb, libgnarl/s-interr__hwint.adb,
8200         libgnarl/s-tasini.adb, libgnarl/s-tasren.adb,
8201         libgnarl/s-tassta.adb, libgnarl/s-tpobmu.adb,
8202         libgnarl/s-tpobop.adb, libgnarl/s-tpopmo.adb: Replace
8203         Assert (False) by Assert (Standard.False).
8205 2021-05-06  Ghjuvan Lacambre  <lacambre@adacore.com>
8207         * make.adb (Compute_Executable): Document parameter.
8209 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8211         * libgnat/s-fatgen.adb (Scaling): Use single handling of
8212         underflow.  Add pragma Annotate.
8214 2021-05-06  Ghjuvan Lacambre  <lacambre@adacore.com>
8216         * sem_eval.adb (Is_OK_Static_Subtype): Call Is_Static_Subtype,
8217         remove redundant checks.
8219 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8221         * sem_res.adb (First_Last_Ref): Simplify "if [condition] then
8222         return True" in "return [condition]".
8223         (Resolve_Range): Remove calls appearing in IF condition from the
8224         THEN statements.
8226 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8228         * sem_case.adb (Missing_Choice): Fix typo in comment.
8229         (Lit_Of): Simplify with Make_Character_Literal.
8230         (Check_Choices): Remove extra spaces in parameter
8231         specifications.
8232         * sem_case.ads: Same reformatting.
8234 2021-05-06  Ed Schonberg  <schonberg@adacore.com>
8236         * exp_aggr.adb (Expand_Array_Aggregate): If the expression in an
8237         Others_Clause has not been analyzed because previous analysis of
8238         the enclosing aggregate showed the clause to be ineffective i.e.
8239         cover a null range, analyze it now to detect a possible type
8240         illegality.
8242 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8244         * libgnat/s-fatgen.adb (Scaling): Fix off-by-one bug for underflow.
8246 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8248         * sem_ch6.adb (Is_Inline_Pragma): Protect against N not being a
8249         list member in both branches.
8251 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8253         * libgnat/a-cofove.adb (Insert_Space): Remove hardcoded pragma
8254         Warnings.
8256 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8258         * sem_ch4.adb (Analyze_Selected_Component): Remove explicit call
8259         to Set_Raises_Constraint_Error on statically missing component.
8260         * sem_eval.adb (Eval_Arithmetic_Op): Likewise for static
8261         divisions by integer and real zeros.
8262         * sem_util.adb (Apply_Compile_Time_Constraint_Error): Call
8263         Set_Raises_Constraint_Error before exiting early in GNATprove
8264         mode.
8266 2021-05-06  Justin Squirek  <squirek@adacore.com>
8268         * checks.adb (Make_Discriminant_Constraint_Check): Add check for
8269         null when the type being converted is an access type.
8271 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8273         * exp_pakd.adb (Expand_Packed_Eq): Fix handling of PATs.
8275 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8277         * osint.adb (Read_Library_Info_From_Full): Cleanup unused
8278         initial value.
8280 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8282         * doc/gnat_rm/implementation_defined_characteristics.rst (3.5.7):
8283         Mention the IEEE standard explicitly.  Use current format names.
8284         Document assumed rounding mode and new features of I/O support.
8285         * gnat_rm.texi: Regenerate.
8287 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8289         * init.c (__gnat_init_float): Use full version on Linux too.
8291 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8293         * libgnat/s-fatgen.adb (Valid): Do a bit comparison with 0.0
8294         when denormalized numbers are not supported.
8296 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8298         * sem_attr.adb (Check_Enum_Image): Reword comment; add
8299         Check_Enumeration_Maps parameter.  Now this routine combines
8300         both referencing enumeration literals and checking restriction
8301         No_Enumeration_Maps, if required.
8302         (Analyze_Attribute): Remove duplicated code and instead call
8303         Check_Enum_Image.
8305 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8307         * sem_attr.adb (Analyze_Image_Attribute): Remove redundant
8308         condition; add a missing header box.
8310 2021-05-06  Gary Dismukes  <dismukes@adacore.com>
8312         * doc/gnat_ugn/building_executable_programs_with_gnat.rst: Add
8313         mention of underscore and fix grammar error in doc for -gnatd.
8314         * gnat_ugn.texi: Regenerate.
8316 2021-05-06  Eric Botcazou  <ebotcazou@adacore.com>
8318         * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-exponr, s-exnflt
8319         and s-exnlfl.
8320         * exp_ch4.adb (Expand_N_Op_Expon): Use RE_Exn_Float for Short_Float.
8321         * rtsfind.ads (RTU_Id): Add System_Exn_Flt and System_Exn_LFlt.
8322         (RE_Id): Adjust entries for RE_Exn_Float and RE_Exn_Long_Float.
8323         (RE_Unit_Table): Likewise.
8324         * libgnat/s-exnflt.ads: New file.
8325         * libgnat/s-exnlfl.ads: Likewise.
8326         * libgnat/s-exnllf.ads: Change to mere instantiation.
8327         * libgnat/s-exnllf.adb: Move implementation to...
8328         * libgnat/s-exponr.ads: New generic unit.
8329         * libgnat/s-exponr.adb: ...here and also make it generic.
8330         (Expon): Do the computation in double precision internally.
8332 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8334         * lib-writ.adb, osint.adb, osint.ads: Cleanup.
8336 2021-05-06  Piotr Trojanek  <trojanek@adacore.com>
8338         * exp_ch3.adb (Expand_Freeze_Array_Type): Remove excessive
8339         condition.
8340         (Expand_N_Object_Declaration): Likewise.
8341         (Build_Equivalent_Aggregate): Likewise.
8342         (Initialization_Warning): Likewise; change another excessive
8343         condition into assertion.
8344         * freeze.adb (Freeze_Entity): Remove excessive condition.
8346 2021-05-06  Ed Schonberg  <schonberg@adacore.com>
8348         * sem_res.adb (Resolve_If_Expression): If the context of the
8349         expression is an indexed_component, resolve the expression and
8350         its dependent_expressions with the base type of the index, to
8351         ensure that an index check is generated when resolving the
8352         enclosing indexxed_component, and avoid an improper use of
8353         discriminants out of scope, when the index type is
8354         discriminant-dependent.
8356 2021-05-06  Arnaud Charlet  <charlet@adacore.com>
8358         * einfo.ads, exp_prag.adb, exp_util.adb: Fix typos.
8360 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8362         * exp_attr.adb (Expand_N_Attribute_Reference): Fix expansion of
8363         attributes Input and Output for unchecked unions.
8364         * sem_case.ads: Fix typo "disriminant" and refill comment.
8366 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8368         * exp_attr.adb, exp_ch9.adb, sem_ch3.adb: Reuse
8369         Has_Defaulted_Discriminants.
8370         * sem_ch4.adb (Analyze_Allocator): Reuse
8371         Has_Defaulted_Discriminants (after reordering conjuncts); remove
8372         redundant IF statement, whose condition is implied by
8373         Has_Defaulted_Discriminants.
8374         * sem_util.adb (Has_Defaulted_Discriminants): Has_Discriminants
8375         implies that the First_Discriminant is present.
8376         (Is_Fully_Initialized_Type): Reuse Has_Defaulted_Discriminants.
8378 2021-05-05  Justin Squirek  <squirek@adacore.com>
8380         * exp_ch6.adb (Expand_Call_Helper): Add condition to check for
8381         expanded actuals and remove dead code.
8383 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8385         * exp_ch4.adb (Has_Unconstrained_UU_Component): Rewrite to
8386         follow the Ada RM grammar.
8388 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8390         * exp_ch4.adb (User_Defined_Primitive_Equality_Op): Refine type
8391         of a local variable.
8392         * exp_dbug.adb (Scope_Contains): Refine all types from Node_Id
8393         to Entity_Id; rename parameters to match those of the
8394         Scope_Within routine (which is similar but not the same); also,
8395         simplify an OR ELSE into a membership test.
8397 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8399         * exp_ch4.adb (Component_Is_Unconstrained_UU): Detect both
8400         qualified and unqualified names of unchecked union components.
8402 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8404         * exp_ch4.adb (Variant_Is_Unconstrained_UU): Remove redundant
8405         check for empty list.
8406         * exp_disp.adb (Find_Entry_Index): Simplify by removing
8407         redundant check and counting from zero; fix type of a local
8408         variable.
8409         * sem_ch12.adb (Save_Global_Descendant): Remove an unnecessary
8410         special-case for empty lists.
8412 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8414         * exp_ch4.adb (Apply_Accessibility_Check): Skip a statically
8415         true condition in expanded raise statement.
8417 2021-05-05  Bob Duff  <duff@adacore.com>
8419         * libgnat/s-os_lib.adb (Missed_Drive_Letter): Simplify the code.
8421 2021-05-05  Ed Schonberg  <schonberg@adacore.com>
8423         * sem_ch5.adb (Analyze_Assignment): Do not emit the warning that
8424         a previous value of the target object is useless if the
8425         right-hand side of the assignment includes target names.
8427 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8429         * exp_imgv.adb: Add with/use clauses for Targparm.
8430         (Build_Enumeration_Image_Tables): Set type of Threshold to Nat and
8431         initialize it to Nat'Last if the type is local and the target does
8432         not support descriptors.  Adjust Threshold_For_Size similarly.
8433         (Expand_Value_Attribute): Minor tweaks.
8435 2021-05-05  Ghjuvan Lacambre  <lacambre@adacore.com>
8437         * exp_ch7.adb (Expand_N_Package_Body): Add CUDA init call.
8438         * sem_ch7.adb (Analyze_Package_Body_Helper): Remove CUDA init
8439         call.
8441 2021-05-05  Ghjuvan Lacambre  <lacambre@adacore.com>
8443         * par-ch5.adb (P_Condition): Check if expression is declare
8444         expression.
8446 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8448         * make.adb (Make): Use GNAT.Ctrl_C.Install_Handler instead of a
8449         custom imported procedure.
8451 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8453         * exp_imgv.adb (Is_User_Defined_Enumeration_Type): Delete.
8454         (Expand_Image_Attribute): Move inline expansion into normal flow of
8455         control, move down declarations and remove superfluous processing.
8457 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8459         * libgnat/g-alleve.adb (Bit_Operation): Now a not-null type.
8460         * libgnat/g-sechas.adb (Fill_Buffer_Access): Likewise.
8461         * libgnat/s-dwalin.adb (Callback): Likewise.
8463 2021-05-05  Ghjuvan Lacambre  <lacambre@adacore.com>
8465         * exp_util.adb (Is_Possibly_Unaligned_Object): Remove commented
8466         code.
8468 2021-05-05  Ed Schonberg  <schonberg@adacore.com>
8470         * sem_ch3.adb (Find_Type_Of_Object):  When In_Spec_Expression is
8471         set and the object declaration generates a subtype indication,
8472         build the corresponding subtype declaration and place it in tree
8473         without the use of Insert_Actions, which is disabled in this
8474         context.
8476 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8478         * debug.adb (d_x): Document extended usage.
8479         * exp_imgv.adb (Expand_Standard_Boolean_Image): New procedure.
8480         (Expand_Image_Attribute): Call it to expand in line the attribute
8481         for standard boolean by default.
8483 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8485         * debug.adb (d_x): Document new usage.
8486         * exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Add Typ
8487         parameter and use it throughout the processing.
8488         (Expand_Image_Attribute): Retrieve the underlying type of the
8489         prefix and use the inline expansion for user-defined enumeration
8490         types with a literal string by default.
8492 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8494         * libgnat/s-dorepr.adb (Split): Declare a per-size temporary.
8495         Add pragma Annotate.
8497 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8499         * exp_ch4.adb, sem_ch13.adb, sem_eval.adb, sem_res.adb: Remove
8500         redundant calls to UI_From_Int.
8502 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8504         * exp_imgv.ads (Build_Enumeration_Image_Tables): Adjust comment.
8505         * exp_imgv.adb (Build_Enumeration_Image_Tables): Add the
8506         declaration nodes of the 4 tables to the declaration list of the
8507         function body.
8509 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8511         * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-imagen, s-imen16,
8512         s-imen32, s-imenu8, s-pehage, s-valuen, s-vaen16, s-vaen32 and
8513         s-vaenu8.  Remove s-imenne, s-imgenu and s-valenu.
8514         * debug.adb (d_h): Document new usage.
8515         * einfo.ads (Lit_Hash): New attribute for enumeration types.
8516         (Set_Lit_Hash): Declare.
8517         * einfo.adb (Lit_Hash): New function.
8518         (Set_Lit_Hash): New procedure.
8519         (Write_Field21_Name): Print Lit_Hash for Enumeration_Kind.
8520         * exp_imgv.ads (Build_Enumeration_Image_Tables): Fix description
8521         and document the hash function and its tables.
8522         * exp_imgv.adb: Add with/use clauses for Debug.  Add with clause
8523         for System.Perfect_Hash_Generators.
8524         (Append_Table_To): New helper routine.
8525         (Build_Enumeration_Image_Tables): Call it to build the tables.
8526         In the main unit, register the literals with the hash generator.
8527         If they are sufficiently many and -gnatd_h is not passed, generate
8528         a perfect hash function and its tables; otherwise, generate a dummy
8529         hash function.  For the other units, generate only the declaration.
8530         In all cases, set Lit_Hash to the entity of the function, if any.
8531         (Expand_Value_Attribute): Pass the 'Unrestricted_Access of Lit_Hash,
8532         if any, as third argument to the Value_Enumeration_NN function.
8533         * gnat1drv.adb (Adjust_Global_Switches): force simpler implementation
8534         of 'Value in CodePeer_Mode.
8535         * lib.ads (Synchronize_Serial_Number): Add SN parameter.
8536         * lib.adb (Synchronize_Serial_Number): Assert that it is larger than
8537         the serial number of the current unit and set the latter to it only
8538         in this case.
8539         * rtsfind.ads (RTU_Id): Add System_Img_Enum_8, System_Img_Enum_16,
8540         System_Img_Enum_32, System_Val_Enum_8, System_Val_Enum_16 and
8541         System_Val_Enum_32.  Remove System_Img_Enum, System_Img_Enum_New
8542         and System_Val_Enum.
8543         * sem_attr.adb (Analyze_Access_Attribute): Do not flag a compiler
8544         generated Unrestricted_Access attribute as illegal in a declare
8545         expression.
8546         (RE_Unit_Table): Adjust to above changes.
8547         * libgnat/g-heasor.ads: Add pragma Compiler_Unit_Warning.
8548         * libgnat/g-table.ads: Likewise.
8549         * libgnat/g-pehage.ads: Add with clause and local renaming for
8550         System.Perfect_Hash_Generators.
8551         (Optimization): Turn into derived type.
8552         (Verbose): Turn into renaming.
8553         (Too_Many_Tries): Likewise.
8554         (Table_Name): Move to System.Perfect_Hash_Generators.
8555         (Define): Likewise.
8556         (Value): Likewise.
8557         * libgnat/g-pehage.adb: Remove with clause for Ada.Directories,
8558         GNAT.Heap_Sort_G and GNAT.Table.  Move bulk of implementation
8559         to System.Perfect_Hash_Generators, only keep the output part.
8560         * libgnat/s-imagen.ads: New generic unit.
8561         * libgnat/s-imagen.adb: New body.
8562         * libgnat/s-imen16.ads: New unit.
8563         * libgnat/s-imen32.ads: Likewise.
8564         * libgnat/s-imenu8.ads: Likewise.
8565         * libgnat/s-imenne.ads: Adjust description.
8566         * libgnat/s-imgenu.ads: Delete.
8567         * libgnat/s-imgenu.adb: Likewise.
8568         * libgnat/s-pehage.ads: New unit from GNAT.Perfect_Hash_Generators.
8569         * libgnat/s-pehage.adb: New body from GNAT.Perfect_Hash_Generators.
8570         * libgnat/s-valuen.ads: New generic unit.
8571         * libgnat/s-valuen.adb: New body.
8572         * libgnat/s-vaen16.ads: New unit.
8573         * libgnat/s-vaen32.ads: Likewise.
8574         * libgnat/s-vaenu8.ads: Likewise.
8575         * libgnat/s-valenu.ads: Delete.
8576         * libgnat/s-valenu.adb: Likewise.
8577         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Add s-pehage.o.
8578         (GNATBIND_OBJS): Remove s-imgenu.o.
8580 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8582         * sem_util.ads (Apply_Compile_Time_Constraint_Error): Remove
8583         parameter Rep from the function spec and "and if the flag Rep is
8584         set" from the comment.
8585         * sem_util.adb (Apply_Compile_Time_Constraint_Error): Remove
8586         parameter Rep.
8588 2021-05-05  Ed Schonberg  <schonberg@adacore.com>
8590         * sem_aggr.adb (Resolve_Indexed_Aggregate): For indexed
8591         aggregates with component associations verify that if there is
8592         more than one component association then all the choices are
8593         static, that the set of choices define a continuous sequence of
8594         values, and that if loop specfications appear, they do not
8595         include iterator filters or key expressions.
8597 2021-05-05  Eric Botcazou  <ebotcazou@adacore.com>
8599         * Makefile.rtl (GNATRTL_NONTASKING_OBJS): Add s-dourea, s-imager,
8600         s-imgflt, s-imglfl and s-imgllf.
8601         (LIBGNAT_TARGET_PAIRS) [PowerPC/VxWorks]: Use s-dorepr__fma.adb.
8602         (LIBGNAT_TARGET_PAIRS) [PowerPC/VxWorksAE]: Likewise.
8603         (LIBGNAT_TARGET_PAIRS) [Aarch64/VxWorks]: Likewise.
8604         (LIBGNAT_TARGET_PAIRS) [Aarch64/QNX]: Likewise.
8605         (LIBGNAT_TARGET_PAIRS) [Aarch64/FreeBSD]: Likewise.
8606         (LIBGNAT_TARGET_PAIRS) [PowerPC/Linux]: Likewise.
8607         (LIBGNAT_TARGET_PAIRS) [Aarch64/Linux]: Likewise.
8608         (LIBGNAT_TARGET_PAIRS) [IA-64/Linux]: Likewise.
8609         (LIBGNAT_TARGET_PAIRS) [IA-64/HP-UX]: Likewise.
8610         (LIBGNAT_TARGET_PAIRS) [RISC-V/Linux]: Likewise.
8611         (LIBGNAT_TARGET_PAIRS) [PowerPC/Darwin]: Likewise.
8612         * exp_attr.adb (Expand_N_Attribute_Reference) [Attribute_Fore]: Use
8613         Fixed suffix and Long_Float type.
8614         * exp_imgv.adb (Expand_Image_Attribute): For floating-point types,
8615         use the routine of the corresponding root type.  For ordinary fixed
8616         point types, use Fixed suffix and Long_Float type.
8617         (Expand_Value_Attribute): Revert latest change for Long_Long_Float.
8618         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS): Remove libgnat units
8619         g-hesora.o and s-imgenu.o, add g-heasor.o, g-table.o and s-pehage.o.
8620         (GNATBIND_OBJS): Remove libgnat unit s-imgenu.o.
8621         * rtsfind.ads (RTU_Id): Add System_Img_Flt, System_Img_LFlt and
8622         System_Img_LLF.  Remove System_Img_Real.
8623         (RE_Id): Rename RE_Fore_Real to RE_Fore_Fixed.  Add RE_Image_Float,
8624         RE_Image_Long_Float and RE_Image_Long_Long_Float.  Rename
8625         RE_Image_Ordinary_Fixed_Point to RE_Image_Fixed.
8626         (RE_Unit_Table): Adjust to above changes.
8627         * libgnat/a-nbnbre.adb (Fixed_Conversions): Use Long_Float instead
8628         of Long_Long_Float.
8629         * libgnat/a-textio.ads (Field): Remove obsolete comment.
8630         * libgnat/a-ticoau.ads (Aux): Adjust ancestor package.
8631         * libgnat/a-ticoau.adb: Remove with/use clause for System.Img_Real.
8632         (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8633         * libgnat/a-ticoio.adb: Add with/use clauses for System.Img_Flt,
8634         System.Img_LFlt and System.Img_LLF.
8635         (Scalar_Float): Add third actual parameter.
8636         (Scalar_Long_Float): Likewise.
8637         (Scalar_Long_Long_Float): Likewise.
8638         * libgnat/a-tifiio.adb: Add with/use clauses for System.Img_LFlt
8639         and System.Val_LFlt.  Remove the one for System.Val_LLF.  Replace
8640         Long_Long_Float with Long_Float throughout.
8641         * libgnat/a-tifiio__128.adb: Likewise.
8642         * libgnat/a-tiflau.ads: Add Set_Image formal parameter.
8643         * libgnat/a-tiflau.adb: Add with/use clause for System.Img_Util,
8644         remove the one for System.Img_Real.
8645         (Put): Call Set_Image instead of Set_Image_Real.
8646         (Puts): Likewise.
8647         * libgnat/a-tiflio.adb: Add with/use clause for System.Img_Flt,
8648         System.Img_LFlt and System.Img_LLF.
8649         (Aux_Float): Add third actual parameter.
8650         (Aux_Long_Float): Likewise.
8651         (Aux_Long_Long_Float): Likewise.
8652         * libgnat/a-witeio.ads (Field): Remove obsolete comment.
8653         * libgnat/a-wtcoau.ads (Aux): Adjust ancestor package.
8654         * libgnat/a-wtcoau.adb: Remove with/use clause for System.Img_Real.
8655         (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8656         * libgnat/a-wtcoio.adb: Add with/use clauses for System.Img_Flt,
8657         System.Img_LFlt and System.Img_LLF.
8658         (Scalar_Float): Add third actual parameter.
8659         (Scalar_Long_Float): Likewise.
8660         (Scalar_Long_Long_Float): Likewise.
8661         * libgnat/a-wtfiio.adb: Add with/use clauses for System.Img_LFlt
8662         and System.Val_LFlt.  Remove the one for System.Val_LLF.  Replace
8663         Long_Long_Float with Long_Float throughout.
8664         * libgnat/a-wtfiio__128.adb: Likewise.
8665         * libgnat/a-wtflau.ads: Add Set_Image formal parameter.
8666         * libgnat/a-wtflau.adb: Add with/use clause for System.Img_Util,
8667         remove the one for System.Img_Real.
8668         (Put): Call Set_Image instead of Set_Image_Real.
8669         (Puts): Likewise.
8670         * libgnat/a-wtflio.adb: Add with/use clause for System.Img_Flt,
8671         System.Img_LFlt and System.Img_LLF.
8672         (Aux_Float): Add third actual parameter.
8673         (Aux_Long_Float): Likewise.
8674         (Aux_Long_Long_Float): Likewise.
8675         * libgnat/a-ztexio.ads (Field): Remove obsolete comment.
8676         * libgnat/a-ztcoau.ads (Aux): Adjust ancestor package.
8677         * libgnat/a-ztcoau.adb: Remove with/use clause for System.Img_Real.
8678         (Puts): Call Aux.Set_Image instead of Set_Image_Real.
8679         * libgnat/a-ztcoio.adb: Add with/use clauses for System.Img_Flt,
8680         System.Img_LFlt and System.Img_LLF.
8681         (Scalar_Float): Add third actual parameter.
8682         (Scalar_Long_Float): Likewise.
8683         (Scalar_Long_Long_Float): Likewise.
8684         * libgnat/a-ztfiio.adb: Add with/use clauses for System.Img_LFlt
8685         and System.Val_LFlt.  Remove the one for System.Val_LLF.  Replace
8686         Long_Long_Float with Long_Float throughout.
8687         * libgnat/a-ztfiio__128.adb: Likewise.
8688         * libgnat/a-ztflau.ads: Add Set_Image formal parameter.
8689         * libgnat/a-ztflau.adb: Add with/use clause for System.Img_Util,
8690         remove the one for System.Img_Real.
8691         (Put): Call Set_Image instead of Set_Image_Real.
8692         (Puts): Likewise.
8693         * libgnat/a-ztflio.adb: Add with/use clause for System.Img_Flt,
8694         System.Img_LFlt and System.Img_LLF.
8695         (Aux_Float): Add third actual parameter.
8696         (Aux_Long_Float): Likewise.
8697         (Aux_Long_Long_Float): Likewise.
8698         * libgnat/s-dorepr.adb: New file.
8699         * libgnat/s-dorepr__fma.adb: Likewise.
8700         * libgnat/s-dourea.ads: Likewise.
8701         * libgnat/s-dourea.adb: Likewise.
8702         * libgnat/s-forrea.ads (Fore_Real): Rename into...
8703         (Fore_Fixed): ...this and take Long_Float parameters.
8704         * libgnat/s-forrea.adb (Fore_Real): Likewise.
8705         (Fore_Fixed): Likewise.
8706         * libgnat/s-imgrea.ads: Move to...
8707         (Set_Image_Real): Turn into mere renaming.
8708         * libgnat/s-imager.ads: ...here.
8709         (Image_Ordinary_Fixed_Point): Turn into...
8710         (Image_Fixed_Point): ...this.
8711         * libgnat/s-imgrea.adb: Add pragma No_Body.  Move to...
8712         * libgnat/s-imager.adb: ...here.
8713         (Image_Ordinary_Fixed_Point): Turn into...
8714         (Image_Fixed_Point): ...this.
8715         (Is_Negative): Replace Long_Long_Float with Num.
8716         (Set_Image_Real): Likewise.  Use Double_T instead of single Num
8717         throughout the algorithm.
8718         * libgnat/s-imgflt.ads: New file.
8719         * libgnat/s-imglfl.ads: Likewise.
8720         * libgnat/s-imgllf.ads: Likewise.
8721         * libgnat/s-imagef.ads: Adjust comment.
8722         * libgnat/s-imguti.ads (Max_Real_Image_Length): New named number.
8723         * libgnat/s-powflt.ads (Maxpow): Adjust.
8724         (Powten): Turn into an exact table of double Float.
8725         * libgnat/s-powlfl.ads (Maxpow): Adjust.
8726         (Powten): Turn into an exact table of double Long_Float.
8727         * libgnat/s-powllf.ads (Maxpow): Adjust.
8728         (Powten): Turn into an exact table of double Long_Long_Float.
8729         * libgnat/s-valrea.ads: Change order of formal parameters.
8730         * libgnat/s-valrea.adb: Add with clause for System.Double_Real.
8731         (Double_Real): New instantiation.
8732         (Fast2Sum): Delete.
8733         (Large_Powten): New function.
8734         (Integer_to_Real): Use Quick_Two_Sum instead of Fast2Sum.  Convert
8735         the value to Double_T.  Do the scaling in Double_T for base 10.
8736         * libgnat/s-valflt.ads: Remove with/use clasue for Interfaces,
8737         add it for System.Unsigned_Types.  Use Unsigned.
8738         * libgnat/s-vallfl.ads: Remove with/use clasue for Interfaces,
8739         add it for System.Unsigned_Types.  Use Long_Unsigned.
8740         * libgnat/s-valllf.ads: Remove with/use clasue for Interfaces,
8741         add it for System.Unsigned_Types.  Use Long_Long_Unsigned.
8743 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8745         * sem_eval.adb (Eval_Arithmetic_Op): Call
8746         Set_Raises_Constraint_Error on real division by zero just like
8747         it is called for integer division by zero earlier in this
8748         routine.
8750 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8752         * freeze.adb (Build_Renamed_Body): Simplify IF and WHILE
8753         statements with the same condition.
8755 2021-05-05  Piotr Trojanek  <trojanek@adacore.com>
8757         * pprint.adb (Expr_Name): Introduce local constants to make the
8758         code more readable and avoid repeated calls to Next to reach the
8759         ELSE part of an if-expression.
8761 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8763         * pprint.adb: Remove qualification of arbitrary calls to
8764         Sinfo.Expressions and Sinfo.Parameter_Associations.
8766 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8768         * pprint.adb (Expr_Name): Simplify with functional variant of
8769         UI_Image.
8771 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8773         * pprint.adb (To_Mixed): Removed.
8775 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8777         * pprint.adb (List_Name_Count): Change type from Integer to
8778         Natural.
8780 2021-05-04  Yannick Moy  <moy@adacore.com>
8782         * pprint.adb (Expression_Image): Special case for
8783         expression-with-actions.
8785 2021-05-04  Bob Duff  <duff@adacore.com>
8787         * exp_ch4.adb (Expand_Concatenate): Remove the non-optimization.
8789 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8791         * lib-xref.adb (Generate_Reference_To_Formals): Remove dedicated
8792         branch for generic subprograms (they are now handled together
8793         with non-generic subprograms in the ELSE branch); replace a
8794         low-level Ekind membership test with a high-level call to
8795         Is_Access_Subprogram_Type.
8797 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8799         * sem_ch12.adb (Check_Abstract_Primitives): Match First_Formal
8800         with Next_Formal.
8801         * sem_ch6.adb (Is_Non_Overriding_Operation): Likewise.
8803 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8805         * sem_prag.adb (Collect_Global_Item): Iterate directly over
8806         formals.
8808 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8810         * sem_prag.ads (Collect_Subprogram_Inputs_Outputs): Update
8811         comment; this routine is no longer used by GNATprove.
8812         * sem_prag.adb (Find_Role): The IN parameter is on output only
8813         when it belongs to non-function; also, the otherwise constant
8814         object can only be written by a non-function.
8815         (Collect_Global_Item): The IN parameter can only be written when
8816         it belongs to non-function; also, unnest this check to make it
8817         easier to read.
8819 2021-05-04  Arnaud Charlet  <charlet@adacore.com>
8821         * libgnat/s-assert.ads (Assert_Failure): Now a renaming of
8822         Assertion_Error.
8823         * libgnat/a-assert.ads (Assertion_Error): Now a first class
8824         citizen.  Remove dependency on System.Assertions.
8825         * gcc-interface/a-assert.ads, gcc-interface/a-assert.adb: New.
8826         * gcc-interface/Make-lang.in (GNAT_ADA_OBJS, GNATBIND_OBJS): Add
8827         a-assert.o from gcc-interface.
8829 2021-05-04  Yannick Moy  <moy@adacore.com>
8831         * erroutc.adb (Matches): Move spec...
8832         * erroutc.ads (Matches): ...here.
8834 2021-05-04  Yannick Moy  <moy@adacore.com>
8836         * gnat1drv.adb (Adjust_Global_Switches): Force error marker in
8837         GNATprove mode.
8839 2021-05-04  Bob Duff  <duff@adacore.com>
8841         * binde.adb: No need for ??? marks in Binde, because it is
8842         superseded by Bindo.
8843         * bindo-writers.adb (Write_Unit_Closure): Verified that -Ra
8844         works.
8845         * exp_ch4.adb, sinfo.ads (Expand_N_Type_Conversion): Rules for
8846         conversions passed to gigi are documented in sinfo.ads.
8847         (Expand_N_Unchecked_Type_Conversion): Comment is a duplicate of
8848         one in sinfo.ads.
8849         (Expand_N_In): Robert already added sufficient comments years
8850         after the ??? comment was inserted.
8851         (Expand_Membership_Minimize_Eliminate_Overflow): I don't see any
8852         reason why Stand should export Long_Long_Integer'Base -- it
8853         doesn't export any other base types.
8854         (Size_In_Storage_Elements): We are doing an allocator, so we
8855         don't care about sizes in bits.
8856         (Expand_N_Allocator): PolyORB isn't going to be significantly
8857         improved, so we're not going to mess with remote access to
8858         class-wide types.
8859         (Optimize_Return_Stmt): It's not important to optimize return
8860         statements in predicate functions -- there are many
8861         more-important optimizations we could do. Keep part of the
8862         comment without "???", to clarify why the "and then ...".
8863         (User_Defined_Primitive_Equality_Op): The optimization doesn't
8864         seem important enough.
8865         (Expand_N_Unchecked_Type_Conversion): Refactor to use
8866         Expand_N_Unchecked_Expression.
8867         (Make_Array_Comparison_Op): This seems like a case of "it it's
8868         not broken, don't fix it". Too much risk of causing bugs.
8869         * debug_a.adb: Remove ??? comments asking why Current_Error_Node
8870         is maintained unconditionally, and add a comment explaining why.
8871         * errout.adb: These kinds of minor bugs do indeed exist, but
8872         we're never going to get around to fixing them "properly", so we
8873         need this code for robustness.
8874         * gnatchop.adb (Read_File): Document when read can fail.
8875         * gnatdll.adb (Parse_Command_Line): Nobody is complaining about
8876         these arbitrary limits, so no need to use Table. Increase the
8877         limits just in case.  It is clear from the names what they are
8878         limits on.
8879         * gnatlink.adb: Add needed comments.
8880         (Delete): An existing comment makes clear it's intentional, and
8881         it's been like that since 1996.
8882         (Process_Args): Improve comments.
8883         (Search_Library_Path): Refactoring to avoid deep nesting.
8884         * inline.adb (Build_Body_To_Inline): Probably won't get around
8885         to doing that optimization.
8886         (Is_Unit_Subprogram): No, this should not be moved to Sem_Aux,
8887         because it is too specialized to this context.
8888         (Do_Reset): No comment is needed here; it's clear from the
8889         comment on Reset_Dispatching_Calls. Do_Reset is an artificial
8890         subprogram; if we had proper iterators, it would just be an if
8891         statement in the loop.
8892         (Rewrite_Function_Call): Probably won't get around to doing that
8893         optimization.
8894         * layout.adb (Layout_Type): The gigi comment doesn't need to be
8895         a ??? comment, and it's been that way since 2000.  The
8896         limitation to scalars will likely never be investigated, and
8897         it's been that way since 2009.
8898         * lib.adb (Check_Same_Extended_Unit): This doesn't look like
8899         something that needs fixing; it looks like a permanent
8900         workaround.
8901         * lib-load.adb (Change_Main_Unit_To_Spec): It is good enough in
8902         practice.
8903         (Load_Unit): Nobody will ever get around to investigating the
8904         obscure PMES oddity, and the optimization is not worth the
8905         trouble.
8906         * live.adb: It's not worth documenting this. It is used only
8907         with a debug switch. Nobody who has done significant work on it
8908         is still around, so it would require substantial investigation.
8909         * mdll.ads: I see no reason for USE.
8910         * namet.ads: Routines are obsolete, but they're not going
8911         anywhere anytime soon (too much work, and surprisingly delicate
8912         because of dependences on global variables).
8913         * osint.ads: Minor.
8914         * osint.adb: Improve comments.
8915         (Full_Lib_File_Name): Use Smart_Find_File.
8917 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8919         * exp_prag.adb, sem_prag.adb: Replace low-level Ekind membership
8920         tests with a high-level call to Is_Formal_Object.
8922 2021-05-04  Arnaud Charlet  <charlet@adacore.com>
8924         * cstand.adb, sprint.adb, switch-c.adb, xr_tabls.ads,
8925         xr_tabls.adb, xref_lib.adb: Address ??? comments.
8927 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8929         * sem_prag.adb (Analyze_Global_Item): Take subprogram kind into
8930         account when accepting or rejecting a constant of an
8931         access-to-variable type as a global Output/In_Out; do this check
8932         inside an ELSIF branch to avoid unnecessary evaluation of the
8933         subsequent condition.
8935 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8937         * sem_prag.adb (Role_Error, Usage_Error): Replace calls to
8938         Name_Find and Get_Name_String with a call to To_String.
8940 2021-05-04  Ed Schonberg  <schonberg@adacore.com>
8942         * exp_aggr.adb (Build_Siz_Exp): new function, subsidiary of
8943         Expand_Container_Aggregate, to create an expression to be used
8944         in the dynamic allocation of a container with a single container
8945         element association.
8946         (Add_Range): Handle static bounds of ranges over enumerations.
8947         (Expand_Container_Aggregate): Add declaration for size
8948         expression when needed, and use it in container object
8949         declaration for container.
8951 2021-05-04  Arnaud Charlet  <charlet@adacore.com>
8953         * exp_ch7.adb (Build_Finalizer_Helper.New_Finalizer_Name):
8954         Unnest so that it can be reused.
8955         (Build_Finalizer_Helper.Process_Declarations): Call the
8956         xxx__finalize_body procedure of a package instantiation in case
8957         it contains finalization statements.  Code clean ups.
8958         (Build_Finalizer_Helper.Create_Finalizer): Export and set an
8959         Interface_Name for library level finalizers since these may be
8960         imported now.
8961         (Build_Finalizer_Helper): Need to process library level package
8962         body instantiations which may contain objects requiring
8963         finalization.
8964         * libgnat/s-finmas.ads: Fix typo.
8966 2021-05-04  Arnaud Charlet  <charlet@adacore.com>
8968         * checks.adb (Append_Range_Checks, Apply_Selected_Length_Checks,
8969         Determine_Range, Insert_Range_Checks,
8970         Install_Null_Excluding_Check, Selected_Length_Checks,
8971         Selected_Range_Checks): Address ??? comments and code cleanups.
8973 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8975         * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8976         Apply the rule even with no explicit Global contract (and remove
8977         a dead condition for Refined_Global).
8979 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8981         * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8982         Extend check to protected entries.
8984 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
8986         * sem_prag.adb (Check_Mode_Restriction_In_Enclosing_Context):
8987         Fix reference to SPARK RM rule number.
8989 2021-05-04  Eric Botcazou  <ebotcazou@adacore.com>
8991         * exp_intr.adb: Remove with/use clauses for Urealp.
8992         (Expand_Is_Negative): Delete.
8993         (Expand_Intrinsic_Call): Do not call it.
8994         * rtsfind.ads (RE_Id): Remove RE_Float_Unsigned.
8995         (RE_Unit_Table): Remove entry for RE_Float_Unsigned.
8996         * snames.ads-tmpl (Name_Is_Negative): Delete.
8997         * libgnat/s-imgrea.ads (Set_Image_Real): Fix mode of S parameter.
8998         * libgnat/s-imgrea.adb: Add with/use clauses for System.Img_Util.
8999         (LLU): New subtype.
9000         (Maxdigs): Use it.
9001         (Is_Negative): Reimplement.
9002         (Image_Floating_Point): Simplify.
9003         (Set_Image_Real): Fix mode of S parameter.  Remove the low-level
9004         processing on characters.  Flip the sign of the Scale variable.
9005         Compute the maximum number of digits for the straight notation.
9006         Call Set_Decimal_Digits at the end to do the final formatting.
9007         * libgnat/s-imguti.ads (Floating_Invalid_Value): New type.
9008         (Set_Floating_Invalid_Value): New procedure.
9009         * libgnat/s-imguti.adb (Set_Floating_Invalid_Value): Implement it
9010         based on existing code from Set_Image_Real.
9011         * libgnat/s-unstyp.ads (Float_Unsigned): Delete.
9013 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
9015         * csets.adb (Initialize): Refactor into CASE statement; raise
9016         exception on unsupported code of character set (it will be
9017         gently rejected earlier when scanning command line switches).
9018         * switch-b.adb (Scan_Binder_Switches): Refactor into a
9019         membership expression; add missing '9' choice; reorder as
9020         described by GNAT UG, section 4.3.11.
9021         * switch-c.adb (Scan_Front_End_Switches): Refactor into a
9022         membership expression and reorder as above.
9023         * doc/gnat_ugn/building_executable_programs_with_gnat.rst
9024         (gnatic): Mention '5' as an allowed value for "c".
9025         * gnat_ugn.texi: Regenerate.
9027 2021-05-04  Piotr Trojanek  <trojanek@adacore.com>
9029         * errout.adb (Error_Msg_Internal): Add assertion to prevent
9030         style mistakes reappearing in the future.
9032 2021-05-04  Javier Miranda  <miranda@adacore.com>
9034         * exp_ch4.adb (Tagged_Membership): Remove wrong condition that
9035         is not consistent with the documentation of this subprogram.
9037 2021-05-04  Yannick Moy  <moy@adacore.com>
9039         * sem_res.adb (Valid_Conversion): Make message a continuation.
9041 2021-05-04  Arnaud Charlet  <charlet@adacore.com>
9043         * styleg.adb: Address ??? comments.
9045 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
9047         * libgnat/a-stunau.ads, libgnat/a-stunau.adb,
9048         libgnat/a-stunau__shared.adb (Set_String): Remove old version,
9049         replace by a new version taking a callback to set the string.
9051 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
9053         * libgnat/a-coorma.ads (Map): Add missing
9054         Preelaborate_Initialization.
9056 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9058         * exp_ch4.adb (Analyze_Number_Declaration, Expand_N_Op_Expon):
9059         Simplify with Is_Universal_Numeric_Type.
9060         * sem_attr.adb (Resolve_Attribute): Likewise.
9061         * sem_ch3.adb: Likewise.
9062         * sem_ch4.adb (Check_Common_Type, Check_Arithmetic_Pair):
9063         Likewise.
9064         * sem_eval.adb (Eval_Unary_Op, Test_In_Range): Likewise.
9065         * sem_res.adb (Resolve_Arithmetic_Op, Resolve_Membership_Op,
9066         Resolve_Op_Expon, Resolve_Unary_Op, Set_Mixed_Mode_Operand,
9067         Set_Operand_Type): Likewise.
9068         * sem_type.adb (Disambiguate, Find_Unique_Type): Likewise.
9069         * sem_util.adb (Universal_Interpretation): Likewise.
9071 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9073         * exp_aggr.adb (Max_Aggregate_Size): Add header boxes for nested
9074         routines; move a local constant after nested subprogram bodies;
9075         refill comment.
9077 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9079         * sem_attr.adb (Analyze_Attribute): Reuse Resolve with implicit
9080         type when analysing attribute Priority.
9081         * sem_ch5.adb (Analyze_Case_Statement): Likewise for a rare case
9082         in analysis of case statements.
9083         (Analyze_Iterator_Specification): Likewise for non-overloaded
9084         domain of iteration.
9086 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9088         * einfo.adb (Write_Entity_Info): Simplify an Ekind membership
9089         test.
9090         * exp_aggr.adb (Is_CCG_Supported_Aggregate): Likewise.
9092 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9094         * exp_ch7.adb (Build_Finalize_Statements): Refine type of a
9095         local counter variable.
9096         * exp_dist.adb (Append_Record_Traversal): Refine type of Counter
9097         parameter.
9098         (Add_Process_Element): Likewise.
9099         (Build_From_Any_Call): Refine type of a local counter variable.
9100         (Build_From_Any_Function): Likewise.
9101         (Build_To_Any_Function): Likewise.
9102         (FA_Rec_Add_Process_Element): Likewise.
9103         (TA_Append_Record_Traversal): Likewise.
9104         (TA_Rec_Add_Process_Element): Likewise.
9106 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
9108         * rtsfind.adb (SPARK_Implicit_Load): Simplify with Discard_Node.
9110 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
9112         * Makefile.rtl: Update copyright notice.
9113         * ada_get_targ.adb: Likewise.
9114         * adabkend.adb: Likewise.
9115         * adabkend.ads: Likewise.
9116         * adadecode.c: Likewise.
9117         * adadecode.h: Likewise.
9118         * adaint.c: Likewise.
9119         * adaint.h: Likewise.
9120         * affinity.c: Likewise.
9121         * ali-util.adb: Likewise.
9122         * ali-util.ads: Likewise.
9123         * ali.adb: Likewise.
9124         * ali.ads: Likewise.
9125         * alloc.ads: Likewise.
9126         * argv-lynxos178-raven-cert.c: Likewise.
9127         * argv.c: Likewise.
9128         * aspects.adb: Likewise.
9129         * aspects.ads: Likewise.
9130         * atree.adb: Likewise.
9131         * atree.ads: Likewise.
9132         * atree.h: Likewise.
9133         * aux-io.c: Likewise.
9134         * back_end.adb: Likewise.
9135         * back_end.ads: Likewise.
9136         * bcheck.adb: Likewise.
9137         * bcheck.ads: Likewise.
9138         * binde.adb: Likewise.
9139         * binde.ads: Likewise.
9140         * binderr.adb: Likewise.
9141         * binderr.ads: Likewise.
9142         * bindgen.adb: Likewise.
9143         * bindgen.ads: Likewise.
9144         * bindo-augmentors.adb: Likewise.
9145         * bindo-augmentors.ads: Likewise.
9146         * bindo-builders.adb: Likewise.
9147         * bindo-builders.ads: Likewise.
9148         * bindo-diagnostics.adb: Likewise.
9149         * bindo-diagnostics.ads: Likewise.
9150         * bindo-elaborators.adb: Likewise.
9151         * bindo-elaborators.ads: Likewise.
9152         * bindo-graphs.adb: Likewise.
9153         * bindo-graphs.ads: Likewise.
9154         * bindo-units.adb: Likewise.
9155         * bindo-units.ads: Likewise.
9156         * bindo-validators.adb: Likewise.
9157         * bindo-validators.ads: Likewise.
9158         * bindo-writers.adb: Likewise.
9159         * bindo-writers.ads: Likewise.
9160         * bindo.adb: Likewise.
9161         * bindo.ads: Likewise.
9162         * bindusg.adb: Likewise.
9163         * bindusg.ads: Likewise.
9164         * butil.adb: Likewise.
9165         * butil.ads: Likewise.
9166         * cal.c: Likewise.
9167         * casing.adb: Likewise.
9168         * casing.ads: Likewise.
9169         * ceinfo.adb: Likewise.
9170         * checks.adb: Likewise.
9171         * checks.ads: Likewise.
9172         * cio.c: Likewise.
9173         * clean.adb: Likewise.
9174         * clean.ads: Likewise.
9175         * comperr.adb: Likewise.
9176         * comperr.ads: Likewise.
9177         * contracts.adb: Likewise.
9178         * contracts.ads: Likewise.
9179         * csets.adb: Likewise.
9180         * csets.ads: Likewise.
9181         * csinfo.adb: Likewise.
9182         * cstand.adb: Likewise.
9183         * cstand.ads: Likewise.
9184         * cstreams.c: Likewise.
9185         * ctrl_c.c: Likewise.
9186         * debug.adb: Likewise.
9187         * debug.ads: Likewise.
9188         * debug_a.adb: Likewise.
9189         * debug_a.ads: Likewise.
9190         * einfo.adb: Likewise.
9191         * einfo.ads: Likewise.
9192         * elists.adb: Likewise.
9193         * elists.ads: Likewise.
9194         * elists.h: Likewise.
9195         * env.c: Likewise.
9196         * env.h: Likewise.
9197         * err_vars.ads: Likewise.
9198         * errno.c: Likewise.
9199         * errout.adb: Likewise.
9200         * errout.ads: Likewise.
9201         * erroutc.adb: Likewise.
9202         * erroutc.ads: Likewise.
9203         * errutil.adb: Likewise.
9204         * errutil.ads: Likewise.
9205         * eval_fat.adb: Likewise.
9206         * eval_fat.ads: Likewise.
9207         * exit.c: Likewise.
9208         * exp_aggr.adb: Likewise.
9209         * exp_aggr.ads: Likewise.
9210         * exp_atag.adb: Likewise.
9211         * exp_atag.ads: Likewise.
9212         * exp_attr.adb: Likewise.
9213         * exp_attr.ads: Likewise.
9214         * exp_cg.adb: Likewise.
9215         * exp_cg.ads: Likewise.
9216         * exp_ch10.ads: Likewise.
9217         * exp_ch11.adb: Likewise.
9218         * exp_ch11.ads: Likewise.
9219         * exp_ch12.adb: Likewise.
9220         * exp_ch12.ads: Likewise.
9221         * exp_ch13.adb: Likewise.
9222         * exp_ch13.ads: Likewise.
9223         * exp_ch2.adb: Likewise.
9224         * exp_ch2.ads: Likewise.
9225         * exp_ch3.adb: Likewise.
9226         * exp_ch3.ads: Likewise.
9227         * exp_ch4.adb: Likewise.
9228         * exp_ch4.ads: Likewise.
9229         * exp_ch5.adb: Likewise.
9230         * exp_ch5.ads: Likewise.
9231         * exp_ch6.adb: Likewise.
9232         * exp_ch6.ads: Likewise.
9233         * exp_ch7.adb: Likewise.
9234         * exp_ch7.ads: Likewise.
9235         * exp_ch8.adb: Likewise.
9236         * exp_ch8.ads: Likewise.
9237         * exp_ch9.adb: Likewise.
9238         * exp_ch9.ads: Likewise.
9239         * exp_code.adb: Likewise.
9240         * exp_code.ads: Likewise.
9241         * exp_dbug.adb: Likewise.
9242         * exp_dbug.ads: Likewise.
9243         * exp_disp.adb: Likewise.
9244         * exp_disp.ads: Likewise.
9245         * exp_dist.adb: Likewise.
9246         * exp_dist.ads: Likewise.
9247         * exp_fixd.adb: Likewise.
9248         * exp_fixd.ads: Likewise.
9249         * exp_imgv.adb: Likewise.
9250         * exp_imgv.ads: Likewise.
9251         * exp_intr.adb: Likewise.
9252         * exp_intr.ads: Likewise.
9253         * exp_pakd.adb: Likewise.
9254         * exp_pakd.ads: Likewise.
9255         * exp_prag.adb: Likewise.
9256         * exp_prag.ads: Likewise.
9257         * exp_put_image.adb: Likewise.
9258         * exp_put_image.ads: Likewise.
9259         * exp_sel.adb: Likewise.
9260         * exp_sel.ads: Likewise.
9261         * exp_smem.adb: Likewise.
9262         * exp_smem.ads: Likewise.
9263         * exp_spark.adb: Likewise.
9264         * exp_spark.ads: Likewise.
9265         * exp_strm.adb: Likewise.
9266         * exp_strm.ads: Likewise.
9267         * exp_tss.adb: Likewise.
9268         * exp_tss.ads: Likewise.
9269         * exp_unst.adb: Likewise.
9270         * exp_unst.ads: Likewise.
9271         * exp_util.adb: Likewise.
9272         * exp_util.ads: Likewise.
9273         * expander.adb: Likewise.
9274         * expander.ads: Likewise.
9275         * expect.c: Likewise.
9276         * fe.h: Likewise.
9277         * final.c: Likewise.
9278         * fmap.adb: Likewise.
9279         * fmap.ads: Likewise.
9280         * fname-sf.adb: Likewise.
9281         * fname-sf.ads: Likewise.
9282         * fname-uf.adb: Likewise.
9283         * fname-uf.ads: Likewise.
9284         * fname.adb: Likewise.
9285         * fname.ads: Likewise.
9286         * freeze.adb: Likewise.
9287         * freeze.ads: Likewise.
9288         * frontend.adb: Likewise.
9289         * frontend.ads: Likewise.
9290         * gcc-interface/ada-tree.h: Likewise.
9291         * gcc-interface/ada.h: Likewise.
9292         * gcc-interface/cuintp.c: Likewise.
9293         * gcc-interface/decl.c: Likewise.
9294         * gcc-interface/gadaint.h: Likewise.
9295         * gcc-interface/gigi.h: Likewise.
9296         * gcc-interface/lang-specs.h: Likewise.
9297         * gcc-interface/misc.c: Likewise.
9298         * gcc-interface/system.ads: Likewise.
9299         * gcc-interface/targtyps.c: Likewise.
9300         * gcc-interface/trans.c: Likewise.
9301         * gcc-interface/utils.c: Likewise.
9302         * gcc-interface/utils2.c: Likewise.
9303         * get_scos.adb: Likewise.
9304         * get_scos.ads: Likewise.
9305         * get_targ.adb: Likewise.
9306         * get_targ.ads: Likewise.
9307         * ghost.adb: Likewise.
9308         * ghost.ads: Likewise.
9309         * gnat1drv.adb: Likewise.
9310         * gnat1drv.ads: Likewise.
9311         * gnat_cuda.adb: Likewise.
9312         * gnat_cuda.ads: Likewise.
9313         * gnatbind.adb: Likewise.
9314         * gnatbind.ads: Likewise.
9315         * gnatchop.adb: Likewise.
9316         * gnatclean.adb: Likewise.
9317         * gnatcmd.adb: Likewise.
9318         * gnatcmd.ads: Likewise.
9319         * gnatdll.adb: Likewise.
9320         * gnatfind.adb: Likewise.
9321         * gnatkr.adb: Likewise.
9322         * gnatkr.ads: Likewise.
9323         * gnatlink.adb: Likewise.
9324         * gnatlink.ads: Likewise.
9325         * gnatls.adb: Likewise.
9326         * gnatls.ads: Likewise.
9327         * gnatmake.adb: Likewise.
9328         * gnatmake.ads: Likewise.
9329         * gnatname.adb: Likewise.
9330         * gnatname.ads: Likewise.
9331         * gnatprep.adb: Likewise.
9332         * gnatprep.ads: Likewise.
9333         * gnatvsn.adb: Likewise.
9334         * gnatvsn.ads: Likewise.
9335         * gnatxref.adb: Likewise.
9336         * gprep.adb: Likewise.
9337         * gprep.ads: Likewise.
9338         * gsocket.h: Likewise.
9339         * hostparm.ads: Likewise.
9340         * impunit.adb: Likewise.
9341         * impunit.ads: Likewise.
9342         * indepsw-aix.adb: Likewise.
9343         * indepsw-darwin.adb: Likewise.
9344         * indepsw-gnu.adb: Likewise.
9345         * indepsw.adb: Likewise.
9346         * indepsw.ads: Likewise.
9347         * init.c: Likewise.
9348         * initialize.c: Likewise.
9349         * inline.adb: Likewise.
9350         * inline.ads: Likewise.
9351         * itypes.adb: Likewise.
9352         * itypes.ads: Likewise.
9353         * krunch.adb: Likewise.
9354         * krunch.ads: Likewise.
9355         * layout.adb: Likewise.
9356         * layout.ads: Likewise.
9357         * lib-list.adb: Likewise.
9358         * lib-load.adb: Likewise.
9359         * lib-load.ads: Likewise.
9360         * lib-sort.adb: Likewise.
9361         * lib-util.adb: Likewise.
9362         * lib-util.ads: Likewise.
9363         * lib-writ.adb: Likewise.
9364         * lib-writ.ads: Likewise.
9365         * lib-xref-spark_specific.adb: Likewise.
9366         * lib-xref.adb: Likewise.
9367         * lib-xref.ads: Likewise.
9368         * lib.adb: Likewise.
9369         * lib.ads: Likewise.
9370         * libgnarl/a-astaco.adb: Likewise.
9371         * libgnarl/a-dispat.adb: Likewise.
9372         * libgnarl/a-dynpri.adb: Likewise.
9373         * libgnarl/a-etgrbu.ads: Likewise.
9374         * libgnarl/a-exetim__darwin.adb: Likewise.
9375         * libgnarl/a-exetim__default.ads: Likewise.
9376         * libgnarl/a-exetim__mingw.adb: Likewise.
9377         * libgnarl/a-exetim__mingw.ads: Likewise.
9378         * libgnarl/a-exetim__posix.adb: Likewise.
9379         * libgnarl/a-interr.adb: Likewise.
9380         * libgnarl/a-interr.ads: Likewise.
9381         * libgnarl/a-intnam.ads: Likewise.
9382         * libgnarl/a-intnam__aix.ads: Likewise.
9383         * libgnarl/a-intnam__darwin.ads: Likewise.
9384         * libgnarl/a-intnam__dragonfly.ads: Likewise.
9385         * libgnarl/a-intnam__dummy.ads: Likewise.
9386         * libgnarl/a-intnam__freebsd.ads: Likewise.
9387         * libgnarl/a-intnam__hpux.ads: Likewise.
9388         * libgnarl/a-intnam__linux.ads: Likewise.
9389         * libgnarl/a-intnam__lynxos.ads: Likewise.
9390         * libgnarl/a-intnam__mingw.ads: Likewise.
9391         * libgnarl/a-intnam__qnx.ads: Likewise.
9392         * libgnarl/a-intnam__rtems.ads: Likewise.
9393         * libgnarl/a-intnam__solaris.ads: Likewise.
9394         * libgnarl/a-intnam__vxworks.ads: Likewise.
9395         * libgnarl/a-reatim.adb: Likewise.
9396         * libgnarl/a-reatim.ads: Likewise.
9397         * libgnarl/a-retide.adb: Likewise.
9398         * libgnarl/a-retide.ads: Likewise.
9399         * libgnarl/a-rttiev.adb: Likewise.
9400         * libgnarl/a-rttiev.ads: Likewise.
9401         * libgnarl/a-synbar.adb: Likewise.
9402         * libgnarl/a-synbar.ads: Likewise.
9403         * libgnarl/a-synbar__posix.adb: Likewise.
9404         * libgnarl/a-synbar__posix.ads: Likewise.
9405         * libgnarl/a-sytaco.adb: Likewise.
9406         * libgnarl/a-sytaco.ads: Likewise.
9407         * libgnarl/a-tasatt.adb: Likewise.
9408         * libgnarl/a-tasatt.ads: Likewise.
9409         * libgnarl/a-taside.adb: Likewise.
9410         * libgnarl/a-taside.ads: Likewise.
9411         * libgnarl/a-tasini.adb: Likewise.
9412         * libgnarl/a-tasini.ads: Likewise.
9413         * libgnarl/a-taster.adb: Likewise.
9414         * libgnarl/g-boubuf.adb: Likewise.
9415         * libgnarl/g-boubuf.ads: Likewise.
9416         * libgnarl/g-boumai.ads: Likewise.
9417         * libgnarl/g-semaph.adb: Likewise.
9418         * libgnarl/g-semaph.ads: Likewise.
9419         * libgnarl/g-signal.adb: Likewise.
9420         * libgnarl/g-signal.ads: Likewise.
9421         * libgnarl/g-tastus.ads: Likewise.
9422         * libgnarl/g-thread.adb: Likewise.
9423         * libgnarl/g-thread.ads: Likewise.
9424         * libgnarl/i-vxinco.adb: Likewise.
9425         * libgnarl/i-vxinco.ads: Likewise.
9426         * libgnarl/s-inmaop.ads: Likewise.
9427         * libgnarl/s-inmaop__dummy.adb: Likewise.
9428         * libgnarl/s-inmaop__posix.adb: Likewise.
9429         * libgnarl/s-inmaop__vxworks.adb: Likewise.
9430         * libgnarl/s-interr.adb: Likewise.
9431         * libgnarl/s-interr.ads: Likewise.
9432         * libgnarl/s-interr__dummy.adb: Likewise.
9433         * libgnarl/s-interr__hwint.adb: Likewise.
9434         * libgnarl/s-interr__sigaction.adb: Likewise.
9435         * libgnarl/s-interr__vxworks.adb: Likewise.
9436         * libgnarl/s-intman.ads: Likewise.
9437         * libgnarl/s-intman__android.adb: Likewise.
9438         * libgnarl/s-intman__dummy.adb: Likewise.
9439         * libgnarl/s-intman__lynxos.adb: Likewise.
9440         * libgnarl/s-intman__mingw.adb: Likewise.
9441         * libgnarl/s-intman__posix.adb: Likewise.
9442         * libgnarl/s-intman__qnx.adb: Likewise.
9443         * libgnarl/s-intman__solaris.adb: Likewise.
9444         * libgnarl/s-intman__susv3.adb: Likewise.
9445         * libgnarl/s-intman__vxworks.adb: Likewise.
9446         * libgnarl/s-intman__vxworks.ads: Likewise.
9447         * libgnarl/s-linux.ads: Likewise.
9448         * libgnarl/s-linux__alpha.ads: Likewise.
9449         * libgnarl/s-linux__android.ads: Likewise.
9450         * libgnarl/s-linux__hppa.ads: Likewise.
9451         * libgnarl/s-linux__mips.ads: Likewise.
9452         * libgnarl/s-linux__riscv.ads: Likewise.
9453         * libgnarl/s-linux__sparc.ads: Likewise.
9454         * libgnarl/s-linux__x32.ads: Likewise.
9455         * libgnarl/s-mudido.adb: Likewise.
9456         * libgnarl/s-mudido__affinity.adb: Likewise.
9457         * libgnarl/s-osinte__aix.adb: Likewise.
9458         * libgnarl/s-osinte__aix.ads: Likewise.
9459         * libgnarl/s-osinte__android.adb: Likewise.
9460         * libgnarl/s-osinte__android.ads: Likewise.
9461         * libgnarl/s-osinte__darwin.adb: Likewise.
9462         * libgnarl/s-osinte__darwin.ads: Likewise.
9463         * libgnarl/s-osinte__dragonfly.adb: Likewise.
9464         * libgnarl/s-osinte__dragonfly.ads: Likewise.
9465         * libgnarl/s-osinte__dummy.ads: Likewise.
9466         * libgnarl/s-osinte__freebsd.adb: Likewise.
9467         * libgnarl/s-osinte__freebsd.ads: Likewise.
9468         * libgnarl/s-osinte__gnu.adb: Likewise.
9469         * libgnarl/s-osinte__gnu.ads: Likewise.
9470         * libgnarl/s-osinte__hpux-dce.adb: Likewise.
9471         * libgnarl/s-osinte__hpux-dce.ads: Likewise.
9472         * libgnarl/s-osinte__hpux.ads: Likewise.
9473         * libgnarl/s-osinte__kfreebsd-gnu.ads: Likewise.
9474         * libgnarl/s-osinte__linux.ads: Likewise.
9475         * libgnarl/s-osinte__lynxos178.adb: Likewise.
9476         * libgnarl/s-osinte__lynxos178e.ads: Likewise.
9477         * libgnarl/s-osinte__mingw.ads: Likewise.
9478         * libgnarl/s-osinte__posix.adb: Likewise.
9479         * libgnarl/s-osinte__qnx.adb: Likewise.
9480         * libgnarl/s-osinte__qnx.ads: Likewise.
9481         * libgnarl/s-osinte__rtems.adb: Likewise.
9482         * libgnarl/s-osinte__rtems.ads: Likewise.
9483         * libgnarl/s-osinte__solaris.adb: Likewise.
9484         * libgnarl/s-osinte__solaris.ads: Likewise.
9485         * libgnarl/s-osinte__vxworks.adb: Likewise.
9486         * libgnarl/s-osinte__vxworks.ads: Likewise.
9487         * libgnarl/s-osinte__x32.adb: Likewise.
9488         * libgnarl/s-proinf.adb: Likewise.
9489         * libgnarl/s-proinf.ads: Likewise.
9490         * libgnarl/s-qnx.ads: Likewise.
9491         * libgnarl/s-solita.adb: Likewise.
9492         * libgnarl/s-solita.ads: Likewise.
9493         * libgnarl/s-stusta.adb: Likewise.
9494         * libgnarl/s-stusta.ads: Likewise.
9495         * libgnarl/s-taasde.adb: Likewise.
9496         * libgnarl/s-taasde.ads: Likewise.
9497         * libgnarl/s-tadeca.adb: Likewise.
9498         * libgnarl/s-tadeca.ads: Likewise.
9499         * libgnarl/s-tadert.adb: Likewise.
9500         * libgnarl/s-tadert.ads: Likewise.
9501         * libgnarl/s-taenca.adb: Likewise.
9502         * libgnarl/s-taenca.ads: Likewise.
9503         * libgnarl/s-taprob.adb: Likewise.
9504         * libgnarl/s-taprob.ads: Likewise.
9505         * libgnarl/s-taprop.ads: Likewise.
9506         * libgnarl/s-taprop__dummy.adb: Likewise.
9507         * libgnarl/s-taprop__hpux-dce.adb: Likewise.
9508         * libgnarl/s-taprop__linux.adb: Likewise.
9509         * libgnarl/s-taprop__mingw.adb: Likewise.
9510         * libgnarl/s-taprop__posix.adb: Likewise.
9511         * libgnarl/s-taprop__qnx.adb: Likewise.
9512         * libgnarl/s-taprop__solaris.adb: Likewise.
9513         * libgnarl/s-taprop__vxworks.adb: Likewise.
9514         * libgnarl/s-tarest.adb: Likewise.
9515         * libgnarl/s-tarest.ads: Likewise.
9516         * libgnarl/s-tasdeb.adb: Likewise.
9517         * libgnarl/s-tasdeb.ads: Likewise.
9518         * libgnarl/s-tasinf.adb: Likewise.
9519         * libgnarl/s-tasinf.ads: Likewise.
9520         * libgnarl/s-tasinf__linux.adb: Likewise.
9521         * libgnarl/s-tasinf__linux.ads: Likewise.
9522         * libgnarl/s-tasinf__mingw.adb: Likewise.
9523         * libgnarl/s-tasinf__mingw.ads: Likewise.
9524         * libgnarl/s-tasinf__solaris.adb: Likewise.
9525         * libgnarl/s-tasinf__solaris.ads: Likewise.
9526         * libgnarl/s-tasinf__vxworks.ads: Likewise.
9527         * libgnarl/s-tasini.adb: Likewise.
9528         * libgnarl/s-tasini.ads: Likewise.
9529         * libgnarl/s-taskin.adb: Likewise.
9530         * libgnarl/s-taskin.ads: Likewise.
9531         * libgnarl/s-taspri__dummy.ads: Likewise.
9532         * libgnarl/s-taspri__hpux-dce.ads: Likewise.
9533         * libgnarl/s-taspri__lynxos.ads: Likewise.
9534         * libgnarl/s-taspri__mingw.ads: Likewise.
9535         * libgnarl/s-taspri__posix-noaltstack.ads: Likewise.
9536         * libgnarl/s-taspri__posix.ads: Likewise.
9537         * libgnarl/s-taspri__solaris.ads: Likewise.
9538         * libgnarl/s-taspri__vxworks.ads: Likewise.
9539         * libgnarl/s-tasque.adb: Likewise.
9540         * libgnarl/s-tasque.ads: Likewise.
9541         * libgnarl/s-tasren.adb: Likewise.
9542         * libgnarl/s-tasren.ads: Likewise.
9543         * libgnarl/s-tasres.ads: Likewise.
9544         * libgnarl/s-tassta.adb: Likewise.
9545         * libgnarl/s-tassta.ads: Likewise.
9546         * libgnarl/s-tasuti.adb: Likewise.
9547         * libgnarl/s-tasuti.ads: Likewise.
9548         * libgnarl/s-tataat.adb: Likewise.
9549         * libgnarl/s-tataat.ads: Likewise.
9550         * libgnarl/s-tpinop.adb: Likewise.
9551         * libgnarl/s-tpinop.ads: Likewise.
9552         * libgnarl/s-tpoaal.adb: Likewise.
9553         * libgnarl/s-tpoben.adb: Likewise.
9554         * libgnarl/s-tpoben.ads: Likewise.
9555         * libgnarl/s-tpobmu.adb: Likewise.
9556         * libgnarl/s-tpobmu.ads: Likewise.
9557         * libgnarl/s-tpobop.adb: Likewise.
9558         * libgnarl/s-tpobop.ads: Likewise.
9559         * libgnarl/s-tpopmo.adb: Likewise.
9560         * libgnarl/s-tpopsp__posix-foreign.adb: Likewise.
9561         * libgnarl/s-tpopsp__posix.adb: Likewise.
9562         * libgnarl/s-tpopsp__solaris.adb: Likewise.
9563         * libgnarl/s-tpopsp__tls.adb: Likewise.
9564         * libgnarl/s-tpopsp__vxworks-rtp.adb: Likewise.
9565         * libgnarl/s-tpopsp__vxworks-tls.adb: Likewise.
9566         * libgnarl/s-tpopsp__vxworks.adb: Likewise.
9567         * libgnarl/s-tporft.adb: Likewise.
9568         * libgnarl/s-tposen.adb: Likewise.
9569         * libgnarl/s-tposen.ads: Likewise.
9570         * libgnarl/s-vxwext.adb: Likewise.
9571         * libgnarl/s-vxwext.ads: Likewise.
9572         * libgnarl/s-vxwext__kernel-smp.adb: Likewise.
9573         * libgnarl/s-vxwext__kernel.adb: Likewise.
9574         * libgnarl/s-vxwext__kernel.ads: Likewise.
9575         * libgnarl/s-vxwext__noints.adb: Likewise.
9576         * libgnarl/s-vxwext__rtp-smp.adb: Likewise.
9577         * libgnarl/s-vxwext__rtp.adb: Likewise.
9578         * libgnarl/s-vxwext__rtp.ads: Likewise.
9579         * libgnarl/s-vxwext__vthreads.ads: Likewise.
9580         * libgnarl/s-vxwork__aarch64.ads: Likewise.
9581         * libgnarl/s-vxwork__arm.ads: Likewise.
9582         * libgnarl/s-vxwork__ppc.ads: Likewise.
9583         * libgnarl/s-vxwork__x86.ads: Likewise.
9584         * libgnarl/thread.c: Likewise.
9585         * libgnat/a-assert.adb: Likewise.
9586         * libgnat/a-assert.ads: Likewise.
9587         * libgnat/a-btgbso.adb: Likewise.
9588         * libgnat/a-btgbso.ads: Likewise.
9589         * libgnat/a-calari.adb: Likewise.
9590         * libgnat/a-calari.ads: Likewise.
9591         * libgnat/a-calcon.adb: Likewise.
9592         * libgnat/a-calcon.ads: Likewise.
9593         * libgnat/a-caldel.adb: Likewise.
9594         * libgnat/a-caldel.ads: Likewise.
9595         * libgnat/a-calend.adb: Likewise.
9596         * libgnat/a-calend.ads: Likewise.
9597         * libgnat/a-calfor.adb: Likewise.
9598         * libgnat/a-calfor.ads: Likewise.
9599         * libgnat/a-catizo.adb: Likewise.
9600         * libgnat/a-cbdlli.adb: Likewise.
9601         * libgnat/a-cbdlli.ads: Likewise.
9602         * libgnat/a-cbhama.adb: Likewise.
9603         * libgnat/a-cbhama.ads: Likewise.
9604         * libgnat/a-cbhase.adb: Likewise.
9605         * libgnat/a-cbhase.ads: Likewise.
9606         * libgnat/a-cbmutr.adb: Likewise.
9607         * libgnat/a-cbmutr.ads: Likewise.
9608         * libgnat/a-cborma.adb: Likewise.
9609         * libgnat/a-cborma.ads: Likewise.
9610         * libgnat/a-cborse.adb: Likewise.
9611         * libgnat/a-cborse.ads: Likewise.
9612         * libgnat/a-cbprqu.adb: Likewise.
9613         * libgnat/a-cbprqu.ads: Likewise.
9614         * libgnat/a-cbsyqu.adb: Likewise.
9615         * libgnat/a-cbsyqu.ads: Likewise.
9616         * libgnat/a-cdlili.adb: Likewise.
9617         * libgnat/a-cdlili.ads: Likewise.
9618         * libgnat/a-cfdlli.adb: Likewise.
9619         * libgnat/a-cfdlli.ads: Likewise.
9620         * libgnat/a-cfhama.adb: Likewise.
9621         * libgnat/a-cfhama.ads: Likewise.
9622         * libgnat/a-cfhase.adb: Likewise.
9623         * libgnat/a-cfhase.ads: Likewise.
9624         * libgnat/a-cfinve.adb: Likewise.
9625         * libgnat/a-cfinve.ads: Likewise.
9626         * libgnat/a-cforma.adb: Likewise.
9627         * libgnat/a-cforma.ads: Likewise.
9628         * libgnat/a-cforse.adb: Likewise.
9629         * libgnat/a-cforse.ads: Likewise.
9630         * libgnat/a-cgaaso.adb: Likewise.
9631         * libgnat/a-cgaaso.ads: Likewise.
9632         * libgnat/a-cgarso.adb: Likewise.
9633         * libgnat/a-cgcaso.adb: Likewise.
9634         * libgnat/a-chacon.adb: Likewise.
9635         * libgnat/a-chacon.ads: Likewise.
9636         * libgnat/a-chahan.adb: Likewise.
9637         * libgnat/a-chahan.ads: Likewise.
9638         * libgnat/a-chlat9.ads: Likewise.
9639         * libgnat/a-chtgbk.adb: Likewise.
9640         * libgnat/a-chtgbk.ads: Likewise.
9641         * libgnat/a-chtgbo.adb: Likewise.
9642         * libgnat/a-chtgbo.ads: Likewise.
9643         * libgnat/a-chtgke.adb: Likewise.
9644         * libgnat/a-chtgke.ads: Likewise.
9645         * libgnat/a-chtgop.adb: Likewise.
9646         * libgnat/a-chtgop.ads: Likewise.
9647         * libgnat/a-chzla1.ads: Likewise.
9648         * libgnat/a-chzla9.ads: Likewise.
9649         * libgnat/a-cidlli.adb: Likewise.
9650         * libgnat/a-cidlli.ads: Likewise.
9651         * libgnat/a-cihama.adb: Likewise.
9652         * libgnat/a-cihama.ads: Likewise.
9653         * libgnat/a-cihase.adb: Likewise.
9654         * libgnat/a-cihase.ads: Likewise.
9655         * libgnat/a-cimutr.adb: Likewise.
9656         * libgnat/a-cimutr.ads: Likewise.
9657         * libgnat/a-ciorma.adb: Likewise.
9658         * libgnat/a-ciorma.ads: Likewise.
9659         * libgnat/a-ciormu.adb: Likewise.
9660         * libgnat/a-ciormu.ads: Likewise.
9661         * libgnat/a-ciorse.adb: Likewise.
9662         * libgnat/a-ciorse.ads: Likewise.
9663         * libgnat/a-clrefi.adb: Likewise.
9664         * libgnat/a-clrefi.ads: Likewise.
9665         * libgnat/a-coboho.adb: Likewise.
9666         * libgnat/a-coboho.ads: Likewise.
9667         * libgnat/a-cobove.adb: Likewise.
9668         * libgnat/a-cobove.ads: Likewise.
9669         * libgnat/a-cofove.adb: Likewise.
9670         * libgnat/a-cofove.ads: Likewise.
9671         * libgnat/a-cofuba.adb: Likewise.
9672         * libgnat/a-cofuba.ads: Likewise.
9673         * libgnat/a-cofuma.adb: Likewise.
9674         * libgnat/a-cofuma.ads: Likewise.
9675         * libgnat/a-cofuse.adb: Likewise.
9676         * libgnat/a-cofuse.ads: Likewise.
9677         * libgnat/a-cofuve.adb: Likewise.
9678         * libgnat/a-cofuve.ads: Likewise.
9679         * libgnat/a-cogeso.adb: Likewise.
9680         * libgnat/a-cogeso.ads: Likewise.
9681         * libgnat/a-cohama.adb: Likewise.
9682         * libgnat/a-cohama.ads: Likewise.
9683         * libgnat/a-cohase.adb: Likewise.
9684         * libgnat/a-cohase.ads: Likewise.
9685         * libgnat/a-cohata.ads: Likewise.
9686         * libgnat/a-coinho.adb: Likewise.
9687         * libgnat/a-coinho.ads: Likewise.
9688         * libgnat/a-coinho__shared.adb: Likewise.
9689         * libgnat/a-coinho__shared.ads: Likewise.
9690         * libgnat/a-coinve.adb: Likewise.
9691         * libgnat/a-coinve.ads: Likewise.
9692         * libgnat/a-colien.adb: Likewise.
9693         * libgnat/a-colien.ads: Likewise.
9694         * libgnat/a-colire.adb: Likewise.
9695         * libgnat/a-colire.ads: Likewise.
9696         * libgnat/a-comlin.adb: Likewise.
9697         * libgnat/a-comlin.ads: Likewise.
9698         * libgnat/a-comutr.adb: Likewise.
9699         * libgnat/a-comutr.ads: Likewise.
9700         * libgnat/a-conhel.adb: Likewise.
9701         * libgnat/a-conhel.ads: Likewise.
9702         * libgnat/a-convec.adb: Likewise.
9703         * libgnat/a-convec.ads: Likewise.
9704         * libgnat/a-coorma.adb: Likewise.
9705         * libgnat/a-coorma.ads: Likewise.
9706         * libgnat/a-coormu.adb: Likewise.
9707         * libgnat/a-coormu.ads: Likewise.
9708         * libgnat/a-coorse.adb: Likewise.
9709         * libgnat/a-coorse.ads: Likewise.
9710         * libgnat/a-coprnu.adb: Likewise.
9711         * libgnat/a-coprnu.ads: Likewise.
9712         * libgnat/a-crbltr.ads: Likewise.
9713         * libgnat/a-crbtgk.adb: Likewise.
9714         * libgnat/a-crbtgk.ads: Likewise.
9715         * libgnat/a-crbtgo.adb: Likewise.
9716         * libgnat/a-crbtgo.ads: Likewise.
9717         * libgnat/a-crdlli.adb: Likewise.
9718         * libgnat/a-crdlli.ads: Likewise.
9719         * libgnat/a-csquin.ads: Likewise.
9720         * libgnat/a-cuprqu.adb: Likewise.
9721         * libgnat/a-cuprqu.ads: Likewise.
9722         * libgnat/a-cusyqu.adb: Likewise.
9723         * libgnat/a-cusyqu.ads: Likewise.
9724         * libgnat/a-cwila1.ads: Likewise.
9725         * libgnat/a-cwila9.ads: Likewise.
9726         * libgnat/a-decima.adb: Likewise.
9727         * libgnat/a-decima.ads: Likewise.
9728         * libgnat/a-decima__128.ads: Likewise.
9729         * libgnat/a-dhfina.adb: Likewise.
9730         * libgnat/a-dhfina.ads: Likewise.
9731         * libgnat/a-diocst.adb: Likewise.
9732         * libgnat/a-diocst.ads: Likewise.
9733         * libgnat/a-direct.adb: Likewise.
9734         * libgnat/a-direct.ads: Likewise.
9735         * libgnat/a-direio.adb: Likewise.
9736         * libgnat/a-direio.ads: Likewise.
9737         * libgnat/a-dirval.adb: Likewise.
9738         * libgnat/a-dirval.ads: Likewise.
9739         * libgnat/a-dirval__mingw.adb: Likewise.
9740         * libgnat/a-einuoc.adb: Likewise.
9741         * libgnat/a-einuoc.ads: Likewise.
9742         * libgnat/a-elchha.adb: Likewise.
9743         * libgnat/a-elchha.ads: Likewise.
9744         * libgnat/a-elchha__vxworks-ppc-full.adb: Likewise.
9745         * libgnat/a-envvar.adb: Likewise.
9746         * libgnat/a-excach.adb: Likewise.
9747         * libgnat/a-except.adb: Likewise.
9748         * libgnat/a-except.ads: Likewise.
9749         * libgnat/a-exctra.adb: Likewise.
9750         * libgnat/a-exctra.ads: Likewise.
9751         * libgnat/a-exexda.adb: Likewise.
9752         * libgnat/a-exexpr.adb: Likewise.
9753         * libgnat/a-exextr.adb: Likewise.
9754         * libgnat/a-exstat.adb: Likewise.
9755         * libgnat/a-finali.adb: Likewise.
9756         * libgnat/a-finali.ads: Likewise.
9757         * libgnat/a-locale.adb: Likewise.
9758         * libgnat/a-locale.ads: Likewise.
9759         * libgnat/a-nagefl.ads: Likewise.
9760         * libgnat/a-naliop.ads: Likewise.
9761         * libgnat/a-naliop__nolibm.ads: Likewise.
9762         * libgnat/a-nallfl.ads: Likewise.
9763         * libgnat/a-nallfl__wraplf.ads: Likewise.
9764         * libgnat/a-nalofl.ads: Likewise.
9765         * libgnat/a-nashfl.ads: Likewise.
9766         * libgnat/a-nashfl__wraplf.ads: Likewise.
9767         * libgnat/a-nbnbin.adb: Likewise.
9768         * libgnat/a-nbnbin__gmp.adb: Likewise.
9769         * libgnat/a-nbnbre.adb: Likewise.
9770         * libgnat/a-ngcefu.adb: Likewise.
9771         * libgnat/a-ngcoar.adb: Likewise.
9772         * libgnat/a-ngcoty.adb: Likewise.
9773         * libgnat/a-ngcoty.ads: Likewise.
9774         * libgnat/a-ngelfu.adb: Likewise.
9775         * libgnat/a-ngelfu.ads: Likewise.
9776         * libgnat/a-ngrear.adb: Likewise.
9777         * libgnat/a-ngrear.ads: Likewise.
9778         * libgnat/a-nuauco.ads: Likewise.
9779         * libgnat/a-nuauco__x86.ads: Likewise.
9780         * libgnat/a-nuaufl.ads: Likewise.
9781         * libgnat/a-nuaufl__wraplf.ads: Likewise.
9782         * libgnat/a-nudira.adb: Likewise.
9783         * libgnat/a-nudira.ads: Likewise.
9784         * libgnat/a-nuflra.adb: Likewise.
9785         * libgnat/a-nuflra.ads: Likewise.
9786         * libgnat/a-numaux.ads: Likewise.
9787         * libgnat/a-rbtgbk.adb: Likewise.
9788         * libgnat/a-rbtgbk.ads: Likewise.
9789         * libgnat/a-rbtgbo.adb: Likewise.
9790         * libgnat/a-rbtgbo.ads: Likewise.
9791         * libgnat/a-rbtgso.adb: Likewise.
9792         * libgnat/a-rbtgso.ads: Likewise.
9793         * libgnat/a-sbecin.adb: Likewise.
9794         * libgnat/a-sbecin.ads: Likewise.
9795         * libgnat/a-sbhcin.adb: Likewise.
9796         * libgnat/a-sbhcin.ads: Likewise.
9797         * libgnat/a-sblcin.adb: Likewise.
9798         * libgnat/a-sblcin.ads: Likewise.
9799         * libgnat/a-secain.adb: Likewise.
9800         * libgnat/a-secain.ads: Likewise.
9801         * libgnat/a-sequio.adb: Likewise.
9802         * libgnat/a-sequio.ads: Likewise.
9803         * libgnat/a-sfecin.ads: Likewise.
9804         * libgnat/a-sfhcin.ads: Likewise.
9805         * libgnat/a-sflcin.ads: Likewise.
9806         * libgnat/a-shcain.adb: Likewise.
9807         * libgnat/a-shcain.ads: Likewise.
9808         * libgnat/a-siocst.adb: Likewise.
9809         * libgnat/a-siocst.ads: Likewise.
9810         * libgnat/a-slcain.adb: Likewise.
9811         * libgnat/a-slcain.ads: Likewise.
9812         * libgnat/a-ssicst.adb: Likewise.
9813         * libgnat/a-ssicst.ads: Likewise.
9814         * libgnat/a-stboha.adb: Likewise.
9815         * libgnat/a-stmaco.ads: Likewise.
9816         * libgnat/a-stobbu.adb: Likewise.
9817         * libgnat/a-stobbu.ads: Likewise.
9818         * libgnat/a-stobfi.adb: Likewise.
9819         * libgnat/a-stobfi.ads: Likewise.
9820         * libgnat/a-storio.adb: Likewise.
9821         * libgnat/a-stoubu.adb: Likewise.
9822         * libgnat/a-stoubu.ads: Likewise.
9823         * libgnat/a-stoufi.adb: Likewise.
9824         * libgnat/a-stoufi.ads: Likewise.
9825         * libgnat/a-stoufo.adb: Likewise.
9826         * libgnat/a-stoufo.ads: Likewise.
9827         * libgnat/a-stouut.adb: Likewise.
9828         * libgnat/a-stouut.ads: Likewise.
9829         * libgnat/a-strbou.adb: Likewise.
9830         * libgnat/a-strbou.ads: Likewise.
9831         * libgnat/a-stream.adb: Likewise.
9832         * libgnat/a-stream.ads: Likewise.
9833         * libgnat/a-strfix.adb: Likewise.
9834         * libgnat/a-strhas.adb: Likewise.
9835         * libgnat/a-strmap.adb: Likewise.
9836         * libgnat/a-strmap.ads: Likewise.
9837         * libgnat/a-strsea.adb: Likewise.
9838         * libgnat/a-strsea.ads: Likewise.
9839         * libgnat/a-strsto.ads: Likewise.
9840         * libgnat/a-strsup.adb: Likewise.
9841         * libgnat/a-strsup.ads: Likewise.
9842         * libgnat/a-strunb.adb: Likewise.
9843         * libgnat/a-strunb.ads: Likewise.
9844         * libgnat/a-strunb__shared.adb: Likewise.
9845         * libgnat/a-strunb__shared.ads: Likewise.
9846         * libgnat/a-ststbo.adb: Likewise.
9847         * libgnat/a-ststbo.ads: Likewise.
9848         * libgnat/a-ststio.adb: Likewise.
9849         * libgnat/a-ststio.ads: Likewise.
9850         * libgnat/a-ststun.adb: Likewise.
9851         * libgnat/a-ststun.ads: Likewise.
9852         * libgnat/a-stteou.ads: Likewise.
9853         * libgnat/a-stunau.adb: Likewise.
9854         * libgnat/a-stunau.ads: Likewise.
9855         * libgnat/a-stunau__shared.adb: Likewise.
9856         * libgnat/a-stunha.adb: Likewise.
9857         * libgnat/a-stuten.adb: Likewise.
9858         * libgnat/a-stwibo.adb: Likewise.
9859         * libgnat/a-stwibo.ads: Likewise.
9860         * libgnat/a-stwifi.adb: Likewise.
9861         * libgnat/a-stwiha.adb: Likewise.
9862         * libgnat/a-stwima.adb: Likewise.
9863         * libgnat/a-stwima.ads: Likewise.
9864         * libgnat/a-stwise.adb: Likewise.
9865         * libgnat/a-stwise.ads: Likewise.
9866         * libgnat/a-stwisu.adb: Likewise.
9867         * libgnat/a-stwisu.ads: Likewise.
9868         * libgnat/a-stwiun.adb: Likewise.
9869         * libgnat/a-stwiun.ads: Likewise.
9870         * libgnat/a-stwiun__shared.adb: Likewise.
9871         * libgnat/a-stwiun__shared.ads: Likewise.
9872         * libgnat/a-stzbou.adb: Likewise.
9873         * libgnat/a-stzbou.ads: Likewise.
9874         * libgnat/a-stzfix.adb: Likewise.
9875         * libgnat/a-stzhas.adb: Likewise.
9876         * libgnat/a-stzmap.adb: Likewise.
9877         * libgnat/a-stzmap.ads: Likewise.
9878         * libgnat/a-stzsea.adb: Likewise.
9879         * libgnat/a-stzsea.ads: Likewise.
9880         * libgnat/a-stzsup.adb: Likewise.
9881         * libgnat/a-stzsup.ads: Likewise.
9882         * libgnat/a-stzunb.adb: Likewise.
9883         * libgnat/a-stzunb.ads: Likewise.
9884         * libgnat/a-stzunb__shared.adb: Likewise.
9885         * libgnat/a-stzunb__shared.ads: Likewise.
9886         * libgnat/a-suecin.adb: Likewise.
9887         * libgnat/a-suecin.ads: Likewise.
9888         * libgnat/a-suenco.adb: Likewise.
9889         * libgnat/a-suenst.adb: Likewise.
9890         * libgnat/a-suewst.adb: Likewise.
9891         * libgnat/a-suezst.adb: Likewise.
9892         * libgnat/a-suhcin.adb: Likewise.
9893         * libgnat/a-suhcin.ads: Likewise.
9894         * libgnat/a-sulcin.adb: Likewise.
9895         * libgnat/a-sulcin.ads: Likewise.
9896         * libgnat/a-suteio.adb: Likewise.
9897         * libgnat/a-suteio.ads: Likewise.
9898         * libgnat/a-suteio__shared.adb: Likewise.
9899         * libgnat/a-swbwha.adb: Likewise.
9900         * libgnat/a-swmwco.ads: Likewise.
9901         * libgnat/a-swunau.adb: Likewise.
9902         * libgnat/a-swunau.ads: Likewise.
9903         * libgnat/a-swunau__shared.adb: Likewise.
9904         * libgnat/a-swuwha.adb: Likewise.
9905         * libgnat/a-swuwti.adb: Likewise.
9906         * libgnat/a-swuwti.ads: Likewise.
9907         * libgnat/a-swuwti__shared.adb: Likewise.
9908         * libgnat/a-szbzha.adb: Likewise.
9909         * libgnat/a-szmzco.ads: Likewise.
9910         * libgnat/a-szunau.adb: Likewise.
9911         * libgnat/a-szunau.ads: Likewise.
9912         * libgnat/a-szunau__shared.adb: Likewise.
9913         * libgnat/a-szuzha.adb: Likewise.
9914         * libgnat/a-szuzti.adb: Likewise.
9915         * libgnat/a-szuzti.ads: Likewise.
9916         * libgnat/a-szuzti__shared.adb: Likewise.
9917         * libgnat/a-tags.adb: Likewise.
9918         * libgnat/a-tags.ads: Likewise.
9919         * libgnat/a-teioed.adb: Likewise.
9920         * libgnat/a-teioed.ads: Likewise.
9921         * libgnat/a-textio.adb: Likewise.
9922         * libgnat/a-textio.ads: Likewise.
9923         * libgnat/a-tiboio.adb: Likewise.
9924         * libgnat/a-ticoau.adb: Likewise.
9925         * libgnat/a-ticoau.ads: Likewise.
9926         * libgnat/a-ticoio.adb: Likewise.
9927         * libgnat/a-ticoio.ads: Likewise.
9928         * libgnat/a-tideau.adb: Likewise.
9929         * libgnat/a-tideau.ads: Likewise.
9930         * libgnat/a-tideio.adb: Likewise.
9931         * libgnat/a-tideio.ads: Likewise.
9932         * libgnat/a-tideio__128.adb: Likewise.
9933         * libgnat/a-tienau.adb: Likewise.
9934         * libgnat/a-tienau.ads: Likewise.
9935         * libgnat/a-tienio.adb: Likewise.
9936         * libgnat/a-tifiau.adb: Likewise.
9937         * libgnat/a-tifiau.ads: Likewise.
9938         * libgnat/a-tifiio.adb: Likewise.
9939         * libgnat/a-tifiio__128.adb: Likewise.
9940         * libgnat/a-tiflau.adb: Likewise.
9941         * libgnat/a-tiflau.ads: Likewise.
9942         * libgnat/a-tiflio.adb: Likewise.
9943         * libgnat/a-tiflio.ads: Likewise.
9944         * libgnat/a-tigeau.adb: Likewise.
9945         * libgnat/a-tigeau.ads: Likewise.
9946         * libgnat/a-tigeli.adb: Likewise.
9947         * libgnat/a-tiinau.adb: Likewise.
9948         * libgnat/a-tiinau.ads: Likewise.
9949         * libgnat/a-tiinio.adb: Likewise.
9950         * libgnat/a-tiinio.ads: Likewise.
9951         * libgnat/a-tiinio__128.adb: Likewise.
9952         * libgnat/a-timoio.adb: Likewise.
9953         * libgnat/a-timoio.ads: Likewise.
9954         * libgnat/a-timoio__128.adb: Likewise.
9955         * libgnat/a-tiocst.adb: Likewise.
9956         * libgnat/a-tiocst.ads: Likewise.
9957         * libgnat/a-tirsfi.adb: Likewise.
9958         * libgnat/a-tirsfi.ads: Likewise.
9959         * libgnat/a-titest.adb: Likewise.
9960         * libgnat/a-undesu.adb: Likewise.
9961         * libgnat/a-wichha.adb: Likewise.
9962         * libgnat/a-wichun.adb: Likewise.
9963         * libgnat/a-wichun.ads: Likewise.
9964         * libgnat/a-witeio.adb: Likewise.
9965         * libgnat/a-witeio.ads: Likewise.
9966         * libgnat/a-wrstfi.adb: Likewise.
9967         * libgnat/a-wrstfi.ads: Likewise.
9968         * libgnat/a-wtcoau.adb: Likewise.
9969         * libgnat/a-wtcoau.ads: Likewise.
9970         * libgnat/a-wtcoio.adb: Likewise.
9971         * libgnat/a-wtcstr.adb: Likewise.
9972         * libgnat/a-wtcstr.ads: Likewise.
9973         * libgnat/a-wtdeau.adb: Likewise.
9974         * libgnat/a-wtdeau.ads: Likewise.
9975         * libgnat/a-wtdeio.adb: Likewise.
9976         * libgnat/a-wtdeio__128.adb: Likewise.
9977         * libgnat/a-wtedit.adb: Likewise.
9978         * libgnat/a-wtedit.ads: Likewise.
9979         * libgnat/a-wtenau.adb: Likewise.
9980         * libgnat/a-wtenau.ads: Likewise.
9981         * libgnat/a-wtenio.adb: Likewise.
9982         * libgnat/a-wtfiau.adb: Likewise.
9983         * libgnat/a-wtfiau.ads: Likewise.
9984         * libgnat/a-wtfiio.adb: Likewise.
9985         * libgnat/a-wtfiio__128.adb: Likewise.
9986         * libgnat/a-wtflau.adb: Likewise.
9987         * libgnat/a-wtflau.ads: Likewise.
9988         * libgnat/a-wtflio.adb: Likewise.
9989         * libgnat/a-wtgeau.adb: Likewise.
9990         * libgnat/a-wtgeau.ads: Likewise.
9991         * libgnat/a-wtinau.adb: Likewise.
9992         * libgnat/a-wtinau.ads: Likewise.
9993         * libgnat/a-wtinio.adb: Likewise.
9994         * libgnat/a-wtinio__128.adb: Likewise.
9995         * libgnat/a-wtmoio.adb: Likewise.
9996         * libgnat/a-wtmoio.ads: Likewise.
9997         * libgnat/a-wtmoio__128.adb: Likewise.
9998         * libgnat/a-wttest.adb: Likewise.
9999         * libgnat/a-wwboio.adb: Likewise.
10000         * libgnat/a-zchhan.adb: Likewise.
10001         * libgnat/a-zchuni.adb: Likewise.
10002         * libgnat/a-zchuni.ads: Likewise.
10003         * libgnat/a-zrstfi.adb: Likewise.
10004         * libgnat/a-zrstfi.ads: Likewise.
10005         * libgnat/a-ztcoau.adb: Likewise.
10006         * libgnat/a-ztcoio.adb: Likewise.
10007         * libgnat/a-ztcstr.adb: Likewise.
10008         * libgnat/a-ztcstr.ads: Likewise.
10009         * libgnat/a-ztdeau.adb: Likewise.
10010         * libgnat/a-ztdeau.ads: Likewise.
10011         * libgnat/a-ztdeio.adb: Likewise.
10012         * libgnat/a-ztdeio__128.adb: Likewise.
10013         * libgnat/a-ztedit.adb: Likewise.
10014         * libgnat/a-ztedit.ads: Likewise.
10015         * libgnat/a-ztenau.adb: Likewise.
10016         * libgnat/a-ztenau.ads: Likewise.
10017         * libgnat/a-ztenio.adb: Likewise.
10018         * libgnat/a-ztexio.adb: Likewise.
10019         * libgnat/a-ztexio.ads: Likewise.
10020         * libgnat/a-ztfiau.adb: Likewise.
10021         * libgnat/a-ztfiau.ads: Likewise.
10022         * libgnat/a-ztfiio.adb: Likewise.
10023         * libgnat/a-ztfiio__128.adb: Likewise.
10024         * libgnat/a-ztflau.adb: Likewise.
10025         * libgnat/a-ztflau.ads: Likewise.
10026         * libgnat/a-ztflio.adb: Likewise.
10027         * libgnat/a-ztgeau.adb: Likewise.
10028         * libgnat/a-ztgeau.ads: Likewise.
10029         * libgnat/a-ztinau.adb: Likewise.
10030         * libgnat/a-ztinau.ads: Likewise.
10031         * libgnat/a-ztinio.adb: Likewise.
10032         * libgnat/a-ztinio__128.adb: Likewise.
10033         * libgnat/a-ztmoio.adb: Likewise.
10034         * libgnat/a-ztmoio__128.adb: Likewise.
10035         * libgnat/a-zttest.adb: Likewise.
10036         * libgnat/a-zzboio.adb: Likewise.
10037         * libgnat/g-allein.ads: Likewise.
10038         * libgnat/g-alleve.adb: Likewise.
10039         * libgnat/g-alleve.ads: Likewise.
10040         * libgnat/g-alleve__hard.adb: Likewise.
10041         * libgnat/g-alleve__hard.ads: Likewise.
10042         * libgnat/g-altcon.adb: Likewise.
10043         * libgnat/g-altcon.ads: Likewise.
10044         * libgnat/g-altive.ads: Likewise.
10045         * libgnat/g-alveop.adb: Likewise.
10046         * libgnat/g-alveop.ads: Likewise.
10047         * libgnat/g-alvety.ads: Likewise.
10048         * libgnat/g-alvevi.ads: Likewise.
10049         * libgnat/g-arrspl.adb: Likewise.
10050         * libgnat/g-arrspl.ads: Likewise.
10051         * libgnat/g-awk.adb: Likewise.
10052         * libgnat/g-awk.ads: Likewise.
10053         * libgnat/g-binenv.adb: Likewise.
10054         * libgnat/g-binenv.ads: Likewise.
10055         * libgnat/g-brapre.ads: Likewise.
10056         * libgnat/g-bubsor.adb: Likewise.
10057         * libgnat/g-bubsor.ads: Likewise.
10058         * libgnat/g-busora.adb: Likewise.
10059         * libgnat/g-busora.ads: Likewise.
10060         * libgnat/g-busorg.adb: Likewise.
10061         * libgnat/g-busorg.ads: Likewise.
10062         * libgnat/g-byorma.adb: Likewise.
10063         * libgnat/g-byorma.ads: Likewise.
10064         * libgnat/g-bytswa.adb: Likewise.
10065         * libgnat/g-bytswa.ads: Likewise.
10066         * libgnat/g-calend.adb: Likewise.
10067         * libgnat/g-calend.ads: Likewise.
10068         * libgnat/g-casuti.adb: Likewise.
10069         * libgnat/g-casuti.ads: Likewise.
10070         * libgnat/g-catiio.adb: Likewise.
10071         * libgnat/g-catiio.ads: Likewise.
10072         * libgnat/g-cgi.adb: Likewise.
10073         * libgnat/g-cgi.ads: Likewise.
10074         * libgnat/g-cgicoo.adb: Likewise.
10075         * libgnat/g-cgicoo.ads: Likewise.
10076         * libgnat/g-cgideb.adb: Likewise.
10077         * libgnat/g-cgideb.ads: Likewise.
10078         * libgnat/g-comlin.adb: Likewise.
10079         * libgnat/g-comlin.ads: Likewise.
10080         * libgnat/g-comver.adb: Likewise.
10081         * libgnat/g-comver.ads: Likewise.
10082         * libgnat/g-cppexc.adb: Likewise.
10083         * libgnat/g-cppexc.ads: Likewise.
10084         * libgnat/g-crc32.adb: Likewise.
10085         * libgnat/g-crc32.ads: Likewise.
10086         * libgnat/g-ctrl_c.adb: Likewise.
10087         * libgnat/g-ctrl_c.ads: Likewise.
10088         * libgnat/g-curexc.ads: Likewise.
10089         * libgnat/g-debpoo.adb: Likewise.
10090         * libgnat/g-debpoo.ads: Likewise.
10091         * libgnat/g-debuti.adb: Likewise.
10092         * libgnat/g-debuti.ads: Likewise.
10093         * libgnat/g-decstr.adb: Likewise.
10094         * libgnat/g-decstr.ads: Likewise.
10095         * libgnat/g-deutst.ads: Likewise.
10096         * libgnat/g-diopit.adb: Likewise.
10097         * libgnat/g-diopit.ads: Likewise.
10098         * libgnat/g-dirope.adb: Likewise.
10099         * libgnat/g-dirope.ads: Likewise.
10100         * libgnat/g-dynhta.adb: Likewise.
10101         * libgnat/g-dynhta.ads: Likewise.
10102         * libgnat/g-dyntab.adb: Likewise.
10103         * libgnat/g-dyntab.ads: Likewise.
10104         * libgnat/g-eacodu.adb: Likewise.
10105         * libgnat/g-encstr.adb: Likewise.
10106         * libgnat/g-encstr.ads: Likewise.
10107         * libgnat/g-enutst.ads: Likewise.
10108         * libgnat/g-excact.adb: Likewise.
10109         * libgnat/g-excact.ads: Likewise.
10110         * libgnat/g-except.ads: Likewise.
10111         * libgnat/g-exctra.adb: Likewise.
10112         * libgnat/g-exctra.ads: Likewise.
10113         * libgnat/g-expect.adb: Likewise.
10114         * libgnat/g-expect.ads: Likewise.
10115         * libgnat/g-exptty.adb: Likewise.
10116         * libgnat/g-exptty.ads: Likewise.
10117         * libgnat/g-flocon.ads: Likewise.
10118         * libgnat/g-forstr.adb: Likewise.
10119         * libgnat/g-forstr.ads: Likewise.
10120         * libgnat/g-graphs.adb: Likewise.
10121         * libgnat/g-graphs.ads: Likewise.
10122         * libgnat/g-heasor.adb: Likewise.
10123         * libgnat/g-heasor.ads: Likewise.
10124         * libgnat/g-hesora.adb: Likewise.
10125         * libgnat/g-hesora.ads: Likewise.
10126         * libgnat/g-hesorg.adb: Likewise.
10127         * libgnat/g-hesorg.ads: Likewise.
10128         * libgnat/g-htable.adb: Likewise.
10129         * libgnat/g-htable.ads: Likewise.
10130         * libgnat/g-io-put__vxworks.adb: Likewise.
10131         * libgnat/g-io.adb: Likewise.
10132         * libgnat/g-io.ads: Likewise.
10133         * libgnat/g-io_aux.adb: Likewise.
10134         * libgnat/g-io_aux.ads: Likewise.
10135         * libgnat/g-lists.adb: Likewise.
10136         * libgnat/g-lists.ads: Likewise.
10137         * libgnat/g-locfil.adb: Likewise.
10138         * libgnat/g-locfil.ads: Likewise.
10139         * libgnat/g-mbdira.adb: Likewise.
10140         * libgnat/g-mbdira.ads: Likewise.
10141         * libgnat/g-mbflra.adb: Likewise.
10142         * libgnat/g-mbflra.ads: Likewise.
10143         * libgnat/g-md5.adb: Likewise.
10144         * libgnat/g-md5.ads: Likewise.
10145         * libgnat/g-memdum.adb: Likewise.
10146         * libgnat/g-memdum.ads: Likewise.
10147         * libgnat/g-moreex.adb: Likewise.
10148         * libgnat/g-moreex.ads: Likewise.
10149         * libgnat/g-os_lib.adb: Likewise.
10150         * libgnat/g-os_lib.ads: Likewise.
10151         * libgnat/g-pehage.adb: Likewise.
10152         * libgnat/g-pehage.ads: Likewise.
10153         * libgnat/g-rannum.adb: Likewise.
10154         * libgnat/g-rannum.ads: Likewise.
10155         * libgnat/g-regexp.adb: Likewise.
10156         * libgnat/g-regexp.ads: Likewise.
10157         * libgnat/g-regist.adb: Likewise.
10158         * libgnat/g-regist.ads: Likewise.
10159         * libgnat/g-regpat.adb: Likewise.
10160         * libgnat/g-regpat.ads: Likewise.
10161         * libgnat/g-rewdat.adb: Likewise.
10162         * libgnat/g-rewdat.ads: Likewise.
10163         * libgnat/g-sechas.adb: Likewise.
10164         * libgnat/g-sechas.ads: Likewise.
10165         * libgnat/g-sehamd.adb: Likewise.
10166         * libgnat/g-sehamd.ads: Likewise.
10167         * libgnat/g-sehash.adb: Likewise.
10168         * libgnat/g-sehash.ads: Likewise.
10169         * libgnat/g-sercom.adb: Likewise.
10170         * libgnat/g-sercom.ads: Likewise.
10171         * libgnat/g-sercom__linux.adb: Likewise.
10172         * libgnat/g-sercom__mingw.adb: Likewise.
10173         * libgnat/g-sestin.ads: Likewise.
10174         * libgnat/g-sets.adb: Likewise.
10175         * libgnat/g-sets.ads: Likewise.
10176         * libgnat/g-sha1.adb: Likewise.
10177         * libgnat/g-sha1.ads: Likewise.
10178         * libgnat/g-sha224.ads: Likewise.
10179         * libgnat/g-sha256.ads: Likewise.
10180         * libgnat/g-sha384.ads: Likewise.
10181         * libgnat/g-sha512.ads: Likewise.
10182         * libgnat/g-shsh32.adb: Likewise.
10183         * libgnat/g-shsh32.ads: Likewise.
10184         * libgnat/g-shsh64.adb: Likewise.
10185         * libgnat/g-shsh64.ads: Likewise.
10186         * libgnat/g-shshco.adb: Likewise.
10187         * libgnat/g-shshco.ads: Likewise.
10188         * libgnat/g-soccon.ads: Likewise.
10189         * libgnat/g-socket.adb: Likewise.
10190         * libgnat/g-socket.ads: Likewise.
10191         * libgnat/g-socket__dummy.adb: Likewise.
10192         * libgnat/g-socket__dummy.ads: Likewise.
10193         * libgnat/g-socpol.adb: Likewise.
10194         * libgnat/g-socpol.ads: Likewise.
10195         * libgnat/g-socpol__dummy.adb: Likewise.
10196         * libgnat/g-socpol__dummy.ads: Likewise.
10197         * libgnat/g-socthi.adb: Likewise.
10198         * libgnat/g-socthi.ads: Likewise.
10199         * libgnat/g-socthi__dummy.adb: Likewise.
10200         * libgnat/g-socthi__dummy.ads: Likewise.
10201         * libgnat/g-socthi__mingw.adb: Likewise.
10202         * libgnat/g-socthi__mingw.ads: Likewise.
10203         * libgnat/g-socthi__vxworks.adb: Likewise.
10204         * libgnat/g-socthi__vxworks.ads: Likewise.
10205         * libgnat/g-soliop.ads: Likewise.
10206         * libgnat/g-soliop__lynxos.ads: Likewise.
10207         * libgnat/g-soliop__mingw.ads: Likewise.
10208         * libgnat/g-soliop__qnx.ads: Likewise.
10209         * libgnat/g-soliop__solaris.ads: Likewise.
10210         * libgnat/g-sopowa.adb: Likewise.
10211         * libgnat/g-sopowa__mingw.adb: Likewise.
10212         * libgnat/g-sopowa__posix.adb: Likewise.
10213         * libgnat/g-sothco.adb: Likewise.
10214         * libgnat/g-sothco.ads: Likewise.
10215         * libgnat/g-sothco__dummy.adb: Likewise.
10216         * libgnat/g-sothco__dummy.ads: Likewise.
10217         * libgnat/g-souinf.ads: Likewise.
10218         * libgnat/g-spchge.adb: Likewise.
10219         * libgnat/g-spchge.ads: Likewise.
10220         * libgnat/g-speche.adb: Likewise.
10221         * libgnat/g-speche.ads: Likewise.
10222         * libgnat/g-spipat.adb: Likewise.
10223         * libgnat/g-spipat.ads: Likewise.
10224         * libgnat/g-spitbo.adb: Likewise.
10225         * libgnat/g-spitbo.ads: Likewise.
10226         * libgnat/g-spogwa.adb: Likewise.
10227         * libgnat/g-spogwa.ads: Likewise.
10228         * libgnat/g-sptabo.ads: Likewise.
10229         * libgnat/g-sptain.ads: Likewise.
10230         * libgnat/g-sptavs.ads: Likewise.
10231         * libgnat/g-sse.ads: Likewise.
10232         * libgnat/g-ssvety.ads: Likewise.
10233         * libgnat/g-sthcso.adb: Likewise.
10234         * libgnat/g-stheme.adb: Likewise.
10235         * libgnat/g-strhas.ads: Likewise.
10236         * libgnat/g-string.adb: Likewise.
10237         * libgnat/g-string.ads: Likewise.
10238         * libgnat/g-strspl.ads: Likewise.
10239         * libgnat/g-stseme.adb: Likewise.
10240         * libgnat/g-stsifd__sockets.adb: Likewise.
10241         * libgnat/g-table.adb: Likewise.
10242         * libgnat/g-table.ads: Likewise.
10243         * libgnat/g-tasloc.adb: Likewise.
10244         * libgnat/g-tasloc.ads: Likewise.
10245         * libgnat/g-timsta.adb: Likewise.
10246         * libgnat/g-timsta.ads: Likewise.
10247         * libgnat/g-traceb.adb: Likewise.
10248         * libgnat/g-traceb.ads: Likewise.
10249         * libgnat/g-trasym.adb: Likewise.
10250         * libgnat/g-trasym.ads: Likewise.
10251         * libgnat/g-tty.adb: Likewise.
10252         * libgnat/g-tty.ads: Likewise.
10253         * libgnat/g-u3spch.adb: Likewise.
10254         * libgnat/g-u3spch.ads: Likewise.
10255         * libgnat/g-utf_32.adb: Likewise.
10256         * libgnat/g-utf_32.ads: Likewise.
10257         * libgnat/g-wispch.adb: Likewise.
10258         * libgnat/g-wispch.ads: Likewise.
10259         * libgnat/g-wistsp.ads: Likewise.
10260         * libgnat/g-zspche.adb: Likewise.
10261         * libgnat/g-zspche.ads: Likewise.
10262         * libgnat/g-zstspl.ads: Likewise.
10263         * libgnat/gnat.ads: Likewise.
10264         * libgnat/i-c.adb: Likewise.
10265         * libgnat/i-cexten.ads: Likewise.
10266         * libgnat/i-cexten__128.ads: Likewise.
10267         * libgnat/i-cobol.adb: Likewise.
10268         * libgnat/i-cobol.ads: Likewise.
10269         * libgnat/i-cpoint.adb: Likewise.
10270         * libgnat/i-cpoint.ads: Likewise.
10271         * libgnat/i-cstrea.adb: Likewise.
10272         * libgnat/i-cstrea.ads: Likewise.
10273         * libgnat/i-cstrin.adb: Likewise.
10274         * libgnat/i-cstrin.ads: Likewise.
10275         * libgnat/i-fortra.adb: Likewise.
10276         * libgnat/i-pacdec.adb: Likewise.
10277         * libgnat/i-pacdec.ads: Likewise.
10278         * libgnat/i-vxwoio.adb: Likewise.
10279         * libgnat/i-vxwoio.ads: Likewise.
10280         * libgnat/i-vxwork.ads: Likewise.
10281         * libgnat/i-vxwork__x86.ads: Likewise.
10282         * libgnat/interfac.ads: Likewise.
10283         * libgnat/interfac__2020.ads: Likewise.
10284         * libgnat/memtrack.adb: Likewise.
10285         * libgnat/s-addima.adb: Likewise.
10286         * libgnat/s-addima.ads: Likewise.
10287         * libgnat/s-addope.adb: Likewise.
10288         * libgnat/s-addope.ads: Likewise.
10289         * libgnat/s-aoinar.adb: Likewise.
10290         * libgnat/s-aoinar.ads: Likewise.
10291         * libgnat/s-aomoar.adb: Likewise.
10292         * libgnat/s-aomoar.ads: Likewise.
10293         * libgnat/s-aotase.adb: Likewise.
10294         * libgnat/s-aotase.ads: Likewise.
10295         * libgnat/s-aridou.adb: Likewise.
10296         * libgnat/s-aridou.ads: Likewise.
10297         * libgnat/s-arit128.adb: Likewise.
10298         * libgnat/s-arit128.ads: Likewise.
10299         * libgnat/s-arit32.adb: Likewise.
10300         * libgnat/s-arit32.ads: Likewise.
10301         * libgnat/s-arit64.adb: Likewise.
10302         * libgnat/s-arit64.ads: Likewise.
10303         * libgnat/s-assert.adb: Likewise.
10304         * libgnat/s-assert.ads: Likewise.
10305         * libgnat/s-atacco.adb: Likewise.
10306         * libgnat/s-atacco.ads: Likewise.
10307         * libgnat/s-atocou.adb: Likewise.
10308         * libgnat/s-atocou.ads: Likewise.
10309         * libgnat/s-atocou__builtin.adb: Likewise.
10310         * libgnat/s-atocou__x86.adb: Likewise.
10311         * libgnat/s-atoope.ads: Likewise.
10312         * libgnat/s-atopex.adb: Likewise.
10313         * libgnat/s-atopex.ads: Likewise.
10314         * libgnat/s-atopri.adb: Likewise.
10315         * libgnat/s-atopri.ads: Likewise.
10316         * libgnat/s-auxdec.adb: Likewise.
10317         * libgnat/s-auxdec.ads: Likewise.
10318         * libgnat/s-bignum.adb: Likewise.
10319         * libgnat/s-bignum.ads: Likewise.
10320         * libgnat/s-bitfie.ads: Likewise.
10321         * libgnat/s-bitops.adb: Likewise.
10322         * libgnat/s-bitops.ads: Likewise.
10323         * libgnat/s-bituti.adb: Likewise.
10324         * libgnat/s-bituti.ads: Likewise.
10325         * libgnat/s-boarop.ads: Likewise.
10326         * libgnat/s-boustr.adb: Likewise.
10327         * libgnat/s-boustr.ads: Likewise.
10328         * libgnat/s-bytswa.ads: Likewise.
10329         * libgnat/s-carsi8.adb: Likewise.
10330         * libgnat/s-carsi8.ads: Likewise.
10331         * libgnat/s-carun8.adb: Likewise.
10332         * libgnat/s-carun8.ads: Likewise.
10333         * libgnat/s-casi128.adb: Likewise.
10334         * libgnat/s-casi128.ads: Likewise.
10335         * libgnat/s-casi16.adb: Likewise.
10336         * libgnat/s-casi16.ads: Likewise.
10337         * libgnat/s-casi32.adb: Likewise.
10338         * libgnat/s-casi32.ads: Likewise.
10339         * libgnat/s-casi64.adb: Likewise.
10340         * libgnat/s-casi64.ads: Likewise.
10341         * libgnat/s-casuti.adb: Likewise.
10342         * libgnat/s-casuti.ads: Likewise.
10343         * libgnat/s-caun128.adb: Likewise.
10344         * libgnat/s-caun128.ads: Likewise.
10345         * libgnat/s-caun16.adb: Likewise.
10346         * libgnat/s-caun16.ads: Likewise.
10347         * libgnat/s-caun32.adb: Likewise.
10348         * libgnat/s-caun32.ads: Likewise.
10349         * libgnat/s-caun64.adb: Likewise.
10350         * libgnat/s-caun64.ads: Likewise.
10351         * libgnat/s-chepoo.ads: Likewise.
10352         * libgnat/s-commun.adb: Likewise.
10353         * libgnat/s-commun.ads: Likewise.
10354         * libgnat/s-conca2.adb: Likewise.
10355         * libgnat/s-conca2.ads: Likewise.
10356         * libgnat/s-conca3.adb: Likewise.
10357         * libgnat/s-conca3.ads: Likewise.
10358         * libgnat/s-conca4.adb: Likewise.
10359         * libgnat/s-conca4.ads: Likewise.
10360         * libgnat/s-conca5.adb: Likewise.
10361         * libgnat/s-conca5.ads: Likewise.
10362         * libgnat/s-conca6.adb: Likewise.
10363         * libgnat/s-conca6.ads: Likewise.
10364         * libgnat/s-conca7.adb: Likewise.
10365         * libgnat/s-conca7.ads: Likewise.
10366         * libgnat/s-conca8.adb: Likewise.
10367         * libgnat/s-conca8.ads: Likewise.
10368         * libgnat/s-conca9.adb: Likewise.
10369         * libgnat/s-conca9.ads: Likewise.
10370         * libgnat/s-crc32.adb: Likewise.
10371         * libgnat/s-crc32.ads: Likewise.
10372         * libgnat/s-crtl.ads: Likewise.
10373         * libgnat/s-dfmkio.ads: Likewise.
10374         * libgnat/s-dfmopr.ads: Likewise.
10375         * libgnat/s-dgmgop.ads: Likewise.
10376         * libgnat/s-diflio.adb: Likewise.
10377         * libgnat/s-diflio.ads: Likewise.
10378         * libgnat/s-diflmk.ads: Likewise.
10379         * libgnat/s-digemk.ads: Likewise.
10380         * libgnat/s-diinio.adb: Likewise.
10381         * libgnat/s-diinio.ads: Likewise.
10382         * libgnat/s-dilomk.ads: Likewise.
10383         * libgnat/s-dim.ads: Likewise.
10384         * libgnat/s-dimkio.ads: Likewise.
10385         * libgnat/s-dimmks.ads: Likewise.
10386         * libgnat/s-direio.adb: Likewise.
10387         * libgnat/s-direio.ads: Likewise.
10388         * libgnat/s-dlmkio.ads: Likewise.
10389         * libgnat/s-dlmopr.ads: Likewise.
10390         * libgnat/s-dmotpr.ads: Likewise.
10391         * libgnat/s-dsaser.ads: Likewise.
10392         * libgnat/s-dwalin.adb: Likewise.
10393         * libgnat/s-dwalin.ads: Likewise.
10394         * libgnat/s-elaall.adb: Likewise.
10395         * libgnat/s-elaall.ads: Likewise.
10396         * libgnat/s-excdeb.adb: Likewise.
10397         * libgnat/s-excdeb.ads: Likewise.
10398         * libgnat/s-except.adb: Likewise.
10399         * libgnat/s-except.ads: Likewise.
10400         * libgnat/s-excmac__arm.adb: Likewise.
10401         * libgnat/s-excmac__arm.ads: Likewise.
10402         * libgnat/s-excmac__gcc.adb: Likewise.
10403         * libgnat/s-excmac__gcc.ads: Likewise.
10404         * libgnat/s-exctab.adb: Likewise.
10405         * libgnat/s-exctab.ads: Likewise.
10406         * libgnat/s-exctra.adb: Likewise.
10407         * libgnat/s-exctra.ads: Likewise.
10408         * libgnat/s-exnint.adb: Likewise.
10409         * libgnat/s-exnint.ads: Likewise.
10410         * libgnat/s-exnllf.adb: Likewise.
10411         * libgnat/s-exnllf.ads: Likewise.
10412         * libgnat/s-exnlli.adb: Likewise.
10413         * libgnat/s-exnlli.ads: Likewise.
10414         * libgnat/s-exnllli.ads: Likewise.
10415         * libgnat/s-expint.adb: Likewise.
10416         * libgnat/s-expint.ads: Likewise.
10417         * libgnat/s-explli.adb: Likewise.
10418         * libgnat/s-explli.ads: Likewise.
10419         * libgnat/s-expllli.ads: Likewise.
10420         * libgnat/s-explllu.ads: Likewise.
10421         * libgnat/s-expllu.adb: Likewise.
10422         * libgnat/s-expllu.ads: Likewise.
10423         * libgnat/s-expmod.adb: Likewise.
10424         * libgnat/s-expmod.ads: Likewise.
10425         * libgnat/s-exponn.adb: Likewise.
10426         * libgnat/s-exponn.ads: Likewise.
10427         * libgnat/s-expont.adb: Likewise.
10428         * libgnat/s-expont.ads: Likewise.
10429         * libgnat/s-exponu.adb: Likewise.
10430         * libgnat/s-exponu.ads: Likewise.
10431         * libgnat/s-expuns.adb: Likewise.
10432         * libgnat/s-expuns.ads: Likewise.
10433         * libgnat/s-fatflt.ads: Likewise.
10434         * libgnat/s-fatgen.adb: Likewise.
10435         * libgnat/s-fatgen.ads: Likewise.
10436         * libgnat/s-fatlfl.ads: Likewise.
10437         * libgnat/s-fatllf.ads: Likewise.
10438         * libgnat/s-ficobl.ads: Likewise.
10439         * libgnat/s-filatt.ads: Likewise.
10440         * libgnat/s-fileio.adb: Likewise.
10441         * libgnat/s-fileio.ads: Likewise.
10442         * libgnat/s-finmas.adb: Likewise.
10443         * libgnat/s-finmas.ads: Likewise.
10444         * libgnat/s-finroo.adb: Likewise.
10445         * libgnat/s-finroo.ads: Likewise.
10446         * libgnat/s-flocon.adb: Likewise.
10447         * libgnat/s-flocon.ads: Likewise.
10448         * libgnat/s-flocon__none.adb: Likewise.
10449         * libgnat/s-fode128.ads: Likewise.
10450         * libgnat/s-fode32.ads: Likewise.
10451         * libgnat/s-fode64.ads: Likewise.
10452         * libgnat/s-fofi128.ads: Likewise.
10453         * libgnat/s-fofi32.ads: Likewise.
10454         * libgnat/s-fofi64.ads: Likewise.
10455         * libgnat/s-fore_d.adb: Likewise.
10456         * libgnat/s-fore_d.ads: Likewise.
10457         * libgnat/s-fore_f.adb: Likewise.
10458         * libgnat/s-fore_f.ads: Likewise.
10459         * libgnat/s-forrea.adb: Likewise.
10460         * libgnat/s-forrea.ads: Likewise.
10461         * libgnat/s-gearop.adb: Likewise.
10462         * libgnat/s-gearop.ads: Likewise.
10463         * libgnat/s-genbig.adb: Likewise.
10464         * libgnat/s-genbig.ads: Likewise.
10465         * libgnat/s-geveop.adb: Likewise.
10466         * libgnat/s-geveop.ads: Likewise.
10467         * libgnat/s-gloloc.adb: Likewise.
10468         * libgnat/s-gloloc.ads: Likewise.
10469         * libgnat/s-gloloc__mingw.adb: Likewise.
10470         * libgnat/s-htable.adb: Likewise.
10471         * libgnat/s-htable.ads: Likewise.
10472         * libgnat/s-imageb.adb: Likewise.
10473         * libgnat/s-imageb.ads: Likewise.
10474         * libgnat/s-imaged.adb: Likewise.
10475         * libgnat/s-imaged.ads: Likewise.
10476         * libgnat/s-imagef.adb: Likewise.
10477         * libgnat/s-imagef.ads: Likewise.
10478         * libgnat/s-imagei.adb: Likewise.
10479         * libgnat/s-imagei.ads: Likewise.
10480         * libgnat/s-imageu.adb: Likewise.
10481         * libgnat/s-imageu.ads: Likewise.
10482         * libgnat/s-imagew.adb: Likewise.
10483         * libgnat/s-imagew.ads: Likewise.
10484         * libgnat/s-imde128.ads: Likewise.
10485         * libgnat/s-imde32.ads: Likewise.
10486         * libgnat/s-imde64.ads: Likewise.
10487         * libgnat/s-imenne.adb: Likewise.
10488         * libgnat/s-imenne.ads: Likewise.
10489         * libgnat/s-imfi128.ads: Likewise.
10490         * libgnat/s-imfi32.ads: Likewise.
10491         * libgnat/s-imfi64.ads: Likewise.
10492         * libgnat/s-imgbiu.adb: Likewise.
10493         * libgnat/s-imgbiu.ads: Likewise.
10494         * libgnat/s-imgboo.adb: Likewise.
10495         * libgnat/s-imgboo.ads: Likewise.
10496         * libgnat/s-imgcha.adb: Likewise.
10497         * libgnat/s-imgcha.ads: Likewise.
10498         * libgnat/s-imgenu.adb: Likewise.
10499         * libgnat/s-imgenu.ads: Likewise.
10500         * libgnat/s-imgint.adb: Likewise.
10501         * libgnat/s-imgint.ads: Likewise.
10502         * libgnat/s-imgllb.adb: Likewise.
10503         * libgnat/s-imgllb.ads: Likewise.
10504         * libgnat/s-imglli.adb: Likewise.
10505         * libgnat/s-imglli.ads: Likewise.
10506         * libgnat/s-imglllb.ads: Likewise.
10507         * libgnat/s-imgllli.ads: Likewise.
10508         * libgnat/s-imglllu.ads: Likewise.
10509         * libgnat/s-imglllw.ads: Likewise.
10510         * libgnat/s-imgllu.adb: Likewise.
10511         * libgnat/s-imgllu.ads: Likewise.
10512         * libgnat/s-imgllw.adb: Likewise.
10513         * libgnat/s-imgllw.ads: Likewise.
10514         * libgnat/s-imgrea.adb: Likewise.
10515         * libgnat/s-imgrea.ads: Likewise.
10516         * libgnat/s-imguns.adb: Likewise.
10517         * libgnat/s-imguns.ads: Likewise.
10518         * libgnat/s-imguti.adb: Likewise.
10519         * libgnat/s-imguti.ads: Likewise.
10520         * libgnat/s-imgwch.adb: Likewise.
10521         * libgnat/s-imgwch.ads: Likewise.
10522         * libgnat/s-imgwiu.adb: Likewise.
10523         * libgnat/s-imgwiu.ads: Likewise.
10524         * libgnat/s-io.adb: Likewise.
10525         * libgnat/s-io.ads: Likewise.
10526         * libgnat/s-llflex.ads: Likewise.
10527         * libgnat/s-maccod.ads: Likewise.
10528         * libgnat/s-mantis.adb: Likewise.
10529         * libgnat/s-mantis.ads: Likewise.
10530         * libgnat/s-mastop.adb: Likewise.
10531         * libgnat/s-mastop.ads: Likewise.
10532         * libgnat/s-memcop.ads: Likewise.
10533         * libgnat/s-memory.adb: Likewise.
10534         * libgnat/s-memory.ads: Likewise.
10535         * libgnat/s-mmap.adb: Likewise.
10536         * libgnat/s-mmap.ads: Likewise.
10537         * libgnat/s-mmauni__long.ads: Likewise.
10538         * libgnat/s-mmosin__mingw.adb: Likewise.
10539         * libgnat/s-mmosin__mingw.ads: Likewise.
10540         * libgnat/s-mmosin__unix.adb: Likewise.
10541         * libgnat/s-mmosin__unix.ads: Likewise.
10542         * libgnat/s-multip.adb: Likewise.
10543         * libgnat/s-objrea.adb: Likewise.
10544         * libgnat/s-objrea.ads: Likewise.
10545         * libgnat/s-optide.adb: Likewise.
10546         * libgnat/s-os_lib.adb: Likewise.
10547         * libgnat/s-os_lib.ads: Likewise.
10548         * libgnat/s-osprim.ads: Likewise.
10549         * libgnat/s-osprim__darwin.adb: Likewise.
10550         * libgnat/s-osprim__lynxos.ads: Likewise.
10551         * libgnat/s-osprim__mingw.adb: Likewise.
10552         * libgnat/s-osprim__posix.adb: Likewise.
10553         * libgnat/s-osprim__posix2008.adb: Likewise.
10554         * libgnat/s-osprim__rtems.adb: Likewise.
10555         * libgnat/s-osprim__solaris.adb: Likewise.
10556         * libgnat/s-osprim__unix.adb: Likewise.
10557         * libgnat/s-osprim__vxworks.adb: Likewise.
10558         * libgnat/s-osprim__x32.adb: Likewise.
10559         * libgnat/s-osvers__vxworks-653.ads: Likewise.
10560         * libgnat/s-pack03.adb: Likewise.
10561         * libgnat/s-pack03.ads: Likewise.
10562         * libgnat/s-pack05.adb: Likewise.
10563         * libgnat/s-pack05.ads: Likewise.
10564         * libgnat/s-pack06.adb: Likewise.
10565         * libgnat/s-pack06.ads: Likewise.
10566         * libgnat/s-pack07.adb: Likewise.
10567         * libgnat/s-pack07.ads: Likewise.
10568         * libgnat/s-pack09.adb: Likewise.
10569         * libgnat/s-pack09.ads: Likewise.
10570         * libgnat/s-pack10.adb: Likewise.
10571         * libgnat/s-pack10.ads: Likewise.
10572         * libgnat/s-pack100.adb: Likewise.
10573         * libgnat/s-pack100.ads: Likewise.
10574         * libgnat/s-pack101.adb: Likewise.
10575         * libgnat/s-pack101.ads: Likewise.
10576         * libgnat/s-pack102.adb: Likewise.
10577         * libgnat/s-pack102.ads: Likewise.
10578         * libgnat/s-pack103.adb: Likewise.
10579         * libgnat/s-pack103.ads: Likewise.
10580         * libgnat/s-pack104.adb: Likewise.
10581         * libgnat/s-pack104.ads: Likewise.
10582         * libgnat/s-pack105.adb: Likewise.
10583         * libgnat/s-pack105.ads: Likewise.
10584         * libgnat/s-pack106.adb: Likewise.
10585         * libgnat/s-pack106.ads: Likewise.
10586         * libgnat/s-pack107.adb: Likewise.
10587         * libgnat/s-pack107.ads: Likewise.
10588         * libgnat/s-pack108.adb: Likewise.
10589         * libgnat/s-pack108.ads: Likewise.
10590         * libgnat/s-pack109.adb: Likewise.
10591         * libgnat/s-pack109.ads: Likewise.
10592         * libgnat/s-pack11.adb: Likewise.
10593         * libgnat/s-pack11.ads: Likewise.
10594         * libgnat/s-pack110.adb: Likewise.
10595         * libgnat/s-pack110.ads: Likewise.
10596         * libgnat/s-pack111.adb: Likewise.
10597         * libgnat/s-pack111.ads: Likewise.
10598         * libgnat/s-pack112.adb: Likewise.
10599         * libgnat/s-pack112.ads: Likewise.
10600         * libgnat/s-pack113.adb: Likewise.
10601         * libgnat/s-pack113.ads: Likewise.
10602         * libgnat/s-pack114.adb: Likewise.
10603         * libgnat/s-pack114.ads: Likewise.
10604         * libgnat/s-pack115.adb: Likewise.
10605         * libgnat/s-pack115.ads: Likewise.
10606         * libgnat/s-pack116.adb: Likewise.
10607         * libgnat/s-pack116.ads: Likewise.
10608         * libgnat/s-pack117.adb: Likewise.
10609         * libgnat/s-pack117.ads: Likewise.
10610         * libgnat/s-pack118.adb: Likewise.
10611         * libgnat/s-pack118.ads: Likewise.
10612         * libgnat/s-pack119.adb: Likewise.
10613         * libgnat/s-pack119.ads: Likewise.
10614         * libgnat/s-pack12.adb: Likewise.
10615         * libgnat/s-pack12.ads: Likewise.
10616         * libgnat/s-pack120.adb: Likewise.
10617         * libgnat/s-pack120.ads: Likewise.
10618         * libgnat/s-pack121.adb: Likewise.
10619         * libgnat/s-pack121.ads: Likewise.
10620         * libgnat/s-pack122.adb: Likewise.
10621         * libgnat/s-pack122.ads: Likewise.
10622         * libgnat/s-pack123.adb: Likewise.
10623         * libgnat/s-pack123.ads: Likewise.
10624         * libgnat/s-pack124.adb: Likewise.
10625         * libgnat/s-pack124.ads: Likewise.
10626         * libgnat/s-pack125.adb: Likewise.
10627         * libgnat/s-pack125.ads: Likewise.
10628         * libgnat/s-pack126.adb: Likewise.
10629         * libgnat/s-pack126.ads: Likewise.
10630         * libgnat/s-pack127.adb: Likewise.
10631         * libgnat/s-pack127.ads: Likewise.
10632         * libgnat/s-pack13.adb: Likewise.
10633         * libgnat/s-pack13.ads: Likewise.
10634         * libgnat/s-pack14.adb: Likewise.
10635         * libgnat/s-pack14.ads: Likewise.
10636         * libgnat/s-pack15.adb: Likewise.
10637         * libgnat/s-pack15.ads: Likewise.
10638         * libgnat/s-pack17.adb: Likewise.
10639         * libgnat/s-pack17.ads: Likewise.
10640         * libgnat/s-pack18.adb: Likewise.
10641         * libgnat/s-pack18.ads: Likewise.
10642         * libgnat/s-pack19.adb: Likewise.
10643         * libgnat/s-pack19.ads: Likewise.
10644         * libgnat/s-pack20.adb: Likewise.
10645         * libgnat/s-pack20.ads: Likewise.
10646         * libgnat/s-pack21.adb: Likewise.
10647         * libgnat/s-pack21.ads: Likewise.
10648         * libgnat/s-pack22.adb: Likewise.
10649         * libgnat/s-pack22.ads: Likewise.
10650         * libgnat/s-pack23.adb: Likewise.
10651         * libgnat/s-pack23.ads: Likewise.
10652         * libgnat/s-pack24.adb: Likewise.
10653         * libgnat/s-pack24.ads: Likewise.
10654         * libgnat/s-pack25.adb: Likewise.
10655         * libgnat/s-pack25.ads: Likewise.
10656         * libgnat/s-pack26.adb: Likewise.
10657         * libgnat/s-pack26.ads: Likewise.
10658         * libgnat/s-pack27.adb: Likewise.
10659         * libgnat/s-pack27.ads: Likewise.
10660         * libgnat/s-pack28.adb: Likewise.
10661         * libgnat/s-pack28.ads: Likewise.
10662         * libgnat/s-pack29.adb: Likewise.
10663         * libgnat/s-pack29.ads: Likewise.
10664         * libgnat/s-pack30.adb: Likewise.
10665         * libgnat/s-pack30.ads: Likewise.
10666         * libgnat/s-pack31.adb: Likewise.
10667         * libgnat/s-pack31.ads: Likewise.
10668         * libgnat/s-pack33.adb: Likewise.
10669         * libgnat/s-pack33.ads: Likewise.
10670         * libgnat/s-pack34.adb: Likewise.
10671         * libgnat/s-pack34.ads: Likewise.
10672         * libgnat/s-pack35.adb: Likewise.
10673         * libgnat/s-pack35.ads: Likewise.
10674         * libgnat/s-pack36.adb: Likewise.
10675         * libgnat/s-pack36.ads: Likewise.
10676         * libgnat/s-pack37.adb: Likewise.
10677         * libgnat/s-pack37.ads: Likewise.
10678         * libgnat/s-pack38.adb: Likewise.
10679         * libgnat/s-pack38.ads: Likewise.
10680         * libgnat/s-pack39.adb: Likewise.
10681         * libgnat/s-pack39.ads: Likewise.
10682         * libgnat/s-pack40.adb: Likewise.
10683         * libgnat/s-pack40.ads: Likewise.
10684         * libgnat/s-pack41.adb: Likewise.
10685         * libgnat/s-pack41.ads: Likewise.
10686         * libgnat/s-pack42.adb: Likewise.
10687         * libgnat/s-pack42.ads: Likewise.
10688         * libgnat/s-pack43.adb: Likewise.
10689         * libgnat/s-pack43.ads: Likewise.
10690         * libgnat/s-pack44.adb: Likewise.
10691         * libgnat/s-pack44.ads: Likewise.
10692         * libgnat/s-pack45.adb: Likewise.
10693         * libgnat/s-pack45.ads: Likewise.
10694         * libgnat/s-pack46.adb: Likewise.
10695         * libgnat/s-pack46.ads: Likewise.
10696         * libgnat/s-pack47.adb: Likewise.
10697         * libgnat/s-pack47.ads: Likewise.
10698         * libgnat/s-pack48.adb: Likewise.
10699         * libgnat/s-pack48.ads: Likewise.
10700         * libgnat/s-pack49.adb: Likewise.
10701         * libgnat/s-pack49.ads: Likewise.
10702         * libgnat/s-pack50.adb: Likewise.
10703         * libgnat/s-pack50.ads: Likewise.
10704         * libgnat/s-pack51.adb: Likewise.
10705         * libgnat/s-pack51.ads: Likewise.
10706         * libgnat/s-pack52.adb: Likewise.
10707         * libgnat/s-pack52.ads: Likewise.
10708         * libgnat/s-pack53.adb: Likewise.
10709         * libgnat/s-pack53.ads: Likewise.
10710         * libgnat/s-pack54.adb: Likewise.
10711         * libgnat/s-pack54.ads: Likewise.
10712         * libgnat/s-pack55.adb: Likewise.
10713         * libgnat/s-pack55.ads: Likewise.
10714         * libgnat/s-pack56.adb: Likewise.
10715         * libgnat/s-pack56.ads: Likewise.
10716         * libgnat/s-pack57.adb: Likewise.
10717         * libgnat/s-pack57.ads: Likewise.
10718         * libgnat/s-pack58.adb: Likewise.
10719         * libgnat/s-pack58.ads: Likewise.
10720         * libgnat/s-pack59.adb: Likewise.
10721         * libgnat/s-pack59.ads: Likewise.
10722         * libgnat/s-pack60.adb: Likewise.
10723         * libgnat/s-pack60.ads: Likewise.
10724         * libgnat/s-pack61.adb: Likewise.
10725         * libgnat/s-pack61.ads: Likewise.
10726         * libgnat/s-pack62.adb: Likewise.
10727         * libgnat/s-pack62.ads: Likewise.
10728         * libgnat/s-pack63.adb: Likewise.
10729         * libgnat/s-pack63.ads: Likewise.
10730         * libgnat/s-pack65.adb: Likewise.
10731         * libgnat/s-pack65.ads: Likewise.
10732         * libgnat/s-pack66.adb: Likewise.
10733         * libgnat/s-pack66.ads: Likewise.
10734         * libgnat/s-pack67.adb: Likewise.
10735         * libgnat/s-pack67.ads: Likewise.
10736         * libgnat/s-pack68.adb: Likewise.
10737         * libgnat/s-pack68.ads: Likewise.
10738         * libgnat/s-pack69.adb: Likewise.
10739         * libgnat/s-pack69.ads: Likewise.
10740         * libgnat/s-pack70.adb: Likewise.
10741         * libgnat/s-pack70.ads: Likewise.
10742         * libgnat/s-pack71.adb: Likewise.
10743         * libgnat/s-pack71.ads: Likewise.
10744         * libgnat/s-pack72.adb: Likewise.
10745         * libgnat/s-pack72.ads: Likewise.
10746         * libgnat/s-pack73.adb: Likewise.
10747         * libgnat/s-pack73.ads: Likewise.
10748         * libgnat/s-pack74.adb: Likewise.
10749         * libgnat/s-pack74.ads: Likewise.
10750         * libgnat/s-pack75.adb: Likewise.
10751         * libgnat/s-pack75.ads: Likewise.
10752         * libgnat/s-pack76.adb: Likewise.
10753         * libgnat/s-pack76.ads: Likewise.
10754         * libgnat/s-pack77.adb: Likewise.
10755         * libgnat/s-pack77.ads: Likewise.
10756         * libgnat/s-pack78.adb: Likewise.
10757         * libgnat/s-pack78.ads: Likewise.
10758         * libgnat/s-pack79.adb: Likewise.
10759         * libgnat/s-pack79.ads: Likewise.
10760         * libgnat/s-pack80.adb: Likewise.
10761         * libgnat/s-pack80.ads: Likewise.
10762         * libgnat/s-pack81.adb: Likewise.
10763         * libgnat/s-pack81.ads: Likewise.
10764         * libgnat/s-pack82.adb: Likewise.
10765         * libgnat/s-pack82.ads: Likewise.
10766         * libgnat/s-pack83.adb: Likewise.
10767         * libgnat/s-pack83.ads: Likewise.
10768         * libgnat/s-pack84.adb: Likewise.
10769         * libgnat/s-pack84.ads: Likewise.
10770         * libgnat/s-pack85.adb: Likewise.
10771         * libgnat/s-pack85.ads: Likewise.
10772         * libgnat/s-pack86.adb: Likewise.
10773         * libgnat/s-pack86.ads: Likewise.
10774         * libgnat/s-pack87.adb: Likewise.
10775         * libgnat/s-pack87.ads: Likewise.
10776         * libgnat/s-pack88.adb: Likewise.
10777         * libgnat/s-pack88.ads: Likewise.
10778         * libgnat/s-pack89.adb: Likewise.
10779         * libgnat/s-pack89.ads: Likewise.
10780         * libgnat/s-pack90.adb: Likewise.
10781         * libgnat/s-pack90.ads: Likewise.
10782         * libgnat/s-pack91.adb: Likewise.
10783         * libgnat/s-pack91.ads: Likewise.
10784         * libgnat/s-pack92.adb: Likewise.
10785         * libgnat/s-pack92.ads: Likewise.
10786         * libgnat/s-pack93.adb: Likewise.
10787         * libgnat/s-pack93.ads: Likewise.
10788         * libgnat/s-pack94.adb: Likewise.
10789         * libgnat/s-pack94.ads: Likewise.
10790         * libgnat/s-pack95.adb: Likewise.
10791         * libgnat/s-pack95.ads: Likewise.
10792         * libgnat/s-pack96.adb: Likewise.
10793         * libgnat/s-pack96.ads: Likewise.
10794         * libgnat/s-pack97.adb: Likewise.
10795         * libgnat/s-pack97.ads: Likewise.
10796         * libgnat/s-pack98.adb: Likewise.
10797         * libgnat/s-pack98.ads: Likewise.
10798         * libgnat/s-pack99.adb: Likewise.
10799         * libgnat/s-pack99.ads: Likewise.
10800         * libgnat/s-parame.adb: Likewise.
10801         * libgnat/s-parame.ads: Likewise.
10802         * libgnat/s-parame__ae653.ads: Likewise.
10803         * libgnat/s-parame__hpux.ads: Likewise.
10804         * libgnat/s-parame__rtems.adb: Likewise.
10805         * libgnat/s-parame__vxworks.adb: Likewise.
10806         * libgnat/s-parame__vxworks.ads: Likewise.
10807         * libgnat/s-parint.adb: Likewise.
10808         * libgnat/s-parint.ads: Likewise.
10809         * libgnat/s-pooglo.adb: Likewise.
10810         * libgnat/s-pooglo.ads: Likewise.
10811         * libgnat/s-pooloc.adb: Likewise.
10812         * libgnat/s-pooloc.ads: Likewise.
10813         * libgnat/s-poosiz.adb: Likewise.
10814         * libgnat/s-poosiz.ads: Likewise.
10815         * libgnat/s-powflt.ads: Likewise.
10816         * libgnat/s-powlfl.ads: Likewise.
10817         * libgnat/s-powllf.ads: Likewise.
10818         * libgnat/s-purexc.ads: Likewise.
10819         * libgnat/s-putaim.adb: Likewise.
10820         * libgnat/s-putaim.ads: Likewise.
10821         * libgnat/s-putima.adb: Likewise.
10822         * libgnat/s-putima.ads: Likewise.
10823         * libgnat/s-rannum.adb: Likewise.
10824         * libgnat/s-rannum.ads: Likewise.
10825         * libgnat/s-ransee.adb: Likewise.
10826         * libgnat/s-ransee.ads: Likewise.
10827         * libgnat/s-regexp.adb: Likewise.
10828         * libgnat/s-regexp.ads: Likewise.
10829         * libgnat/s-regpat.adb: Likewise.
10830         * libgnat/s-regpat.ads: Likewise.
10831         * libgnat/s-resfil.adb: Likewise.
10832         * libgnat/s-resfil.ads: Likewise.
10833         * libgnat/s-restri.adb: Likewise.
10834         * libgnat/s-restri.ads: Likewise.
10835         * libgnat/s-rident.ads: Likewise.
10836         * libgnat/s-rpc.adb: Likewise.
10837         * libgnat/s-rpc.ads: Likewise.
10838         * libgnat/s-scaval.adb: Likewise.
10839         * libgnat/s-scaval.ads: Likewise.
10840         * libgnat/s-scaval__128.adb: Likewise.
10841         * libgnat/s-scaval__128.ads: Likewise.
10842         * libgnat/s-secsta.adb: Likewise.
10843         * libgnat/s-secsta.ads: Likewise.
10844         * libgnat/s-sequio.adb: Likewise.
10845         * libgnat/s-sequio.ads: Likewise.
10846         * libgnat/s-shabig.ads: Likewise.
10847         * libgnat/s-shasto.adb: Likewise.
10848         * libgnat/s-shasto.ads: Likewise.
10849         * libgnat/s-soflin.adb: Likewise.
10850         * libgnat/s-soflin.ads: Likewise.
10851         * libgnat/s-soliin.adb: Likewise.
10852         * libgnat/s-soliin.ads: Likewise.
10853         * libgnat/s-sopco3.adb: Likewise.
10854         * libgnat/s-sopco3.ads: Likewise.
10855         * libgnat/s-sopco4.adb: Likewise.
10856         * libgnat/s-sopco4.ads: Likewise.
10857         * libgnat/s-sopco5.adb: Likewise.
10858         * libgnat/s-sopco5.ads: Likewise.
10859         * libgnat/s-spsufi.adb: Likewise.
10860         * libgnat/s-spsufi.ads: Likewise.
10861         * libgnat/s-stache.adb: Likewise.
10862         * libgnat/s-stache.ads: Likewise.
10863         * libgnat/s-stalib.adb: Likewise.
10864         * libgnat/s-stalib.ads: Likewise.
10865         * libgnat/s-statxd.adb: Likewise.
10866         * libgnat/s-statxd.ads: Likewise.
10867         * libgnat/s-stausa.adb: Likewise.
10868         * libgnat/s-stausa.ads: Likewise.
10869         * libgnat/s-stchop.adb: Likewise.
10870         * libgnat/s-stchop.ads: Likewise.
10871         * libgnat/s-stchop__limit.ads: Likewise.
10872         * libgnat/s-stchop__rtems.adb: Likewise.
10873         * libgnat/s-stchop__vxworks.adb: Likewise.
10874         * libgnat/s-stoele.adb: Likewise.
10875         * libgnat/s-stoele.ads: Likewise.
10876         * libgnat/s-stopoo.adb: Likewise.
10877         * libgnat/s-stopoo.ads: Likewise.
10878         * libgnat/s-stposu.adb: Likewise.
10879         * libgnat/s-stposu.ads: Likewise.
10880         * libgnat/s-stratt.adb: Likewise.
10881         * libgnat/s-stratt.ads: Likewise.
10882         * libgnat/s-strcom.adb: Likewise.
10883         * libgnat/s-strcom.ads: Likewise.
10884         * libgnat/s-strhas.adb: Likewise.
10885         * libgnat/s-strhas.ads: Likewise.
10886         * libgnat/s-string.adb: Likewise.
10887         * libgnat/s-string.ads: Likewise.
10888         * libgnat/s-strops.adb: Likewise.
10889         * libgnat/s-strops.ads: Likewise.
10890         * libgnat/s-ststop.adb: Likewise.
10891         * libgnat/s-ststop.ads: Likewise.
10892         * libgnat/s-tasloc.adb: Likewise.
10893         * libgnat/s-tasloc.ads: Likewise.
10894         * libgnat/s-thread.ads: Likewise.
10895         * libgnat/s-thread__ae653.adb: Likewise.
10896         * libgnat/s-traceb.adb: Likewise.
10897         * libgnat/s-traceb.ads: Likewise.
10898         * libgnat/s-traceb__hpux.adb: Likewise.
10899         * libgnat/s-traceb__mastop.adb: Likewise.
10900         * libgnat/s-traent.adb: Likewise.
10901         * libgnat/s-traent.ads: Likewise.
10902         * libgnat/s-trasym.adb: Likewise.
10903         * libgnat/s-trasym.ads: Likewise.
10904         * libgnat/s-trasym__dwarf.adb: Likewise.
10905         * libgnat/s-tsmona.adb: Likewise.
10906         * libgnat/s-tsmona__linux.adb: Likewise.
10907         * libgnat/s-tsmona__mingw.adb: Likewise.
10908         * libgnat/s-unstyp.ads: Likewise.
10909         * libgnat/s-utf_32.adb: Likewise.
10910         * libgnat/s-utf_32.ads: Likewise.
10911         * libgnat/s-vade128.ads: Likewise.
10912         * libgnat/s-vade32.ads: Likewise.
10913         * libgnat/s-vade64.ads: Likewise.
10914         * libgnat/s-vafi128.ads: Likewise.
10915         * libgnat/s-vafi32.ads: Likewise.
10916         * libgnat/s-vafi64.ads: Likewise.
10917         * libgnat/s-valboo.adb: Likewise.
10918         * libgnat/s-valboo.ads: Likewise.
10919         * libgnat/s-valcha.adb: Likewise.
10920         * libgnat/s-valcha.ads: Likewise.
10921         * libgnat/s-valenu.adb: Likewise.
10922         * libgnat/s-valenu.ads: Likewise.
10923         * libgnat/s-valflt.ads: Likewise.
10924         * libgnat/s-valint.adb: Likewise.
10925         * libgnat/s-valint.ads: Likewise.
10926         * libgnat/s-vallfl.ads: Likewise.
10927         * libgnat/s-valllf.ads: Likewise.
10928         * libgnat/s-vallli.adb: Likewise.
10929         * libgnat/s-vallli.ads: Likewise.
10930         * libgnat/s-valllli.ads: Likewise.
10931         * libgnat/s-vallllu.ads: Likewise.
10932         * libgnat/s-valllu.adb: Likewise.
10933         * libgnat/s-valllu.ads: Likewise.
10934         * libgnat/s-valrea.adb: Likewise.
10935         * libgnat/s-valrea.ads: Likewise.
10936         * libgnat/s-valued.adb: Likewise.
10937         * libgnat/s-valued.ads: Likewise.
10938         * libgnat/s-valuef.adb: Likewise.
10939         * libgnat/s-valuef.ads: Likewise.
10940         * libgnat/s-valuei.adb: Likewise.
10941         * libgnat/s-valuei.ads: Likewise.
10942         * libgnat/s-valuer.adb: Likewise.
10943         * libgnat/s-valuer.ads: Likewise.
10944         * libgnat/s-valueu.adb: Likewise.
10945         * libgnat/s-valueu.ads: Likewise.
10946         * libgnat/s-valuns.adb: Likewise.
10947         * libgnat/s-valuns.ads: Likewise.
10948         * libgnat/s-valuti.adb: Likewise.
10949         * libgnat/s-valuti.ads: Likewise.
10950         * libgnat/s-valwch.adb: Likewise.
10951         * libgnat/s-valwch.ads: Likewise.
10952         * libgnat/s-veboop.adb: Likewise.
10953         * libgnat/s-veboop.ads: Likewise.
10954         * libgnat/s-vector.ads: Likewise.
10955         * libgnat/s-vercon.adb: Likewise.
10956         * libgnat/s-vercon.ads: Likewise.
10957         * libgnat/s-wchcnv.adb: Likewise.
10958         * libgnat/s-wchcnv.ads: Likewise.
10959         * libgnat/s-wchcon.adb: Likewise.
10960         * libgnat/s-wchcon.ads: Likewise.
10961         * libgnat/s-wchjis.adb: Likewise.
10962         * libgnat/s-wchjis.ads: Likewise.
10963         * libgnat/s-wchstw.adb: Likewise.
10964         * libgnat/s-wchstw.ads: Likewise.
10965         * libgnat/s-wchwts.adb: Likewise.
10966         * libgnat/s-wchwts.ads: Likewise.
10967         * libgnat/s-widboo.adb: Likewise.
10968         * libgnat/s-widboo.ads: Likewise.
10969         * libgnat/s-widcha.adb: Likewise.
10970         * libgnat/s-widcha.ads: Likewise.
10971         * libgnat/s-widenu.adb: Likewise.
10972         * libgnat/s-widenu.ads: Likewise.
10973         * libgnat/s-widint.ads: Likewise.
10974         * libgnat/s-widlli.adb: Likewise.
10975         * libgnat/s-widlli.ads: Likewise.
10976         * libgnat/s-widllli.ads: Likewise.
10977         * libgnat/s-widlllu.ads: Likewise.
10978         * libgnat/s-widllu.adb: Likewise.
10979         * libgnat/s-widllu.ads: Likewise.
10980         * libgnat/s-widthi.adb: Likewise.
10981         * libgnat/s-widthi.ads: Likewise.
10982         * libgnat/s-widthu.adb: Likewise.
10983         * libgnat/s-widthu.ads: Likewise.
10984         * libgnat/s-widuns.ads: Likewise.
10985         * libgnat/s-widwch.adb: Likewise.
10986         * libgnat/s-widwch.ads: Likewise.
10987         * libgnat/s-win32.ads: Likewise.
10988         * libgnat/s-winext.ads: Likewise.
10989         * libgnat/s-wwdcha.adb: Likewise.
10990         * libgnat/s-wwdcha.ads: Likewise.
10991         * libgnat/s-wwdenu.adb: Likewise.
10992         * libgnat/s-wwdenu.ads: Likewise.
10993         * libgnat/s-wwdwch.adb: Likewise.
10994         * libgnat/s-wwdwch.ads: Likewise.
10995         * libgnat/system-aix.ads: Likewise.
10996         * libgnat/system-darwin-arm.ads: Likewise.
10997         * libgnat/system-darwin-ppc.ads: Likewise.
10998         * libgnat/system-darwin-x86.ads: Likewise.
10999         * libgnat/system-djgpp.ads: Likewise.
11000         * libgnat/system-dragonfly-x86_64.ads: Likewise.
11001         * libgnat/system-freebsd.ads: Likewise.
11002         * libgnat/system-hpux-ia64.ads: Likewise.
11003         * libgnat/system-hpux.ads: Likewise.
11004         * libgnat/system-linux-alpha.ads: Likewise.
11005         * libgnat/system-linux-arm.ads: Likewise.
11006         * libgnat/system-linux-hppa.ads: Likewise.
11007         * libgnat/system-linux-ia64.ads: Likewise.
11008         * libgnat/system-linux-m68k.ads: Likewise.
11009         * libgnat/system-linux-mips.ads: Likewise.
11010         * libgnat/system-linux-ppc.ads: Likewise.
11011         * libgnat/system-linux-riscv.ads: Likewise.
11012         * libgnat/system-linux-s390.ads: Likewise.
11013         * libgnat/system-linux-sh4.ads: Likewise.
11014         * libgnat/system-linux-sparc.ads: Likewise.
11015         * libgnat/system-linux-x86.ads: Likewise.
11016         * libgnat/system-lynxos178-ppc.ads: Likewise.
11017         * libgnat/system-lynxos178-x86.ads: Likewise.
11018         * libgnat/system-mingw.ads: Likewise.
11019         * libgnat/system-qnx-aarch64.ads: Likewise.
11020         * libgnat/system-rtems.ads: Likewise.
11021         * libgnat/system-solaris-sparc.ads: Likewise.
11022         * libgnat/system-solaris-x86.ads: Likewise.
11023         * libgnat/system-vxworks-arm-rtp-smp.ads: Likewise.
11024         * libgnat/system-vxworks-arm-rtp.ads: Likewise.
11025         * libgnat/system-vxworks-arm.ads: Likewise.
11026         * libgnat/system-vxworks-e500-kernel.ads: Likewise.
11027         * libgnat/system-vxworks-e500-rtp-smp.ads: Likewise.
11028         * libgnat/system-vxworks-e500-rtp.ads: Likewise.
11029         * libgnat/system-vxworks-e500-vthread.ads: Likewise.
11030         * libgnat/system-vxworks-ppc-kernel.ads: Likewise.
11031         * libgnat/system-vxworks-ppc-ravenscar.ads: Likewise.
11032         * libgnat/system-vxworks-ppc-rtp-smp.ads: Likewise.
11033         * libgnat/system-vxworks-ppc-rtp.ads: Likewise.
11034         * libgnat/system-vxworks-ppc-vthread.ads: Likewise.
11035         * libgnat/system-vxworks-ppc.ads: Likewise.
11036         * libgnat/system-vxworks-x86-kernel.ads: Likewise.
11037         * libgnat/system-vxworks-x86-rtp-smp.ads: Likewise.
11038         * libgnat/system-vxworks-x86-rtp.ads: Likewise.
11039         * libgnat/system-vxworks-x86-vthread.ads: Likewise.
11040         * libgnat/system-vxworks-x86.ads: Likewise.
11041         * libgnat/system-vxworks7-aarch64-rtp-smp.ads: Likewise.
11042         * libgnat/system-vxworks7-aarch64.ads: Likewise.
11043         * libgnat/system-vxworks7-arm-rtp-smp.ads: Likewise.
11044         * libgnat/system-vxworks7-arm.ads: Likewise.
11045         * libgnat/system-vxworks7-e500-kernel.ads: Likewise.
11046         * libgnat/system-vxworks7-e500-rtp-smp.ads: Likewise.
11047         * libgnat/system-vxworks7-e500-rtp.ads: Likewise.
11048         * libgnat/system-vxworks7-ppc-kernel.ads: Likewise.
11049         * libgnat/system-vxworks7-ppc-rtp-smp.ads: Likewise.
11050         * libgnat/system-vxworks7-ppc-rtp.ads: Likewise.
11051         * libgnat/system-vxworks7-ppc64-kernel.ads: Likewise.
11052         * libgnat/system-vxworks7-ppc64-rtp-smp.ads: Likewise.
11053         * libgnat/system-vxworks7-x86-kernel.ads: Likewise.
11054         * libgnat/system-vxworks7-x86-rtp-smp.ads: Likewise.
11055         * libgnat/system-vxworks7-x86-rtp.ads: Likewise.
11056         * libgnat/system-vxworks7-x86_64-kernel.ads: Likewise.
11057         * libgnat/system-vxworks7-x86_64-rtp-smp.ads: Likewise.
11058         * link.c: Likewise.
11059         * live.adb: Likewise.
11060         * live.ads: Likewise.
11061         * locales.c: Likewise.
11062         * make.adb: Likewise.
11063         * make.ads: Likewise.
11064         * make_util.adb: Likewise.
11065         * make_util.ads: Likewise.
11066         * makeusg.adb: Likewise.
11067         * makeusg.ads: Likewise.
11068         * mdll-fil.adb: Likewise.
11069         * mdll-fil.ads: Likewise.
11070         * mdll-utl.adb: Likewise.
11071         * mdll-utl.ads: Likewise.
11072         * mdll.adb: Likewise.
11073         * mdll.ads: Likewise.
11074         * mingw32.h: Likewise.
11075         * mkdir.c: Likewise.
11076         * namet-sp.adb: Likewise.
11077         * namet-sp.ads: Likewise.
11078         * namet.adb: Likewise.
11079         * namet.ads: Likewise.
11080         * namet.h: Likewise.
11081         * nlists.adb: Likewise.
11082         * nlists.ads: Likewise.
11083         * nlists.h: Likewise.
11084         * opt.adb: Likewise.
11085         * opt.ads: Likewise.
11086         * osint-b.adb: Likewise.
11087         * osint-b.ads: Likewise.
11088         * osint-c.adb: Likewise.
11089         * osint-c.ads: Likewise.
11090         * osint-l.adb: Likewise.
11091         * osint-l.ads: Likewise.
11092         * osint-m.adb: Likewise.
11093         * osint-m.ads: Likewise.
11094         * osint.adb: Likewise.
11095         * osint.ads: Likewise.
11096         * output.adb: Likewise.
11097         * output.ads: Likewise.
11098         * par-ch10.adb: Likewise.
11099         * par-ch11.adb: Likewise.
11100         * par-ch12.adb: Likewise.
11101         * par-ch13.adb: Likewise.
11102         * par-ch2.adb: Likewise.
11103         * par-ch3.adb: Likewise.
11104         * par-ch4.adb: Likewise.
11105         * par-ch5.adb: Likewise.
11106         * par-ch6.adb: Likewise.
11107         * par-ch7.adb: Likewise.
11108         * par-ch8.adb: Likewise.
11109         * par-ch9.adb: Likewise.
11110         * par-endh.adb: Likewise.
11111         * par-labl.adb: Likewise.
11112         * par-load.adb: Likewise.
11113         * par-prag.adb: Likewise.
11114         * par-sync.adb: Likewise.
11115         * par-tchk.adb: Likewise.
11116         * par-util.adb: Likewise.
11117         * par.adb: Likewise.
11118         * par.ads: Likewise.
11119         * par_sco.adb: Likewise.
11120         * par_sco.ads: Likewise.
11121         * pprint.adb: Likewise.
11122         * pprint.ads: Likewise.
11123         * prep.adb: Likewise.
11124         * prep.ads: Likewise.
11125         * prepcomp.adb: Likewise.
11126         * prepcomp.ads: Likewise.
11127         * put_scos.adb: Likewise.
11128         * put_scos.ads: Likewise.
11129         * raise-gcc.c: Likewise.
11130         * raise.c: Likewise.
11131         * raise.h: Likewise.
11132         * repinfo-input.adb: Likewise.
11133         * repinfo-input.ads: Likewise.
11134         * repinfo.adb: Likewise.
11135         * repinfo.ads: Likewise.
11136         * repinfo.h: Likewise.
11137         * restrict.adb: Likewise.
11138         * restrict.ads: Likewise.
11139         * rident.ads: Likewise.
11140         * rtfinal.c: Likewise.
11141         * rtinit.c: Likewise.
11142         * rtsfind.adb: Likewise.
11143         * rtsfind.ads: Likewise.
11144         * runtime.h: Likewise.
11145         * s-oscons-tmplt.c: Likewise.
11146         * sa_messages.adb: Likewise.
11147         * sa_messages.ads: Likewise.
11148         * scans.adb: Likewise.
11149         * scans.ads: Likewise.
11150         * scil_ll.adb: Likewise.
11151         * scil_ll.ads: Likewise.
11152         * scn.adb: Likewise.
11153         * scn.ads: Likewise.
11154         * scng.adb: Likewise.
11155         * scng.ads: Likewise.
11156         * scos.adb: Likewise.
11157         * scos.ads: Likewise.
11158         * scos.h: Likewise.
11159         * sdefault.ads: Likewise.
11160         * seh_init.c: Likewise.
11161         * sem.adb: Likewise.
11162         * sem.ads: Likewise.
11163         * sem_aggr.adb: Likewise.
11164         * sem_aggr.ads: Likewise.
11165         * sem_attr.adb: Likewise.
11166         * sem_attr.ads: Likewise.
11167         * sem_aux.adb: Likewise.
11168         * sem_aux.ads: Likewise.
11169         * sem_case.adb: Likewise.
11170         * sem_case.ads: Likewise.
11171         * sem_cat.adb: Likewise.
11172         * sem_cat.ads: Likewise.
11173         * sem_ch10.adb: Likewise.
11174         * sem_ch10.ads: Likewise.
11175         * sem_ch11.adb: Likewise.
11176         * sem_ch11.ads: Likewise.
11177         * sem_ch12.adb: Likewise.
11178         * sem_ch12.ads: Likewise.
11179         * sem_ch13.adb: Likewise.
11180         * sem_ch13.ads: Likewise.
11181         * sem_ch2.adb: Likewise.
11182         * sem_ch2.ads: Likewise.
11183         * sem_ch3.adb: Likewise.
11184         * sem_ch3.ads: Likewise.
11185         * sem_ch4.adb: Likewise.
11186         * sem_ch4.ads: Likewise.
11187         * sem_ch5.adb: Likewise.
11188         * sem_ch5.ads: Likewise.
11189         * sem_ch6.adb: Likewise.
11190         * sem_ch6.ads: Likewise.
11191         * sem_ch7.adb: Likewise.
11192         * sem_ch7.ads: Likewise.
11193         * sem_ch8.adb: Likewise.
11194         * sem_ch8.ads: Likewise.
11195         * sem_ch9.adb: Likewise.
11196         * sem_ch9.ads: Likewise.
11197         * sem_dim.adb: Likewise.
11198         * sem_dim.ads: Likewise.
11199         * sem_disp.adb: Likewise.
11200         * sem_disp.ads: Likewise.
11201         * sem_dist.adb: Likewise.
11202         * sem_dist.ads: Likewise.
11203         * sem_elab.adb: Likewise.
11204         * sem_elab.ads: Likewise.
11205         * sem_elim.adb: Likewise.
11206         * sem_elim.ads: Likewise.
11207         * sem_eval.adb: Likewise.
11208         * sem_eval.ads: Likewise.
11209         * sem_intr.adb: Likewise.
11210         * sem_intr.ads: Likewise.
11211         * sem_mech.adb: Likewise.
11212         * sem_mech.ads: Likewise.
11213         * sem_prag.adb: Likewise.
11214         * sem_prag.ads: Likewise.
11215         * sem_res.adb: Likewise.
11216         * sem_res.ads: Likewise.
11217         * sem_scil.adb: Likewise.
11218         * sem_scil.ads: Likewise.
11219         * sem_smem.adb: Likewise.
11220         * sem_smem.ads: Likewise.
11221         * sem_type.adb: Likewise.
11222         * sem_type.ads: Likewise.
11223         * sem_util.adb: Likewise.
11224         * sem_util.ads: Likewise.
11225         * sem_warn.adb: Likewise.
11226         * sem_warn.ads: Likewise.
11227         * set_targ.adb: Likewise.
11228         * set_targ.ads: Likewise.
11229         * sfn_scan.adb: Likewise.
11230         * sfn_scan.ads: Likewise.
11231         * sigtramp-armdroid.c: Likewise.
11232         * sigtramp-ios.c: Likewise.
11233         * sigtramp-qnx.c: Likewise.
11234         * sigtramp-vxworks.c: Likewise.
11235         * sigtramp.h: Likewise.
11236         * sinfo-cn.adb: Likewise.
11237         * sinfo-cn.ads: Likewise.
11238         * sinfo.adb: Likewise.
11239         * sinfo.ads: Likewise.
11240         * sinput-c.adb: Likewise.
11241         * sinput-c.ads: Likewise.
11242         * sinput-d.adb: Likewise.
11243         * sinput-d.ads: Likewise.
11244         * sinput-l.adb: Likewise.
11245         * sinput-l.ads: Likewise.
11246         * sinput.adb: Likewise.
11247         * sinput.ads: Likewise.
11248         * snames.adb-tmpl: Likewise.
11249         * snames.ads-tmpl: Likewise.
11250         * socket.c: Likewise.
11251         * spark_xrefs.adb: Likewise.
11252         * spark_xrefs.ads: Likewise.
11253         * sprint.adb: Likewise.
11254         * sprint.ads: Likewise.
11255         * stand.ads: Likewise.
11256         * stringt.adb: Likewise.
11257         * stringt.ads: Likewise.
11258         * stringt.h: Likewise.
11259         * style.adb: Likewise.
11260         * style.ads: Likewise.
11261         * styleg.adb: Likewise.
11262         * styleg.ads: Likewise.
11263         * stylesw.adb: Likewise.
11264         * stylesw.ads: Likewise.
11265         * switch-b.adb: Likewise.
11266         * switch-b.ads: Likewise.
11267         * switch-c.adb: Likewise.
11268         * switch-c.ads: Likewise.
11269         * switch-m.adb: Likewise.
11270         * switch-m.ads: Likewise.
11271         * switch.adb: Likewise.
11272         * switch.ads: Likewise.
11273         * sysdep.c: Likewise.
11274         * table.adb: Likewise.
11275         * table.ads: Likewise.
11276         * targext.c: Likewise.
11277         * targparm.adb: Likewise.
11278         * targparm.ads: Likewise.
11279         * tbuild.adb: Likewise.
11280         * tbuild.ads: Likewise.
11281         * tempdir.adb: Likewise.
11282         * tempdir.ads: Likewise.
11283         * terminals.c: Likewise.
11284         * tracebak.c: Likewise.
11285         * treepr.adb: Likewise.
11286         * treepr.ads: Likewise.
11287         * ttypes.ads: Likewise.
11288         * types.adb: Likewise.
11289         * types.ads: Likewise.
11290         * types.h: Likewise.
11291         * uintp.adb: Likewise.
11292         * uintp.ads: Likewise.
11293         * uintp.h: Likewise.
11294         * uname.adb: Likewise.
11295         * uname.ads: Likewise.
11296         * urealp.adb: Likewise.
11297         * urealp.ads: Likewise.
11298         * urealp.h: Likewise.
11299         * usage.adb: Likewise.
11300         * usage.ads: Likewise.
11301         * validsw.adb: Likewise.
11302         * validsw.ads: Likewise.
11303         * vast.adb: Likewise.
11304         * vast.ads: Likewise.
11305         * warnsw.adb: Likewise.
11306         * warnsw.ads: Likewise.
11307         * widechar.adb: Likewise.
11308         * widechar.ads: Likewise.
11309         * xeinfo.adb: Likewise.
11310         * xnmake.adb: Likewise.
11311         * xoscons.adb: Likewise.
11312         * xr_tabls.adb: Likewise.
11313         * xr_tabls.ads: Likewise.
11314         * xref_lib.adb: Likewise.
11315         * xref_lib.ads: Likewise.
11316         * xsinfo.adb: Likewise.
11317         * xsnamest.adb: Likewise.
11318         * xtreeprs.adb: Likewise.
11319         * xutil.adb: Likewise.
11320         * xutil.ads: Likewise.
11322 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11324         * exp_dist.adb (Build_From_Any_Call): Remove initial value for
11325         Fnam; fix style.
11326         (Build_To_Any_Call): Remove initial value for Fnam.
11327         (Build_TypeCode_Call): Likewise.
11329 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11331         * checks.adb, exp_aggr.adb, exp_attr.adb, exp_ch6.adb,
11332         exp_disp.adb, exp_imgv.adb, exp_util.adb, sem_attr.adb,
11333         sem_ch13.adb, sem_ch8.adb, sem_eval.adb, sem_scil.adb,
11334         sem_util.adb: Replace calls to RTE with Is_RTE.
11336 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11338         * sem_ch4.adb (Try_Object_Operation): Reuse local constant.
11340 2021-05-03  Ed Schonberg  <schonberg@adacore.com>
11342         * sem_ch4.adb (Try_Object_Operation): When a prefixed call is
11343         overloaded and illegal, and the All_Errors flag is off, generate
11344         an error message if the re-analysis of some candidate
11345         interpretation fails to produce one.
11347 2021-05-03  Dmitriy Anisimkov  <anisimko@adacore.com>
11349         * libgnat/g-casuti.adb: Replace with "pragma No_Body".
11350         * libgnat/g-casuti.ads: Replace with a package renaming.
11352 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11354         * sem_attr.adb (Check_Program_Unit): Fix references to
11355         Concurrent_Kind and Is_Concurrent_Type; avoid repeated calls to
11356         Entity.
11358 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11360         * sem_attr.adb (Check_Program_Unit): Replace tests for Task_Kind
11361         and Protected_Kind with a collective test for Concurrent_Kind;
11362         likewise, replace calls to Is_Task_Type and Is_Protected_Type
11363         with a collective call to Is_Concurrent_Type; simplify into a
11364         single membership test; add missing Entry_Kind alternative.
11366 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11368         * sem_aggr.adb (Resolve_Record_Aggregate): Fix casing in error
11369         message.
11370         * sem_ch3.adb (Add_Internal_Interface_Entities): Fix unbalanced
11371         parens.
11372         * sem_elim.adb (Eliminate_Error_Msg): Add insertion character.
11374 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11376         * freeze.adb (Freeze_Profile): Replace Error_Msg_NE with
11377         Error_Msg_N; change to continuation message.
11378         * sem_cat.adb, sem_ch10.adb, sem_ch12.adb, sem_ch5.adb: Replace
11379         calls to Error_Msg_NE with calls to Error_Msg_N.
11381 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11383         * exp_disp.adb, sem_aggr.adb, sem_cat.adb, sem_ch10.adb,
11384         sem_ch12.adb, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb,
11385         sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_prag.adb,
11386         sem_res.adb: Remove extra leading and trailing space in error
11387         messages.
11389 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
11391         * sem_prag.adb (Set_Exported): Do not warn on exporting a type.
11393 2021-05-03  Ed Schonberg  <schonberg@adacore.com>
11395         * sem_warn.adb (Check_References): Do not emit warning on a
11396         selected component when enclosing type has no discriminant and
11397         type of component has partial initialization.
11399 2021-05-03  Justin Squirek  <squirek@adacore.com>
11401         * contracts.adb (Build_Postconditions_Procedure): Remove
11402         internally generated if statement used to control finalization
11403         actions.
11404         * exp_ch6.adb (Add_Return, Expand_Non_Function_Return,
11405         Expand_Simple_Function_Return): Add if statement around
11406         _postconditions to control finalization.
11407         * exp_ch7.adb (Build_Finalizer): Likewise.
11408         * sem_prag.adb (Find_Related_Declaration_Or_Body): Add case to
11409         handle Context itself being a handled sequence of statements.
11411 2021-05-03  Justin Squirek  <squirek@adacore.com>
11413         * sem_util.adb (In_Return_Value): Modified to detect when
11414         implicit dereference is specified on the return type of a
11415         function call within the expression being checked.
11417 2021-05-03  Ed Schonberg  <schonberg@adacore.com>
11419         * exp_aggr.adb (Expand_Array_Aggregate): If the parent node of
11420         the aggregate is a subprogram call there is no target in which
11421         to build the aggregate, and it has to be expanded into component
11422         assignments.
11424 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11426         * exp_prag.adb (Expand_Pragma_CUDA_Execute): Refill comments;
11427         remove periods after single-line comments; use procedural
11428         variant of Next_Entity.
11429         * gnat_cuda.adb: Refill comments; remove periods after
11430         single-line comments; replace calls to UI_From_Int with
11431         constants; change iteration bounds so they match the comments.
11432         * sem_prag.adb (Analyze_Pragma): Add checks for malformed pragma
11433         CUDA_Kernel aggregate; simplify processing of pragma CUDA_Global
11434         with Check_Arg_Count; sync comment with code for CUDA_Global.
11436 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
11438         * tbuild.adb (Make_Implicit_Loop_Statement): Disable restriction
11439         checking on dead paths.
11441 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
11443         * sem_util.adb (Check_Result_And_Post_State): Replace custom
11444         Has_In_Out_Parameter with existing Has_Out_Or_In_Out_Parameter
11445         flag which corresponds exactly to what we need.
11447 2021-05-03  Arnaud Charlet  <charlet@adacore.com>
11449         * libgnat/a-ztcoio.adb: Remove unused with clause.
11451 2021-05-03  Piotr Trojanek  <trojanek@adacore.com>
11453         * sem_ch13.adb (Build_Predicate_Functions): Fix typo in comment.
11454         (Resolve_Aspect_Expressions): Fix typo in comment; remove
11455         redundant check for no aspects; simplify with Discard_Node.
11457 2021-05-03  Ed Schonberg  <schonberg@adacore.com>
11459         * sem_util.adb (Build_Constrained_Itype): Remove prior patch,
11460         issue is better handled in Sem_Ch13.Build_Predicate_Functions.
11461         * sem_ch13.adb (Build_Predicate_Functions): Do not build
11462         predicate function for an Itype with a defined
11463         Predicated_Parent, even if that designated parent does not yet
11464         have a Predicate_Function. This can happen in instance bodies
11465         nested within a generic unit.
11467 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11469         * exp_attr.adb (Expand_N_Attribute_Reference)
11470         <Attribute_Max_Size_In_Storage_Elements>: Apply the checks for
11471         universal integer contexts only in the default case.
11472         * exp_ch4.adb (Get_Size_For_Range): Move to library level.
11473         (Expand_N_Type_Conversion): If the operand has Universal_Integer
11474         type and the conversion requires an overflow check, try to do an
11475         intermediate conversion to a narrower type.
11477 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11479         * sem_ch3.adb (Check_Anonymous_Access_Component): Factor out
11480         core processing of Check_Anonymous_Access_Components.
11481         (Check_Anonymous_Access_Components): Call
11482         Check_Anonymous_Access_Component.
11483         (Process_Discriminants): Call Check_Anonymous_Access_Component.
11484         * freeze.adb (Freeze_Record_Type): Code cleanups and add more tree
11485         checking to handle changes in sem_ch3.adb.
11486         * sem_ch8.adb (Find_Type): Remove special case for access
11487         discriminant in task types, these are now supported.
11489 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11491         * exp_ch4.adb (Expand_Compare_Minimize_Eliminate_Overflow): Remove
11492         entry condition.
11493         (Expand_N_In): Call Minimized_Eliminated_Overflow_Check on the left
11494         operand before doing the special overflow expansion.
11495         (Expand_N_Op_Eq): Likewise.
11496         (Expand_N_Op_Ge): Likewise.
11497         (Expand_N_Op_Gt): Likewise.
11498         (Expand_N_Op_Le): Likewise.
11499         (Expand_N_Op_Lt): Likewise.
11500         (Expand_N_Op_Ne): Likewise.
11501         (Minimized_Eliminated_Overflow_Check): Return False for Minimized
11502         if the size of the type is greater than that of Long_Long_Integer.
11504 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11506         * exp_ch5.adb (Expand_N_If_Statement): Only perform the
11507         simplification on return True/False for internal nodes when
11508         -fpreserve-control-flow is not set.
11510 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11512         * sem_attr.adb (Eval_Attribute) <Attribute_Machine>: Use
11513         Round_Even instead of Round in the call to the Machine routine.
11515 2021-04-29  Bob Duff  <duff@adacore.com>
11517         * sem_attr.adb (Analyze_Attribute): Change "$" to "&".
11518         Otherwise, Errout will trip over an uninitialized (invalid)
11519         variable (Error_Msg_Unit_1).
11521 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11523         * libgnat/s-valuer.adb (Scan_Decimal_Digits): Set Extra to zero
11524         when the precision limit is reached by means of trailing zeros
11525         and prevent it from being overwritten later.
11527 2021-04-29  Yannick Moy  <moy@adacore.com>
11529         * errout.adb (Output_Messages): Insert SGR strings where needed.
11530         * erroutc.adb (Output_Message_Txt): Insert SGR strings where
11531         needed in the text of the message itself.
11532         (Output_Msg_Text): Allow for style message not to start
11533         with (style).
11534         * erroutc.ads: Add new constants and functions to control colors
11535         in messages output to the terminal. Add variable Use_SGR_Control
11536         that should be set to True for using SGR color control strings.
11538 2021-04-29  Yannick Moy  <moy@adacore.com>
11540         * sem_eval.adb (Check_Non_Static_Context_For_Overflow): Apply
11541         compile-time checking for overflows in non-static contexts
11542         including inlined code.
11543         (Eval_Arithmetic_Op): Use the new procedure.
11544         (Eval_Unary_Op, Eval_Op_Expon): Add call to the new procedure.
11546 2021-04-29  Justin Squirek  <squirek@adacore.com>
11548         * checks.adb (Apply_Type_Conversion_Checks): Move out constraint
11549         check generation, and add case for general access types with
11550         constraints.
11551         (Make_Discriminant_Constraint_Check): Created to centralize
11552         generation of constraint checks for stored discriminants.
11554 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11556         * gnat1drv.adb (Adjust_Global_Switches): Force a 32-bit Duration
11557         type if the maximum integer size is lower than 64 bits.
11559 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11561         * Makefile.rtl (ADA_EXCLUDE_SRCS): Remove unused files.
11562         (ADA_INCLUDE_SRCS): Remove libgnat/system.ads
11564 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11566         * exp_aggr.adb (Collect_Initialization_Statements): Removed.
11567         (Convert_Aggr_In_Object_Decl, Expand_Array_Aggregate): Fix
11568         creation and insertion of Initialization_Statements.  Do not set
11569         Initialization_Statements when a transient scope is involved.
11570         Move processing of Array_Slice here.  Ensure that an object with
11571         an Array_Slice call gets its array component initialized.  Add
11572         comments.
11573         * exp_ch7.adb: Update comments.
11574         (Store_Actions_In_Scope): Deal properly with an empty list which
11575         might now be generated by Convert_Aggr_In_Object_Decl.
11576         * exp_ch3.adb: Update comments.
11577         (Expand_N_Object_Declaration): Remove processing of Array_Slice.
11579 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11581         * sem_ch8.adb (Analyze_Object_Renaming): Update check for
11582         AI12-0401.
11584 2021-04-29  Patrick Bernardi  <bernardi@adacore.com>
11586         * libgnat/s-stoele.ads (Storage_Offset): Cleanup comment.
11588 2021-04-29  Gary Dismukes  <dismukes@adacore.com>
11590         * exp_util.adb (Add_Own_DIC): Relax the suppression of adding a
11591         DIC Check pragma that's done for abstract types by still doing
11592         it in the case where GNATprove_Mode is set.
11594 2021-04-29  Joel Brobecker  <brobecker@adacore.com>
11596         * Makefile.rtl (ADA_EXCLUDE_SRCS): Remove s-gcc.adb, s-gcc.ads,
11597         s-gccdiv.adb, s-gccdiv.ads, s-gccshi.adb and s-gccshi.ads.
11599 2021-04-29  Piotr Trojanek  <trojanek@adacore.com>
11601         * layout.adb (Layout_Type): Refine type of a local variable with
11602         the required size of object from Int to Pos (it is initialized
11603         with 8 and only multiplied by 2); fix unbalanced parens in
11604         comment.
11606 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11608         * eval_fat.adb (Succ): Use Ureal_Half in a couple of places.
11610 2021-04-29  Ed Schonberg  <schonberg@adacore.com>
11612         * sem_util.adb (Build_Constrained_Itype): Inhibit the generation
11613         of predicate functions for this Itype, which is created for an
11614         aggregate of a discriminated type. The object to which the
11615         aggregate is assigned, e.g a writable actual parameter, will
11616         apply the predicates if any are inherited from the base type.
11618 2021-04-29  Piotr Trojanek  <trojanek@adacore.com>
11620         * sem_cat.adb (Set_Categorization_From_Pragmas): Remove special
11621         case for generic child units; remove optimization for empty list
11622         of pragmas; properly restore visibility.
11624 2021-04-29  Piotr Trojanek  <trojanek@adacore.com>
11626         * sem_elab.adb (Process_SPARK_Instantiation): Fix typo in
11627         comment.
11628         * sem_prag.adb (Find_Related_Context): Add missing reference to
11629         No_Caching in the comment; handle pragmas on compilation units.
11631 2021-04-29  Piotr Trojanek  <trojanek@adacore.com>
11633         * doc/gnat_rm/implementation_defined_attributes.rst: Change all
11634         occurrences of "permissible prefix" to "allowed prefix", for
11635         consistency.
11636         * gnat_rm.texi: Regenerate.
11638 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11640         * eval_fat.adb (Succ): Add a special case for zero if the type does
11641         not support denormalized numbers.  Always use the canonical formula
11642         in other cases and add commentary throughout the function.
11644 2021-04-29  Eric Botcazou  <ebotcazou@adacore.com>
11646         * libgnat/s-fatgen.adb: Remove with clause for Interfaces and
11647         use type clauses for Interfaces.Unsigned_{16,32,64}.
11648         (Small16): Remove.
11649         (Small32): Likewise
11650         (Small64): Likewise.
11651         (Small80): Likewise.
11652         (Tiny16): Likewise.
11653         (Tiny32): Likewise.
11654         (Tiny64): Likewise.
11655         (Tiny80): Likewise.
11656         (Siz): Always use 16.
11657         (NR): New constant.
11658         (Rep_Last): Use it in the computation.
11659         (Exp_Factor): Remove special case for 80-bit.
11660         (Sign_Mask): Likewise.
11661         (Finite_Succ): New function implementing the Succ attribute for
11662         finite numbers.
11663         (Pred): Rewrite in terms of Finite_Succ.
11664         (Succ): Likewise.
11666 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11668         * debug_a.adb (Debug_Output_Astring): Remove obsolete comment.
11670 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11672         * sem_attr.adb (Check_Image_Type): Protect against empty
11673         Image_Type.
11675 2021-04-29  Arnaud Charlet  <charlet@adacore.com>
11677         * libgnat/a-nbnbin.ads (From_Universal_Image): New.
11678         (Big_Integer): Update definition.
11679         * libgnat/a-nbnbre.ads, libgnat/a-nbnbre.adb
11680         (From_Universal_Image): New.
11681         (From_String): Remove alternate body, replaced by
11682         From_Universal_Image.
11683         (Big_Real): Update definition.
11685 2021-04-29  Gary Dismukes  <dismukes@adacore.com>
11687         * sem_ch8.adb (Find_Type): Check the No_Obsolescent_Features
11688         restriction for 'Class applied to an untagged incomplete
11689         type (when Ada_Version >= Ada_2005).  Remove disabling of the
11690         warning message for such usage, along with the ??? comment,
11691         which no longer applies (because the -gnatg switch no longer
11692         sets Warn_On_Obsolescent_Feature).
11694 2021-04-29  Yannick Moy  <moy@adacore.com>
11696         * errout.adb (Error_Msg_NEL): Extract span from node.
11697         (First_And_Last_Nodes): Use spans for subtype indications and
11698         attribute definition clauses.
11699         (Write_Source_Code_Lines): Fix for tabulation characters. Change
11700         output for large spans to skip intermediate lines.
11701         * sem_case.adb (Check_Choice_Set): Report duplicate choice on
11702         the Original_Node for the case.
11703         (Generic_Check_Choices): Set the Original_Node for the rewritten
11704         case, so that the subtree used in spans has the correct
11705         locations.
11707 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11709         * sem_ch13.adb, sem_util.adb: Fix style.
11711 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11713         * nlists.ads (List_Length): Adapt comment to match the
11714         behaviour.
11716 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11718         * sem_eval.adb (Eval_Selected_Component): Only consider compile
11719         time known aggregates.
11721 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11723         * libgnat/s-fatgen.adb: Add use clause for Interfaces.Unsigned_16
11724         and Interfaces.Unsigned_32.
11725         (Small16): New constant.
11726         (Small32): Likewise.
11727         (Small64): Likewise.
11728         (Small80): Likewise.
11729         (Pred): Declare a local overlay for Small and return it negated
11730         for zero if the type does not support denormalized numbers.
11731         (Succ): Likewise, but return it directly.
11733 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11735         * inline.adb (Formal_Is_Used_Once): Refine type of the counter
11736         variable; remove redundant assignment.
11738 2021-04-28  Patrick Bernardi  <bernardi@adacore.com>
11740         * libgnarl/s-interr.adb (Install_Restricted_Handlers): Change
11741         Prio parameter to type Interrupt_Priority.
11742         * libgnarl/s-interr.ads (Install_Restricted_Handlers): Likewise.
11743         * libgnarl/s-interr__dummy.adb (Install_Restricted_Handlers):
11744         Likewise.
11745         * libgnarl/s-interr__hwint.adb (Install_Restricted_Handlers):
11746         Likewise.
11747         * libgnarl/s-interr__sigaction.adb (Install_Restricted_Handlers):
11748         Likewise.
11749         * libgnarl/s-interr__vxworks.adb (Install_Restricted_Handlers):
11750         Likewise.
11752 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11754         * sem_type.ads (Write_Interp_Ref): Removed; no longer needed.
11755         * sem_type.adb (Headers): Removed; now the hash table is
11756         directly in the Interp_Map alone.
11757         (Interp_Map): Now an instance of the GNAT.HTable.Simple_HTable.
11758         (Last_Overloaded): New variable to emulate Interp_Map.Last.
11759         (Add_One_Interp): Adapt to new data structure.
11760         (Get_First_Interp): Likewise.
11761         (Hash): Likewise.
11762         (Init_Interp_Tables): Likewise.
11763         (New_Interps): Likewise.
11764         (Save_Interps): Likewise; handle O_N variable like in
11765         Get_First_Interp.
11766         (Write_Interp_Ref): Removed; no longer needed.
11768 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11770         * inline.adb (Do_Reset_Calls): Now an instance of Traverse_Proc.
11772 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11774         * sem_ch13.adb (Analyze_Aspect_Static): Reuse
11775         Error_Msg_Ada_2020_Feature for aspect Static.
11776         (Analyze_One_Aspect): Likewise for aspect Full_Access.
11778 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11780         * sem_ch13.adb (Analyze_Aspect_Static): Refactor to have a
11781         single check for the expression being present; adapt comments.
11783 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11785         * sem_ch13.adb (Analyze_Aspect_Static): Use aspect name in the
11786         error message.
11788 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11790         * sem_eval.adb (Eval_Selected_Component): Simplify with
11791         Unqualify.
11793 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11795         * libgnat/s-valrea.adb (Fast2Sum): New function.
11796         (Integer_to_Real): Use it in an iterated addition with exact
11797         error handling for the case where an extra digit is needed.
11798         Move local variable now only used in the exponentiation case.
11800 2021-04-28  Yannick Moy  <moy@adacore.com>
11802         * errout.adb: (Error_Msg_Internal): Use span instead of
11803         location.
11804         (Error_Msg, Error_Msg_NEL): Add versions with span parameter.
11805         (Error_Msg_F, Error_Msg_FE, Error_Msg_N, Error_Msg_NE,
11806         Error_Msg_NW): Retrieve span from node.
11807         (First_Node): Use the new First_And_Last_Nodes.
11808         (First_And_Last_Nodes): Expand on previous First_Node. Apply to
11809         other nodes than expressions.
11810         (First_Sloc): Protect against inconsistent locations.
11811         (Last_Node): New function based on First_And_Last_Nodes.
11812         (Last_Sloc): New function similar to First_Sloc.
11813         (Output_Messages): Update output when -gnatdF is used. Use
11814         character ~ for making the span visible, similar to what is done
11815         in GCC and Clang.
11816         * errout.ads (Error_Msg, Error_Msg_NEL): Add versions with span
11817         parameter.
11818         (First_And_Last_Nodes, Last_Node, Last_Sloc): New subprograms.
11819         * erroutc.adb: Adapt to Sptr field being a span.
11820         * erroutc.ads (Error_Msg_Object): Change field Sptr from
11821         location to span.
11822         * errutil.adb: Adapt to Sptr field being a span.
11823         * freeze.adb: Use Errout reporting procedures for nodes to get
11824         spans.
11825         * par-ch3.adb: Likewise.
11826         * par-prag.adb: Likewise.
11827         * par-util.adb: Likewise.
11828         * sem_case.adb: Likewise.
11829         * sem_ch13.adb: Likewise.
11830         * sem_ch3.adb: Likewise.
11831         * sem_prag.adb: Likewise.
11832         * types.ads: (Source_Span): New type for spans.
11833         (To_Span): Basic constructors for spans.
11835 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11837         * einfo.adb (Discriminant_Constraint): Refine assertion.
11839 2021-04-28  Gary Dismukes  <dismukes@adacore.com>
11841         * exp_util.adb (Add_Own_DIC): Suppress expansion of a DIC pragma
11842         when the pragma occurs for an abstract type, since that could
11843         lead to a call to an abstract function, and such DIC checks can
11844         never be performed for abstract types in any case.
11845         * sem_disp.adb (Check_Dispatching_Context): Suppress the check
11846         for illegal calls to abstract subprograms when the call occurs
11847         within a Default_Initial_Condition aspect and the call is passed
11848         the current instance as an actual.
11849         (Has_Controlling_Current_Instance_Actual): New function to test
11850         a call to see if it has any actuals given by direct references
11851         to a current instance of a type
11852         * sem_res.adb (Resolve_Actuals): Issue an error for a call
11853         within a DIC aspect to a nonprimitive subprogram with an actual
11854         given by the name of the DIC type's current instance (which will
11855         show up as a reference to the formal parameter of a DIC
11856         procedure).
11858 2021-04-28  Ed Schonberg  <schonberg@adacore.com>
11860         * exp_ch3.adb (Expand_Record_Extension): Set Parent_Subtype on
11861         the type extension when within a generic unit, even though
11862         expansion is disabled, to allow for proper resolution of
11863         selected components inherited from an ancestor.
11865 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11867         * sem_aux.adb (Is_Limited_Type): Fix logic to check Is_Type
11868         before assuming Ent is a typo.
11869         * sem_ch4.adb (Analyze_Expression_With_Actions): Update
11870         comments, minor reformatting.
11871         * sem_res.adb (Resolve_Declare_Expression): Add protection
11872         against no type.
11874 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11876         * exp_ch6.adb: Fix typo in comment.
11877         * sem_ch3.adb (Access_Subprogram_Declaration): Add missing call
11878         to Create_Extra_Formals. Remove obsolete bootstrap check.
11879         * sem_eval.adb (Eval_Selected_Component): Simplify a
11880         selected_component on an aggregate.
11882 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11884         * fmap.ads (Reset_Tables): Remove outdated references to
11885         GNSA/ASIS.
11886         * sem_eval.ads (Initialize): Likewise.
11887         * sem_type.adb (Headers): Remove initialization at elaboration.
11888         * sem_type.ads (Init_Interp_Tables): Remove outdated reference
11889         to gnatf.
11890         * stringt.ads (Initialize): Fix style in comment.
11892 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11894         * sem_res.ads: Update reference in comment.
11895         * sem_type.ads: Fix casing in a name of a unit.
11897 2021-04-28  Yannick Moy  <moy@adacore.com>
11899         * ghost.adb (Check_Ghost_Context): Add continuation message when
11900         in predicate.
11902 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11904         * libgnat/s-valrea.adb (Integer_to_Real): Use a subtype of Num
11905         for the component type of the table of powers of ten.
11906         * libgnat/s-valuer.adb (Round_Extra): Add assertion on Base.
11908 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11910         * sem_ch5.adb (Analyze_Case_Statement): Extend optimization to
11911         all objects; fix typo in comment.
11913 2021-04-28  Piotr Trojanek  <trojanek@adacore.com>
11915         * exp_ch9.adb (Build_Barrier_Function): Refine type of a
11916         protected type entity.
11917         (Is_Pure_Barrier): Fix style.
11919 2021-04-28  Bob Duff  <duff@adacore.com>
11921         * exp_ch3.adb (Simple_Init_Defaulted_Type): Simplify the code,
11922         and always use OK_Convert_To, rather than Unchecked_Convert_To
11923         and Convert_To.
11925 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11927         * sem_ch3.adb (Analyze_Object_Declaration): Remove dead code.
11928         * ali.ads, ali.adb (Scan_ALI): Remove unused parameters.
11929         Remove unused code related to Xref lines.
11930         (Get_Typeref): Removed, no longer used.
11932 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11934         * exp_attr.adb (Build_Array_VS_Func, Build_Record_VS_Func,
11935         Expand_N_Attribute_Reference): Use Get_Fullest_View instead of
11936         Validated_View.
11937         (Build_Record_VS_Func): Adjust to keep using Validated_View.
11938         (Expand_N_Attribute_Reference) [Valid]: Use
11939         Small_Integer_Type_For to allow for more compile time
11940         evaluations.
11941         * sem_util.adb (Cannot_Raise_Constraint_Error): Add more precise
11942         support for N_Indexed_Component and fix support for
11943         N_Selected_Component which wasn't completely safe.
11944         (List_Cannot_Raise_CE): New.
11945         * libgnat/i-cobol.adb (Valid_Packed): Simplify test to address
11946         new GNAT warning.
11948 2021-04-28  Arnaud Charlet  <charlet@adacore.com>
11950         * .gitignore: New.
11951         * doc/share/conf.py: Add Python 3 compatibility.
11952         * doc/share/gnat.sty: Add missing file.
11954 2021-04-28  Richard Wai  <richard@annexi-strayline.com>
11956         * libgnat/a-cohase.ads (Cursor): Synchronize comments for the Cursor
11957         type definition to be consistent with identical definitions in other
11958         container packages. Add additional comments regarding the importance of
11959         maintaining the "Position" component for predefined equality.
11960         * libgnat/a-cohama.ads (Cursor): Likewise.
11961         * libgnat/a-cihama.ads (Cursor): Likewise.
11962         * libgnat/a-cohase.adb (Find, Insert): Ensure that Cursor objects
11963         always have their "Position" component set to ensure predefined
11964         equality works as required.
11965         * libgnat/a-cohama.adb (Find, Insert): Likewise.
11966         * libgnat/a-cihama.adb (Find, Insert): Likewise.
11968 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11970         * gcc-interface/decl.c (gnat_to_gnu_subprog_type): Do not demote a
11971         const or pure function because of a parameter whose type is pointer
11972         to function.
11973         * gcc-interface/trans.c (Call_to_gnu): Do not put back a conversion
11974         between an actual and a formal that are unconstrained array types.
11975         (gnat_gimplify_expr) <CALL_EXPR>: New case.
11976         * gcc-interface/utils2.c (build_binary_op): Do not use |= operator.
11977         (gnat_stabilize_reference_1): Likewise.
11978         (gnat_rewrite_reference): Likewise.
11979         (build_unary_op): Do not clear existing TREE_CONSTANT on the result.
11980         (gnat_build_constructor): Also accept the address of a constant
11981         CONSTRUCTOR as constant element.
11983 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11985         * gcc-interface/trans.c (is_array_of_scalar_type): New predicate.
11986         (find_decls_r): New function.
11987         (return_slot_opt_for_pure_call_p): New predicate.
11988         (Call_to_gnu): Do not create a temporary for the return value if the
11989         parent node is an aggregate.  If there is a target, try to apply the
11990         return slot optimization to regular calls to pure functions returning
11991         an array of scalar type.
11993 2021-04-28  Eric Botcazou  <ebotcazou@adacore.com>
11995         * gcc-interface/trans.c (language_function): Add comment.
11996         (loop_info_d): Add fndecl and invariants fields.
11997         (find_loop_for): Test fndecl instead of the context of var.
11998         (find_loop): New function.
11999         (Regular_Loop_to_gnu): Fold back into...
12000         (Loop_Statement_to_gnu): ...this.  Emit invariants on entry, if any.
12001         (gnat_to_gnu) <N_Selected_Component>: Record nonconstant invariant
12002         offset computations in loops when optimization is enabled.
12003         * gcc-interface/utils2.c (gnat_invariant_expr): Handle BIT_AND_EXPR.
12005 2021-04-20  Martin Liska  <mliska@suse.cz>
12007         * gnatvsn.ads: Bump Library_Version to 12.
12009 2021-04-13  Eric Botcazou  <ebotcazou@adacore.com>
12011         * gcc-interface/misc.c (gnat_init): Set default range bits to 0.
12012         * gcc-interface/trans.c (extract_encoding): Delete.
12013         (decode_name): Likewise.
12014         (File_Name_to_gnu): New function.
12015         (gigi): Call it to translate file names.  Replace assertion on
12016         1-1 mapping between files and line maps with conditional error.
12018 2021-04-11  Gerald Pfeifer  <gerald@pfeifer.com>
12020         * gnat_ugn.texi (Top): Avoid invalid "up" link.
12022 2021-03-29  Eric Botcazou  <ebotcazou@adacore.com>
12024         PR ada/99802
12025         * freeze.adb (Is_Full_Access_Aggregate): Call Is_Full_Access_Object
12026         on the name of an N_Assignment_Statement to spot full access.
12028 2021-03-10  Eric Botcazou  <ebotcazou@adacore.com>
12030         * gcc-interface/decl.c (gnat_to_gnu_entity): Build a TYPE_STUB_DECL
12031         for the main variant of an enumeration type declared as volatile.
12033 2021-03-09  Mikael Pettersson  <mikpelinux@gmail.com>
12035         * raise-gcc.c: On Cygwin include mingw32.h to prevent
12036         windows.h from including x86intrin.h or emmintrin.h.
12038 2021-03-05  Eric Botcazou  <ebotcazou@adacore.com>
12040         PR ada/99264
12041         * init.c (__gnat_alternate_sta) [Linux]: Remove preprocessor test on
12042         MINSIGSTKSZ and bump size to 32KB.
12043         * libgnarl/s-osinte__linux.ads (Alternate_Stack_Size): Bump to 32KB.
12045 2021-03-02  Mikael Pettersson  <mikpelinux@gmail.com>
12047         PR bootstrap/98590
12048         * cstreams.c: Ensure fileno_unlocked() is visible on Cygwin.
12050 2021-03-02  Eric Botcazou  <ebotcazou@adacore.com>
12052         PR ada/99095
12053         * sem_ch8.adb (Check_Constrained_Object): Restrict again the special
12054         optimization for limited types to non-array types except in the case
12055         of an extended return statement.
12057 2021-03-02  Eric Botcazou  <ebotcazou@adacore.com>
12059         PR ada/99020
12060         * sem_ch3.adb (Build_Discriminated_Subtype): Set the Cloned_Subtype
12061         only if the type is not private.
12063 2021-02-26  YunQiang Su  <yunqiang.su@cipunited.com>
12065         PR ada/98996
12066         * Makefile.rtl: <mips*-*-linux*>
12067         add 128Bit operation file for MIPS N64 and N32 to
12068         LIBGNAT_TARGET_PAIRS and EXTRA_GNATRTL_NONTASKING_OBJS
12070 2021-02-12  Arnaud Charlet  <charlet@adacore.com>
12072         * repinfo.ads, repinfo.adb (*SO_Ref*): Restore.
12074 2021-02-03  Eric Botcazou  <ebotcazou@adacore.com>
12076         * gcc-interface/decl.c (components_to_record): If the first component
12077         with rep clause is the _Parent field with variable size, temporarily
12078         set it aside when computing the internal layout of the REP part again.
12079         * gcc-interface/utils.c (finish_record_type): Revert to taking the
12080         maximum when merging sizes for all record types with rep clause.
12081         (merge_sizes): Put SPECIAL parameter last and adjust recursive calls.
12083 2021-02-03  Eric Botcazou  <ebotcazou@adacore.com>
12085         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Make the
12086         two fields of the fat pointer type addressable, and do not make the
12087         template type read-only.
12088         <E_Record_Type>: If the type has discriminants mark it as may_alias.
12089         * gcc-interface/utils.c (make_dummy_type): Likewise.
12090         (build_dummy_unc_pointer_types): Likewise.
12092 2021-01-26  Marius Hillenbrand  <mhillen@linux.ibm.com>
12094         PR ada/98228
12095         * gcc-interface/utils.c (maybe_pad_type): Test the size of the new
12096         packable type instead of its alignment for addressability's sake.
12098 2021-01-25  Eric Botcazou  <ebotcazou@adacore.com>
12100         * gcc-interface/trans.c (make_covariant_thunk): Set the DECL_CONTEXT
12101         of the parameters and do not set TREE_PUBLIC on the thunk.
12102         (maybe_make_gnu_thunk): Pass the alias to the covariant thunk.
12103         * gcc-interface/utils.c (finish_subprog_decl): Set the DECL_CONTEXT
12104         of the parameters here...
12105         (begin_subprog_body): ...instead of here.
12107 2021-01-19  Eric Botcazou  <ebotcazou@adacore.com>
12109         PR ada/98740
12110         * gcc-interface/trans.c (add_decl_expr): Always mark TYPE_ADA_SIZE.
12112 2021-01-14  Sebastian Huber  <sebastian.huber@embedded-brains.de>
12114         PR ada/98595
12115         * Makefile.rtl (LIBGNAT_TARGET_PAIRS) <riscv*-*-rtems*>: Use
12116         wraplf version of Aux_Long_Long_Float.
12118 2021-01-03  Eric Botcazou  <ebotcazou@adacore.com>
12120         * gnatvsn.ads: Bump copyright year.
12122 2021-01-01  Jakub Jelinek  <jakub@redhat.com>
12124         * gnat_ugn.texi: Bump @copying's copyright year.
12125         * gnat_rm.texi: Likewise.
12127 2021-01-01  Jakub Jelinek  <jakub@redhat.com>
12129         * ChangeLog-2020: Rotate ChangeLog.  New file.
12131 Copyright (C) 2021 Free Software Foundation, Inc.
12133 Copying and distribution of this file, with or without modification,
12134 are permitted in any medium without royalty provided the copyright
12135 notice and this notice are preserved.