1 2017-09-05 Eric Botcazou <ebotcazou@adacore.com>
3 * repinfo.ads: Document new treatment of dynamic values.
4 (TCode): Bump upper bound to 29.
5 (Dynamic_Val): New constant set to 29.
6 * repinfo.adb (Print_Expr) <Dynamic_Val>: New case.
7 (Rep_Value) <Dynamic_Val>: Likewise.
8 * repinfo.h (Dynamic_Val): New macro.
9 * gcc-interface/decl.c (annotate_value): Tidy up and cache result for
11 <INTEGER_CST>: Set TCODE instead of recursing.
12 <COMPONENT_REF>: Set TCODE instead of calling Create_Node manually.
14 <MULT_EXPR, PLUS_EXPR>: Fold conversions into inner operations.
15 <BIT_AND_EXPR>: Adjust.
16 <CALL_EXPR>: Do not fall through.
18 2017-09-05 Eric Botcazou <ebotcazou@adacore.com>
20 * gcc-interface/trans.c (Call_to_gnu): If this is a function call and
21 there is no target, do not create a temporary for the return value for
24 2017-09-05 Eric Botcazou <ebotcazou@adacore.com>
26 * gcc-interface/trans.c (pos_to_constructor): Skip conversions to an
27 unconstrained array type.
29 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
30 Alan Hayward <alan.hayward@arm.com>
31 David Sherwood <david.sherwood@arm.com>
33 * gcc-interface/decl.c (validate_size): Use NARROWEST_INT_MODE
34 instead of GET_CLASS_NARROWEST_MODE (MODE_INT).
36 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
37 Alan Hayward <alan.hayward@arm.com>
38 David Sherwood <david.sherwood@arm.com>
40 * gcc-interface/decl.c (check_ok_for_atomic_type): Use
41 is_a <scalar_int_mode>.
42 * gcc-interface/trans.c (Pragma_to_gnu): Likewise.
43 * gcc-interface/utils.c (gnat_type_for_mode): Likewise.
45 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
46 Alan Hayward <alan.hayward@arm.com>
47 David Sherwood <david.sherwood@arm.com>
49 * gcc-interface/decl.c (gnat_to_gnu_entity): Use int_mode_for_size
50 instead of mode_for_size.
51 (gnat_to_gnu_subprog_type): Likewise.
52 * gcc-interface/utils.c (make_type_from_size): Likewise.
54 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
55 Alan Hayward <alan.hayward@arm.com>
56 David Sherwood <david.sherwood@arm.com>
58 * gcc-interface/misc.c (fp_prec_to_size): Use opt_scalar_float_mode.
59 (fp_size_to_prec): Likewise.
61 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
62 Alan Hayward <alan.hayward@arm.com>
63 David Sherwood <david.sherwood@arm.com>
65 * gcc-interface/utils.c (gnat_type_for_mode): Use is_a
66 <scalar_float_mode> instead of SCALAR_FLOAT_MODE_P.
68 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
69 Alan Hayward <alan.hayward@arm.com>
70 David Sherwood <david.sherwood@arm.com>
72 * gcc-interface/decl.c (validate_size): Update use of
73 GET_MODE_WIDER_MODE, forcing a wider mode to exist.
75 2017-08-30 Richard Sandiford <richard.sandiford@linaro.org>
76 Alan Hayward <alan.hayward@arm.com>
77 David Sherwood <david.sherwood@arm.com>
79 * gcc-interface/misc.c (fp_prec_to_size): Use new mode iterators.
80 (fp_size_to_prec): Likewise.
82 2017-08-29 Martin Liska <mliska@suse.cz>
85 * gcc-interface/trans.c (Pragma_to_gnu): Set argument to NULL.
87 2017-08-08 Martin Liska <mliska@suse.cz>
89 * gcc-interface/trans.c: Include header files.
91 2017-07-29 Jakub Jelinek <jakub@redhat.com>
93 * gcc-interface/utils.c (gnat_write_global_declarations): Pass false
94 as new argument to the imported_module_or_decl debug hook.
96 2017-07-25 Javier Miranda <miranda@adacore.com>
98 * checks.adb (Apply_Divide_Checks): Ensure that operands are not
101 2017-07-19 Jakub Jelinek <jakub@redhat.com>
103 * gcc-interface/ada-tree.h (TYPE_OBJECT_RECORD_TYPE,
104 TYPE_GCC_MIN_VALUE): Use TYPE_MIN_VALUE_RAW instead of TYPE_MINVAL.
105 (TYPE_GCC_MAX_VALUE): Use TYPE_MAX_VALUE_RAW instead of TYPE_MAXVAL.
107 2017-07-18 Mike Frysinger <vapier@chromium.org>
109 * gcc-interface/Makefile.in (../../gnatmake$(exeext)): Delete $(P).
110 (../../gnatlink$(exeext)): Likewise.
112 2017-07-15 John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>
115 * system-linux-m68k.ads: Add pragma No_Elaboration_Code_All.
116 (Backend_Overflow_Checks): Set to True.
118 2017-06-23 Jakub Jelinek <jakub@redhat.com>
120 * gcc-interface/trans.c (gnat_to_gnu): Initialize sync to false.
122 2017-06-21 Pierre-Marie de Rodat <derodat@adacore.com>
124 * gcc-interface/ada-tree.h (DECL_FUNCTION_IS_DEF): Update copyright
126 * gcc-interface/trans.c (Subprogram_Body_to_gnu): Tag the subprogram
128 (Compilation_Unit_to_gnu): Tag the elaboration procedure as a
130 * gcc-interface/decl.c (gnat_to_gnu_entity): Tag declarations of
131 imported subprograms for the current compilation unit as
132 definitions. Disable debug info for references to variables.
133 * gcc-interface/gigi.h (create_subprog_decl): Update declaration.
134 * gcc-interface/utils.c (gnat_pushdecl): Add external DECLs that are
135 not built-in functions to their binding scope.
136 (create_subprog_decl): Add a DEFINITION parameter. If it is true, tag
137 the function as a definition. Update all callers.
138 (gnat_write_global_declarations): Emit debug info for imported
139 functions. Filter out external variables for which debug info
142 2017-06-15 Nicolas Boulenguez <nicolas.boulenguez@free.fr>
145 * gcc-interface/Makefile.in (x86 kfreebsd): Adjust system.ads setting.
146 (i[3456]86-pc-gnu): Likewise.
147 (x86_64 kfreebsd): Likewise.
149 2017-06-12 Eric Botcazou <ebotcazou@adacore.com>
152 * exp_ch3.adb (Make_Predefined_Primitive_Specs): Use Positive index.
154 2017-06-12 Eric Botcazou <ebotcazou@adacore.com>
157 * s-interr-hwint.adb: Reinstate.
158 * gcc-interface/Makefile.in (RTEMS): Use it again.
160 2017-06-08 Olivier Hainque <hainque@adacore.com>
162 * vx_crtbegin_auto.c: Update year in copyright notice.
163 * vx_crtbegin.c: Likewise.
164 * vx_crtbegin.inc: Likewise.
165 * vx_crtend.c: Likewise.
167 2017-06-07 Sebastian Huber <sebastian.huber@embedded-brains.de>
169 * Makefile.in (rtems): Use TLS implementation for s-tpopsp.adb.
170 * s-tpopsp-rtems.adb: Delete.
172 2017-06-02 Olivier Hainque <hainque@adacore.com>
174 * vx_crtbegin_auto.c: New file.
175 * vx_crtbegin.c: New file.
176 * vx_crtbegin.inc: New file.
177 * vx_crtend.c: New file.
179 2017-05-25 Jonathan Wakely <jwakely@redhat.com>
181 * gcc-interface/utils2.c (compare_elmt_bitpos): Remove redundant
182 const qualifiers that cause -Wignored-qualifiers warnings.
184 2017-05-22 Eric Botcazou <ebotcazou@adacore.com>
186 * gcc-interface/decl.c (gnat_to_gnu_entity): Skip regular processing
187 for Itypes that are E_Access_Subtype.
188 <E_Access_Subtype>: Use the DECL of the base type directly.
190 2017-05-22 Ed Schonberg <schonberg@adacore.com>
191 Eric Botcazou <ebotcazou@adacore.com>
193 * sem_ch4.adb (Analyze_Call): In Ada2012 an incomplete type from a
194 limited view may appear in the profile of a function, and a call to
195 that function in another unit in which the full view is available must
196 use this full view to spurious type errors at the point of call.
197 * inline.adb (Analyze_Inlined_Bodies): Remove restriction on loading
198 of parent body with a with clause for the main unit.
199 * gcc-interface/decl.c (defer_limited_with_list): Document new usage.
200 (gnat_to_gnu_entity) <E_Access_Type>: Handle completed Taft Amendment
201 types declared in external units like types from limited with clauses.
202 Adjust final processing of defer_limited_with_list accordingly.
203 * gcc-interface/trans.c (gnat_to_gnu) < N_Selected_Component>: Try
204 again to translate the prefix after the field if it is incomplete.
206 2017-05-22 Eric Botcazou <ebotcazou@adacore.com>
208 * gcc-interface/decl.c (gnat_to_gnu_field): Do not enforce strict
209 alignment for simple volatile fields and remove associated errors.
211 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
213 * gcc-interface/gigi.h (get_elaboration_procedure): Delete.
214 * gcc-interface/trans.c (get_elaboration_procedure): Make static.
216 2017-05-15 Pierre-Marie de Rodat <derodat@adacore.com>
218 * gcc-interface/utils.c (can_materialize_object_renaming_p):
219 Synchronize with GNAT's Exp_Dbug.Debug_Renaming_Declaration:
220 process Original_Node instead of expanded names.
222 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
224 * gcc-interface/trans.c (return_value_ok_for_nrv_p): Only apply the
225 addressability check in the constrained case.
227 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
229 * gcc-interface/trans.c (Identifier_to_gnu): Also accept incomplete
230 types not coming from a limited context.
232 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
234 * gcc-interface/trans.c (Compilation_Unit_to_gnu): Skip subprograms on
235 the inlined list that are not public.
236 * gcc-interface/utils.c (create_subprog_decl): Clear TREE_PUBLIC if
237 there is a pragma Inline_Always on the subprogram.
239 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
241 * gcc-interface/trans.c (gnat_to_gnu) <N_Aggregate>: Fix formatting.
242 <N_Allocator>: Use properly typed constants.
243 (extract_values): Move around.
244 (pos_to_constructor): Minor tweaks.
245 (Sloc_to_locus): Fix formatting.
246 * gcc-interface/utils.c (process_deferred_decl_context): Minor tweaks.
247 * gcc-interface/gigi.h (MARK_VISITED): Remove blank line.
248 (Gigi_Equivalent_Type): Adjust head comment.
249 * gcc-interface/decl.c (Gigi_Equivalent_Type): Likewise.
251 2017-05-15 Eric Botcazou <ebotcazou@adacore.com>
253 * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: When there
254 is a representation clause on an extension, propagate the alignment of
255 the parent type only if the platform requires strict alignment.
257 2017-05-12 Eric Botcazou <ebotcazou@adacore.com>
259 * system-linux-arm.ads (Memory_Size): Use Long_Integer'Size
260 instead of Word_Size.
263 2017-03-28 Andreas Schwab <schwab@suse.de>
266 * system-linux-aarch64-ilp32.ads: New file.
267 * gcc-interface/Makefile.in (LIBGNAT_TARGET_PAIRS_COMMON): Rename
268 from LIBGNAT_TARGET_PAIRS.
269 (LIBGNAT_TARGET_PAIRS_32, LIBGNAT_TARGET_PAIRS_64): Define.
270 (LIBGNAT_TARGET_PAIRS): Use LIBGNAT_TARGET_PAIRS_COMMON, and
271 LIBGNAT_TARGET_PAIRS_64 or LIBGNAT_TARGET_PAIRS_32 for -mabi=lp64
272 or -mabi=ilp32, resp.
274 2017-05-10 H.J. Lu <hongjiu.lu@intel.com>
277 * system-linux-x86.ads (Memory_Size): Use Long_Integer'Size
278 instead of Word_Size.
280 2017-05-10 Bernd Edlinger <bernd.edlinger@hotmail.de>
282 * raise-gcc.c (exception_class_eq): Make ec parameter const.
284 2017-05-02 Richard Biener <rguenther@suse.de>
286 * gcc-interface/misc.c (gnat_post_options): Do not set
289 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
291 * gcc-interface/trans.c (assoc_to_constructor): Make sure
292 Corresponding_Discriminant is only called on discriminants.
293 Skip the saving of the result only for them.
294 (gnat_to_gnu) <N_Selected_Component>: Likewise.
295 <N_Unchecked_Type_Conversion>: Translate the result type first.
296 (gigi): Set TREE_NOTHROW on Begin_Handler.
297 (stmt_list_cannot_raise_p): New predicate.
298 (Exception_Handler_to_gnu_gcc): Emit a simple final call instead of
299 a cleanup if the statements of the handler cannot raise.
300 (process_freeze_entity): Use Is_Record_Type.
301 (process_type): Likewise.
303 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
305 * einfo.ads (Corresponding_Record_Component): New alias
306 for Node21 used for E_Component and E_Discriminant.
307 * einfo.adb (Corresponding_Record_Component): New function.
308 (Set_Corresponding_Record_Component): New procedure.
309 (Write_Field21_Name): Handle Corresponding_Record_Component.
310 * sem_ch3.adb (Inherit_Component): Set
311 Corresponding_Record_Component for every component in
312 the untagged case. Clear it afterwards for non-girder
314 * gcc-interface/decl.c (gnat_to_gnu_entity)
315 <E_Record_Type>: For a derived untagged type with discriminants
316 and constraints, apply the constraints to the layout of the
317 parent type to deduce the layout.
318 (field_is_aliased): Delete.
319 (components_to_record): Test DECL_ALIASED_P directly.
320 (annotate_rep): Check that fields are present except for
322 (create_field_decl_from): Add DEBUG_INFO_P
323 parameter and pass it in recursive and other calls. Add guard
324 for the manual CSE on the size.
325 (is_stored_discriminant): New predicate.
326 (copy_and_substitute_in_layout): Consider only
327 stored discriminants and check that original fields are present
328 in the old type. Deal with derived types. Adjust call to
329 create_variant_part_from.
331 2017-05-02 Ed Schonberg <schonberg@adacore.com>
333 * exp_ch6.adb (Expand_Call_Helper): When locating the
334 accessibility entity created for an access parameter, handle
335 properly a reference to a formal of an enclosing subprogram. if
336 the reference appears in an inherited class-wide condition, it
337 is the rewriting of the reference in the ancestor expression,
338 but the accessibility entity must be that of the current formal.
340 2017-05-02 Javier Miranda <miranda@adacore.com>
342 * exp_ch4.adb (Expand_Non_Binary_Modular_Op): New subprogram.
343 (Expand_N_Op_Add, Expand_N_Op_Divide, Expand_N_Op_Minus,
344 Expand_N_Op_Multiply, Expand_N_Op_Or, Expand_N_Op_Subtract):
345 Call Expand_Non_Binary_Modular_Op.
347 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
349 * sem_ch3.adb (Build_Derived_Private_Type): If the parent type
350 has discriminants, do not override the Stored_Constraint list of
351 the full view of the derived type with that of the derived type.
353 2017-05-02 Bob Duff <duff@adacore.com>
355 * sem_attr.adb (Attribute_Enum_Rep): Disallow T'Enum_Rep.
357 2017-05-02 Vasiliy Fofanov <fofanov@adacore.com>
359 * s-os_lib.ads: Minor typo fix.
361 2017-05-02 Vasiliy Fofanov <fofanov@adacore.com>
363 * gnatls.adb: Merge and refactor code from Prj.Env and remove
364 this deprecated dependency.
366 2017-05-02 Ed Schonberg <schonberg@adacore.com>
368 * exp_util.ads: minor comment addition.
370 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
372 * sem_ch3.adb (Build_Derived_Record_Type): Fix a few typos and
373 pastos in part #3 of the head comment.
375 2017-05-02 Ed Schonberg <schonberg@adacore.com>
377 * exp_ch3.adb (Freeze_Type): Do not generate an invariant
378 procedure body for a local (sub)type declaration within a
379 predicate function. Invariant checks do not apply to these, and
380 the expansion of the procedure will happen in the wrong scope,
381 leading to misplaced freeze nodes.
383 2017-05-02 Ed Schonberg <schonberg@adacore.com>
385 * exp_util.adb (Insert_Library_Level_Action): Use proper scope
386 to analyze generated actions. If the main unit is a body,
387 the required scope is that of the corresponding unit declaration.
389 2017-05-02 Arnaud Charlet <charlet@adacore.com>
391 * einfo.adb (Declaration_Node): flip branches of
392 an IF statement to avoid repeated negations in its condition;
393 no change in semantics, only to improve readability.
395 2017-05-02 Arnaud Charlet <charlet@adacore.com>
397 * sem_case.adb: Remove extra spaces in parameter declarations.
399 2017-05-02 Justin Squirek <squirek@adacore.com>
401 * usage.adb: Replace space with hyphen ("run time" -> "run-time")
402 in usage line for new -gnatwE switch.
404 2017-05-02 Claire Dross <dross@adacore.com>
406 * a-cofuve.ads (Remove): Remove unnecessary
407 conditions in precondition.
409 2017-05-02 Vasiliy Fofanov <fofanov@adacore.com>
411 * a-stream.ads, exp_imgv.adb, sem_ch10.adb,
412 sem_attr.adb, s-finmas.ads, osint.adb: Minor typo fix.
414 2017-05-02 Justin Squirek <squirek@adacore.com>
416 * sem_ch4.adb (Analyze_Case_Expression): Add check for valid
417 alternative expression.
418 * sem_res.adb (Resolve_Case_Expression): Ditto.
420 2017-05-02 Ed Schonberg <schonberg@adacore.com>
422 * exp_disp.adb (Set_All_DT_Position, In_Predef_Prim_DT):
423 Refine predicate for the case where the primitive operation
424 is a renaming of equality. An overriding operation that is
425 a user-defined renaming of predefined equality inherits its
426 slot from the overridden operation. Otherwise it is treated
427 as a predefined op and occupies the same predefined slot as
428 equality. A call to it is transformed into a call to its alias,
429 which is the predefined equality. A dispatching call thus uses
430 the proper slot if operation is further inherited and called
431 with class-wide arguments.
433 2017-05-02 Justin Squirek <squirek@adacore.com>
435 * errout.adb (Set_Msg_Text): Add a case to switch the message
436 type when the character '[' is detected signifying a warning
437 about a run-time exception.
438 * opt.ads Add a new Warning_Mode value for new switch
439 * switch-b.adb (Scan_Binder_Switches): Add case for the binder
440 to handle new warning mode
441 * usage.adb (Usage): Add usage entry for -gnatwE
442 * warnsw.adb (Set_Warning_Switch): Add case for the new switch
444 2017-05-02 Ed Schonberg <schonberg@adacore.com>
446 * sem_prag.adb (Process_Conversion): Reject an intrinsic operator
447 declaration that operates on some fixed point type.
449 2017-05-02 Justin Squirek <squirek@adacore.com>
451 * a-crbtgo.adb, s-taasde.adb: Remove unused use-type clauses.
453 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
455 * sem_ch6.adb (Analyze_Null_Procedure): Revert previous change.
457 2017-05-02 Justin Squirek <squirek@adacore.com>
459 * sem_ch4.adb (Analyze_Case_Expression): Add check for valid
460 expression (Analyze_If_Expression): Add check for valid condition
461 * sem_eval.adb (Eval_Case_Expression): Add check for error posted
463 * sem_res.adb (Resolve_If_Expression): Add check for valid
464 condition and then-expression.
466 2017-05-02 Ed Schonberg <schonberg@adacore.com>
468 * exp_ch3.adb (Build_Initialization_Call): Generate a null
469 statement if the initialization call is a null procedure, as
470 can happen with a controlled type with no explicit Initialize
471 procedure, or an array of such.
472 * exp_ch7.adb (Process_Object_Declaration): For a type with
473 controlled components that has a trivial Initialize procedure,
474 insert declaration for finalization counter after object
476 (Make_Deep_Array_Body, Build_Initialize_statements): Do not create
477 finalization block and attendant declarations if component has
478 a trivial Initialize procedure.
479 (Make_Init_Call): Do not generate a call if controlled type has
480 a trivial Initialize procedure.
482 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
484 * g-forstr.ads (Data): Move Format component last.
485 * g-forstr.adb ("+"): Adjust for above change.
486 * g-rewdat.ads (Buffer): Move Buffer, Current, Pattern and Value last.
487 * g-sechas.ads (Context): Move Key last.
488 * g-socket.ads (Service_Entry_Type): Move Aliases last.
489 * s-fileio.adb (Temp_File_Record): Move Name last.
490 * s-regexp.adb (Regexp_Value): Move Case_Sensitive last.
491 * xr_tabls.ads (Project_File): Move Src_Dir and Obj_Dir last.
493 2017-05-02 Jerome Lambourg <lambourg@adacore.com>
495 * bindusg.adb, bindgen.adb, gnatbind.adb, opt.ads: Remove the -nognarl
496 switch introduced recently. finally not needed.
498 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
500 * sem_ch6.adb (Analyze_Null_Procedure): Set the
501 Corresponding_Body link for a null procedure declaration.
503 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
505 * atree.h (Flag290): Add missing terminating parenthesis.
506 * einfo.adb (Is_Class_Wide_Clone): Use Flag290.
507 (Set_Is_Class_Wide_Clone): Likewise.
508 * einfo.ads (Is_Class_Wide_Clone): Likewise.
510 2017-05-02 Gary Dismukes <dismukes@adacore.com>
512 * checks.ads (Null_Exclusion_Static_Checks): Add Boolean
513 parameter Array_Comp to indicate the case of an array object
514 with null-excluding components.
515 * checks.adb (Null_Exclusion_Static_Checks):
516 Call Compile_Time_Constraint_Error instead of
517 Apply_Compile_Time_Constraint_Error in the component case. Also
518 call that when Array_Comp is True, with an appropriate warning for
519 the array component case. Only create an explicit initialization
520 by null in the case of an object of a null-excluding access type
521 (and no longer do that in the component case).
522 * sem_ch3.adb (Check_Component): Add a Boolean parameter
523 Array_Comp defaulted to False. Pass Empty for the Comp
524 actual when calling Null_Exclusion_Static_Checks in the case
525 where Comp_Decl matches Object_Decl, because we don't have a
526 component in that case. In the case of an object or component
527 of an array type, pass True for Array_Comp on the recursive call
530 2017-05-02 Bob Duff <duff@adacore.com>
532 * s-taprop-linux.adb (Prio_To_Linux_Prio): New function to correctly
533 compute the linux priority from the Ada priority. Call this everywhere
534 required. In particular, the previous version was not doing this
535 computation when setting the ceiling priority in various places. It
536 was just converting to C.int, which results in a ceiling that is off
539 2017-05-02 Ed Schonberg <schonberg@adacore.com>
541 * sem_ch3.adb: Comment predicate inheritance.
543 2017-05-02 Tristan Gingold <gingold@adacore.com>
545 * s-trasym.ads: Add comment.
547 2017-05-02 Bob Duff <duff@adacore.com>
549 * sem_elab.adb, sem_elab.ads: Minor comment fixes.
550 * sem_ch4.adb: Minor reformatting.
551 * s-taprop-linux.adb, s-taspri-posix.ads: Code refactoring.
552 * s-taspri-posix-noaltstack.ads: Minor refactoring.
553 * sinput.ads: Minor typo fix.
555 2017-05-02 Ed Schonberg <schonberg@adacore.com>
557 * exp_ch9.adb (Discriminated_Size): Moved to sem_util.
558 * sem_util.ads, sem_util.adb (Discriminated_Size): Predicate moved
559 here from exp_ch9, to recognize objects whose creation requires
560 dynamic allocation, so that the proper warning can be emitted
561 when restriction No_Implicit_Heap_Allocation is in effect.
562 * sem_ch3.adb (Analyze_Object_Declaration): Use Discriminated_Size
563 to emit proper warning when an object that requires dynamic
564 allocation is declared.
566 2017-05-02 Tristan Gingold <gingold@adacore.com>
568 * s-trasym.ads, s-trasym.adb (Enable_Cache): New.
570 2017-05-02 Ed Schonberg <schonberg@adacore.com>
572 * sem_ch4.adb (Find_Equality_Types, Try_One_Interp): The same relaxed
573 visibility rules for equality operators that apply within an
574 instantiation apply within an inlined body.
575 * sem_type.adb (Add_One_Interp): ditto.
577 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
579 * sem_prag.adb (Analyze_Pragma): Forbid pragma Contract_Cases on null
582 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
585 (Name_Assume, Name_Attribute_Definition, Name_Loop_Optimize,
586 Name_No_Tagged_Streams): Move to regular pragmas. Add
587 placeholders for Default_Scalar_Storage_Order, Dispatching_Domain,
588 and Secondary_Stack_Size.
589 (Pragma_Id): Move Pragma_Assume,
590 Pragma_Attribute_Definition, Pragma_Loop_Optimize and
591 Pragma_No_Tagged_Streams to second part.
593 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
595 * exp_attr.adb: Minor reformatting.
597 2017-05-02 Ed Schonberg <schonberg@adacore.com>
599 * sem_ch4.adb (Analyze_Selected_Component): Improve error
600 detection for illegal references to private components or
601 operations of a protected type in the body of the type.
603 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
605 * opt.ads: Add missing GNAT markers in comments.
606 * opt.adb (Set_Opt_Config_Switches): Do not override earlier
607 settings of Optimize_Alignment at the end.
609 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
611 * checks.adb (Apply_Constraint_Check): Do not apply
612 a discriminant check when the associated type is a constrained
613 subtype created for an unconstrained nominal type.
614 * exp_attr.adb: Minor reformatting.
616 2017-05-02 Bob Duff <duff@adacore.com>
618 * sem_ch3.adb (OK_For_Limited_Init_In_05): Handle correctly
619 the N_Raise_Expression case.
620 * sem_ch6.adb (Check_Limited_Return): Minor: clarify comment,
623 2017-05-02 Yannick Moy <moy@adacore.com>
625 * exp_ch4.adb (Expand_N_Op_Ne): Do not bump parenthese level and
626 optimize length comparison in GNATprove mode.
627 * exp_spark.adb (Expand_SPARK_Op_Ne): New function to rewrite
628 operator /= into negation of operator = when needed.
629 (Expand_SPARK): Call new
630 function to expand operator /=.
632 2017-05-02 Ed Schonberg <schonberg@adacore.com>
634 * exp_fixd.adb (Expand_Divide_Fixed_By_Fixed_Giving_Fixed):
635 Simplify the expression for a fixed-fixed division to remove
636 divisions by constants whenever possible, as an optimization
637 for restricted targets.
639 2017-05-02 Hristian Kirtchev <kirtchev@adacore.com>
641 * checks.adb, sem_ch3.adb, sem_ch6.adb: Minor reformatting.
643 2017-05-02 Bob Duff <duff@adacore.com>
645 * exp_attr.adb (Callable, Identity, Terminated): Use Find_Prim_Op
646 to find primitive ops, instead of using an Identifier that will
647 later be looked up. This is necessary because these ops are not
648 necessarily visible at all places where we need to call them.
649 * exp_util.ads: Minor comment fix.
651 2017-05-02 Ed Schonberg <schonberg@adacore.com>
653 * sem_ch6.adb (Fully_Conformant_Expressions): Two entity
654 references are fully conformant if they are both expansions
655 of the discriminant of a protected type, within one of the
656 protected operations. One occurrence may be expanded into a
657 constant declaration while the other is an input parameter to
658 the corresponding generated subprogram.
660 2017-05-02 Justin Squirek <squirek@adacore.com>
662 * sem_ch3.adb (Check_For_Null_Excluding_Components): Created for
663 recursivly searching composite-types for null-excluding access
664 types and verifying them.
665 (Analyze_Object_Declaration): Add a
666 call to Check_Null_Excluding_Components for static verification
667 of non-initialized objects.
668 * checks.adb, checks.ads (Null_Exclusion_Static_Checks): Added
669 a parameter for a composite-type's component and an extra case
670 for printing component information.
672 2017-05-02 Yannick Moy <moy@adacore.com>
674 * sem_ch10.adb (Analyze_Subunit): Take
675 configuration pragma into account when restoring appropriate
676 pragma for analysis of subunit.
678 2017-05-02 Justin Squirek <squirek@adacore.com>
680 * s-tasren.adb, s-tasini.adb, s-taprop-linux.adb,
681 s-mudido-affinity.adb,, a-exetim-posix.adb, a-direio.adb,
682 g-socket.adb, s-taenca.adb, s-fileio.adb: Remove unused use-type
683 clauses from the runtime.
685 2017-05-02 Eric Botcazou <ebotcazou@adacore.com>
687 * freeze.adb (Check_Component_Storage_Order): Do not treat bit-packed
688 array components specially.
690 2017-05-02 Ed Schonberg <schonberg@adacore.com>
692 * sem_ch8.adb (Premature_Usage): If the premature usage of
693 an entity is as the expression in its own object decaration,
694 rewrite the reference as Any_Id to prevent cascaded errors or
695 compiler loops when such an entity is used in an address clause.
697 2017-05-01 Eric Botcazou <ebotcazou@adacore.com>
699 * gcc-interface/decl.c (components_to_record): Add missing guard.
701 2017-05-01 Eric Botcazou <ebotcazou@adacore.com>
703 * gcc-interface/decl.c (components_to_record): Add more comments.
704 Put back pending fields onto the regular list if the misalignment
705 happens to cancel itself.
707 2017-04-28 Ed Schonberg <schonberg@adacore.com>
709 * sem_ch4.adb (Complete_Object_Operation): When rewriting the
710 controlling actual in a prefixed call, preserve the original node
711 information if the prefix itself has been rewritten, for ASIS use.
713 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
715 * exp_ch6.adb (Insert_Post_Call_Actions):
716 Code clean up. Insert the post-call actions after an enclosing
717 procedure call when N denotes a function call and appears as an
718 actual parameter in the procedure call.
720 2017-04-28 Eric Botcazou <ebotcazou@adacore.com>
722 * freeze.adb (Check_Component_Storage_Order): If there is a clause
723 for the component, also reject the attribute if the component
724 doesn't end on a byte boundary and its scalar storage order is
725 different from that of the enclosing record type.
727 2017-04-28 Javier Miranda <miranda@adacore.com>
729 * atree.ads (Info_Messages): Removed.
730 (Warning_Info_Messages): New counter.
731 (Report_Info_Messages): New counter.
732 * err_vars.ads Update documentation.
733 * errout.adb (Delete_Warning_And_Continuations): Update
734 Info_Message occurrences.
735 (Error_Msg_Internal): Update Info_Message occurrences.
736 (Delete_Warning): Update Info_Message occurrences.
737 (Write_Error_Summary): Update Info_Message occurrences.
738 (Output_Messages): Update Info_Message occurrences.
739 (To_Be_Removed): Update Info_Message occurrences.
740 (Reset_Warnings): Update Info_Message occurrences.
741 * errutil.adb (Error_Msg): Update Info_Message occurrences.
742 (Finalize): Update Info_Message occurrences.
743 (Initialize): Update Info_Message occurrences.
744 * erroutc.adb (Delete_Msg): Update Info_Message occurrences.
745 (Compilation_Errors): Update Info_Message_Occurences.
747 2017-04-28 Eric Botcazou <ebotcazou@adacore.com>
749 * exp_ch3.adb (Build_Init_Statements): Likewise on Nam.
750 * freeze.adb (Check_Component_Storage_Order): And on Comp_Byte_Aligned.
751 * sem_aggr.adb (Resolve_Record_Aggregate): Initialize Box_Node.
752 * sem_attr.adb (Loop_Entry): Initialize Encl_Loop.
753 * sem_ch12.adb (Build_Operator_Wrapper): Add pragma Warnings on Expr.
754 * sem_ch13.adb (Validate_Address_Clauses): Initialize Y_Alignment and
756 * sem_eval.adb (Why_Not_Static): Initialize Typ.
757 * sem_prag.adb (Analyze_Pragma): Add pragma Warnings on Str.
759 2017-04-28 Bob Duff <duff@adacore.com>
761 * sem_util.ads, sem_util.adb (Might_Raise): New function
762 that replaces Is_Exception_Safe, but has the opposite
763 sense. Is_Exception_Safe was missing various cases -- calls inside
764 a pragma Debug, calls inside an 'if' or assignment statement,
765 etc. Might_Raise now walks the entire subtree looking for things
767 * exp_ch9.adb (Is_Exception_Safe): Remove.
768 (Build_Protected_Subprogram_Body): Replace call to
769 Is_Exception_Safe with "not Might_Raise". Misc cleanup (use
770 constants where possible).
771 * exp_ch7.adb: Rename Is_Protected_Body -->
772 Is_Protected_Subp_Body. A protected_body is something different
775 2017-04-28 Eric Botcazou <ebotcazou@adacore.com>
777 * inline.adb (Expand_Inlined_Call): Initialize Targ1 variable.
778 * par-ch3.adb (P_Component_Items): Initialize Decl_Node variable.
779 (P_Discrete_Choice_List): Initialize Expr_Node variable.
780 * par-ch9.adb (P_Task): Initialize Aspect_Sloc variable.
781 (P_Protected): Likewise.
782 * sem_case.adb (Check_Duplicates):
783 Add pragma Warnings on variable.
784 * sem_ch12.adb (Preanalyze_Actuals): Initialize Vis variable.
785 * sem_ch4.adb (List_Operand_Interps): Add pragma Warnings on variable.
786 * sem_ch5.adb (Analyze_Assignment): Initialize Save_Full_Analysis.
787 (Analyze_Exit_Statement): Initialize Scope_Id variable.
788 (Analyze_Iterator_Specification): Initialize Bas variable.
789 * sem_ch9.adb (Allows_Lock_Free_Implementation): Initialize
790 Error_Count (Satisfies_Lock_Free_Requirements): Likewise.
791 (Analyze_Accept_Statement): Initialize Task_Nam.
793 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
795 * checks.adb (Install_Primitive_Elaboration_Check):
796 Do not generate an elaboration check if all checks have been
799 2017-04-28 Ed Schonberg <schonberg@adacore.com>
801 * sem_ch13.adb (Analyze_Aspect_Specifications, case
802 Interrupt_Handler and Attach_Handler): Generate reference
803 to protected operation to prevent spurious warnings about
804 unreferenced entities. Previous scheme failed with style checks
807 2017-04-28 Ed Schonberg <schonberg@adacore.com>
809 * sem_prag.adb (Relocate_Pragmas_To_Body): A pragma Warnings
810 that follows an expression function must not be relocated to
811 the generated body, because it applies to the code that follows.
813 2017-04-28 Gary Dismukes <dismukes@adacore.com>
815 * sem_util.adb (Is_Dependent_Component_Of_Mutable_Object): Test
816 Relaxed_RM_Semantics to avoid having CodePeer issue errors on
817 code that might violate the more stringent checking for 'Access
818 introduced in Ada 2005.
820 2017-04-28 Arnaud Charlet <charlet@adacore.com>
822 * a-cforse.adb: minor style fix in comment.
824 2017-04-28 Eric Botcazou <ebotcazou@adacore.com>
826 * exp_ch9.adb (Build_Lock_Free_Unprotected_Subprogram_Body): Also
827 initialize Block_Decls variable.
828 (Expand_Entry_Barrier): Add pragma Warnings on Func_Body variable.
829 (Build_Dispatching_Requeue): Add pragma Warnings on Op variable.
830 * exp_disp.adb (Expand_Interface_Actuals): Initialize
831 Formal_DDT and Actual_DDT variables.
832 (Expand_Interface_Thunk): Initialize Iface_Formal.
833 (Make_DT): Initialize Size_Comp.
834 (Make_Select_Specific_Data_Table): Initialize Decls.
835 * exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies):
836 Also initialize more RPC_Receiver_* variables.
837 (Build_To_Any_Function): Initialize Cstr_Formal.
838 * exp_prag.adb (Expand_Pragma_Contract_Cases): Initialize Msg_Str.
840 2017-04-28 Ed Schonberg <schonberg@adacore.com>
842 * sem_ch6.adb (Freeze_Type_Refs): For an interface conversion
843 node between access types, freeze the designated type as well,
844 so that dispatch table pointers are created in the proper scope,
845 and not in the constructed body of the expression function.
847 2017-04-28 Bob Duff <duff@adacore.com>
849 * alloc.ads (Nodes_Initial): Go back to previous value. The large
850 value makes large compilations faster, but small compilations slower.
852 2017-04-28 Arnaud Charlet <charlet@adacore.com>
854 * sem_util.adb: minor typos in Is_Child_Or_Sibling.
856 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
858 * erroutc.adb (Compilation_Errors): Do not consider info messages
859 as suitable warnings when warnings must be treated as errors.
860 * sem_ch7.adb (Analyze_Package_Specification): Do not consider
861 internally-generated packages when outputting completion
863 * errout.adb (Output_Messages): Do not consider info messages as
864 suitable warnings when warnings must be treated as errors.
865 * errutil.adb (Finalize): Do not consider info messages as
866 suitable warnings when warnings must be treated as errors.
868 2017-04-28 Eric Botcazou <ebotcazou@adacore.com>
870 * warnsw.ads: Minor fix for incorrect wording in comment.
872 2017-04-28 Ed Schonberg <schonberg@adacore.com>
874 * sem_res.adb (In_Instance_Code): New predicate in
875 Valid_Conversion, to determine whether a type conversion appears
876 as (or within) an actual for a formal object. Type conversions
877 in instances are not rechecked in Valid_Conversion because
878 visibility changes between generic location andi instance may
879 lead to spurious errors, but conversions within an actual must be
880 fully checked, and they are not fully resolved when pre-analyzing
883 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
885 * exp_ch6.adb (Expand_N_Extended_Return_Statement): Use
886 New_Copy_Tree instead of Relocate_Node as any subsequent copies
887 of the relocated node will have mangled Parent pointers.
888 * sem_util.adb (Build_NCT_Hash_Tables): Reset both hash
889 tables used in conjunction with entity and itype replication.
890 (Visit_Entity): Rewrite the restriction on which entities
891 require duplication. The restriction now includes all types.
893 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
895 * a-cofuse.ads, a-cfdlli.ads, a-cfhase.adb, a-cfhase.ads, a-cfinve.adb,
896 a-cfinve.ads, a-cforma.adb, a-cforma.ads, a-cofuma.adb, a-cofuma.ads,
897 a-cfhama.adb, a-cfhama.ads, a-cforse.adb: Minor reformatting and code
900 2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
902 * exp_util.adb, g-dyntab.adb, par-ch4.adb, sem_util.adb, sem_attr.adb,
903 gnat1drv.adb, exp_disp.adb, namet.adb, alloc.ads: Minor reformatting.
905 2017-04-28 Gary Dismukes <dismukes@adacore.com>
907 * exp_util.adb: Minor reformatting.
909 2017-04-28 Ed Schonberg <schonberg@adacore.com>
911 * sem_ch4.adb: Fix copy/pasto.
913 2017-04-27 Tristan Gingold <gingold@adacore.com>
915 * gcc-interface/Make-lang.in: Define EH_MECHANISM while building
916 raise-gcc.c. Fix include search path for raise-gcc.c
918 2017-04-27 Eric Botcazou <ebotcazou@adacore.com>
920 * fe.h (Warn_On_Questionable_Layout): Declare.
921 * warnsw.ads (Warn_On_Record_Holes): Move down.
922 (Warn_On_Questionable_Layout): New boolean variable.
923 (Warning_Record): Add Warn_On_Questionable_Layout field.
924 * warnsw.adb (All_Warnings): Set Warn_On_Questionable_Layout.
925 (Restore_Warnings): Likewise.
926 (Save_Warnings): Likewise.
927 (Set_Dot_Warning_Switch): Handle 'q' and 'Q' letters.
928 * gcc-interface/decl.c (gnat_to_gnu_entity): Adjust call to
929 components_to_record.
930 (gnu_field_to_gnat): New function.
931 (warn_on_field_placement): Likewise.
932 (components_to_record): Add GNAT_RECORD_TYPE and remove REORDER
933 parameters. Rename local variables and adjust recursive call.
934 Rework final scan of the field list and implement warnings on the
935 problematic placement of specific sorts of fields.
937 2017-04-27 Bob Duff <duff@adacore.com>
939 * errout.adb, exp_aggr.adb, exp_attr.adb, exp_code.adb, fname.adb,
940 * fname.ads, freeze.adb, inline.adb, lib.adb, lib.ads, lib-list.adb,
941 * lib-load.adb, lib-writ.adb, par.adb, restrict.adb, rtsfind.adb,
942 * sem.adb, sem_cat.adb, sem_ch10.adb, sem_ch12.adb, sem_ch3.adb,
943 * sem_ch4.adb, sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_elab.adb,
944 * sem_intr.adb, sem_res.adb, sem_util.adb, sem_warn.adb, sprint.adb:
945 For efficiency, cache results of Is_Internal_File_Name and
946 Is_Predefined_File_Name in the Units table. This avoids a lot
947 of repeated text processing.
949 2017-04-27 Emmanuel Briot <briot@adacore.com>
951 * g-comlin.adb (Sort_Sections): remove useless test.
953 2017-04-27 Claire Dross <dross@adacore.com>
955 * a-cfhase.adb, a-cfhase.ads (=): Generic parameter removed to
956 allow the use of regular equality over elements in contracts.
957 (Formal_Model): Ghost package containing model functions that are
958 used in subprogram contracts.
959 (Current_To_Last): Removed, model functions should be used instead.
960 (First_To_Previous): Removed, model functions should be used instead.
961 (Strict_Equal): Removed, model functions should be used instead.
962 (No_Overlap): Removed, model functions should be used instead.
963 (Equivalent_Keys): Functions over cursors are removed. They were
964 awkward with explicit container parameters.
965 * a-cforse.adb, a-cforse.ads (=): Generic parameter removed to
966 allow the use of regular equality over elements in contracts.
967 (Formal_Model): Ghost package containing model functions that
968 are used in subprogram contracts.
969 (Current_To_Last): Removed, model functions should be used instead.
970 (First_To_Previous): Removed, model functions should be used instead.
971 (Strict_Equal): Removed, model functions should be used instead.
972 (No_Overlap): Removed, model functions should be used instead.
974 2017-04-27 Yannick Moy <moy@adacore.com>
976 * gnat1drv.adb: Code cleanup.
978 2017-04-27 Ed Schonberg <schonberg@adacore.com>
980 * exp_util.adb (Replace_Entity): The prefix of a 'Result
981 attribute reference in a post- condition is the subprogram to
982 which the condition applies. If the condition is inherited
983 by a type extension, the prefix becomes a reference to the
984 inherited operation, but there is no need to create a wrapper
985 for this operation, because 'Result is expanded independently
986 when elaborating the postconditions.
988 2017-04-27 Bob Duff <duff@adacore.com>
990 * sinput.adb: Minor code cleanup.
991 * namet.adb (Append): Create faster versions of
992 Append(String) and Append(Name_Id) by using slice assignment
994 * sem_util.adb (In_Instance): Speed this up by removing
995 unnecessary tests; Is_Generic_Instance is defined for all
997 * sem_util.ads, sem_util.adb (In_Parameter_Specification):
998 Remove unused function.
999 * alloc.ads (Nodes_Initial): Use a much larger value, because
1000 the compiler was spending a lot of time copying the nodes table
1001 when it grows. This number was chosen in 1996, so is rather out
1002 of date with current memory sizes. Anyway, it's virtual memory.
1003 Get rid of Orig_Nodes_...; use Node_... instead.
1004 * atree.adb (Lock): Do not release the Nodes tables; it's a
1006 Orig_Nodes_ ==> Nodes_
1007 * nlists.adb: Orig_Nodes_ ==> Nodes_
1008 * g-table.adb: Remove unused "with" clause.
1009 * g-table.ads, table.ads: Remove Big_Table_Type, which should
1010 not be used by clients.
1011 * g-dyntab.adb (Last_Allocated): New function
1012 to encapsulate T.P.Last_Allocated, which I'm thinking of changing.
1014 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1016 * sem_eval.adb (Subtypes_Statically_Compatible): Remove duplicated
1018 (Subtypes_Statically_Match): Remove duplicate check.
1019 * sem_prag.adb (Check_Arg_Is_External_Name): Remove duplicate check.
1021 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1023 * exp_aggr.adb (Replace_Type): Remove the special processing
1024 for selected components.
1025 * exp_attr.adb (Expand_N_Attribute_Reference): Merge the
1026 processing for attributes Fixed_Value and Integer_Value.
1027 * exp_util.adb (Side_Effect_Free): Merge the processing for
1028 qualified expressions, type conversions, and unchecked type
1030 * g-comlin.adb (Is_In_Config): Merge the processing for No_Space
1032 * par-ch3.adb (P_Declarative_Items): Merge the processing for
1033 tokens function, not, overriding, and procedure.
1034 * sem_ch6.adb (Fully_Conformant_Expressions): Merge the processing
1035 for qualified expressions, type conversions, and unchecked
1037 * sem_util.adb (Compile_Time_Constraint_Error): Merge the
1038 processing for Ada 83 and instances.
1039 (Object_Access_Level): Merge the processing for indexed components
1040 and selected components.
1041 * uname.adb (Add_Node_Name): Merge the processing for stubs.
1043 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1045 * checks.adb (Install_Primitive_Elaboration_Check):
1046 Do not generate the check when restriction No_Elaboration_Code
1049 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1051 * exp_disp.adb (Build_Class_Wide_Check): New subsidiary
1052 of Expand_Dispatching_Call. If the denoted subprogram has a
1053 class-wide precondition, this is the only precondition that
1054 applies to the call, rather that the class-wide preconditions
1055 that may apply to the body that is executed. (This is specified
1058 2017-04-27 Yannick Moy <moy@adacore.com>
1060 * gnat1drv.adb (Adjust_Global_Switches): Issue
1061 a warning in GNATprove mode if the runtime library does not
1062 support IEEE-754 floats.
1064 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1066 * sem_prag.adb (Inherit_Class_Wide_Pre): If the parent operation
1067 is itself inherited it does not carry any contract information,
1068 so examine its parent operation which is its Alias.
1070 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1072 * sem_attr.adb (Analyze_Attribute, case 'Image): In Ada2012 the
1073 prefix can be an object reference in which case Obj'Image (X)
1074 can only be interpreted as an indexing of the parameterless
1075 version of the attribute.
1076 * par-ch4.adb (P_Name): An attribute reference can be the prefix of
1077 an indexing or a slice operation if the attribute does not require
1078 parameters. In Ada2012 'Image also belongs in this category,
1079 and A'Image (lo .. hi) is legal and must be parsed as a slice.
1081 2017-04-27 Yannick Moy <moy@adacore.com>
1083 * exp_ch4.adb: Minor reformatting.
1084 * gnat1drv.adb (Adjust_Global_Switches): When in GNATprove mode,
1085 disable the CodePeer and C generation modes. Similar to the
1086 opposite actions done in CodePeer mode.
1088 2017-04-27 Yannick Moy <moy@adacore.com>
1090 * sem_res.adb: Remove duplicate code.
1091 * sem_attr.adb: Delete duplicate code.
1093 2017-04-27 Bob Duff <duff@adacore.com>
1095 * g-dyntab.adb: Reduce the amount of copying in
1096 Release. No need to copy items past Last.
1098 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1100 * checks.adb Add with and use clauses for Sem_Disp.
1101 (Install_Primitive_Elaboration_Check): New routine.
1102 * checks.ads (Install_Primitive_Elaboration_Check): New routine.
1103 * exp_attr.adb (Expand_N_Attribute_Reference): Clean up the
1104 processing of 'Elaborated.
1105 * exp_ch6.adb (Expand_N_Subprogram_Body): Install a primitive
1108 2017-04-27 Bob Duff <duff@adacore.com>
1110 * g-dyntab.ads, g-dyntab.adb, g-table.ads: Remove incorrect assertion.
1111 If the table grows and then shrinks back to empty, we won't necessarily
1112 point back to the empty array. Code cleanups.
1113 * sinput.ads: Add 'Base to Size clause to match the declared
1116 2017-04-27 Claire Dross <dross@adacore.com>
1118 * a-cforma.adb, a-cforma.ads (=): Generic parameter removed to
1119 allow the use of regular equality over elements in contracts.
1120 (Formal_Model): Ghost package containing model functions that
1121 are used in subprogram contracts.
1122 (Current_To_Last): Removed, model functions should be used instead.
1123 (First_To_Previous): Removed, model functions should be used instead.
1124 (Strict_Equal): Removed, model functions should be used instead.
1125 (No_Overlap): Removed, model functions should be used instead.
1126 * a-cofuma.adb, a-cofuma.ads (Enable_Handling_Of_Equivalence)
1127 Boolean generic parameter to disable contracts for equivalence
1129 (Witness): Create a witness of a key that is used for handling of
1130 equivalence between keys.
1131 (Has_Witness): Check whether a witness is contained in a map.
1132 (W_Get): Get the element associated to a witness.
1133 (Lift_Equivalent_Keys): Removed, equivalence between keys is handled
1135 * a-cofuse.adb, a-cofuse.ads (Enable_Handling_Of_Equivalence)
1136 Boolean generic parameter to disable contracts for equivalence
1138 * a-cfhama.adb, a-cfhama.ads (Formal_Model.P) Disable handling
1139 of equivalence on functional maps.
1140 * a-cfdlli.adb, a-cfdlli.ads (Formal_Model.P) Disable handling
1141 of equivalence on functional maps.
1143 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1145 * exp_ch9.adb (Expand_Entry_Barrier): Code
1146 cleanup. Do not perform the optimization which removes the
1147 declarations of the discriminant and component renamings when
1148 validity checks on operands and attributes are in effect.
1150 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1152 * exp_spark.adb, exp_util.adb, sem_ch7.adb, g-dyntab.adb, g-dyntab.ads,
1153 freeze.adb, a-cfinve.ads, a-cofuma.adb, a-cofuma.ads, a-cfhama.adb,
1154 a-cfhama.ads, a-cofove.ads: Minor reformatting.
1156 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1158 * g-debpoo.adb (Dump_Gnatmem): Protect against a possible null
1159 pointer dereference.
1160 * g-spipat.adb (Dump): Code clean up. Protect against a possible
1161 null pointer dereference.
1163 2017-04-27 Bob Duff <duff@adacore.com>
1165 * g-dyntab.ads, g-dyntab.adb: Default for Table_Low_Bound.
1166 Rename Empty --> Empty_Table_Ptr, and don't duplicate code for it.
1167 Free renames Init, since they do the same thing.
1168 * g-table.ads: Default for Table_Low_Bound.
1169 * table.ads: Default for Table_Low_Bound, Table_Initial, and
1172 2017-04-27 Bob Duff <duff@adacore.com>
1174 * g-dyntab.ads, g-dyntab.adb: Add assertions to subprograms that
1176 * atree.adb, elists.adb, fname-uf.adb, ghost.adb, inline.adb,
1177 * lib.adb, namet.adb, nlists.adb, sem.adb, sinput.adb, stringt.adb:
1178 Reorder code so that above assertions do not fail.
1179 * table.ads: Remove obsolete comment on Locked.
1181 2017-04-27 Claire Dross <dross@adacore.com>
1183 * a-cfdlli.ads: Code cleanup.
1185 2017-04-27 Yannick Moy <moy@adacore.com>
1187 * exp_spark.adb (Expand_SPARK_Freeze_Type): Build a DIC procedure
1188 when needed for proof. (Expand_SPARK): Call the new procedure.
1189 * exp_util.ads Fix typo.
1191 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1193 * a-cofuma.ads, a-cfhama.ads: Minor reformatting, grammar, and typo
1196 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1198 * sem_elab.adb Add new type Visited_Element
1199 and update the contents of table Elab_Visited. Various code clean up.
1200 (Check_Elab_Call): Determine whether a prior call to
1201 the same subprogram was already examined within the same context.
1202 (Check_Internal_Call_Continue): Register the subprogram being
1203 called as examined within a particular context. Do not suppress
1204 elaboration warnings.
1206 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1208 * xoscons.adb, osint.ads: Minor reformatting.
1210 2017-04-27 Bob Duff <duff@adacore.com>
1212 * g-dyntab.ads, g-dyntab.adb: Misc cleanup. Rename
1213 Table_Count_Type --> Table_Last_Type, because the name
1214 was confusing (a "count" usually starts at zero). Add
1215 functionality supported or needed by other tables packages
1216 (Move, Release_Threshold).
1217 * g-table.ads, g-table.adb: This is now just a thin wrapper
1218 around g-dyntab.ads/g-dyntab.adb. Add functionality supported
1219 or needed by other tables packages (Save, Restore).
1220 * table.ads, table.adb: This is now just a thin wrapper around
1221 * g-table.ads/g-table.adb.
1222 * namet.h, scos.h, uintp.h: These files are reaching into the
1223 private data of some instances of g-table, whose names changed,
1224 so the above change requires some adjustment here. It now uses
1227 2017-04-27 Bob Duff <duff@adacore.com>
1229 * namet.adb, namet.ads: Minor: remove unused procedures.
1231 2017-04-27 Eric Botcazou <ebotcazou@adacore.com>
1233 * checks.adb (Apply_Scalar_Range_Check): Initialize Ok variable too.
1234 (Minimize_Eliminate_Overflows): Initialize Llo and Lhi.
1235 Add pragma Warnings on Rtype variable in nested block. *
1236 * exp_ch3.adb (Build_Init_Statements): Initialize VAR_LOC.
1237 * exp_ch4.adb (Expand_Concatenate): Initialize 3 variables.
1238 (Size_In_Storage_Elements): Add pragma Warnings on Res variable.
1239 * exp_ch7.adb (Build_Adjust_Statements): Initialize Bod_Stmts.
1240 (Process_Component_List_For_Finalize): Initialize Counter_Id.
1241 (Build_Finalize_Statements): Initialize Bod_Stmts.
1242 * exp_disp.adb (Expand_Dispatching_Call): Initialize SCIL_Node.
1244 2017-04-27 Claire Dross <dross@adacore.com>
1246 * a-cfhama.adb, a-cfhamai.ads (=): Generic parameter removed to
1247 allow the use of regular equality over elements in contracts.
1248 (Formal_Model): Ghost package containing model functions that are
1249 used in subprogram contracts.
1250 (Current_To_Last): Removed, model
1251 functions should be used instead.
1252 (First_To_Previous): Removed, model functions should be used instead.
1253 (Strict_Equal): Removed, model functions should be used instead.
1254 (No_Overlap): Removed, model functions should be used instead.
1255 (Equivalent_Keys): Functions over cursors are removed. They were
1256 awkward with explicit container parameters.
1257 * a-cofuma.adb, a-cofuma.ads (Lift_Equivalent_Keys): New lemma
1258 (proof only) procedure to help GNATprove when equivalence over
1259 keys is not equality.
1261 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1263 * exp_util.adb, a-cfdlli.adb, a-cfdlli.ads, exp_ch9.adb, g-dyntab.adb,
1264 sem_dim.adb, a-cfinve.adb, a-cfinve.ads, a-cofove.adb, a-cofove.ads:
1265 Minor reformatting and code cleanups.
1267 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1269 * freeze.adb (Build_Inherited_Condition_Pragmas): New procedure,
1270 subsidiary of Check_Inherited_Conditions, to build pragmas for an
1271 operation whose ancestor has classwide pre/postconditions. This
1272 is used both to check the legality of the inheritance in Ada
1273 and in SPARK, and to determine whether a wrapper is needed for
1274 an inherited operation.
1275 * exp_util.adb (Build_Class_Wide_Expression, Replace_Entity):
1276 Improve placement of error message for inherited classwide
1277 conditions that become illegal on type derivation.
1279 2017-04-27 Yannick Moy <moy@adacore.com>
1281 * sem_ch12.adb (Analyze_Generic_Package_Declaration): Set
1282 SPARK_Mode from context on generic package.
1283 * sem_ch7.adb (Analyze_Package_Declaration): Simplify code to remove
1286 2017-04-27 Claire Dross <dross@adacore.com>
1288 * a-cofuve.ads (Range_Shifted): Rewrite precondition to avoid
1289 overflows in computations.
1290 * a-cofove.ads (Capacity_Range): Rewrite last bound to avoid
1291 overflows in computations.
1292 (Insert): Rewrite precondition to avoid overflows in computations.
1293 * a-cfinve.ads (Capacity_Range): Rewrite last bound to avoid
1294 overflows in computations.
1295 (Insert): Rewrite precondition to avoid overflows in computations.
1297 2017-04-27 Steve Baird <baird@adacore.com>
1299 * exp_ch9.adb (Expand_N_Asynchronous_Select): Initialize the Cancel
1300 flag when it is declared in order to avoid confusing CodePeer about
1301 the possibility of an uninitialized variable read.
1303 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1305 * sem_dim.adb (Analyze_Dimension_Object_Declaration): There is
1306 no dimensionality error if the subtype of the expression is
1307 identical to the nominal subtype in the declaration, even though
1308 the expression itself may have been constant-folded and lack a
1310 * sem_dim.ads: Add comments on setting of dimension vectors and
1311 its interaction with node rewritings and side-effect removal.
1313 2017-04-27 Bob Duff <duff@adacore.com>
1315 * debug.adb: Minor comment correction.
1316 * sem_dim.ads: Minor reformatting and typo fixes.
1318 2017-04-27 Bob Duff <duff@adacore.com>
1320 * g-table.adb, g-table.adsa, scos.h: From the C side, access First and
1321 Last of the tables via function calls, rather than relying on layout
1324 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1326 * exp_util.adb: No wrapper in GNATprove mode.
1328 2017-04-27 Yannick Moy <moy@adacore.com>
1330 * sem_res.adb (Resolve_Comparison_Op): Always
1331 evaluate comparisons between values of universal types.
1333 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1335 * sem_elab.adb (Check_Internal_Call_Continue): Do not generate
1336 an elaboration counter nor a check when in GNATprove mode.
1337 * sem_util.adb (Build_Elaboration_Entity): Do not create an
1338 elaboration counter when in GNATprove mode.
1340 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1342 * freeze.adb: copy-paste typo.
1344 2017-04-27 Yannick Moy <moy@adacore.com>
1346 * sem_prag.adb (Analyze_Pre_Post_In_Decl_Part):
1347 Use correct test to detect call in GNATprove mode instead of
1350 2017-04-27 Claire Dross <dross@adacore.com>
1352 * a-cfdlli.adb, a-cfdlli.ads (Formal_Model.M_Elements_In_Union):
1353 New property function expressing that the element of a
1354 sequence are contained in the union of two sequences.
1355 (Formal_Model.M_Elements_Included): New property function
1356 expressing that the element of a sequence are another sequence.
1357 (Generic_Sorting): Use new property functions to state that
1358 elements are preserved by Sort and Merge.
1359 * a-cofove.adb, a-cofove.ads (=): Generic parameter removed to
1360 allow the use of regular equality over elements in contracts.
1361 (Formal_Model): Ghost package containing model functions
1362 that are used in subprogram contracts. (Capacity):
1363 On unbounded containers, return the maximal capacity.
1364 (Current_To_Last): Removed, model functions should be used instead.
1365 (First_To_Previous): Removed, model functions should be used instead.
1366 (Append): Default parameter value replaced
1367 by new wrapper to allow more precise contracts.
1368 (Insert): Subprogram restored, it seems it was useful to users even if
1370 (Delete): Subprogram restored, it seems it was useful to users even if
1372 (Prepend): Subprogram restored, it seems it was useful to users even
1373 if it is inefficient.
1374 (Delete_First): Subprogram restored, it seems it
1375 was useful to users even if it is inefficient. (Delete_Last):
1376 Default parameter value replaced by new wrapper to allow more
1378 (Generic_Sorting.Merge): Subprogram restored.
1379 * a-cfinve.adb, a-cfinve.ads (=): Generic parameter removed to
1380 allow the use of regular equality over elements in contracts.
1381 (Formal_Model): Ghost package containing model functions
1382 that are used in subprogram contracts. (Capacity):
1383 On unbounded containers, return the maximal capacity.
1384 (Current_To_Last): Removed, model functions should be used
1386 (First_To_Previous): Removed, model functions should be used instead.
1387 (Append): Default parameter value replaced
1388 by new wrapper to allow more precise contracts.
1389 (Insert): Subprogram restored, it seems it was useful to users even if
1391 (Delete): Subprogram restored, it seems it was useful to users even if
1393 (Prepend): Subprogram restored, it seems it was useful to users even
1394 if it is inefficient.
1395 (Delete_First): Subprogram restored, it seems it
1396 was useful to users even if it is inefficient. (Delete_Last):
1397 Default parameter value replaced by new wrapper to allow more
1399 (Generic_Sorting.Merge): Subprogram restored.
1400 (Vector): Do not reuse formal vectors, as it is no longer possible
1401 to supply them with an equality function over elements.
1403 2017-04-27 Bob Duff <duff@adacore.com>
1405 * g-dyntab.adb (Release): When allocating the new
1406 table, use the correct slice of the old table to initialize it.
1408 2017-04-27 Eric Botcazou <ebotcazou@adacore.com>
1410 * einfo.ads: Minor fixes in comments.
1412 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1414 * sem_prag.adb: disable clones in SPARK_Mode.
1416 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1418 * sem_util.ads, contracts.adb: Minor reformatting.
1420 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1422 * sem_util.adb, sem_util.ads (Build_Class_Wide_Clone_Body):
1423 Build body of subprogram that has a class-wide condition that
1424 contains calls to other primitives.
1425 (Build_Class_Wide_Clone_Call); Build a call to the common
1426 class-wide clone of a subprogram with classwide conditions. The
1427 body of the subprogram becomes a wrapper for a call to the
1428 clone. The inherited operation becomes a similar wrapper to which
1429 modified conditions apply, and the call to the clone includes
1430 the proper conversion in a call the parent operation.
1431 (Build_Class_Wide_Clone_Decl (Spec_Id : Entity_Id): For a
1432 subprogram that has a classwide condition that contains calls to
1433 other primitives, build an internal subprogram that is invoked
1434 through a type-specific wrapper for all inherited subprograms
1435 that may have a modified condition.
1436 * sem_prag.adb (Check_References): If subprogram has a classwide
1437 condition, create entity for corresponding clone, to be invoked
1438 through wrapper subprograns.
1439 (Analyze_Pre_Post_Condition_In_Decl_Part): Do not emit error
1440 message about placement if pragma isi internally generated.
1441 * sem_ch6.adb (Analyze_Subprogram_Body_Helper): If subprogram has
1442 a classwide clone, build body of clone as copy of original body,
1443 and rewrite original body as a wrapper as a wrapper for a call to
1444 the clone, so that it incorporates the original pre/postconditions
1446 * freeze.adb (Check_Inherited_Conditions): For an inherited
1447 subprogram that inherits a classwide condition, build spec and
1448 body of corresponding wrapper so that call to inherited operation
1449 gets the modified conditions.
1450 * contracts.adb (Analyze_Contracts): If analysis of classwide
1451 condition has created a clone for a primitive operation, analyze
1452 declaration of clone.
1454 2017-04-27 Steve Baird <baird@adacore.com>
1456 * exp_util.adb (Build_Allocate_Deallocate_Proc):
1457 Add "Suppress => All_Checks" to avoid generating unnecessary
1460 2017-04-27 Yannick Moy <moy@adacore.com>
1462 * debug.adb: Reserve debug flag 'm' for no inlining in GNATprove.
1463 * sem_ch6.adb (Anayze_Subprogram_Body_Helper): Skip creation of
1464 inlining body in GNATprove mode when switch -gnatdm used.
1465 * sem_res.adb (Resolve_Call): Skip detection of lack of inlining
1466 in GNATprove mode when switch -gnatdm used.
1468 2017-04-27 Arnaud Charlet <charlet@adacore.com>
1470 * sem_ch13.adb (Analyze_Attribute_Definition_Clause
1471 [Attribute_Address]): Call Set_Address_Taken when ignoring rep
1472 clauses, so that we keep an indication of the address clause
1473 before removing it from the tree.
1475 2017-04-27 Yannick Moy <moy@adacore.com>
1477 * exp_util.ads, exp_util.adb (Evaluate_Name): Force evaluation
1478 of expression being qualified, when not an object name, or else
1479 evaluate the underlying name.
1481 2017-04-27 Jerome Lambourg <lambourg@adacore.com>
1483 * bindusg.adb, bindgen.adb, gnatbind.adb, opt.ads: add -nognarl switch.
1485 2017-04-27 Justin Squirek <squirek@adacore.com>
1487 * exp_ch7.adb (Build_Finalize_Statements): Move Num_Comps to
1488 Process_Component_List_For_Finalization as a local variable.
1489 (Process_Component_For_Finalize): Add an extra parameter to avoid
1491 (Process_Component_List_For_Finalization): Correct calls to
1492 Process_Component_For_Finalize to take Num_Comps as a parameter.
1494 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1496 * sem_ch8.adb (Find_Direct_Name): Account for the case where
1497 a use-visible entity is defined within a nested scope of an
1498 instance when giving priority to entities which were visible in
1499 the original generic.
1500 * sem_util.ads, sem_util.adb (Nearest_Enclosing_Instance): New routine.
1502 2017-04-27 Tristan Gingold <gingold@adacore.com>
1504 * raise-gcc.c: Don't use unwind.h while compiling
1505 for the frontend, but mimic host behavior.
1507 2017-04-27 Javier Miranda <miranda@adacore.com>
1509 * sem_ch3.adb (Build_Discriminated_Subtype):
1510 Propagate Has_Pragma_Unreferenced_Objects to the built subtype.
1512 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1514 * sem_prag.adb (Analyze_Global_Item):
1515 Do not consider discriminants because they are not "entire
1516 objects". Remove the discriminant-related checks because they are
1518 (Analyze_Input_Output): Do not consider discriminants
1519 because they are not "entire objects".
1521 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1523 * sem_ch13.adb (Check_Aspect_At_End_Of_Declarations): Do not
1524 perform check if the current scope does not come from source,
1525 as is the case for a rewritten task body, because check has
1526 been performed already, and may not be doable because of changed
1529 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1531 * a-cofuse.adb, a-cfdlli.adb, a-cofuse.ads, a-cfdlli.ads, a-cofuve.adb,
1532 a-cofuve.ads, a-cofuma.adb, a-cofuma.ads, sem_eval.adb, a-cofuba.adb:
1535 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1537 * sem_ch4.adb (Analyze_Call): If the return type of a function
1538 is incomplete in an context in which the full view is available,
1539 replace the type of the call by the full view, to prevent spurious
1541 * exp_disp.adb (Check_Premature_Freezing): Disable check on an
1542 abstract subprogram so that compiler does not reject a parameter
1543 of a primitive operation of a tagged type being frozen, when
1544 the untagged type of that parameter cannot be frozen.
1546 2017-04-27 Bob Duff <duff@adacore.com>
1548 * sem_attr.adb (Compute_Type_Key): Don't walk
1549 representation items for irrelevant types, which could be in a
1550 different source file.
1552 2017-04-27 Steve Baird <baird@adacore.com>
1554 * exp_attr.adb (Expand_N_Attribute_Reference):
1555 Don't expand Image, Wide_Image, Wide_Wide_Image attributes
1558 2017-04-27 Yannick Moy <moy@adacore.com>
1560 * exp_unst.ads: Fix typos in comments.
1562 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1564 * sem_eval.adb (Choice_Matches): Handle properly a real literal
1565 whose type has a defined static predicate.
1567 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1569 * exp_ch4.adb (Insert_Dereference_Action):
1570 Do not adjust the address of a controlled object when the
1571 associated access type is subject to pragma No_Heap_Finalization.
1574 2017-04-27 Pierre-Marie de Rodat <derodat@adacore.com>
1576 * gcc-interface/utils.c (gnat_type_for_size): Set
1577 TYPE_ARTIFICIAL on created types.
1579 2017-04-27 Claire Dross <dross@adacore.com>
1581 * a-cfdlli.adb, a-cfdlli.ads (Formal_Model): Adapt to
1582 modifications in functional containers.
1583 * a-cofuba.ads, a-cofuma.ads, a-cofuse.ads, a-cofuve.ads Reformat
1584 to improve readablity. Subprograms are separated between basic
1585 operations, constructors and properties. Universally quantified
1586 formulas in contracts are factorized in independant functions
1587 with a name and a comment. Names of parameters are improved.
1589 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1591 * exp_spark.adb, sem_elab.adb: Minor reformatting and typo fix.
1593 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1595 * sem_res.adb (Resolve_Type_Conversion): Do not
1596 install a predicate check here since this is already done during
1597 the expansion phase. Verify whether the operand satisfies the
1598 static predicate (if any) of the target type.
1599 * sem_ch3.adb (Analyze_Object_Declaration): Do
1600 not install a predicate check if the object is initialized by
1601 means of a type conversion because the conversion is subjected
1604 2017-04-27 Tristan Gingold <gingold@adacore.com>
1606 * raise.c (__gnat_builtin_longjmp): Remove.
1607 (__gnat_bracktrace):
1608 Add a dummy definition for the compiler (__gnat_eh_personality,
1609 __gnat_rcheck_04, __gnat_rcheck_10) (__gnat_rcheck_19,
1610 __gnat_rcheck_20, __gnat_rcheck_21) (__gnat_rcheck_30,
1611 __gnat_rcheck_31, __gnat_rcheck_32): Likewise.
1612 * a-exexpr.adb: Renamed from a-exexpr-gcc.adb
1613 * a-except.ads, a-except.adb: Renamed from a-except-2005.ads
1614 and a-except-2005.adb.
1615 * raise-gcc.c: Allow build in compiler, compiled as a C++
1617 (__gnat_Unwind_ForcedUnwind): Adjust prototype.
1618 (db): Constify msg_format.
1619 (get_call_site_action_for): Don't use void arithmetic.
1620 * system.ads (Frontend_Exceptions): Set to False.
1621 (ZCX_By_Default): Set to True.
1622 (GCC_ZC_Support): Set to True.
1623 * gcc-interface/Makefile.in: No more variants for a-exexpr.adb and
1625 * gcc-interface/Make-lang.in: Add support for backend zcx exceptions
1626 in gnat1 and gnatbind.
1627 * gnat1, gnatbind: link with raise-gcc.o, a-exctra.o, s-addima.o,
1628 s-excmac.o, s-imgint.o, s-traceb.o, s-trasym.o, s-wchstw.o
1629 * s-excmac.ads, s-excmac.adb: Copy of variants.
1630 * a-except.o: Adjust preequisites.
1631 Add handling of s-excmac-arm.adb and s-excmac-gcc.adb.
1633 2017-04-27 Claire Dross <dross@adacore.com>
1635 * a-cfdlli.adb, a-cfdlli.ads (Formal_Model): Adapt to
1636 modifications in functional containers.
1637 * a-cofuba.ads, a-cofuma.ads, a-cofuse.ads, a-cofuve.ads Reformat
1638 to improve readablity. Subprograms are separated between basic
1639 operations, constructors and properties. Universally quantified
1640 formulas in contracts are factorized in independant functions
1641 with a name and a comment. Names of parameters are improved.
1643 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1645 * exp_spark.adb, sem_elab.adb: Minor reformatting and typo fix.
1647 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1649 * sem_res.adb (Resolve_Type_Conversion): Do not
1650 install a predicate check here since this is already done during
1651 the expansion phase. Verify whether the operand satisfies the
1652 static predicate (if any) of the target type.
1653 * sem_ch3.adb (Analyze_Object_Declaration): Do
1654 not install a predicate check if the object is initialized by
1655 means of a type conversion because the conversion is subjected
1658 2017-04-27 Tristan Gingold <gingold@adacore.com>
1660 * a-except.ads, a-except.adb, a-exexpr.adb: Removed (will be
1661 replaced by their variants).
1663 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1665 * exp_prag.adb, a-cofuse.adb, a-cofuse.ads, einfo.adb, sem_prag.adb,
1666 cstand.adb, par-prag.adb, a-cofuve.adb, a-cofuve.ads, a-cofuma.adb,
1667 a-cofuma.ads, a-cofuba.adb, a-cofuba.ads: Minor reformatting.
1669 2017-04-27 Tristan Gingold <gingold@adacore.com>
1671 * s-excmac-gcc.ads, s-excmac-gcc.adb,
1672 s-excmac-arm.ads, s-excmac-arm.adb (New_Occurrence): Rewrite it in
1675 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1677 * exp_ch7.adb (Establish_Transient_Scope): Rewrite
1678 the loop which detects potential enclosing transient scopes. The
1679 loop now terminates much earlier as transient scopes are bounded
1680 by packages and subprograms.
1682 2017-04-27 Claire Dross <dross@adacore.com>
1684 * a-cfdlli.adb, a-cfdlli.ads (=): Generic parameter removed to
1685 allow the use of regular equality over elements in contracts.
1686 (Cursor): Type is now public so that it can be used in
1688 (Formal_Model): Ghost package containing
1689 model functions that are used in subprogram contracts.
1690 (Current_To_Last): Removed, model functions should be used
1692 (First_To_Previous): Removed, model functions should
1694 (Strict_Equal): Removed, model functions
1695 should be used instead.
1696 (Append): Default parameter value
1697 replaced by new wrapper to allow more precise contracts.
1698 (Insert): Default parameter value replaced by new wrapper to
1699 allow more precise contracts.
1700 (Delete): Default parameter
1701 value replaced by new wrapper to allow more precise contracts.
1702 (Prepend): Default parameter value replaced by new wrapper to
1703 allow more precise contracts.
1704 (Delete_First): Default parameter
1705 value replaced by new wrapper to allow more precise contracts.
1706 (Delete_Last): Default parameter value replaced by new wrapper
1707 to allow more precise contracts.
1709 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1711 * exp_spark.adb (Expand_SPARK): Perform specialized expansion
1712 for object declarations.
1713 (Expand_SPARK_N_Object_Declaration): New routine.
1714 * sem_elab.adb (Check_A_Call): Include calls to the
1715 Default_Initial_Condition procedure of a type under the SPARK
1716 elaboration checks umbrella.
1718 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1720 * sem.adb (Analyze): Diagnose an illegal iterated component
1722 * sem_util.ads, sem_util.adb
1723 (Diagnose_Iterated_Component_Association): New routine.
1725 2017-04-27 Bob Duff <duff@adacore.com>
1727 * adaint.c (__gnat_get_current_dir): Return 0 in length if
1729 * a-direct.adb, g-dirope.adb, osint.adb, s-os_lib.adb: Raise
1730 exception if getcwd failed.
1732 2017-04-27 Yannick Moy <moy@adacore.com>
1734 * exp_dbug.adb, exp_dbug.ads (Get_External_Name): Prefix ghost
1735 entities with special prefix.
1737 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1739 * debug.adb Change the documentation of switch -gnatd.s.
1740 * exp_ch7.adb (Make_Transient_Block): Transient blocks do not need
1741 to manage the secondary stack when an enclosing scope already
1742 performs this functionality (aka relaxed management). Switch
1743 -gnatd.s may be used to force strict management in which case
1744 the block will manage the secondary stack unconditionally. Add
1745 a guard to stop the traversal when encountering a package or a
1748 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1750 * sem_res.adb (Resolve_Call): Refine further the handling of
1751 limited views of return types in function calls. If the function
1752 that returns a limited view appears in the current unit,
1753 we do not replace its type by the non-limited view because
1754 this transformation is performed int the back-end. However,
1755 the type of the call itself must be the non-limited view, to
1756 prevent spurious resolution errors.
1758 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1760 * einfo,ads, einfo.adb (Class_Wide_Preconds, Class_Wide_Postconds):
1761 Removed, proposed implementation using generics for class-wide
1762 preconditions proved impractical.
1763 (Class_Wide_Clone): New attribute of subprogram. Designates
1764 subprogram created for primitive operations with class-wide
1765 pre/postconditions that contain calls to other primitives. The
1766 clone holds the body of the original primitive, but the
1767 pre/postonditions do not apply to it. The original body is
1768 rewritten as a wrapper for a call to the clone.
1769 (Is_Class_Wide_Clone): New flag to identify a Class_Wide_Clone. If
1770 the flag is set, no code for the corresponding pre/postconditions
1771 is inserted into its body.
1773 2017-04-27 Bob Duff <duff@adacore.com>
1775 * exp_prag.adb, par-prag.adb, sem_ch13.adb: Ignore
1776 Scalar_Storage_Order if -gnatI is given.
1777 * sem_prag.adb (Analyze_Pragma): Ignore
1778 Default_Scalar_Storage_Order if -gnatI is given.
1780 2017-04-27 Claire Dross <dross@adacore.com>
1782 * a-cofuba.ads (Add): Take as an additional input parameter
1783 the position where the element should be inserted.
1784 (Remove): New function that removes an element from the container.
1785 * a-cofuma.ads (Add): Adapt to the new API of Base.Add.
1786 * a-cofuse.ads (Add): Adapt to the new API of Base.Add.
1787 (Remove): New function that removes an element from a set.
1788 * a-cofuve.ads (Add): Adapt to the new API of Base.Add.
1789 (Remove): New function that removes an element from a sequence.
1790 (Insert): New function that adds anywhere in a sequence.
1792 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1794 * checks.adb (Generate_Range_Check): Revert previous change.
1796 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1798 * sem_util.adb: Minor reformatting/rewording.
1800 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1802 * lib-xref.adb (Generate_Reference): The use
1803 of attribute 'Result is not considered a violation of pragma
1806 2017-04-27 Justin Squirek <squirek@adacore.com>
1808 * cstand.adb (Create_Standard): Correctly set
1809 Directly_Designated_Type for Any_Access.
1810 * sem_type.adb (Covers): Minor grammar fixes.
1812 2017-04-27 Bob Duff <duff@adacore.com>
1814 * sem_attr.adb: Minor cleanup.
1816 2017-04-27 Claire Dross <dross@adacore.com>
1818 * a-cofuba.ads, a-cofuba.adb (Ada.Containers.Functional_Base): New
1819 private child of Ada.Containers used to implement all functional
1821 * a-cofuma.ads, a-cofuma.adb (Ada.Containers.Functional_Maps): New
1822 child of Ada.Containers. It provides functional indefinite unbounded
1823 maps which can be used as high level models for specification
1825 * a-cofuse.ads, a-cofuse.adb (Ada.Containers.Functional_Sets): New
1826 child of Ada.Containers. It provides functional indefinite unbounded
1827 sets which can be used as high level models for specification
1829 * a-cofuve.ads, a-cofuve.adb (Ada.Containers.Functional_Vectors): New
1830 child of Ada.Containers. It provides functional indefinite unbounded
1831 vectors which can be used as high level models for specification
1833 * Makefile.rtl: Add new packages.
1834 * impunit.adb: Add new packages.
1836 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1838 * sem_ch4.adb: Minor reformatting.
1840 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1842 * sem_ch12.adb (Analyze_Associations): minor reformatting.
1843 (Check_Fixed_Point_Actual): Do not emit a warning on a fixed
1844 point type actual that has user-defined arithmetic primitives,
1845 when there is a previous actual for a formal package that defines
1846 a fixed-point type with the parent user-defined operator.
1848 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1850 * checks.adb (Generate_Range_Check): Reinstate part of previous change.
1851 * sem_attr.adb (Resolve_Attribute): Generate a range check when
1852 the component type allows range checks.
1854 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1856 * sem_aux.adb (Is_Generic_Formal): Use original node to locate
1857 corresponding declaration, because formal derived types are
1858 rewritten as private extensions.
1860 2017-04-27 Ed Schonberg <schonberg@adacore.com>
1862 * sem_dim.adb (Analyze_Dimension_Binary_Op): Do not check
1863 dimensions of operands if node has been analyzed already, because
1864 previous analysis and dimension checking will have removed the
1865 dimension information from the operands.
1867 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1869 * debug.adb: Document the use of switch -gnatd.s.
1870 * einfo.ads Update the documentation on attribute
1871 Sec_Stack_Needed_For_Return and attribute Uses_Sec_Stack. Remove
1872 the uses of these attributes from certain entities.
1873 * exp_ch7.adb (Make_Transient_Block): Reimplement the circuitry
1874 which determines whether the block should continue to manage
1875 the secondary stack.
1876 (Manages_Sec_Stack): New routine.
1878 2017-04-27 Bob Duff <duff@adacore.com>
1880 * atree.ads: Minor edit.
1882 2017-04-27 Hristian Kirtchev <kirtchev@adacore.com>
1884 * sinfo.ads: Update the section on Ghost mode. Add
1885 a section on SPARK mode. Update the placement of section on
1886 expression functions.
1888 2017-04-27 Bob Duff <duff@adacore.com>
1890 * sinput.adb (Get_Source_File_Index): Don't
1891 assert that S is in the right range in the case where this is
1892 a .dg file under construction.
1894 2017-04-27 Yannick Moy <moy@adacore.com>
1896 * sem_util.adb (Check_Result_And_Post_State):
1897 Handle more precisely each conjunct in expressions formed by
1898 and'ing sub-expressions.
1900 2017-04-27 Gary Dismukes <dismukes@adacore.com>
1902 * exp_ch4.adb, sem_ch4.adb: Minor typo fix and reformatting.
1904 2017-04-25 Arnaud Charlet <charlet@adacore.com>
1906 * gnat_rm.texi, gnat_ugn.texi,
1907 doc/gnat_ugn/building_executable_programs_with_gnat.rst,
1908 doc/gnat_ugn/platform_specific_information.rst,
1909 doc/gnat_ugn/gnat_and_program_execution.rst,
1910 doc/gnat_ugn/gnat_utility_programs.rst,
1911 doc/gnat_ugn/the_gnat_compilation_model.rst,
1912 doc/gnat_rm/implementation_defined_attributes.rst,
1913 doc/gnat_rm/the_gnat_library.rst,
1914 doc/gnat_rm/implementation_defined_pragmas.rst,
1915 doc/gnat_rm/representation_clauses_and_pragmas.rst,
1916 doc/gnat_rm/implementation_of_specific_ada_features.rst,
1917 doc/gnat_rm/implementation_defined_aspects.rst,
1918 doc/gnat_rm/implementation_defined_characteristics.rst: Update
1921 2017-04-25 Arnaud Charlet <charlet@adacore.com>
1923 * exp_ch4.adb (Expand_N_Case_Expression): Emit error message when
1924 generating C code on complex case expressions.
1926 2017-04-25 Arnaud Charlet <charlet@adacore.com>
1928 * sem_prag.adb (Analyze_Pragma): Generate a warning instead
1929 of silently ignoring pragma Ada_xxx in Latest_Ada_Only mode.
1930 * directio.ads, ioexcept.ads, sequenio.ads, text_io.ads: Use
1931 Ada_2012 instead of Ada_2005 to be compatible with the above
1933 * bindgen.adb: Silence new warning on pragma Ada_95.
1935 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
1937 * checks.adb (Generate_Range_Check): Revert part of previous change.
1939 2017-04-25 Ed Schonberg <schonberg@adacore.com>
1941 * sem_ch4.adb (Try_Container_Indexing): Handle properly a
1942 container indexing operation that appears as a an actual in a
1943 parameter association in a procedure call.
1945 2017-04-25 Olivier Ramonat <ramonat@adacore.com>
1947 * prj-proc.adb, sem_util.adb, s-stposu.adb, sem_attr.adb, prj-conf.ads:
1948 Fix spelling mistakes.
1950 2017-04-25 Bob Duff <duff@adacore.com>
1952 * types.ads, osint.adb, sinput-c.adb, sinput-d.adb, sinput-l.adb,
1953 * sinput-p.adb: Use regular fat pointers, with bounds checking,
1954 for source buffers. Fix misc obscure bugs.
1955 * sinput.ads, sinput.adb: Use regular fat pointers, with bounds
1956 checking, for source buffers. Modify representation clause for
1957 Source_File_Record as appropriate. Move Source_File_Index_Table
1958 from spec to body, because it is not used outside the body.
1959 Move Set_Source_File_Index_Table into the private part, because
1960 it is used only in the body and in children. Use trickery to
1961 modify the dope in the generic instantiation case. It's ugly,
1962 but not as ugly as the previous method. Fix documentation.
1963 Remove obsolete code.
1964 * fname-sf.adb, targparm.adb: Fix misc out-of-bounds
1965 indexing in source buffers.
1966 * fmap.adb: Avoid conversions from one string type to another.
1967 Remove a use of global name buffer.
1968 * osint.ads, sfn_scan.ads, sfn_scan.adb, sinput-c.ads: Comment
1971 2017-04-25 Gary Dismukes <dismukes@adacore.com>
1973 * exp_util.adb, exp_ch4.adb: Minor reformatting.
1975 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
1977 * checks.adb: Code clean up in various routines.
1978 (Generate_Range_Check): Do not generate a range check when the
1979 expander is not active or when index/range checks are suppressed
1981 (Insert_List_After_And_Analyze, Insert_List_Before_And_Analyze):
1982 Remove variants that include a Supress parameter. These routines
1983 are never used, and were introduced before the current scope-based
1984 check suppression method.
1986 2017-04-25 Vasiliy Fofanov <fofanov@adacore.com>
1988 * prj-part.adb, cstreams.c, osint.adb, osint.ads: Remove VMS specific
1989 code and some subprogram calls that are now noop.
1991 2017-04-25 Arnaud Charlet <charlet@adacore.com>
1993 * exp_ch4.adb (Expand_N_Case_Expression): Take
1994 Minimize_Expression_With_Actions into account when possible.
1996 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
1998 * exp_util.adb (Known_Non_Null): Moved to Sem_Util.
1999 (Known_Null): Moved to Sem_Util.
2000 * exp_util.ads (Known_Non_Null): Moved to Sem_Util.
2001 (Known_Null): Moved to Sem_Util.
2002 * sem_util.adb Add new enumeration type Null_Status_Kind.
2003 (Known_Non_Null): Moved from Exp_Util. Most of the logic in
2004 this routine is now carried out by Null_Status.
2005 (Known_Null): Moved from Exp_Util. Most of the logic in this routine
2006 is now carried out by Null_Status.
2007 (Null_Status): New routine.
2008 * sem_util.ads (Known_Non_Null): Moved from Exp_Util.
2009 (Known_Null): Moved from Exp_Util.
2011 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2013 * sem_ch6.adb (Analyze_Expression_Function): Do not report an
2014 error on the return type of an expression function that is a
2015 completion, if the type is derived from a generic formal type.
2017 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2019 * sem_dim.adb (Dimensions_Of_Operand): The dimensions of a type
2020 conversion are those of the target type.
2022 2017-04-25 Bob Duff <duff@adacore.com>
2024 * a-clrefi.adb: Minor cleanup.
2026 2017-04-25 Gary Dismukes <dismukes@adacore.com>
2028 * exp_util.adb, exp_util.ads, types.ads: Minor reformatting.
2030 2017-04-25 Bob Duff <duff@adacore.com>
2032 * err_vars.ads, fmap.adb, fmap.ads, comperr.adb, fname-sf.adb,
2033 types.adb, types.ads, types.h, sinput-l.adb, targparm.adb,
2034 errout.adb, sinput.adb, sinput.ads, cstand.adb, scn.adb,
2035 scn.ads, gnatls.adb: Eliminate the vestigial Internal_Source_File and
2036 the Internal_Source buffer. This removes the incorrect call to "="
2037 the customer noticed.
2038 Wrap remaining calls to "=" in Null_Source_Buffer_Ptr. We
2039 eventually need to eliminate them altogether. Or else get rid
2040 of zero-origin addressing.
2042 2017-04-25 Claire Dross <dross@adacore.com>
2044 * exp_util.ads (Expression_Contains_Primitives_Calls_Of): New
2045 function used in GNATprove to know if an expression contains
2046 non-dispatching calls on primitives of a tagged type.
2048 2017-04-25 Bob Duff <duff@adacore.com>
2050 * rtsfind.adb (Initialize): Initialize
2051 First_Implicit_With. Building the compiler with Normalize_Scalars
2052 and validity checking finds this being used as an uninitialized
2055 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2057 * contracts.adb (Analyze_Entry_Or_Subprogram_Body_Contract):
2058 Add a warning about SPARK mode management. The routine now
2059 saves and restores both the mode and associated pragma.
2060 (Analyze_Entry_Or_Subprogram_Contract): Add a warning about
2061 SPARK mode management. The routine now saves and restores both
2062 the mode and associated pragma.
2063 (Analyze_Object_Contract):
2064 Add a warning about SPARK mode management. The routine
2065 now saves and restores both the mode and associated pragma.
2066 (Analyze_Package_Body_Contract): Add a warning about SPARK mode
2067 management. The routine now saves and restores both the mode
2068 and associated pragma. (Analyze_Package_Contract): Add a warning
2069 about SPARK mode management. The routine now saves and restores
2070 both the mode and associated pragma.
2071 (Analyze_Task_Contract):
2072 Add a warning about SPARK mode management. The routine now saves
2073 and restores both the mode and associated pragma.
2074 * expander.adb (Expand): Change the way the Ghost mode is saved
2076 * exp_ch3.adb (Freeze_Type): Change the way the Ghost mode is
2078 * exp_disp.adb (Make_DT): Change the way the Ghost mode is saved
2080 * exp_util.adb (Build_DIC_Procedure_Body):
2081 Change the way the Ghost mode is saved and restored.
2082 (Build_DIC_Procedure_Declaration): Change the way the Ghost
2083 mode is saved and restored.
2084 (Build_Invariant_Procedure_Body):
2085 Change the way the Ghost mode is saved and restored.
2086 (Build_Invariant_Procedure_Declaration): Change the way the Ghost
2087 mode is saved and restored.
2088 (Make_Predicate_Call): Change the
2089 way the Ghost mode is saved and restored.
2090 * freeze.adb (Freeze_Entity): Change the way the Ghost mode is
2092 * ghost.adb (Mark_And_Set_Ghost_Assignment): Remove parameter Mode
2094 (Mark_And_Set_Ghost_Body): Remove parameter
2095 Mode and its assignment.
2096 (Mark_And_Set_Ghost_Completion):
2097 Remove parameter Mode and its assignment.
2098 (Mark_And_Set_Ghost_Declaration): Remove parameter Mode and its
2100 (Mark_And_Set_Ghost_Instantiation): Remove parameter
2101 Mode and its assignment.
2102 (Mark_And_Set_Ghost_Procedure_Call):
2103 Remove parameter Mode and its assignment.
2105 Remove parameter Mode and its assignment.
2106 * ghost.ads (Mark_And_Set_Ghost_Assignment): Remove parameter Mode
2107 and update the comment on usage.
2108 (Mark_And_Set_Ghost_Body):
2109 Remove parameter Mode and update the comment on usage.
2110 (Mark_And_Set_Ghost_Completion): Remove parameter Mode and
2111 update the comment on usage.
2112 (Mark_And_Set_Ghost_Declaration):
2113 Remove parameter Mode and update the comment on usage.
2114 (Mark_And_Set_Ghost_Instantiation): Remove parameter Mode and
2115 update the comment on usage.
2116 (Mark_And_Set_Ghost_Procedure_Call):
2117 Remove parameter Mode and update the comment on usage.
2118 (Set_Ghost_Mode): Remove parameter Mode and update the comment
2120 * lib.ads Remove obsolete fields SPARK_Mode_Pragma from various
2122 * lib-load.adb (Create_Dummy_Package_Unit): Remove the assignment
2123 of obsolete field SPARK_Mode_Pragma.
2124 (Load_Main_Source): Remove
2125 the assignment of obsolete field SPARK_Mode_Pragma.
2126 (Load_Unit): Remove the assignment of obsolete field SPARK_Mode_Pragma.
2127 * lib-writ.adb (Add_Preprocessing_Dependency): Remove
2128 the assignment of obsolete field SPARK_Mode_Pragma.
2129 (Ensure_System_Dependency): Remove the assignment of obsolete
2130 field SPARK_Mode_Pragma.
2131 * rtsfind.adb (Load_RTU): Add a warning about Ghost and SPARK
2132 mode management. Change the way Ghost and SPARK modes are saved
2134 * sem.adb (Analyze): Change the way the Ghost mode is saved
2136 * sem_ch3.adb (Analyze_Object_Declaration): Change the way the
2137 Ghost mode is saved and restored.
2138 (Process_Full_View): Change
2139 the way the Ghost mode is saved and restored.
2140 * sem_ch5.adb (Analyze_Assignment): Change the way the Ghost
2141 mode is saved and restored.
2142 * sem_ch6.adb (Analyze_Procedure_Call): Change the way the Ghost
2143 mode is saved and restored.
2144 (Analyze_Subprogram_Body_Helper):
2145 Change the way the Ghost mode is saved and restored.
2146 * sem_ch7.adb (Analyze_Package_Body_Helper): Change the way the
2147 Ghost mode is saved and restored.
2148 * sem_ch10.adb (Analyze_Subunit): Add a warning about SPARK mode
2149 management. Save the SPARK mode-related data prior to any changes
2150 to the scope stack and contexts. The mode is then reinstalled
2151 before the subunit is analyzed in order to restore the original
2152 view of the subunit.
2153 * sem_ch12.adb (Analyze_Package_Instantiation): Update the
2154 warning on region management. Change the way the Ghost and
2155 SPARK modes are saved and restored.
2156 (Inline_Instance_Body):
2157 Add a warning about SPARK mode management. Code clean up.
2158 (Analyze_Subprogram_Instantiation): Update the warning on region
2159 management. Change the way the Ghost and SPARK modes are saved
2161 (Instantiate_Package_Body): Update the warning
2162 on region management. Change the way the Ghost and SPARK modes
2163 are saved and restored.
2164 (Instantiate_Subprogram_Body): Update
2165 the warning on region management. Change the way the Ghost and
2166 SPARK modes are saved and restored.
2167 (Set_Instance_Env): Add a
2168 warning about SPARK mode management. Change the way SPARK mode
2169 is saved and restored.
2170 * sem_ch13.adb (Build_Predicate_Functions):
2171 Change the way the Ghost mode is saved and restored.
2172 (Build_Predicate_Function_Declaration): Change the way the Ghost
2173 mode is saved and restored.
2174 * sem_elab.adb (Check_Elab_Calls): Add a warning about SPARK
2175 mode management. Change the way SPARK mode is saved and restored.
2176 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part):
2177 Change the way the Ghost mode is saved and restored.
2178 (Analyze_Initial_Condition_In_Decl_Part): Change the way
2179 the Ghost mode is saved and restored.
2181 Change the way the Ghost mode is saved and restored.
2182 (Analyze_Pre_Post_Condition_In_Decl_Part): Change the way the
2183 Ghost mode is saved and restored.
2184 * sem_util.adb (Install_SPARK_Mode): New routine.
2185 (Restore_SPARK_Mode): New routine.
2186 (Save_SPARK_Mode_And_Set): Removed.
2187 (Set_SPARK_Mode): New routine.
2188 * sem_util.ads (Install_SPARK_Mode): New routine.
2189 (Restore_SPARK_Mode): New routine.
2190 (Save_SPARK_Mode_And_Set): Removed.
2191 (Set_SPARK_Mode): New routine.
2193 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2195 * sem_util.adb, sem_util.ads (From_Nested_Package): New predicate
2196 to determine whether a type is declared in a local package that
2197 has not yet been frozen.
2198 * freeze.adb (Freeze_Before): Use new predicate to determine
2199 whether a local package must be installed on the scope stack
2200 in order to evaluate in the proper scope actions generated by
2201 aspect specifications, such as Predicate
2202 * sem_ch13.adb: Simplify code in Analyze_Aspects_At_Freeze_Point
2203 using new predicate.
2205 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2207 * sem_warn.adb (Warn_On_Constant_Valid_Condition): Do not consider
2208 comparisons between non- scalar expressions expressions because
2209 their values cannot be invalidated.
2210 * sem_warn.ads (Warn_On_Constant_Valid_Condition): Update the
2213 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2215 * par_sco.adb: Minor reformatting.
2217 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2219 * sem_ch13.adb (Analyze_Aspects_At_Freeze_Point): If entity
2220 is a type from an unfrozen local package, install package to
2221 complete the analysis of delayed aspects of the type.
2223 2017-04-25 Tristan Gingold <gingold@adacore.com>
2225 * bingen.adb (System_Version_Control_Used): New variable.
2226 (Resolve_Binder_Options): Set the above variable.
2227 (Gen_Output_File_Ada): Conditionally call Gen_Versions.
2228 (Gen_Elab_Order): Emit blank line before.
2230 2017-04-25 Justin Squirek <squirek@adacore.com>
2232 * sem_cat.adb (Validate_RT_RAT_Component): Added
2233 an extra check to ignore incomplete types.
2235 2017-04-25 Thomas Quinot <quinot@adacore.com>
2237 * sem_prag.adb (Analyze_Pragma, case Pragma_Check): Remove
2238 bogus circuitry for the case where Name is Predicate.
2240 2017-04-25 Thomas Quinot <quinot@adacore.com>
2242 * par_sco.adb(Traverse_Declarations_Or_Statements.Traverse_Aspects):
2243 Create SCOs for Predicate aspects in disabled
2244 state initially, to be enabled later on by...
2245 * sem_ch13.adb (Build_Predicate_Functions.Add_Predicates): Mark
2246 SCO for predicate as enabled.
2248 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2250 * comperr.adb (Compiler_Abort): Remove now obsolete pair of
2251 pragmas Warnings Off / On.
2252 * namet.adb (Finalize): Remove now obsolete pair of pragmas
2254 * output.adb: Remove now obsolete pair of pragmas Warnings Off / On.
2255 * sem_warn.adb (Warn_On_Constant_Valid_Condition): Do not
2256 consider comparisons between static expressions because their
2257 values cannot be invalidated.
2258 * urealp.adb (Tree_Read): Remove now obsolete pair of pragmas
2260 (Tree_Write): Remove now obsolete pair of pragmas Warnings Off / On.
2261 * usage.adb Remove now obsolete pair of pragmas Warnings Off / On.
2263 2017-04-25 Bob Duff <duff@adacore.com>
2265 * sem_elab.adb (In_Task_Activation): Trace internal calls in
2268 2017-04-25 Gary Dismukes <dismukes@adacore.com>
2270 * sem_prag.adb, sem_warn.adb, sem_eval.adb: Minor reformatting and
2273 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2275 * comperr.adb (Compiler_Abort): Add a pair of pragma Warnings
2276 On/Off to defend against a spurious warning in conditional
2278 * exp_ch4.adb (Rewrite_Comparison): Reimplemented.
2279 * namet.adb (Finalize): Add a pair of pragma Warnings On/Off to
2280 defend against a spurious warning in conditional compilation.
2281 * output.adb Add a pair of pragma Warnings On/Off to defend
2282 against a spurious warning in conditional compilation.
2283 * sem_eval.adb (Eval_Relational_Op): Major code clean up.
2284 (Fold_General_Op): New routine.
2285 (Fold_Static_Real_Op): New routine.
2286 (Test_Comparison): New routine.
2287 * sem_eval.ads (Test_Comparison): New routine.
2288 * sem_warn.adb (Is_Attribute_Constant_Comparison): New routine.
2289 (Warn_On_Constant_Valid_Condition): New routine.
2290 (Warn_On_Known_Condition): Use Is_Attribute_Constant_Comparison
2291 to detect a specific case.
2292 * sem_warn.adb (Warn_On_Constant_Valid_Condition): New routine.
2293 * urealp.adb (Tree_Read): Add a pair of pragma Warnings On/Off
2294 to defend against a spurious warning in conditional compilation.
2295 (Tree_Write): Add a pair of pragma Warnings On/Off to defend
2296 against a spurious warning in conditional compilation.
2297 * usage.adb Add a pair of pragma Warnings On/Off to defend
2298 against a spurious warning in conditional compilation.
2300 2017-04-25 Arnaud Charlet <charlet@adacore.com>
2302 * sinfo.ads, sem_ch13.adb: Update comment.
2304 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2306 * sem_util.adb (Is_Post_State): A reference to a
2307 generic in out parameter is considered a change in the post-state
2310 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2312 * sem_ch12.adb (Load_Parent_Of_Generic); When retrieving the
2313 declaration of a subprogram instance within its wrapper package,
2314 skip over null statements that may result from the rewriting of
2317 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2319 * exp_attr.adb (Expand_Attribute_Reference, case 'Read):
2320 If the type is an unchecked_union, replace the attribute with
2321 a Raise_Program_Error (rather than inserting such before the
2322 attribute reference) to handle properly the case where we are
2323 processing a component of a larger record, and we need to prevent
2324 further expansion for the unchecked union.
2325 (Expand_Attribute_Reference, case 'Write): If the type is
2326 an unchecked_union, check whether enclosing scope is a Write
2327 subprogram. Replace attribute with a Raise_Program_Error if the
2328 discriminants of the unchecked_union type have not default values
2329 because such a use is erroneous..
2331 2017-04-25 Tristan Gingold <gingold@adacore.com>
2333 * exp_ch9.adb (Expand_N_Task_Type_Declaration):
2334 Add relative_deadline to task record on edf profile.
2335 (Make_Initialize_Protection): Pass deadline_floor value on edf profile.
2336 (Make_Task_Create_Call): Pass relative_deadline value.
2337 * par-prag.adb (Prag): Handle Pragma_Deadline_Floor.
2338 * s-rident.ads (Profile_Name): Add GNAT_Ravenscar_EDF.
2339 (Profile_Info): Add info for GNAT_Ravenscar_EDF.
2340 * sem_prag.adb (Set_Ravenscar_Profile): Handle
2341 GNAT_Ravenscar_EDF (set scheduling policy).
2342 (Analyze_Pragma): Handle GNAT_Ravenscar_EDF profile and Deadline_Floor
2344 (Sig_Flags): Add choice for Pragma_Deadline_Floor.
2345 * snames.ads-tmpl (Name_Deadline_Floor, Name_Gnat_Ravenscar_EDF):
2347 (Pragma_Deadline_Floor): New pragma.
2348 * targparm.adb (Get_Target_Parameters): Recognize
2349 GNAT_Ravenscar_EDF profile.
2351 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
2353 * gnatvsn.ads (Library_Version): Bump to 8. Update comment.
2355 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2357 * sem_aux.adb (Nearest_Ancestor): Use original node of type
2358 declaration to locate nearest ancestor, because derived
2359 type declarations for record types are rewritten as record
2361 * sem_ch13.adb (Add_Call): Use an unchecked conversion to handle
2362 properly derivations that are completions of private types.
2363 (Add_Predicates): If type is private, examine rep. items of full
2364 view, which may include inherited predicates.
2365 (Build_Predicate_Functions): Ditto.
2367 2017-04-25 Javier Miranda <miranda@adacore.com>
2369 * sem_util.adb (New_Copy_Tree.Visit_Entity): Extend previous change
2370 to generate new entities for subtype declarations located in
2371 Expression_With_Action nodes.
2373 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2375 * sem_elab.adb (Check_A_Call): Remove
2376 local variables Is_DIC_Proc and Issue_In_SPARK. Verify the
2377 need for Elaborate_All when SPARK elaboration checks are
2378 required. Update the checks for instances, variables, and calls
2379 to Default_Initial_Condition procedures.
2381 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2383 * aspects.ads, aspects.adb: Make the GNAT-specific pragma No_Inline
2384 into a boolean aspect, in analogy with the Ada aspect No_Return.
2386 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2388 * exp_ch6.adb, sem_ch13.adb, sem_ch6.adb: Minor reformatting.
2390 2017-04-25 Bob Duff <duff@adacore.com>
2392 * sem_res.adb (Resolve_Actuals): Under -gnatd.q, reset
2393 Is_True_Constant for an array variable that is passed to a
2394 foreign function as an 'in' parameter.
2395 * debug.adb: Document -gnatd.q.
2397 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2399 * sem_ch6.adb (Analyze_Expression_Function): If expression function
2400 is completion and return type is an access type do not freeze
2401 designated type: this will be done in the process of freezing
2402 the expression if needed.
2403 (Freeze_Expr_Types): Check whether type is complete before
2404 creating freeze node, to provide a better error message if
2405 reference is premature.
2406 * sem_ch13.adb (Check_Indexing_Functions): Ignore inherited
2407 functions created by type derivations.
2409 2017-04-25 Pascal Obry <obry@adacore.com>
2411 * g-sercom.ads: Add simple usage of GNAT.Serial_Communication.
2413 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2415 * sem_res.adb (Resolve_Type_Conversion):
2416 When resolving against any fixed type, set the type of the
2417 operand as universal real when the operand is a multiplication
2418 or a division where both operands are of any fixed type.
2419 (Unique_Fixed_Point_Type): Add local variable ErrN. Improve the
2420 placement of an error message by pointing to the operand of a
2421 type conversion rather than the conversion itself.
2423 2017-04-25 Thomas Quinot <quinot@adacore.com>
2425 * sem_ch13.adb (Build_Predicate_Function_Declaration): Set
2426 Needs_Debug_Info when producing SCOs.
2428 2017-04-25 Thomas Quinot <quinot@adacore.com>
2430 * exp_ch6.adb (Add_Finalization_Master_Actual_To_Build_In_Place_Call):
2431 Always pass a null finalization master for a library level named access
2432 type to which a pragme No_Heap_Finalization applies.
2434 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
2438 * a-ngcoar.adb, a-ngrear.adb (Inverse): call Unit_Matrix with First_1
2439 set to A'First(2) and vice versa.
2441 2017-04-25 Yannick Moy <moy@adacore.com>
2443 * freeze.adb (Freeze_Record_Type): Remove obsolete
2444 rule on volatile tagged record restriction on SPARK code.
2446 2017-04-25 Yannick Moy <moy@adacore.com>
2448 * sem_prag.adb (minor) Fix SPARK RM reference.
2450 2017-04-25 Yannick Moy <moy@adacore.com>
2452 * sem_util.adb, sem_util.ads (Unique_Defining_Entity): Update
2453 comment to reflect which entity is chosen as unique entity.
2454 (Unique_Entity): Return full view instead of private spec for
2455 protected type or task type. Fix possible incorrect access when
2458 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
2460 * sem_res.adb (Set_Slice_Subtype): Treat specially bit-packed
2461 array types only instead of all packed array types.
2463 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2465 * sem_ch6.adb (Conforming_Types): If type of formal as a specified
2466 dimension system, verify that dimensions of both match.
2467 (Check_Conformance): Add error message in case of dimension
2469 * sem_dim.ads, sem_dim.adb (Dimensions_Match): New utility
2472 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
2474 * gnatxref.adb, gnatfind.adb: Avoid using the term project file,
2477 2017-04-25 Yannick Moy <moy@adacore.com>
2479 * sem_util.adb: Minor refactoring.
2480 * freeze.adb (Freeze_Record_Type): Fix checking of SPARK RM 7.1.3(5).
2482 2017-04-25 Claire Dross <dross@adacore.com>
2484 * sem_prag.adb (Collect_Inherited_Class_Wide_Conditions): Go to
2485 ultimate alias when accessing overridden operation. Indeed, if the
2486 overridden operation is itself inherited, it won't have any explicit
2489 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2491 * sem_warn.adb (Warn_On_Overlapping_Actuals): There can be no
2492 overlap if the two formals have different types, because formally
2493 the corresponding actuals cannot designate the same objects.
2495 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2497 * sem_dim.adb (Dimensions_Of_Operand): minot cleanups: a) If
2498 dimensions are present from context, use them. b) If operand is
2499 a static constant rewritten as a literal, obtain the dimensions
2500 from the original declaration, otherwise use dimensions of type
2501 established from context.
2503 2017-04-25 Yannick Moy <moy@adacore.com>
2505 * sem_util.adb (Is_Effectively_Volatile): Protect against base type
2506 of array that is private.
2508 2017-04-25 Gary Dismukes <dismukes@adacore.com>
2510 * sem_ch3.adb, exp_util.adb, sem_prag.adb, exp_ch4.adb: Minor
2513 2017-04-25 Yannick Moy <moy@adacore.com>
2515 * a-ngelfu.adb, a-ngelfu.ads: Add SPARK_Mode On on spec, Off
2518 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2520 * sem_disp.adb (Check_Dispatching_Context): Add guard to refine
2521 the check that recognizes a call to a private overridding and
2522 replaces the called subprogram with its alias.
2524 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2526 * exp_util.adb: Minor reformatting.
2528 2017-04-25 Justin Squirek <squirek@adacore.com>
2530 * exp_ch3.adb (Freeze_Type): Add condition to always treat
2531 interface types as a partial view of a private type for the
2532 generation of invariant procedure bodies.
2533 * exp_util.adb, exp_util.ads (Add_Inherited_Invariants):
2534 Add a condition to get the Corresponding_Record_Type for
2535 concurrent types, add condition to return in the absence of a
2536 class in the pragma, remove call to Replace_Type_References,
2537 and add call to Replace_References.
2538 (Add_Interface_Invariatns),
2539 (Add_Parent_Invariants): Modify call to Add_Inherited_Invariants
2540 to including the working type T.
2541 (Add_Own_Invariants): Remove
2542 legacy condition for separate units, remove dispatching for ASIS
2543 and save a copy of the expression in the pragma expression.
2544 (Build_Invariant_Procedure_Body): Default initalize vars,
2545 remove return condition on interfaces, always use the
2546 private type for interfaces, and move the processing of types
2547 until after the processing of invariants for the full view.
2548 (Build_Invariant_Procedure_Declaration): Remove condition
2549 to return if an interface type is encountered and add
2550 condition to convert the formal parameter to its class-wide
2551 counterpart if Work_Typ is abstract.
2552 (Replace_Type): Add call to Remove_Controlling_Arguments.
2553 (Replace_Type_Ref): Remove class-wide dispatching for the current
2554 instance of the type.
2555 (Replace_Type_References): Remove parameter "Derived"
2556 (Remove_Controlling_Arguments): Created in order to removing
2557 the controlliong argument from calls to primitives in the case
2558 of the formal parameter being an class-wide abstract type.
2559 * sem_ch3.adb (Build_Assertion_Bodies_For_Type): Almost identical
2560 to the change made to Freeze_Type in exp_ch3. Add a condition
2561 to treat interface types as a partial view.
2562 * sem_prag.adb (Analyze_Pragma): Modify parameters in the call
2563 to Build_Invariant_Procedure_Declaration to properly generate a
2564 "partial" invariant procedure when Typ is an interface.
2566 2017-04-25 Bob Duff <duff@adacore.com>
2568 * a-numeri.ads: Go back to using brackets encoding for the Greek
2571 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2573 * sem_ch3.adb (Derive_Subprogram): Implement rule in RM 6.1.1
2574 (10-15): if derived type T with progenitors is abstract,
2575 and primitive P of this type inherits non-trivial classwide
2576 preconditions from both a parent operation and from an interface
2577 operation, then the inherited operation is abstract if the parent
2578 operation is not null.
2579 * sem_disp.ads, sem_disp.adb: replace function Covers_Some_Interface
2580 with Covered_Interface_Op to yield the actual interface operation
2581 that is implemented by a given inherited operation.
2583 2017-04-25 Javier Miranda <miranda@adacore.com>
2585 * exp_ch4.adb (Expand_N_Op_Expon): Relocate left
2586 and right operands after performing the validity checks. Required
2587 because validity checks may remove side effects from the operands.
2589 2017-04-25 Javier Miranda <miranda@adacore.com>
2591 * exp_attr.adb (Attribute_Unrestricted_Access):
2592 Do not disable implicit type conversion. Required to generate
2593 code that displaces the pointer to reference the secondary
2596 2017-04-25 Pascal Obry <obry@adacore.com>
2598 * prj-attr.adb, snames.ads-tmpl: Add package Install's
2599 Required_Artifacts attribute.
2601 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2603 * sem_util.adb (Same_Value): String literals are compile-time
2604 values, and comparing them must use Expr_Value_S.
2606 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2608 * sem_ch4.adb (Complete_Object_Interpretation): If an explicit
2609 dereference is introduced for the object, and the object is
2610 overloaded, do not check whether it is aliased, because it may
2611 include an implicit dereference.
2612 * sem_type.adb (Disambiguate): If two interpretations are access
2613 attribute types with the same designated type keep either of
2614 them and do not report an ambiguity. A true ambiguity will be
2617 2017-04-25 Bob Duff <duff@adacore.com>
2619 * a-numeri.ads: Change the encoding of Greek letter Pi from
2620 brackets encoding to UTF-8. Use pragma Wide_Character_Encoding
2621 to indicate the encoding. We considered using a byte order mark
2622 (BOM), but that causes various trouble (misc software eats the
2623 BOM, if you have a patch with a BOM, then it's not at the start
2624 of the patch, so it's not a BOM, the BOM affects with-ing files,
2626 * scng.adb, s-wchcnv.adb: Minor.
2628 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2630 * sem_ch3.adb, sem_ch8.adb, sem_disp.adb: Minor reformatting.
2631 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2633 * sem_ch3.adb (Add_Internal_Interface_Entities): Move
2634 Has_Non_Trivial_Precondition to sem_util. for use elsewhere.
2635 Improve error message on operations that inherit non-conforming
2636 classwide preconditions from ancestor and progenitor.
2637 * sem_util.ads, sem_util.adb (Has_Non_Trivial_Precondition):
2638 moved here from sem_ch3.
2639 * sem_ch8.adb (Analyze_Subprogram_Renaming): Implement legality
2640 check given in RM 6.1.1 (17) concerning renamings of overriding
2641 operations that inherits class-wide preconditions from ancestor
2644 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2646 * exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Code cleanup.
2647 (Build_Adjust_Statements): Code cleanup.
2648 (Build_Finalizer): Update the initialization of
2650 (Build_Finalize_Statements): Code cleanup.
2651 (Build_Initialize_Statements): Code cleanup.
2652 (Make_Deep_Array_Body): Update the initialization of
2654 (Make_Deep_Record_Body): Update the initialization of Exceptions_OK.
2655 (Process_Object_Declaration): Generate a null exception handler only
2656 when exceptions are allowed.
2657 (Process_Transients_In_Scope): Update the initialization of
2659 * exp_util.ads, exp_util.adb (Exceptions_In_Finalization_OK): New
2661 * sem_ch11.adb (Analyze_Exception_Handlers): Do not check any
2662 restrictions when the handler is internally generated and the
2665 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2667 * sem_ch3.adb (Has_Non_Trivial_Precondition): New predicate to
2668 enforce legality rule on classwide preconditions inherited from
2669 both an ancestor and a progenitor (RM 6.1.1 (10-13).
2670 * sem_disp.adb (Check_Dispatching_Context): A call to an abstract
2671 subprogram need not be dispatching if it appears in a precondition
2672 for an abstract or null subprogram.
2674 2017-04-25 Gary Dismukes <dismukes@adacore.com>
2676 * sem_ch10.adb: Minor typo fix.
2678 2017-04-25 Arnaud Charlet <charlet@adacore.com>
2680 * gcc-interface/Makefile.in: Cleanup VxWorks targets.
2682 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
2684 * fname.adb (Is_Internal_File_Name): Arrange for the slices to
2685 have a length which is a power of 2.
2686 (Is_Predefined_File_Name): Likewise. Adjust comment.
2688 2017-04-25 Bob Duff <duff@adacore.com>
2690 * exp_aggr.adb (Component_Count): Protect the
2691 arithmetic from attempting to convert a value >= 2**31 to Int,
2692 which would otherwise raise Constraint_Error.
2694 2017-04-25 Bob Duff <duff@adacore.com>
2696 * opt.ads (Locking_Policy): Fix incorrect documentation. The
2697 first character of the policy name is not unique.
2699 2017-04-25 Bob Duff <duff@adacore.com>
2701 * s-fileio.adb (Name): Raise Use_Error if the file is a temp file.
2702 * s-ficobl.ads (Is_Temporary_File): Remove incorrect comment
2703 about this flag not being used. It was already used, and it is
2706 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2708 * einfo.adb Flag301 is now known as Ignore_SPARK_Mode_Pragmas.
2709 (Ignore_SPARK_Mode_Pragmas): New routine.
2710 (Set_Ignore_SPARK_Mode_Pragmas): New routine.
2711 (Write_Entity_Flags): Add an entry for Ignore_SPARK_Mode_Pragmas.
2712 * einfo.ads Add new attribute Ignore_SPARK_Mode_Pragmas and update
2714 (Ignore_SPARK_Mode_Pragmas): New routine
2715 along with pragma Inline.
2716 (Set_Ignore_SPARK_Mode_Pragmas): New routine along with pragma Inline.
2717 * opt.ads Rename flag Ignore_Pragma_SPARK_Mode to
2718 Ignore_SPARK_Mode_Pragmas_In_Instance.
2719 * sem_ch6.adb (Analyze_Subprogram_Body_Helper):
2720 Save and restore the value of global flag
2721 Ignore_SPARK_Mode_Pragmas_In_Instance. Set or reinstate the value
2722 of global flag Ignore_SPARK_Mode_Pragmas_In_Instance when either
2723 the corresponding spec or the body must ignore all SPARK_Mode
2724 pragmas found within.
2725 (Analyze_Subprogram_Declaration): Mark
2726 the spec when it needs to ignore all SPARK_Mode pragmas found
2727 within to allow the body to infer this property in case it is
2728 instantiated or inlined later.
2729 * sem_ch7.adb (Analyze_Package_Body_Helper): Save and restore the
2730 value of global flag Ignore_SPARK_Mode_Pragmas_In_Instance. Set
2731 the value of global flag Ignore_SPARK_Mode_Pragmas_In_Instance
2732 when the corresponding spec also ignored all SPARK_Mode pragmas
2734 (Analyze_Package_Declaration): Mark the spec when
2735 it needs to ignore all SPARK_Mode pragmas found within to allow
2736 the body to infer this property in case it is instantiated or
2738 * sem_ch12.adb (Analyze_Formal_Package_Declaration):
2739 Save and restore the value of flag
2740 Ignore_SPARK_Mode_Pragmas_In_Instance. Mark the
2741 formal spec when it needs to ignore all SPARK_Mode
2742 pragmas found within to allow the body to infer this
2743 property in case it is instantiated or inlined later.
2744 (Analyze_Package_Instantiation): Save and restore the value
2745 of global flag Ignore_SPARK_Mode_Pragmas_In_Instance. Mark
2746 the instance spec when it needs to ignore all SPARK_Mode
2747 pragmas found within to allow the body to infer this
2748 property in case it is instantiated or inlined later.
2749 (Analyze_Subprogram_Instantiation): Save and restore the value
2750 of global flag Ignore_SPARK_Mode_Pragmas_In_Instance. Mark the
2751 instance spec and anonymous package when they need to ignore
2752 all SPARK_Mode pragmas found within to allow the body to infer
2753 this property in case it is instantiated or inlined later.
2754 (Instantiate_Package_Body): Save and restore the value of global
2755 flag Ignore_SPARK_Mode_Pragmas_In_Instance. Set the value of
2756 global flag Ignore_SPARK_Mode_Pragmas_In_Instance when the
2757 corresponding instance spec also ignored all SPARK_Mode pragmas
2759 (Instantiate_Subprogram_Body): Save and restore the
2760 value of global flag Ignore_SPARK_Mode_Pragmas_In_Instance. Set
2761 the value of global flag Ignore_SPARK_Mode_Pragmas_In_Instance
2762 when the corresponding instance spec also ignored all SPARK_Mode
2763 pragmas found within.
2764 * sem_prag.adb (Analyze_Pragma): Update the reference to
2765 Ignore_Pragma_SPARK_Mode.
2766 * sem_util.adb (SPARK_Mode_Is_Off): A construct which ignored
2767 all SPARK_Mode pragmas defined within yields mode "off".
2769 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2771 * bindgen.adb, exp_dbug.adb, errout.adb, fname.adb: Minor reformatting.
2773 2017-04-25 Bob Duff <duff@adacore.com>
2775 * exp_atag.adb (Build_CW_Membership): Add "Suppress =>
2776 All_Checks" to avoid generating unnecessary checks.
2777 * exp_ch4.adb (Expand_N_In, Make_Tag_Check): Add "Suppress =>
2779 * sem.ads: Fix comment.
2780 * expander.ads: Fix comment.
2781 * exp_atag.ads: Fix comment: "Index = 0" should be
2784 2017-04-25 Gary Dismukes <dismukes@adacore.com>
2786 * s-taprop-linux.adb: Minor editorial fixes.
2788 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
2790 * sem_util.adb (New_Copy_Tree): Put back the declarations of the
2791 hash tables at library level. Reinstate the NCT_Hash_Tables_Used
2792 variable and set it to True whenever the main hash table is
2793 populated. Short- circuit the Assoc function if it is false
2794 and add associated guards.
2796 2017-04-25 Olivier Hainque <hainque@adacore.com>
2798 * bindgen.adb (Gen_Elab_Calls): Also update counter of lone
2799 specs without elaboration code that have an elaboration counter
2800 nevertheless, e.g. when compiled with -fpreserve-control-flow.
2801 * sem_ch10.adb (Analyze_Compilation_Unit):
2802 Set_Elaboration_Entity_Required when requested to preserve
2803 control flow, to ensure the unit elaboration is materialized at
2804 bind time, resulting in the inclusion of the unit object file
2805 in the executable closure at link time.
2807 2017-04-25 Pierre-Marie de Rodat <derodat@adacore.com>
2809 * exp_dbug.adb: In Debug_Renaming_Declaration,
2810 when dealing with indexed component, accept to produce a renaming
2811 symbol when the index is an IN parameter or when it is a name
2812 defined in an outer scope.
2814 2017-04-25 Yannick Moy <moy@adacore.com>
2816 * errout.adb (Error_Msg): Adapt continuation
2817 message in instantiations and inlined bodies for info messages.
2819 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
2821 * fname.adb (Has_Internal_Extension): Add pragma Inline.
2822 Use direct 4-character slice comparisons.
2824 pragma Inline. (Has_Suffix): Delete.
2825 (Is_Internal_File_Name):
2826 Test Is_Predefined_File_Name first.
2827 (Is_Predefined_File_Name):
2828 Use direct slice comparisons as much as possible and limit all
2829 comparisons to at most 8 characters.
2831 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2833 * checks.adb (Insert_Valid_Check): Code cleanup.
2834 * exp_ch6.adb (Add_Validation_Call_By_Copy_Code): New routine.
2835 (Expand_Actuals): Generate proper copy-back for a validation
2836 variable when it acts as the argument of a type conversion.
2837 * sem_util.adb (Is_Validation_Variable_Reference): Augment the
2838 predicate to operate on type qualifications.
2840 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2842 * sem_prag.adb, exp_ch6.adb, binde.adb, sem_disp.adb, s-fileio.adb:
2845 2017-04-25 Bob Duff <duff@adacore.com>
2847 * sem_prag.adb (No_Return): Give an error if the pragma applies
2848 to a body. Specialize the error for the specless body case,
2849 as is done for (e.g.) pragma Convention.
2850 * debug.adb: Add switch -gnatd.J to disable the above legality
2851 checks. This is mainly for use in our test suite, to avoid
2852 rewriting a lot of illegal (but working) code. It might also
2853 be useful to customers. Under this switch, if a pragma No_Return
2854 applies to a body, and the procedure raises an exception (as it
2855 should), the pragma has no effect. If the procedure does return,
2856 execution is erroneous.
2858 2017-04-25 Bob Duff <duff@adacore.com>
2860 * exp_ch6.adb (Expand_Actuals): This is the
2861 root of the problem. It took N as an 'in out' parameter, and in
2862 some cases, rewrote N, but then set N to Original_Node(N). So
2863 the node returned in N had no Parent. The caller continued
2864 processing of this orphaned node. In some cases that caused a
2865 crash (e.g. Remove_Side_Effects climbs up Parents in a loop,
2866 and trips over the Empty Parent). The solution is to make N an
2867 'in' parameter. Instead of rewriting it, return the list of
2868 post-call actions, so the caller can do the rewriting later,
2869 after N has been fully processed.
2870 (Expand_Call_Helper): Move most of Expand_Call here. It has
2871 too many premature 'return' statements, and we want to do the
2872 rewriting on return.
2873 (Insert_Post_Call_Actions): New procedure to insert the post-call
2874 actions in the appropriate place. In the problematic case,
2875 that involves rewriting N as an Expression_With_Actions.
2876 (Expand_Call): Call the new procedures Expand_Call_Helper and
2877 Insert_Post_Call_Actions.
2879 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2881 * sem_prag.adb (Inherits_Class_Wide_Pre): Cleanup code, handle
2882 properly type derived from generic formal types, to handle
2883 properly modified version of ACATS 4.1B B611017.
2885 2017-04-25 Javier Miranda <miranda@adacore.com>
2887 * exp_unst.adb (Subp_Index): Adding missing
2888 support for renamings and functions that return a constrained
2889 array type (i.e. functions for which the frontend built a
2890 procedure with an extra out parameter).
2892 2017-04-25 Pascal Obry <obry@adacore.com>
2894 * s-string.adb: Minor code clean-up.
2896 2017-04-25 Bob Duff <duff@adacore.com>
2898 * s-os_lib.ads, s-os_lib.adb (Non_Blocking_Wait_Process): New
2900 * adaint.h, adaint.c (__gnat_portable_no_block_wait): C support
2901 function for Non_Blocking_Wait_Process.
2903 2017-04-25 Bob Duff <duff@adacore.com>
2905 * prep.adb (Preprocess): Remove incorrect
2906 Assert. Current character can be ASCII.CR.
2908 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2910 * sem_prag.adb (Set_Convention_From_Pragma): Cleanup code for
2911 convention Stdcall, which has a number of exceptions. Convention
2912 is legal on a component declaration whose type is an anonymous
2913 access to subprogram.
2915 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2917 * sem_ch4.adb: sem_ch4.adb Various reformattings.
2918 (Try_One_Prefix_Interpretation): Use the base type when dealing
2919 with a subtype created for purposes of constraining a private
2920 type with discriminants.
2922 2017-04-25 Javier Miranda <miranda@adacore.com>
2924 * einfo.ads, einfo.adb (Has_Private_Extension): new attribute.
2925 * warnsw.ads, warnsw.adb (All_Warnings): Set warning on late
2926 dispatching primitives (Restore_Warnings): Restore warning on
2927 late dispatching primitives (Save_Warnings): Save warning on late
2928 dispatching primitives (Do_Warning_Switch): Use -gnatw.j/-gnatw.J
2929 to enable/disable this warning.
2930 (WA_Warnings): Set warning on late dispatching primitives.
2931 * sem_ch3.adb (Analyze_Private_Extension_Declaration): Remember
2932 that its parent type has a private extension.
2933 * sem_disp.adb (Warn_On_Late_Primitive_After_Private_Extension):
2935 * usage.adb: Document -gnatw.j and -gnatw.J.
2937 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2939 * exp_ch7.adb, checks.adb, sem_prag.adb, eval_fat.adb: Minor
2942 2017-04-25 Bob Duff <duff@adacore.com>
2944 * binde.adb (Validate): Do not pass dynamic strings
2945 to pragma Assert, because older compilers do not support that.
2947 2017-04-25 Bob Duff <duff@adacore.com>
2949 * s-fileio.adb (Close): When a temp file is
2950 closed, delete it and clean up its Temp_File_Record immediately,
2951 rather than waiting until later.
2952 (Temp_File_Record): Add File
2953 component, so Close can know which Temp_File_Record corresponds
2954 to the file being closed.
2955 (Delete): Don't delete temp files,
2956 because they are deleted by Close.
2957 (Open): Set the File component
2958 of Temp_File_Record. This requires moving the creation of the
2959 Temp_File_Record to the end, after the AFCB has been created.
2961 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
2963 * checks.adb (Insert_Valid_Check): Do not generate
2964 a validity check when inside a generic.
2966 2017-04-25 Yannick Moy <moy@adacore.com>
2968 * sem_res.adb (Resolve_Type_Conversion): Fix bad logic.
2970 2017-04-25 Arnaud Charlet <charlet@adacore.com>
2972 * snames.ads-tmpl (Snames): More names for detecting predefined
2973 potentially blocking subprograms.
2975 2017-04-25 Ed Schonberg <schonberg@adacore.com>
2977 * sem_prag.adb (Analyze_Pre_Post_Condition): The rules
2978 concerning inheritance of class-wide preconditions do not apply
2981 2017-04-25 Bob Duff <duff@adacore.com>
2983 * s-ficobl.ads: Minor comment fix.
2985 2017-04-25 Yannick Moy <moy@adacore.com>
2987 * checks.adb (Apply_Scalar_Range_Check): Analyze precisely
2988 conversions from float to integer in GNATprove mode.
2989 (Apply_Type_Conversion_Checks): Make sure in GNATprove mode
2990 to call Apply_Type_Conversion_Checks, so that range checks
2991 are properly positioned when needed on conversions, including
2992 when converting from float to integer. (Determine_Range): In
2993 GNATprove mode, take into account the possibility of conversion
2994 from float to integer.
2995 * sem_res.adb (Resolve_Type_Conversion): Only enforce range
2996 check on conversions from fixed-point to integer, not anymore
2997 on conversions from floating-point to integer, when in GNATprove
3000 2017-04-25 Yannick Moy <moy@adacore.com>
3002 * checks.adb (Determine_Range_R): Special case type conversions
3003 from integer to float in order to get bounds in that case too.
3004 * eval_fat.adb (Machine): Avoid issuing warnings in GNATprove
3005 mode, for computations involved in interval checking.
3007 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3009 * checks.adb (Insert_Valid_Check): Partially reimplement validity
3011 * einfo.adb Node36 is now used as Validated_Object.
3012 (Validated_Object): New routine.
3013 (Set_Validated_Object): New routine.
3014 (Write_Field36_Name): Add an entry for Validated_Object.
3015 * einfo.ads Add new attribute Validated_Object along with
3017 (Validated_Object): New routine along with pragma Inline.
3018 (Set_Validated_Object): New routine along with pragma Inline.
3019 * exp_attr.adb (Make_Range_Test): Add processing for validation
3020 variables to avoid extra reads and copies of the prefix.
3021 * exp_ch6.adb (Expand_Actuals): Add copy-back for validation
3022 variables in order to reflect any changes done in the variable
3023 back into the original object.
3024 * sem_util.adb (Is_Validation_Variable_Reference): New routine.
3025 * sem_util.ads (Is_Validation_Variable_Reference): New routine.
3027 2017-04-25 Steve Baird <baird@adacore.com>
3029 * exp_ch7.adb (Build_Array_Deep_Procs,
3030 Build_Record_Deep_Procs, Make_Finalize_Address_Body): Don't
3031 generate Finalize_Address routines for CodePeer.
3033 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3035 * sem_prag.adb (Inherits_Class_Wide_Pre): subsidiary of
3036 Analyze_Pre_Post_Condition, to implement the legality checks
3037 mandated by AI12-0131: Pre'Class shall not be specified for an
3038 overriding primitive subprogram of a tagged type T unless the
3039 Pre'Class aspect is specified for the corresponding primitive
3040 subprogram of some ancestor of T.
3042 2017-04-25 Bob Duff <duff@adacore.com>
3044 * sem_ch8.adb (Use_One_Type): If a use_type_clause
3045 is redundant, set its Used_Operations to empty. This is only
3046 necessary for use clauses that appear in the parent of a generic
3047 child unit, because those use clauses get reanalyzed when we
3048 instantiate the generic, and we don't want the Used_Operations
3049 carried over from the original context (where it was probably
3052 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3054 * exp_ch6.adb: Minor reformatting.
3056 2017-04-25 Bob Duff <duff@adacore.com>
3058 * sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
3059 Use Source_Index (Current_Sem_Unit) to find the correct casing.
3060 * exp_prag.adb (Expand_Pragma_Check): Use Source_Index
3061 (Current_Sem_Unit) to find the correct casing.
3062 * par.adb (Par): Null out Current_Source_File, to ensure that
3063 the above bugs won't rear their ugly heads again.
3065 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3067 * sem_ch8.adb (Find_Type): For an attribute reference
3068 'Class, if prefix type is synchronized and previous errors
3069 have suppressed the creation of the corresponding record type,
3070 create a spurious class-wide for the synchonized type itself,
3071 to catch other misuses of the attribute
3073 2017-04-25 Steve Baird <baird@adacore.com>
3075 * exp_ch6.adb (Expand_Simple_Function_Return): if CodePeer_Mode
3076 is True, then don't generate the accessibility check for the
3077 tag of a tagged result.
3078 * exp_intr.adb (Expand_Dispatching_Constructor_Call):
3079 if CodePeer_Mode is True, then don't generate the
3080 tag checks for the result of call to an instance of
3081 Ada.Tags.Generic_Dispatching_Constructor (i.e., both the "is a
3082 descendant of" check and the accessibility check).
3084 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3086 * sem_ch13.adb: Code cleanups.
3087 * a-strbou.ads: minor whitespace fix in Trim for bounded strings.
3088 * sem_ch8.ads: Minor comment fix.
3090 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
3092 * exp_ch4.adb (Library_Level_Target): New function.
3093 (Expand_Concatenate): When optimization is enabled, also expand
3094 the operation out-of-line if the concatenation is present within
3095 the expression of the declaration of a library-level object and
3096 not only if it is the expression of the declaration.
3098 2017-04-25 Bob Duff <duff@adacore.com>
3100 * freeze.adb (Freeze_Object_Declaration): Do
3101 not Remove_Side_Effects if there is a pragma Linker_Section,
3102 because in that case we want static initialization in the
3103 appropriate section.
3105 2017-04-25 Gary Dismukes <dismukes@adacore.com>
3107 * exp_dbug.adb: Minor rewording and reformatting.
3109 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3111 * sem_attr.adb (Statically_Denotes_Object): New predicate, to
3112 handle the proposed changes to rules concerning potentially
3113 unevaluated expressions, to include selected components that
3114 do not depend on discriminants, and indexed components with
3116 * sem_util.adb (Is_Potentially_Unevaluated): Add check for
3117 predicate in quantified expression, and fix bugs in the handling
3118 of case expressions and membership test.
3119 (Analyze_Attribute_Old_Result): use new predicate.
3120 (Analyze_Attribute, case Loop_Entry): ditto.
3122 2017-04-25 Bob Duff <duff@adacore.com>
3124 * s-secsta.adb (SS_Info): Add a comment
3125 explaining why we don't need to walk all the chunks in order to
3126 compute the total size.
3128 2017-04-25 Bob Duff <duff@adacore.com>
3130 * namet.ads, namet.adb (Global_Name_Buffer): Increase the length
3131 of the global name buffer to 4*Max_Line_Length.
3133 2017-04-25 Javier Miranda <miranda@adacore.com>
3135 * exp_ch8.adb (Expand_N_Object_Renaming_Declaration): When creating a
3136 renaming entity for debug information, mark the entity as needing debug
3137 info if it comes from sources.
3139 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3141 * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Remove the
3142 restriction converning the use of 'Address where the prefix is
3143 of a controlled type.
3145 2017-04-25 Pierre-Marie de Rodat <derodat@adacore.com>
3147 * exp_dbug.adb: In Debug_Renaming_Declaration,
3148 skip slices that are made redundant by an indexed component
3150 * atree.h: New definition for Original_Node.
3152 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3154 * sem_prag.adb, sem_prag.ads: Minor reformatting.
3156 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3158 * sem_ch3.adb (Check_Entry_Contract): Call
3159 Preanalyze_Spec_Expression so that resolution takes place as well.
3160 * sem_util.adb (Check_Internal_Protected_Use): Reject properly
3161 internal calls that appear in preconditions of protected
3162 operations, in default values for same, and in contract guards
3163 for contract cases in SPARK.
3165 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
3167 * a-numaux.ads: Fix description of a-numaux-darwin
3169 (Double): Define to Long_Float.
3170 * a-numaux-vxworks.ads (Double): Likewise.
3171 * a-numaux-darwin.ads
3173 * a-numaux-libc-x86.ads (Double): Define to Long_Long_Float.
3174 * a-numaux-x86.ads: Fix package description.
3175 * a-numaux-x86.adb (Is_Nan): Minor tweak.
3176 (Reduce): Adjust and complete description. Call Is_Nan instead of
3177 testing manually. Use an integer temporary to hold rounded value.
3178 * a-numaux-darwin.adb (Reduce): Likewise.
3179 (Is_Nan): New function.
3181 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3183 * sem_ch4.adb (Analyze_Selected_Component): Additional refinement
3184 on analysis of prefix whose type is a current instance of a
3185 synchronized type, but where the prefix itself is an entity that
3188 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3190 * exp_ch5.adb (Replace_Target): When rewriting the RHS, preserve
3191 the identity of callable entities therein, because they have been
3192 properly resolved, and prefixed calls may have been rewritten
3195 2017-04-25 Patrick Bernardi <bernardi@adacore.com>
3197 * exp_ch3.adb (Build_Init_Statements): Convert
3198 the expression of the pragma/aspect Secondary_Stack_Size to
3199 internal type System.Parameters.Size_Type before assigning
3200 it to the Secondary_Stack_Size component of the task type's
3201 corresponding record.
3203 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
3205 * sem_eval.adb (Compile_Time_Compare): Reinstate the expr+literal
3206 (etc) optimizations when the type is modular and the offsets
3209 2017-04-25 Eric Botcazou <ebotcazou@adacore.com>
3211 * s-osinte-freebsd.ads: Minor comment tweaks
3213 2017-04-25 Javier Miranda <miranda@adacore.com>
3215 * urealp.adb (UR_Write): Reverse previous patch
3216 adding documentation on why we generate multiplications instead
3217 of divisions (needed to avoid expressions whose computation with
3218 large numbers may cause division by 0).
3220 2017-04-25 Bob Duff <duff@adacore.com>
3222 * erroutc.adb (Set_Specific_Warning_Off,
3223 Set_Warnings_Mode_Off): Use the correct source file for
3224 Stop. Was using Current_Source_File, which is only valid during
3225 parsing. Current_Source_File will have a leftover value from
3226 whatever file happened to be parsed last, because of a with_clause
3229 2017-04-25 Bob Duff <duff@adacore.com>
3231 * lib.ads, lib.adb (In_Internal_Unit): New functions similar
3232 to In_Predefined_Unit, but including GNAT units.
3233 * sem_util.ads, sem_util.adb (Should_Ignore_Pragma): Replace
3234 with Should_Ignore_Pragma_Par and Should_Ignore_Pragma_Sem,
3235 because Should_Ignore_Pragma was not working reliably outside
3236 the parser, because Current_Source_File is not valid.
3237 * sem_prag.adb, exp_prag.adb: Call Should_Ignore_Pragma_Sem.
3238 * par-prag.adb: Call Should_Ignore_Pragma_Par.
3240 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
3242 * gnat1drv.adb (Gnat1Drv): Disable Generate_Processed_File in
3245 2017-04-25 Javier Miranda <miranda@adacore.com>
3247 * urealp.adb (UR_Write): Fix output of constants with a base other
3250 2017-04-25 Justin Squirek <squirek@adacore.com>
3252 * sem_ch13.adb (Get_Interfacing_Aspects): Moved to sem_util.adb.
3253 * sem_prag.adb (Analyze_Pragma, Process_Import_Or_Interface):
3254 Add extra parameter for Process_Interface_Name.
3255 (Process_Interface_Name): Add parameter for pragma to analyze
3256 corresponding aspect.
3257 * sem_util.ads, sem_util.adb (Get_Interfacing_Aspects): Added
3260 2017-04-25 Gary Dismukes <dismukes@adacore.com>
3262 * exp_ch7.adb, einfo.ads, sem_prag.adb: Minor reformatting and typo
3265 2017-04-25 Yannick Moy <moy@adacore.com>
3267 * sem_res.adb (Resolve_Comparison_Op): Do not
3268 attempt evaluation of relational operations inside assertions.
3270 2017-04-25 Justin Squirek <squirek@adacore.com>
3272 * exp_util.adb (Add_Interface_Invariants):
3273 Restored, code moved back from Build_Invariant_Procedure_Body.
3274 (Add_Parent_Invariants): Restored, code moved back from
3275 Build_Invariant_Procedure_Body.
3276 (Build_Invariant_Procedure_Body):
3277 Remove refactored calls and integrated code from
3278 Add_Parent_Invariants and Add_Interface_Invariants.
3280 2017-04-25 Johannes Kanig <kanig@adacore.com>
3282 * errout.adb (Output_Messages): Adjust computation of total
3284 * erroutc.adb (Error_Msg): In statistics counts, deal
3285 correctly with informational messages that are not warnings.
3286 * errutil.adb (Finalize): adjust computation of total errors.
3288 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
3290 * terminals.c (__gnat_terminate_pid): New.
3291 * g-exptty.ads (Terminate_Process): New. Update comments.
3293 2017-04-25 Arnaud Charlet <charlet@adacore.com>
3295 * a-cfinve.ads, a-cofove.ads (Empty_Vector): add Global contract.
3297 2017-04-25 Justin Squirek <squirek@adacore.com>
3299 * sem_ch3.adb (Analyze_Declarations): Minor
3300 correction to comments, move out large conditional and scope
3301 traversal into a predicate.
3302 (Uses_Unseen_Lib_Unit_Priv): Predicate function made from extracted
3305 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3307 * sem_ch4.adb (Analyze_Selected_Component): Refine analysis
3308 of prefix whose type is a current instance of a synchronized
3309 type. If the prefix is an object this is an external call (or
3310 requeue) that can only access public operations of the object. The
3311 previous predicate was too restrictive, and did not allow public
3312 protected operations, only task entries.
3314 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3316 * sem_ch5.adb, fname.adb: Minor reformatting.
3318 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3320 * einfo.adb (Is_Anonymous_Access_Type): New routine.
3321 * einfo.ads Update the placement of
3322 E_Anonymous_Access_Subprogram_Type along with all subtypes that
3324 (Is_Anonymous_Access_Type): New routine.
3325 * exp_ch7.adb (Allows_Finalization_Master): Do not generate a
3326 master for an access type subject to pragma No_Heap_Finalization.
3327 * exp_util.adb (Build_Allocate_Deallocate_Proc): An object being
3328 allocated or deallocated does not finalization actions if the
3329 associated access type is subject to pragma No_Heap_Finalization.
3330 * opt.ads Add new global variable No_Heap_Finalization_Pragma.
3331 * par-prag.adb Pragma No_Heap_Finalization does not need special
3332 processing from the parser.
3333 * sem_ch6.adb (Check_Return_Subtype_Indication): Remove ancient
3334 ??? comments. Use the new predicate Is_Anonymous_Access_Type.
3335 * sem_prag.adb Add an entry in table Sig_Flags for pragma
3336 No_Heap_Finalization.
3337 (Analyze_Pragma): Add processing for
3338 pragma No_Heap_Finalization. Update various error messages to
3339 use Duplication_Error.
3340 * sem_util.ads, sem_util.adb (No_Heap_Finalization): New routine.
3341 * snames.ads-tmpl: Add new predefined name No_Heap_Finalization
3342 and corresponding pragma id.
3344 2017-04-25 Bob Duff <duff@adacore.com>
3346 * freeze.adb (Freeze_Record_Type): Use the
3347 underlying type of the component type to determine whether it's
3348 elementary. For representation clause purposes, a private type
3349 should behave the same as its full type.
3350 * fname.ads, fname.adb (Is_Predefined_File_Name):
3351 Make sure things like "system.ali" are recognized as predefined.
3353 2017-04-25 Javier Miranda <miranda@adacore.com>
3355 * debug.adb: Update documentation of -gnatd.6.
3357 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3359 * sem_ch5.adb (Preanalyze_Range): Handle properly an Ada2012
3360 element iterator when the name is an overloaded function call,
3361 one of whose interpretations yields an array.
3363 2017-04-25 Bob Duff <duff@adacore.com>
3365 * uname.ads, uname.adb (Is_Predefined_Unit_Name,
3366 Is_Internal_Unit_Name): New functions for operating on unit
3367 names, as opposed to file names. There's some duplicated code
3368 with fname.adb, which is unfortunate, but it seems like we don't
3369 want to add dependencies here.
3370 * fname-uf.adb (Get_File_Name): Change Is_Predefined_File_Name
3371 to Is_Predefined_Unit_Name; the former was wrong, because Uname
3372 is not a file name at all.
3373 * fname.ads, fname.adb: Document the fact that
3374 Is_Predefined_File_Name and Is_Internal_File_Name can be called
3375 for ALI files, and fix the code so it works properly for ALI
3376 files. E.g. these should return True for "system.ali".
3378 2017-04-25 Justin Squirek <squirek@adacore.com>
3380 * exp_util.adb (Add_Invariant): Removed,
3381 code moved to Add_Invariant_Check, Add_Inherited_Invariant,
3382 and Add_Own_Invariant. (Add_Invariant_Check): Used
3383 for adding runtime checks from any kind of invariant.
3384 (Add_Inherited_Invariant): Generates invariant checks for
3385 class-wide invariants (Add_Interface_Invariants): Removed, code
3386 moved to Build_Invariant_Procedure_Body (Add_Own_Invariant):
3387 Create a types own invariant procedure (Add_Parent_Invariants):
3388 Removed, code moved to Build_Invariant_Procedure_Body
3389 (Build_Invariant_Procedure_Body): Add refactored calls
3390 and integrated code from Add_Parent_Invariants and
3391 Add_Interface_Invariants.
3392 (Process_Type): Removed, the
3393 relavant code was inlined into both Add_Own_Invariant and
3394 Add_Inherited_Invariant.
3396 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3398 * make.adb, par-ch2.adb, sem_util.adb, scans.ads, sem_ch8.adb,
3399 scn.adb, osint.adb, fname.adb: Minor reformatting.
3401 2017-04-25 Pascal Obry <obry@adacore.com>
3403 * s-taprop-mingw.adb: Do not check for CloseHandle in
3406 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3408 * sem_util.adb (Check_Part_Of_Reference):
3409 Continue to examine the context if the reference appears within
3410 an expression function.
3412 2017-04-25 Justin Squirek <squirek@adacore.com>
3414 * exp_ch7.adb, exp_ch7.ads Remove Build_Invariant_Procedure_Body
3415 and Build_Invariant_Procedure_Declaration.
3416 * exp_util.ads, exp_util.adb Add Build_Invariant_Procedure_Body
3417 and Build_Invariant_Procedure_Declaration from exp_ch7
3418 and break-out Is_Untagged_Private_Derivation from
3419 Build_Invariant_Procedure_Body.
3420 (Replace_Type_References):
3421 Append an extra parameter to allow for dispatching replacements
3422 and add the corrasponding logic.
3423 (Type_Invariant): Remove
3424 Replace_Typ_Refs and replace its references with calls to
3425 Replace_Type_References.
3426 * sem_ch3.adb, sem_prag.adb: Remove with and use of exp_ch7.
3428 2017-04-25 Bob Duff <duff@adacore.com>
3430 * sem_util.ads, sem_util.adb (Should_Ignore_Pragma): New function
3431 that returns True when appropriate.
3432 * par-prag.adb, exp_prag.adb, sem_prag.adb: Do not ignore pragmas
3433 when compiling predefined files.
3434 * fname.ads, fname.adb (Is_Predefined_File_Name): Fix bug:
3435 "gnat.adc" should not be considered a predefined file name.
3436 That required (or at least encouraged) a lot of cleanup of global
3437 variable usage. We shouldn't be communicating information via
3438 the global name buffer.
3439 * bindgen.adb, errout.adb, fname-uf.adb, lib-load.adb, make.adb,
3440 * restrict.adb, sem_ch10.adb, sem_ch6.adb, sem_ch8.adb: Changes
3441 required by the above-mentioned cleanup.
3443 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3445 * osint.adb (Find_File): Handle properly a request for a
3446 configuration file whose name is a directory.
3448 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3450 * sem_attr.adb, sem_ch5.adb: Minor reformatting.
3452 2017-04-25 Bob Duff <duff@adacore.com>
3454 * types.ads: Minor: Fix '???' comment.
3455 * sem_ch8.adb: Minor comment fix.
3457 2017-04-25 Bob Duff <duff@adacore.com>
3459 * sem_prag.adb: Remove suspicious uses of Name_Buf.
3460 * stringt.ads, stringt.adb, exp_dbug.adb, sem_dim.adb: Remove
3461 Add_String_To_Name_Buffer, to avoid using the global Name_Buf.
3462 Add String_To_Name with no side effects.
3464 2017-04-25 Justin Squirek <squirek@adacore.com>
3466 * sem_ch3.adb (Analyze_Declarations): Add
3467 additional condition for edge case.
3469 2017-04-25 Bob Duff <duff@adacore.com>
3471 * par-ch2.adb, scans.ads, scn.adb: Do not give an error for
3472 reserved words inside pragmas. This is necessary to allow the
3473 pragma name Interface to be used in pragma Ignore_Pragma.
3474 * par.adb: Minor comment fix.
3476 2017-04-25 Javier Miranda <miranda@adacore.com>
3478 * a-tags.ads, a-tags.adb (Type_Is_Abstract): Renamed as Is_Abstract.
3479 * rtsfind.ads (RE_Type_Is_Abstract): Renamed as Is_Abstract.
3480 * exp_disp.adb (Make_DT): Update occurrences of RE_Type_Is_Abstract.
3481 * exp_intr.adb (Expand_Dispatching_Constructor_Call): Update
3482 occurrences of RE_Type_Is_Abstract
3484 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3486 * exp_util.adb (Build_Chain): Account for ancestor
3487 subtypes while traversing the derivation chain.
3489 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3491 * sem_attr.adb: minor reformatting.
3493 2017-04-25 Doug Rupp <rupp@adacore.com>
3495 * sigtramp-vxworks-target.inc [PPC64]: Add a .localentry pseudo-op.
3497 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3499 * sem_ch5.adb (Analyze_Assignment): Reset Full_Analysis flag on
3500 the first pass over an assignment statement with target names,
3501 to prevent the generation of subtypes (such as discriminated
3502 record components)that may carry the target name outside of the
3503 tree for the assignment. The subtypes will be generated when
3504 the assignment is reanalyzed in full.
3505 (Analyze_Target_Name): Handle properly class-wide types.
3507 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3509 * elists.ads, elists.adb (Prepend_Unique_Elmt): New routine.
3510 * exp_ch3.adb (Freeze_Type): Signal the DIC body is created for
3511 the purposes of freezing.
3512 * exp_util.adb Update the documentation and structure of the
3513 type map used in class-wide semantics of assertion expressions.
3514 (Add_Inherited_Tagged_DIC): There is really no need to preanalyze
3515 and resolve the triaged expression because all substitutions
3516 refer to the proper entities. Update the replacement of
3518 (Build_DIC_Procedure_Body): Add formal parameter
3519 For_Freeze. Add local variable Build_Body. Inherited DIC pragmas
3520 are now only processed when freezing occurs. Build a body only
3522 (Entity_Hash): Removed.
3523 (Map_Types): New routine.
3524 (Replace_Object_And_Primitive_References): Removed.
3525 (Replace_References): New routine.
3526 (Replace_Type_References): Moved to the library level of Exp_Util.
3527 (Type_Map_Hash): New routine.
3528 (Update_Primitives_Mapping): Update the mapping call.
3529 (Update_Primitives_Mapping_Of_Types): Removed.
3530 * exp_util.ads (Build_DIC_Procedure_Body): Add formal
3531 parameter For_Freeze and update the comment on usage.
3532 (Map_Types): New routine.
3533 (Replace_References): New routine.
3534 (Replace_Type_References): Moved to the library level of Exp_Util.
3535 (Update_Primitives_Mapping_Of_Types): Removed.
3536 * sem_ch7.adb (Preserve_Full_Attributes): Propagate the DIC
3537 properties of the private type to the full view in case the full
3538 view derives from a parent type and inherits a DIC pragma.
3539 * sem_prag.adb (Analyze_Pragma): Guard against a case where a
3540 DIC pragma is placed at the top of a declarative region.
3542 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
3544 * a-tasatt.adb: Complete previous change and use an unsigned
3545 int to avoid overflow checks.
3547 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3549 * sem_attr.adb (Analyze_Attribute, case 'Access): Specialize
3550 the error message when the attribute reference is an actual in
3551 a call to a subprogram inherited from a generic formal type with
3552 unknown discriminants, which makes the subprogram and its formal
3553 parameters intrinsic (see RM 6.3.1 (8) and (13)).
3555 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3557 * sem_aggr.adb, inline.adb, einfo.adb, einfo.ads, scng.adb,
3558 sem_prag.adb: Minor reformatting.
3560 2017-04-25 Bob Duff <duff@adacore.com>
3562 * sem_attr.adb (Type_Key): Add code in the
3563 recursive Compute_Type_Key to protect against fetching the source
3564 code for Standard, in case a component of the type is declared
3565 in Standard. There was already code to do this for the original
3566 type, but not for its components.
3568 2017-04-25 Javier Miranda <miranda@adacore.com>
3570 * exp_ch3.adb (Build_Initialization_Call): Handle
3571 subtypes of private types when searching for the underlying full
3572 view of a private type.
3574 2017-04-25 Javier Miranda <miranda@adacore.com>
3576 * sem_res.adb (Set_Mixed_Mode_Operand): A universal
3577 real conditional expression can appear in a fixed-type context
3578 and must be resolved with that context to facilitate the code
3579 generation to the backend.
3581 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3583 * einfo.adb, einfo.ads (Body_Needed_For_Inlining): New flag,
3584 to indicate whether during inline processing, when some unit U1
3585 appears in the context of a unit U2 compiled for instantiation
3586 or inlining purposes, the body of U1 needs to be compiled as well.
3587 * sem_prag.adb (Process_Inline): Set Body_Needed_For_Inlining if
3588 context is a package declaration.
3589 * sem_ch12.adb (Analyze_Generic_Subprogram_Declaration,
3590 Analyze_Generic_Package_Declaration): ditto.
3591 * inline.adb (Analyze_Inlined_Bodies): Check
3592 Body_Needed_For_Inlining.
3594 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3596 * par.adb (Current_Assign_Node): Global variable use to record
3597 the presence of a target_name in the right hand side of the
3598 assignment being parsed.
3599 * par-ch4.adb (P_Name): If the name is a target_name, mark the
3600 enclosing assignment node accordingly.
3601 * par-ch5.adb (P_Assignment_Statement): Set Current_Assign_Node
3603 * sem_ch5.adb (Analyze_Assignment): Disable expansion before
3604 analyzing RHS if the statement has target_names.
3605 * sem_aggr.adb (Resolve_Iterated_Component_Association): Handle
3606 properly choices that are subtype marks.
3607 * exp_ch5.adb: Code cleanup.
3609 2017-04-25 Bob Duff <duff@adacore.com>
3611 * s-memory.adb: Add a comment regarding efficiency.
3612 * atree.adb: Fix the assertion, and combine 2 assertions into one,
3613 "the source has an extension if and only if the destination does."
3614 * sem_ch3.adb, sem_ch13.adb: Address ??? comments.
3616 2017-04-25 Arnaud Charlet <charlet@adacore.com trojanek>
3618 * a-tasatt.adb (Set_Value): Fix handling of 32bits -> 64bits
3621 2017-04-25 Doug Rupp <rupp@adacore.com>
3623 * init.c (__gnat_error_handler) [vxworks]: Turn on sigtramp
3624 handling for ppc64-vx7.
3625 * sigtramp-vxworks-target.inc
3626 [SIGTRAMP_BODY]: Add section for ppc64-vx7.
3628 2017-04-25 Arnaud Charlet <charlet@adacore.com>
3630 * ada_get_targ.adb: New file.
3632 2017-04-25 Bob Duff <duff@adacore.com>
3634 * uintp.adb (Most_Sig_2_Digits): In case Direct (Right), fetch
3635 Direct_Val (Right), instead of the incorrect Direct_Val (Left).
3636 (UI_GCD): Remove ??? comment involving possible efficiency
3637 improvements. This just isn't important after all these years.
3639 * uintp.ads: Minor cleanup.
3641 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3643 * exp_util.adb, exp_util.ads, sem_ch7.adb, sem_prag.adb, exp_ch3.adb:
3644 Revert previous changes.
3645 * scng.adb: Minor reformatting.
3646 * s-stratt.ads: Fix unbalanced parens in comment.
3648 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3650 * sem_ch3.adb, exp_util.adb, sem_prag.adb, freeze.adb, sem_util.adb:
3653 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3655 * scng.adb (Scan): Handle '@' appropriately.
3656 * sem_ch5.adb: Code cleanup.
3658 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3660 * freeze.adb (Check_Expression_Function): Do not check for the
3661 use of deferred constants if the freezing of the expression
3662 function is triggered by its generated body, rather than a
3665 2017-04-25 Javier Miranda <miranda@adacore.com>
3667 * exp_attr.adb (Rewrite_Stream_Proc_Call): Handle
3668 subtypes of private types when performing the view conversion.
3670 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3672 * exp_ch3.adb (Freeze_Type): Signal the DIC body is created for
3673 the purposes of freezing.
3674 * exp_util.adb Update the documentation and structure of the
3675 type map used in class-wide semantics of assertion expressions.
3676 (Add_Inherited_Tagged_DIC): There is really no need to preanalyze
3677 and resolve the triaged expression because all substitutions
3678 refer to the proper entities. Update the replacement of
3680 (Build_DIC_Procedure_Body): Add formal parameter
3681 For_Freeze. Add local variable Build_Body. Inherited DIC pragmas
3682 are now only processed when freezing occurs. Build a body only
3684 (Entity_Hash): Removed.
3685 (Map_Types): New routine.
3686 (Replace_Object_And_Primitive_References): Removed.
3687 (Replace_References): New routine.
3688 (Replace_Type_References): Moved to the library level of Exp_Util.
3689 (Type_Map_Hash): New routine.
3690 (Update_Primitives_Mapping): Update the mapping call.
3691 (Update_Primitives_Mapping_Of_Types): Removed.
3692 * exp_util.ads (Build_DIC_Procedure_Body): Add formal
3693 parameter For_Freeze and update the comment on usage.
3694 (Map_Types): New routine.
3695 (Replace_References): New routine.
3696 (Replace_Type_References): Moved to the library level of Exp_Util.
3697 (Update_Primitives_Mapping_Of_Types): Removed.
3698 * sem_ch7.adb (Preserve_Full_Attributes): Propagate the DIC
3699 properties of the private type to the full view in case the full
3700 view derives from a parent type and inherits a DIC pragma.
3701 * sem_prag.adb (Analyze_Pragma): Guard against a case where a
3702 DIC pragma is placed at the top of a declarative region.
3704 2017-04-25 Tristan Gingold <gingold@adacore.com>
3706 * s-mmap.ads (Data): Add pragma Inline.
3708 2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
3710 * checks.adb (Insert_Valid_Check): Do not use
3711 a renaming to alias a volatile name because this will lead to
3712 multiple evaluations of the volatile name. Use a constant to
3713 capture the value instead.
3715 2017-04-25 Doug Rupp <rupp@adacore.com>
3717 * init.c [VxWorks Section]: Disable sigtramp for ppc64-vx7.
3719 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3721 * exp_util.adb, exp_util.ads (Build_Class_Wide_Expression):
3722 Add out parameter to indicate to caller that a wrapper must
3723 be constructed for an inherited primitive whose inherited
3724 pre/postcondition has called to overridden primitives.
3725 * freeze.adb (Check_Inherited_Conditions): Build wrapper body
3726 for inherited primitive that requires it.
3727 * sem_disp.adb (Check_Dispatching_Operation): Such wrappers are
3728 legal primitive operations and belong to the list of bodies
3729 generated after the freeze point of a type.
3730 * sem_prag.adb (Build_Pragma_Check_Equivalent): Use new signature
3731 of Build_Class_Wide_Expression.
3732 * sem_util.adb, sem_util.ads (Build_Overriding_Spec): New procedure
3733 to construct the specification of the wrapper subprogram created
3734 for an inherited operation.
3736 2017-04-25 Bob Duff <duff@adacore.com>
3738 * s-osinte-linux.ads (pthread_mutexattr_setprotocol,
3739 pthread_mutexattr_setprioceiling): Add new interfaces for these
3741 * s-taprop-linux.adb (Initialize_Lock, Initialize_TCB): Set
3742 protocols as appropriate for Locking_Policy 'C' and 'I'.
3743 * s-taprop-posix.adb: Minor reformatting to make it more similar
3744 to s-taprop-linux.adb.
3746 2017-04-25 Ed Schonberg <schonberg@adacore.com>
3748 * sem_ch3.adb (Get_Discriminant_Value, Search_Derivation_Levels):
3749 Handle properly a multi- level derivation involving both renamed
3750 and constrained parent discriminants, when the type to be
3751 constrained has fewer discriminants that the ultimate ancestor.
3753 2017-04-25 Bob Duff <duff@adacore.com>
3755 * sem_util.adb (Is_Object_Reference): In the
3756 case of N_Explicit_Dereference, return False if it came from a
3757 conditional expression.
3759 2017-04-25 Bob Duff <duff@adacore.com>
3761 * par-ch4.adb (P_Case_Expression): If a semicolon
3762 is followed by "when", assume that ";" was meant to be ",".
3764 2017-04-25 Gary Dismukes <dismukes@adacore.com>
3766 * sem_ch9.adb, sem_ch10.adb, sem_util.adb: Minor reformatting and typo
3769 2017-04-25 Arnaud Charlet <charlet@adacore.com>
3771 * rtsfind.ads (SPARK_Implicit_Load): New procedure for forced
3772 loading of an entity.
3773 * rtsfind.adb (SPARK_Implicit_Load): Body with a pattern
3774 previously repeated in the analysis.
3775 * sem_ch9.adb (Analyze_Protected_Type_Declaration): use new
3776 procedure SPARK_Implicit_Load. (Analyze_Task_Type_Declaration):
3777 use new procedure SPARK_Implicit_Load.
3778 * sem_ch10.adb (Analyze_Compilation_Unit): Use new procedure
3779 SPARK_Implicit_Load.
3781 2017-04-25 Javier Miranda <miranda@adacore.com>
3783 * sem_util.adb (New_Copy_Tree): By default
3784 copying of defining identifiers is prohibited because
3785 this would introduce an entirely new entity into the
3786 tree. This patch introduces an exception to this general
3787 rule: the declaration of constants and variables located in
3788 Expression_With_Action nodes.
3789 (Copy_Itype_With_Replacement): Renamed as Copy_Entity_With_Replacement.
3790 (In_Map): New subprogram.
3791 (Visit_Entity): New subprogram.
3792 (Visit_Node): Handle EWA_Level,
3793 EWA_Inner_Scope_Level, and take care of defining entities defined
3794 in Expression_With_Action nodes.
3796 2017-04-25 Thomas Quinot <quinot@adacore.com>
3798 * exp_ch6.adb: minor comment edit.
3799 * sinfo.ads, sinfo.adb: New Null_Statement attribute for null
3800 procedure specifications that come from source.
3801 * par-ch6.adb (P_Subprogram, case of a null procedure): Set new
3802 Null_Statement attribute.
3803 * par_sco.adb (Traverse_Declarations_Or_Statements): For a null
3804 procedure, generate statement SCO for the generated NULL statement.
3805 * sem_ch6.adb (Analyze_Null_Procedure): Use null statement from
3806 parser, if available.
3808 2017-04-04 Andreas Krebbel <krebbel@linux.vnet.ibm.com>
3810 * system-linux-s390.ads: Use Long_Integer'Size to define
3813 2017-04-04 Eric Botcazou <ebotcazou@adacore.com>
3815 * sem_ch3.adb (Build_Derived_Record_Type): Fix long line.
3817 2017-04-03 Jonathan Wakely <jwakely@redhat.com>
3819 * doc/gnat_ugn/gnat_and_program_execution.rst: Fix typo.
3820 * g-socket.adb (To_Host_Entry): Fix typo in comment.
3821 * gnat_ugn.texi: Fix typo.
3822 * raise.c (_gnat_builtin_longjmp): Fix capitalization in comment.
3823 * s-stposu.adb (Allocate_Any_Controlled): Fix typo in comment.
3824 * sem_ch3.adb (Build_Derived_Record_Type): Likewise.
3825 * sem_util.adb (Mark_Coextensions): Likewise.
3826 * sem_util.ads (Available_Full_View_Of_Component): Likewise.
3828 2017-03-28 Andreas Schwab <schwab@suse.de>
3831 * system-linux-aarch64-ilp32.ads: New file.
3832 * gcc-interface/Makefile.in (LIBGNAT_TARGET_PAIRS_COMMON): Rename
3833 from LIBGNAT_TARGET_PAIRS.
3834 (LIBGNAT_TARGET_PAIRS_32, LIBGNAT_TARGET_PAIRS_64): Define.
3835 (LIBGNAT_TARGET_PAIRS): Use LIBGNAT_TARGET_PAIRS_COMMON, and
3836 LIBGNAT_TARGET_PAIRS_64 or LIBGNAT_TARGET_PAIRS_32 for -mabi=lp64
3837 or -mabi=ilp32, resp.
3839 2017-03-14 James Cowgill <James.Cowgill@imgtec.com>
3841 * s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags.
3843 2017-03-08 Thanassis Tsiodras <ttsiodras@gmail.com>
3846 * socket.c (__gnat_gethostbyaddr): Add missing test for __rtems__.
3848 2017-03-08 Eric Botcazou <ebotcazou@adacore.com>
3851 * system-linux-ppc.ads (Default_Bit_Order): Use Standard's setting.
3853 * system-linux-arm.ads (Default_Bit_Order): Likewise.
3854 * system-linux-mips.ads (Default_Bit_Order): Likewise.
3855 * system-linux-armeb.ads: Delete.
3856 * system-linux-mipsel.ads: Likewise.
3857 * gcc-interface/Makefile.in (MIPS/Linux): Adjust.
3858 (ARM/Linux): Likewise.
3860 2017-02-24 Jakub Jelinek <jakub@redhat.com>
3863 * gcc-interface/misc.c (gnat_handle_option): Pass true to
3864 handle_generated_option GENERATED_P.
3866 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3868 * gcc-interface/decl.c (gnat_to_gnu_field): Do not remove the wrapper
3869 around a justified modular type if it doesn't have the same scalar
3870 storage order as the enclosing record type.
3872 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3874 * gcc-interface/trans.c (gnat_to_gnu): Do not apply special handling
3875 of boolean rvalues to function calls.
3877 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3879 * gcc-interface/utils.c (fold_bit_position): New function.
3880 (rest_of_record_type_compilation): Call it instead of bit_position to
3881 compute the field position and remove the call to remove_conversions.
3882 (compute_related_constant): Factor out the multiplication in both
3883 operands, if any, and streamline the final test.
3885 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3887 * gcc-interface/trans.c (return_value_ok_for_nrv_p): Add sanity check.
3889 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3891 * gcc-interface/decl.c: Include demangle.h.
3892 (is_cplusplus_method): Return again true for a primitive operation
3893 only if it is dispatching. For a subprogram with an interface name,
3894 call the demangler to get the number of C++ parameters and compare it
3895 with the number of Ada parameters.
3897 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3899 * gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu): If
3900 there is no end label, put the location of the At_End procedure on
3901 the call to the procedure.
3903 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3905 * gcc-interface/misc.c (gnat_type_max_size): Try to return a meaningful
3906 value for array types with TYPE_INDEX_TYPE set on their domain type.
3907 * gcc-interface/utils.c (max_size): For operations and expressions, do
3908 not build a new node if the operands have not changed or are missing.
3910 2017-02-24 Eric Botcazou <ebotcazou@adacore.com>
3912 * gcc-interface/utils.c (max_size) <tcc_expression>: Flip the second
3913 argument when recursing on TRUTH_NOT_EXPR.
3915 2017-02-12 John Marino <gnugcc@marino.st>
3917 * system-freebsd-x86.ads: Rename into...
3918 * system-freebsd.ads: ...this.
3919 (Default_Bit_Order): Define using Standard'Default_Bit_Order.
3920 * gcc-interface/Makefile.in: Support aarch64-freebsd.
3921 (x86-64/FreeBSD): Adjust to above renaming.
3922 (i386/FreeBSD): Likewise.
3924 2017-02-09 Gerald Pfeifer <gerald@pfeifer.com>
3926 * comperr.adb: Update FSF bug reporting URL.
3928 2017-02-01 Eric Botcazou <ebotcazou@adacore.com>
3929 Jakub Jelinek <jakub@redhat.com>
3932 * adaint.c (__gnat_killprocesstree): Fix broken string handling.
3934 2017-01-25 Maxim Ostapenko <m.ostapenko@samsung.com>
3937 * gcc-interface/utils.c (get_global_context): Pass main_input_filename
3938 to build_translation_unit_decl.
3940 2017-01-23 Javier Miranda <miranda@adacore.com>
3942 * sem_util.adb (New_Copy_Tree): Code cleanup:
3943 removal of the internal map (ie. variable Actual_Map, its
3944 associated local variables, and all the code handling it).
3945 * sem_ch9.adb (Analyze_Task_Type_Declaration): in GNATprove mode
3946 force loading of the System package when processing a task type.
3947 (Analyze_Protected_Type_Declaration): in GNATprove mode force
3948 loading of the System package when processing a protected type.
3949 * sem_ch10.adb (Analyze_Compilation_Unit): in GNATprove mode
3950 force loading of the System package when processing compilation
3951 unit with a main-like subprogram.
3952 * frontend.adb (Frontend): remove forced loading of the System
3955 2017-01-23 Ed Schonberg <schonberg@adacore.com>
3957 * sem_prag.adb (Default_Initial_Condition): If the desired type
3958 declaration is a derived type declaration with discriminants,
3959 it is rewritten as a private type declaration.
3960 * sem_ch13.adb (Replace_Type_References_Generic,
3961 Visible_Component): A discriminated private type with descriminnts
3962 has components that must be rewritten as selected components
3963 if they appear as identifiers in an aspect expression such as
3964 a Default_Initial_Condition.
3965 * sem_util.adb (Defining_Entity): support N_Iterator_Specification
3968 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
3970 * ghost.ads, ghost.adb (Is_Ignored_Ghost_Unit): New routine.
3971 * gnat1drv.adb Generate an empty object file for an ignored
3972 Ghost compilation unit.
3973 * inline.adb, sem_util.adb, sem_ch4.adb: Minor reformatting.
3975 2017-01-23 Yannick Moy <moy@adacore.com>
3977 * sem_ch4.adb (Analyze_Indexed_Component_Form):
3978 Adapt to inlined prefix with string literal subtype.
3979 * inline.adb (Expand_Inlined_Call): Keep unchecked
3980 conversion inside inlined call when formal type is constrained.
3982 2017-01-23 Javier Miranda <miranda@adacore.com>
3984 * sem_util.adb (New_Copy_Tree): Code cleanup:
3985 removal of global variables. All the global variables, global
3986 functions and tables of this subprogram are now declared locally.
3988 2017-01-23 Gary Dismukes <dismukes@adacore.com>
3990 * exp_strm.ads: Minor reformatting and typo fixes.
3992 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
3994 * sem_aggr.adb, par_sco.adb, exp_util.adb, sem.adb, sem_ch4.adb,
3995 exp_aggr.adb: Minor reformatting.
3996 * g-diopit.adb: minor grammar/punctuation fix in comment.
3997 * g-byorma.ads: minor fix of unbalanced parens in comment.
3999 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4001 * par.adb: Update the documentation of component Labl.
4002 * par-ch6.adb (P_Return_Statement): Set the expected label of
4003 an extended return statement to Error.
4005 2017-01-23 Tristan Gingold <gingold@adacore.com>
4007 * s-boustr.ads, s-boustr.adb (Is_Full): New function.
4009 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4011 * expander.adb: Handle N_Delta_Aggregate.
4013 2017-01-23 Javier Miranda <miranda@adacore.com>
4015 * exp_ch6.adb (Expand_Call): Improve the code that
4016 checks if some formal of the called subprogram is a class-wide
4017 interface, to handle subtypes of class-wide interfaces.
4019 2017-01-23 Javier Miranda <miranda@adacore.com>
4021 * checks.adb (Apply_Parameter_Aliasing_Checks):
4022 Remove side effects of the actuals before generating the overlap
4025 2017-01-23 Justin Squirek <squirek@adacore.com>
4027 * exp_strm.ads, exp_strm.ads
4028 (Build_Record_Or_Elementary_Input_Function): Add an extra parameter so
4029 as to avoid getting the underlying type by default.
4030 * exp_attr.adb (Expand_N_Attribute_Reference): Remove use of
4031 underlying type in the Iiput and output attribute cases when
4032 building their respective functions.
4034 2017-01-23 Gary Dismukes <dismukes@adacore.com>
4036 * scng.adb: Minor reformatting of error message.
4038 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4040 * sem_ch6.adb (Analyze_Expression_Function): Do not attempt
4041 to freeze the return type of an expression funxtion that is a
4042 completion, if the type is a limited view and the non-limited
4045 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4047 * par-ch4.adb (P_Aggregate_Or_Parent_Expr): Recognize delta
4048 aggregate construct.
4049 (P_Record_Or_Array_Component_Association): An array aggregate
4050 can start with an Iterated_Component_Association.
4051 * scng.adb: Modify error message on improper use of @ in earlier
4052 versions of the language.
4053 * sinfo.ads: New node kind N_Delta_Aggregate.
4054 * sinfo.adb: An N_Delta_Aggregate has component associations and
4056 * sem_res.adb (Resolve): Call Resolve_Delta_Aggregate.
4057 * sem_aggr.ads, sem_aggr.adb (Resolve_Iterated_Component_Association):
4058 Create a new index for each one of the choices in the association,
4059 to prevent spurious homonyms in the scope.
4060 (Resolve_Delta_Aggregate): New.
4061 * sem.adb: An N_Delta_Aggregate is analyzed like an aggregate.
4062 * exp_util.adb (Insert_Actions): Take into account
4064 * exp_aggr.ads: New procedure Expand_N_Delta_Aggregate.
4065 * exp_aggr.adb: New procedure Expand_N_Delta_Aggregate,
4066 and local procedures Expand_Delta_Array_Aggregate and
4067 expand_Delta_Record_Aggregate.
4068 * sprint.adb: Handle N_Delta_Aggregate.
4070 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4072 * exp_ch11.adb (Expand_N_Exception_Declaration): Generate an
4073 empty name when the exception declaration is subject to pragma
4075 (Null_String): New routine.
4077 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4079 * par-ch9.adb (P_Protected_Definition): Parse
4080 any optional and potentially illegal pragmas which appear in
4081 a protected operation declaration list.
4082 (P_Task_Items): Parse
4083 any optional and potentially illegal pragmas which appear in a
4086 2017-01-23 Pascal Obry <obry@adacore.com>
4088 * s-taprop-mingw.adb (Enter_Task): Initialize the Thread handle which
4089 is needed when a foreign thread call a Win32 API using a thread handle
4090 like GetThreadTimes() for example.
4092 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4094 * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Do not
4095 allow an 'Address clause to be specified on a prefix of a
4098 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4100 * checks.adb (Insert_Valid_Check): Ensure that the prefix of
4101 attribute 'Valid is a renaming of the original expression when
4102 the expression denotes a name. For all other kinds of expression,
4103 use a constant to capture the value.
4104 * exp_util.adb (Is_Name_Reference): Moved to Sem_Util.
4105 * sem_util.ads, sem_util.adb (Is_Name_Reference): Moved from Exp_Util.
4107 2017-01-23 Justin Squirek <squirek@adacore.com>
4109 * sem_eval.adb (Eval_Integer_Literal): Add special
4110 case to avoid optimizing out check if the literal appears in
4113 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4115 * sem_ch13.adb (Analyze_Attribute_Definition_Clause): Do not
4116 allow an 'Address clause to be specified on a prefix of a
4119 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4121 * checks.adb (Insert_Valid_Check): Ensure that the prefix of
4122 attribute 'Valid is a renaming of the original expression when
4123 the expression denotes a name. For all other kinds of expression,
4124 use a constant to capture the value.
4125 * exp_util.adb (Is_Name_Reference): Moved to Sem_Util.
4126 * sem_util.ads, sem_util.adb (Is_Name_Reference): Moved from Exp_Util.
4128 2017-01-23 Justin Squirek <squirek@adacore.com>
4130 * sem_eval.adb (Eval_Integer_Literal): Add special
4131 case to avoid optimizing out check if the literal appears in
4134 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4136 * sem_ch4.adb (Try_Primitive_Operations,
4137 Is_Valid_First_Argument_Of): argument is valid if it is a derived
4138 type with unknown discriminants that matches its underlying
4140 * exp_util.adb (Expand_Subtype_From_Expr): Do not expand
4141 expression if its type is derived from a limited type with
4142 unknown discriminants, because the expansion (which is a call)
4143 must be expanded in the enclosing context to add the proper build-
4144 in-place parameters to the call.
4145 * lib.ads, exp_ch9.adb: Minor fixes in comments.
4147 2017-01-23 Yannick Moy <moy@adacore.com>
4149 * frontend.adb (Frontend): Do not load runtime
4150 unit for GNATprove when parsing failed.
4151 * exp_ch9.adb: minor removal of extra whitespace
4152 * exp_ch6.adb: minor typo in comment
4153 * sem_util.adb: Code cleanup.
4154 * exp_ch9.ads, par-ch2.adb: minor style fixes in whitespace and comment
4155 * a-ngcefu.adb: minor style fix in whitespace
4157 2017-01-23 Thomas Quinot <quinot@adacore.com>
4159 * scos.ads: Document usage of 'd' as default SCO kind for
4161 * par_sco.adb (Traverse_Declarations_Or_Statements.
4162 Traverse_Degenerate_Subprogram): New supporting routine for expression
4163 functions and null procedures.
4164 (Traverse_Declarations_Or_Statements.Traverse_One): Add
4165 N_Expression_Function to the subprogram case; add required
4166 support for null procedures and expression functions.
4168 2017-01-23 Bob Duff <duff@adacore.com>
4170 * namet.ads (Bounded_String): Decrease the size of type
4171 Bounded_String to avoid running out of stack space.
4172 * namet.ads (Append): Don't ignore buffer overflow; raise
4173 Program_Error instead.
4175 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4177 * exp_ch5.adb, freeze.adb, par-ch4.adb, scng.adb, sem_ch13.adb,
4178 sem_ch3.adb, sem_ch5.adb, sem_ch5.ads, sem_util.adb, sinfo.ads: Minor
4180 * exp_ch9.adb: minor style fix in comment.
4182 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4184 * sem_ch4.adb (Analyze_Allocator): Handle properly a type derived
4185 for a limited record extension with unknown discriminants whose
4186 full view has no discriminants.
4188 2017-01-23 Yannick Moy <moy@adacore.com>
4190 * exp_spark.adb: Alphabetize with clauses.
4192 2017-01-23 Yannick Moy <moy@adacore.com>
4194 * sem_util.adb (Has_Enabled_Property): Treat
4195 protected objects and variables differently from other variables.
4197 2017-01-23 Thomas Quinot <quinot@adacore.com>
4199 * sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order):
4200 Split original Ada 95 part off into new subprogram
4201 below. Call that subprogram (instead of proceeding with
4202 AI95-0133 behaviour) if debug switch -gnatd.p is in use.
4203 (Adjust_Record_For_Reverse_Bit_Order_Ada_95): ... new subprogram
4204 * debug.adb Document new switch -gnatd.p
4205 * freeze.adb (Freeze_Entity.Freeze_Record_Type): Do not adjust
4206 record for reverse bit order if an error has already been posted
4207 on the record type. This avoids generating extraneous "info:"
4208 messages for illegal code.
4210 2017-01-23 Justin Squirek <squirek@adacore.com>
4212 * sem_ch3.adb (Analyze_Declarations): Correct comments
4213 * freeze.adb (Find_Constant): Add detection of deferred constants
4214 so they are not incorrectly flagged as premature.
4216 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4218 * scans.ads: New token At_Sign. Remove '@' from list of illegal
4219 characters for future version of the language. '@' is legal name.
4220 * scng.ads, scng.adb (Scan): Handle '@' appropriately.
4221 * scn.adb (Scan_Reserved_Identifier): An occurrence of '@'
4222 denotes a Target_Name.
4223 * par-ch4.adb (P_Name, P_Primary): Handle Target_Name.
4224 * sinfo.ads, sinfo.adb (N_Target_Name): New non-terminal node.
4225 (Has_Target_Names): New flag on N_Assignment_Statement, to
4226 indicate that RHS has occurrences of N_Target_Name.
4227 * sem.adb: Call Analyze_Target_Name.
4228 * sem_ch5.ads, sem_ch5.adb (Analyze_Target_Name): New subpogram.
4229 (urrent_LHS): Global variable that denotes LHS of assignment,
4230 used in the analysis of Target_Name nodes.
4231 * sem_res.adb (Resolve_Target_Name): New procedure.
4232 * exp_ch5.adb (Expand_Assign_With_Target_Names): (AI12-0125):
4233 N is an assignment statement whose RHS contains occurences of @
4234 that designate the value of the LHS of the assignment. If the
4235 LHS is side-effect free the target names can be replaced with
4236 a copy of the LHS; otherwise the semantics of the assignment
4237 is described in terms of a procedure with an in-out parameter,
4238 and expanded as such.
4239 (Expand_N_Assignment_Statement): Call
4240 Expand_Assign_With_Target_Names when needed.
4241 * exp_util.adb (Insert_Actions): Take into account N_Target_Name.
4242 * sprint.adb: Handle N_Target_Name.
4244 2017-01-23 Eric Botcazou <ebotcazou@adacore.com>
4246 * checks.adb: Minor fix in comment.
4248 2017-01-23 Philippe Gil <gil@adacore.com>
4250 * g-debpoo.adb (Do_Report) remove freed chunks from chunks
4251 count in Sort = Memory_Usage or Allocations_Count
4253 2017-01-23 Justin Squirek <squirek@adacore.com>
4255 * sem_ch3.adb: Code cleanup.
4257 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4259 * sem_prag.adb (Analyze_Refined_Depends_In_Decl_Part): Move all global
4260 variables to the local variable section. Update the profile
4261 of various nested routine that previously had visibility
4262 of those globals. One the matching phase has completed,
4263 remove certain classes of clauses which are considered noise.
4264 (Check_Dependency_Clause): Properly detect a match between two
4265 'Result attributes. Update the various post-match cases to use
4266 Is_Already_Matched as this routine now automatically recognizes
4267 a previously matched 'Result attribute.
4268 (Is_Already_Matched): New routine.
4269 (Remove_Extra_Clauses): New routine.
4270 (Report_Extra_Clauses): Remove the detection of ... => null
4271 clauses as this is now done in Remove_Extra_Clauses.
4273 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4275 * sem_aggr.adb (Resolve_Array_Aggregate): In ASIS mode do not
4276 report on spurious overlaps between values involving a subtype
4277 with a static predicate, because the expansion of such a subtype
4278 into individual ranges in inhibited in ASIS mode.
4280 2017-01-23 Justin Squirek <squirek@adacore.com>
4282 * sem_ch3.adb (Analyze_Declarations): Add detection
4283 of an edge case and delay freezing if it is present.
4285 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4287 * sem_ch3.adb, exp_spark.adb, exp_attr.adb, sem_ch9.adb, sem_prag.adb,
4288 sem_util.adb, sem_warn.adb, exp_ch3.adb: Minor reformatting.
4290 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4292 * freeze.adb (Freeze_Subprogram): Ensure that all anonymous
4293 access-to-subprogram types inherit the convention of the
4294 associated subprogram. (Set_Profile_Convention): New routine.
4295 * sem_ch6.adb (Check_Conformance): Do not compare the conventions
4296 of the two entities directly, use Conventions_Match to account
4297 for anonymous access-to-subprogram and subprogram types.
4298 (Conventions_Match): New routine.
4300 2017-01-23 Claire Dross <dross@adacore.com>
4302 * exp_spark.adb (Expand_SPARK_Attribute_Reference): For attributes
4303 which return Universal_Integer, force the overflow check flag for
4304 Length and Range_Length for types as big as Long_Long_Integer.
4306 2017-01-23 Claire Dross <dross@adacore.com>
4308 * exp_spark.adb (Expand_SPARK_Attribute_Reference): For
4309 attributes which return Universal_Integer, introduce a conversion
4310 to the expected type with the appropriate check flags set.
4311 * sem_res.adb (Resolve_Range): The higher bound can be in Typ's
4312 base type if the range is null. It may still be invalid if it
4313 is higher than the lower bound. This is checked later in the
4314 context in which the range appears.
4316 2017-01-23 Pierre-Marie de Rodat <derodat@adacore.com>
4318 * scos.ads: Introduce a constant to represent ignored
4319 dependencies in SCO_Unit_Table_Entry.
4321 2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
4323 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Remove extra
4324 spaces from error messages.
4326 2017-01-23 Ed Schonberg <schonberg@adacore.com>
4328 * exp_ch3.adb (Check_Large_Modular_Array): New procedure,
4329 subsidiary to Expand_N_Object_ Declaration, to compute a guard on
4330 an object declaration for an array type with a modular index type
4331 with the size of Long_Long_Integer. Special processing is needed
4332 in this case to compute reliably the size of the object, and
4333 eventually to raise Storage_Error, when wrap-around arithmetic
4334 might compute a meangingless size for the object.
4336 2017-01-23 Justin Squirek <squirek@adacore.com>
4338 * a-wtenau.adb, par-endh.adb, sem_prag.adb,
4339 sem_type.adb: Code cleanups.
4341 2017-01-23 Bob Duff <duff@adacore.com>
4343 * sem_res.adb (Resolve_Call): In the part of the code where
4344 it is deciding whether to turn the call into an indexed
4345 component, avoid doing so if the call is to an instance of
4346 Unchecked_Conversion. Otherwise, the compiler turns it into an
4347 indexed component, and resolution of that turns it back into a
4348 function call, and so on, resulting in infinite recursion.
4349 * sem_util.adb (Needs_One_Actual): If the first formal has a
4350 default, then return False.
4352 2017-01-21 Eric Botcazou <ebotcazou@adacore.com>
4354 * sem_eval.adb (Compile_Time_Compare): Reinstate the expr+literal (etc)
4355 optimizations when the type is modular and the offsets are equal.
4357 2017-01-20 Thomas Quinot <quinot@adacore.com>
4359 * sem_warn.adb (Warn_On_Useless_Assignment): Adjust wording of warning
4362 2017-01-20 Nicolas Roche <roche@adacore.com>
4364 * terminals.c: Ignore failures on setpgid and tcsetpgrp commands.
4366 2017-01-20 Bob Duff <duff@adacore.com>
4368 * sem_eval.adb (Compile_Time_Compare): Disable the expr+literal
4369 (etc) optimizations when the type is modular.
4371 2017-01-20 Yannick Moy <moy@adacore.com>
4373 * sem_ch6.adb (Move_Pragmas): move some pragmas,
4374 but copy the SPARK_Mode pragma instead of moving it.
4375 (Build_Subprogram_Declaration): Ensure that the generated spec
4376 and original body share the same SPARK_Pragma aspect/pragma.
4377 * sem_util.adb, sem_util.ads (Copy_SPARK_Mode_Aspect): New
4378 procedure to copy SPARK_Mode aspect.
4380 2017-01-20 Bob Duff <duff@adacore.com>
4382 * sem_ch3.adb (Analyze_Declarations): Disable Resolve_Aspects
4384 * sem_ch13.adb (Resolve_Name): Enable setting the entity to
4385 Empty even in ASIS mode.
4387 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4389 * exp_ch9.adb: minor style fixes in comments.
4390 * sem_ch9.adb (Analyze_Delay_Relative): in GNATprove mode a delay
4391 relative statement introduces an implicit dependency on
4392 Ada.Real_Time.Clock_Time.
4393 * sem_util.adb: Minor reformatting.
4395 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4397 * sem_ch13.adb (Analyze_Aspect_Specifications): Aspect Alignment
4398 must be treated as delayed aspect even if the expression is
4399 a literal, because the aspect affects the freezing and the
4400 elaboration of the object to which it applies.
4402 2017-01-20 Tristan Gingold <gingold@adacore.com>
4404 * s-osinte-vxworks.ads (Interrup_Range): New subtype.
4406 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4408 * lib-xref.adb (Generate_Reference): Do not warn about the
4409 presence of a pragma Unreferenced if the entity appears as the
4410 actual in a procedure call that does not come from source.
4412 2017-01-20 Pascal Obry <obry@adacore.com>
4414 * expect.c, terminals.c: Fix some warnings about unused variables.
4415 * gsocket.h, adaint.c, adaint.h: Fix some more warnings in the C part
4418 2017-01-20 Bob Duff <duff@adacore.com>
4420 * exp_attr.adb (Constrained): Apply an access check (check that
4421 the prefix is not null) when the prefix denotes an object of an
4422 access type; that is, when there is an implicit dereference.
4424 2017-01-20 Gary Dismukes <dismukes@adacore.com>
4426 * s-rident.ads (constant Profile_Info): Remove
4427 No_Calendar from GNAT_Extended_Ravenscar restrictions.
4429 2017-01-20 Tristan Gingold <gingold@adacore.com>
4431 * s-maccod.ads: Add pragma No_Elaboration_Code_All
4433 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4435 * ghost.adb (Mark_Ghost_Clause): New routine.
4436 (Prune_Node): Do not prune compilation unit nodes.
4437 (Remove_Ignored_Ghost_Code): Prune the compilation unit node directly.
4438 This does not touch the node itself, but does prune all its fields.
4439 * ghost.ads (Mark_Ghost_Clause): New routine.
4440 * sem_ch8.adb (Analyze_Use_Package): Emit an error when a use
4441 package clause mentions Ghost and non-Ghost packages. Mark a
4442 use package clause as Ghost when it mentions a Ghost package.
4443 (Analyze_Use_Type): Emit an error when a use type clause mentions
4444 Ghost and non-Ghost types. Mark a use type clause as Ghost when
4445 it mentions a Ghost type.
4446 * sem_ch10.adb (Analyze_With_Clause): Mark a with clause as
4447 Ghost when it withs a Ghost unit.
4449 2017-01-20 Javier Miranda <miranda@adacore.com>
4451 * sem_res.adb (Resolve_Call): If a function call
4452 returns a limited view of a type and at the point of the call the
4453 function is not declared in the extended main unit then replace
4454 it with the non-limited view, which must be available. If the
4455 called function is in the extended main unit then no action is
4456 needed since the back-end handles this case.
4458 2017-01-20 Eric Botcazou <ebotcazou@adacore.com>
4460 * sem_ch7.adb (Contains_Subp_Or_Const_Refs): Rename into...
4461 (Contains_Subprograms_Refs): ...this. Adjust comment
4462 for constants. (Is_Subp_Or_Const_Ref): Rename into...
4463 (Is_Subprogram_Ref): ...this.
4464 (Has_Referencer): Rename Has_Non_Subp_Const_Referencer variable into
4465 Has_Non_Subprograms_Referencer and adjust comment. Remove
4466 incorrect shortcut for package declarations and bodies.
4468 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4470 * sem_ch3.adb (Complete_Private_Subtype): If the scope of the
4471 base type differs from that of the completion and the private
4472 subtype is an itype (created for a constraint on an access
4473 type e.g.), set Delayed_Freeze on both to prevent out-of-scope
4476 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4478 * sem_ch6.adb (Analyze_Subprogram_Body_Helper):
4479 When inheriting the SPARK_Mode of a prior expression function,
4480 look at the properly resolved entity rather than the initial
4481 candidate which may denote a homonym.
4483 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4485 * sem_prag.adb (Rewrite_Assertion_Kind): If the name is
4486 Precondition or Postcondition, and the context is pragma
4487 Check_Policy, indicate that this Pre-Ada2012 usage is deprecated
4488 and suggest the standard names Assertion_Policy /Pre /Post
4491 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4493 * sem_ch10.adb, sem_cat.adb: Minor reformatting.
4495 2017-01-20 Javier Miranda <miranda@adacore.com>
4497 * sem_ch3.adb (Access_Type_Declaration): Protect access to the
4499 * sem_ch10.adb (Install_Siblings): Skip processing malformed trees.
4500 * sem_cat.adb (Validate_Categoriztion_Dependency): Skip processing
4503 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4505 * sem_ch13.adb (Analyze_Aspect_Specification, case
4506 Dynamic_Predicate): If the entity E is a subtype that inherits
4507 a static predicate for its parent P,, the inherited and the
4508 new predicate combine in the generated predicate function,
4509 and E only has a dynamic predicate.
4511 2017-01-20 Tristan Gingold <gingold@adacore.com>
4513 * s-boustr.ads, s-boustr.adb: New package.
4514 * Makefile.rtl: Add s-boustr.
4516 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4518 * inline.adb (Process_Formals): Qualify the
4519 expression of a return statement when it yields a universal type.
4521 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4523 * freeze.adb (Freeze_All): Freeze the default
4524 expressions of all eligible formal parameters that appear in
4525 entries, entry families, and protected subprograms.
4527 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4529 * sem_ch3.adb (Check_Nonoverridable_Aspects); Refine check
4530 for illegal inherited Implicit_Dereference aspects with renamed
4533 2017-01-20 Javier Miranda <miranda@adacore.com>
4535 * debug.adb (switch d.6): do not avoid declaring unreferenced itypes.
4536 * nlists.ads (Lock_Lists, Unlock_Lists): New subprograms.
4537 * nlists.adb (Lock_Lists, Unlock_Lists): New subprograms.
4538 (Set_First, Set_Last, Set_List_Link, Set_Next, Set_Parent,
4539 Set_Prev, Tree_Read): Adding assertion.
4540 * atree.ads (Lock_Nodes, Unlock_Nodes): New subprograms.
4541 * atree.adb (Lock_Nodes, Unlock_Nodes): New subprograms.
4542 (Set_Analyzed, Set_Check_Actuals, Set_Comes_From_Source,
4543 Set_Ekind, Set_Error_Posted, Set_Has_Aspects,
4544 Set_Is_Ignored_Ghost_Node, Set_Original_Node, Set_Paren_Count,
4545 Set_Parent, Set_Sloc, Set_Nkind, Set_FieldNN, Set_NodeNN,
4546 Set_ListNN, Set_ElistNN, Set_NameN, Set_StrN, Set_UintNN,
4547 Set_UrealNN, Set_FlagNNN, Set_NodeN_With_Parent,
4548 Set_ListN_With_Parent): Adding assertion.
4550 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4552 * sem_prag.adb (Process_Convention): Diagnose properly a pragma
4553 import that applies to several homograph subprograms. when one
4554 of them is declared by a subprogram body.
4556 2017-01-20 Justin Squirek <squirek@adacore.com>
4558 * exp_ch6.adb (Expand_Call): Remove optimization
4559 that nulls out calls to null procedures.
4561 2017-01-20 Yannick Moy <moy@adacore.com>
4563 * inline.adb (Expand_Inlined_Call): Keep more
4564 precise type of actual for inlining whenever possible. In
4565 particular, do not switch to the formal type in GNATprove mode in
4566 some case where the GNAT backend might require it for visibility.
4568 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4570 * sem_ch3.adb (Check_Non_Overridable_Aspects): An inherited
4571 aspect Implicit_Dereference can be inherited by a full view if
4572 the partial view has no discriminants, because there is no way
4573 to apply the aspect to the partial view.
4574 (Build_Derived_Record_Type): If derived type renames discriminants
4575 of the parent, the new discriminant inherits the aspect from
4577 * sem_ch4.adb (Analyze_Call): Handle properly a parameterless
4578 call through an access discriminant designating a subprogram.
4579 * sem_ch5.adb (Analyze_Assignment): (Analyze_Call): Handle
4580 properly a parameterless call through an access discriminant on
4581 the left-hand side of an assignment.
4582 * sem_res.adb (resolve): If an interpreation involves a
4583 discriminant with an implicit dereference and the expression is an
4584 entity, resolution takes place later in the appropriate routine.
4585 * sem_ch13.adb (Analyze_Aspect_Implicit_Dereference): Recognize
4586 access discriminants that designate a subprogram type.
4588 2017-01-20 Pascal Obry <obry@adacore.com>
4590 * a-locale.adb, a-locale.ads: Update Ada.Locales for RM 2012 COR:1:2016
4592 2017-01-20 Yannick Moy <moy@adacore.com>
4594 * sem_ch10.adb (Check_No_Elab_Code_All): Do not issue an error
4595 on implicitly with'ed units in GNATprove mode.
4596 * sinfo.ads (Implicit_With): Document use of flag for implicitly
4597 with'ed units in GNATprove mode.
4599 2017-01-20 Ed Schonberg <schonberg@adacore.com>
4601 * sem_cat.adb (Validate_Static_Object_Name): In a preelaborated
4602 unit Do not report an error on a non-static entity that appears
4603 in the context of a spec expression, such as an aspect expression.
4605 2017-01-20 Hristian Kirtchev <kirtchev@adacore.com>
4607 * einfo.adb: Flag298 now denotes Is_Underlying_Full_View.
4608 (Is_Underlying_Full_View): New routine.
4609 (Set_Is_Underlying_Full_View): New routine.
4610 (Write_Entity_Flags): Add an entry for Is_Underlying_Full_View.
4611 * einfo.ads Add new attribute Is_Underlying_Full_View.
4612 (Is_Underlying_Full_View): New routine along with pragma Inline.
4613 (Set_Is_Underlying_Full_View): New routine along with pragma Inline.
4614 * exp_util.adb (Build_DIC_Procedure_Body): Do not consider
4615 class-wide types and underlying full views. The first subtype
4616 is used as the working type for all Itypes, not just array base types.
4617 (Build_DIC_Procedure_Declaration): Do not consider
4618 class-wide types and underlying full views. The first subtype
4619 is used as the working type for all Itypes, not just array
4621 * freeze.adb (Freeze_Entity): Inherit the freeze node of a full
4622 view or an underlying full view without clobbering the attributes
4623 of a previous freeze node.
4624 (Inherit_Freeze_Node): New routine.
4625 * sem_ch3.adb (Build_Derived_Private_Type): Mark an underlying
4627 (Build_Underlying_Full_View): Mark an underlying full view as such.
4628 * sem_ch7.adb (Install_Private_Declarations): Mark an underlying
4631 2017-01-20 Yannick Moy <moy@adacore.com>
4633 * sinfo.ads: Document lack of Do_Division_Check flag
4634 on float exponentiation.
4636 2017-01-19 Javier Miranda <miranda@adacore.com>
4638 * ghost.adb (Propagate_Ignored_Ghost_Code): Protect access to the
4639 identifier attribute of a block-statement node. Required to avoid
4640 assertion failure when building the new containers library.
4642 2017-01-19 Bob Duff <duff@adacore.com>
4644 * exp_ch3.adb: Update comment.
4646 2017-01-19 Vincent Celier <celier@adacore.com>
4648 * gprep.adb (Gnatprep): Parse the definition file without
4649 "replace in comments" even when switch -C is used.
4651 2017-01-19 Justin Squirek <squirek@adacore.com>
4653 * exp_ch9.adb (Is_Pure_Barrier): Create function
4654 Is_Count_Attribute to identify an expansion of the 'Count
4657 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4659 * sem_ch5.adb (Analyze_Loop_Statement): In GNATprove mode the
4660 statements within an element iterator loop are only analyzed
4661 agter the loop is rewritten. Within a generic the analysis must
4662 be performed in any case to complete name capture.
4664 2017-01-19 Bob Duff <duff@adacore.com>
4666 * sem_prag.adb (Analyze_Pragma): Check for ignored pragmas first,
4667 before checking for unrecognized pragmas.
4668 Initialize Pname on its declarations; that's always good style.
4670 2017-01-19 Claire Dross <dross@adacore.com>
4672 * exp_ch7.adb (Build_Invariant_Procedure_Body): Semi-insert the
4673 body into the tree for GNATprove by setting its Parent field. The
4674 components invariants of composite types are not checked by
4675 the composite type's invariant procedure in GNATprove mode.
4676 (Build_Invariant_Procedure_Declaration): Semi-insert the
4677 declaration into the tree for GNATprove by setting its Parent
4679 * freeze.adb (Freeze_Arry_Type):In GNATprove mode, do not add
4680 the component invariants to the array type invariant procedure
4681 so that the procedure can be used to check the array type
4683 (Freeze_Record_Type): In GNATprove mode, do
4684 not add the component invariants to the record type invariant
4685 procedure so that the procedure can be used to check the record
4686 type invariants if any.
4688 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
4690 * lib-xref-spark_specific.adb: Minor reformatting.
4691 * exp_ch7.adb (Add_Parent_Invariants): Do not process array types.
4693 2017-01-19 Javier Miranda <miranda@adacore.com>
4695 * exp_aggr.adb (Pass_Aggregate_To_Back_End): Renamed as
4696 Build_Back_End_Aggregate.
4697 (Generate_Aggregate_For_Derived_Type): Code cleanup.
4698 (Prepend_Stored_Values): Code cleanup.
4700 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4702 * sem_ch6.adb (Analyze_Expression_Function): Check for an
4703 incomplete return type after attempting to freeze it, so that
4704 other freeze actiona are generated in the proper order.
4706 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4708 * sem_aggr.adb (Resolve_Aggregate): If the type is a string
4709 type, ie. a type whose component is a character type, and the
4710 aggregate is positional, do not convert into a string literal
4711 if the index type is not an integer type, because the original
4712 type may be required in an enclosing operation.
4714 2017-01-19 Bob Duff <duff@adacore.com>
4716 * binde.adb, debug.adb: Enable new elaboration order algorithm
4717 by default. -dp switch reverts to the old algorithm.
4719 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
4721 * sem_ch3.adb Add with and use clauses for Exp_Ch7.
4722 (Analyze_Declarations): Create the DIC and Invariant
4723 procedure bodies s after all freezing has taken place.
4724 (Build_Assertion_Bodies): New routine.
4725 * sem_ch7.adb Remove the with and use clauses for Exp_Ch7
4727 (Analyze_Package_Specification): Remove the
4728 generation of the DIC and Invariant procedure bodies. This is
4729 now done by Analyze_Declarations.
4730 * sem_disp.adb (Check_Dispatching_Operation): DIC and Invariant
4731 procedures are never treated as primitives.
4733 2017-01-19 Yannick Moy <moy@adacore.com>
4735 * frontend.adb: Analyze inlined bodies and check elaboration
4736 rules in GNATprove mode too.
4737 * sem_elab.adb (Delay_Element): Add Boolean component to save
4738 indication that call is in SPARK code. (Check_Elab_Calls):
4739 Check elaboration rules in GNATprove mode, and correctly set
4740 the current value of SPARK_Mode.
4741 * lib-xref-spark_specific.adb
4742 (Add_SPARK_Xrefs): Simplify iteration over dereferences.
4744 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4746 * exp_ch4.adb (Expand_Concatenate): Do no enable overflow
4747 checks on the expression for the high bound of concatenation
4748 when checks are disabled, to suppress warnings about potential
4749 constraint errors in restricted runtimes.
4751 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
4753 * exp_ch3.adb (Expand_Freeze_Enumeration_Type): Mark the
4754 representation-to-position function as inlined.
4755 * sem_cat.adb (Set_Categorization_From_Scope): Do not modify
4756 the purity of an internally generated entity if it has been
4757 explicitly marked as pure for optimization purposes.
4758 * exp_aggr.adb: Minor reformatting.
4760 2017-01-19 Javier Miranda <miranda@adacore.com>
4762 * exp_ch6.adb (Expand_Call): Remove side effects on
4763 actuals that are allocators with qualified expression since the
4764 initialization of the object is performed by means of individual
4765 statements (and hence it must be done before the call).
4767 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4769 * sem_ch3.adb (Analyze_Declarations): Minor reformatting.
4770 (Build_Derived_Enumeration_Type): If the derived type inherits a
4771 dynamic predicate from its parent, the bounds of the type must
4772 freeze because an explicit constraint is constructed for the
4773 type and the corresponding range is elaborated now.
4775 2017-01-19 Arnaud Charlet <charlet@adacore.com>
4777 * sem_attr.ads: minor fix of inconsistent casing in comment
4778 * lib-writ.ads: minor align comments in columns
4779 * sem_ch3.adb: Minor reformatting.
4780 * spark_xrefs.ads: minor fix typo in SPARK-related comment
4781 * table.ads: minor style fix in comment
4782 * lib-xref-spark_specific.adb
4783 (Add_SPARK_Xrefs): simplify processing of SPARK cross-references.
4784 * sem_ch12.adb: minor whitespace fix
4785 * freeze.adb: Add comment.
4786 * sem_util.adb (Unique_Name): for instances of
4787 generic subprograms ignore the name of the wrapper package.
4789 2017-01-19 Javier Miranda <miranda@adacore.com>
4791 * exp_aggr.adb (Resolve_Record_Aggregate):
4792 Factorize code needed for aggregates of limited and unlimited
4793 types in a new routine.
4794 (Pass_Aggregate_To_Back_End): New subprogram.
4796 2017-01-19 Yannick Moy <moy@adacore.com>
4798 * sinfo.adb (Pragma_Name): Only access up to Last_Pair of Pragma_Map.
4800 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4802 * sem_ch4.ads, sem_ch4.adb (Try_Object_Operation): Make subprogram
4803 public, for use elsewhere.
4804 * sem_ch6.adb (Analyze_Procedure_Call): In SPARK_Mode and within
4805 an Inlined_body, recognize a call that uses object notation
4806 and has not been rewritten as a regular call because regular
4807 expansion has not taken place.
4809 2017-01-19 Bob Duff <duff@adacore.com>
4811 * checks.adb (Apply_Type_Conversion_Checks): Disable small optimization
4812 in case of generic formal discrete types, because it causes crashes in
4813 the compiler when built with assertions on.
4815 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
4817 * lib-xref-spark_specific.adb, sem_util.adb, sem_util.ads,
4818 sem_ch4.adb, sem_ch8.adb, lib-xref.ads: Minor reformatting.
4820 2017-01-19 Bob Duff <duff@adacore.com>
4822 * bcheck.adb (Check_Consistent_Dynamic_Elaboration_Checking):
4823 Increment Warnings_Detected. It was decrementing, which is
4824 wrong since we just issued a warning message.
4825 * binderr.ads (Errors_Detected, Warnings_Detected): Declare
4826 these variables to be of subtype Nat instead of Int, because
4827 they should never be negative.
4829 2017-01-19 Javier Miranda <miranda@adacore.com>
4831 * contracts.adb (Build_Postconditions_Procedure): Replace
4832 Generate_C_Code by Modify_Tree_For_C.
4833 * exp_aggr.adb (Build_Record_Aggr_Code, Expand_Array_Aggregate):
4834 Replace Generate_C_Code by Modify_Tree_For_C.
4835 * exp_attr.adb (Float_Valid, Is_GCC_Target): Replace Generate_C_Code by
4837 * exp_ch11.adb (Expand_N_Exception_Declaration): Replace
4838 Generate_C_Code by Modify_Tree_For_C.
4839 * exp_ch4.adb (Expand_Allocator_Expression): Replace
4840 Generate_C_Code by Modify_Tree_For_C.
4841 * exp_dbug.adb (Qualify_Entity_Name): Replace Generate_C_Code
4842 by Modify_Tree_For_C.
4843 * exp_util.adb (Remove_Side_Effects, Side_Effect_Free): Replace
4844 Generate_C_Code by Modify_Tree_For_C.
4845 * sem_res.adb (Resolve_Type_Conversion): Replace Generate_C_Code
4846 by Modify_Tree_For_C.
4847 * sinfo.ads (Modify_Tree_For_C): Adding documentation.
4849 2017-01-19 Javier Miranda <miranda@adacore.com>
4851 * sem_util.ads, sem_util.adb (Expression_Of_Expression_Function): New
4853 (Is_Inlinable_Expression_Function): New subprogram.
4854 * exp_ch6.ads, exp_ch6.adb (Expression_Of_Expression_Function): Moved
4856 (Is_Inlinable_Expression_Function): Moved to Sem_Util.
4858 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4860 * sem_ch4.adb (Diagnose_Call): Improve error message when a
4861 selected component has a prefix that might be interpreted
4862 as a parameterless function call, but none of the candidate
4863 interpretations is parameterless, and there is a hidden homonym
4864 of the prefix that is a package.
4865 * sem_ch8.adb (Find_Selected_Component): If the prefix might be
4866 interpreted as a parameterless function call and its analysis
4867 fails, do not call Analyze_Selected_Component.
4869 2017-01-19 Steve Baird <baird@adacore.com>
4871 * sem_util.ads: Add new Use_Full_View Boolean parameter to
4873 * sem_util.adb (Get_Index_Bounds): replace calls to Scalar_Range with
4874 calls to a newly-defined Scalar_Range_Of_Right_View function.
4876 2017-01-19 Arnaud Charlet <charlet@adacore.com>
4878 * gnat1drv.adb: minor fix of unbalanced parens in comment
4879 * lib-xref.ads (Traverse_Compilation_Unit): declaration moved
4880 to visible part of the package to allow re-use in GNATprove.
4881 * lib-xref-spark_specific.adb (Traverse_Stub): routine refactored
4882 from repeated code of Traverse_Compilation_Unit.
4883 (Traverse_Declaration_Or_Statement): fixed detection of
4884 generic subprograms and packages; also, iteration over case
4885 statement alternatives rewritten to avoid testing if the first
4886 alternative is present (since it must be present due to Ada
4887 syntax restrictions).
4889 2017-01-19 Hristian Kirtchev <kirtchev@adacore.com>
4891 * exp_ch6.adb (Expand_N_Subprogram_Body): Mark the spec as
4892 returning by reference not just for subprogram body stubs,
4893 but for all subprogram cases.
4894 * sem_util.adb: Code reformatting.
4895 (Requires_Transient_Scope): Update the call to Results_Differ.
4896 (Results_Differ): Update the parameter profile and the associated
4899 2017-01-19 Ed Schonberg <schonberg@adacore.com>
4901 * sem_dim.adb (Analyze_Dimension): Analyze object declaration and
4902 identifier nodes that do not come from source, to handle properly
4903 dimensionality check within an inlined body which inclddes both
4904 original operands and rewritten operands. This removes spurious
4905 dimensionality errors in the presence of front-end inlining,
4906 as well as in SPARK mode.
4908 2017-01-16 Jakub Jelinek <jakub@redhat.com>
4911 * gcc-interface/lang.opt (gant, gnatO, gnat): Add Driver flag.
4913 2017-01-13 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
4915 * gcc-interface/Makefile.in (SPARC/Solaris): Fix typo.
4917 2017-01-13 Arnaud Charlet <charlet@adacore.com>
4919 * doc/gnat_ugn/getting_started_with_gnat.rst,
4920 doc/gnat_ugn/inline_assembler.rst,
4921 doc/gnat_ugn/building_executable_programs_with_gnat.rst,
4922 doc/gnat_ugn/elaboration_order_handling_in_gnat.rst,
4923 doc/gnat_ugn/about_this_guide.rst,
4924 doc/gnat_ugn/platform_specific_information.rst,
4925 doc/gnat_ugn/example_of_binder_output.rst,
4926 doc/gnat_ugn/gnat_and_program_execution.rst,
4927 doc/gnat_ugn/gnat_utility_programs.rst,
4928 doc/gnat_ugn/the_gnat_compilation_model.rst,
4929 doc/gnat_rm/implementation_defined_attributes.rst,
4930 doc/gnat_rm/compatibility_and_porting_guide.rst,
4931 doc/gnat_rm/standard_library_routines.rst,
4932 doc/gnat_rm/standard_and_implementation_defined_restrictions.rst,
4933 doc/gnat_rm/implementation_defined_pragmas.rst,
4934 doc/gnat_rm/the_gnat_library.rst,
4935 doc/gnat_rm/obsolescent_features.rst,
4936 doc/gnat_rm/about_this_guide.rst,
4937 doc/gnat_rm/the_implementation_of_standard_i_o.rst,
4938 doc/gnat_rm/implementation_of_ada_2012_features.rst,
4939 doc/gnat_rm/interfacing_to_other_languages.rst,
4940 doc/gnat_rm/implementation_defined_aspects.rst,
4941 doc/gnat_rm.rst: Update documentation.
4942 * gnat_rm.texi, gnat_ugn.texi: Regenerated.
4944 2017-01-13 Ed Schonberg <schonberg@adacore.com>
4946 * einfo.ads: minor grammar fixes in comment of Normalized_Position_Max.
4947 * scil_ll.adb: Minor style fix in comment.
4948 * sem_ch8.adb (Analyze_Expanded_Name): Perform dimension analysis
4949 even if entity is already set, because the node may be renalyzed
4950 after inlining transformations.
4952 2017-01-13 Javier Miranda <miranda@adacore.com>
4954 * sem_res.adb (Resolve_Call): Do not establish a transient scope
4955 for a call to inlinable expression function (since the call will
4956 be replaced by its returned object).
4957 * exp_ch6.ads (Is_Inlinable_Expression_Function): New subprogram.
4958 * exp_ch6.adb (Expression_Of_Expression_Function): New subprogram.
4959 (Expand_Call): For inlinable expression function call replace the
4960 call by its returned object.
4961 (Is_Inlinable_Expression_Function): New subprogram.
4963 2017-01-13 Gary Dismukes <dismukes@adacore.com>
4965 * checks.adb: Minor typo fix and reformatting.
4967 2017-01-13 Javier Miranda <miranda@adacore.com>
4969 * contracts.adb (Contract_Only_Subprograms): Remove formal.
4970 (Copy_Original_Specification): Removed.
4971 (Skip_Contract_Only_Subprogram): Move here checks previously
4972 located in the caller of this routine (to leave the code more clean).
4973 (Build_Contract_Only_Subprogram): Code cleanup.
4974 * scil_ll.ads, scil_ll.adb (Get_Contract_Only_Body_Name): Removed.
4975 (Get_Contract_Only_Missing_Body_Name): Removed.
4977 2017-01-13 Javier Miranda <miranda@adacore.com>
4979 * sem_ch6.adb (Cloned_Expression): New subprogram.
4980 (Freeze_Expr_Types): Complete previous patch since the expression
4981 of an expression-function may have iterators and loops with
4982 defining identifiers which, as part of the preanalysis of the
4983 expression, may be left decorated with itypes that will not be
4984 available in the tree passed to the backend.
4986 2017-01-13 Ed Schonberg <schonberg@adacore.com>
4988 * checks.adb (Apply_Type_Conversion_Checks): Optimize a type
4989 conversion to Integer of an expression that is an attribute
4990 reference 'Pos on an enumeration type.
4992 2017-01-13 Bob Duff <duff@adacore.com>
4994 * atree.ads: Minor comment fix.
4996 2017-01-13 Justin Squirek <squirek@adacore.com>
4998 * sem_ch6.adb (Check_Aggregate_Accessibility): Ignore function
4999 calls in accessibility check on return statement.
5001 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5003 * sem_ch6.adb (Analyze_Subprogram_Body_Helper):
5004 Ensure that the input body is a subprogram body before trying to
5005 determine whether it denoted an expression function. Note that
5006 subprogram body stubs cannot denote expression functions.
5008 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5010 * bindgen.adb, sem_ch6.adb, binde.adb, exp_ch3.adb: Minor reformatting
5013 2017-01-13 Javier Miranda <miranda@adacore.com>
5015 * einfo.ads (Component_Bit_Offset): Fix documentation.
5016 * sem_ch13.adb (Check_Record_Representation_Clause): Skip check
5017 on record holes for components with unknown compile-time offsets.
5019 2017-01-13 Bob Duff <duff@adacore.com>
5021 * ali.ads, ali.adb (Static_Elaboration_Model_Used): Remove unused flag.
5022 * g-locfil.ads: Minor comment fix.
5024 2017-01-13 Bob Duff <duff@adacore.com>
5026 * binde.adb (Elab_New): New elaboration order algorithm
5027 that is expected to cause fewer ABE issues. This is a work in
5028 progress. The new algorithm is currently disabled, and can be
5029 enable by the -dp switch, or by modifying the Do_Old and Do_New
5030 etc. flags and rebuilding. Experimental code is included to
5031 compare the results of the old and new algorithms.
5032 * binde.ads: Use GNAT.Dynamic_Tables instead of Table, so we
5033 can have multiple of these tables, so the old and new algorithms
5035 * bindgen.ads (Gen_Output_File): Pass Elab_Order as an 'in'
5036 parameter of type array. This avoids the global variable, and
5037 allows bounds checking (which is normally defeated by the tables
5038 packages). It also ensures that the Elab_Order is read-only
5040 * bindgen.adb: Pass Elab_Order as an 'in' parameter to all
5041 subprograms that need it, as above.
5042 * debug.adb: Document new -dp switch. Modify doc of old -do
5044 * gnatbind.adb (Gnatbind): Make use of new interfaces to Binde
5045 and Bindgen. Move writing of closure (-R and -Ra switches)
5046 to Binde; that's more convenient.
5048 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5050 * sem_ch6.adb (Analyze_Expression_Function): If the expression
5051 function is a completion, all entities referenced in the
5052 expression are frozen. As a consequence, a reference to an
5053 uncompleted private type from an enclosing scope is illegal.
5055 2017-01-13 Javier Miranda <miranda@adacore.com>
5057 * sem_ch6.adb (Freeze_Expr_Types): New subprogram.
5058 (Analyze_Subprogram_Body_Helper): At the occurrence of an
5059 expression function declaration that is a completion, its
5060 expression causes freezing (AI12-0103).
5062 2017-01-13 Vadim Godunko <godunko@adacore.com>
5064 * a-coinho-shared.adb: Fix memory leaks in Constant_Reference and
5065 Reference functions of Ada.Containers.Indefinite_Holders.
5067 2017-01-13 Bob Duff <duff@adacore.com>
5069 * s-os_lib.ads: Minor comment fixes.
5071 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5073 * exp_ch3.adb (Default_Initialize_Object): Do not default
5074 initialize an object when it is of a task type and restriction
5075 No_Tasking is in effect because the initialization is obsolete.
5076 * exp_ch9.adb (Build_Master_Entity): Do not generate a master when
5077 restriction No_Tasking is in effect.
5078 (Build_Master_Renaming): Do not rename a master when restriction
5079 No_Tasking is in effect.
5081 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5083 * sem_aggr.adb (Resolve_Array_Aggregate): The code that verifies
5084 the legality of An others clause applies as well to a choice in
5085 an Iterated_component_ association.
5086 (Resolve_Iterated_Component_Association): An others choice
5088 * exp_aggr.adb (Aggr_Assignment_OK_For_Backend): An
5089 Iterated_Component_Association is not static.
5091 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5093 * exp_ch3.adb (Freeze_Type): Mark the Ghost mode as set in case
5094 control is passed to the expresion handler before the new mode
5096 * sem_ch12.adb (Analyze_Package_Instantiation,
5097 Analyze_Subprogram_Instantiation): Mark the Ghost mode as set
5098 in case control is passed to the expresion handler before the
5101 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5103 * sem_aggr.adb, sem_ch3.adb, inline.adb, sem_util.adb, exp_ch4.adb,
5104 exp_aggr.adb: Minor reformatting.
5106 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5108 * inline.adb: Minor reformatting and typo fix.
5110 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5112 * sem_util.ads, sem_util.adb (Choice_List): Move function here
5113 from sem_aggr.adb, for use elsewhere.
5114 * sem_ch3.adb (Analyze_Object_Declaration): Use Choice_List.
5115 * sem_aggr.adb (Resolve_Array_Aggregate): Remove
5116 Iterated_Component_Present.
5117 * exp_aggr.adb: Use Choice_List throughout, to handle
5118 Iterated_Component_Associations.
5119 (Gen_Loop): Generate proper loop for an
5120 Iterated_Component_Association: loop variable has the identifier
5121 of the original association. Generate a loop even for a single
5122 component choice, in order to make loop parameter visible in
5124 (Flatten): An Iterated_Component_Association is not static.
5126 2017-01-13 Yannick Moy <moy@adacore.com>
5128 * exp_ch4.adb (Expand_N_Op_Expon): Ensure that the value of
5129 float exponentiation for statically known small negative values
5130 is the reciprocal of the exponentiation for the opposite value
5132 * s-exnllf.adb (Exn_Float, Exn_Long_Float, Exn_Long_Long_Float):
5133 Ensure that the value of float exponentiation for negative values
5134 is the reciprocal of the exponentiation for the opposite value
5136 * inline.adb (Expand_Inlined_Call): Fix the count
5137 for the number of generated gotos.
5139 2017-01-13 Yannick Moy <moy@adacore.com>
5141 * inline.adb: Code cleanup.
5142 * sem_util.adb (Is_OK_Volatile_Context): Add
5143 expression in delay statement as OK for volatile context.
5145 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5147 * sem_aggr.adb (Resolve_Array_Aggregate): In normal compilation
5148 mode a choice that is a subtype with a static predicate is
5149 replaced by the values it covers. This transformation must not
5150 be performed in ASIS mode, to preserve the source for analysis.
5152 2017-01-13 Justin Squirek <squirek@adacore.com>
5154 * nlists.ads: Correct minor typo.
5156 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5158 * sem_ch13.adb: Minor reformatting and typo fix.
5160 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5162 * par-ch4.adb (P_Aggregate_Or_Parent_Expr): An
5163 Iterated_Component_Association is a named association in an
5165 * sem_aggr.adb (Resolve_Iterated_Component_Association): New
5166 procedure, subsidiary of Resolve_Array_Aggregate, to analyze
5167 and resolve the discrete choices and the expression of the
5169 * sinfo.adb, sinfo.ads: In analogy with N_Component_Association,
5170 Loop_Actions and Box_Present are attributes of
5171 N_Iterated_Component_Association nodes. Box_Present is always
5173 * sprint.adb (Sprint_Node): An Iterated_Component_Association
5174 has a Discrete_Choices list, as specified in the RM. A
5175 Component_Association for aggregate uses instead a Choices list.
5176 We have to live with this small inconsistency because the new
5177 construct also has a defining identifier, and there is no way
5178 to merge the two node structures.
5180 2017-01-13 Yannick Moy <moy@adacore.com>
5182 * inline.adb (Remove_Aspects_And_Pragmas): Add Unused to the
5183 list of pragmas to remove. Remove pragmas from the list of
5184 statements in the body to inline.
5185 * namet.adb, namet.ads (Nam_In): New version with 12 parameters.
5187 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5189 * sem_ch3.adb (Resolve_Aspects): New procedure, subsidiary of
5190 Analyze_Declarations, to analyze and resolve the expressions of
5191 aspect specifications in the current declarative list, so that
5192 the expressions have proper entity and type info. This is needed
5193 for ASIS when there is no subsequent expansion to generate this
5194 semantic information.
5195 * sem_ch13.adb (Check_Aspect_At_End_Of_Declarations): Use Etype of
5196 original expression, to suppress cascaded errors when expression
5197 has been constant-folded.
5198 (Resolve_Aspect_Expressions, Resolve_Name): Preserve entities in
5199 ASIS mode, because there is no subsequent expansion to decorate
5202 2017-01-13 Yannick Moy <moy@adacore.com>
5204 * inline.adb, inline.ads (Call_Can_Be_Inlined_In_GNATprove_Mode):
5205 New function to detect when a call may be inlined or not in
5207 (Expand_Inlined_Call): Ensure that a temporary
5208 is always created in the cases where a type conversion may be
5209 needed on an input parameter in GNATprove mode, so that GNATprove
5210 sees the check to perform.
5211 * sem_res.adb (Resolve_Call): In GNATprove mode, skip inlining
5212 when not applicable due to actual requiring type conversion
5213 with possible check but no temporary value can be copied for
5214 GNATprove to see the check.
5216 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5218 * sem_aggr.adb, par_sco.adb, s-osprim-mingw.adb, exp_ch5.adb,
5219 exp_prag.adb, sem_ch3.adb, xr_tabls.adb, lib-xref-spark_specific.adb,
5220 layout.adb, sem_dist.adb, exp_spark.adb, exp_ch7.adb, gnatcmd.adb,
5221 exp_util.adb, prj-proc.adb, sem_aux.adb, comperr.adb, g-memdum.adb,
5222 exp_attr.adb, s-intman-solaris.adb, exp_ch9.adb, make.adb, live.adb,
5223 g-sercom-linux.adb, sem_dim.adb, mlib-prj.adb, s-intman-posix.adb,
5224 sem_ch9.adb, sem_ch10.adb, prep.adb, einfo.adb, scng.adb, checks.adb,
5225 prj-strt.adb, sem_prag.adb, eval_fat.adb, sem_ch12.adb, sem.adb,
5226 a-numaux-x86.adb, a-stwifi.adb, i-cobol.adb, prj.adb,
5227 get_spark_xrefs.adb, s-tasini.adb, rtsfind.adb, freeze.adb,
5228 g-arrspl.adb, par-ch4.adb, sem_util.adb, sem_res.adb, expander.adb,
5229 sem_attr.adb, exp_dbug.adb, prj-pp.adb, a-stzfix.adb, s-interr.adb,
5230 s-wchcnv.adb, switch-m.adb, gnat1drv.adb, sinput-l.adb, stylesw.adb,
5231 contracts.adb, s-intman-android.adb, g-expect.adb, exp_ch4.adb,
5232 g-comlin.adb, errout.adb, sinput.adb, s-exctra.adb, repinfo.adb,
5233 g-spipat.adb, g-debpoo.adb, exp_ch6.adb, sem_ch4.adb, exp_ch13.adb,
5234 a-wtedit.adb, validsw.adb, pprint.adb, widechar.adb, makeutl.adb,
5235 ali.adb, set_targ.adb, sem_mech.adb, sem_ch6.adb, gnatdll.adb,
5236 get_scos.adb, g-pehage.adb, s-tratas-default.adb, gnatbind.adb,
5237 prj-dect.adb, g-socthi-mingw.adb, par-prag.adb, prj-nmsc.adb,
5238 exp_disp.adb, par-ch12.adb, binde.adb, sem_ch8.adb,
5239 s-tfsetr-default.adb, s-regexp.adb, gprep.adb, s-tpobop.adb,
5240 a-teioed.adb, sem_warn.adb, sem_eval.adb, g-awk.adb, s-io.adb,
5241 a-ztedit.adb, xoscons.adb, exp_intr.adb, sem_cat.adb, sprint.adb,
5242 g-socket.adb, exp_dist.adb, sem_ch13.adb, s-tfsetr-vxworks.adb,
5243 par-ch3.adb, treepr.adb, g-forstr.adb, g-catiio.adb, par-ch5.adb,
5244 uname.adb, osint.adb, exp_ch3.adb, prj-env.adb, a-strfix.adb,
5245 a-stzsup.adb, prj-tree.adb, s-fileio.adb: Update all eligible case
5246 statements to reflect the new style for case alternatives. Various
5247 code clean up and reformatting.
5249 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5251 * exp_util.adb: Minor reformatting.
5253 2017-01-13 Yannick Moy <moy@adacore.com>
5255 * exp_spark.adb: Code cleanup.
5256 * sem_ch9.adb (Analyze_Delay_Until): Resolve
5257 expression so that calls are identified as such inside delay
5260 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5262 * exp_util.adb (Insert_Actions): Handle Iterated_Component_Association.
5263 * par-ch3.adb (P_Discrete_Choice_List): An
5264 Iterated_Component_Association is an array aggregate component.
5265 * par-ch4.adb (P_Iterated_Component_Association): New procedure.
5266 (Is_Quantified_Expression): New function that performs a lookahead
5267 to distinguish quantified expressions from iterated component
5269 (P_Aggregate_Or_Paren_Expr): Recognize iterated component
5271 (P_Unparen_Cond_Case_Quant_Expression, P_Primary): Ditto.
5272 * sem.adb (Analyze): Handle Iterated_Component_Association.
5273 * sem_aggr.adb (Resolve_Array_Aggregate): Dummy handling of iterated
5274 component associations.
5275 * sinfo.ads, sinfo.adb: Entries for for
5276 N_Iterated_Component_Association and its fields.
5277 * sprint.adb (Sprint_Node_Actual): Handle
5278 N_Iterated_Component_Association.
5280 2017-01-13 Justin Squirek <squirek@adacore.com>
5282 * sem_ch12.adb (Analyze_Package_Instantiation): Move disabiling
5283 of the style check until after preanalysis of acutals.
5285 2017-01-13 Yannick Moy <moy@adacore.com>
5287 * sem_ch13.adb: Minor reformatting.
5288 * par-ch11.adb: minor style fix in whitespace
5289 * gnatbind.adb (Gnatbind): Scope of Std_Lib_File
5290 reduced to Add_Artificial_ALI_File; style fix in declaration of
5291 Text; grammar fix in comment.
5292 * osint-c.adb (Read_Library_Info): strip trailing NUL from result.
5293 * freeze.adb: Cleanup to pass pragma instead of
5295 * exp_spark.adb (Expand_SPARK_Attribute_Reference): New procedure to
5296 replace System'To_Address by equivalent call.
5298 2017-01-13 Arnaud Charlet <charlet@adacore.com>
5300 * bindusg.adb: Improve usage output for -f switch.
5302 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5304 * frontend.adb, freeze.adb, sem_res.adb, sem_attr.adb, sem_ch8.adb:
5307 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5309 * sem_ch13.adb (Is_Predicate_Static): Following the intent of the RM,
5310 treat comparisons on strings as legal in a Static_Predicate.
5311 (Is_Predicate_Static, Is_Type_Ref): Predicate also returns true on
5312 a function call that is the expansion of a string comparison.The
5313 function call is built when compiling the corresponding predicate
5314 function, but the expression has been found legal as a static
5315 predicate during earlier analysis.
5316 * sem_eval.adb (Real_Or_String_Static_Predicate_Matches): Handle
5317 properly a function call that is the expansion of a string
5318 comparison operation, in order to recover the Static_Predicate
5319 expression and apply it to a static argument when needed.
5321 2017-01-13 Tristan Gingold <gingold@adacore.com>
5323 * s-mmap.adb, s-mmap.ads (Open_Read_No_Exception): New function.
5324 (Open_Read): Re-implement using Open_Read_No_Exception.
5325 (Open_Write): Raise exception in case of error.
5326 * s-mmosin-mingw.adb (Open_Common): Do not raise exception.
5327 * s-mmosin-unix.adb (Open_Read, Open_Write): Do not
5329 * s-mmosin-mingw.ads, s-mmosin-unix.ads (Open_Read): Adjust comment.
5331 2017-01-13 Yannick Moy <moy@adacore.com>
5333 * checks.adb: Code cleanup.
5335 2017-01-13 Yannick Moy <moy@adacore.com>
5337 * freeze.adb (Check_Inherited_Conditions): Use analyzed pragma
5338 expression instead of unanalyzed aspect expression for checking
5339 the validity of inheriting an operation. Also copy the expression
5340 being passing it to Build_Class_Wide_Expression, as this call
5341 modifies its argument.
5342 * sem_util.ads Fix comment to reference correct function name
5345 2017-01-13 Javier Miranda <miranda@adacore.com>
5347 * sem_res.adb (Resolve_Generalized_Indexing): Compiling in ASIS mode,
5348 when we propagate information about the indexes back to the original
5349 indexing mode and the prefix of the index is a function call, do not
5350 remove any parameter from such call.
5352 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5354 * exp_ch6.ads (Needs_BIP_Finalization_Master): Update comment.
5355 * exp_ch6.adb (Needs_BIP_Finalization_Master): Return True for
5356 a build-in-place function whose result type is tagged.
5358 2017-01-13 Yannick Moy <moy@adacore.com>
5360 * sem_ch8.adb (Analyze_Subprogram_Renaming.Build_Class_Wide_Wrapper):
5361 Do not generate a wrapper when the only candidate is a class-wide
5363 (Analyze_Subprogram_Renaming): Do not freeze the renaming or renamed
5364 inside a generic context.
5366 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5368 * exp_util.adb (Add_Inherited_Tagged_DIC):
5369 Pass the object parameters of both the parent and the derived
5370 type DIC procedure to the reference replacement circuitry.
5371 (Find_DIC_Type): Modify the circuitry to present the partial
5372 view of a private type in case the private type defines its own
5374 (Replace_Object_And_Primitive_References): Add two
5375 optional formal parameters. Update the comment on usage. Update
5376 the replacement of references to object parameters.
5378 2017-01-13 Gary Dismukes <dismukes@adacore.com>
5380 * einfo.adb, sem_ch6.adb, atree.adb: Minor reformatting and typo fix.
5382 2017-01-13 Ed Schonberg <schonberg@adacore.com>
5384 * sem_res.adb (Resolve_Actuals): Apply Scalar_Range_Check to
5385 an out parameter that is a type conversion, independently of th
5386 range check that may apply to the expression of the conversion,
5387 for use in GNATProve.
5389 2017-01-13 Yannick Moy <moy@adacore.com>
5391 * gnat1drv.adb (Gnat1drv): Move the implicit with for System in
5392 GNATprove_Mode here to Frontend.
5393 * frontend.adb (Frontend): Move the implicit with for System
5394 in GNATprove_Mode here as it ismore correct this way; the old
5395 place only worked by chance, since there were no overloaded names.
5396 * rtsfind.ads (RE_Id, RE_Unit_Table): Add RE_Tasking_State.
5397 * sem_attr.adb (Analyze_Attribute): In GNATprove_Mode, for the
5398 four attributes identified in SRM 9(18), add an implicit with
5399 to Ada.Task_Identification.
5400 * sem_ch8.adb (Analyze_Subprogram_Renaming.Build_Class_Wide_Wrapper):
5401 Deal specially with the wrapper introduced for AI05-0071 in GNATprove
5403 * checks.adb (Apply_Discriminant_Check,
5404 Apply_Selected_Length_Checks, Apply_Selected_Range_Checks):
5405 In GNATprove mode, we do not apply the checks, but we still
5406 analyze the expression to possibly issue errors on SPARK
5407 code when a run-time error can be detected at compile time.
5408 (Selected_Length_Checks, Selected_Range_Checks): Perform analysis
5411 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5413 * expander.adb (Expand): Add a warning about using return
5414 statements in Ghost management code.
5415 * exp_ch3.adb (Freeze_Type): Add a warning about using return
5416 statements in Ghost management code.
5417 * exp_ch7.adb (Build_Invariant_Procedure_Body,
5418 Build_Invariant_Procedure_Declaration): Add a warning about
5419 using return statements in Ghost management code.
5420 * exp_disp.adb (Make_DT): Add a warning about using return
5421 statements in Ghost management code.
5422 * exp_util.adb (Build_DIC_Procedure_Body,
5423 Build_DIC_Procedure_Declaration, Make_Predicated_Call): Add a
5424 warning about using return statements in Ghost management code.
5425 * freeze.adb (Freeze_Entity): Add a warning about using return
5426 statements in Ghost management code.
5427 * sem.adb (Analyze, Do_Analyze): Add a warning about using return
5428 statements in Ghost management code.
5429 * sem_ch3.adb (Analyze_Object_Declaration, Process_Full_View): Add
5430 a warning about using return statements in Ghost management code.
5431 * sem_ch5.adb (Analyze_Assignment): Add a warning about using
5432 return statements in Ghost management code.
5433 * sem_ch6.adb (Analyze_Procedure_Call,
5434 Analyze_Subprogram_Body_Helper): Add a warning about using return
5435 statements in Ghost management code.
5436 * sem_ch7.adb (Analyze_Package_Body_Helper): Add a warning about
5437 using return statements in Ghost management code.
5438 * sem_ch12.adb (Analyze_Package_Instantiation,
5439 Analyze_Subprogram_Instantiation, Instantiate_Package_Body,
5440 Instantiate_Subprogram_Body): Add a warning about using return
5441 statements in Ghost management code.
5442 * sem_ch13.adb (Build_Predicate_Functions,
5443 Build_Predicate_Function_Declarations): Add a warning about
5444 using return statements in Ghost management code.
5445 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part,
5446 Analyze_Initial_Condition_In_Decl_Part, Analyze_Pragma,
5447 Analyze_Pre_Post_Condition_In_Decl_Part): Add a warning about
5448 using return statements in Ghost management code.
5450 2017-01-13 Tristan Gingold <gingold@adacore.com>
5452 * s-mmosin-mingw.adb: Fix pragma import.
5454 2017-01-13 Arnaud Charlet <charlet@adacore.com>
5456 * gnat1drv.adb (Adjust_Global_Switches): Ignore -gnateE in
5459 2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
5461 * atree.adb (Allocate_Initialize_Node): A newly created node is
5462 no longer marked as Ghost at this level.
5463 (Mark_New_Ghost_Node): New routine.
5464 (New_Copy): Mark the copy as Ghost.
5465 (New_Entity): Mark the entity as Ghost.
5466 (New_Node): Mark the node as Ghost.
5467 * einfo.adb (Is_Checked_Ghost_Entity): This attribute can now
5468 apply to unanalyzed entities.
5469 (Is_Ignored_Ghost_Entity): This attribute can now apply to unanalyzed
5471 (Set_Is_Checked_Ghost_Entity): This attribute now
5472 applies to all entities as well as unanalyzed entities.
5473 (Set_Is_Ignored_Ghost_Entity): This attribute now applies to
5474 all entities as well as unanalyzed entities.
5475 * expander.adb Add with and use clauses for Ghost.
5476 (Expand): Install and revert the Ghost region associated with the node
5478 * exp_ch3.adb (Expand_Freeze_Array_Type): Remove all Ghost-related code.
5479 (Expand_Freeze_Class_Wide_Type): Remoe all Ghost-related code.
5480 (Expand_Freeze_Enumeration_Type): Remove all Ghost-related code.
5481 (Expand_Freeze_Record_Type): Remove all Ghost-related code.
5482 (Freeze_Type): Install and revert the Ghost region associated
5483 with the type being frozen.
5484 * exp_ch5.adb Remove with and use clauses for Ghost.
5485 (Expand_N_Assignment_Statement): Remove all Ghost-related code.
5486 * exp_ch6.adb Remove with and use clauses for Ghost.
5487 (Expand_N_Procedure_Call_Statement): Remove all Ghost-relatd code.
5488 (Expand_N_Subprogram_Body): Remove all Ghost-related code.
5489 * exp_ch7.adb (Build_Invariant_Procedure_Body): Install and revert the
5490 Ghost region of the working type.
5491 (Build_Invariant_Procedure_Declaration): Install and revert
5492 the Ghost region of the working type.
5493 (Expand_N_Package_Body): Remove all Ghost-related code.
5494 * exp_ch8.adb Remove with and use clauses for Ghost.
5495 (Expand_N_Exception_Renaming_Declaration): Remove all Ghost-related
5497 (Expand_N_Object_Renaming_Declaration): Remove all Ghost-related code.
5498 (Expand_N_Package_Renaming_Declaration): Remove all Ghost-related code.
5499 (Expand_N_Subprogram_Renaming_Declaration): Remove all Ghost-related
5501 * exp_ch13.adb Remove with and use clauses for Ghost.
5502 (Expand_N_Freeze_Entity): Remove all Ghost-related code.
5503 * exp_disp.adb (Make_DT): Install and revert the Ghost region of
5504 the tagged type. Move the generation of various entities within
5505 the Ghost region of the type.
5506 * exp_prag.adb Remove with and use clauses for Ghost.
5507 (Expand_Pragma_Check): Remove all Ghost-related code.
5508 (Expand_Pragma_Contract_Cases): Remove all Ghost-related code.
5509 (Expand_Pragma_Initial_Condition): Remove all Ghost-related code.
5510 (Expand_Pragma_Loop_Variant): Remove all Ghost-related code.
5511 * exp_util.adb (Build_DIC_Procedure_Body): Install
5512 and revert the Ghost region of the working types.
5513 (Build_DIC_Procedure_Declaration): Install and revert the
5514 Ghost region of the working type.
5515 (Make_Invariant_Call): Install and revert the Ghost region of the
5517 (Make_Predicate_Call): Reimplemented. Install and revert the
5518 Ghost region of the associated type.
5519 * freeze.adb (Freeze_Entity): Install and revert the Ghost region
5520 of the entity being frozen.
5521 (New_Freeze_Node): Removed.
5522 * ghost.adb Remove with and use clauses for Opt.
5523 (Check_Ghost_Completion): Update the parameter profile
5524 and all references to formal parameters.
5525 (Ghost_Entity): Update the comment on usage.
5526 (Install_Ghost_Mode): New routines.
5527 (Is_Ghost_Assignment): New routine.
5528 (Is_Ghost_Declaration): New routine.
5529 (Is_Ghost_Pragma): New routine.
5530 (Is_Ghost_Procedure_Call): New routine.
5531 (Is_Ghost_Renaming): Removed.
5532 (Is_OK_Declaration): Reimplemented.
5533 (Is_OK_Pragma): Reimplemented.
5534 (Is_OK_Statement): Reimplemented.
5535 (Is_Subject_To_Ghost): Update the comment on usage.
5536 (Mark_And_Set_Ghost_Assignment): New routine.
5537 (Mark_And_Set_Ghost_Body): New routine.
5538 (Mark_And_Set_Ghost_Completion): New routine.
5539 (Mark_And_Set_Ghost_Declaration): New routine.
5540 (Mark_And_Set_Ghost_Instantiation): New routine.
5541 (Mark_And_Set_Ghost_Procedure_Call): New routine.
5542 (Mark_Full_View_As_Ghost): Removed.
5543 (Mark_Ghost_Declaration_Or_Body): New routine.
5544 (Mark_Ghost_Pragma): New routine.
5545 (Mark_Ghost_Renaming): New routine.
5546 (Mark_Pragma_As_Ghost): Removed.
5547 (Mark_Renaming_As_Ghost): Removed.
5548 (Propagate_Ignored_Ghost_Code): Update the comment on usage.
5549 (Prune_Node): Freeze nodes no longer need special pruning, they
5550 are processed by the general ignored Ghost code mechanism.
5551 (Restore_Ghost_Mode): New routine.
5552 (Set_Ghost_Mode): Reimplemented.
5553 (Set_Ghost_Mode_From_Entity): Removed.
5554 * ghost.ads Add with and use clauses for Ghost.
5555 (Check_Ghost_Completion): Update the parameter profile
5556 along with the comment on usage.
5557 (Install_Ghost_Mode): New routine.
5558 (Is_Ghost_Assignment): New routine.
5559 (Is_Ghost_Declaration): New routine.
5560 (Is_Ghost_Pragma): New routine.
5561 (Is_Ghost_Procedure_Call): New routine.
5562 (Mark_And_Set_Ghost_Assignment): New routine.
5563 (Mark_And_Set_Ghost_Body): New routine.
5564 (Mark_And_Set_Ghost_Completion): New routine.
5565 (Mark_And_Set_Ghost_Declaration): New routine.
5566 (Mark_And_Set_Ghost_Instantiation): New routine.
5567 (Mark_And_Set_Ghost_Procedure_Call): New routine.
5568 (Mark_Full_View_As_Ghost): Removed.
5569 (Mark_Ghost_Pragma): New routine.
5570 (Mark_Ghost_Renaming): New routine.
5571 (Mark_Pragma_As_Ghost): Removed.
5572 (Mark_Renaming_As_Ghost): Removed.
5573 (Restore_Ghost_Mode): New routine.
5574 (Set_Ghost_Mode): Redefined.
5575 (Set_Ghost_Mode_From_Entity): Removed.
5576 * sem.adb (Analyze): Install and revert the Ghost region of the
5577 node being analyzed.
5578 (Do_Analyze): Change the way a clean Ghost
5579 region is installed and reverted.
5580 * sem_ch3.adb (Analyze_Full_Type_Declaration): Remove
5581 all Ghost-related code.
5582 (Analyze_Incomplete_Type_Decl): Remove all Ghost-related code.
5583 (Analyze_Number_Declaration): Remove all Ghost-related code.
5584 (Analyze_Object_Declaration): Install and revert the Ghost region of
5585 a deferred object declaration's completion.
5586 (Array_Type_Declaration): Remove all Ghost-related code.
5587 (Build_Derived_Type): Update the comment on
5588 the propagation of Ghost attributes from a parent to a derived type.
5589 (Derive_Subprogram): Remove all Ghost-related code.
5590 (Make_Class_Wide_Type): Remove all Ghost-related code.
5591 (Make_Implicit_Base): Remove all Ghost-related code.
5592 (Process_Full_View): Install and revert the Ghost region of
5593 the partial view. There is no longer need to check the Ghost
5595 * sem_ch5.adb (Analyze_Assignment): Install and revert the Ghost
5596 region of the left hand side.
5597 * sem_ch6.adb (Analyze_Abstract_Subprogram_Declaration): Remove
5598 all Ghost-related code.
5599 (Analyze_Expression_Function): Remove all Ghost-related code.
5600 (Analyze_Generic_Subprogram_Body): Remove all Ghost-related code.
5601 (Analyze_Procedure_Call): Install and revert the Ghost region of
5602 the procedure being called.
5603 (Analyze_Subprogram_Body_Helper): Install and revert the Ghost
5604 region of the spec or body.
5605 (Analyze_Subprogram_Declaration): Remove all Ghost-related code.
5606 (Build_Subprogram_Declaration): Remove all Ghost-related code.
5607 (Find_Corresponding_Spec): Remove all Ghost-related code.
5608 (Process_Formals): Remove all Ghost-related code.
5609 * sem_ch7.adb (Analyze_Package_Body_Helper): Install and revert
5610 the Ghost region of the spec.
5611 (Analyze_Package_Declaration): Remove all Ghost-related code.
5612 * sem_ch8.adb (Analyze_Exception_Renaming): Mark a renaming as
5613 Ghost when it aliases a Ghost entity.
5614 (Analyze_Generic_Renaming): Mark a renaming as Ghost when it aliases
5616 (Analyze_Object_Renaming): Mark a renaming as Ghost when
5617 it aliases a Ghost entity.
5618 (Analyze_Package_Renaming): Mark a renaming as Ghost when it aliases
5620 (Analyze_Subprogram_Renaming): Mark a renaming as Ghost when it
5621 aliases a Ghost entity.
5622 * sem_ch11.adb Remove with and use clauses for Ghost.
5623 (Analyze_Exception_Declaration): Remove all Ghost-related code.
5624 * sem_ch12.adb (Analyze_Generic_Package_Declaration): Remove all
5626 (Analyze_Generic_Subprogram_Declaration): Remove all Ghost-related
5628 (Analyze_Package_Instantiation): Install and revert the Ghost region
5629 of the package instantiation.
5630 (Analyze_Subprogram_Instantiation): Install
5631 and revert the Ghost region of the subprogram instantiation.
5632 (Instantiate_Package_Body): Code clean up. Install and revert the
5633 Ghost region of the package body.
5634 (Instantiate_Subprogram_Body): Code clean up. Install and revert the
5635 Ghost region of the subprogram body.
5636 * sem_ch13.adb (Build_Predicate_Functions): Install
5637 and revert the Ghost region of the related type.
5638 (Build_Predicate_Function_Declaration): Code clean up. Install
5639 and rever the Ghost region of the related type.
5640 * sem_prag.adb (Analyze_Contract_Cases_In_Decl_Part):
5641 Install and revert the Ghost region of the pragma.
5642 (Analyze_Initial_Condition_In_Decl_Part): Install and revert the
5643 Ghost region of the pragma.
5644 (Analyze_Pragma): Install and revert the Ghost region of various
5645 pragmas. Mark a pragma as Ghost when it is related to a Ghost entity
5646 or encloses a Ghost entity.
5647 (Analyze_Pre_Post_Condition): Install and revert the Ghost
5648 region of the pragma.
5649 (Analyze_Pre_Post_Condition_In_Decl_Part): Install and revert the
5650 Ghost region of the pragma.
5651 * sem_res.adb (Resolve): Remove all Ghost-related code.
5652 * sem_util.adb (Is_Declaration): Reimplemented.
5653 (Is_Declaration_Other_Than_Renaming): New routine.
5654 * sem_util.ads (Is_Declaration_Other_Than_Renaming): New routine.
5655 * sinfo.adb (Is_Checked_Ghost_Pragma): New routine.
5656 (Is_Ghost_Pragma): Removed.
5657 (Is_Ignored_Ghost_Pragma): New routine.
5658 (Set_Is_Checked_Ghost_Pragma): New routine.
5659 (Set_Is_Ghost_Pragma): Removed.
5660 (Set_Is_Ignored_Ghost_Pragma): New routine.
5661 * sinfo.ads: Update the documentation on Ghost mode and
5662 Ghost regions. New attributes Is_Checked_Ghost_Pragma
5663 and Is_Ignored_Ghost_Pragma along with usages in nodes.
5664 Remove attribute Is_Ghost_Pragma along with usages in nodes.
5665 (Is_Checked_Ghost_Pragma): New routine along with pragma Inline.
5666 (Is_Ghost_Pragma): Removed along with pragma Inline.
5667 (Is_Ignored_Ghost_Pragma): New routine along with pragma Inline.
5668 (Set_Is_Checked_Ghost_Pragma): New routine along with pragma Inline.
5669 (Set_Is_Ghost_Pragma): Removed along with pragma Inline.
5670 (Set_Is_Ignored_Ghost_Pragma): New routine along with pragma Inline.
5672 2017-01-12 Tristan Gingold <gingold@adacore.com>
5674 * s-mmap.ads, s-mmap.adb, s-mmosin-unix.ads, s-mmosin-unix.adb,
5675 s-mmauni-long.ads, s-mmosin-mingw.ads, s-mmosin-mingw.adb: New files.
5677 2017-01-12 Yannick Moy <moy@adacore.com>
5679 * errout.adb, errout.ads (Initialize): Factor common treatment
5681 (Reset_Warnings): New procedure to reset counts related to warnings.
5682 (Record_Compilation_Errors): New variable to store the presence of an
5683 error, used in gnat2why to allow changing the Warning_Mode.
5684 (Compilation_Errors): Use new variable Record_Compilation_Errors to
5685 store the presence of an error.
5687 2017-01-12 Javier Miranda <miranda@adacore.com>
5689 * sem_ch13.adb (Analyze_Aspect_Specifications):
5690 For Interrupt_Handler and Attach_ Handler aspects, decorate the
5691 internally built reference to the protected procedure as coming
5692 from sources and force its analysis.
5694 2017-01-12 Ed Schonberg <schonberg@adacore.com>
5696 * sem_ch3.adb (Build_Derived_Type): For a scalar derived type,
5697 inherit predicates if any from the first_subtype of the parent,
5698 not from the anonymous parent type.
5699 * sem_eval.adb (Is_Static_Subtype): A type that inherits a dynamic
5700 predicate is not a static subtype.
5702 2017-01-12 Gary Dismukes <dismukes@adacore.com>
5704 * freeze.adb (Check_Suspicious_Convention): New procedure
5705 performing a warning check on discriminated record types with
5706 convention C or C++. Factored out of procedure Freeze_Record_Type,
5707 and changed to only apply to base types (to avoid spurious
5708 warnings on subtypes). Minor improvement of warning messages
5709 to refer to discriminated rather than variant record types.
5710 (Freeze_Record_Type): Remove code for performing a suspicious
5712 (Freeze_Entity): Only call Freeze_Record_Type
5713 on types that aren't declared within any enclosing generic units
5714 (rather than just excluding the type when the innermost scope
5715 is generic). Call Check_Suspicious_Convention whether or not
5716 the type is declared within a generic unit.
5717 * sem_ch8.adb (In_Generic_Scope): Move this function to Sem_Util.
5718 * sem_util.ads, sem_util.adb (In_Generic_Scope): New function (moved
5721 2017-01-12 Tristan Gingold <gingold@adacore.com>
5723 * sysdep.c, adaint.c, rtinit.c, ming32.h:
5724 (__gnat_current_codepage): Renamed from CurrentCodePage
5725 (__gnat_current_ccs_encoding): Renamed from CurrentCCSEncoding
5727 2017-01-12 Ed Schonberg <schonberg@adacore.com>
5729 * sem_ch6.adb (Fully_Conformant_Expressions): Handle properly
5730 quantified expressions, following AI12-050: the loop parameters
5731 of two quantified expressions are conformant if they have the
5734 2017-01-12 Arnaud Charlet <charlet@adacore.com>
5736 * gcc-interface/Makefile.in: Clean up VxWorks targets.
5738 2017-01-12 Ed Schonberg <schonberg@adacore.com>
5740 * sem_attr.adb (Analyze_Attribute_Reference, case Loop_Entry):
5741 Hnadle properly the attribute reference when it appears as part
5742 of an expression in another loop aspect.
5744 2017-01-12 Ed Schonberg <schonberg@adacore.com>
5746 * exp_ch3.adb (Check_Predicated_Discriminant): New procedure,
5747 subsidiary of Build_Initialization_Call, to complete generation
5748 of predicate checks on discriminants whose (sub)types have
5749 predicates, and to add checks on variants that do not have an
5751 * sem_util.adb (Gather_Components): A missing Others alternative is
5752 not an error when the type of the discriminant is a static predicate
5753 (and coverage has been checked when analyzing the case statement). A
5754 runtime check is generated to verify that a given discriminant
5755 satisfies the predicate (RM 3.8.1. (21.1/2)).
5757 2017-01-12 Yannick Moy <moy@adacore.com>
5759 * gnat1drv.adb (Adjust_Global_Switches): Only
5760 perform checking of exception mechanism when generating code.
5762 2017-01-12 Justin Squirek <squirek@adacore.com>
5764 * exp_ch7.adb (Add_Type_Invariants, Process_Array_Component):
5765 Remove handling of access component with invariant.
5766 (Build_Invariant_Procedure_Declaration): Remove return on class
5768 * freeze.adb (Freeze_Array_Type, Freeze_Record_Type): Remove
5769 conditional exception for component or array so Has_Own_Invariants
5770 flag is not falsly set.
5771 * sem_ch3.adb (Make_Class_Wide_Type): Initialize copy of class
5772 wide type to have no invariant flags.
5774 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
5776 * exp_ch9.adb, sem_prag.adb, s-tassta.adb, sem_util.adb, s-tarest.adb,
5777 sem_ch13.adb: Minor reformatting.
5779 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
5781 * exp_aggr.adb (Build_Record_Aggr_Code): Guard against a missing
5782 adjustment primitive when the ancestor type was not properly frozen.
5783 (Gen_Assign): Guard against a missing initialization
5784 primitive when the component type was not properly frozen.
5785 (Initialize_Array_Component): Guard against a missing adjustment
5786 primitive when the component type was not properly frozen.
5787 (Initialize_Record_Component): Guard against a missing adjustment
5788 primitive when the component type was not properly frozen.
5789 (Process_Transient_Component_Completion): The transient object may
5790 not be finalized when its associated type was not properly frozen.
5791 * exp_ch3.adb (Build_Assignment): Guard against a missing
5792 adjustment primitive when the component type was not properly frozen.
5793 (Build_Initialization_Call): Guard against a missing
5794 initialization primitive when the associated type was not properly
5796 (Expand_N_Object_Declaration): Guard against a missing
5797 adjustment primitive when the base type was not properly frozen.
5798 (Predefined_Primitive_Bodies): Create an empty Deep_Adjust
5799 body when there is no adjustment primitive available. Create an
5800 empty Deep_Finalize body when there is no finalization primitive
5802 * exp_ch4.adb (Apply_Accessibility_Check): Guard against a
5803 missing finalization primitive when the designated type was
5804 not properly frozen.
5805 (Expand_N_Allocator): Guard against a missing initialization primitive
5806 when the designated type was not properly frozen.
5807 * exp_ch5.adb (Make_Tag_Ctrl_Assignment): Add the adjustment call
5808 only when the corresponding adjustment primitive is available.
5809 * exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Generate the
5810 adjustment/finalization statements only when there is an available
5811 primitive to carry out the action.
5812 (Build_Initialize_Statements): Generate the initialization/finalization
5813 statements only when there is an available primitive to carry out the
5815 (Make_Adjust_Call): Do not generate a call when the underlying
5816 type is not present due to a possible missing full view.
5817 (Make_Final_Call): Do not generate a call when the underlying
5818 type is not present due to a possible missing full view.
5819 (Make_Finalize_Address_Stmts): Generate an empty body when the
5820 designated type lacks a finalization primitive.
5821 (Make_Init_Call): Do not generate a call when the underlying type is
5822 not present due to a possible missing full view.
5823 (Process_Component_For_Adjust): Add the adjustment call only when the
5824 corresponding adjustment primitive is available.
5825 (Process_Component_For_Finalize): Add the finalization call only when
5826 the corresponding finalization primitive is available.
5827 (Process_Object_Declaration): Use a null statement to emulate a
5828 missing call to the finalization primitive of the object type.
5829 * exp_ch7.ads (Make_Adjust_Call): Update the comment on usage.
5830 (Make_Final_Call): Update the comment on usage.
5831 (Make_Init_Call): Update the comment on usage.
5832 * exp_util.adb (Build_Transient_Object_Statements): Code reformatting.
5834 2017-01-12 Arnaud Charlet <charlet@adacore.com>
5836 * einfo.ads: Update documentation of Address_Taken.
5837 * sem_attr.adb (Analyze_Access_Attribute, Resolve_Attribute
5838 [Access_Attribute]): Only consider 'Access/'Unchecked_Access
5839 for subprograms when setting Address_Taken flag.
5841 2017-01-12 Patrick Bernardi <bernardi@adacore.com>
5843 * sem_ch10.adb (Analyze_With_Clause): Removed code that turned
5844 Configurable_Run_Time_Mode off when analysing with'ed predefined
5847 2017-01-12 Gary Dismukes <dismukes@adacore.com>
5849 * sem_prag.adb: Minor reformatting.
5850 * sem_util.adb (Unique_Entity): fix result for
5851 bodies of entry families.
5853 2017-01-12 Justin Squirek <squirek@adacore.com>
5855 * sem_prag.adb (Analyze_Pragma): Add appropriate calls to
5856 Resolve_Suppressible in the pragma Assertion_Policy case.
5857 (Resolve_Suppressible): Created this function to factor out
5858 common code used to resolve Suppress to either Ignore or Check
5859 * snames.ads-tmpl: Add name for Suppressible.
5861 2017-01-12 Gary Dismukes <dismukes@adacore.com>
5863 * exp_ch9.adb, s-secsta.adb, snames.ads-tmpl, exp_ch3.adb: Minor
5865 * debug.adb: Minor comment fixes.
5867 2017-01-12 Arnaud Charlet <charlet@adacore.com>
5869 * sem_util.adb (Unique_Entity): For concurrent
5870 bodies that are defined with stubs and complete a declaration
5871 of a single concurrent object return the entity of an implicit
5872 concurrent type, not the entity of the anonymous concurrent
5874 * debug.adb: -gnatd.J is no longer used.
5875 * make.adb (Globalize): Removed, no longer used.
5876 * sem_ch9.adb: minor typo in comment for entry index
5878 2017-01-12 Patrick Bernardi <bernardi@adacore.com>
5880 * aspect.adb, aspect.ads: Added new aspect Secondary_Stack_Size.
5881 * exp_ch3.adb (Build_Init_Statements): As part of initialising
5882 the value record of a task, set its _Secondary_Stack_Size field
5884 * exp_ch9.adb (Expand_N_Task_Type_Declaration): Create
5885 a _Secondary_Stack_Size field in the value record of
5886 the task if a Secondary_Stack_Size rep item is present.
5887 (Make_Task_Create_Call): Include secondary stack size
5888 parameter. If No_Secondary_Stack restriction is in place, passes
5890 * par-prag.adb, sem_prag.adb, sem_prag.ads: Added new pragma
5891 Secondary_Stack_Size.
5892 * s-secsta.adb, s-secsta.ads (Minimum_Secondary_Stack_Size): New
5893 function to define the overhead of the secondary stack.
5894 * s-tarest.adb (Create_Restricted_Task,
5895 Create_Restricted_Task_Sequential): Functions now include
5896 Secondary_Stack_Size parameter to pass to Initialize_ATCB.
5897 * s-tarest.adb (Create_Restricted_Task,
5898 Create_Restricted_Task_Sequential): Calls to Initialize_ATCB now
5899 include Secondary_Stack_Size parameter.
5900 (Task_Wrapper): Secondary stack now allocated to the size specified by
5901 the Secondary_Stack_Size parameter in the task's ATCB.
5902 * s-taskin.adb, s-taskin.adb (Common_ATCB, Initialize_ATCB): New
5903 Secondary_Stack_Size component.
5904 * s-tassta.adb, s-tassta.ads (Create_Restricted_Task,
5905 Create_Restricted_Task_Sequential): Function now include
5906 Secondary_Stack_Size parameter.
5907 (Task_Wrapper): Secondary stack now allocated to the size
5908 specified by the Secondary_Stack_Size parameter in the task's
5910 * s-tproft.adb (Register_Foreign_Thread): Amended Initialize_ATCB call
5911 to include Secondary_Stack_Size parameter.
5912 * sem_ch13.adb (Analyze_Aspect_Specification): Add support for
5913 Secondary_Stack_Size aspect, turning the aspect into its corresponding
5915 (Analyze_Attribute_Definition): Process Secondary_Stack_Size attribute.
5916 * snames.adb-tmpl, snames.ads-tmpl: Added names
5917 Name_Secondary_Stack_Size, Name_uSecondary_Stack_Size,
5918 Attribute_Secondary_Stack_Size and Pragma_Secondary_Stack_Size.
5920 2017-01-12 Yannick Moy <moy@adacore.com>
5922 * exp_spark.adb (Expand_SPARK_Potential_Renaming): Fix sloc of copied
5925 2017-01-12 Justin Squirek <squirek@adacore.com>
5927 * exp_attr.adb (Expand_N_Attribute_Reference):
5928 Fix Finalization_Size case by properly resolving the type after
5929 rewritting the node.
5931 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
5933 * exp_util.adb (Build_DIC_Procedure_Body): Semi-insert the body into
5935 (Build_DIC_Procedure_Declaration): Semi-insert the body into the tree.
5936 * binde.adb, exp_ch5.adb, sem_type.adb, sem.ads, sem_res.adb,
5937 exp_sel.ads: Minor reformatting.
5939 2017-01-12 Justin Squirek <squirek@adacore.com>
5941 * exp_ch6.adb (Expand_Call): Add guard to prevent
5942 invariant checks from being created for internally generated
5945 2017-01-12 Bob Duff <duff@adacore.com>
5947 * lib-writ.ads: Remove incorrect comment.
5949 2017-01-12 Javier Miranda <miranda@adacore.com>
5951 * debug.adb (-gnatd.K): Enable generation of contract-only
5952 procedures in CodePeer mode.
5953 * contracts.adb (Build_And_Analyze_Contract_Only_Subprograms):
5955 (Analyze_Contracts): Generate contract-only procedures if -gnatdK is
5957 * scil_ll.ads, scil_ll.adb (Get_Contract_Only_Body_Name): New
5959 (Get_Contract_Only_Missing_Body_Name): New subprogram.
5960 (Get_Contract_Only_Body): New subprogram.
5961 (Set_Contract_Only_Body): New subprogram.
5962 (Is_Contract_Only_Body): New subprogram.
5963 (Set_Is_Contract_Only_Body): New subprogram.
5964 (SCIL_Nodes): Replace table by hash-table.
5966 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
5968 * exp_ch6.adb: Minor reformatting.
5969 * spark_xrefs.ads: minor cleanup of comments for SPARK xrefs
5971 2017-01-12 Bob Duff <duff@adacore.com>
5973 * binde.adb (Forced): New reason for a dependence.
5974 (Force_Elab_Order): Implementation of the new switch.
5975 * binde.ads: Minor comment fixes.
5976 * bindusg.adb: Add -f switch. Apparently, there was an -f switch
5977 long ago that is no longer supported; removed comment about that.
5978 * opt.ads (Force_Elab_Order_File): Name of file specified for
5980 * switch-b.adb: Parse -f switch.
5982 2017-01-12 Justin Squirek <squirek@adacore.com>
5984 * exp_ch6.adb (Check_View_Conversion): Created this function
5985 to properly chain calls to check type invariants that may be
5986 present in a subprogram call after the subprogram.
5987 (Expand_Call): Add a conditional to identify when a view conversion
5988 needs to be checked.
5989 * nlists.adb, nlists.ads (Prepend_New): New routine.
5990 (Prepend_New_To): New routine.
5992 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
5994 * sinfo.ads: Minor reformatting.
5996 2017-01-12 Gary Dismukes <dismukes@adacore.com>
5998 * exp_util.adb, exp_util.ads, einfo.ads: Minor typo fixes and
6001 2017-01-12 Hristian Kirtchev <kirtchev@adacore.com>
6003 * exp_ch6.adb (Make_Build_In_Place_Call_In_Anonymous_Context): Add new
6004 variable Definite. Create a local object and pass its 'Access to the
6005 BIP function when the result type is either definite or it does not
6006 require any finalization or secondary stack management.
6008 2017-01-12 Bob Duff <duff@adacore.com>
6010 * contracts.adb, einfo.adb, errout.adb, exp_attr.adb,
6011 exp_ch3.adb, exp_ch7.adb, exp_ch9.adb, exp_prag.adb, freeze.adb,
6012 frontend.adb, ghost.adb, inline.adb, lib-writ.adb, lib-xref.adb,
6013 par.adb, par-ch10.adb, par-ch2.adb, par-prag.adb, par_sco.adb,
6014 sem_attr.adb, sem_aux.adb, sem_ch10.adb, sem_ch12.adb,
6015 sem_ch13.adb, sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_elab.adb,
6016 sem_prag.adb, sem_res.adb, sem_util.adb, sem_util.ads,
6017 sem_warn.adb, sinfo.adb, sinfo.ads, sprint.adb (Pragma_Name):
6018 Change name to Pragma_Name_Unmapped.
6019 (Pragma_Name_Mapped): Change name to Pragma_Name.
6020 This is because the "mapped" version should be the usual case.
6022 2017-01-09 Hristian Kirtchev <kirtchev@adacore.com>
6024 * einfo.ads, einfo.adb: Remove uses of flags Has_Default_Init_Cond,
6025 Is_Default_Init_Cond_Procedure, and
6026 Has_Inherited_Default_Init_Cond. Add uses of flags
6027 Has_Own_DIC, Is_DIC_Procedure, and Has_Inherited_DIC.
6028 (Default_Init_Cond_Procedure): Removed.
6029 (DIC_Procedure): New routine.
6030 (Has_Default_Init_Cond): Removed.
6031 (Has_DIC): New routine.
6032 (Has_Inheritable_Invariants): The attribute applies to the base type.
6033 (Has_Inherited_Default_Init_Cond): Removed.
6034 (Has_Inherited_DIC): New routine.
6035 (Has_Inherited_Invariants): The attribute applies to the base type.
6036 (Has_Own_DIC): New routine.
6037 (Has_Own_Invariants): The attribute applies to the base type.
6038 (Is_Default_Init_Cond_Procedure): Removed.
6039 (Is_DIC_Procedure): New routine.
6040 (Set_Default_Init_Cond_Procedure): Removed.
6041 (Set_DIC_Procedure): New routine.
6042 (Set_Has_Default_Init_Cond): Removed.
6043 (Set_Has_Inheritable_Invariants): The attribute applies
6045 (Set_Has_Inherited_Default_Init_Cond): Removed.
6046 (Set_Has_Inherited_DIC): New routine.
6047 (Set_Has_Inherited_Invariants): The attribute applies to the base type.
6048 (Set_Has_Own_DIC): New routine.
6049 (Set_Has_Own_Invariants): The attribute applies to the base type.
6050 (Set_Is_Default_Init_Cond_Procedure): Removed.
6051 (Set_Is_DIC_Procedure): New routine.
6052 (Write_Entity_Flags): Update the output of all flags related to
6053 default initial condition.
6054 * exp_ch3.adb (Expand_N_Object_Declaration): Update the generation
6055 of the call to the DIC procedure.
6056 (Freeze_Type): Generate the body of the DIC procedure.
6057 * exp_ch7.adb (Build_Invariant_Procedure_Body): Replace
6058 all occurrences of Create_Append with Append_New_To. Do
6059 not generate an invariant procedure for a class-wide type.
6060 The generated body acts as a freeze action of the working type.
6061 (Build_Invariant_Procedure_Declaration): Do not generate an
6062 invariant procedure for a class-wide type.
6063 (Create_Append): Removed.
6064 * exp_util.adb: Add with and use clauses for Sem_Ch3, sem_ch6,
6065 sem_Ch12, Sem_Disp, and GNAT.HTable. Move the handling of
6066 class-wide pre/postcondition description and data structures from
6068 (Build_Class_Wide_Expression): Moved from Sem_Prag.
6069 (Build_DIC_Call): New routine.
6070 (Build_DIC_Procedure_Body): New routine.
6071 (Build_DIC_Procedure_Declaration): New routine.
6072 (Entity_Hash): Moved from Sem_Prag.
6073 (Find_DIC_Type): New routine.
6074 (Update_Primitives_Mapping): Reimplemented.
6075 (Update_Primitives_Mapping_Of_Types): New routine.
6076 * exp_util.ads (Build_Class_Wide_Expression): Moved from Sem_Prag.
6077 (Build_DIC_Call): New routine.
6078 (Build_DIC_Procedure_Body): New routine.
6079 (Build_DIC_Procedure_Declaration): New routine.
6080 (Update_Primitives_Mapping): Moved from Sem_Prag.
6081 (Update_Primitives_Mapping_Of_Types): New routine.
6082 * nlists.adb (Append_New): New routine.
6083 (Append_New_To): New routine.
6084 * nlists.ads (Append_New): New routine.
6085 (Append_New_To): New routine.
6086 * sem_ch3.adb (Analyze_Declarations): Do not generate the bodies
6087 of DIC procedures here. This is now done at the end of the
6088 visible declarations, private declarations, and at the freeze
6090 (Analyze_Private_Extension_Declaration):
6091 A private extension inherits the DIC pragma of a parent type.
6092 (Analyze_Subtype_Declaration): No need to propagate invariant
6093 attributes to a subtype as those apply to the base type.
6094 (Build_Derived_Record_Type): No need to inherit invariants here
6095 as this is now done in Build_Derived_Type.
6096 (Build_Derived_Type): Inherit both the DIC pragma and invariants from
6098 (Process_Full_View): Update the propagation of DIC attributes.
6099 (Propagate_Default_Init_Cond_Attributes): Removed.
6100 * sem_ch7.adb Add with and use clauses for Exp_Util.
6101 (Analyze_Package_Specification): Create the body of the DIC
6102 procedure at the end of the visible and private declarations.
6103 (Preserve_Full_Attributes): Propagate DIC attributes.
6104 * sem_ch9.adb (Analyze_Protected_Type_Declaration): Propagate
6106 (Analyze_Task_Type_Declaration): Propagate DIC attributes.
6107 * sem_elab.adb (Check_A_Call): Update the call to
6108 Is_Nontrivial_Default_Init_Cond_Procedure.
6109 * sem_prag.adb Remove the with and use clauses for
6110 GNAT.HTable. Move the handling of class- wide pre/postcondition
6111 description and data structures to Exp_Util.
6112 (Analyze_Pragma): Create the declaration of the DIC procedure. There
6113 is no need to propagate invariant-related attributes at this point
6114 as this is done in Build_Invariant_Procedure_Declaration.
6115 (Build_Class_Wide_Expression): Moved to Exp_Util.
6116 (Entity_Hash): Moved to Exp_Util.
6117 (Update_Primitives_Mapping): Moved to Exp_Util.
6118 * sem_prag.ads (Build_Class_Wide_Expression): Moved to Exp_Util.
6119 (Update_Primitives_Mapping): Moved to Exp_Util.
6120 * sem_util.adb: Remove with and use clauses for Ghost
6122 (Build_Default_Init_Cond_Call): Removed.
6123 (Build_Default_Init_Cond_Procedure_Bodies): Removed.
6124 (Build_Default_Init_Cond_Procedure_Declaration): Removed.
6125 (Get_Views): Reimplemented.
6126 (Has_Full_Default_Initialization): Reimplement the section on DIC.
6127 (Inherit_Default_Init_Cond_Procedure): Removed.
6128 (Is_Nontrivial_Default_Init_Cond_Procedure): Removed.
6129 (Is_Nontrivial_DIC_Procedure): New routine.
6130 (Is_Verifiable_DIC_Pragma): New routine.
6131 (Propagate_DIC_Attributes): New routine.
6132 * sem_util.ads (Build_Default_Init_Cond_Call): Removed.
6133 (Build_Default_Init_Cond_Procedure_Bodies): Removed.
6134 (Build_Default_Init_Cond_Procedure_Declaration): Removed.
6135 (Inherit_Default_Init_Cond_Procedure): Removed.
6136 (Is_Nontrivial_Default_Init_Cond_Procedure): Removed.
6137 (Is_Nontrivial_DIC_Procedure): New routine.
6138 (Is_Verifiable_DIC_Pragma): New routine.
6139 (Propagate_DIC_Attributes): New routine.
6140 * sem_warn.adb (Is_OK_Fully_Initialized): Reimplement the section
6142 * sinfo.ads, sinfo.adb: Add new attribute Expression_Copy along with
6144 (Expression_Copy): New routine along with pragma Inline.
6145 (Set_Expression_Copy): New routine along with pragma Inline.
6147 2017-01-06 Bob Duff <duff@adacore.com>
6149 * bindgen.adb (Gen_Adainit, Gen_Adafinal): Change
6150 "Bind_Main_Program" to "not Bind_For_Library", because otherwise
6151 we won't generate the call to s_stalib_adafinal when the main
6152 is not written in Ada.
6154 2017-01-06 Bob Duff <duff@adacore.com>
6156 * sem_prag.adb: Minor: remove pragma Warnings.
6158 2017-01-06 Tristan Gingold <gingold@adacore.com>
6160 * Makefile.rtl: Do not compile s-stchop by default.
6162 2017-01-06 Patrick Bernardi <bernardi@adacore.com>
6164 * aspects.adb, aspects.ads, exp_ch3.adb, exp_ch9.adb, par-prag.adb,
6165 sem_ch13.adb, sem_prag.adb, sem_prag.ads, snames.adb-tmpl,
6166 snames.ads-tmpl, s-secsta.adb, s-secsta.ads, s-tarest.adb,
6167 s-tarest.ads, s-taskin.adb, s-taskin.ads, s-tassta.adb, s-tassta.ads:
6168 Reverted previous change for now.
6170 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6172 * exp_ch3.adb (Build_Initialization_Call): Apply predicate
6173 check to default discriminant value if checks are enabled.
6174 (Build_Assignment): If type of component has static predicate,
6175 apply check to its default value, if any.
6177 2017-01-06 Patrick Bernardi <bernardi@adacore.com>
6179 * aspect.adb, aspect.ads: Added new aspect Secondary_Stack_Size.
6180 * exp_ch3.adb (Build_Init_Statements): As part of initialising
6181 the value record of a task, set its _Secondary_Stack_Size field
6183 * exp_ch9.adb (Expand_N_Task_Type_Declaration): Create
6184 a _Secondary_Stack_Size field in the value record of
6185 the task if a Secondary_Stack_Size rep item is present.
6186 (Make_Task_Create_Call): Include secondary stack size
6187 parameter. If No_Secondary_Stack restriction is in place, passes
6189 * par-prag.adb, sem_prag.adb, sem_prag.ads: Added new pragma
6190 Secondary_Stack_Size.
6191 * s-secsta.adb, s-secsta.ads (Minimum_Secondary_Stack_Size): New
6192 function to define the overhead of the secondary stack.
6193 * s-tarest.adb (Create_Restricted_Task,
6194 Create_Restricted_Task_Sequential): Functions now include
6195 Secondary_Stack_Size parameter to pass to Initialize_ATCB.
6196 * s-tarest.adb (Create_Restricted_Task,
6197 Create_Restricted_Task_Sequential): Calls to Initialize_ATCB
6198 now include Secondary_Stack_Size parameter.
6200 Secondary stack now allocated to the size specified by the
6201 Secondary_Stack_Size parameter in the task's ATCB.
6202 * s-taskin.adb, s-taskin.adb (Common_ATCB, Initialise_ATCB): New
6203 Secondary_Stack_Size component.
6204 * s-tassta.adb, s-tassta.ads (Create_Restricted_Task,
6205 Create_Restricted_Task_Sequential): Function now include
6206 Secondary_Stack_Size parameter.
6207 (Task_Wrapper): Secondary stack
6208 now allocated to the size specified by the Secondary_Stack_Size
6209 parameter in the task's ATCB.
6210 * sem_ch13.adb (Analyze_Aspect_Specification): Add support
6211 for Secondary_Stack_Size aspect, turning the aspect into its
6212 corresponding internal attribute.
6213 (Analyze_Attribute_Definition):
6214 Process Secondary_Stack_Size attribute.
6215 * snames.adb-tmpl, snames.ads-tmpl: Added names
6216 Name_Secondary_Stack_Size, Name_uSecondary_Stack_Size,
6217 Attribute_Secondary_Stack_Size and Pragma_Secondary_Stack_Size.
6219 2017-01-06 Pascal Obry <obry@adacore.com>
6221 * a-direio.adb, a-direio.ads, a-sequio.adb, a-sequio.ads: Add Flush to
6222 Sequential_IO and Direct_IO.
6224 2017-01-06 Bob Duff <duff@adacore.com>
6226 * snames.ads-tmpl (Renamed): New name for the pragma argument.
6227 * par-ch2.adb: Allow the new pragma (with analysis deferred
6229 * sinfo.ads, sinfo.adb (Map_Pragma_Name, Pragma_Name_Mapped):
6230 Keep a mapping from new pragma names to old names.
6231 * sem_prag.adb: Check legality of pragma Rename_Pragma, and
6232 implement it by calling Map_Pragma_Name.
6233 * checks.adb, contracts.adb, einfo.adb, errout.adb,
6234 * exp_attr.adb, exp_ch3.adb, exp_ch6.adb, exp_ch7.adb, exp_ch9.adb,
6235 * exp_prag.adb, exp_util.adb, freeze.adb, frontend.adb, ghost.adb,
6236 * inline.adb, lib-writ.adb, scans.adb, scans.ads, sem_attr.adb,
6237 * sem_aux.adb, sem_ch10.adb, sem_ch13.adb, sem_ch6.adb, sem_ch9.adb,
6238 * sem_elab.adb, sem_res.adb, sem_util.adb, sem_util.ads,
6239 * sem_warn.adb: Call Pragma_Name_Mapped instead of Pragma_Name
6242 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6244 * exp_ch9.adb: Minor reformatting.
6246 2017-01-06 Tristan Gingold <gingold@adacore.com>
6248 * exp_ch9.ads, exp_ch9.adb (Build_Entry_Names): Remove (unused).
6249 * rtsfind.ads (RE_Task_Entry_Names_Array, RO_ST_Set_Entry_Names)
6250 (RE_Protected_Entry_Names_Array, RO_PE_Set_Entry_Names): Remove
6252 * s-taskin.ads, s-taskin.adb (Set_Entry_Names,
6253 Task_Entry_Names_Array, Task_Entry_Names_Access): Remove.
6254 * s-tpoben.ads, s-tpoben.adb (Set_Entry_Names,
6255 Protected_Entry_Names_Array, Protected_Entry_Names_Access): Remove.
6257 2017-01-06 Bob Duff <duff@adacore.com>
6259 * sinfo.ads, sinfo.adb (Map_Pragma_Name): Preparation work,
6260 dummy implementation of Map_Pragma_Name.
6262 2017-01-06 Tristan Gingold <gingold@adacore.com>
6264 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Make the
6265 entry_body variable constant.
6266 * s-taprob.ads (Entry_Body_Access): Move to s-tposen.
6267 * s-tpoben.ads (Protected_Entry_Body_Access): Now access
6269 * s-tposen.ads (Entry_Body_Access): Moved from s-taprob,
6270 now access to constant.
6272 2017-01-06 Gary Dismukes <dismukes@adacore.com>
6274 * einfo.ads, sem_res.adb, sem_attr.adb, sem_ch6.adb: Minor
6275 reformatting and typo fixes.
6277 2017-01-06 Bob Duff <duff@adacore.com>
6279 * snames.ads-tmpl: New names for pragma renaming.
6280 * snames.adb-tmpl (Is_Configuration_Pragma_Name): Minor cleanup.
6281 * par-prag.adb: Add new pragma name to case statement.
6282 * sem_prag.adb (Rename_Pragma): Initial cut at semantic analysis
6284 * sinfo.ads, sinfo.adb (Pragma_Name_Mapped): Preparation work,
6285 Dummy implementation of Pragma_Name_Mapped.
6287 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6289 * exp_ch6.adb (Expand_Protected_Subprogram_Call): Add guard to
6290 better detect call within an entry_wrapper.
6291 * sem_res.adb (Resolve_Call): A protected call within an
6292 entity_wrapper is analyzed in the context of the protected
6293 object but corresponds to a pre-analysis and is not an access
6295 * sem_attr.adb: Minor reformatting.
6297 2017-01-06 Justin Squirek <squirek@adacore.com>
6299 * sem_attr.adb (Analyze_Attribute): Modify semantic checks for
6300 Finalization_Size to allow a prefix of any non-class-wide type.
6301 * sem_attr.ads Modify comment for Finalization_Size to include
6302 definite type use case.
6304 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6306 * einfo.ads, einfo.adb (Is_Entry_Wrapper): New flag, defined
6307 on procedures that are wrappers created for entries that have
6309 * sem_ch6.adb (Analyze_Subrogram_Body_Helper): If the subprogram
6310 body is an entry_wrapper, compile it in the context of the
6311 synchronized type, because a precondition may refer to funtions
6313 * exp_ch9.adb (Build_Contract_Wrapper): Set Is_Entry_Wrapper on
6315 * exp_ch6.adb (Expand_Protected_Subprogram_Call): if the call is
6316 within an Entry_Wrapper this is an external call whose target
6317 is the synchronized object that is the actual in the call to
6320 2017-01-06 Yannick Moy <moy@adacore.com>
6322 * sem_attr.adb (Analyze_Attribute/Attribute_Loop_Entry): Analyze node
6323 in tree, which means not analyzing the previous prefix if the node has
6324 been rewritten into its prefix.
6326 2017-01-06 Gary Dismukes <dismukes@adacore.com>
6328 * s-tpobop.adb: Minor reformatting.
6330 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6332 * checks.adb (Ensure_Valid): Do not generate a validity check
6333 within a generated predicate function, validity checks will have
6334 been applied earlier when required.
6336 2017-01-06 Tristan Gingold <gingold@adacore.com>
6338 * s-tpoben.ads (Protection_Entries): Add comment and reorder
6339 components for performances.
6340 * s-tpobop.adb (PO_Do_Or_Queue): Implement Max_Queue_Length runtime
6343 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6345 * sem_eval.adb (Check_Expression_Against_Static_Predicate):
6346 If expression is compile-time known and obeys a static predicate
6347 it must be labelled as static, to prevent spurious warnings and
6348 run-time errors, e.g. in case statements. This is relevant when
6349 the expression is the result of constant-folding a type conversion
6350 whose expression is a variable with a known static value.
6352 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6354 * exp_attr.adb, sem_attr.ads: Minor reformatting.
6356 2017-01-06 Justin Squirek <squirek@adacore.com>
6358 * exp_attr.adb (Expand_N_Attribute_Reference): Add entry for
6359 expansion of Finalization_Size attribute.
6360 * sem_attr.adb (Analyze_Attribute): Add entry to check the
6361 semantics of Finalization_Size.
6362 (Eval_Attribute): Add null entry for Finalization_Size.
6363 * sem_attr.ads: Add Finalization_Size to the implementation
6364 dependent attribute list.
6365 * snames.ads-tmpl: Add name entry for Finalization_Size attribute.
6367 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6369 * sem_ch5.adb (Analyze_Loop_Statement): If the loop includes an
6370 iterator specification with a serious syntactic error, transform
6371 construct into an infinite loop in order to continue analysis
6372 and prevent a compiler abort.
6374 2017-01-06 Tristan Gingold <gingold@adacore.com>
6376 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Do not generate
6377 max_queue_lengths_array if unused.
6379 2017-01-06 Bob Duff <duff@adacore.com>
6381 * errout.adb (Set_Msg_Text): Protect against out-of-bounds
6382 array access, in case "\" is at the end of Text.
6383 * stylesw.adb (Set_Style_Check_Options): Don't include input
6384 characters in the error message template, because they could
6385 be control characters such as "\", which Errout will try to
6388 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6390 * sem_ch4.adb (Find_Indexing_Operations, Inspect_Declarations):
6391 For a private type examine the visible declarations that follow
6392 the partial view, not just the private declarations that follow
6395 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6397 * exp_ch5.adb, sem_ch3.adb, checks.adb: Minor reformatting and
6400 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6402 * exp_ch5.adb (Get_Default_Iterator): For a derived type, the
6403 alias of the inherited op is the parent iterator, no need to
6404 examine dispatch table positions which might not be established
6405 yet if type is not frozen.
6406 * sem_disp.adb (Check_Controlling_Formals): The formal of a
6407 predicate function may be a subtype of a tagged type.
6408 * sem_ch3.adb (Complete_Private_Subtype): Adjust inheritance
6409 of representation items for the completion of a type extension
6410 where a predicate applies to the partial view.
6411 * checks.ads, checks.adb (Apply_Predicate_Check): Add optional
6412 parameter that designates function whose actual receives a
6413 predicate check, to improve warning message when the check will
6414 lead to infinite recursion.
6415 * sem_res.adb (Resolve_Actuals): Pass additional parameter to
6416 Apply_Predicate_Check.
6418 2017-01-06 Tristan Gingold <gingold@adacore.com>
6420 * s-rident.ads (Profile_Info): Remove No_Entry_Queue from
6421 Gnat_Extended_Ravenscar.
6422 * exp_ch9.adb, s-tpoben.adb, s-tpoben.ads: Fix spelling.
6424 2017-01-06 Gary Dismukes <dismukes@adacore.com>
6426 * sem_util.ads: Minor typo fix and reformatting.
6428 2017-01-06 Yannick Moy <moy@adacore.com>
6430 * ghost.adb Minor fixing of references to SPARK RM.
6431 (Check_Ghost_Context): Check whether reference is to a lvalue
6432 before issuing an error about violation of SPARK RM 6.9(13)
6433 when declaration has Ghost policy Check and reference has Ghost
6435 * sem_util.adb Minor indentation.
6436 * sem_ch10.adb (Analyze_Package_Body_Stub, Analyze_Protected_Body_Stub,
6437 Analyze_Task_Body_Stub): Set Ekind of the defining identifier.
6438 * sem_util.ads (Unique_Defining_Entity): Document the result
6439 for package body stubs.
6441 2017-01-06 Tristan Gingold <gingold@adacore.com>
6443 * raise-gcc.c (abort): Macro to call Abort_Propagation.
6444 * s-tpoben.ads (Protected_Entry_Queue_Max_Access): Make it access
6446 * exp_ch9.adb (Expand_N_Protected_Type_Declaration):
6447 Do not generate the Entry_Max_Queue_Lengths_Array if all default
6449 * exp_util.adb (Corresponding_Runtime_Package): Consider
6450 Max_Queue_Length pragma.
6452 2017-01-06 Justin Squirek <squirek@adacore.com>
6454 * exp_ch9.adb (Expand_N_Protected_Type_Declaration):
6455 Remove declaration generation in the case of
6456 System_Tasking_Protected_Objects_Single_Entry being used,
6457 and add a warning message when this is detected to occur.
6458 (Make_Initialize_Protection): Remove reference pass in the case
6459 of System_Tasking_Protected_Objects_Single_Entry.
6460 * rtsfind.ads: Remove RE_Protected_Entry_Queue_Max
6461 * s-tposen.adb (Initialize_Protection_Entry): Remove
6462 Entry_Queue_Max parameter.
6463 * s-tposen.ads: Remove the types use to store the entry queue
6465 * sem_prag.adb (Analyze_Pragma): Remove entry families restriction
6467 2017-01-06 Yannick Moy <moy@adacore.com>
6469 * sem_util.adb, sem_util.ads (Get_Enum_Lit_From_Pos): Strengthen
6470 behavior of function, to also accept out of range positions
6471 and raise Constraint_Error in such case, and to copy sloc from
6472 literal if No_Location passed as location.
6473 * uintp.adb, uintp.ads (UI_To_Int, UI_To_CC): Strengthen behavior
6474 of functions to raise Constraint_Error in case of value not in
6477 2017-01-06 Tristan Gingold <gingold@adacore.com>
6479 * sem_util.adb, s-taprop-linux.adb (Finalize_TCB): Remove call to
6480 Invalidate_Stack_Cache.
6482 2017-01-06 Eric Botcazou <ebotcazou@adacore.com>
6484 * s-os_lib.adb: Minor fix to the signature of Readlink.
6486 2017-01-06 Javier Miranda <miranda@adacore.com>
6488 * sem_ch6.adb (Conforming_Types): Handle another
6489 confusion between views in a nested instance with an actual
6490 private type whose full view is not in scope.
6492 2017-01-06 Arnaud Charlet <charlet@adacore.com>
6494 * exp_ch5.adb (Expand_N_If_Statement): Obey existing comment and
6495 mark a rewritten if statement as explicit (Comes_From_Source).
6497 2017-01-06 Gary Dismukes <dismukes@adacore.com>
6499 * sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes.
6501 2017-01-06 Tristan Gingold <gingold@adacore.com>
6503 * ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All.
6505 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6507 * sem_case.adb: Minor reformatting.
6509 2017-01-06 Thomas Quinot <quinot@adacore.com>
6511 * g-socthi-mingw.adb: Remove now extraneous USE TYPE clause
6513 2017-01-06 Justin Squirek <squirek@adacore.com>
6515 * aspects.adb: Register aspect in Canonical_Aspect.
6516 * aspects.ads: Associate qualities of Aspect_Max_Queue_Length
6517 into respective tables.
6518 * einfo.ads, einfo.adb: Add a new attribute for
6519 handling the parameters for Pragma_Max_Entry_Queue
6520 (Entry_Max_Queue_Lengths_Array) in E_Protected_Type. Subprograms
6521 for accessing and setting were added as well.
6522 * par-prag.adb (Prag): Register Pramga_Max_Entry_Queue.
6523 * exp_ch9.adb (Expand_N_Protected_Type_Declaration): Emit
6524 declaration for pramga arguments and store them in the protected
6526 (Make_Initialize_Protection): Pass a reference to
6527 the Entry_Max_Queue_Lengths_Array in the protected type node to
6529 * rtsfind.adb: Minor grammar fix.
6530 * rtsfind.ads: Register new types taken from the
6531 runtime libraries RE_Protected_Entry_Queue_Max and
6532 RE_Protected_Entry_Queue_Max_Array
6533 * s-tposen.adb, s-tpoben.adb
6534 (Initialize_Protection_Entry/Initialize_Protection_Entries):
6535 Add extra parameter and add assignment to local object.
6536 * s-tposen.ads, s-tpoben.ads: Add new types to
6537 store entry queue maximums and a field to the entry object record.
6538 * sem_ch13.adb (Analyze_Aspect_Specifications): Add case statement
6539 for Aspect_Max_Queue_Length.
6540 (Check_Aspect_At_Freeze_Point):
6541 Add aspect to list of aspects that don't require delayed analysis.
6542 * sem_prag.adb (Analyze_Pragma): Add case statement for
6543 Pragma_Max_Queue_Length, check semantics, and register arugments
6544 in the respective entry nodes.
6545 * sem_util.adb, sem_util.ads Add functions Get_Max_Queue_Length
6546 and Has_Max_Queue_Length
6547 * snames.ads-tmpl: Add constant for the new aspect-name
6548 Name_Max_Queue_Length and corrasponding pragma.
6550 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6552 * exp_util.adb (Is_Controlled_Function_Call):
6553 Reimplemented. Consider any node which has an entity as the
6554 function call may appear in various ways.
6556 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6558 * exp_attr.adb (Rewrite_Stream_Proc_Call): Use
6559 an unchecked type conversion when performing a view conversion
6560 to/from a private type. In all other cases use a regular type
6561 conversion to ensure that any relevant checks are properly
6564 2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
6566 * sem_prag.adb, sem_ch8.adb: Minor reformatting.
6568 2017-01-06 Ed Schonberg <schonberg@adacore.com>
6570 * sem_case.adb (Explain_Non_Static_Bound): Suppress cascaded
6571 error on case expression that is an entity, when coverage is
6572 incomplete and entity has a static value obtained by local
6574 (Handle_Static_Predicate): New procedure, subsidiary of
6575 Check_Choices, to handle case alternatives that are either
6576 subtype names or subtype indications involving subtypes that
6577 have static predicates.
6579 2017-01-06 Thomas Quinot <quinot@adacore.com>
6581 * s-oscons-tmplt.c, g-socket.adb, g-socket.ads, g-sothco.ads:
6582 (GNAT.Socket): Add support for Busy_Polling and Generic_Option
6584 2017-01-06 Bob Duff <duff@adacore.com>
6586 * sem_elab.adb (Activate_Elaborate_All_Desirable): Don't add
6587 Elaborate_All(P) to P itself. That could happen in obscure cases,
6588 and always introduced a cycle (P body must be elaborated before
6590 * lib-writ.ads: Comment clarification.
6591 * ali-util.ads: Minor comment fix.
6592 * ali.adb: Minor reformatting.
6594 2017-01-06 Tristan Gingold <gingold@adacore.com>
6596 * a-exexpr-gcc.adb: Improve comment.
6598 2017-01-03 James Cowgill <James.Cowgill@imgtec.com>
6600 * s-linux-mips.ads: Use correct signal and errno constants.
6601 (sa_handler_pos, sa_mask_pos): Fix offsets for 64-bit MIPS.
6603 2017-01-03 James Cowgill <James.Cowgill@imgtec.com>
6605 * s-linux-mips.ads: Rename from s-linux-mipsel.ads.
6606 * gcc-interface/Makefile.in (MIPS/Linux): Merge mips and mipsel
6609 2017-01-01 Eric Botcazou <ebotcazou@adacore.com>
6611 * gnatvsn.ads: Bump copyright year.
6613 2017-01-01 Jakub Jelinek <jakub@redhat.com>
6615 * gnat_ugn.texi: Bump @copying's copyright year.
6616 * gnat_rm.texi: Likewise.
6618 Copyright (C) 2017 Free Software Foundation, Inc.
6620 Copying and distribution of this file, with or without modification,
6621 are permitted in any medium without royalty provided the copyright
6622 notice and this notice are preserved.