1 2015-03-13 Robert Dewar <dewar@adacore.com>
3 * exp_unst.adb (Note_Uplevel_Reference): Eliminate duplicate
5 (Actual_Ref): New function.
6 (AREC_String): Minor reformatting.
7 (Unnest_Subprogram): Use Actual_Ref.
8 * frontend.adb (Frontend): Turn off Unnest_Subprogram_Mode
9 before call to Instantiate_Bodies.
11 2015-03-13 Ed Schonberg <schonberg@adacore.com>
13 * freeze.adb (Freeze_Profile): If the return type of a function
14 being frozen is an untagged limited view and the function is
15 abstract, mark the type as frozen because there is no later
16 point at which the profile of the subprogram will be elaborated.
18 2015-03-13 Robert Dewar <dewar@adacore.com>
20 * einfo.adb, einfo.ads, atree.adb, atree.ads, atree.h: Add seventh
21 component to entities. Add new fields Field36-41 and Node36-41.
23 2015-03-13 Claire Dross <dross@adacore.com>
25 * inline.adb (Can_Be_Inlined_In_GNATprove_Mode): Rewrite after review.
27 2015-03-13 Robert Dewar <dewar@adacore.com>
29 * exp_util.adb (Is_Volatile_Reference): Compile time known
30 value is never considered to be a volatile reference.
32 2015-03-13 Robert Dewar <dewar@adacore.com>
34 * sem_ch3.adb (Analyze_Object_Contract): Suppress "constant
35 cannot be volatile" for internally generated object (such as
36 FIRST and LAST constants).
38 2015-03-13 Ed Schonberg <schonberg@adacore.com>
40 * sem_ch12.adb (Validate_Access_Subprogram_Instance): If a
41 convention is specified for the formal parameter, verify that
42 the actual has the same convention.
43 * sem_prag.adb (Set_Convention_From_Pragma): Allow convention
44 pragma to be set on a generic formal type.
45 * sem_util.adb (Set_Convention): Ignore within an instance,
46 as it has already been verified in the generic unit.
48 2015-03-13 Claire Dross <dross@adacore.com>
50 * inline.adb (Can_Be_Inlined_In_GNATprove_Mode): Do not inline
51 subprograms with unconstrained record parameters containing
53 * sinfo.ads Document GNATprove assumption that type should match
55 * sem_ch6.adb (Analyze_Subprogram_Body_Contract):
56 Do not check for Refined_Depends and Refined_Globals contracts
59 2015-03-13 Ed Schonberg <schonberg@adacore.com>
61 * sem_ch12.adb (Instantiate_Type): For a floating-point type,
62 capture dimension info if any, because the generated subtype
63 declaration does not come from source and will not process dimensions.
64 * sem_dim,adb (Analyze_Dimension_Extension_Or_Record_Aggregate):
65 Do not analyze expressions with an initialization procedure
66 because aggregates will have been checked at the point of record
69 2015-03-13 Robert Dewar <dewar@adacore.com>
71 * aspects.ads, aspects.adb: Add entries for aspect Unimplemented.
72 * einfo.ads, einfo.adb (Is_Unimplemented): New flag.
73 * sem_ch13.adb: Add dummy entry for aspect Unimplemented.
74 * snames.ads-tmpl: Add entry for Name_Unimplemented.
76 2015-03-13 Gary Dismukes <dismukes@adacore.com>
78 * style.adb (Missing_Overriding): Apply the
79 Comes_From_Source test to the Original_Node of the subprogram
80 node, to handle the case of a null procedure declaration that
81 has been rewritten as an empty procedure body.
83 2015-03-13 Robert Dewar <dewar@adacore.com>
85 * exp_util.ads: Minor fix to comment.
86 * sem_ch3.adb (Constrain_Index): Correct pasto from previous
89 2015-03-13 Robert Dewar <dewar@adacore.com>
91 * exp_util.ads, exp_util.adb (Force_Evaluation): Add Related_Id and
92 Is_Low/High_Bound params.
93 * sem_ch3.adb (Constrain_Index): Use new Force_Evaluation calling
94 sequence to simplify generation of FIRST/LAST temps for bounds.
96 2015-03-12 Olivier Hainque <hainque@adacore.com>
98 * gcc-interface/trans.c (Attribute_to_gnu) <Code_Address case>:
99 On targets where a function symbol designates a function descriptor,
100 fetch the function code address from the descriptor.
101 (USE_RUNTIME_DESCRIPTORS): Provide a default definition.
103 2015-03-04 Robert Dewar <dewar@adacore.com>
105 * sem_warn.adb: Minor reformatting.
106 * init.c: Minor tweaks.
108 2015-03-04 Dmitriy Anisimko <anisimko@adacore.com>
110 * a-coinho-shared.adb: Fix clear of already empty holder.
112 2015-03-04 Robert Dewar <dewar@adacore.com>
114 * exp_unst.adb (Check_Dynamic_Type): Ignore library level types.
115 (Check_Uplevel_Reference_To_Type): Ignore call inside generic.
116 (Note_Uplevel_Reference): Ignore call inside generic.
117 (Note_Uplevel_Reference): Fix check for no entity field.
118 (Unnest_Subprogram): Ignore call inside generic.
119 (Find_Current_Subprogram): Use Defining_Entity, not Defining_Unit_Name.
120 (Visit_Node): Ignore calls to Imported subprograms.
121 (Visit_Node): Fix problem in finding subprogram body in some cases.
122 (Add_Form_To_Spec): Use Defining_Entity, not Defining_Unit_Name.
124 2015-03-04 Robert Dewar <dewar@adacore.com>
126 * einfo.adb (Is_ARECnF_Entity): Removed.
127 (Last_Formal): Remove special handling of Is_ARECnF_Entity.
128 (Next_Formal): Remove special handling of Is_ARECnF_Entity.
129 (Next_Formal_With_Extras): Remove special handling of Is_ARECnF_Entity.
130 (Number_Entries): Minor reformatting.
131 * einfo.ads (Is_ARECnF_Entity): Removed.
132 * exp_unst.adb (Unnest_Subprogram): Remove setting of
134 (Add_Extra_Formal): Use normal Extra_Formal circuit.
135 * sprint.adb (Write_Param_Specs): Properly handle case where
136 there are no source formals, but we have at least one Extra_Formal
139 2015-03-04 Ed Schonberg <schonberg@adacore.com>
141 * sem_aggr.adb (Resolve_Record_Aggregate,
142 Add_Discriminant_Values): If the value is a reference to the
143 current instance of an enclosing type, use its base type to check
144 against prefix of attribute reference, because the target type
145 may be otherwise constrained.
147 2015-03-04 Robert Dewar <dewar@adacore.com>
149 * atree.h: Add entries for Flag287-Flag309.
150 * einfo.adb: Add (unused) flags Flag287-Flag309.
152 2015-03-04 Ed Schonberg <schonberg@adacore.com>
154 * sem_util.adb (Collect_Interfaces, Collect): When gathering
155 interfaces of ancestors, handle properly a subtype of a private
158 2015-03-04 Robert Dewar <dewar@adacore.com>
160 * einfo.adb (Is_ARECnF_Entity): New flag (ARECnF is an extra formal).
161 (Next_Formal): Don't return ARECnF formal.
162 (Last_Formal): Don't consider ARECnF formal.
163 (Next_Formal_With_Extras): Do consider ARECnF formal.
164 * einfo.ads (Is_ARECnF_Entity): New flag (ARECnF is an extra formal).
165 * exp_unst.adb (Create_Entities): Set Is_ARECnF_Entity flag.
167 2015-03-04 Javier Miranda <miranda@adacore.com>
169 * exp_ch6.adb (Expand_Simple_Function_Return): When the returned
170 object is a class-wide interface object and we generate the
171 accessibility described in RM 6.5(8/3) then displace the pointer
172 to the object to reference the base of the object (to get access
173 to the TSD of the object).
175 2015-03-04 Hristian Kirtchev <kirtchev@adacore.com>
177 * sem_prag.adb (Analyze_Abstract_State): Use routine
178 Malformed_State_Error to issue general errors.
179 (Analyze_Pragma): Diagnose a syntax error related to a state
180 declaration with a simple option.
181 (Malformed_State_Error): New routine.
183 2015-03-04 Robert Dewar <dewar@adacore.com>
185 * a-strsup.adb (Super_Slice): Deal with super flat case.
186 * einfo.ads: Minor reformatting.
187 * s-imgdec.adb (Set_Decimal_Digits): Add comment about possibly
190 2015-03-04 Claire Dross <dross@adacore.com>
192 * a-cfdlli.ads, a-cfhase.ads, a-cforma.ads, a-cfhama.ads,
193 a-cforse.ads, a-cofove.ads: Use Default_Initial_Condition on formal
196 2015-03-04 Ed Schonberg <schonberg@adacore.com>
198 * sem_warn.adb (Check_References): When checking for an unused
199 in-out parameter of a class- wide type, use its type to determine
200 whether it is private, in order to avoid a spurious warning when
201 subprogram spec and body are in different units.
203 2015-03-04 Yannick Moy <moy@adacore.com>
205 * sem_attr.adb: Improve warning messages.
207 2015-03-04 Robert Dewar <dewar@adacore.com>
209 * exp_ch6.adb (Expand_N_Subprogram_Body): Avoid trying to unnest
211 * exp_unst.adb (Check_Dynamic_Type): Handle record types properly
212 (Note_Uplevel_Reference): Ignore uplevel references to non-types
213 (Get_Level): Consider only subprograms, not blocks.
214 (Visit_Node): Set proper condition for generating ARECnF entity.
215 Ignore indirect calls. Ignore calls to subprograms
217 (Unnest_Subprogram): Minor changes in dealing with ARECnF entity.
218 (Add_Form_To_Spec): Properly set Last_Entity field.
219 (Unnest_Subprogram): Set current subprogram scope for analyze calls.
220 Handle case of no uplevel refs in outer subprogram
221 Don't mark uplevel entities as aliased.
222 Don't deal with calls with no ARECnF requirement.
224 2015-03-04 Robert Dewar <dewar@adacore.com>
226 * s-valrea.adb (Scan_Real): Remove redundant tests from scaling loops.
227 * s-imgdec.adb (Set_Decimal_Digits): Remove redundant Max
228 operation in computing LZ.
229 * sem_attr.adb: Minor typo fix
231 2015-03-04 Robert Dewar <dewar@adacore.com>
233 * exp_ch7.adb: Minor reformatting.
234 * exp_unst.adb (Build_Tables): Fix minor glitch for no separate
236 * erroutc.adb (Delete_Msg): add missing decrement of info msg counter.
238 2015-03-04 Hristian Kirtchev <kirtchev@adacore.com>
240 * exp_ch6.adb (Build_Pragma_Check_Equivalent): Suppress
241 references to formal parameters subject to pragma Unreferenced.
242 (Suppress_Reference): New routine.
243 * sem_attr.adb (Analyze_Attribute): Reimplement the analysis
244 of attribute 'Old. Attributes 'Old and 'Result now share
246 (Analyze_Old_Result_Attribute): New routine.
247 (Check_Placement_In_Check): Removed.
248 (Check_Placement_In_Contract_Cases): Removed.
249 (Check_Placement_In_Test_Case): Removed.
250 (Check_Use_In_Contract_Cases): Removed.
251 (Check_Use_In_Test_Case): Removed.
252 (In_Refined_Post): Removed.
253 (Is_Within): Removed.
254 * sem_warn.adb (Check_Low_Bound_Tested): Code cleanup.
255 (Check_Low_Bound_Tested_For): New routine.
257 2015-03-04 Hristian Kirtchev <kirtchev@adacore.com>
259 * exp_ch3.adb (Expand_N_Object_Declaration):
260 Generate a runtime check to test the expression of pragma
261 Default_Initial_Condition when the object is default initialized.
263 2015-03-02 Robert Dewar <dewar@adacore.com>
265 * scng.adb (Scan): Ignore illegal character in relaxed
268 2015-03-02 Ed Schonberg <schonberg@adacore.com>
270 * sem_ch4.adb (Analyze_Set_Membership); Retain Overloaded flag
271 on left operand, so it can be properly resolved with type of
272 alternatives of right operand.
273 * sem_res.adb (Resolve_Set_Membership): Handle properly an
274 overloaded left-hand side when the alternatives on the right
275 hand side are literals of some universal type. Use first
276 non-overloaded alternative to find expected type.
278 2015-03-02 Ed Schonberg <schonberg@adacore.com>
280 * exp_ch7.adb (Make_Set_Finalize_Address_Call): Use underlying
281 type to retrieve designated type, because the purported access
282 type may be a partial (private) view, when it is declared in
283 the private part of a nested package, and finalization actions
284 are generated when completing compilation of enclosing unit.
286 2015-03-02 Robert Dewar <dewar@adacore.com>
288 * back_end.adb (Call_Back_End): Remove previous patch,
289 the back end now gets to see the result of -gnatd.1
290 (Unnest_Subprogram_Mode) processing.
291 * elists.ads, elists.adb (List_Length): New function.
292 * exp_unst.ads, exp_unst.adb: Major changes, first complete version.
293 * sem_util.adb (Check_Nested_Access): Handle formals in
294 Unnest_Subprogram_Mode.
295 (Adjust_Named_Associations): Minor reformatting.
296 * sprint.adb (Sprint_Node_Actual): Fix failure to print aliased
299 2015-03-02 Robert Dewar <dewar@adacore.com>
301 * atree.ads, atree.adb (Uint24): New function
302 (Set_Uint24): New procedure.
303 * atree.h (Uint24): New macro for field access.
304 * back_end.adb (Call_Back_End): For now, don't call back end
305 if unnesting subprogs.
306 * einfo.adb (Activation_Record_Component): New field
307 (Subps_Index): New field.
308 * einfo.ads (Activation_Record_Component): New field
309 (Subps_Index): New field Minor reordering of comments into alpha order.
310 * exp_unst.ads, exp_unst.adb: Continued development.
312 2015-03-02 Gary Dismukes <dismukes@adacore.com>
314 * exp_disp.ads: Minor reformatting.
316 2015-03-02 Ed Schonberg <schonberg@adacore.com>
318 * sem_ch8.adb (Chain_Use_Clause): Do not chain use clause from
319 ancestor to list of use clauses active in descendant unit if we
320 are within the private part of an intervening parent, to prevent
321 circularities in use clause list.
323 2015-03-02 Javier Miranda <miranda@adacore.com>
325 * exp_ch9.adb (Build_Corresponding_Record): Propagate type
326 invariants to the corresponding record type.
327 * exp_disp.ad[sb] (Set_DT_Position_Value): New subprogram
328 which sets the value of the DTC_Entity associated with a given
329 primitive of a tagged type and propagates the value to the
331 (Set_DTC_Entity_Value): Propagate the DTC
332 value to the wrapped entity.
333 * sem_ch13.adb (Build_Invariant_Procedure): Append the code
334 associated with invariants of progenitors.
335 * sem_ch3.adb (Build_Derived_Record_Type): Inherit type invariants
336 of parents and progenitors.
337 (Process_Full_View): Check hidden inheritance of class-wide type
339 * sem_ch7.adb (Analyze_Package_Specification): Do not generate
340 the invariant procedure for interface types; build the invariant
341 procedure for tagged types inheriting invariants from their
343 * sem_prag.adb (Pragma_Invariant) Allow invariants in interface
344 types but do not build their invariant procedure since their
345 invariants will be propagated to the invariant procedure of
346 types covering the interface.
347 * exp_ch6.adb, exp_disp.adb, sem_ch3.adb, sem_ch7.adb,
348 sem_ch8.adb, sem_disp.adb: Replace all calls to Set_DT_Position
349 by calls to Set_DT_Position_Value.
351 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
353 * sem_attr.adb (Analyze_Attribute): Factor out heavily indented
354 code in Denote_Same_Function. Do not analyze attribute 'Result
355 when it is inside procedure _Postconditions. Remove a misplaced
356 warning diagnostic. Code cleanup.
357 (Denote_Same_Function): New routine.
358 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part): Code
359 cleanup. Warn on pre/postconditions on an inlined subprogram.
360 (Analyze_Pragma, Refined_Post case): Warn on pre/postconditions on
361 an inlined subprogram.
362 (Analyze_Pre_Post_Condition_In_Decl_Part): Code cleanup. Warn on
363 pre/post condition on an inlined subprogram.
364 (Analyze_Test_Case_In_Decl_Part): Code cleanup. Warn on
365 pre/postconditions on an inlined subprogram.
366 (Check_Postcondition_Use_In_Inlined_Subprogram): New routine.
368 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
370 * sem_prag.adb (Ensure_Aggregate_Form):
371 Ensure that the name denoted by the Chars of a pragma argument
372 association has the proper Sloc when converted into an aggregate.
374 2015-03-02 Bob Duff <duff@adacore.com>
376 * sem_ch6.adb (Check_Private_Overriding): Capture
377 Incomplete_Or_Partial_View in a constant. This is cleaner and
380 2015-03-02 Gary Dismukes <dismukes@adacore.com>
382 * einfo.ads, exp_unst.ads: Minor reformatting.
384 2015-03-02 Ed Schonberg <schonberg@adacore.com>
386 * a-strsea.adb (Find_Token): Ensure that the range of iteration
387 does not perform any improper character access. This prevents
388 erroneous access in the unusual case of an empty string target
389 and a From parameter less than Source'First.
391 2015-03-02 Robert Dewar <dewar@adacore.com>
393 * elists.adb (List_Length): Fix incorrect result.
395 2015-03-02 Bob Duff <duff@adacore.com>
397 * sem_ch6.adb (Check_Private_Overriding): Refine the legality
398 checks here. It used to check that the function is merely
399 overriding SOMEthing. Now it checks that the function is
400 overriding a corresponding public operation. This is a correction
401 to the implementation of the rule in RM-3.9.3(10).
403 2015-03-02 Robert Dewar <dewar@adacore.com>
405 * debug.adb: Document new debug flag -gnatd.1.
406 * einfo.ads, einfo.adb (Has_Nested_Subprogram): New flag.
407 (Has_Uplevel_Reference): New flag (Is_Static_Type): New flag.
408 (Uplevel_Reference_Noted):New flag (Uplevel_References): New field.
409 * elists.ads elists.adb (List_Length): New function.
410 * exp_ch6.adb (Expand_N_Subprogram_Body): Call Unnest_Subprogram
411 when appropriate (Process_Preconditions): Minor code
412 reorganization and reformatting
413 * exp_unst.ads, exp_unst.adb: New files.
414 * gnat1drv.adb (Adjust_Global_Switches): Set
415 Unnest_Subprogram_Mode if -gnatd.1
416 * namet.ads, namet.adb (Name_Find_Str): New version of Name_Find with
418 * opt.ads (Unnest_Subprogram_Mode): New flag.
419 * par-ch3.adb (P_Identifier_Declarations): Fixes to -gnatd.2 handling.
420 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Set
421 Has_Nested_Subprogram flag.
422 * sem_ch8.adb (Find_Direct_Name): New calling sequence for
424 (Find_Selected_Component): Minor comment addition.
425 * sem_util.adb (Check_Nested_Access): New version for use with Exp_Unst.
426 (Note_Possible_Modification): New calling sequence for
428 * sem_util.ads (Check_Nested_Access): New version for use with Exp_Unst.
429 * gcc-interface/Make-lang.in (GNAT1_OBJS): Add exp_unst.o
431 2015-03-02 Pierre-Marie de Rodat <derodat@adacore.com>
433 * gcc-interface/utils.c (gnat_pushdecl): For non-artificial pointer
434 types, preserve the original type and create copies just like the C
435 front-end does. For artificial ones, do not define a name for
437 (create_type_decl): When gnat_pushdecl made the input type the
438 original type for the new declaration, do not define a stub
440 * gcc-interface/utils2.c (build_binary_op): Accept two different
441 pointer types when they point to the same type.
443 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
445 * exp_util.adb (Possible_Bit_Aligned_Component): Do not process
447 * sem_util.adb (Kill_Current_Values): Do not invalidate and
450 2015-03-02 Robert Dewar <dewar@adacore.com>
452 * sem_ch3.adb, exp_attr.adb, checks.adb, exp_aggr.adb: Minor
455 2015-03-02 Ed Schonberg <schonberg@adacore.com>
457 * sem_ch8.adb: extend use of Available_Subtype.
459 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
461 * sem_prag.adb (Duplication_Error): Remove the special handling
462 of 'Class or _Class in the context of pre/postconditions.
463 (Process_Class_Wide_Condition): Remove the special handling of
464 'Class or _Class in the context of pre/postconditions.
465 * sem_util.adb (Original_Aspect_Pragma_Name): Names Pre_Class
466 and Post_Class no longer need to be converted to _Pre and _Post.
467 * sem_util.ads (Original_Aspect_Pragma_Name): Update the comment
470 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
472 * exp_ch6.adb (Process_Preconditions): Modify the
473 mechanism that find the first source declaration to correct exit
474 the loop once it has been found.
476 2015-03-02 Gary Dismukes <dismukes@adacore.com>
478 * a-strsea.adb: Minor typo fix.
480 2015-03-02 Bob Duff <duff@adacore.com>
482 * einfo.ads: Minor comment fixes.
484 2015-03-02 Gary Dismukes <dismukes@adacore.com>
486 * einfo.adb, checks.adb: Minor reformatting and typo fixes.
488 2015-03-02 Ed Schonberg <schonberg@adacore.com>
490 * exp_aggr.adb (Get_Assoc_Expr): If the Default_Component_Value
491 is defined for the array type, use it instead of a Default_Value
492 specified for the component type itself.
494 2015-03-02 Thomas Quinot <quinot@adacore.com>
496 * exp_attr.adb (Expand_N_Attribute_Reference, case Input): When
497 expanding a 'Input attribute reference for a class-wide type,
498 do not generate a separate object declaration for the controlling
499 tag dummy object; instead, generate the expression inline in the
500 dispatching call. Otherwise, the declaration (which involves a
501 call to String'Input, returning a dynamically sized value on the
502 secondary stack) will be expanded outside of proper secondary
503 stack mark/release operations, and will thus cause a secondary
506 2015-03-02 Hristian Kirtchev <kirtchev@adacore.com>
508 * checks.adb (Add_Validity_Check): Change the names of all
509 formal parameters to better illustrate their purpose. Update
510 the subprogram documentation. Update all occurrences of the
511 formal parameters. Generate a pre/postcondition pragma by
512 calling Build_Pre_Post_Condition.
513 (Build_PPC_Pragma): Removed.
514 (Build_Pre_Post_Condition): New routine.
515 * einfo.adb Node8 is no longer used as Postcondition_Proc. Node14
516 is now used as Postconditions_Proc. Flag240 is now renamed to
517 Has_Expanded_Contract. (First_Formal): The routine can now
518 operate on generic subprograms.
519 (First_Formal_With_Extras): The routine can now operate on generic
521 (Has_Expanded_Contract): New routine.
522 (Has_Postconditions): Removed.
523 (Postcondition_Proc): Removed.
524 (Postconditions_Proc): New routine.
525 (Set_Has_Expanded_Contract): New routine.
526 (Set_Has_Postconditions): Removed.
527 (Set_Postcondition_Proc): Removed.
528 (Set_Postconditions_Proc): New routine.
529 (Write_Entity_Flags): Remove the output of Has_Postconditions. Add
530 the output of Has_Expanded_Contract.
531 (Write_Field8_Name): Remove the output of Postcondition_Proc.
532 (Write_Field14_Name): Add the output of Postconditions_Proc.
533 * einfo.ads New attributes Has_Expanded_Contract and
534 Postconditions_Proc along with occurrences in entities.
535 Remove attributes Has_Postconditions and Postcondition_Proc
536 along with occurrences in entities.
537 (Has_Expanded_Contract): New routine along with pragma Inline.
538 (Has_Postconditions): Removed along with pragma Inline.
539 (Postcondition_Proc): Removed along with pragma Inline.
540 (Postconditions_Proc): New routine along with pragma Inline.
541 (Set_Has_Expanded_Contract): New routine along with pragma Inline.
542 (Set_Has_Postconditions): Removed along with pragma Inline.
543 (Set_Postcondition_Proc): Removed along with pragma Inline.
544 (Set_Postconditions_Proc): New routine along with pragma Inline.
545 * exp_ch6.adb (Add_Return): Code cleanup. Update the
546 generation of the call to the _Postconditions routine of
547 the procedure. (Expand_Non_Function_Return): Reformat the
548 comment on usage. Code cleanup. Update the generation of
549 the call to the _Postconditions routine of the procedure or
551 (Expand_Simple_Function_Return): Update the
552 generation of the _Postconditions routine of the function.
553 (Expand_Subprogram_Contract): Reimplemented.
554 * exp_ch6.ads (Expand_Subprogram_Contract): Update the parameter
555 profile along the comment on usage.
556 * exp_ch9.adb (Build_PPC_Wrapper): Code cleanup.
557 (Expand_N_Task_Type_Declaration): Generate pre/postconditions
558 wrapper when the entry [family] has a contract with
560 * exp_prag.adb (Expand_Attributes_In_Consequence): New routine.
561 (Expand_Contract_Cases): This routine and its subsidiaries now
562 analyze all generated code.
563 (Expand_Old_In_Consequence): Removed.
564 * sem_attr.adb Add with and use clause for Sem_Prag.
565 (Analyze_Attribute): Reimplment the analysis of attribute 'Result.
566 (Check_Use_In_Test_Case): Use routine Test_Case_Arg to obtain
568 * sem_ch3.adb (Analyze_Declarations): Analyze the contract of
569 a generic subprogram.
570 (Analyze_Object_Declaration): Do not create a contract node.
571 (Derive_Subprogram): Do not create a contract node.
572 * sem_ch6.adb (Analyze_Abstract_Subprogram_Declaration): Do
573 not create a contract node.
574 (Analyze_Completion_Contract): New routine.
575 (Analyze_Function_Return): Alphabetize.
576 (Analyze_Generic_Subprogram_Body): Alphabetize. Do not create a
577 contract node. Do not copy pre/postconditions to the original
579 (Analyze_Null_Procedure): Do not create a contract node.
580 (Analyze_Subprogram_Body_Contract): Reimplemented.
581 (Analyze_Subprogram_Body_Helper): Do not mark the enclosing scope
582 as having postconditions. Do not create a contract node. Analyze
583 the subprogram body contract of a body that acts as a compilation
584 unit. Expand the subprogram contract after the declarations have
586 (Analyze_Subprogram_Contract): Reimplemented.
587 (Analyze_Subprogram_Specification): Do not create a contract node.
588 (List_Inherited_Pre_Post_Aspects): Code cleanup.
589 * sem_ch6.adb (Analyze_Subprogram_Body_Contract): Update the
591 (Analyze_Subprogram_Contract): Update the
592 parameter profile and the comment on usage.
593 * sem_ch7.adb (Analyze_Package_Body_Helper): Do not create a
595 (Analyze_Package_Declaration): Do not create a
597 (Is_Subp_Or_Const_Ref): Ensure that the prefix has an entity.
598 * sem_ch8.adb (Analyze_Subprogram_Renaming): Do not create a
600 * sem_ch9.adb (Analyze_Entry_Declaration): Do not create a
602 * sem_ch10.adb (Analyze_Compilation_Unit): Move local variables to
603 their proper section and alphabetize them. Analyze the contract of
604 a [generic] subprogram after all Pragmas_After have been analyzed.
605 (Analyze_Subprogram_Body_Stub_Contract): Alphabetize.
606 * sem_ch12.adb (Analyze_Generic_Package_Declaration): Do not
607 create a contract node.
608 (Analyze_Generic_Subprogram_Declaration):
609 Alphabetize local variables. Do not create a contract
610 node. Do not generate aspects out of pragmas for ASIS.
611 (Analyze_Subprogram_Instantiation): Instantiate
612 the contract of the subprogram. Do not create a
613 contract node. (Instantiate_Contract): New routine.
614 (Instantiate_Subprogram_Body): Alphabetize local variables.
615 (Save_Global_References_In_Aspects): New routine.
616 (Save_References): Do not save the global references found within
617 the aspects of a generic subprogram.
618 * sem_ch12.ads (Save_Global_References_In_Aspects): New routine.
619 * sem_ch13.adb (Analyze_Aspect_Specifications): Do not use
620 Original_Node for establishing linkages.
621 (Insert_Pragma): Insertion in a subprogram body takes precedence over
622 the case where the subprogram body is also a compilation unit.
623 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part): Use
624 Get_Argument to obtain the proper expression. Install the generic
625 formals when the related context is a generic subprogram.
626 (Analyze_Depends_In_Decl_Part): Use Get_Argument to obtain
627 the proper expression. Use Corresponding_Spec_Of to obtain
628 the spec. Install the generic formal when the related context
629 is a generic subprogram.
630 (Analyze_Global_In_Decl_Part): Use Get_Argument to obtain the proper
631 expression. Use Corresponding_Spec_Of to obtain the spec. Install the
632 generic formal when the related context is a generic subprogram.
633 (Analyze_Initial_Condition_In_Decl_Part): Use Get_Argument
634 to obtain the proper expression. Remove the call to
635 Check_SPARK_Aspect_For_ASIS as the analysis is now done
637 (Analyze_Pragma): Update all occurrences
638 to Original_Aspect_Name. Pragmas Contract_Cases, Depends,
639 Extensions_Visible, Global, Postcondition, Precondition and
640 Test_Case now carry generic templates when the related context
641 is a generic subprogram. The same pragmas are no longer
642 forcefully fully analyzed when the context is a subprogram
643 that acts as a compilation unit. Pragmas Abstract_State,
644 Initial_Condition, Initializes and Refined_State have been clean
645 up. Pragmas Post, Post_Class, Postcondition, Pre, Pre_Class
646 and Precondition now use the same routine for analysis. Pragma
647 Refined_Post does not need to check the use of 'Result or
648 the lack of a post-state in its expression. Reimplement the
649 analysis of pragma Test_Case.
650 (Analyze_Pre_Post_Condition): New routine.
651 (Analyze_Pre_Post_Condition_In_Decl_Part):
653 (Analyze_Refined_Depends_In_Decl_Part): Use Get_Argument to obtain the
655 (Analyze_Refined_Global_In_Decl_Part): Use Get_Argument to obtain
656 the proper expression.
657 (Analyze_Test_Case_In_Decl_Part): Reimplemented.
658 (Check_Pre_Post): Removed.
659 (Check_Precondition_Postcondition): Removed.
660 (Check_SPARK_Aspect_For_ASIS): Removed.
661 (Check_Test_Case): Removed.
662 (Collect_Subprogram_Inputs_Outputs): Use Get_Argument
663 to obtain the proper expression. Use Corresponding_Spec_Of to
664 find the proper spec.
665 (Create_Generic_Template): New routine.
666 (Duplication_Error): New routine.
667 (Expression_Function_Error): New routine.
668 (Find_Related_Subprogram_Or_Body): Moved to the spec
669 of Sem_Prag. Emit precise error messages. Account for cases of
670 rewritten expression functions, generic instantiations, handled
671 sequence of statements and pragmas from aspects.
672 (Get_Argument): New routine.
673 (Make_Aspect_For_PPC_In_Gen_Sub_Decl): Removed.
674 (Preanalyze_CTC_Args): Removed.
675 (Process_Class_Wide_Condition): New routine.
676 * sem_prag.ads (Analyze_Test_Case_In_Decl_Part): Update
677 the parameter profile along with the comment on usage.
678 (Find_Related_Subprogram_Or_Body): Moved from the body of Sem_Prag.
679 (Make_Aspect_For_PPC_In_Gen_Sub_Decl): Removed.
680 (Test_Case_Arg): New routine.
681 * sem_util.adb Add with and use clauses for Sem_Ch6.
682 (Add_Contract_Item): This routine now creates a contract
683 node the first time an item is added. Remove the duplicate
684 aspect/pragma checks.
685 (Check_Result_And_Post_State): Reimplemented.
686 (Corresponding_Spec_Of): New routine.
687 (Get_Ensures_From_CTC_Pragma): Removed.
688 (Get_Requires_From_CTC_Pragma): Removed.
689 (Has_Significant_Contract): New routine.
690 (Inherit_Subprogram_Contract): Inherit only if the source
692 (Install_Generic_Formals): New routine.
693 (Original_Aspect_Name): Removed.
694 (Original_Aspect_Pragma_Name): New routine.
695 * sem_util.ads (Check_Result_And_Post_State): Reimplemented.
696 (Corresponding_Spec_Of): New routine.
697 (Get_Ensures_From_CTC_Pragma): Removed.
698 (Get_Requires_From_CTC_Pragma): Removed.
699 (Has_Significant_Contract): New routine.
700 (Install_Generic_Formals): New routine.
701 (Original_Aspect_Name): Removed.
702 (Original_Aspect_Pragma_Name): New routine.
703 * sem_warn.adb Add with and use clauses for Sem_Prag.
704 (Within_Postcondition): Use Test_Case_Arg to extract "Ensures".
706 2015-03-02 Ed Schonberg <schonberg@adacore.com>
708 * sem_ch8.adb (Available_Subtype): Optimization in
709 Find_Selected_Component: when safe, use existing subtype of
710 array component, possibly discriminant-dependent, rather than
711 creating new subtype declaration for it. In this fashion different
712 occurrences of the component have the same subtype, rather than
713 just equivalent ones. Simplifies value tracing in GNATProve.
715 2015-03-01 Arnaud Charlet <charlet@adacore.com>
719 * doc/gnat_ugn/gnat_project_manager.rst,
720 doc/gnat_ugn/platform_specific_information.rst: Remove reference to
721 image, too troublesome with texi format.
722 * gnat_ugn.texi: Regenerate.
724 2015-02-24 Thomas Schwinge <thomas@codesourcery.com>
727 * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_8): Remove.
728 (DEF_FUNCTION_TYPE_VAR_12): Likewise.
729 (DEF_FUNCTION_TYPE_VAR_7, DEF_FUNCTION_TYPE_VAR_11): New macros.
731 2015-02-23 Thomas Schwinge <thomas@codesourcery.com>
733 * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_8): Fix number of
735 (DEF_FUNCTION_TYPE_VAR_12): Likewise.
737 2015-02-22 Arnaud Charlet <charlet@adacore.com>
739 * doc/Makefile: postprocess texinfo files to update @dircategory
740 and update texi files under gcc/ada.
741 * gnat_ugn.texi, gnat_rm.texi: Regenerated.
743 2015-02-22 Arnaud Charlet <charlet@adacore.com>
745 * doc/gnat_ugn/project-manager-figure.png,
746 doc/gnat_ugn/rtlibrary-structure.png: New.
748 2015-02-22 Tom de Vries <tom@codesourcery.com>
751 * gnat-style.texi (@subsection Loop Statements): Replace @noindent by
752 @item, and fix warning '@itemize has text but no @item'.
754 2015-02-20 Ed Schonberg <schonberg@adacore.com>
756 * sem_prag.adb (Analyze_Pragma, case Obsolescent): Pragma
757 legally applies to an abstract subprogram declaration.
758 * freeze.adb: Minor comment addition.
760 2015-02-20 Robert Dewar <dewar@adacore.com>
762 * errout.ads: Document replacement of Name_uPre/Post/Type_Invariant.
763 * erroutc.adb (Set_Msg_Str): Replace _xxx.
764 (Pre/Post/Type_Invariant) by xxx'Class.
765 * erroutc.ads (Set_Msg_Str): Replace _xxx.
766 (Pre/Post/Type_Invariant) by xxx'Class.
767 * sem_prag.adb (Fix_Error): Remove special casing of
768 Name_uType_Invariant.
769 (Analyze_Pre_Post_Condition_In_Decl_Part): Remove special casing of
770 Name_uPre and Name_uPost in aspect case (done in Errout now).
772 2015-02-20 Robert Dewar <dewar@adacore.com>
774 * g-alveop.adb: Minor style fixes.
776 2015-02-20 Robert Dewar <dewar@adacore.com>
778 * freeze.adb (Warn_Overlay): Guard against blow up with address
781 2015-02-20 Bob Duff <duff@adacore.com>
783 * exp_attr.adb (May_Be_External_Call): Remove this. There is no need
784 for the compiler to guess whether the call is internal or external --
785 it is always external.
786 (Expand_Access_To_Protected_Op): For P'Access, where P
787 is a protected subprogram, always create a pointer to the
790 2015-02-20 Robert Dewar <dewar@adacore.com>
792 * a-dispat.adb, a-stcoed.ads: Minor reformatting.
794 2015-02-20 Robert Dewar <dewar@adacore.com>
796 * sem_ch13.adb (Build_Discrete_Static_Predicate): Allow static
797 predicate for non-static subtype.
798 (Build_Predicate_Functions): Do not assume subtype associated with a
799 static predicate must be static.
801 2015-02-20 Robert Dewar <dewar@adacore.com>
803 * errout.adb (Set_Msg_Node): Better handling of internal names
804 (Set_Msg_Node): Kill message when we cannot eliminate internal name.
805 * errout.ads: Document additional case of message deletion.
806 * namet.adb (Is_Internal_Name): Refined to consider wide
807 strings in brackets notation and character literals not to be
809 * sem_ch8.adb (Find_Selected_Component): Give additional error
810 when selector name is a subprogram whose first parameter has
811 the same type as the prefix, but that type is untagged.
813 2015-02-20 Robert Dewar <dewar@adacore.com>
815 * g-allein.ads, g-alveop.adb, g-alveop.ads, opt.ads: Minor reformatting
817 2015-02-20 Tristan Gingold <gingold@adacore.com>
819 * opt.ads (GNAT_Mode_Config): New variable.
820 * opt.adb (Set_Opt_Config_Switches): Consider GNAT_Mode_Config
821 to set Assertions_Enabled.
822 * switch-c.adb (Scan_Front_End_Switches): Set GNAT_Mode_Config
825 2015-02-20 Robert Dewar <dewar@adacore.com>
827 * s-valllu.ads (Scan_Raw_Long_Long_Unsigned): Add an additional
828 comment regarding the handling of unterminated fixed-point
830 * s-valuns.ads (Scan_Raw_Unsigned): Add comments
831 corresponding to those previously added for
832 System.Val_LLU.Scan_Raw_Long_Long_Unsigned.
834 2015-02-20 Olivier Hainque <hainque@adacore.com>
836 * g-allein.ads, g-alveop.ads, g-alveop.adb: Code clean ups.
838 2015-02-20 Robert Dewar <dewar@adacore.com>
840 * sem_prag.adb: Minor comment clarification.
842 2015-02-20 Olivier Hainque <hainque@adacore.com>
844 * g-allein.ads (vec_ctf, vec_vcsfx, vec_vcfux): Remove.
845 * g-alleve.ads, g-alleva.adb (vcfux): Likewise.
846 * g-alveop.ads (vec_vcfsx, vec_vcfux): Just rename the ll versions.
847 (vec_ctf): Now renamings as well.
849 2015-02-20 Robert Dewar <dewar@adacore.com>
851 * switch-c.adb, bindgen.adb: Minor reformatting.
853 2015-02-20 Ed Schonberg <schonberg@adacore.com>
855 * sem_prag.adb (Analyze_Pragma, case Type_Invariant):
856 Invariant'class is allowed on an abstract type.
858 2015-02-20 Ed Schonberg <schonberg@adacore.com>
860 * sem_ch3.adb (Access_Definition): If the access definition is
861 for a protected component and defines an access to protected
862 subprogram, do not create an itype reference for it because a
863 full type declaration will be built in order to generate the
864 proper equivalent type.
865 (Analyze_Subtype_Declaration): Add information of incomplete
866 subtypes, for Ada 2012 extended uses of incomplete types.
868 2015-02-20 Gary Dismukes <dismukes@adacore.com>
870 * sem_res.adb: Minor reformatting.
872 2015-02-20 Vincent Celier <celier@adacore.com>
874 * switch-c.adb (Scan_Front_End_Switches): When comparing runtime
875 path name for several switches --RTS, use the normalized path
878 2015-02-20 Vincent Celier <celier@adacore.com>
880 * bindgen.adb: Minor reformatting and code reorganization.
882 2015-02-20 Jose Ruiz <ruiz@adacore.com>
884 * a-stcoed.ads: Add spec for this package (Unimplemented_Unit).
885 * impunit.adb (Non_Imp_File_Names_12): Mark unit a-stcoed.ads as
888 2015-02-20 Arnaud Charlet <charlet@adacore.com>
890 * sysdep.c, expect.c, s-oscons-tmplt.c, gsocket.h, adaint.c: Remove
891 obsolete references to RTX, nucleus, VMS.
893 2015-02-20 Ed Schonberg <schonberg@adacore.com>
895 * sem_prag.adb (Fix_Error): For an illegal Type_Invariant'Class
896 aspect, use name that mentions Class explicitly, rather than
897 compiler-internal name.
899 2015-02-20 Robert Dewar <dewar@adacore.com>
901 * debug.adb: Add documentation for -gnatd.2 (allow statements
903 * par-ch3.adb (P_Identifier_Declarations): Handle
904 statement appearing where declaration expected more cleanly.
905 (Statement_When_Declaration_Expected): Implement debug flag
908 2015-02-20 Jose Ruiz <ruiz@adacore.com>
910 * a-dinopr.ads: Add spec for this package (Unimplemented_Unit).
911 * a-dispat.ads (Yield): Include procedure added in Ada 2012.
912 * a-dispat.adb (Yield): Implement procedure added in Ada 2012.
913 * impunit.adb (Non_Imp_File_Names_05): Mark unit a-dinopr.ads as
915 * snames.ads-tmpl (Name_Non_Preemptive_FIFO_Within_Priorities):
916 This is the correct name for the dispatching policy (FIFO was
919 2015-02-20 Javier Miranda <miranda@adacore.com>
921 * sem_res.adb (Resolve_Type_Conversion): If the type of the
922 operand is the limited-view of a class-wide type then recover
923 the class-wide type of the non-limited view.
925 2015-02-20 Arnaud Charlet <charlet@adacore.com>
927 * gcc-interface/Makefile.in: Remove references to nucleus.
928 * gcc-interface/decl.c (gnat_to_gnu_entity, case E_Procedure): Set
929 extern_flag to true for Inline_Always subprograms with
930 Intrinsic convention.
932 2015-02-20 Yannick Moy <moy@adacore.com>
934 * sem_prag.ads: Minor typo in comment.
936 2015-02-20 Pascal Obry <obry@adacore.com>
938 * s-osprim-mingw.adb: Fix Get_Base_Time parameter mode.
940 2015-02-20 Vincent Celier <celier@adacore.com>
942 * makeutl.adb (Get_Directories.Add_Dir): Add a directory only
945 2015-02-20 Robert Dewar <dewar@adacore.com>
947 * sem_eval.ads: Minor reformatting.
949 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
951 * freeze.adb (Size_Known): Do not set the packed size for
952 independent type or component.
953 (Freeze_Array_Type): Check for Independent[_Components] with packing
954 or explicit component size clause.
955 * gnat1drv.adb (Post_Compilation_Validation_Checks): Do the validation
956 of independence pragmas only for non-GCC back-ends.
957 * sem_ch13.adb (Initialize): Likewise for the initialization.
958 * sem_prag.adb (Record_Independence_Check): New procedure to record an
959 independence check in the table.
960 (Analyze_Pragma): Use it throughout instead of doing it manually.
961 * gcc-interface/decl.c (gnat_to_gnu_field): Add support for
962 independent type or component.
964 2015-02-20 Thomas Quinot <quinot@adacore.com>
966 * adaint.c (__gnat_readdir): For Solaris, use 64 bit variants of
967 struct direct and readdir. This is required for NFS filesystems
968 mounted from servers that use 64-bit cookies.
970 2015-02-20 Ed Schonberg <schonberg@adacore.com>
972 * sem_ch12.adb (Analyze_Subprogram_Instantiaion): New subprogram
973 Build_Subprogram_Renaming, to create renaming of subprogram
974 instance in the the declaration of the wrapper package rather
975 than in its body, so that it is available for analysis of aspects
976 propagated from generic to instantiation.
977 (Check_Mismatch): An actual for a formal package that is an
978 incomplete type matches a formal type that is incomplete.
979 (Instantiate_Package_Body): Move code that builds subprogram
980 renaming to Analyze_Subprogram_Instantiation.
981 (Instantiate_Type): The generated subtype is a limited view if
982 the actual is a limited view.
983 (Load_Parent_Of_Generic): Retrieve instance declaration from
984 its new position within wrapper package.
986 2015-02-20 Arnaud Charlet <charlet@adacore.com>
988 * s-parame-vxworks.adb, s-os_lib.ads: Update comments.
990 2015-02-20 Robert Dewar <dewar@adacore.com>
992 * s-osinte-vxworks.ads (To_Timespec): Add comment about the
993 issue of negative arguments.
995 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
997 * gnat1drv.adb: Minor consistency fix.
999 2015-02-20 Pascal Obry <obry@adacore.com>
1001 * s-osprim-mingw.adb (Get_Base_Time): Properly release lock in all
1004 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
1006 * inline.adb (Expand_Inlined_Call): Skip again calls to subprogram
1008 * exp_ch6.adb (Expand_Call): Use back-end inlining
1009 instead of expansion for simple subprogram renamings.
1011 2015-02-20 Robert Dewar <dewar@adacore.com>
1013 * exp_util.adb: Minor reformatting.
1015 2015-02-20 Vincent Celier <celier@adacore.com>
1017 * switch-c.adb (Scan_Front_End_Switches): Do not fail when --RTS=
1018 is specified several times with different values that indicates
1019 the same runtime directory.
1021 2015-02-20 Ed Schonberg <schonberg@adacore.com>
1023 * sem_attr.adb (Check_Not_Incomplete_Type): Clean up code to
1024 handle properly illegal uses of attributes on prefixes on an
1025 incomplete type, both when the type of the prefix is locally
1026 incomplete, and when it is a limited view of a type whose
1027 non-limited view is not available.
1028 (Analyze_Attribute): Add calls to Check_Not_Incomplete_Type for
1029 'Address and others.
1031 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
1033 * exp_ch6.adb: Fix minor typo in comment.
1035 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
1037 * sinfo.ads: Add comment.
1039 2015-02-20 Olivier Hainque <hainque@adacore.com>
1041 * opt.ads: Replace Opt.Suppress_All_Inlining by two separate
1042 flags controlling the actual FE inlining out of pragma Inline
1043 and pragma Inline_Always.
1044 * adabkend.adb (Scan_Compiler_Arguments): Set both flags to True
1045 on -fno-inline, which disables all inlining in compilers with
1046 an Ada back-end and without back-end inlining support.
1047 * back_end.adb (Scan_Back_End_Switches): Set the Inline related
1048 flag to True on -fno-inline and leave Inline_Always alone for
1050 * back_end.ads (Scan_Compiler_Arguments): Adjust spec wrt the
1051 names of the Opt flags it sets.
1052 * gnat1drv.adb (Adjust_Global_Switches): Remove test on
1053 Opt.Suppress_All_Inlining in the Back_End_Inlining computation.
1054 * sem_prag.adb (Make_Inline): Remove early return conditioned
1055 on Opt.Suppress_All_Inlining.
1056 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): Use the flags to
1057 disable the calls to Build_Body_To_Inline otherwise triggered
1058 by pragma Inline or Inline_Always. This will prevent actual
1059 front-end inlining of the subprogram on calls.
1061 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
1063 * exp_ch3.adb (Default_Initialize_Object): Call Add_Inlined_Body on the
1064 Abort_Undefer_Direct function.
1065 * exp_ch5.adb (Expand_N_Assignment_Statement): Likewise.
1066 * exp_intr.adb (Expand_Unc_Deallocation): Likewise.
1067 * exp_prag.adb (Expand_Pragma_Abort_Defer): Likewise.
1068 * exp_ch4.adb (Expand_N_Selected_Component): Adjust call to
1070 * exp_ch6.adb (Expand_Call): Adjust calls to Add_Inlined_Body.
1071 Remove call to Register_Backend_Call and move code resetting
1072 Needs_Debug_Info on inlined subprograms to...
1073 * inline.ads (Add_Inlined_Body): Add N parameter.
1074 (Register_Backend_Call): Delete.
1075 * inline.adb (Add_Inlined_Body): ...here and simplify.
1076 Register the call with Backend_Calls directly.
1077 (Register_Backend_Call): Delete.
1078 * s-stalib.ads (Abort_Undefer_Direct): Restore pragma Inline.
1080 2015-02-20 Eric Botcazou <ebotcazou@adacore.com>
1082 * s-stalib.ads: Fix typo.
1084 2015-02-20 Ed Schonberg <schonberg@adacore.com>
1086 * exp_ch3.adb (Default_Initialize_Object): If the object has a
1087 delayed freeze, the actions associated with default initialization
1088 must be part of the freeze actions, rather that being inserted
1089 directly after the object declaration.
1091 2015-02-20 Robert Dewar <dewar@adacore.com>
1093 * lib-load.adb: Minor comment update.
1095 2015-02-20 Vincent Celier <celier@adacore.com>
1097 * prj-proc.adb (Process_Case_Construction): When there are
1098 incomplete withed projects and the case variable is unknown,
1099 skip the case construction.
1101 2015-02-20 Ed Schonberg <schonberg@adacore.com>
1103 * exp_ch6.adb (Expand_Actuals): Add caller-side invariant checks
1104 when an actual is a view conversion, either because the call is
1105 to an inherited operation, or because the actual is an explicit
1106 type conversion to an ancestor type. Fixes ACATS 4.0D: C732001
1108 2015-02-20 Robert Dewar <dewar@adacore.com>
1110 * einfo.ads: Minor comment updates Fix missing pragma Inline
1111 for Set_Partial_View_Has_Unknown_Discr.
1112 * einfo.adb (Write_Entity_Flags): Add missing entry for
1113 Partial_View_Has_Unknown_Discr.
1114 * sem_ch3.adb: Minor reformatting.
1116 2015-02-20 Vincent Celier <celier@adacore.com>
1118 * opt.ads: Minor cleanup: remove mention of gprmake.
1119 * s-stalib.ads (Abort_Undefer_Direct): Do not inline.
1120 * s-tataat.adb: Do not call System.Tasking.Self but directly
1121 System.Task_Primitives.Operations.Self.
1123 2015-02-20 Arnaud Charlet <charlet@adacore.com>
1125 * gnat_rm.texi, gnat_ugn.texi: Now automatically generated from
1126 sphinx in the doc directory.
1127 * doc: New directory containing sphinx versions of gnat_rm and gnat_ugn
1129 2015-02-20 Robert Dewar <dewar@adacore.com>
1131 * sem_res.adb: Minor reformatting.
1132 * exp_ch9.adb (Build_Protected_Spec): Copy Aliased setting when
1134 * sem_ch13.adb (Analyze_Aspect_Specifications): Exclude Boolean
1135 aspects from circuitry setting delay required to false if the
1136 argument is an integer literal.
1138 2015-02-20 Ed Schonberg <schonberg@adacore.com>
1140 * einfo.ads. einfo.adb (Partial_View_Has_Unknown_Discr): New flag
1141 on type entities, to enforce AI12-0133: default initialization
1142 of types whose partial view has unknown discriminants does not
1143 get an invariant check, because clients of the unit can never
1144 declare objects of such types.
1145 * sem_ch3.adb (Find_Type_Name); Set new flag
1146 Partial_View_Has_Unknown_Discr when needed.
1147 * exp_ch3.adb (Expand_N_Object_Declaration): Use flag to suppress
1148 generation of invariant call on default-initialized object.
1150 2015-02-08 Eric Botcazou <ebotcazou@adacore.com>
1152 * gcc-interface/decl.c (gnat_to_gnu_param): Do not strip the padding
1153 if the parameter either is passed by reference or if the alignment
1156 2015-02-08 Eric Botcazou <ebotcazou@adacore.com>
1158 * gcc-interface/decl.c (is_cplusplus_method): Use Is_Primitive flag to
1159 detect primitive operations of tagged and untagged types.
1161 2015-02-08 Eric Botcazou <ebotcazou@adacore.com>
1163 * gcc-interface/decl.c (gnat_to_gnu_entity): Do not bother about alias
1164 sets in presence of derivation for subprogram types.
1166 2015-02-08 Eric Botcazou <ebotcazou@adacore.com>
1168 * gcc-interface/utils.c (begin_subprog_body): Assert that the body is
1169 present in the same context as the declaration.
1171 2015-02-07 Jakub Jelinek <jakub@redhat.com>
1174 * gcc-interface/trans.c (gigi): Recreate optimization_default_node
1175 and optimization_current_node after tweaking global_options.
1177 2015-02-05 Robert Dewar <dewar@adacore.com>
1179 * prj-proc.adb, sem_aux.adb, exp_ch9.adb, errout.adb, prj-dect.adb,
1180 prj-nmsc.adb: Minor reformatting.
1182 2015-02-05 Ed Schonberg <schonberg@adacore.com>
1184 * sem_type.adb (Covers): In ASIS_Mode the Corresponding_Record
1185 of a protected type may not be available, so to check conformance
1186 with an interface type, examine the interface list in the type
1187 declaration directly.
1188 (Write_Overloads): Improve information for indirect calls,
1191 2015-02-05 Ed Schonberg <schonberg@adacore.com>
1193 * exp_ch3.adb (Make_Tag_Assignment): Do not perform this
1194 expansion activity in ASIS mode.
1196 2015-02-05 Javier Miranda <miranda@adacore.com>
1198 * errout.adb (Error_Msg_PT): Add missing error.
1199 * sem_ch6.adb (Check_Synchronized_Overriding): Check the missing
1200 RM rule. Code cleanup.
1201 * exp_ch9.adb (Build_Wrapper_Spec): Propagate "constant" in
1202 anonymous access types. Found working on the tests. Code cleanup.
1204 2015-02-05 Vincent Celier <celier@adacore.com>
1206 * prj-dect.adb (Parse_Attribute_Declaration): Continue scanning
1207 when there are incomplete withs.
1208 * prj-nmsc.adb (Process_Naming): Do not try to get the value
1209 of an element when it is nil.
1210 (Check_Naming): Do not check a nil suffix for illegality
1211 * prj-proc.adb (Expression): Do not process an empty term.
1212 * prj-strt.adb (Attribute_Reference): If attribute cannot be
1213 found, parse a possible index to avoid cascading errors.
1215 2015-02-05 Ed Schonberg <schonberg@adacore.com>
1217 * sem_aux.adb (Is_Derived_Type): A subprogram_type generated
1218 for an access_to_subprogram declaration is not a derived type.
1220 2015-02-05 Robert Dewar <dewar@adacore.com>
1222 * errout.adb (Error_Msg_Internal): For non-serious error set
1223 Fatal_Error to Ignored.
1224 * lib-load.adb (Load_Unit): Minor comment updates.
1225 * sem_ch10.adb (Analyze_With_Clause): Propagate Fatal_Error
1226 setting from with'ed unit to with'ing unit.
1227 * sem_prag.adb (Analyze_Pragma, case Warnings): Document handling
1230 2015-02-05 Yannick Moy <moy@adacore.com>
1232 * sem_prag.adb, par-prag.adb: Minor code clean up.
1234 2015-02-05 Yannick Moy <moy@adacore.com>
1236 * par-prag.adb (Pragma_Warnings): Update for extended form
1237 of pragma Warnings. The "one" argument case may now have 2 or
1239 * sem_prag.adb (Analyze_Pragma/Pragma_Warnings): Update for
1240 extended form of pragma Warnings. Pragma with tool name is either
1241 rewritten as null or as an equivalent form without tool name,
1243 * snames.ads-tmpl (Name_Gnatprove): New name.
1245 2015-02-05 Robert Dewar <dewar@adacore.com>
1247 * sem_ch13.adb (Add_Invariants): Don't assume invariant is
1249 * sem_prag.adb (Analyze_Pragma, case Check): Don't assume
1250 condition is standard Boolean, it can be non-standard derived
1253 2015-02-05 Robert Dewar <dewar@adacore.com>
1255 * checks.adb (Enable_Range_Check): Disconnect attempted
1256 optimization for the case of range check for subscript of
1257 unconstrained array.
1259 2015-02-05 Robert Dewar <dewar@adacore.com>
1261 * par-ch13.adb (With_Present): New function
1262 (Aspect_Specifications_Present): Handle WHEN in place of WITH
1263 (Get_Aspect_Specifications): Comment update.
1264 * par.adb: Comment updates.
1266 2015-02-05 Robert Dewar <dewar@adacore.com>
1268 * errout.adb (Handle_Serious_Error): New setting of Fatal_Error.
1269 * frontend.adb (Frontend): New setting of Fatal_Error.
1270 * lib-load.adb (Create_Dummy_Package_Unit): New setting of
1272 (Load_Main_Source): New setting of Fatal_Error
1273 (Load_Unit): New setting of Fatal_Error.
1274 * lib-writ.adb (Add_Preprocessing_Dependency): New setting of
1276 (Ensure_System_Dependency): New setting of Fatal_Error.
1277 * lib.adb (Fatal_Error): New setting of Fatal_Error
1278 (Set_Fatal_Error): New setting of Fatal_Error.
1279 * lib.ads: New definition of Fatal_Error and associated routines.
1280 * par-ch10.adb (P_Compilation_Unit): New setting of Fatal_Error.
1281 * par-load.adb (Load): New setting of Fatal_Error.
1282 * rtsfind.adb (Load_RTU): New setting of Fatal_Error.
1283 * sem_ch10.adb (Analyze_Compilation_Unit): New setting of
1285 (Optional_Subunit): New setting of Fatal_Error.
1286 (Analyze_Proper_Body): New setting of Fatal_Error.
1287 (Load_Needed_Body): New setting of Fatal_Error.
1289 2015-02-05 Ed Schonberg <schonberg@adacore.com>
1291 * sem_res.adb (Resolve_Call): If the function being called has
1292 out parameters do not check for language version if the function
1293 comes from a predefined unit, as those are always compiled in
1296 2015-02-05 Ed Schonberg <schonberg@adacore.com>
1298 * sem_ch3.adb (Process_Full_View): Verify that the full view
1299 of a type extension must carry an explicit limited keyword if
1300 the partial view does (RM 7.3 (10.1)).
1302 2015-02-05 Robert Dewar <dewar@adacore.com>
1304 * g-rannum.adb, g-rannum.ads, s-rannum.adb, s-rannum.ads,
1305 sem_warn.ads: Minor reformatting.
1306 * exp_ch13.adb (Expand_N_Freeze_Entity): Add guard for aspect
1308 * sem_prag.adb (Analyze_Pragma, case Type_Invariant): Give
1309 error for abstract type.
1311 2015-02-05 Yannick Moy <moy@adacore.com>
1313 * opt.ads (Warn_On_Suspicious_Contract): Update comment
1315 * sem_attr.adb (Analyze_Attribute/Attribute_Update): Warn on
1316 suspicious uses of 'Update.
1317 * sem_warn.adb, sem_warn.ads (Warn_On_Suspicious_Update): New
1318 function issues warning on suspicious uses of 'Update.
1319 * g-rannum.adb, g-rannum.ads, s-rannum.adb, s-rannum.ads: Mark
1320 package spec and body as SPARK_Mode Off.
1322 2015-02-05 Robert Dewar <dewar@adacore.com>
1324 * sem_prag.adb (Set_Elab_Unit_Name): New name for Set_Unit_Name
1325 (Analyze_Pragma): Change Set_Unit_Name to Set_Elab_Unit_Name
1326 (Set_Elab_Unit_Name): Generate reference for Elaborate[_All]
1327 * sem_warn.adb (Warn_On_Unreferenced_Entity): Suppress warning
1328 for exported entity.
1330 2015-02-05 Hristian Kirtchev <kirtchev@adacore.com>
1332 * sem_prag.adb (Check_Pragma_Conformance): Add
1333 local variable Arg. Ensure that all errors are associated with
1334 the pragma if it appears without an argument. Add comments on
1337 2015-02-05 Robert Dewar <dewar@adacore.com>
1339 * lib-xref.adb: Minor reformatting.
1341 2015-02-05 Tristan Gingold <gingold@adacore.com>
1343 PR ada/64349da/64349
1344 * env.c: Fix thinko: handle Darwin case before default one.
1346 2015-01-30 Robert Dewar <dewar@adacore.com>
1348 * a-assert.adb: Minor reformatting.
1349 * sem_ch13.adb: Minor comment clarification.
1350 * types.ads: Minor comment update.
1351 * sem_eval.adb (Real_Or_String_Static_Predicate_Matches): Avoid blow up
1352 when we have a predicate that is nothing but an inherited dynamic
1355 2015-01-30 Jerome Guitton <guitton@adacore.com>
1357 * gcc-interface/Makefile.in (x86-vxworks): Update GCC_SPEC_FILES to
1358 include cert link spec.
1360 2015-01-30 Robert Dewar <dewar@adacore.com>
1362 * einfo.ads: Minor comment fix.
1363 * freeze.adb (Freeze_Profile): Add test for suspicious import
1365 * sem_prag.adb (Process_Import_Or_Interface): Test for suspicious
1366 use in Pure unit is now moved to Freeze (to properly catch
1367 Pure_Function exemption).
1369 2015-01-30 Bob Duff <duff@adacore.com>
1371 * sem_res.ads: Minor comment fix.
1372 * sem_type.adb: sem_type.adb (Remove_Conversions): Need to
1373 check both operands of an operator.
1375 2015-01-30 Yannick Moy <moy@adacore.com>
1377 * a-assert.ads, a-assert.adb: Mark package spec in SPARK. Set assertion
1378 policy for Pre to Ignore.
1379 (Assert): Add precondition.
1381 2015-01-30 Robert Dewar <dewar@adacore.com>
1383 * sem_prag.adb (Process_Import_Or_Interface): Warn if used in
1385 * s-valllu.ads (Scan_Raw_Long_Long_Unsigned): Clarify
1386 documentation for some special cases of invalid attempts at
1389 2015-01-30 Gary Dismukes <dismukes@adacore.com>
1391 * errout.ads: Minor reformatting.
1393 2015-01-30 Yannick Moy <moy@adacore.com>
1395 * inline.adb (Process_Formals): Use the sloc of
1396 the inlined node instead of the sloc of the actual parameter,
1397 when replacing formal parameters by the actual one.
1399 2015-01-30 Arnaud Charlet <charlet@adacore.com>
1401 * g-expect.adb (Get_Command_Output): Use infinite timeout when
1404 2015-01-30 Ed Schonberg <schonberg@adacore.com>
1406 * sem_ch12.adb (Analyze_Associations): If an in-parameter is
1407 defaulted in an instantiation, add an entry in the list of actuals
1408 to indicate the default value of the formal (as is already done
1409 for defaulted subprograms).
1411 2015-01-30 Javier Miranda <miranda@adacore.com>
1413 * errout.adb (Error_Msg_PT): Minor error phrasing update.
1415 2015-01-30 Robert Dewar <dewar@adacore.com>
1417 * sem_warn.adb (Warn_On_Known_Condition): Improve error message
1420 2015-01-30 Pierre-Marie de Rodat <derodat@adacore.com>
1422 * exp_dbug.adb (Get_Encoded_Name): When
1423 -fgnat-encodings=minimal, do not generate names for biased types.
1425 2015-01-30 Tristan Gingold <gingold@adacore.com>
1428 * env.c: Move vxworks and darwin includes out of #ifdef IN_RTS.
1430 2015-01-30 Gary Dismukes <dismukes@adacore.com>
1432 * freeze.adb: Minor reformatting.
1434 2015-01-30 Javier Miranda <miranda@adacore.com>
1436 * errout.ads (Error_Msg_PT): Replace Node_Id by Entity_Id and
1437 improve its documentation.
1438 * errout.adb (Error_Msg_PT): Improve the error message.
1439 * sem_ch6.adb (Check_Conformance): Update call to Error_Msg_PT.
1440 (Check_Synchronized_Overriding): Update call to Error_Msg_PT.
1441 * sem_ch3.adb (Check_Abstract_Overriding): Code cleanup.
1443 2015-01-30 Robert Dewar <dewar@adacore.com>
1445 * sem_warn.adb (Warn_On_Known_Condition): Do special casing of
1446 message for False case.
1448 2015-01-30 Doug Rupp <rupp@adacore.com>
1450 * s-vxwext-kernel.ads (Task_Cont): Remove imported subprogram body.
1451 * s-vxwext-kernel.adb (Task_Cont): New subpprogram body specialized for
1454 2015-01-30 Gary Dismukes <dismukes@adacore.com>
1456 * sem_attr.adb (Declared_Within_Generic_Unit):
1457 New function to test whether an entity is declared within the
1458 declarative region of a given generic unit.
1459 (Resolve_Attribute): For checking legality of subprogram'Access within
1460 a generic unit, call new Boolean function Declared_Within_Generic_Unit
1461 instead of simply comparing the results of Enclosing_Generic_Unit on
1462 the prefix and access type. Correct minor comment typos.
1464 2015-01-30 Robert Dewar <dewar@adacore.com>
1466 * freeze.adb, exp_util.ads: Update comment.
1467 * exp_util.adb, exp_ch3.adb: Minor code reorganization and reformatting.
1468 * sem_util.adb: Minor: fix typo.
1470 2015-01-30 Hristian Kirtchev <kirtchev@adacore.com>
1472 * sem_attr.adb (Analyze_Attribute): Ensure that
1473 the check concerning Refined_Post takes precedence over the
1476 2015-01-30 Gary Dismukes <dismukes@adacore.com>
1478 * sem_prag.adb: Minor typo fixes and reformatting.
1480 2015-01-30 Yannick Moy <moy@adacore.com>
1482 * sem_attr.adb: Code clean up.
1484 2015-01-30 Robert Dewar <dewar@adacore.com>
1486 * ali.adb (Scan_ALI): Set Serious_Errors flag in Unit record.
1487 * ali.ads (Unit_Record): Add new field Serious_Errors.
1488 * lib-writ.adb (Write_Unit_Information): Set SE (serious errors)
1489 attribute in U line.
1490 * lib-writ.ads: New attribute SE (serious erors) in unit line.
1492 2015-01-30 Hristian Kirtchev <kirtchev@adacore.com>
1494 * einfo.adb Update the usage of attributes Entry_Bodies_Array,
1495 Lit_Indexes, Scale_Value, Storage_Size_Variable,
1496 String_Literal_Low_Bound along associated routines and
1498 (Pending_Access_Types): New routine.
1499 (Set_Pending_Access_Types): New routine.
1500 (Write_Field15_Name): Add an entry for Pending_Access_Types.
1501 * einfo.ads Add new attribute Pending_Access_Types along
1502 with usage in nodes. Update the usage of attributes
1503 Entry_Bodies_Array, Lit_Indexes, Scale_Value,
1504 Storage_Size_Variable, String_Literal_Low_Bound.
1505 (Pending_Access_Types): New routine along with pragma Inline.
1506 (Set_Pending_Access_Types): New routine along with pragma Inline.
1507 * exp_ch3.adb (Expand_Freeze_Array_Type): Add new local variable
1508 Ins_Node. Determine the insertion node for anonynous access type
1509 that acts as a component type of an array. Update the call to
1510 Build_Finalization_Master.
1511 (Expand_Freeze_Record_Type): Update
1512 the calls to Build_Finalization_Master.
1513 (Freeze_Type): Remove
1514 local variable RACW_Seen. Factor out the code that deals with
1515 remote access-to-class-wide types. Create a finalization master
1516 when the designated type contains a private component. Fully
1517 initialize all pending access types.
1518 (Process_RACW_Types): New routine.
1519 (Process_Pending_Access_Types): New routine.
1520 * exp_ch4.adb (Expand_Allocator_Expression): Allocation no longer
1521 needs to set primitive Finalize_Address.
1522 (Expand_N_Allocator): Allocation no longer sets primitive
1524 * exp_ch6.adb (Add_Finalization_Master_Actual_To_Build_In_Place_Call):
1525 Update the call to Build_Finalization_Master.
1526 (Make_Build_In_Place_Call_In_Allocator): Allocation no longer
1527 needs to set primitive Finalize_Address.
1528 * exp_ch7.adb (Add_Pending_Access_Type): New routine.
1529 (Build_Finalization_Master): New parameter profile. Associate
1530 primitive Finalize_Address with the finalization master if the
1531 designated type has been frozen, otherwise treat the access
1532 type as pending. Simplify the insertion of the master and
1533 related initialization code.
1534 (Make_Finalize_Address_Body): Allow Finalize_Address for class-wide
1536 (Make_Set_Finalize_Address_Call): Remove forlam parameter Typ.
1537 Simplify the implementation.
1538 * exp_ch7.ads (Build_Finalization_Master): New parameter profile
1539 along with comment on usage.
1540 (Make_Set_Finalize_Address_Call): Remove formal parameter Typ. Update
1541 the comment on usage.
1542 * exp_util.adb (Build_Allocate_Deallocate_Proc): Use routine
1543 Finalize_Address to retrieve the primitive.
1544 (Finalize_Address): New routine.
1545 (Find_Finalize_Address): Removed.
1546 * exp_util.ads (Finalize_Address): New routine.
1547 * freeze.adb (Freeze_All): Remove the generation of finalization
1549 * sem_ch3.adb (Analyze_Full_Type_Declaration): Propagate any
1550 pending access types from the partial to the full view.
1552 2015-01-30 Robert Dewar <dewar@adacore.com>
1554 * sem_disp.adb: Minor reformatting.
1555 * sem_disp.ads: Documentation update.
1557 2015-01-30 Ed Schonberg <schonberg@adacore.com>
1559 * sem_disp.adb (Is_Dynamically_Tagged): when applied to an entity
1560 or a function call, return True if type is class-wide.
1561 * sem_res.adb (Resolve_Case_Expression, Resolve_If_Expression);
1562 Apply RM 4.5.7 (17/3): all or none of the dependent expression
1563 of a conditional expression must be dynamically tagged.
1565 2015-01-30 Ed Schonberg <schonberg@adacore.com>
1567 * sem_ch6.adb (Analyze_Function_Return): In an extended return
1568 statement, apply accessibility check to result object when there
1569 is no initializing expression (Ada 2012 RM 6.5 (5.4/3))
1571 2015-01-30 Robert Dewar <dewar@adacore.com>
1573 * sem_ch4.adb (Analyze_If_Expression): Allow for non-standard
1574 Boolean for case where ELSE is omitted.
1575 * sem_res.adb: Minor reformatting.
1577 2015-01-27 Bernd Edlinger <bernd.edlinger@hotmail.de>
1579 Fix build under cygwin/64.
1580 * adaint.h: Add check for __CYGWIN__.
1581 * mingw32.h: Prevent windows.h from including x86intrin.h in GCC.
1583 2015-01-19 Bernd Edlinger <bernd.edlinger@hotmail.de>
1586 * adaint.c: Handle __CYGWIN__ like __MINGW32__ here.
1587 * mingw32.h: Don't include <tchar.h> under cygwin.
1588 (_O_U8TEXT, _O_U16TEXT, _O_WTEXT): Set to _O_TEXT if not yet defined.
1590 2015-01-15 Thomas Schwinge <thomas@codesourcery.com>
1592 * gcc-interface/utils.c (DEF_FUNCTION_TYPE_VAR_8)
1593 (DEF_FUNCTION_TYPE_VAR_12): New macros.
1595 2015-01-09 Michael Collison <michael.collison@linaro.org>
1597 * gcc-interface/cuintp.c: Include hash-set.h, machmode.h,
1598 vec.h, double-int.h, input.h, alias.h, symtab.h,
1599 fold-const.h, wide-int.h, and inchash.h due to
1600 flattening of tree.h.
1601 * gcc-interface/decl.c: Ditto.
1602 * gcc-interface/misc.c: Ditto.
1603 * gcc-interface/targtyps.c: Include hash-set.h, machmode.h,
1604 vec.h, double-int.h, input.h, alias.h, symtab.h, options.h,
1605 fold-const.h, wide-int.h, and inchash.h due to
1606 flattening of tree.h.
1607 * gcc-interface/trans.c: Include hash-set.h, machmode.h,
1608 vec.h, double-int.h, input.h, alias.h, symtab.h, real.h,
1609 fold-const.h, wide-int.h, inchash.h due to
1610 flattening of tree.h.
1611 * gcc-interface/utils.c: Include hash-set.h, machmode.h,
1612 vec.h, double-int.h, input.h, alias.h, symtab.h,
1613 fold-const.h, wide-int.h, and inchash.h due to
1614 flattening of tree.h.
1615 * gcc-interface/utils2.c: Ditto.
1617 2015-01-07 Robert Dewar <dewar@adacore.com>
1619 * sem_warn.adb (Check_One_Unit): Don't give unused entities
1620 warning for a package which is used as a generic parameter.
1622 2015-01-07 Bob Duff <duff@adacore.com>
1624 * usage.adb (Usage): Correct documentation of
1627 2015-01-07 Robert Dewar <dewar@adacore.com>
1629 * s-fileio.adb: Minor reformatting.
1631 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1633 * sem_ch12.adb (Instantiate_Object): If formal is an anonymous
1634 access to subprogram, replace its formals with new entities when
1635 building the object declaration, both if actual is present and
1636 when it is defaulted.
1638 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1640 * sem_ch5.adb (Analyze_Assignment): If left-hand side is a view
1641 conversion and type of expression has invariant, apply invariant
1642 check on expression.
1644 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1646 * sem_ch3.adb (Create_Constrained_Components): A call to
1647 Gather_Components may detect an error if an inherited discriminant
1648 that controls a variant is non-static.
1649 * sem_aggr.adb (Resolve_Record_Aggregate, Step 5): The call to
1650 Gather_Components may report an error if an inherited discriminant
1651 in a variant in non-static.
1652 * sem_util.adb (Gather_Components): If a non-static discriminant
1653 is inherited do not report error here, but let caller handle it.
1654 (Find_Actual): Small optimization.
1656 2015-01-07 Bob Duff <duff@adacore.com>
1658 * usage.adb (Usage): Document -gnatw.f switch.
1660 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1662 * sem_ch12.adb: Code clean up and minor reformatting.
1664 2015-01-07 Robert Dewar <dewar@adacore.com>
1666 * exp_ch4.adb (Expand_N_Type_Conversion): Add guard for
1667 Raise_Accessibility_Error call.
1668 * s-valllu.ads (Scan_Raw_Long_Long_Unsigned): Add documentation
1669 on handling of invalid digits in based constants.
1670 * s-fatgen.ads: Minor reformatting.
1671 * sem_attr.adb (Analyze_Attribute, case Unrestricted_Access):
1672 Avoid noting bogus modification for Valid test.
1673 * snames.ads-tmpl (Name_Attr_Long_Float): New Name.
1674 * einfo.ads: Minor reformatting.
1675 * sem_warn.adb: Minor comment clarification.
1676 * sem_ch12.adb: Minor reformatting.
1678 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1680 * exp_ch5.adb (Expand_Predicated_Loop): Handle properly loops
1681 over static predicates when the loop parameter specification
1682 carries a Reverse indicator.
1684 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1686 * sem_ch12.adb (Instantiate_Object): If formal has a default,
1687 actual is missing and formal has an anonymous access type, copy
1688 access definition in full so that tree for instance is properly
1689 formatted for ASIS use.
1691 2015-01-07 Bob Duff <duff@adacore.com>
1693 * sem_elab.adb (Check_Internal_Call_Continue): Give a warning
1694 for P'Access, where P is a subprogram in the same package as
1695 the P'Access, and the P'Access is evaluated at elaboration
1696 time, and occurs before the body of P. For example, "X : T :=
1697 P'Access;" would allow a subsequent call to X.all to be an
1698 access-before-elaboration error; hence the warning. This warning
1699 is enabled by the -gnatw.f switch.
1700 * opt.ads (Warn_On_Elab_Access): New flag for warning switch.
1701 * warnsw.adb (Set_Dot_Warning_Switch): Set Warn_On_Elab_Access.
1702 * gnat_ugn.texi: Document the new warning.
1704 2015-01-07 Johannes Kanig <kanig@adacore.com>
1706 * lib-xref-spark_specific.adb (Collect_SPARK_Xrefs): Skip unneeded
1709 2015-01-07 Robert Dewar <dewar@adacore.com>
1711 * s-taprop-linux.adb, clean.adb: Minor reformatting.
1713 2015-01-07 Arnaud Charlet <charlet@adacore.com>
1715 * s-tassta.adb: Relax some overzealous assertions.
1717 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1719 * sem_ch6.adb (Analyze_Return_Type): An call that returns a limited
1720 view of a type is legal when context is a thunk generated for
1721 operation inherited from an interface.
1722 * exp_ch6.adb (Expand_Simple_Function_Return): If context is
1723 a thunk and return type is an incomplete type do not continue
1724 expansion; thunk will be fully elaborated when generating code.
1726 2015-01-07 Doug Rupp <rupp@adacore.com>
1728 * s-osinte-mingw.ads (LARGE_INTEGR): New subtype.
1729 (QueryPerformanceFrequency): New imported procedure.
1730 * s-taprop-mingw.adb (RT_Resolution): Call above and return
1731 resolution vice a hardcoded value.
1732 * s-taprop-solaris.adb (RT_Resolution): Call clock_getres and return
1733 resolution vice a hardcoded value.
1734 * s-linux-android.ads (clockid_t): New subtype.
1735 * s-osinte-aix.ads (clock_getres): New imported subprogram.
1736 * s-osinte-android.ads (clock_getres): Likewise.
1737 * s-osinte-freebsd.ads (clock_getres): Likewise.
1738 * s-osinte-solaris-posix.ads (clock_getres): Likewise.
1739 * s-osinte-darwin.ads (clock_getres): New subprogram.
1740 * s-osinte-darwin.adb (clock_getres): New subprogram.
1741 * thread.c (__gnat_clock_get_res) [__APPLE__]: New function.
1742 * s-taprop-posix.adb (RT_Resolution): Call clock_getres to
1743 calculate resolution vice hard coded value.
1745 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1747 * exp_util.adb (Make_CW_Equivalent_Type): If root type is a
1748 limited view, use non-limited view when available to create
1749 equivalent record type.
1751 2015-01-07 Vincent Celier <celier@adacore.com>
1753 * gnatcmd.adb: Remove command Sync and any data and processing
1754 related to this command. Remove project processing for gnatstack.
1755 * prj-attr.adb: Remove package Synchonize and its attributes.
1757 2015-01-07 Vincent Celier <celier@adacore.com>
1759 * clean.adb: Minor error message change.
1761 2015-01-07 Tristan Gingold <gingold@adacore.com>
1764 * env.c (__gnat_environ): Adjust for darwin9/darwin10.
1766 2015-01-07 Javier Miranda <miranda@adacore.com>
1768 * sem_ch10.adb (Analyze_With_Clause): Compiling under -gnatq
1769 protect the frontend against never ending recursion caused by
1770 circularities in the sources.
1772 2015-01-07 Robert Dewar <dewar@adacore.com>
1774 * a-reatim.adb, make.adb, exp_pakd.adb, i-cpoint.adb, sem_ch8.adb,
1775 exp_ch3.adb: Minor reformatting.
1777 2015-01-07 Doug Rupp <rupp@adacore.com>
1779 * s-linux.ads (clockid_t): New subtype.
1780 * s-osinte-linux.ads (pragma Linker Options): Add -lrt.
1781 (clockid_t): New subtype.
1782 (clock_getres): Import system call.
1783 * s-taprop-linux.adb (System.OS_Constants): With and rename.
1784 (RT_Resolution): Remove
1785 hardcoded value and call clock_getres.
1786 * s-linux-sparc.ads, s-linux-mipsel.ads, s-linux-hppa.ads,
1787 s-linux-alpha.ads, s-linux-x32.ads (clockid_t): Add new subtype.
1789 2015-01-07 Robert Dewar <dewar@adacore.com>
1791 * sem_warn.adb (Check_One_Unit): Guard against context item
1792 with no Entity field.
1794 2015-01-07 Vincent Celier <celier@adacore.com>
1796 * clean.adb (Gnatclean): Warn that 'gnatclean -P' is obsolete.
1797 * make.adb (Initialize): Warn that 'gnatmake -P' is obsolete.
1799 2015-01-07 Vincent Celier <celier@adacore.com>
1801 * prj-conf.adb (Parse_Project_And_Apply_Config): Always finalize
1802 errors/warnings in the first parsing of the project files,
1803 to display the warnings when there is no errors.
1805 2015-01-07 Tristan Gingold <gingold@adacore.com>
1807 * i-cpoint.adb (Copy_Terminated_Array): Nicely handle null target.
1809 2015-01-07 Doug Rupp <rupp@adacore.com>
1811 * s-taprop-vxworks.adb (Stop_All_Tasks): Pass return
1812 value from Int_Lock as parameter to Int_Unlock.
1813 * s-osinte-vxworks.ads (Int_Unlock): Add parameter.
1814 * s-vxwext.ads (Int_Unlock): Likewise.
1815 * s-vxwext-kernel.adb (intUnlock, Int_Unlock): Likewise.
1816 * s-vxwext-kernel.ads (Int_Unlock): Likewise.
1817 * s-vxwext-rtp.adb (Int_Unlock): Likewise.
1818 * s-vxwext-rtp.ads (Int_Unlock): Likewise.
1820 2015-01-07 Pierre-Marie de Rodat <derodat@adacore.com>
1822 * exp_pakd.adb: Add a comment in exp_pakd.adb to explain why we
1825 2015-01-07 Tristan Gingold <gingold@adacore.com>
1827 * i-cpoint.adb (Copy_Terminated_Array): Use Copy_Array to
1830 2015-01-07 Eric Botcazou <ebotcazou@adacore.com>
1832 * sem_ch3.adb (Analyze_Full_Type_Declaration): Do not
1833 automatically set No_Strict_Aliasing on access types.
1834 * fe.h (No_Strict_Aliasing_CP): Declare.
1835 * gcc-interface/trans.c (gigi): Force flag_strict_aliasing to 0 if
1836 No_Strict_Aliasing_CP is set.
1838 2015-01-07 Johannes Kanig <kanig@adacore.com>
1840 * sem_ch8.adb (Analyze_Subprogram_Renaming) do
1841 not build function wrapper in gnatprove mode when the package
1842 is externally axiomatized.
1844 2015-01-07 Jose Ruiz <ruiz@adacore.com>
1846 * a-reatim.adb (Time_Of): Reduce the number of spurious overflows in
1847 intermediate computations when the parameters have different signs.
1849 2015-01-07 Javier Miranda <miranda@adacore.com>
1851 * exp_ch3.adb (Build_Init_Procedure): For derived types,
1852 improve the code which takes care of identifying and moving to
1853 the beginning of the init-proc the call to the init-proc of the
1856 2015-01-07 Olivier Hainque <hainque@adacore.com>
1858 * gcc-interface/trans.c (gnat_to_gnu, <N_Expression_With_Action>):
1859 Elaborate the expression as part of the same stmt group as the actions.
1861 2015-01-07 Robert Dewar <dewar@adacore.com>
1863 * sem_ch3.adb: Minor error message change.
1865 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1867 * sem_prag.adb (Analyze_Pragma, case Preelaborable_Initialization):
1868 Following AI05-028, the pragam applies legally to any composite type.
1870 2015-01-07 Arnaud Charlet <charlet@adacore.com>
1872 * s-osinte-vxworks.adb, s-osinte-vxworks.ads
1873 (sigwait, sigwaitinfo): Removed, not needed after all on any
1874 VxWorks configurations.
1876 2015-01-07 Robert Dewar <dewar@adacore.com>
1878 * sem_ch3.adb, freeze.adb, exp_disp.adb: Minor reformatting.
1880 2015-01-07 Javier Miranda <miranda@adacore.com>
1882 * exp_disp.adb (Expand_Interface_Conversion): Adding missing
1883 generation of accessibility check.
1885 2015-01-07 Ed Schonberg <schonberg@adacore.com>
1887 * sem_ch3.adb (Derived_Type_Declaration): In the case of an
1888 illegal completion from a class- wide type, set etype of the
1889 derived type properly to prevent cascaded errors.
1891 2015-01-07 Robert Dewar <dewar@adacore.com>
1893 * prj.ads, i-cpoint.adb, freeze.adb, ghost.adb, prj-err.adb: Minor
1896 2015-01-07 Robert Dewar <dewar@adacore.com>
1898 * restrict.adb (Check_Restriction_No_Use_Of_Attribute):
1900 (OK_No_Use_Of_Entity_Name): New function.
1901 (Set_Restriction_No_Use_Of_Entity): New procedure.
1902 * restrict.ads (Check_Restriction_No_Use_Of_Attribute):
1904 (OK_No_Use_Of_Entity_Name): New function.
1905 (Set_Restriction_No_Use_Of_Entity): New procedure.
1906 * sem_ch8.adb (Find_Direct_Name): Add check for violation of
1908 * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
1909 Add processing for new restriction No_Use_Of_Entity.
1911 2015-01-07 Eric Botcazou <ebotcazou@adacore.com>
1913 * freeze.adb (Freeze_Array_Type): Apply same handling to Is_Atomic
1914 component type as to Has_Atomic_Components type. Remove useless
1915 test on Is_Aliased component type.
1917 2015-01-07 Hristian Kirtchev <kirtchev@adacore.com>
1919 * alloc.ads Alphabetize several declarations. Add constants
1920 Ignored_Ghost_Units_Initial and Ignored_Ghost_Units_Increment.
1921 * atree.adb Add with and use clauses for Opt.
1922 (Allocate_Initialize_Node): Mark a node as ignored Ghost
1923 if it is created in an ignored Ghost region.
1924 (Ekind_In): New variant.
1925 (Is_Ignored_Ghost_Node): New routine.
1926 (Set_Is_Ignored_Ghost_Node): New routine.
1927 * atree.adb Aplhabetize several subprograms declarations. Flag
1928 Spare0 is now known as Is_Ignored_Ghost_Node.
1929 (Ekind_In): New variant.
1930 (Is_Ignored_Ghost_Node): New routine.
1931 (Set_Is_Ignored_Ghost_Node): New routine.
1932 * einfo.adb: Flag 279 is now known as Contains_Ignored_Ghost_Code.
1933 (Contains_Ignored_Ghost_Code): New routine.
1934 (Set_Contains_Ignored_Ghost_Code): New routine.
1935 (Set_Is_Checked_Ghost_Entity, Set_Is_Ignored_Ghost_Entity):
1936 It is now possible to set this property on an unanalyzed entity.
1937 (Write_Entity_Flags): Output the status of flag
1938 Contains_Ignored_Ghost_Code.
1939 * einfo.ads New attribute Contains_Ignored_Ghost_Code along with
1941 (Contains_Ignored_Ghost_Code): New routine
1942 along with pragma Inline.
1943 (Set_Contains_Ignored_Ghost_Code): New routine along with pragma Inline.
1944 * exp_ch3.adb Add with and use clauses for Ghost.
1945 (Freeze_Type): Capture/restore the value of Ghost_Mode on entry/exit.
1946 Set the Ghost_Mode in effect.
1947 (Restore_Globals): New routine.
1948 * exp_ch7.adb (Process_Declarations): Do not process a context
1949 that invoves an ignored Ghost entity.
1950 * exp_dbug.adb (Qualify_All_Entity_Names): Skip an ignored Ghost
1951 construct that has been rewritten as a null statement.
1952 * exp_disp.adb Add with and use clauses for Ghost.
1953 (Make_DT): Capture/restore the value of Ghost_Mode on entry/exit. Set
1954 the Ghost_Mode in effect.
1955 (Restore_Globals): New routine.
1956 * exp_util.adb (Requires_Cleanup_Actions): An ignored Ghost entity
1957 does not require any clean up. Add two missing cases that deal
1958 with block statements.
1959 * freeze.adb Add with and use clauses for Ghost.
1960 (Freeze_Entity): Capture/restore the value of Ghost_Mode on entry/exit.
1961 Set the Ghost_Mode in effect.
1962 (Restore_Globals): New routine.
1963 * frontend.adb Add with and use clauses for Ghost. Remove any
1964 ignored Ghost code from all units that qualify.
1965 * ghost.adb New unit.
1966 * ghost.ads New unit.
1967 * gnat1drv.adb Add with clause for Ghost. Initialize and lock
1968 the table in package Ghost.
1969 * lib.ads: Alphabetize several subprogram declarations.
1970 * lib-xref.adb (Output_References): Do not generate reference
1971 information for ignored Ghost entities.
1972 * opt.ads Add new type Ghost_Mode_Type and new global variable
1974 * rtsfind.adb (Load_RTU): Provide a clean environment when
1975 loading a runtime unit.
1976 * sem.adb (Analyze): Capture/restore the value of Ghost_Mode on
1977 entry/exit as the node may set a different mode.
1979 Capture/restore the value of Ghost_Mode on entry/exit as the
1980 unit may be withed from a unit with a different Ghost mode.
1981 * sem_ch3.adb Add with and use clauses for Ghost.
1982 (Analyze_Full_Type_Declaration, Analyze_Incomplete_Type_Decl,
1983 Analyze_Number_Declaration, Analyze_Private_Extension_Declaration,
1984 Analyze_Subtype_Declaration): Set the Ghost_Mode in effect. Mark
1985 the entity as Ghost when there is a Ghost_Mode in effect.
1986 (Array_Type_Declaration): The implicit base type inherits the
1987 "ghostness" from the array type.
1988 (Derive_Subprogram): The
1989 alias inherits the "ghostness" from the parent subprogram.
1990 (Make_Implicit_Base): The implicit base type inherits the
1991 "ghostness" from the parent type.
1992 * sem_ch5.adb Add with and use clauses for Ghost.
1993 (Analyze_Assignment): Set the Ghost_Mode in effect.
1994 * sem_ch6.adb Add with and use clauses for Ghost.
1995 (Analyze_Abstract_Subprogram_Declaration, Analyze_Procedure_Call,
1996 Analyze_Subprogram_Body_Helper, Analyze_Subprogram_Declaration):
1997 Set the Ghost_Mode in effect. Mark the entity as Ghost when
1998 there is a Ghost_Mode in effect.
1999 * sem_ch7.adb Add with and use clauses for Ghost.
2000 (Analyze_Package_Body_Helper, Analyze_Package_Declaration,
2001 Analyze_Private_Type_Declaration): Set the Ghost_Mode in
2002 effect. Mark the entity as Ghost when there is a Ghost_Mode
2004 * sem_ch8.adb Add with and use clauses for Ghost.
2005 (Analyze_Exception_Renaming, Analyze_Generic_Renaming,
2006 Analyze_Object_Renaming, Analyze_Package_Renaming,
2007 Analyze_Subprogram_Renaming): Set the Ghost_Mode in effect. Mark
2008 the entity as Ghost when there is a Ghost_Mode in effect.
2009 (Find_Type): Check the Ghost context of a type.
2010 * sem_ch11.adb Add with and use clauses for Ghost.
2011 (Analyze_Exception_Declaration): Set the Ghost_Mode in
2012 effect. Mark the entity as Ghost when there is a Ghost_Mode
2014 * sem_ch12.adb Add with and use clauses for Ghost.
2015 (Analyze_Generic_Package_Declaration,
2016 Analyze_Generic_Subprogram_Declaration): Set the Ghost_Mode in effect.
2017 Mark the entity as Ghost when there is a Ghost_Mode in effect.
2018 * sem_prag.adb Add with and use clauses for Ghost.
2019 (Analyze_Pragma): Ghost-related checks are triggered when there
2020 is a Ghost mode in effect.
2021 (Create_Abstract_State): Mark the
2022 entity as Ghost when there is a Ghost_Mode in effect.
2023 * sem_res.adb Add with and use clauses for Ghost.
2024 (Check_Ghost_Context): Removed.
2025 * sem_util.adb (Check_Ghost_Completion): Removed.
2026 (Check_Ghost_Derivation): Removed.
2027 (Incomplete_Or_Partial_View):
2028 Add a guard in case the entity has not been analyzed yet
2029 and does carry a scope.
2030 (Is_Declaration): New routine.
2031 (Is_Ghost_Entity): Removed.
2032 (Is_Ghost_Statement_Or_Pragma):
2034 (Is_Subject_To_Ghost): Removed.
2035 (Set_Is_Ghost_Entity):
2037 (Within_Ghost_Scope): Removed.
2038 * sem_util.adb (Check_Ghost_Completion): Removed.
2039 (Check_Ghost_Derivation): Removed.
2040 (Is_Declaration): New routine.
2041 (Is_Ghost_Entity): Removed.
2042 (Is_Ghost_Statement_Or_Pragma): Removed.
2043 (Is_Subject_To_Ghost): Removed.
2044 (Set_Is_Ghost_Entity): Removed.
2045 (Within_Ghost_Scope): Removed.
2046 * sinfo.ads Add a section on Ghost mode.
2047 * treepr.adb (Print_Header_Flag): New routine.
2048 (Print_Node_Header): Factor out code. Output flag
2049 Is_Ignored_Ghost_Node.
2050 * gcc-interface/Make-lang.in: Add dependency for unit Ghost.
2052 2015-01-06 Eric Botcazou <ebotcazou@adacore.com>
2054 * freeze.adb (Freeze_Array_Type) <Complain_CS>: Remove always
2055 true test and unreachable 'else' arm.
2057 2015-01-06 Vincent Celier <celier@adacore.com>
2059 * prj-conf.adb (Check_Target): Improve error message when
2060 there are mismatched targets between the on in the configuration
2061 project file and the specified one, either in the main project
2062 file or in the --target= switch.
2064 2015-01-06 Pascal Obry <obry@adacore.com>
2066 * prj-attr.adb, projects.texi, snames.ads-tmpl: Add Mode and
2067 Install_Name attribute definitions.
2069 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2071 * freeze.adb (Wrap_Imported_Subprogram): Indicate that the
2072 generated Import pragma for the internal imported procedure does
2073 not come from an aspect, so that Is_Imported can be properly
2076 2015-01-06 Gary Dismukes <dismukes@adacore.com>
2078 * sem_ch12.adb (Might_Inline_Subp): Record whether
2079 any subprograms in the generic package are marked with
2080 pragma Inline_Always (setting flag Has_Inline_Always).
2081 (Analyze_Package_Instantiation): Add test of Has_Inline_Always
2082 alongside existing test of Front_End_Inlining as alternative
2083 conditions for setting Inline_Now. Also add test of
2084 Has_Inline_Always along with Front_End_Inlining test as an
2085 alternative condition for setting Needs_Body to False.
2087 2015-01-06 Tristan Gingold <gingold@adacore.com>
2089 * i-cpoint.adb (Copy_Array): Handle overlap.
2091 2015-01-06 Pascal Obry <obry@adacore.com>
2093 * bindgen.adb: Minor style fix.
2095 2015-01-06 Robert Dewar <dewar@adacore.com>
2097 * sem_util.ads, sem_util.adb: Minor reformatting.
2099 2015-01-06 Vincent Celier <celier@adacore.com>
2101 * prj-conf.adb (Parse_Project_And_Apply_Config): Reset incomplete
2102 with flags before parsing the projects.
2103 * prj-err.adb (Error_Msg): Do nothing if there are incomplete withs.
2104 * prj-part.adb (Post_Parse_Context_Clause): Set Incomplete_Withs
2105 to True in the flags, when Ignore_Missing_With is True and an
2106 imported project cannot be found.
2107 * prj-proc.adb (Expression): When there are incomplete withs and
2108 a variable or attribute is not found, set the variable/attribute
2110 * prj.ads (Processing_Flags): New flag Incomplete_Withs,
2113 2015-01-06 Vasiliy Fofanov <fofanov@adacore.com>
2115 * prj-proc.adb, prj-part.adb, prj.adb, prj.ads, prj-conf.adb,
2116 prj-err.adb: Add new switch --no-command-line.
2118 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2120 * sem_ch12.adb: Sloc of wrapper is that of instantiation.
2122 2015-01-06 Robert Dewar <dewar@adacore.com>
2124 * sem_ch11.adb: Minor reformatting.
2126 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2128 * exp_aggr.adb (Get_Assoc_Expr): New routine internal to
2129 Build_Array_Aggr_Code, used to initialized components covered
2130 by a box association. If the component type is scalar and has
2131 a default aspect, use it to initialize such components.
2133 2015-01-06 Pascal Obry <obry@adacore.com>
2135 * rtinit.c (__gnat_runtime_initialize): Add a parameter to
2136 control the setup of the exception handler.
2137 * initialize.c: Remove unused declaration.
2138 * bindgen.adb: Always call __gnat_runtime_initialize and pass
2139 whether the exeception handler must be set or not.
2141 2015-01-06 Thomas Quinot <quinot@adacore.com>
2143 * freeze.adb (Set_SSO_From_Defaults): When setting scalar storage
2144 order to native from default, make sure to also adjust bit order.
2145 * exp_aggr.adb: Minor reformatting.
2147 2015-01-06 Robert Dewar <dewar@adacore.com>
2149 * s-valllu.adb, s-valllu.ads, s-valuti.ads, s-valuns.adb, s-valuns.ads,
2150 s-valrea.adb, s-valrea.ads: Add some additional guards for
2151 Str'Last = Positive'Last.
2153 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2155 * sem_ch12.adb, sem_ch8.adb: Ongoing work for wrappers for actual
2158 2015-01-06 Javier Miranda <miranda@adacore.com>
2160 * exp_disp.adb (Expand_Interface_Conversion): Reapply patch.
2162 2015-01-06 Thomas Quinot <quinot@adacore.com>
2164 * sem_util.ads: Minor reformatting.
2165 * sem_cat.adb (In_RCI_Visible_Declarations): Change back to...
2166 (In_RCI_Declaration) Return to old name, as proper checking of
2167 entity being in the visible part depends on entity kind and must
2168 be done by the caller.
2170 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2172 * sem_ch12.adb, sem_ch12.ads, sem_ch8.adb: Ongoing work for wrappers
2173 for operators in SPARK.
2175 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2177 * sem_aggr.adb (Get_Value): In ASIS mode, preanalyze the
2178 expression in an others association before making copies for
2179 separate resolution and accessibility checks. This ensures that
2180 the type of the expression is available to ASIS in all cases,
2181 in particular if the expression is itself an aggregate.
2183 2015-01-06 Eric Botcazou <ebotcazou@adacore.com>
2185 * einfo.ads (Has_Independent_Components): Document extended
2187 * einfo.adb (Has_Independent_Components): Remove obsolete assertion.
2188 (Set_Has_Independent_Components): Adjust assertion.
2189 * sem_prag.adb (Analyze_Pragma): Also set Has_Independent_Components
2190 for pragma Atomic_Components. Set Has_Independent_Components
2191 on the object instead of the type for an object declaration with
2192 pragma Independent_Components.
2194 2015-01-06 Olivier Hainque <hainque@adacore.com>
2196 * set_targ.adb (Read_Target_Dependent_Values): Set
2197 Long_Double_Index when "long double" is read.
2198 (elaboration code): Register_Back_End_Types only when not reading from
2199 config files. Doing otherwise is pointless and error prone.
2201 2015-01-06 Robert Dewar <dewar@adacore.com>
2203 * s-valrea.adb (Value_Real): Check for Str'Last = Positive'Last
2205 2015-01-06 Robert Dewar <dewar@adacore.com>
2207 * a-wtgeau.adb, a-ztgeau.adb, a-tigeau.adb (String_Skip): Raise PE if
2208 Str'Last = Positive'Last.
2210 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2212 * sem_ch6.adb (Matches_Limited_View): Handle properly the case
2213 where the non-limited type is a generic actual and appears as
2214 a subtype of the non-limited view of the other.
2215 * freeze.adb (Build_Renamed_Body): If the return type of the
2216 declaration that is being completed is a limited view and the
2217 non-limited view is available, use it in the specification of
2220 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2222 * sem_ch3.adb (Find_Type_Name): If there is a previous tagged
2223 incomplete view, the type of the classwide type common to both
2224 views is the type being declared.
2226 2015-01-06 Eric Botcazou <ebotcazou@adacore.com>
2228 * einfo.ads (Is_Independent): Further document extended usage.
2230 2015-01-06 Eric Botcazou <ebotcazou@adacore.com>
2232 * einfo.ads (Is_Independent): Document extended usage.
2233 * einfo.adb (Is_Independent): Remove obsolete assertion.
2234 (Set_Is_Independent): Likewise.
2235 * sem_prag.adb (Process_Atomic_Shared_Volatile): Rename into...
2236 (Process_Atomic_Independent_Shared_Volatile): ...this.
2237 Deal with pragma Independent here.
2238 (Analyze_Pragma): Adjust
2239 to above renaming and also invoke it for pragma Independent.
2240 Adjust comment for Independent_Components.
2242 2015-01-06 Robert Dewar <dewar@adacore.com>
2244 * snames.ads-tmpl: Remove entries for attribute Enum_Image.
2245 * exp_attr.adb: Remove reference to Attribute_Enum_Image.
2247 2015-01-06 Robert Dewar <dewar@adacore.com>
2249 * s-vallli.adb (Value_Long_Long_Integer): Handle case of Str'Last
2251 * s-valllu.adb (Value_Long_Long_Unsigned): Handle case of
2252 Str'Last = Positive'Last.
2254 2015-01-06 Robert Dewar <dewar@adacore.com>
2256 * sem_prag.adb (Process_Inline): Remove redundant construct
2257 warning (-gnatw.r) for an ineffective pragma Inline.
2259 2015-01-06 Robert Dewar <dewar@adacore.com>
2261 * s-valint.adb: Fix typo in last checkin.
2262 * s-valuns.adb (Value_Unsigned): More efficient fix for
2264 * sem_attr.adb (Analyze_Attribute): Minor reformatting
2265 (Eval_Attribute): Static ervaluation of 'Img for enumeration types.
2267 2015-01-06 Robert Dewar <dewar@adacore.com>
2269 * s-valint.adb, s-valuns.adb (Value_Integer): Deal with case where
2270 Str'Last = Positive'Last
2272 2015-01-06 Thomas Quinot <quinot@adacore.com>
2274 * xoscons.adb: Display exception information and return non-zero
2275 exit status in top level exception handler.
2277 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2279 * sem_ch8.adb: Code clean up.
2281 2015-01-06 Tristan Gingold <gingold@adacore.com>
2283 * targparm.ads: Remove obsolete comment.
2285 2015-01-06 Olivier Hainque <hainque@adacore.com>
2287 * gcc-interface/decl.c (gnat_to_gnu_entity, case E_Variable): When
2288 constructing a ref to variable, update inner_const_flag from the
2289 variable TREE_READONLY attribute.
2290 * gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Remove default
2292 (get_target_float_size): Remove.
2293 (get_target_double_size): Remove.
2294 (get_target_long_double_size): Remove.
2296 2015-01-06 Pascal Obry <obry@adacore.com>
2298 * adaint.c (ProcListEvt): Set to NULL.
2299 * rtinit.c: New file.
2300 (__gnat_rt_init_count): New reference counter set to 0.
2301 (__gnat_runtime_initialize): Move code here from __gnat_initialize when
2302 this code is actually needed for the runtime initialization. This
2303 routine returns immediately if the initialization has already been done.
2304 * final.c: Revert previous change.
2305 * rtfinal.c: New file.
2306 (__gnat_runtime_finalize)[Win32]: Add finalization of the critical
2307 section and event. The default version of this routine is empty (except
2308 for the reference counting code). This routine returns immediately if
2309 some others libraries are referencing the runtime.
2310 * bindgen.adb (Gen_Adainit): Generate call to Runtime_Initialize
2311 remove circuitry to initialize the signal handler as this is
2312 now done by the runtime initialization routine.
2313 (Gen_Adafinal): Generate call to Runtime_Finalize.
2314 * gnat_ugn.texi: Update documentation about concurrency and
2315 initialization/finalization of the run-time.
2316 * gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Add
2317 references to rtfinal.o and rtinit.o
2319 2015-01-06 Robert Dewar <dewar@adacore.com>
2321 * exp_attr.adb (Expand_N_Attribute_Reference): Add dummy entry
2323 * sem_attr.adb: Implement Enum_Image attribute.
2324 * snames.ads-tmpl: Add entries for Enum_Image attribute.
2326 2015-01-06 Robert Dewar <dewar@adacore.com>
2328 * namet.ads: Document use of Boolean2 for No_Use_Of_Entity.
2329 * restrict.ads (No_Use_Of_Entity): New table.
2330 * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
2331 Ignore No_Use_Of_Entity (will be processed in parser).
2332 * snames.ads-tmpl: Add entry for Name_No_Use_Of_Entity.
2334 2015-01-06 Vincent Celier <celier@adacore.com>
2336 * prj-tree.adb (Imported_Or_Extended_Project_Of): Do not try
2337 to check for an extended project, if a project does not have
2338 yet a project declaration.
2340 2015-01-06 Pierre-Marie Derodat <derodat@adacore.com>
2342 * scos.ads: Update documentation about the SCO table build
2343 process and about table records format.
2344 * par_sco.ads (SCO_Record): Rename to SCO_Record_Raw.
2345 (SCO_Record_Filtered): New procedure.
2346 (Set_SCO_Logical_Operator): New procedure.
2347 (dsco): Update documentation.
2348 * par_sco.adb: Update library-level comments.
2349 (SCO_Generation_State_Type): New type.
2350 (SCO_Generation_State): New variable.
2351 (SCO_Raw_Table): New package instanciation.
2352 (Condition_Pragma_Hash_Table): Rename to SCO_Raw_Hash_Table.
2354 (Tristate): New type.
2355 (Is_Logical_Operator): Return Tristate and update documentation.
2356 (Has_Decision): Update call to Is_Logical_Operator and complete
2358 (Set_Table_Entry): Rename to Set_Raw_Table_Entry, update
2359 comment, add an assertion for state checking and change
2360 references to SCO_Table into SCO_Raw_Table.
2361 (dsco): Refactor to dump the raw and the filtered tables.
2362 (Process_Decisions.Output_Decision_Operand): Handle putative
2363 short-circuit operators.
2364 (Process_Decisions.Output_Element): Update references
2365 to Set_Table_Entry and to Condition_Pragma_Hash_Table.
2366 (Process_Decisions.Process_Decision_Operand): Update call
2367 to Is_Logical_Operator.
2368 (Process_Decisions.Process_Node): Handle putative short-circuit
2369 operators and change references to
2370 SCO_Table into SCO_Raw_Table.
2371 (SCO_Output): Add an assertion
2372 for state checking and remove code that used to stamp out SCO entries.
2373 (SCO_Pragma_Disabled): Change reference to SCO_Table
2375 (SCO_Record): Rename to SCO_Record_Raw,
2376 add an assertion for state checking and change references
2377 to SCO_Table into SCO_Raw_Table.
2378 (Set_SCO_Condition): Add an assertion for state checking, update
2379 references to Condition_Pragma_Hash_Table and change references to
2380 SCO_Table into SCO_Raw_Table.
2381 (Set_SCO_Pragma_Enabled): Add an assertion for state checking and
2382 change references to SCO_Table into SCO_Raw_Table.
2383 (Set_SCO_Logical_Operator): New procedure.
2384 (Traverse_Declarations_Or_Statements.Set_Statement_Entry): Update
2385 references to Set_Table_Entry and to Condition_Pragma_Hash_Table.
2386 (SCO_Record_Fildered): New procedure.
2387 * gnat1drv.adb (Gnat1drv): Invoke the SCO filtering pass.
2388 * lib-writ.adb (Write_ALI): Invoke the SCO filtering pass and
2390 * par-load.adb (Load): Update reference to SCO_Record.
2391 * par.adb (Par): Update reference to SCO_Record.
2392 * put_scos.adb (Put_SCOs): Add an assertion to check that no
2393 putative SCO condition reaches this end.
2394 * sem_ch10.adb (Analyze_Proper_Body): Update reference to SCO_Record.
2395 * sem_res.adb (Resolve_Logical_Op): Validate putative SCOs
2396 when corresponding to an "and"/"or" operator affected by the
2397 Short_Circuit_And_Or pragma.
2399 2015-01-06 Robert Dewar <dewar@adacore.com>
2401 * sem_ch8.adb (Analyze_Use_Package): Give more specific error
2402 msg for attempted USE of generic subprogram or subprogram.
2404 2015-01-06 Robert Dewar <dewar@adacore.com>
2406 * s-valllu.adb, a-tiinau.adb, a-timoau.adb, a-ztinau.adb, a-ztmoau.adb,
2407 s-valuns.adb, s-valrea.adb, a-wtflau.adb, a-tiflau.adb, a-ztflau.adb,
2408 a-wtinau.adb, a-wtmoau.adb: Document recognition of : in place of #.
2410 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2412 * sem_ch13.adb (Analyze_Aspect_Specifications): For aspects
2413 that specify stream subprograms, if the prefix is a class-wide
2414 type then the generated attribute definition clause must apply
2415 to the same class-wide type.
2416 (Default_Iterator): An iterator defined by an aspect of some
2417 container type T must have a first parameter of type T, T'class,
2418 or an access to such (from code reading RM 5.5.1 (2/3)).
2420 2015-01-06 Arnaud Charlet <charlet@adacore.com>
2422 * gnat1drv.adb: Minor: complete previous change.
2424 2015-01-06 Olivier Hainque <hainque@adacore.com>
2426 * set_targ.ads (C_Type_For): New function. Return the name of
2427 a C type supported by the back-end and suitable as a basis to
2428 construct the standard Ada floating point type identified by
2429 the T parameter. This is used as a common ground to feed both
2430 ttypes values and the GNAT tree nodes for the standard floating
2432 * set_targ.adb (Long_Double_Index): The index at which "long
2433 double" gets registered in the FPT_Mode_Table. This is useful to
2434 know whether we have a "long double" available at all and get at
2435 it's characteristics without having to search the FPT_Mode_Table
2436 when we need to decide which C type should be used as the
2437 basis for Long_Long_Float in Ada.
2438 (Register_Float_Type): Fill Long_Double_Index.
2439 (FPT_Mode_Index_For): New function. Return the index in
2440 FPT_Mode_Table that designates the entry corresponding to the
2441 provided C type name.
2442 (FPT_Mode_Index_For): New function. Return the index in
2443 FPT_Mode_Table that designates the entry for a back-end type
2444 suitable as a basis to construct the standard Ada floating point
2445 type identified by the input T parameter.
2446 (elaboration code): Register_Back_End_Types unconditionally,
2447 so C_Type_For can operate regardless of -gnateT. Do it
2448 early so we can query it for the floating point sizes, via
2449 FPT_Mode_Index_For. Initialize Float_Size, Double_Size and
2450 Long_Double_Size from the FPT_Mode_Table, as cstand will do.
2451 * cstand.adb (Create_Float_Types): Use C_Type_For to determine
2452 which C type should be used as the basis for the construction
2453 of the Standard Ada floating point types.
2454 * get_targ.ads (Get_Float_Size, Get_Double_Size,
2455 Get_Long_Double_Size): Remove.
2456 * get_targ.adb: Likewise.
2458 2015-01-06 Thomas Quinot <quinot@adacore.com>
2460 * sem_cat.adb (In_RCI_Declaration): Remove unnecessary
2461 parameter and rename to...
2462 (In_RCI_Visible_Declarations): Fix handling of private part of nested
2464 (Validate_RCI_Subprogram_Declaration): Reject illegal function
2465 returning anonymous access in RCI unit.
2467 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2469 * sem_ch6.adb (New_Overloaded_Entity): In GNATprove mode, a
2470 function wrapper may be a homonym of another local declaration.
2471 * sem_ch8.adb (Analyze_Subprogram_Renaming): In GNATprove mode,
2472 build function and operator wrappers after the actual subprogram
2473 has been resolved, and replace the standard renaming declaration
2474 with the declaration of wrapper.
2475 * sem_ch12.ads (Build_Function_Wrapper, Build_Operator_Wraooer):
2476 make public for use elsewhere.
2477 * sem_ch12.adb (Build_Function_Wrapper, Build_Operator_Wraooer):
2478 rewrite, now that actual is fully resolved when wrapper is
2481 2015-01-06 Javier Miranda <miranda@adacore.com>
2483 * exp_disp.adb: Revert previous change.
2485 2015-01-06 Robert Dewar <dewar@adacore.com>
2487 * exp_util.adb: Change name Name_Table_Boolean to
2488 Name_Table_Boolean1.
2489 * namet.adb: Change name Name_Table_Boolean to Name_Table_Boolean1
2490 Introduce Name_Table_Boolean2/3.
2491 * namet.ads: Change name Name_Table_Boolean to Name_Table_Boolean1
2492 Introduce Name_Table_Boolean2/3.
2493 * par-ch13.adb: Change name Name_Table_Boolean to
2494 Name_Table_Boolean1.
2496 2015-01-06 Bob Duff <duff@adacore.com>
2498 * gnat_rm.texi: Improve documentation regarding No_Task_Termination.
2500 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2502 * sem_aggr.adb (Resolve_Record_Aggregte, Get_Value): For an
2503 others choice that covers multiple components, analyze each
2504 copy with the type of the component even in compile-only mode,
2505 to detect potential accessibility errors.
2507 2015-01-06 Hristian Kirtchev <kirtchev@adacore.com>
2509 * sem_res.adb (Is_Assignment_Or_Object_Expression): New routine.
2510 (Resolve_Actuals): An effectively volatile out
2511 parameter cannot act as an in or in out actual in a call.
2512 (Resolve_Entity_Name): An effectively volatile out parameter
2515 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2517 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): If the body is
2518 the expansion of an expression function it may be pre-analyzed
2519 if a 'access attribute is applied to the function, in which case
2520 last_entity may have been assigned already.
2522 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2524 * sem_ch4.adb (Analyze_One_Call): If formal has an incomplete
2525 type and actual has the corresponding full view, there is no
2526 error, but a case of use of incomplete type in a predicate or
2527 invariant expression.
2529 2015-01-06 Vincent Celier <celier@adacore.com>
2531 * makeutl.adb (Insert_No_Roots): Make sure that the same source
2532 in two different project tree is checked in both trees, if they
2533 are sources of two different projects, extended or not.
2535 2015-01-06 Arnaud Charlet <charlet@adacore.com>
2537 * gnat1drv.adb: Minor code clean up.
2538 (Adjust_Global_Switches): Ignore gnatprove_mode in codepeer_mode.
2540 2015-01-06 Bob Duff <duff@adacore.com>
2542 * osint.adb (Read_Source_File): Don't print out
2543 file name unless T = Source.
2545 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2547 * sem_util.adb (Is_Variable, Is_OK_Variable_For_Out_Formal):
2548 recognize improper uses of constant_reference types as actuals
2549 for in-out parameters.
2550 (Check_Function_Call): Do not collect identifiers if function
2551 name is missing because of previous error.
2553 2015-01-06 Robert Dewar <dewar@adacore.com>
2555 * ali-util.adb, sem_prag.adb, rtsfind.adb, sem_util.adb, sem_res.adb,
2556 ali.adb, binde.adb, namet.adb, namet.ads, gnatls.adb, bcheck.adb:
2557 Minor change of name Name_Table_Info => Name_Table_Int.
2559 2015-01-06 Robert Dewar <dewar@adacore.com>
2561 * exp_strm.adb (Build_Elementary_Input_Call): Clarify comments
2562 in previous checkin.
2563 * freeze.adb (Freeze_Fixed_Point_Type): Add warning for shaving
2565 * sem_prag.adb, sem_ch10.adb, sem_ch6.adb: Minor reformatting.
2567 2015-01-06 Vincent Celier <celier@adacore.com>
2569 * a-strsup.adb (Times (Natural;String;Positive)): Raise
2570 Length_Error, not Index_Error, when the result is too long.
2572 2015-01-06 Thomas Quinot <quinot@adacore.com>
2574 * a-direct.adb (Create_Path): Minor error handling and
2575 performance improvement.
2577 2015-01-06 Robert Dewar <dewar@adacore.com>
2579 * checks.ads, sem_ch12.adb: Minor reformatting.
2580 * exp_ch4.adb (Expand_N_Op_Divide): Generate explicit divide by
2581 zero check for fixed-point case if Backend_Divide_Checks_On_Target
2584 2015-01-06 Robert Dewar <dewar@adacore.com>
2586 * sem_prag.adb (Analyze_Pragma, case No_Elaboration_Code_All):
2587 Do not set restriction No_Elaboration_Code unless the pragma
2588 appears in the main unit).
2590 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2592 * sem_ch10.adb (Is_Regular_With_Clause): Add guard to verify
2593 that with clause has already been analyzed before checking kind
2596 2015-01-06 Robert Dewar <dewar@adacore.com>
2598 * exp_strm.adb (Build_Elementary_Input_Call): Return base type
2599 (as required by RM).
2601 2015-01-06 Arnaud Charlet <charlet@adacore.com>
2603 * a-reatim.adb ("/"): Add explicit pragma Unsuppress (Division_Check).
2605 2015-01-06 Robert Dewar <dewar@adacore.com>
2607 * sem_prag.adb (Process_Suppress_Unsuppress): Add extra warning
2608 for ignoring pragma Suppress (Elaboration_Check) in SPARK mode.
2610 2015-01-06 Javier Miranda <miranda@adacore.com>
2612 * exp_disp.adb (Expand_Interface_Conversion): No displacement
2613 of the pointer to the object needed when the type of the operand
2614 is not an interface type and the interface is one of its parent
2615 types (since they share the primary dispatch table).
2617 2015-01-06 Vincent Celier <celier@adacore.com>
2619 * prj-env.adb: Minor comment update.
2621 2015-01-06 Javier Miranda <miranda@adacore.com>
2623 * sem_res.adb (Valid_Conversion): Restrict the checks on anonymous
2624 access types whose target type is an interface type to operands
2625 that are access types; required to report an error when the
2626 operand is not an access type.
2628 2015-01-06 Bob Duff <duff@adacore.com>
2630 * a-cfinve.adb (Copy): Set the discriminant to the Length when
2632 * a-cofove.ads (Capacity): Add a postcondition.
2633 * a-cfinve.ads (Capacity): Add a postcondition.
2634 (Reserve_Capacity): Correct the postcondition in the case where
2635 Capacity = 0; that means "Capacity => Length (Container)".
2636 * a-cofove.adb (Elems[c]): Add a comment
2637 explaining the dangers and how to avoid them.
2639 2015-01-06 Ed Schonberg <schonberg@adacore.com>
2641 * sem_ch12.adb: Code clean up.
2643 2015-01-06 Arnaud Charlet <charlet@adacore.com>
2645 * gnatvsn.ads: Bump copyright year.
2647 2015-01-06 Robert Dewar <dewar@adacore.com>
2649 * s-taskin.ads, s-traces.ads: Minor reformatting.
2650 * exp_util.adb: Minor typo fix.
2652 2015-01-06 Vincent Celier <celier@adacore.com>
2654 * gnatls.adb (Search_RTS): Invoke Initialize_Default_Project_Path
2655 with the runtime name.
2656 * prj-env.adb (Initialize_Default_Project_Path): When both
2657 Target_Name and Runtime_Name are not empty string, add to the
2658 project path the two directories .../lib/gnat and .../share/gpr
2659 related to the runtime.
2660 * prj-env.ads (Initialize_Default_Project_Path): New String
2661 parameter Runtime_Name, defaulted to the empty string.
2663 2015-01-06 Hristian Kirtchev <kirtchev@adacore.com>
2665 * frontend.adb: Guard against the case where a configuration
2666 pragma may be split into multiple pragmas and the original
2667 rewritten as a null statement.
2668 * sem_prag.adb (Analyze_Pragma): Insert a brand new Check_Policy
2669 pragma using Insert_Before rather than Insert_Action. This
2670 takes care of the configuration pragma case where Insert_Action
2673 2015-01-06 Bob Duff <duff@adacore.com>
2675 * a-coboho.ads (Element_Access): Add "pragma
2676 No_Strict_Aliasing (Element_Access);". This is needed because
2677 we are unchecked-converting from Address to Element_Access.
2678 * a-cofove.ads, a-cofove.adb (Elems,Elemsc): Fix bounds of the
2681 2015-01-06 Hristian Kirtchev <kirtchev@adacore.com>
2683 * sem_res.adb (Resolve_Actuals): Remove the
2684 restriction which prohibits volatile actual parameters with
2685 enabled external propery Async_Writers to act appear in procedure
2686 calls where the corresponding formal is of mode OUT.
2688 2015-01-05 Jakub Jelinek <jakub@redhat.com>
2690 * gnat_ugn.texi: Bump @copying's copyright year.
2692 2015-01-05 Eric Botcazou <ebotcazou@adacore.com>
2695 * gcc-interface/Makefile.in (../stamp-tools): Reinstate dropped code.
2697 2015-01-04 Uros Bizjak <ubizjak@gmail.com>
2699 * gcc-interface/misc.c (internal_error_function): Use xasprintf instead
2700 of unchecked asprintf.
2703 Copyright (C) 2015 Free Software Foundation, Inc.
2705 Copying and distribution of this file, with or without modification,
2706 are permitted in any medium without royalty provided the copyright
2707 notice and this notice are preserved.