1 2017-01-19 Justin Squirek <squirek@adacore.com>
3 * exp_ch9.adb (Is_Pure_Barrier): Create function
4 Is_Count_Attribute to identify an expansion of the 'Count
7 2017-01-19 Pierre-Marie de Rodat <derodat@adacore.com>
9 * exp_dbug.adb (Debug_Renaming_Declaration): Process underlying types.
10 Emit GNAT encodings for object renamings involving record components
11 whose normalized bit offset is not null.
12 * uintp.h (UI_No_Uint): Declare.
14 2017-01-19 Ed Schonberg <schonberg@adacore.com>
16 * sem_ch5.adb (Analyze_Loop_Statement): In GNATprove mode the
17 statements within an element iterator loop are only analyzed
18 agter the loop is rewritten. Within a generic the analysis must
19 be performed in any case to complete name capture.
21 2017-01-19 Bob Duff <duff@adacore.com>
23 * sem_prag.adb (Analyze_Pragma): Check for ignored pragmas first,
24 before checking for unrecognized pragmas.
25 Initialize Pname on its declarations; that's always good style.
27 2017-01-19 Claire Dross <dross@adacore.com>
29 * exp_ch7.adb (Build_Invariant_Procedure_Body): Semi-insert the
30 body into the tree for GNATprove by setting its Parent field. The
31 components invariants of composite types are not checked by
32 the composite type's invariant procedure in GNATprove mode.
33 (Build_Invariant_Procedure_Declaration): Semi-insert the
34 declaration into the tree for GNATprove by setting its Parent
36 * freeze.adb (Freeze_Arry_Type):In GNATprove mode, do not add
37 the component invariants to the array type invariant procedure
38 so that the procedure can be used to check the array type
40 (Freeze_Record_Type): In GNATprove mode, do
41 not add the component invariants to the record type invariant
42 procedure so that the procedure can be used to check the record
43 type invariants if any.
45 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
47 * lib-xref-spark_specific.adb: Minor reformatting.
48 * exp_ch7.adb (Add_Parent_Invariants): Do not process array types.
50 2017-01-19 Tristan Gingold <gingold@adacore.com>
52 * fe.h (Constant_Value): Export.
54 2017-01-19 Javier Miranda <miranda@adacore.com>
56 * exp_aggr.adb (Pass_Aggregate_To_Back_End): Renamed as
57 Build_Back_End_Aggregate.
58 (Generate_Aggregate_For_Derived_Type): Code cleanup.
59 (Prepend_Stored_Values): Code cleanup.
61 2017-01-19 Ed Schonberg <schonberg@adacore.com>
63 * sem_ch6.adb (Analyze_Expression_Function): Check for an
64 incomplete return type after attempting to freeze it, so that
65 other freeze actiona are generated in the proper order.
67 2017-01-19 Ed Schonberg <schonberg@adacore.com>
69 * sem_aggr.adb (Resolve_Aggregate): If the type is a string
70 type, ie. a type whose component is a character type, and the
71 aggregate is positional, do not convert into a string literal
72 if the index type is not an integer type, because the original
73 type may be required in an enclosing operation.
75 2017-01-19 Bob Duff <duff@adacore.com>
77 * binde.adb, debug.adb: Enable new elaboration order algorithm
78 by default. -dp switch reverts to the old algorithm.
80 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
82 * sem_ch3.adb Add with and use clauses for Exp_Ch7.
83 (Analyze_Declarations): Create the DIC and Invariant
84 procedure bodies s after all freezing has taken place.
85 (Build_Assertion_Bodies): New routine.
86 * sem_ch7.adb Remove the with and use clauses for Exp_Ch7
88 (Analyze_Package_Specification): Remove the
89 generation of the DIC and Invariant procedure bodies. This is
90 now done by Analyze_Declarations.
91 * sem_disp.adb (Check_Dispatching_Operation): DIC and Invariant
92 procedures are never treated as primitives.
94 2017-01-19 Yannick Moy <moy@adacore.com>
96 * frontend.adb: Analyze inlined bodies and check elaboration
97 rules in GNATprove mode too.
98 * sem_elab.adb (Delay_Element): Add Boolean component to save
99 indication that call is in SPARK code. (Check_Elab_Calls):
100 Check elaboration rules in GNATprove mode, and correctly set
101 the current value of SPARK_Mode.
102 * lib-xref-spark_specific.adb
103 (Add_SPARK_Xrefs): Simplify iteration over dereferences.
105 2017-01-19 Ed Schonberg <schonberg@adacore.com>
107 * exp_ch4.adb (Expand_Concatenate): Do no enable overflow
108 checks on the expression for the high bound of concatenation
109 when checks are disabled, to suppress warnings about potential
110 constraint errors in restricted runtimes.
112 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
114 * exp_ch3.adb (Expand_Freeze_Enumeration_Type): Mark the
115 representation-to-position function as inlined.
116 * sem_cat.adb (Set_Categorization_From_Scope): Do not modify
117 the purity of an internally generated entity if it has been
118 explicitly marked as pure for optimization purposes.
119 * exp_aggr.adb: Minor reformatting.
121 2017-01-19 Javier Miranda <miranda@adacore.com>
123 * exp_ch6.adb (Expand_Call): Remove side effects on
124 actuals that are allocators with qualified expression since the
125 initialization of the object is performed by means of individual
126 statements (and hence it must be done before the call).
128 2017-01-19 Ed Schonberg <schonberg@adacore.com>
130 * sem_ch3.adb (Analyze_Declarations): Minor reformatting.
131 (Build_Derived_Enumeration_Type): If the derived type inherits a
132 dynamic predicate from its parent, the bounds of the type must
133 freeze because an explicit constraint is constructed for the
134 type and the corresponding range is elaborated now.
136 2017-01-19 Arnaud Charlet <charlet@adacore.com>
138 * sem_attr.ads: minor fix of inconsistent casing in comment
139 * lib-writ.ads: minor align comments in columns
140 * sem_ch3.adb: Minor reformatting.
141 * spark_xrefs.ads: minor fix typo in SPARK-related comment
142 * table.ads: minor style fix in comment
143 * lib-xref-spark_specific.adb
144 (Add_SPARK_Xrefs): simplify processing of SPARK cross-references.
145 * sem_ch12.adb: minor whitespace fix
146 * freeze.adb: Add comment.
147 * sem_util.adb (Unique_Name): for instances of
148 generic subprograms ignore the name of the wrapper package.
150 2017-01-19 Javier Miranda <miranda@adacore.com>
152 * exp_aggr.adb (Resolve_Record_Aggregate):
153 Factorize code needed for aggregates of limited and unlimited
154 types in a new routine.
155 (Pass_Aggregate_To_Back_End): New subprogram.
157 2017-01-19 Yannick Moy <moy@adacore.com>
159 * sinfo.adb (Pragma_Name): Only access up to Last_Pair of Pragma_Map.
161 2017-01-19 Ed Schonberg <schonberg@adacore.com>
163 * sem_ch4.ads, sem_ch4.adb (Try_Object_Operation): Make subprogram
164 public, for use elsewhere.
165 * sem_ch6.adb (Analyze_Procedure_Call): In SPARK_Mode and within
166 an Inlined_body, recognize a call that uses object notation
167 and has not been rewritten as a regular call because regular
168 expansion has not taken place.
170 2017-01-19 Bob Duff <duff@adacore.com>
172 * checks.adb (Apply_Type_Conversion_Checks): Disable small optimization
173 in case of generic formal discrete types, because it causes crashes in
174 the compiler when built with assertions on.
176 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
178 * lib-xref-spark_specific.adb, sem_util.adb, sem_util.ads,
179 sem_ch4.adb, sem_ch8.adb, lib-xref.ads: Minor reformatting.
181 2017-01-19 Bob Duff <duff@adacore.com>
183 * bcheck.adb (Check_Consistent_Dynamic_Elaboration_Checking):
184 Increment Warnings_Detected. It was decrementing, which is
185 wrong since we just issued a warning message.
186 * binderr.ads (Errors_Detected, Warnings_Detected): Declare
187 these variables to be of subtype Nat instead of Int, because
188 they should never be negative.
190 2017-01-19 Javier Miranda <miranda@adacore.com>
192 * contracts.adb (Build_Postconditions_Procedure): Replace
193 Generate_C_Code by Modify_Tree_For_C.
194 * exp_aggr.adb (Build_Record_Aggr_Code, Expand_Array_Aggregate):
195 Replace Generate_C_Code by Modify_Tree_For_C.
196 * exp_attr.adb (Float_Valid, Is_GCC_Target): Replace Generate_C_Code by
198 * exp_ch11.adb (Expand_N_Exception_Declaration): Replace
199 Generate_C_Code by Modify_Tree_For_C.
200 * exp_ch4.adb (Expand_Allocator_Expression): Replace
201 Generate_C_Code by Modify_Tree_For_C.
202 * exp_dbug.adb (Qualify_Entity_Name): Replace Generate_C_Code
203 by Modify_Tree_For_C.
204 * exp_util.adb (Remove_Side_Effects, Side_Effect_Free): Replace
205 Generate_C_Code by Modify_Tree_For_C.
206 * sem_res.adb (Resolve_Type_Conversion): Replace Generate_C_Code
207 by Modify_Tree_For_C.
208 * sinfo.ads (Modify_Tree_For_C): Adding documentation.
210 2017-01-19 Javier Miranda <miranda@adacore.com>
212 * sem_util.ads, sem_util.adb (Expression_Of_Expression_Function): New
214 (Is_Inlinable_Expression_Function): New subprogram.
215 * exp_ch6.ads, exp_ch6.adb (Expression_Of_Expression_Function): Moved
217 (Is_Inlinable_Expression_Function): Moved to Sem_Util.
219 2017-01-19 Ed Schonberg <schonberg@adacore.com>
221 * sem_ch4.adb (Diagnose_Call): Improve error message when a
222 selected component has a prefix that might be interpreted
223 as a parameterless function call, but none of the candidate
224 interpretations is parameterless, and there is a hidden homonym
225 of the prefix that is a package.
226 * sem_ch8.adb (Find_Selected_Component): If the prefix might be
227 interpreted as a parameterless function call and its analysis
228 fails, do not call Analyze_Selected_Component.
230 2017-01-19 Steve Baird <baird@adacore.com>
232 * sem_util.ads: Add new Use_Full_View Boolean parameter to
234 * sem_util.adb (Get_Index_Bounds): replace calls to Scalar_Range with
235 calls to a newly-defined Scalar_Range_Of_Right_View function.
237 2017-01-19 Arnaud Charlet <charlet@adacore.com>
239 * gnat1drv.adb: minor fix of unbalanced parens in comment
240 * lib-xref.ads (Traverse_Compilation_Unit): declaration moved
241 to visible part of the package to allow re-use in GNATprove.
242 * lib-xref-spark_specific.adb (Traverse_Stub): routine refactored
243 from repeated code of Traverse_Compilation_Unit.
244 (Traverse_Declaration_Or_Statement): fixed detection of
245 generic subprograms and packages; also, iteration over case
246 statement alternatives rewritten to avoid testing if the first
247 alternative is present (since it must be present due to Ada
248 syntax restrictions).
250 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
252 * exp_ch6.adb (Expand_N_Subprogram_Body): Mark the spec as
253 returning by reference not just for subprogram body stubs,
254 but for all subprogram cases.
255 * sem_util.adb: Code reformatting.
256 (Requires_Transient_Scope): Update the call to Results_Differ.
257 (Results_Differ): Update the parameter profile and the associated
260 2017-01-19 Ed Schonberg <schonberg@adacore.com>
262 * sem_dim.adb (Analyze_Dimension): Analyze object declaration and
263 identifier nodes that do not come from source, to handle properly
264 dimensionality check within an inlined body which inclddes both
265 original operands and rewritten operands. This removes spurious
266 dimensionality errors in the presence of front-end inlining,
267 as well as in SPARK mode.
269 2017-01-16 Jakub Jelinek <jakub@redhat.com>
272 * gcc-interface/lang.opt (gant, gnatO, gnat): Add Driver flag.
274 2017-01-13 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
276 * gcc-interface/Makefile.in (SPARC/Solaris): Fix typo.
278 2017-01-13 Arnaud Charlet <charlet@adacore.com>
280 * doc/gnat_ugn/getting_started_with_gnat.rst,
281 doc/gnat_ugn/inline_assembler.rst,
282 doc/gnat_ugn/building_executable_programs_with_gnat.rst,
283 doc/gnat_ugn/elaboration_order_handling_in_gnat.rst,
284 doc/gnat_ugn/about_this_guide.rst,
285 doc/gnat_ugn/platform_specific_information.rst,
286 doc/gnat_ugn/example_of_binder_output.rst,
287 doc/gnat_ugn/gnat_and_program_execution.rst,
288 doc/gnat_ugn/gnat_utility_programs.rst,
289 doc/gnat_ugn/the_gnat_compilation_model.rst,
290 doc/gnat_rm/implementation_defined_attributes.rst,
291 doc/gnat_rm/compatibility_and_porting_guide.rst,
292 doc/gnat_rm/standard_library_routines.rst,
293 doc/gnat_rm/standard_and_implementation_defined_restrictions.rst,
294 doc/gnat_rm/implementation_defined_pragmas.rst,
295 doc/gnat_rm/the_gnat_library.rst,
296 doc/gnat_rm/obsolescent_features.rst,
297 doc/gnat_rm/about_this_guide.rst,
298 doc/gnat_rm/the_implementation_of_standard_i_o.rst,
299 doc/gnat_rm/implementation_of_ada_2012_features.rst,
300 doc/gnat_rm/interfacing_to_other_languages.rst,
301 doc/gnat_rm/implementation_defined_aspects.rst,
302 doc/gnat_rm.rst: Update documentation.
303 * gnat_rm.texi, gnat_ugn.texi: Regenerated.
305 2017-01-13 Ed Schonberg <schonberg@adacore.com>
307 * einfo.ads: minor grammar fixes in comment of Normalized_Position_Max.
308 * scil_ll.adb: Minor style fix in comment.
309 * sem_ch8.adb (Analyze_Expanded_Name): Perform dimension analysis
310 even if entity is already set, because the node may be renalyzed
311 after inlining transformations.
313 2017-01-13 Javier Miranda <miranda@adacore.com>
315 * sem_res.adb (Resolve_Call): Do not establish a transient scope
316 for a call to inlinable expression function (since the call will
317 be replaced by its returned object).
318 * exp_ch6.ads (Is_Inlinable_Expression_Function): New subprogram.
319 * exp_ch6.adb (Expression_Of_Expression_Function): New subprogram.
320 (Expand_Call): For inlinable expression function call replace the
321 call by its returned object.
322 (Is_Inlinable_Expression_Function): New subprogram.
324 2017-01-13 Gary Dismukes <dismukes@adacore.com>
326 * checks.adb: Minor typo fix and reformatting.
328 2017-01-13 Javier Miranda <miranda@adacore.com>
330 * contracts.adb (Contract_Only_Subprograms): Remove formal.
331 (Copy_Original_Specification): Removed.
332 (Skip_Contract_Only_Subprogram): Move here checks previously
333 located in the caller of this routine (to leave the code more clean).
334 (Build_Contract_Only_Subprogram): Code cleanup.
335 * scil_ll.ads, scil_ll.adb (Get_Contract_Only_Body_Name): Removed.
336 (Get_Contract_Only_Missing_Body_Name): Removed.
338 2017-01-13 Javier Miranda <miranda@adacore.com>
340 * sem_ch6.adb (Cloned_Expression): New subprogram.
341 (Freeze_Expr_Types): Complete previous patch since the expression
342 of an expression-function may have iterators and loops with
343 defining identifiers which, as part of the preanalysis of the
344 expression, may be left decorated with itypes that will not be
345 available in the tree passed to the backend.
347 2017-01-13 Ed Schonberg <schonberg@adacore.com>
349 * checks.adb (Apply_Type_Conversion_Checks): Optimize a type
350 conversion to Integer of an expression that is an attribute
351 reference 'Pos on an enumeration type.
353 2017-01-13 Bob Duff <duff@adacore.com>
355 * atree.ads: Minor comment fix.
357 2017-01-13 Justin Squirek <squirek@adacore.com>
359 * sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function
360 calls in accessibility check on return statement.
362 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
364 * sem_ch6.adb (Analyze_Subprogram_Body_Helper):
365 Ensure that the input body is a subprogram body before trying to
366 determine whether it denoted an expression function. Note that
367 subprogram body stubs cannot denote expression functions.
369 2017-01-13 Gary Dismukes <dismukes@adacore.com>
371 * bindgen.adb, sem_ch6.adb, binde.adb, exp_ch3.adb: Minor reformatting
374 2017-01-13 Javier Miranda <miranda@adacore.com>
376 * einfo.ads (Component_Bit_Offset): Fix documentation.
377 * sem_ch13.adb (Check_Record_Representation_Clause): Skip check
378 on record holes for components with unknown compile-time offsets.
380 2017-01-13 Bob Duff <duff@adacore.com>
382 * ali.ads, ali.adb (Static_Elaboration_Model_Used): Remove unused flag.
383 * g-locfil.ads: Minor comment fix.
385 2017-01-13 Bob Duff <duff@adacore.com>
387 * binde.adb (Elab_New): New elaboration order algorithm
388 that is expected to cause fewer ABE issues. This is a work in
389 progress. The new algorithm is currently disabled, and can be
390 enable by the -dp switch, or by modifying the Do_Old and Do_New
391 etc. flags and rebuilding. Experimental code is included to
392 compare the results of the old and new algorithms.
393 * binde.ads: Use GNAT.Dynamic_Tables instead of Table, so we
394 can have multiple of these tables, so the old and new algorithms
396 * bindgen.ads (Gen_Output_File): Pass Elab_Order as an 'in'
397 parameter of type array. This avoids the global variable, and
398 allows bounds checking (which is normally defeated by the tables
399 packages). It also ensures that the Elab_Order is read-only
401 * bindgen.adb: Pass Elab_Order as an 'in' parameter to all
402 subprograms that need it, as above.
403 * debug.adb: Document new -dp switch. Modify doc of old -do
405 * gnatbind.adb (Gnatbind): Make use of new interfaces to Binde
406 and Bindgen. Move writing of closure (-R and -Ra switches)
407 to Binde; that's more convenient.
409 2017-01-13 Ed Schonberg <schonberg@adacore.com>
411 * sem_ch6.adb (Analyze_Expression_Function): If the expression
412 function is a completion, all entities referenced in the
413 expression are frozen. As a consequence, a reference to an
414 uncompleted private type from an enclosing scope is illegal.
416 2017-01-13 Javier Miranda <miranda@adacore.com>
418 * sem_ch6.adb (Freeze_Expr_Types): New subprogram.
419 (Analyze_Subprogram_Body_Helper): At the occurrence of an
420 expression function declaration that is a completion, its
421 expression causes freezing (AI12-0103).
423 2017-01-13 Vadim Godunko <godunko@adacore.com>
425 * a-coinho-shared.adb: Fix memory leaks in Constant_Reference and
426 Reference functions of Ada.Containers.Indefinite_Holders.
428 2017-01-13 Bob Duff <duff@adacore.com>
430 * s-os_lib.ads: Minor comment fixes.
432 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
434 * exp_ch3.adb (Default_Initialize_Object): Do not default
435 initialize an object when it is of a task type and restriction
436 No_Tasking is in effect because the initialization is obsolete.
437 * exp_ch9.adb (Build_Master_Entity): Do not generate a master when
438 restriction No_Tasking is in effect.
439 (Build_Master_Renaming): Do not rename a master when restriction
440 No_Tasking is in effect.
442 2017-01-13 Ed Schonberg <schonberg@adacore.com>
444 * sem_aggr.adb (Resolve_Array_Aggregate): The code that verifies
445 the legality of An others clause applies as well to a choice in
446 an Iterated_component_ association.
447 (Resolve_Iterated_Component_Association): An others choice
449 * exp_aggr.adb (Aggr_Assignment_OK_For_Backend): An
450 Iterated_Component_Association is not static.
452 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
454 * exp_ch3.adb (Freeze_Type): Mark the Ghost mode as set in case
455 control is passed to the expresion handler before the new mode
457 * sem_ch12.adb (Analyze_Package_Instantiation,
458 Analyze_Subprogram_Instantiation): Mark the Ghost mode as set
459 in case control is passed to the expresion handler before the
462 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
464 * sem_aggr.adb, sem_ch3.adb, inline.adb, sem_util.adb, exp_ch4.adb,
465 exp_aggr.adb: Minor reformatting.
467 2017-01-13 Gary Dismukes <dismukes@adacore.com>
469 * inline.adb: Minor reformatting and typo fix.
471 2017-01-13 Ed Schonberg <schonberg@adacore.com>
473 * sem_util.ads, sem_util.adb (Choice_List): Move function here
474 from sem_aggr.adb, for use elsewhere.
475 * sem_ch3.adb (Analyze_Object_Declaration): Use Choice_List.
476 * sem_aggr.adb (Resolve_Array_Aggregate): Remove
477 Iterated_Component_Present.
478 * exp_aggr.adb: Use Choice_List throughout, to handle
479 Iterated_Component_Associations.
480 (Gen_Loop): Generate proper loop for an
481 Iterated_Component_Association: loop variable has the identifier
482 of the original association. Generate a loop even for a single
483 component choice, in order to make loop parameter visible in
485 (Flatten): An Iterated_Component_Association is not static.
487 2017-01-13 Yannick Moy <moy@adacore.com>
489 * exp_ch4.adb (Expand_N_Op_Expon): Ensure that the value of
490 float exponentiation for statically known small negative values
491 is the reciprocal of the exponentiation for the opposite value
493 * s-exnllf.adb (Exn_Float, Exn_Long_Float, Exn_Long_Long_Float):
494 Ensure that the value of float exponentiation for negative values
495 is the reciprocal of the exponentiation for the opposite value
497 * inline.adb (Expand_Inlined_Call): Fix the count
498 for the number of generated gotos.
500 2017-01-13 Yannick Moy <moy@adacore.com>
502 * inline.adb: Code cleanup.
503 * sem_util.adb (Is_OK_Volatile_Context): Add
504 expression in delay statement as OK for volatile context.
506 2017-01-13 Ed Schonberg <schonberg@adacore.com>
508 * sem_aggr.adb (Resolve_Array_Aggregate): In normal compilation
509 mode a choice that is a subtype with a static predicate is
510 replaced by the values it covers. This transformation must not
511 be performed in ASIS mode, to preserve the source for analysis.
513 2017-01-13 Justin Squirek <squirek@adacore.com>
515 * nlists.ads: Correct minor typo.
517 2017-01-13 Gary Dismukes <dismukes@adacore.com>
519 * sem_ch13.adb: Minor reformatting and typo fix.
521 2017-01-13 Ed Schonberg <schonberg@adacore.com>
523 * par-ch4.adb (P_Aggregate_Or_Parent_Expr): An
524 Iterated_Component_Association is a named association in an
526 * sem_aggr.adb (Resolve_Iterated_Component_Association): New
527 procedure, subsidiary of Resolve_Array_Aggregate, to analyze
528 and resolve the discrete choices and the expression of the
530 * sinfo.adb, sinfo.ads: In analogy with N_Component_Association,
531 Loop_Actions and Box_Present are attributes of
532 N_Iterated_Component_Association nodes. Box_Present is always
534 * sprint.adb (Sprint_Node): An Iterated_Component_Association
535 has a Discrete_Choices list, as specified in the RM. A
536 Component_Association for aggregate uses instead a Choices list.
537 We have to live with this small inconsistency because the new
538 construct also has a defining identifier, and there is no way
539 to merge the two node structures.
541 2017-01-13 Yannick Moy <moy@adacore.com>
543 * inline.adb (Remove_Aspects_And_Pragmas): Add Unused to the
544 list of pragmas to remove. Remove pragmas from the list of
545 statements in the body to inline.
546 * namet.adb, namet.ads (Nam_In): New version with 12 parameters.
548 2017-01-13 Ed Schonberg <schonberg@adacore.com>
550 * sem_ch3.adb (Resolve_Aspects): New procedure, subsidiary of
551 Analyze_Declarations, to analyze and resolve the expressions of
552 aspect specifications in the current declarative list, so that
553 the expressions have proper entity and type info. This is needed
554 for ASIS when there is no subsequent expansion to generate this
555 semantic information.
556 * sem_ch13.adb (Check_Aspect_At_End_Of_Declarations): Use Etype of
557 original expression, to suppress cascaded errors when expression
558 has been constant-folded.
559 (Resolve_Aspect_Expressions, Resolve_Name): Preserve entities in
560 ASIS mode, because there is no subsequent expansion to decorate
563 2017-01-13 Yannick Moy <moy@adacore.com>
565 * inline.adb, inline.ads (Call_Can_Be_Inlined_In_GNATprove_Mode):
566 New function to detect when a call may be inlined or not in
568 (Expand_Inlined_Call): Ensure that a temporary
569 is always created in the cases where a type conversion may be
570 needed on an input parameter in GNATprove mode, so that GNATprove
571 sees the check to perform.
572 * sem_res.adb (Resolve_Call): In GNATprove mode, skip inlining
573 when not applicable due to actual requiring type conversion
574 with possible check but no temporary value can be copied for
575 GNATprove to see the check.
577 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
579 * sem_aggr.adb, par_sco.adb, s-osprim-mingw.adb, exp_ch5.adb,
580 exp_prag.adb, sem_ch3.adb, xr_tabls.adb, lib-xref-spark_specific.adb,
581 layout.adb, sem_dist.adb, exp_spark.adb, exp_ch7.adb, gnatcmd.adb,
582 exp_util.adb, prj-proc.adb, sem_aux.adb, comperr.adb, g-memdum.adb,
583 exp_attr.adb, s-intman-solaris.adb, exp_ch9.adb, make.adb, live.adb,
584 g-sercom-linux.adb, sem_dim.adb, mlib-prj.adb, s-intman-posix.adb,
585 sem_ch9.adb, sem_ch10.adb, prep.adb, einfo.adb, scng.adb, checks.adb,
586 prj-strt.adb, sem_prag.adb, eval_fat.adb, sem_ch12.adb, sem.adb,
587 a-numaux-x86.adb, a-stwifi.adb, i-cobol.adb, prj.adb,
588 get_spark_xrefs.adb, s-tasini.adb, rtsfind.adb, freeze.adb,
589 g-arrspl.adb, par-ch4.adb, sem_util.adb, sem_res.adb, expander.adb,
590 sem_attr.adb, exp_dbug.adb, prj-pp.adb, a-stzfix.adb, s-interr.adb,
591 s-wchcnv.adb, switch-m.adb, gnat1drv.adb, sinput-l.adb, stylesw.adb,
592 contracts.adb, s-intman-android.adb, g-expect.adb, exp_ch4.adb,
593 g-comlin.adb, errout.adb, sinput.adb, s-exctra.adb, repinfo.adb,
594 g-spipat.adb, g-debpoo.adb, exp_ch6.adb, sem_ch4.adb, exp_ch13.adb,
595 a-wtedit.adb, validsw.adb, pprint.adb, widechar.adb, makeutl.adb,
596 ali.adb, set_targ.adb, sem_mech.adb, sem_ch6.adb, gnatdll.adb,
597 get_scos.adb, g-pehage.adb, s-tratas-default.adb, gnatbind.adb,
598 prj-dect.adb, g-socthi-mingw.adb, par-prag.adb, prj-nmsc.adb,
599 exp_disp.adb, par-ch12.adb, binde.adb, sem_ch8.adb,
600 s-tfsetr-default.adb, s-regexp.adb, gprep.adb, s-tpobop.adb,
601 a-teioed.adb, sem_warn.adb, sem_eval.adb, g-awk.adb, s-io.adb,
602 a-ztedit.adb, xoscons.adb, exp_intr.adb, sem_cat.adb, sprint.adb,
603 g-socket.adb, exp_dist.adb, sem_ch13.adb, s-tfsetr-vxworks.adb,
604 par-ch3.adb, treepr.adb, g-forstr.adb, g-catiio.adb, par-ch5.adb,
605 uname.adb, osint.adb, exp_ch3.adb, prj-env.adb, a-strfix.adb,
606 a-stzsup.adb, prj-tree.adb, s-fileio.adb: Update all eligible case
607 statements to reflect the new style for case alternatives. Various
608 code clean up and reformatting.
610 2017-01-13 Gary Dismukes <dismukes@adacore.com>
612 * exp_util.adb: Minor reformatting.
614 2017-01-13 Yannick Moy <moy@adacore.com>
616 * exp_spark.adb: Code cleanup.
617 * sem_ch9.adb (Analyze_Delay_Until): Resolve
618 expression so that calls are identified as such inside delay
621 2017-01-13 Ed Schonberg <schonberg@adacore.com>
623 * exp_util.adb (Insert_Actions): Handle Iterated_Component_Association.
624 * par-ch3.adb (P_Discrete_Choice_List): An
625 Iterated_Component_Association is an array aggregate component.
626 * par-ch4.adb (P_Iterated_Component_Association): New procedure.
627 (Is_Quantified_Expression): New function that performs a lookahead
628 to distinguish quantified expressions from iterated component
630 (P_Aggregate_Or_Paren_Expr): Recognize iterated component
632 (P_Unparen_Cond_Case_Quant_Expression, P_Primary): Ditto.
633 * sem.adb (Analyze): Handle Iterated_Component_Association.
634 * sem_aggr.adb (Resolve_Array_Aggregate): Dummy handling of iterated
635 component associations.
636 * sinfo.ads, sinfo.adb: Entries for for
637 N_Iterated_Component_Association and its fields.
638 * sprint.adb (Sprint_Node_Actual): Handle
639 N_Iterated_Component_Association.
641 2017-01-13 Justin Squirek <squirek@adacore.com>
643 * sem_ch12.adb (Analyze_Package_Instantiation): Move disabiling
644 of the style check until after preanalysis of acutals.
646 2017-01-13 Yannick Moy <moy@adacore.com>
648 * sem_ch13.adb: Minor reformatting.
649 * par-ch11.adb: minor style fix in whitespace
650 * gnatbind.adb (Gnatbind): Scope of Std_Lib_File
651 reduced to Add_Artificial_ALI_File; style fix in declaration of
652 Text; grammar fix in comment.
653 * osint-c.adb (Read_Library_Info): strip trailing NUL from result.
654 * freeze.adb: Cleanup to pass pragma instead of
656 * exp_spark.adb (Expand_SPARK_Attribute_Reference): New procedure to
657 replace System'To_Address by equivalent call.
659 2017-01-13 Arnaud Charlet <charlet@adacore.com>
661 * bindusg.adb: Improve usage output for -f switch.
663 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
665 * frontend.adb, freeze.adb, sem_res.adb, sem_attr.adb, sem_ch8.adb:
668 2017-01-13 Ed Schonberg <schonberg@adacore.com>
670 * sem_ch13.adb (Is_Predicate_Static): Following the intent of the RM,
671 treat comparisons on strings as legal in a Static_Predicate.
672 (Is_Predicate_Static, Is_Type_Ref): Predicate also returns true on
673 a function call that is the expansion of a string comparison.The
674 function call is built when compiling the corresponding predicate
675 function, but the expression has been found legal as a static
676 predicate during earlier analysis.
677 * sem_eval.adb (Real_Or_String_Static_Predicate_Matches): Handle
678 properly a function call that is the expansion of a string
679 comparison operation, in order to recover the Static_Predicate
680 expression and apply it to a static argument when needed.
682 2017-01-13 Tristan Gingold <gingold@adacore.com>
684 * s-mmap.adb, s-mmap.ads (Open_Read_No_Exception): New function.
685 (Open_Read): Re-implement using Open_Read_No_Exception.
686 (Open_Write): Raise exception in case of error.
687 * s-mmosin-mingw.adb (Open_Common): Do not raise exception.
688 * s-mmosin-unix.adb (Open_Read, Open_Write): Do not
690 * s-mmosin-mingw.ads, s-mmosin-unix.ads (Open_Read): Adjust comment.
692 2017-01-13 Yannick Moy <moy@adacore.com>
694 * checks.adb: Code cleanup.
696 2017-01-13 Yannick Moy <moy@adacore.com>
698 * freeze.adb (Check_Inherited_Conditions): Use analyzed pragma
699 expression instead of unanalyzed aspect expression for checking
700 the validity of inheriting an operation. Also copy the expression
701 being passing it to Build_Class_Wide_Expression, as this call
702 modifies its argument.
703 * sem_util.ads Fix comment to reference correct function name
706 2017-01-13 Javier Miranda <miranda@adacore.com>
708 * sem_res.adb (Resolve_Generalized_Indexing): Compiling in ASIS mode,
709 when we propagate information about the indexes back to the original
710 indexing mode and the prefix of the index is a function call, do not
711 remove any parameter from such call.
713 2017-01-13 Gary Dismukes <dismukes@adacore.com>
715 * exp_ch6.ads (Needs_BIP_Finalization_Master): Update comment.
716 * exp_ch6.adb (Needs_BIP_Finalization_Master): Return True for
717 a build-in-place function whose result type is tagged.
719 2017-01-13 Yannick Moy <moy@adacore.com>
721 * sem_ch8.adb (Analyze_Subprogram_Renaming.Build_Class_Wide_Wrapper):
722 Do not generate a wrapper when the only candidate is a class-wide
724 (Analyze_Subprogram_Renaming): Do not freeze the renaming or renamed
725 inside a generic context.
727 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
729 * exp_util.adb (Add_Inherited_Tagged_DIC):
730 Pass the object parameters of both the parent and the derived
731 type DIC procedure to the reference replacement circuitry.
732 (Find_DIC_Type): Modify the circuitry to present the partial
733 view of a private type in case the private type defines its own
735 (Replace_Object_And_Primitive_References): Add two
736 optional formal parameters. Update the comment on usage. Update
737 the replacement of references to object parameters.
739 2017-01-13 Gary Dismukes <dismukes@adacore.com>
741 * einfo.adb, sem_ch6.adb, atree.adb: Minor reformatting and typo fix.
743 2017-01-13 Ed Schonberg <schonberg@adacore.com>
745 * sem_res.adb (Resolve_Actuals): Apply Scalar_Range_Check to
746 an out parameter that is a type conversion, independently of th
747 range check that may apply to the expression of the conversion,
748 for use in GNATProve.
750 2017-01-13 Yannick Moy <moy@adacore.com>
752 * gnat1drv.adb (Gnat1drv): Move the implicit with for System in
753 GNATprove_Mode here to Frontend.
754 * frontend.adb (Frontend): Move the implicit with for System
755 in GNATprove_Mode here as it ismore correct this way; the old
756 place only worked by chance, since there were no overloaded names.
757 * rtsfind.ads (RE_Id, RE_Unit_Table): Add RE_Tasking_State.
758 * sem_attr.adb (Analyze_Attribute): In GNATprove_Mode, for the
759 four attributes identified in SRM 9(18), add an implicit with
760 to Ada.Task_Identification.
761 * sem_ch8.adb (Analyze_Subprogram_Renaming.Build_Class_Wide_Wrapper):
762 Deal specially with the wrapper introduced for AI05-0071 in GNATprove
764 * checks.adb (Apply_Discriminant_Check,
765 Apply_Selected_Length_Checks, Apply_Selected_Range_Checks):
766 In GNATprove mode, we do not apply the checks, but we still
767 analyze the expression to possibly issue errors on SPARK
768 code when a run-time error can be detected at compile time.
769 (Selected_Length_Checks, Selected_Range_Checks): Perform analysis
772 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
774 * expander.adb (Expand): Add a warning about using return
775 statements in Ghost management code.
776 * exp_ch3.adb (Freeze_Type): Add a warning about using return
777 statements in Ghost management code.
778 * exp_ch7.adb (Build_Invariant_Procedure_Body,
779 Build_Invariant_Procedure_Declaration): Add a warning about
780 using return statements in Ghost management code.
781 * exp_disp.adb (Make_DT): Add a warning about using return
782 statements in Ghost management code.
783 * exp_util.adb (Build_DIC_Procedure_Body,
784 Build_DIC_Procedure_Declaration, Make_Predicated_Call): Add a
785 warning about using return statements in Ghost management code.
786 * freeze.adb (Freeze_Entity): Add a warning about using return
787 statements in Ghost management code.
788 * sem.adb (Analyze, Do_Analyze): Add a warning about using return
789 statements in Ghost management code.
790 * sem_ch3.adb (Analyze_Object_Declaration, Process_Full_View): Add
791 a warning about using return statements in Ghost management code.
792 * sem_ch5.adb (Analyze_Assignment): Add a warning about using
793 return statements in Ghost management code.
794 * sem_ch6.adb (Analyze_Procedure_Call,
795 Analyze_Subprogram_Body_Helper): Add a warning about using return
796 statements in Ghost management code.
797 * sem_ch7.adb (Analyze_Package_Body_Helper): Add a warning about
798 using return statements in Ghost management code.
799 * sem_ch12.adb (Analyze_Package_Instantiation,
800 Analyze_Subprogram_Instantiation, Instantiate_Package_Body,
801 Instantiate_Subprogram_Body): Add a warning about using return
802 statements in Ghost management code.
803 * sem_ch13.adb (Build_Predicate_Functions,
804 Build_Predicate_Function_Declarations): Add a warning about
805 using return statements in Ghost management code.
806 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part,
807 Analyze_Initial_Condition_In_Decl_Part, Analyze_Pragma,
808 Analyze_Pre_Post_Condition_In_Decl_Part): Add a warning about
809 using return statements in Ghost management code.
811 2017-01-13 Tristan Gingold <gingold@adacore.com>
813 * s-mmosin-mingw.adb: Fix pragma import.
815 2017-01-13 Arnaud Charlet <charlet@adacore.com>
817 * gnat1drv.adb (Adjust_Global_Switches): Ignore -gnateE in
820 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
822 * atree.adb (Allocate_Initialize_Node): A newly created node is
823 no longer marked as Ghost at this level.
824 (Mark_New_Ghost_Node): New routine.
825 (New_Copy): Mark the copy as Ghost.
826 (New_Entity): Mark the entity as Ghost.
827 (New_Node): Mark the node as Ghost.
828 * einfo.adb (Is_Checked_Ghost_Entity): This attribute can now
829 apply to unanalyzed entities.
830 (Is_Ignored_Ghost_Entity): This attribute can now apply to unanalyzed
832 (Set_Is_Checked_Ghost_Entity): This attribute now
833 applies to all entities as well as unanalyzed entities.
834 (Set_Is_Ignored_Ghost_Entity): This attribute now applies to
835 all entities as well as unanalyzed entities.
836 * expander.adb Add with and use clauses for Ghost.
837 (Expand): Install and revert the Ghost region associated with the node
839 * exp_ch3.adb (Expand_Freeze_Array_Type): Remove all Ghost-related code.
840 (Expand_Freeze_Class_Wide_Type): Remoe all Ghost-related code.
841 (Expand_Freeze_Enumeration_Type): Remove all Ghost-related code.
842 (Expand_Freeze_Record_Type): Remove all Ghost-related code.
843 (Freeze_Type): Install and revert the Ghost region associated
844 with the type being frozen.
845 * exp_ch5.adb Remove with and use clauses for Ghost.
846 (Expand_N_Assignment_Statement): Remove all Ghost-related code.
847 * exp_ch6.adb Remove with and use clauses for Ghost.
848 (Expand_N_Procedure_Call_Statement): Remove all Ghost-relatd code.
849 (Expand_N_Subprogram_Body): Remove all Ghost-related code.
850 * exp_ch7.adb (Build_Invariant_Procedure_Body): Install and revert the
851 Ghost region of the working type.
852 (Build_Invariant_Procedure_Declaration): Install and revert
853 the Ghost region of the working type.
854 (Expand_N_Package_Body): Remove all Ghost-related code.
855 * exp_ch8.adb Remove with and use clauses for Ghost.
856 (Expand_N_Exception_Renaming_Declaration): Remove all Ghost-related
858 (Expand_N_Object_Renaming_Declaration): Remove all Ghost-related code.
859 (Expand_N_Package_Renaming_Declaration): Remove all Ghost-related code.
860 (Expand_N_Subprogram_Renaming_Declaration): Remove all Ghost-related
862 * exp_ch13.adb Remove with and use clauses for Ghost.
863 (Expand_N_Freeze_Entity): Remove all Ghost-related code.
864 * exp_disp.adb (Make_DT): Install and revert the Ghost region of
865 the tagged type. Move the generation of various entities within
866 the Ghost region of the type.
867 * exp_prag.adb Remove with and use clauses for Ghost.
868 (Expand_Pragma_Check): Remove all Ghost-related code.
869 (Expand_Pragma_Contract_Cases): Remove all Ghost-related code.
870 (Expand_Pragma_Initial_Condition): Remove all Ghost-related code.
871 (Expand_Pragma_Loop_Variant): Remove all Ghost-related code.
872 * exp_util.adb (Build_DIC_Procedure_Body): Install
873 and revert the Ghost region of the working types.
874 (Build_DIC_Procedure_Declaration): Install and revert the
875 Ghost region of the working type.
876 (Make_Invariant_Call): Install and revert the Ghost region of the
878 (Make_Predicate_Call): Reimplemented. Install and revert the
879 Ghost region of the associated type.
880 * freeze.adb (Freeze_Entity): Install and revert the Ghost region
881 of the entity being frozen.
882 (New_Freeze_Node): Removed.
883 * ghost.adb Remove with and use clauses for Opt.
884 (Check_Ghost_Completion): Update the parameter profile
885 and all references to formal parameters.
886 (Ghost_Entity): Update the comment on usage.
887 (Install_Ghost_Mode): New routines.
888 (Is_Ghost_Assignment): New routine.
889 (Is_Ghost_Declaration): New routine.
890 (Is_Ghost_Pragma): New routine.
891 (Is_Ghost_Procedure_Call): New routine.
892 (Is_Ghost_Renaming): Removed.
893 (Is_OK_Declaration): Reimplemented.
894 (Is_OK_Pragma): Reimplemented.
895 (Is_OK_Statement): Reimplemented.
896 (Is_Subject_To_Ghost): Update the comment on usage.
897 (Mark_And_Set_Ghost_Assignment): New routine.
898 (Mark_And_Set_Ghost_Body): New routine.
899 (Mark_And_Set_Ghost_Completion): New routine.
900 (Mark_And_Set_Ghost_Declaration): New routine.
901 (Mark_And_Set_Ghost_Instantiation): New routine.
902 (Mark_And_Set_Ghost_Procedure_Call): New routine.
903 (Mark_Full_View_As_Ghost): Removed.
904 (Mark_Ghost_Declaration_Or_Body): New routine.
905 (Mark_Ghost_Pragma): New routine.
906 (Mark_Ghost_Renaming): New routine.
907 (Mark_Pragma_As_Ghost): Removed.
908 (Mark_Renaming_As_Ghost): Removed.
909 (Propagate_Ignored_Ghost_Code): Update the comment on usage.
910 (Prune_Node): Freeze nodes no longer need special pruning, they
911 are processed by the general ignored Ghost code mechanism.
912 (Restore_Ghost_Mode): New routine.
913 (Set_Ghost_Mode): Reimplemented.
914 (Set_Ghost_Mode_From_Entity): Removed.
915 * ghost.ads Add with and use clauses for Ghost.
916 (Check_Ghost_Completion): Update the parameter profile
917 along with the comment on usage.
918 (Install_Ghost_Mode): New routine.
919 (Is_Ghost_Assignment): New routine.
920 (Is_Ghost_Declaration): New routine.
921 (Is_Ghost_Pragma): New routine.
922 (Is_Ghost_Procedure_Call): New routine.
923 (Mark_And_Set_Ghost_Assignment): New routine.
924 (Mark_And_Set_Ghost_Body): New routine.
925 (Mark_And_Set_Ghost_Completion): New routine.
926 (Mark_And_Set_Ghost_Declaration): New routine.
927 (Mark_And_Set_Ghost_Instantiation): New routine.
928 (Mark_And_Set_Ghost_Procedure_Call): New routine.
929 (Mark_Full_View_As_Ghost): Removed.
930 (Mark_Ghost_Pragma): New routine.
931 (Mark_Ghost_Renaming): New routine.
932 (Mark_Pragma_As_Ghost): Removed.
933 (Mark_Renaming_As_Ghost): Removed.
934 (Restore_Ghost_Mode): New routine.
935 (Set_Ghost_Mode): Redefined.
936 (Set_Ghost_Mode_From_Entity): Removed.
937 * sem.adb (Analyze): Install and revert the Ghost region of the
939 (Do_Analyze): Change the way a clean Ghost
940 region is installed and reverted.
941 * sem_ch3.adb (Analyze_Full_Type_Declaration): Remove
942 all Ghost-related code.
943 (Analyze_Incomplete_Type_Decl): Remove all Ghost-related code.
944 (Analyze_Number_Declaration): Remove all Ghost-related code.
945 (Analyze_Object_Declaration): Install and revert the Ghost region of
946 a deferred object declaration's completion.
947 (Array_Type_Declaration): Remove all Ghost-related code.
948 (Build_Derived_Type): Update the comment on
949 the propagation of Ghost attributes from a parent to a derived type.
950 (Derive_Subprogram): Remove all Ghost-related code.
951 (Make_Class_Wide_Type): Remove all Ghost-related code.
952 (Make_Implicit_Base): Remove all Ghost-related code.
953 (Process_Full_View): Install and revert the Ghost region of
954 the partial view. There is no longer need to check the Ghost
956 * sem_ch5.adb (Analyze_Assignment): Install and revert the Ghost
957 region of the left hand side.
958 * sem_ch6.adb (Analyze_Abstract_Subprogram_Declaration): Remove
959 all Ghost-related code.
960 (Analyze_Expression_Function): Remove all Ghost-related code.
961 (Analyze_Generic_Subprogram_Body): Remove all Ghost-related code.
962 (Analyze_Procedure_Call): Install and revert the Ghost region of
963 the procedure being called.
964 (Analyze_Subprogram_Body_Helper): Install and revert the Ghost
965 region of the spec or body.
966 (Analyze_Subprogram_Declaration): Remove all Ghost-related code.
967 (Build_Subprogram_Declaration): Remove all Ghost-related code.
968 (Find_Corresponding_Spec): Remove all Ghost-related code.
969 (Process_Formals): Remove all Ghost-related code.
970 * sem_ch7.adb (Analyze_Package_Body_Helper): Install and revert
971 the Ghost region of the spec.
972 (Analyze_Package_Declaration): Remove all Ghost-related code.
973 * sem_ch8.adb (Analyze_Exception_Renaming): Mark a renaming as
974 Ghost when it aliases a Ghost entity.
975 (Analyze_Generic_Renaming): Mark a renaming as Ghost when it aliases
977 (Analyze_Object_Renaming): Mark a renaming as Ghost when
978 it aliases a Ghost entity.
979 (Analyze_Package_Renaming): Mark a renaming as Ghost when it aliases
981 (Analyze_Subprogram_Renaming): Mark a renaming as Ghost when it
982 aliases a Ghost entity.
983 * sem_ch11.adb Remove with and use clauses for Ghost.
984 (Analyze_Exception_Declaration): Remove all Ghost-related code.
985 * sem_ch12.adb (Analyze_Generic_Package_Declaration): Remove all
987 (Analyze_Generic_Subprogram_Declaration): Remove all Ghost-related
989 (Analyze_Package_Instantiation): Install and revert the Ghost region
990 of the package instantiation.
991 (Analyze_Subprogram_Instantiation): Install
992 and revert the Ghost region of the subprogram instantiation.
993 (Instantiate_Package_Body): Code clean up. Install and revert the
994 Ghost region of the package body.
995 (Instantiate_Subprogram_Body): Code clean up. Install and revert the
996 Ghost region of the subprogram body.
997 * sem_ch13.adb (Build_Predicate_Functions): Install
998 and revert the Ghost region of the related type.
999 (Build_Predicate_Function_Declaration): Code clean up. Install
1000 and rever the Ghost region of the related type.
1001 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part):
1002 Install and revert the Ghost region of the pragma.
1003 (Analyze_Initial_Condition_In_Decl_Part): Install and revert the
1004 Ghost region of the pragma.
1005 (Analyze_Pragma): Install and revert the Ghost region of various
1006 pragmas. Mark a pragma as Ghost when it is related to a Ghost entity
1007 or encloses a Ghost entity.
1008 (Analyze_Pre_Post_Condition): Install and revert the Ghost
1009 region of the pragma.
1010 (Analyze_Pre_Post_Condition_In_Decl_Part): Install and revert the
1011 Ghost region of the pragma.
1012 * sem_res.adb (Resolve): Remove all Ghost-related code.
1013 * sem_util.adb (Is_Declaration): Reimplemented.
1014 (Is_Declaration_Other_Than_Renaming): New routine.
1015 * sem_util.ads (Is_Declaration_Other_Than_Renaming): New routine.
1016 * sinfo.adb (Is_Checked_Ghost_Pragma): New routine.
1017 (Is_Ghost_Pragma): Removed.
1018 (Is_Ignored_Ghost_Pragma): New routine.
1019 (Set_Is_Checked_Ghost_Pragma): New routine.
1020 (Set_Is_Ghost_Pragma): Removed.
1021 (Set_Is_Ignored_Ghost_Pragma): New routine.
1022 * sinfo.ads: Update the documentation on Ghost mode and
1023 Ghost regions. New attributes Is_Checked_Ghost_Pragma
1024 and Is_Ignored_Ghost_Pragma along with usages in nodes.
1025 Remove attribute Is_Ghost_Pragma along with usages in nodes.
1026 (Is_Checked_Ghost_Pragma): New routine along with pragma Inline.
1027 (Is_Ghost_Pragma): Removed along with pragma Inline.
1028 (Is_Ignored_Ghost_Pragma): New routine along with pragma Inline.
1029 (Set_Is_Checked_Ghost_Pragma): New routine along with pragma Inline.
1030 (Set_Is_Ghost_Pragma): Removed along with pragma Inline.
1031 (Set_Is_Ignored_Ghost_Pragma): New routine along with pragma Inline.
1033 2017-01-12 Tristan Gingold <gingold@adacore.com>
1035 * s-mmap.ads, s-mmap.adb, s-mmosin-unix.ads, s-mmosin-unix.adb,
1036 s-mmauni-long.ads, s-mmosin-mingw.ads, s-mmosin-mingw.adb: New files.
1038 2017-01-12 Yannick Moy <moy@adacore.com>
1040 * errout.adb, errout.ads (Initialize): Factor common treatment
1042 (Reset_Warnings): New procedure to reset counts related to warnings.
1043 (Record_Compilation_Errors): New variable to store the presence of an
1044 error, used in gnat2why to allow changing the Warning_Mode.
1045 (Compilation_Errors): Use new variable Record_Compilation_Errors to
1046 store the presence of an error.
1048 2017-01-12 Javier Miranda <miranda@adacore.com>
1050 * sem_ch13.adb (Analyze_Aspect_Specifications):
1051 For Interrupt_Handler and Attach_ Handler aspects, decorate the
1052 internally built reference to the protected procedure as coming
1053 from sources and force its analysis.
1055 2017-01-12 Ed Schonberg <schonberg@adacore.com>
1057 * sem_ch3.adb (Build_Derived_Type): For a scalar derived type,
1058 inherit predicates if any from the first_subtype of the parent,
1059 not from the anonymous parent type.
1060 * sem_eval.adb (Is_Static_Subtype): A type that inherits a dynamic
1061 predicate is not a static subtype.
1063 2017-01-12 Gary Dismukes <dismukes@adacore.com>
1065 * freeze.adb (Check_Suspicious_Convention): New procedure
1066 performing a warning check on discriminated record types with
1067 convention C or C++. Factored out of procedure Freeze_Record_Type,
1068 and changed to only apply to base types (to avoid spurious
1069 warnings on subtypes). Minor improvement of warning messages
1070 to refer to discriminated rather than variant record types.
1071 (Freeze_Record_Type): Remove code for performing a suspicious
1073 (Freeze_Entity): Only call Freeze_Record_Type
1074 on types that aren't declared within any enclosing generic units
1075 (rather than just excluding the type when the innermost scope
1076 is generic). Call Check_Suspicious_Convention whether or not
1077 the type is declared within a generic unit.
1078 * sem_ch8.adb (In_Generic_Scope): Move this function to Sem_Util.
1079 * sem_util.ads, sem_util.adb (In_Generic_Scope): New function (moved
1082 2017-01-12 Tristan Gingold <gingold@adacore.com>
1084 * sysdep.c, adaint.c, rtinit.c, ming32.h:
1085 (__gnat_current_codepage): Renamed from CurrentCodePage
1086 (__gnat_current_ccs_encoding): Renamed from CurrentCCSEncoding
1088 2017-01-12 Ed Schonberg <schonberg@adacore.com>
1090 * sem_ch6.adb (Fully_Conformant_Expressions): Handle properly
1091 quantified expressions, following AI12-050: the loop parameters
1092 of two quantified expressions are conformant if they have the
1095 2017-01-12 Arnaud Charlet <charlet@adacore.com>
1097 * gcc-interface/Makefile.in: Clean up VxWorks targets.
1099 2017-01-12 Ed Schonberg <schonberg@adacore.com>
1101 * sem_attr.adb (Analyze_Attribute_Reference, case Loop_Entry):
1102 Hnadle properly the attribute reference when it appears as part
1103 of an expression in another loop aspect.
1105 2017-01-12 Ed Schonberg <schonberg@adacore.com>
1107 * exp_ch3.adb (Check_Predicated_Discriminant): New procedure,
1108 subsidiary of Build_Initialization_Call, to complete generation
1109 of predicate checks on discriminants whose (sub)types have
1110 predicates, and to add checks on variants that do not have an
1112 * sem_util.adb (Gather_Components): A missing Others alternative is
1113 not an error when the type of the discriminant is a static predicate
1114 (and coverage has been checked when analyzing the case statement). A
1115 runtime check is generated to verify that a given discriminant
1116 satisfies the predicate (RM 3.8.1. (21.1/2)).
1118 2017-01-12 Yannick Moy <moy@adacore.com>
1120 * gnat1drv.adb (Adjust_Global_Switches): Only
1121 perform checking of exception mechanism when generating code.
1123 2017-01-12 Justin Squirek <squirek@adacore.com>
1125 * exp_ch7.adb (Add_Type_Invariants, Process_Array_Component):
1126 Remove handling of access component with invariant.
1127 (Build_Invariant_Procedure_Declaration): Remove return on class
1129 * freeze.adb (Freeze_Array_Type, Freeze_Record_Type): Remove
1130 conditional exception for component or array so Has_Own_Invariants
1131 flag is not falsly set.
1132 * sem_ch3.adb (Make_Class_Wide_Type): Initialize copy of class
1133 wide type to have no invariant flags.
1135 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1137 * exp_ch9.adb, sem_prag.adb, s-tassta.adb, sem_util.adb, s-tarest.adb,
1138 sem_ch13.adb: Minor reformatting.
1140 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1142 * exp_aggr.adb (Build_Record_Aggr_Code): Guard against a missing
1143 adjustment primitive when the ancestor type was not properly frozen.
1144 (Gen_Assign): Guard against a missing initialization
1145 primitive when the component type was not properly frozen.
1146 (Initialize_Array_Component): Guard against a missing adjustment
1147 primitive when the component type was not properly frozen.
1148 (Initialize_Record_Component): Guard against a missing adjustment
1149 primitive when the component type was not properly frozen.
1150 (Process_Transient_Component_Completion): The transient object may
1151 not be finalized when its associated type was not properly frozen.
1152 * exp_ch3.adb (Build_Assignment): Guard against a missing
1153 adjustment primitive when the component type was not properly frozen.
1154 (Build_Initialization_Call): Guard against a missing
1155 initialization primitive when the associated type was not properly
1157 (Expand_N_Object_Declaration): Guard against a missing
1158 adjustment primitive when the base type was not properly frozen.
1159 (Predefined_Primitive_Bodies): Create an empty Deep_Adjust
1160 body when there is no adjustment primitive available. Create an
1161 empty Deep_Finalize body when there is no finalization primitive
1163 * exp_ch4.adb (Apply_Accessibility_Check): Guard against a
1164 missing finalization primitive when the designated type was
1165 not properly frozen.
1166 (Expand_N_Allocator): Guard against a missing initialization primitive
1167 when the designated type was not properly frozen.
1168 * exp_ch5.adb (Make_Tag_Ctrl_Assignment): Add the adjustment call
1169 only when the corresponding adjustment primitive is available.
1170 * exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Generate the
1171 adjustment/finalization statements only when there is an available
1172 primitive to carry out the action.
1173 (Build_Initialize_Statements): Generate the initialization/finalization
1174 statements only when there is an available primitive to carry out the
1176 (Make_Adjust_Call): Do not generate a call when the underlying
1177 type is not present due to a possible missing full view.
1178 (Make_Final_Call): Do not generate a call when the underlying
1179 type is not present due to a possible missing full view.
1180 (Make_Finalize_Address_Stmts): Generate an empty body when the
1181 designated type lacks a finalization primitive.
1182 (Make_Init_Call): Do not generate a call when the underlying type is
1183 not present due to a possible missing full view.
1184 (Process_Component_For_Adjust): Add the adjustment call only when the
1185 corresponding adjustment primitive is available.
1186 (Process_Component_For_Finalize): Add the finalization call only when
1187 the corresponding finalization primitive is available.
1188 (Process_Object_Declaration): Use a null statement to emulate a
1189 missing call to the finalization primitive of the object type.
1190 * exp_ch7.ads (Make_Adjust_Call): Update the comment on usage.
1191 (Make_Final_Call): Update the comment on usage.
1192 (Make_Init_Call): Update the comment on usage.
1193 * exp_util.adb (Build_Transient_Object_Statements): Code reformatting.
1195 2017-01-12 Arnaud Charlet <charlet@adacore.com>
1197 * einfo.ads: Update documentation of Address_Taken.
1198 * sem_attr.adb (Analyze_Access_Attribute, Resolve_Attribute
1199 [Access_Attribute]): Only consider 'Access/'Unchecked_Access
1200 for subprograms when setting Address_Taken flag.
1202 2017-01-12 Patrick Bernardi <bernardi@adacore.com>
1204 * sem_ch10.adb (Analyze_With_Clause): Removed code that turned
1205 Configurable_Run_Time_Mode off when analysing with'ed predefined
1208 2017-01-12 Gary Dismukes <dismukes@adacore.com>
1210 * sem_prag.adb: Minor reformatting.
1211 * sem_util.adb (Unique_Entity): fix result for
1212 bodies of entry families.
1214 2017-01-12 Justin Squirek <squirek@adacore.com>
1216 * sem_prag.adb (Analyze_Pragma): Add appropriate calls to
1217 Resolve_Suppressible in the pragma Assertion_Policy case.
1218 (Resolve_Suppressible): Created this function to factor out
1219 common code used to resolve Suppress to either Ignore or Check
1220 * snames.ads-tmpl: Add name for Suppressible.
1222 2017-01-12 Gary Dismukes <dismukes@adacore.com>
1224 * exp_ch9.adb, s-secsta.adb, snames.ads-tmpl, exp_ch3.adb: Minor
1226 * debug.adb: Minor comment fixes.
1228 2017-01-12 Arnaud Charlet <charlet@adacore.com>
1230 * sem_util.adb (Unique_Entity): For concurrent
1231 bodies that are defined with stubs and complete a declaration
1232 of a single concurrent object return the entity of an implicit
1233 concurrent type, not the entity of the anonymous concurrent
1235 * debug.adb: -gnatd.J is no longer used.
1236 * make.adb (Globalize): Removed, no longer used.
1237 * sem_ch9.adb: minor typo in comment for entry index
1239 2017-01-12 Patrick Bernardi <bernardi@adacore.com>
1241 * aspect.adb, aspect.ads: Added new aspect Secondary_Stack_Size.
1242 * exp_ch3.adb (Build_Init_Statements): As part of initialising
1243 the value record of a task, set its _Secondary_Stack_Size field
1245 * exp_ch9.adb (Expand_N_Task_Type_Declaration): Create
1246 a _Secondary_Stack_Size field in the value record of
1247 the task if a Secondary_Stack_Size rep item is present.
1248 (Make_Task_Create_Call): Include secondary stack size
1249 parameter. If No_Secondary_Stack restriction is in place, passes
1251 * par-prag.adb, sem_prag.adb, sem_prag.ads: Added new pragma
1252 Secondary_Stack_Size.
1253 * s-secsta.adb, s-secsta.ads (Minimum_Secondary_Stack_Size): New
1254 function to define the overhead of the secondary stack.
1255 * s-tarest.adb (Create_Restricted_Task,
1256 Create_Restricted_Task_Sequential): Functions now include
1257 Secondary_Stack_Size parameter to pass to Initialize_ATCB.
1258 * s-tarest.adb (Create_Restricted_Task,
1259 Create_Restricted_Task_Sequential): Calls to Initialize_ATCB now
1260 include Secondary_Stack_Size parameter.
1261 (Task_Wrapper): Secondary stack now allocated to the size specified by
1262 the Secondary_Stack_Size parameter in the task's ATCB.
1263 * s-taskin.adb, s-taskin.adb (Common_ATCB, Initialize_ATCB): New
1264 Secondary_Stack_Size component.
1265 * s-tassta.adb, s-tassta.ads (Create_Restricted_Task,
1266 Create_Restricted_Task_Sequential): Function now include
1267 Secondary_Stack_Size parameter.
1268 (Task_Wrapper): Secondary stack now allocated to the size
1269 specified by the Secondary_Stack_Size parameter in the task's
1271 * s-tproft.adb (Register_Foreign_Thread): Amended Initialize_ATCB call
1272 to include Secondary_Stack_Size parameter.
1273 * sem_ch13.adb (Analyze_Aspect_Specification): Add support for
1274 Secondary_Stack_Size aspect, turning the aspect into its corresponding
1276 (Analyze_Attribute_Definition): Process Secondary_Stack_Size attribute.
1277 * snames.adb-tmpl, snames.ads-tmpl: Added names
1278 Name_Secondary_Stack_Size, Name_uSecondary_Stack_Size,
1279 Attribute_Secondary_Stack_Size and Pragma_Secondary_Stack_Size.
1281 2017-01-12 Yannick Moy <moy@adacore.com>
1283 * exp_spark.adb (Expand_SPARK_Potential_Renaming): Fix sloc of copied
1286 2017-01-12 Justin Squirek <squirek@adacore.com>
1288 * exp_attr.adb (Expand_N_Attribute_Reference):
1289 Fix Finalization_Size case by properly resolving the type after
1290 rewritting the node.
1292 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1294 * exp_util.adb (Build_DIC_Procedure_Body): Semi-insert the body into
1296 (Build_DIC_Procedure_Declaration): Semi-insert the body into the tree.
1297 * binde.adb, exp_ch5.adb, sem_type.adb, sem.ads, sem_res.adb,
1298 exp_sel.ads: Minor reformatting.
1300 2017-01-12 Justin Squirek <squirek@adacore.com>
1302 * exp_ch6.adb (Expand_Call): Add guard to prevent
1303 invariant checks from being created for internally generated
1306 2017-01-12 Bob Duff <duff@adacore.com>
1308 * lib-writ.ads: Remove incorrect comment.
1310 2017-01-12 Javier Miranda <miranda@adacore.com>
1312 * debug.adb (-gnatd.K): Enable generation of contract-only
1313 procedures in CodePeer mode.
1314 * contracts.adb (Build_And_Analyze_Contract_Only_Subprograms):
1316 (Analyze_Contracts): Generate contract-only procedures if -gnatdK is
1318 * scil_ll.ads, scil_ll.adb (Get_Contract_Only_Body_Name): New
1320 (Get_Contract_Only_Missing_Body_Name): New subprogram.
1321 (Get_Contract_Only_Body): New subprogram.
1322 (Set_Contract_Only_Body): New subprogram.
1323 (Is_Contract_Only_Body): New subprogram.
1324 (Set_Is_Contract_Only_Body): New subprogram.
1325 (SCIL_Nodes): Replace table by hash-table.
1327 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1329 * exp_ch6.adb: Minor reformatting.
1330 * spark_xrefs.ads: minor cleanup of comments for SPARK xrefs
1332 2017-01-12 Bob Duff <duff@adacore.com>
1334 * binde.adb (Forced): New reason for a dependence.
1335 (Force_Elab_Order): Implementation of the new switch.
1336 * binde.ads: Minor comment fixes.
1337 * bindusg.adb: Add -f switch. Apparently, there was an -f switch
1338 long ago that is no longer supported; removed comment about that.
1339 * opt.ads (Force_Elab_Order_File): Name of file specified for
1341 * switch-b.adb: Parse -f switch.
1343 2017-01-12 Justin Squirek <squirek@adacore.com>
1345 * exp_ch6.adb (Check_View_Conversion): Created this function
1346 to properly chain calls to check type invariants that may be
1347 present in a subprogram call after the subprogram.
1348 (Expand_Call): Add a conditional to identify when a view conversion
1349 needs to be checked.
1350 * nlists.adb, nlists.ads (Prepend_New): New routine.
1351 (Prepend_New_To): New routine.
1353 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1355 * sinfo.ads: Minor reformatting.
1357 2017-01-12 Gary Dismukes <dismukes@adacore.com>
1359 * exp_util.adb, exp_util.ads, einfo.ads: Minor typo fixes and
1362 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
1364 * exp_ch6.adb (Make_Build_In_Place_Call_In_Anonymous_Context): Add new
1365 variable Definite. Create a local object and pass its 'Access to the
1366 BIP function when the result type is either definite or it does not
1367 require any finalization or secondary stack management.
1369 2017-01-12 Bob Duff <duff@adacore.com>
1371 * contracts.adb, einfo.adb, errout.adb, exp_attr.adb,
1372 exp_ch3.adb, exp_ch7.adb, exp_ch9.adb, exp_prag.adb, freeze.adb,
1373 frontend.adb, ghost.adb, inline.adb, lib-writ.adb, lib-xref.adb,
1374 par.adb, par-ch10.adb, par-ch2.adb, par-prag.adb, par_sco.adb,
1375 sem_attr.adb, sem_aux.adb, sem_ch10.adb, sem_ch12.adb,
1376 sem_ch13.adb, sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_elab.adb,
1377 sem_prag.adb, sem_res.adb, sem_util.adb, sem_util.ads,
1378 sem_warn.adb, sinfo.adb, sinfo.ads, sprint.adb (Pragma_Name):
1379 Change name to Pragma_Name_Unmapped.
1380 (Pragma_Name_Mapped): Change name to Pragma_Name.
1381 This is because the "mapped" version should be the usual case.
1383 2017-01-09 Hristian Kirtchev <kirtchev@adacore.com>
1385 * einfo.ads, einfo.adb: Remove uses of flags Has_Default_Init_Cond,
1386 Is_Default_Init_Cond_Procedure, and
1387 Has_Inherited_Default_Init_Cond. Add uses of flags
1388 Has_Own_DIC, Is_DIC_Procedure, and Has_Inherited_DIC.
1389 (Default_Init_Cond_Procedure): Removed.
1390 (DIC_Procedure): New routine.
1391 (Has_Default_Init_Cond): Removed.
1392 (Has_DIC): New routine.
1393 (Has_Inheritable_Invariants): The attribute applies to the base type.
1394 (Has_Inherited_Default_Init_Cond): Removed.
1395 (Has_Inherited_DIC): New routine.
1396 (Has_Inherited_Invariants): The attribute applies to the base type.
1397 (Has_Own_DIC): New routine.
1398 (Has_Own_Invariants): The attribute applies to the base type.
1399 (Is_Default_Init_Cond_Procedure): Removed.
1400 (Is_DIC_Procedure): New routine.
1401 (Set_Default_Init_Cond_Procedure): Removed.
1402 (Set_DIC_Procedure): New routine.
1403 (Set_Has_Default_Init_Cond): Removed.
1404 (Set_Has_Inheritable_Invariants): The attribute applies
1406 (Set_Has_Inherited_Default_Init_Cond): Removed.
1407 (Set_Has_Inherited_DIC): New routine.
1408 (Set_Has_Inherited_Invariants): The attribute applies to the base type.
1409 (Set_Has_Own_DIC): New routine.
1410 (Set_Has_Own_Invariants): The attribute applies to the base type.
1411 (Set_Is_Default_Init_Cond_Procedure): Removed.
1412 (Set_Is_DIC_Procedure): New routine.
1413 (Write_Entity_Flags): Update the output of all flags related to
1414 default initial condition.
1415 * exp_ch3.adb (Expand_N_Object_Declaration): Update the generation
1416 of the call to the DIC procedure.
1417 (Freeze_Type): Generate the body of the DIC procedure.
1418 * exp_ch7.adb (Build_Invariant_Procedure_Body): Replace
1419 all occurrences of Create_Append with Append_New_To. Do
1420 not generate an invariant procedure for a class-wide type.
1421 The generated body acts as a freeze action of the working type.
1422 (Build_Invariant_Procedure_Declaration): Do not generate an
1423 invariant procedure for a class-wide type.
1424 (Create_Append): Removed.
1425 * exp_util.adb: Add with and use clauses for Sem_Ch3, sem_ch6,
1426 sem_Ch12, Sem_Disp, and GNAT.HTable. Move the handling of
1427 class-wide pre/postcondition description and data structures from
1429 (Build_Class_Wide_Expression): Moved from Sem_Prag.
1430 (Build_DIC_Call): New routine.
1431 (Build_DIC_Procedure_Body): New routine.
1432 (Build_DIC_Procedure_Declaration): New routine.
1433 (Entity_Hash): Moved from Sem_Prag.
1434 (Find_DIC_Type): New routine.
1435 (Update_Primitives_Mapping): Reimplemented.
1436 (Update_Primitives_Mapping_Of_Types): New routine.
1437 * exp_util.ads (Build_Class_Wide_Expression): Moved from Sem_Prag.
1438 (Build_DIC_Call): New routine.
1439 (Build_DIC_Procedure_Body): New routine.
1440 (Build_DIC_Procedure_Declaration): New routine.
1441 (Update_Primitives_Mapping): Moved from Sem_Prag.
1442 (Update_Primitives_Mapping_Of_Types): New routine.
1443 * nlists.adb (Append_New): New routine.
1444 (Append_New_To): New routine.
1445 * nlists.ads (Append_New): New routine.
1446 (Append_New_To): New routine.
1447 * sem_ch3.adb (Analyze_Declarations): Do not generate the bodies
1448 of DIC procedures here. This is now done at the end of the
1449 visible declarations, private declarations, and at the freeze
1451 (Analyze_Private_Extension_Declaration):
1452 A private extension inherits the DIC pragma of a parent type.
1453 (Analyze_Subtype_Declaration): No need to propagate invariant
1454 attributes to a subtype as those apply to the base type.
1455 (Build_Derived_Record_Type): No need to inherit invariants here
1456 as this is now done in Build_Derived_Type.
1457 (Build_Derived_Type): Inherit both the DIC pragma and invariants from
1459 (Process_Full_View): Update the propagation of DIC attributes.
1460 (Propagate_Default_Init_Cond_Attributes): Removed.
1461 * sem_ch7.adb Add with and use clauses for Exp_Util.
1462 (Analyze_Package_Specification): Create the body of the DIC
1463 procedure at the end of the visible and private declarations.
1464 (Preserve_Full_Attributes): Propagate DIC attributes.
1465 * sem_ch9.adb (Analyze_Protected_Type_Declaration): Propagate
1467 (Analyze_Task_Type_Declaration): Propagate DIC attributes.
1468 * sem_elab.adb (Check_A_Call): Update the call to
1469 Is_Nontrivial_Default_Init_Cond_Procedure.
1470 * sem_prag.adb Remove the with and use clauses for
1471 GNAT.HTable. Move the handling of class- wide pre/postcondition
1472 description and data structures to Exp_Util.
1473 (Analyze_Pragma): Create the declaration of the DIC procedure. There
1474 is no need to propagate invariant-related attributes at this point
1475 as this is done in Build_Invariant_Procedure_Declaration.
1476 (Build_Class_Wide_Expression): Moved to Exp_Util.
1477 (Entity_Hash): Moved to Exp_Util.
1478 (Update_Primitives_Mapping): Moved to Exp_Util.
1479 * sem_prag.ads (Build_Class_Wide_Expression): Moved to Exp_Util.
1480 (Update_Primitives_Mapping): Moved to Exp_Util.
1481 * sem_util.adb: Remove with and use clauses for Ghost
1483 (Build_Default_Init_Cond_Call): Removed.
1484 (Build_Default_Init_Cond_Procedure_Bodies): Removed.
1485 (Build_Default_Init_Cond_Procedure_Declaration): Removed.
1486 (Get_Views): Reimplemented.
1487 (Has_Full_Default_Initialization): Reimplement the section on DIC.
1488 (Inherit_Default_Init_Cond_Procedure): Removed.
1489 (Is_Nontrivial_Default_Init_Cond_Procedure): Removed.
1490 (Is_Nontrivial_DIC_Procedure): New routine.
1491 (Is_Verifiable_DIC_Pragma): New routine.
1492 (Propagate_DIC_Attributes): New routine.
1493 * sem_util.ads (Build_Default_Init_Cond_Call): Removed.
1494 (Build_Default_Init_Cond_Procedure_Bodies): Removed.
1495 (Build_Default_Init_Cond_Procedure_Declaration): Removed.
1496 (Inherit_Default_Init_Cond_Procedure): Removed.
1497 (Is_Nontrivial_Default_Init_Cond_Procedure): Removed.
1498 (Is_Nontrivial_DIC_Procedure): New routine.
1499 (Is_Verifiable_DIC_Pragma): New routine.
1500 (Propagate_DIC_Attributes): New routine.
1501 * sem_warn.adb (Is_OK_Fully_Initialized): Reimplement the section
1503 * sinfo.ads, sinfo.adb: Add new attribute Expression_Copy along with
1505 (Expression_Copy): New routine along with pragma Inline.
1506 (Set_Expression_Copy): New routine along with pragma Inline.
1508 2017-01-06 Bob Duff <duff@adacore.com>
1510 * bindgen.adb (Gen_Adainit, Gen_Adafinal): Change
1511 "Bind_Main_Program" to "not Bind_For_Library", because otherwise
1512 we won't generate the call to s_stalib_adafinal when the main
1513 is not written in Ada.
1515 2017-01-06 Bob Duff <duff@adacore.com>
1517 * sem_prag.adb: Minor: remove pragma Warnings.
1519 2017-01-06 Tristan Gingold <gingold@adacore.com>
1521 * Makefile.rtl: Do not compile s-stchop by default.
1523 2017-01-06 Patrick Bernardi <bernardi@adacore.com>
1525 * aspects.adb, aspects.ads, exp_ch3.adb, exp_ch9.adb, par-prag.adb,
1526 sem_ch13.adb, sem_prag.adb, sem_prag.ads, snames.adb-tmpl,
1527 snames.ads-tmpl, s-secsta.adb, s-secsta.ads, s-tarest.adb,
1528 s-tarest.ads, s-taskin.adb, s-taskin.ads, s-tassta.adb, s-tassta.ads:
1529 Reverted previous change for now.
1531 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1533 * exp_ch3.adb (Build_Initialization_Call): Apply predicate
1534 check to default discriminant value if checks are enabled.
1535 (Build_Assignment): If type of component has static predicate,
1536 apply check to its default value, if any.
1538 2017-01-06 Patrick Bernardi <bernardi@adacore.com>
1540 * aspect.adb, aspect.ads: Added new aspect Secondary_Stack_Size.
1541 * exp_ch3.adb (Build_Init_Statements): As part of initialising
1542 the value record of a task, set its _Secondary_Stack_Size field
1544 * exp_ch9.adb (Expand_N_Task_Type_Declaration): Create
1545 a _Secondary_Stack_Size field in the value record of
1546 the task if a Secondary_Stack_Size rep item is present.
1547 (Make_Task_Create_Call): Include secondary stack size
1548 parameter. If No_Secondary_Stack restriction is in place, passes
1550 * par-prag.adb, sem_prag.adb, sem_prag.ads: Added new pragma
1551 Secondary_Stack_Size.
1552 * s-secsta.adb, s-secsta.ads (Minimum_Secondary_Stack_Size): New
1553 function to define the overhead of the secondary stack.
1554 * s-tarest.adb (Create_Restricted_Task,
1555 Create_Restricted_Task_Sequential): Functions now include
1556 Secondary_Stack_Size parameter to pass to Initialize_ATCB.
1557 * s-tarest.adb (Create_Restricted_Task,
1558 Create_Restricted_Task_Sequential): Calls to Initialize_ATCB
1559 now include Secondary_Stack_Size parameter.
1561 Secondary stack now allocated to the size specified by the
1562 Secondary_Stack_Size parameter in the task's ATCB.
1563 * s-taskin.adb, s-taskin.adb (Common_ATCB, Initialise_ATCB): New
1564 Secondary_Stack_Size component.
1565 * s-tassta.adb, s-tassta.ads (Create_Restricted_Task,
1566 Create_Restricted_Task_Sequential): Function now include
1567 Secondary_Stack_Size parameter.
1568 (Task_Wrapper): Secondary stack
1569 now allocated to the size specified by the Secondary_Stack_Size
1570 parameter in the task's ATCB.
1571 * sem_ch13.adb (Analyze_Aspect_Specification): Add support
1572 for Secondary_Stack_Size aspect, turning the aspect into its
1573 corresponding internal attribute.
1574 (Analyze_Attribute_Definition):
1575 Process Secondary_Stack_Size attribute.
1576 * snames.adb-tmpl, snames.ads-tmpl: Added names
1577 Name_Secondary_Stack_Size, Name_uSecondary_Stack_Size,
1578 Attribute_Secondary_Stack_Size and Pragma_Secondary_Stack_Size.
1580 2017-01-06 Pascal Obry <obry@adacore.com>
1582 * a-direio.adb, a-direio.ads, a-sequio.adb, a-sequio.ads: Add Flush to
1583 Sequential_IO and Direct_IO.
1585 2017-01-06 Bob Duff <duff@adacore.com>
1587 * snames.ads-tmpl (Renamed): New name for the pragma argument.
1588 * par-ch2.adb: Allow the new pragma (with analysis deferred
1590 * sinfo.ads, sinfo.adb (Map_Pragma_Name, Pragma_Name_Mapped):
1591 Keep a mapping from new pragma names to old names.
1592 * sem_prag.adb: Check legality of pragma Rename_Pragma, and
1593 implement it by calling Map_Pragma_Name.
1594 * checks.adb, contracts.adb, einfo.adb, errout.adb,
1595 * exp_attr.adb, exp_ch3.adb, exp_ch6.adb, exp_ch7.adb, exp_ch9.adb,
1596 * exp_prag.adb, exp_util.adb, freeze.adb, frontend.adb, ghost.adb,
1597 * inline.adb, lib-writ.adb, scans.adb, scans.ads, sem_attr.adb,
1598 * sem_aux.adb, sem_ch10.adb, sem_ch13.adb, sem_ch6.adb, sem_ch9.adb,
1599 * sem_elab.adb, sem_res.adb, sem_util.adb, sem_util.ads,
1600 * sem_warn.adb: Call Pragma_Name_Mapped instead of Pragma_Name
1603 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1605 * exp_ch9.adb: Minor reformatting.
1607 2017-01-06 Tristan Gingold <gingold@adacore.com>
1609 * exp_ch9.ads, exp_ch9.adb (Build_Entry_Names): Remove (unused).
1610 * rtsfind.ads (RE_Task_Entry_Names_Array, RO_ST_Set_Entry_Names)
1611 (RE_Protected_Entry_Names_Array, RO_PE_Set_Entry_Names): Remove
1613 * s-taskin.ads, s-taskin.adb (Set_Entry_Names,
1614 Task_Entry_Names_Array, Task_Entry_Names_Access): Remove.
1615 * s-tpoben.ads, s-tpoben.adb (Set_Entry_Names,
1616 Protected_Entry_Names_Array, Protected_Entry_Names_Access): Remove.
1618 2017-01-06 Bob Duff <duff@adacore.com>
1620 * sinfo.ads, sinfo.adb (Map_Pragma_Name): Preparation work,
1621 dummy implementation of Map_Pragma_Name.
1623 2017-01-06 Tristan Gingold <gingold@adacore.com>
1625 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Make the
1626 entry_body variable constant.
1627 * s-taprob.ads (Entry_Body_Access): Move to s-tposen.
1628 * s-tpoben.ads (Protected_Entry_Body_Access): Now access
1630 * s-tposen.ads (Entry_Body_Access): Moved from s-taprob,
1631 now access to constant.
1633 2017-01-06 Gary Dismukes <dismukes@adacore.com>
1635 * einfo.ads, sem_res.adb, sem_attr.adb, sem_ch6.adb: Minor
1636 reformatting and typo fixes.
1638 2017-01-06 Bob Duff <duff@adacore.com>
1640 * snames.ads-tmpl: New names for pragma renaming.
1641 * snames.adb-tmpl (Is_Configuration_Pragma_Name): Minor cleanup.
1642 * par-prag.adb: Add new pragma name to case statement.
1643 * sem_prag.adb (Rename_Pragma): Initial cut at semantic analysis
1645 * sinfo.ads, sinfo.adb (Pragma_Name_Mapped): Preparation work,
1646 Dummy implementation of Pragma_Name_Mapped.
1648 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1650 * exp_ch6.adb (Expand_Protected_Subprogram_Call): Add guard to
1651 better detect call within an entry_wrapper.
1652 * sem_res.adb (Resolve_Call): A protected call within an
1653 entity_wrapper is analyzed in the context of the protected
1654 object but corresponds to a pre-analysis and is not an access
1656 * sem_attr.adb: Minor reformatting.
1658 2017-01-06 Justin Squirek <squirek@adacore.com>
1660 * sem_attr.adb (Analyze_Attribute): Modify semantic checks for
1661 Finalization_Size to allow a prefix of any non-class-wide type.
1662 * sem_attr.ads Modify comment for Finalization_Size to include
1663 definite type use case.
1665 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1667 * einfo.ads, einfo.adb (Is_Entry_Wrapper): New flag, defined
1668 on procedures that are wrappers created for entries that have
1670 * sem_ch6.adb (Analyze_Subrogram_Body_Helper): If the subprogram
1671 body is an entry_wrapper, compile it in the context of the
1672 synchronized type, because a precondition may refer to funtions
1674 * exp_ch9.adb (Build_Contract_Wrapper): Set Is_Entry_Wrapper on
1676 * exp_ch6.adb (Expand_Protected_Subprogram_Call): if the call is
1677 within an Entry_Wrapper this is an external call whose target
1678 is the synchronized object that is the actual in the call to
1681 2017-01-06 Yannick Moy <moy@adacore.com>
1683 * sem_attr.adb (Analyze_Attribute/Attribute_Loop_Entry): Analyze node
1684 in tree, which means not analyzing the previous prefix if the node has
1685 been rewritten into its prefix.
1687 2017-01-06 Gary Dismukes <dismukes@adacore.com>
1689 * s-tpobop.adb: Minor reformatting.
1691 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1693 * checks.adb (Ensure_Valid): Do not generate a validity check
1694 within a generated predicate function, validity checks will have
1695 been applied earlier when required.
1697 2017-01-06 Tristan Gingold <gingold@adacore.com>
1699 * s-tpoben.ads (Protection_Entries): Add comment and reorder
1700 components for performances.
1701 * s-tpobop.adb (PO_Do_Or_Queue): Implement Max_Queue_Length runtime
1704 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1706 * sem_eval.adb (Check_Expression_Against_Static_Predicate):
1707 If expression is compile-time known and obeys a static predicate
1708 it must be labelled as static, to prevent spurious warnings and
1709 run-time errors, e.g. in case statements. This is relevant when
1710 the expression is the result of constant-folding a type conversion
1711 whose expression is a variable with a known static value.
1713 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1715 * exp_attr.adb, sem_attr.ads: Minor reformatting.
1717 2017-01-06 Justin Squirek <squirek@adacore.com>
1719 * exp_attr.adb (Expand_N_Attribute_Reference): Add entry for
1720 expansion of Finalization_Size attribute.
1721 * sem_attr.adb (Analyze_Attribute): Add entry to check the
1722 semantics of Finalization_Size.
1723 (Eval_Attribute): Add null entry for Finalization_Size.
1724 * sem_attr.ads: Add Finalization_Size to the implementation
1725 dependent attribute list.
1726 * snames.ads-tmpl: Add name entry for Finalization_Size attribute.
1728 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1730 * sem_ch5.adb (Analyze_Loop_Statement): If the loop includes an
1731 iterator specification with a serious syntactic error, transform
1732 construct into an infinite loop in order to continue analysis
1733 and prevent a compiler abort.
1735 2017-01-06 Tristan Gingold <gingold@adacore.com>
1737 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Do not generate
1738 max_queue_lengths_array if unused.
1740 2017-01-06 Bob Duff <duff@adacore.com>
1742 * errout.adb (Set_Msg_Text): Protect against out-of-bounds
1743 array access, in case "\" is at the end of Text.
1744 * stylesw.adb (Set_Style_Check_Options): Don't include input
1745 characters in the error message template, because they could
1746 be control characters such as "\", which Errout will try to
1749 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1751 * sem_ch4.adb (Find_Indexing_Operations, Inspect_Declarations):
1752 For a private type examine the visible declarations that follow
1753 the partial view, not just the private declarations that follow
1756 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1758 * exp_ch5.adb, sem_ch3.adb, checks.adb: Minor reformatting and
1761 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1763 * exp_ch5.adb (Get_Default_Iterator): For a derived type, the
1764 alias of the inherited op is the parent iterator, no need to
1765 examine dispatch table positions which might not be established
1766 yet if type is not frozen.
1767 * sem_disp.adb (Check_Controlling_Formals): The formal of a
1768 predicate function may be a subtype of a tagged type.
1769 * sem_ch3.adb (Complete_Private_Subtype): Adjust inheritance
1770 of representation items for the completion of a type extension
1771 where a predicate applies to the partial view.
1772 * checks.ads, checks.adb (Apply_Predicate_Check): Add optional
1773 parameter that designates function whose actual receives a
1774 predicate check, to improve warning message when the check will
1775 lead to infinite recursion.
1776 * sem_res.adb (Resolve_Actuals): Pass additional parameter to
1777 Apply_Predicate_Check.
1779 2017-01-06 Tristan Gingold <gingold@adacore.com>
1781 * s-rident.ads (Profile_Info): Remove No_Entry_Queue from
1782 Gnat_Extended_Ravenscar.
1783 * exp_ch9.adb, s-tpoben.adb, s-tpoben.ads: Fix spelling.
1785 2017-01-06 Gary Dismukes <dismukes@adacore.com>
1787 * sem_util.ads: Minor typo fix and reformatting.
1789 2017-01-06 Yannick Moy <moy@adacore.com>
1791 * ghost.adb Minor fixing of references to SPARK RM.
1792 (Check_Ghost_Context): Check whether reference is to a lvalue
1793 before issuing an error about violation of SPARK RM 6.9(13)
1794 when declaration has Ghost policy Check and reference has Ghost
1796 * sem_util.adb Minor indentation.
1797 * sem_ch10.adb (Analyze_Package_Body_Stub, Analyze_Protected_Body_Stub,
1798 Analyze_Task_Body_Stub): Set Ekind of the defining identifier.
1799 * sem_util.ads (Unique_Defining_Entity): Document the result
1800 for package body stubs.
1802 2017-01-06 Tristan Gingold <gingold@adacore.com>
1804 * raise-gcc.c (abort): Macro to call Abort_Propagation.
1805 * s-tpoben.ads (Protected_Entry_Queue_Max_Access): Make it access
1807 * exp_ch9.adb (Expand_N_Protected_Type_Declaration):
1808 Do not generate the Entry_Max_Queue_Lengths_Array if all default
1810 * exp_util.adb (Corresponding_Runtime_Package): Consider
1811 Max_Queue_Length pragma.
1813 2017-01-06 Justin Squirek <squirek@adacore.com>
1815 * exp_ch9.adb (Expand_N_Protected_Type_Declaration):
1816 Remove declaration generation in the case of
1817 System_Tasking_Protected_Objects_Single_Entry being used,
1818 and add a warning message when this is detected to occur.
1819 (Make_Initialize_Protection): Remove reference pass in the case
1820 of System_Tasking_Protected_Objects_Single_Entry.
1821 * rtsfind.ads: Remove RE_Protected_Entry_Queue_Max
1822 * s-tposen.adb (Initialize_Protection_Entry): Remove
1823 Entry_Queue_Max parameter.
1824 * s-tposen.ads: Remove the types use to store the entry queue
1826 * sem_prag.adb (Analyze_Pragma): Remove entry families restriction
1828 2017-01-06 Yannick Moy <moy@adacore.com>
1830 * sem_util.adb, sem_util.ads (Get_Enum_Lit_From_Pos): Strengthen
1831 behavior of function, to also accept out of range positions
1832 and raise Constraint_Error in such case, and to copy sloc from
1833 literal if No_Location passed as location.
1834 * uintp.adb, uintp.ads (UI_To_Int, UI_To_CC): Strengthen behavior
1835 of functions to raise Constraint_Error in case of value not in
1838 2017-01-06 Tristan Gingold <gingold@adacore.com>
1840 * sem_util.adb, s-taprop-linux.adb (Finalize_TCB): Remove call to
1841 Invalidate_Stack_Cache.
1843 2017-01-06 Eric Botcazou <ebotcazou@adacore.com>
1845 * s-os_lib.adb: Minor fix to the signature of Readlink.
1847 2017-01-06 Javier Miranda <miranda@adacore.com>
1849 * sem_ch6.adb (Conforming_Types): Handle another
1850 confusion between views in a nested instance with an actual
1851 private type whose full view is not in scope.
1853 2017-01-06 Arnaud Charlet <charlet@adacore.com>
1855 * exp_ch5.adb (Expand_N_If_Statement): Obey existing comment and
1856 mark a rewritten if statement as explicit (Comes_From_Source).
1858 2017-01-06 Gary Dismukes <dismukes@adacore.com>
1860 * sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes.
1862 2017-01-06 Tristan Gingold <gingold@adacore.com>
1864 * ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All.
1866 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1868 * sem_case.adb: Minor reformatting.
1870 2017-01-06 Thomas Quinot <quinot@adacore.com>
1872 * g-socthi-mingw.adb: Remove now extraneous USE TYPE clause
1874 2017-01-06 Justin Squirek <squirek@adacore.com>
1876 * aspects.adb: Register aspect in Canonical_Aspect.
1877 * aspects.ads: Associate qualities of Aspect_Max_Queue_Length
1878 into respective tables.
1879 * einfo.ads, einfo.adb: Add a new attribute for
1880 handling the parameters for Pragma_Max_Entry_Queue
1881 (Entry_Max_Queue_Lengths_Array) in E_Protected_Type. Subprograms
1882 for accessing and setting were added as well.
1883 * par-prag.adb (Prag): Register Pramga_Max_Entry_Queue.
1884 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Emit
1885 declaration for pramga arguments and store them in the protected
1887 (Make_Initialize_Protection): Pass a reference to
1888 the Entry_Max_Queue_Lengths_Array in the protected type node to
1890 * rtsfind.adb: Minor grammar fix.
1891 * rtsfind.ads: Register new types taken from the
1892 runtime libraries RE_Protected_Entry_Queue_Max and
1893 RE_Protected_Entry_Queue_Max_Array
1894 * s-tposen.adb, s-tpoben.adb
1895 (Initialize_Protection_Entry/Initialize_Protection_Entries):
1896 Add extra parameter and add assignment to local object.
1897 * s-tposen.ads, s-tpoben.ads: Add new types to
1898 store entry queue maximums and a field to the entry object record.
1899 * sem_ch13.adb (Analyze_Aspect_Specifications): Add case statement
1900 for Aspect_Max_Queue_Length.
1901 (Check_Aspect_At_Freeze_Point):
1902 Add aspect to list of aspects that don't require delayed analysis.
1903 * sem_prag.adb (Analyze_Pragma): Add case statement for
1904 Pragma_Max_Queue_Length, check semantics, and register arugments
1905 in the respective entry nodes.
1906 * sem_util.adb, sem_util.ads Add functions Get_Max_Queue_Length
1907 and Has_Max_Queue_Length
1908 * snames.ads-tmpl: Add constant for the new aspect-name
1909 Name_Max_Queue_Length and corrasponding pragma.
1911 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1913 * exp_util.adb (Is_Controlled_Function_Call):
1914 Reimplemented. Consider any node which has an entity as the
1915 function call may appear in various ways.
1917 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1919 * exp_attr.adb (Rewrite_Stream_Proc_Call): Use
1920 an unchecked type conversion when performing a view conversion
1921 to/from a private type. In all other cases use a regular type
1922 conversion to ensure that any relevant checks are properly
1925 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
1927 * sem_prag.adb, sem_ch8.adb: Minor reformatting.
1929 2017-01-06 Ed Schonberg <schonberg@adacore.com>
1931 * sem_case.adb (Explain_Non_Static_Bound): Suppress cascaded
1932 error on case expression that is an entity, when coverage is
1933 incomplete and entity has a static value obtained by local
1935 (Handle_Static_Predicate): New procedure, subsidiary of
1936 Check_Choices, to handle case alternatives that are either
1937 subtype names or subtype indications involving subtypes that
1938 have static predicates.
1940 2017-01-06 Thomas Quinot <quinot@adacore.com>
1942 * s-oscons-tmplt.c, g-socket.adb, g-socket.ads, g-sothco.ads:
1943 (GNAT.Socket): Add support for Busy_Polling and Generic_Option
1945 2017-01-06 Bob Duff <duff@adacore.com>
1947 * sem_elab.adb (Activate_Elaborate_All_Desirable): Don't add
1948 Elaborate_All(P) to P itself. That could happen in obscure cases,
1949 and always introduced a cycle (P body must be elaborated before
1951 * lib-writ.ads: Comment clarification.
1952 * ali-util.ads: Minor comment fix.
1953 * ali.adb: Minor reformatting.
1955 2017-01-06 Tristan Gingold <gingold@adacore.com>
1957 * a-exexpr-gcc.adb: Improve comment.
1959 2017-01-03 James Cowgill <James.Cowgill@imgtec.com>
1961 * s-linux-mips.ads: Use correct signal and errno constants.
1962 (sa_handler_pos, sa_mask_pos): Fix offsets for 64-bit MIPS.
1964 2017-01-03 James Cowgill <James.Cowgill@imgtec.com>
1966 * s-linux-mips.ads: Rename from s-linux-mipsel.ads.
1967 * gcc-interface/Makefile.in (MIPS/Linux): Merge mips and mipsel
1970 2017-01-01 Eric Botcazou <ebotcazou@adacore.com>
1972 * gnatvsn.ads: Bump copyright year.
1974 2017-01-01 Jakub Jelinek <jakub@redhat.com>
1976 * gnat_ugn.texi: Bump @copying's copyright year.
1977 * gnat_rm.texi: Likewise.
1979 Copyright (C) 2017 Free Software Foundation, Inc.
1981 Copying and distribution of this file, with or without modification,
1982 are permitted in any medium without royalty provided the copyright
1983 notice and this notice are preserved.