gcc/ada/ChangeLog

   1 2010-04-17  Eric Botcazou  <ebotcazou@adacore.com>
   2
   3         * gcc-interface/utils2.c (build_unary_op) <ATTR_ADDR_EXPR>: Do not
   4         issue warning.
   5
   6 2010-04-17  Eric Botcazou  <ebotcazou@adacore.com>
   7
   8         * uintp.h (UI_Lt): Declare.
   9         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Do the size
  10         computation in sizetype.
  11         <E_Array_Subtype>: Use unified handling for all index types.  Do not
  12         generate MAX_EXPR-based expressions, only COND_EXPR-based ones.  Add
  13         bypass for PATs.
  14         (annotate_value): Change test for negative values.
  15         (validate_size): Apply test for negative values on GNAT nodes.
  16         (set_rm_size): Likewise.
  17         * gcc-interface/misc.c (gnat_init): Set unsigned types for sizetypes.
  18         * gcc-interface/utils.c (rest_of_record_type_compilation): Change test
  19         for negative values.
  20         (max_size) <MINUS_EXPR>: Do not reassociate a COND_EXPR on the LHS.
  21         (builtin_type_for_size): Adjust definition of signed_size_type_node.
  22         * gcc-interface/utils2.c (compare_arrays): Optimize comparison of
  23         lengths against zero.
  24
  25 2010-04-17  Eric Botcazou  <ebotcazou@adacore.com>
  26
  27         * back-end.adb (Call_Back_End): Pass Standard_Character to gigi.
  28         * gcc-interface/gigi.h (gigi): Add standard_character parameter.
  29         (CHAR_TYPE_SIZE, SHORT_TYPE_SIZE, INT_TYPE_SIZE, LONG_TYPE_SIZE,
  30         LONG_LONG_TYPE_SIZE, FLOAT_TYPE_SIZE, DOUBLE_TYPE_SIZE,
  31         LONG_DOUBLE_TYPE_SIZE, SIZE_TYPE): Delete.
  32         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Call
  33         rm_size.
  34         * gcc-interface/misc.c (gnat_init): Set signedness of char as per
  35         flag_signed_char.  Tag sizetype with "size_type" moniker.
  36         * gcc-interface/trans.c (gigi): Add standard_character parameter.
  37         Remove useless built-in types.  Equate unsigned_char_type_node to
  38         Standard.Character.  Use it instead of char_type_node throughout.
  39         (Attribute_to_gnu): Likewise.
  40         (gnat_to_gnu): Likewise.
  41         * gcc-interface/utils2.c (build_call_raise): Likewise.
  42
  43 2010-04-17  Eric Botcazou  <ebotcazou@adacore.com>
  44
  45         * gcc-interface/gigi.h (enum standard_datatypes): Add new values
  46         ADT_sbitsize_one_node and ADT_sbitsize_unit_node.
  47         (sbitsize_one_node): New macro.
  48         (sbitsize_unit_node): Likewise.
  49         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Fix
  50         latent bug in the computation of subrange_p.  Fold wider_p predicate.
  51         (cannot_be_superflat_p): Use an explicitly signed 64-bit type to do
  52         the final comparison.
  53         (make_aligning_type): Build real negation and use sizetype throughout
  54         the offset computation.
  55         (maybe_pad_type): Do not issue the warning when the new size expression
  56         is too complex.
  57         (annotate_value) <INTEGER_CST>: Simplify code handling negative values.
  58         * gcc-interface/misc.c (gnat_init): Initialize sbitsize_one_node and
  59         sbitsize_unit_node.
  60         * gcc-interface/trans.c (Attribute_to_gnu) <Attr_Pool_Address>: Fold
  61         double negation.
  62         (gnat_to_gnu) <N_Free_Statement>: Likewise.
  63         * gcc-interface/utils.c (convert): Use sbitsize_unit_node.
  64         * gcc-interface/utils2.c (compare_arrays): Compute real lengths and use
  65         constants in sizetype.  Remove dead code and tweak comments.  Generate
  66         equality instead of inequality comparisons for zero length tests.
  67
  68 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
  69
  70         * gcc-interface/gigi.h (gnat_init_decl_processing): Delete.
  71         * gcc-interface/decl.c (gnat_to_gnu_entity): Constify a few variables.
  72         <object>: Do not create the fake PARM_DECL if no debug info is needed.
  73         Do not create the corresponding VAR_DECL of a CONST_DECL for debugging
  74         purposes if no debug info is needed.
  75         Fix formatting.  Reorder and add comments.
  76         * gcc-interface/trans.c (gnat_to_gnu) <N_Attribute_Reference>: Constify
  77         variable and remove obsolete comment.
  78         * gcc-interface/utils.c (convert_vms_descriptor64): Tweak comment.
  79         (convert_vms_descriptor32): Likewise.
  80         (convert): Remove dead code.
  81         <UNCONSTRAINED_ARRAY_REF>: Pass the field instead of its name to build
  82         the reference to the P_ARRAY pointer.
  83         <POINTER_TYPE>: Likewise.
  84         (maybe_unconstrained_array) <UNCONSTRAINED_ARRAY_TYPE>: Likewise.
  85         (gnat_init_decl_processing): Delete, move contents to...
  86         * gcc-interface/misc.c (gnat_init): ...here.
  87
  88 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
  89
  90         * gcc-interface/trans.c (unchecked_conversion_nop): Handle function
  91         calls.  Return true for conversion from a record subtype to its type.
  92
  93 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
  94
  95         * gcc-interface/decl.c (gnat_to_gnu_entity): Use boolean_type_node in
  96         lieu of integer_type_node for boolean operations.
  97         (choices_to_gnu): Likewise.
  98         * gcc-interface/trans.c (Attribute_to_gnu): Likewise.
  99         (Loop_Statement_to_gnu): Likewise.
 100         (establish_gnat_vms_condition_handler): Likewise.
 101         (Exception_Handler_to_gnu_sjlj): Likewise.
 102         (gnat_to_gnu): Likewise.
 103         (build_unary_op_trapv): Likewise.
 104         (build_binary_op_trapv): Likewise.
 105         (emit_range_check): Likewise.
 106         (emit_index_check): Likewise.
 107         (convert_with_check): Likewise.
 108         * gcc-interface/utils.c (convert_vms_descriptor64): Likewise.
 109         (convert_vms_descriptor32): Likewise.
 110         (convert_vms_descriptor): Likewise.
 111         * gcc-interface/utils2.c (nonbinary_modular_operation): Likewise.
 112         (compare_arrays): Use boolean instead of integer constants.
 113         (build_binary_op) <TRUTH_ANDIF_EXPR, TRUTH_ORIF_EXPR, TRUTH_AND_EXPR,
 114         TRUTH_OR_EXPR, TRUTH_XOR_EXPR>: New case.  Check that the result type
 115         is a boolean type.
 116         <GE_EXPR, LE_EXPR, GT_EXPR, LT_EXPR>: Remove obsolete assertion.
 117         <EQ_EXPR, NE_EXPR>: Check that the result type is a boolean type.
 118         <PREINC/PREDECREMENT_EXPR, POSTINC/POSTDECREMENT_EXPR>: Delete.
 119         <TRUTH_NOT_EXPR>: Check that the result type is a boolean type.
 120         (build_unary_op): Use boolean_type_node in lieu of integer_type_node
 121         for boolean operations.
 122         (fill_vms_descriptor): Likewise.  Fix formatting nits.
 123
 124 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
 125
 126         * gcc-interface/ada-tree.def (LOOP_STMT): Change to 4-operand nodes.
 127         * gcc-interface/ada-tree.h (LOOP_STMT_TOP_COND, LOOP_STMT_BOT_COND):
 128         Merge into...
 129         (LOOP_STMT_COND): ...this.
 130         (LOOP_STMT_BOTTOM_COND_P): New flag.
 131         (LOOP_STMT_TOP_UPDATE_P): Likewise.
 132         * gcc-interface/trans.c (can_equal_min_or_max_val_p): New function.
 133         (can_equal_min_val_p): New static inline function.
 134         (can_equal_max_val_p): Likewise.
 135         (Loop_Statement_to_gnu): Use build4 in lieu of build5 and adjust to
 136         new LOOP_STMT semantics.  Use two different strategies depending on
 137         whether optimization is enabled to translate the loop.
 138         (gnat_gimplify_stmt) <LOOP_STMT>: Adjust to new LOOP_STMT semantics.
 139
 140 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
 141
 142         * uintp.adb (UI_From_Dint): Remove useless code.
 143         (UI_From_Int): Likewise.
 144         * uintp.h: Reorder declarations.
 145         (UI_From_gnu): Declare.
 146         (UI_Base): Likewise.
 147         (Vector_Template): Likewise.
 148         (Vector_To_Uint): Likewise.
 149         (Uint_0): Remove.
 150         (Uint_1): Likewise.
 151         * gcc-interface/gigi.h: Tweak comments.
 152         * gcc-interface/cuintp.c (UI_From_gnu): New global function.
 153         * gcc-interface/decl.c (maybe_pad_type): Do not warn if either size
 154         overflows.
 155         (annotate_value) <INTEGER_CST>: Call UI_From_gnu.
 156         * gcc-interface/trans.c (post_error_ne_num): Call post_error_ne.
 157         (post_error_ne_tree): Call UI_From_gnu and post_error_ne.
 158         * gcc-interface/utils.c (max_size) <tcc_binary>: Do not special-case
 159         TYPE_MAX_VALUE.
 160
 161 2010-04-16  Eric Botcazou  <ebotcazou@adacore.com>
 162
 163         * gcc-interface/decl.c (make_type_from_size) <INTEGER_TYPE>: Just copy
 164         TYPE_NAME.
 165         * gcc-interface/trans.c (smaller_packable_type_p): Rename into...
 166         (smaller_form_type_p): ...this.  Change parameter and variable names.
 167         (call_to_gnu): Use the nominal type of the parameter to create the
 168         temporary if it's a smaller form of the actual type.
 169         (addressable_p): Return false if the actual type is integral and its
 170         size is greater than that of the expected type.
 171
 172 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 173
 174         * gcc-interface/cuintp.c (UI_To_gnu): Fix long line.
 175         * gcc-interface/gigi.h (MARK_VISITED): Skip objects of constant class.
 176         (process_attributes): Delete.
 177         (post_error_ne_num): Change parameter name.
 178         * gcc-interface/decl.c (gnat_to_gnu_entity): Do not force debug info
 179         with -g3.  Remove a couple of obsolete lines.  Minor tweaks.
 180         If type annotating mode, operate on trees to compute the adjustment to
 181         the sizes of tagged types.  Fix long line.
 182         (cannot_be_superflat_p): Tweak head comment.
 183         (annotate_value): Fold local constant.
 184         (set_rm_size): Fix long line.
 185         * gcc-interface/trans.c (Identifier_to_gnu): Rework comments.
 186         (Attribute_to_gnu): Fix long line.
 187         <Attr_Size>: Remove useless assertion.
 188         Reorder statements.  Use size_binop routine.
 189         (Loop_Statement_to_gnu): Use build5 in lieu of build_nt.
 190         Create local variables for the label and the test.  Tweak comments.
 191         (Subprogram_Body_to_gnu): Reset cfun to NULL.
 192         (Compilation_Unit_to_gnu): Use the Sloc of the Unit node.
 193         (process_inlined_subprograms): Integrate into...
 194         (Compilation_Unit_to_gnu): ...this.
 195         (gnat_to_gnu): Fix long line.
 196         (post_error_ne_num): Change parameter name.
 197         * gcc-interface/utils.c (process_attributes): Static-ify.
 198         <ATTR_MACHINE_ATTRIBUTE>: Set input_location before proceeding.
 199         (create_type_decl): Add comment.
 200         (create_var_decl_1): Process the attributes after adding the VAR_DECL
 201         to the current binding level.
 202         (create_subprog_decl): Likewise for the FUNCTION_DECL.
 203         (end_subprog_body): Do not reset cfun to NULL.
 204         (build_vms_descriptor32): Fix long line.
 205         (build_vms_descriptor): Likewise.
 206         (handle_nonnull_attribute): Likewise.
 207         (convert_vms_descriptor64): Likewise.
 208         * gcc-interface/utils2.c (fill_vms_descriptor): Fix long line.
 209         (gnat_protect_expr): Fix thinko.
 210
 211 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 212
 213         * gcc-interface/trans.c (gigi): Set DECL_IGNORED_P on EH functions.
 214         (gnat_to_gnu) <N_Op_Eq>: Restore the value of input_location
 215         before translating the top-level node.
 216         (lvalue_required_p) <N_Function_Call>: Return 1 if !constant.
 217         <N_Object_Declaration>: Likewise.
 218         <N_Assignment_Statement>: Likewise.
 219         <N_Unchecked_Type_Conversion>: Likewise.
 220         (call_to_gnu): Remove kludge.
 221         (gnat_to_gnu) <N_Return_Statement>: When not optimizing, force labels
 222         associated with user returns to be preserved.
 223         (gnat_to_gnu): Add special code to deal with boolean rvalues.
 224         * gcc-interface/utils2.c (compare_arrays): Set input_location on all
 225         comparisons.
 226         (build_unary_op) <ADDR_EXPR>: Call build_fold_addr_expr.
 227         <INDIRECT_REF>: Call build_fold_indirect_ref.
 228
 229 2010-04-15  Joel Sherrill  <joel.sherrill@oarcorp.com>
 230
 231         * g-socket.adb: A target can have multiple missing errno's.  This
 232         will result in multiple errno's being defined as -1.  Because of this
 233         we can not use a case but must use a series of if's to avoid
 234         a duplicate case error in GNAT.Sockets.Resolve_Error.
 235
 236 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 237
 238         * gcc-interface/trans.c (call_to_gnu): Open a nesting level if this is
 239         a statement.  Otherwise, if at top-level, push the processing of the
 240         elaboration routine.  In the misaligned case, issue the error messages
 241         again on entry and create the temporary explicitly.  Do not issue them
 242         for CONSTRUCTORs.
 243         For a function call, emit the range check if necessary.
 244         In the copy-in copy-out case, create the temporary for the return
 245         value explicitly.
 246         Do not unnecessarily convert by-ref parameters to the formal's type.
 247         Remove obsolete guards in conditions.
 248         (gnat_to_gnu) <N_Assignment_Statement>: For a function call, pass the
 249         target to call_to_gnu in all cases.
 250         (gnat_gimplify_expr) <ADDR_EXPR>: Remove handling of SAVE_EXPR.
 251         (addressable_p) <CONSTRUCTOR>: Return false if not static.
 252         <COMPOUND_EXPR>: New case.
 253         * gcc-interface/utils2.c (build_unary_op) <ADDR_EXPR>: Fold a compound
 254         expression if it has unconstrained array type.
 255         (gnat_mark_addressable) <COMPOUND_EXPR>: New case.
 256         (gnat_stabilize_reference) <COMPOUND_EXPR>: Stabilize operands on an
 257         individual basis.
 258
 259 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 260
 261         * gcc-interface/trans.c (gigi): Do not start statement group.
 262         (Compilation_Unit_to_gnu): Set current_function_decl to NULL.
 263         Start statement group and push binding level here...
 264         (gnat_to_gnu) <N_Compilation_Unit>: ...and not here.
 265         Do not push fake contexts at top level.  Remove redundant code.
 266         (call_to_gnu): Rename a local variable and constify another.
 267         * gcc-interface/utils.c (gnat_pushlevel): Fix formatting nits.
 268         (set_current_block_context): Set it as the group's block.
 269         (gnat_init_decl_processing): Delete unrelated init code.
 270         (end_subprog_body): Use NULL_TREE.
 271
 272 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 273
 274         * gcc-interface/trans.c (call_to_gnu): Do not unnecessarily force
 275         side-effects of actual parameters before the call.
 276
 277 2010-04-15  Eric Botcazou  <ebotcazou@adacore.com>
 278
 279         * gcc-interface/decl.c (validate_size): Reorder, remove obsolete test
 280         and warning.
 281         (set_rm_size): Reorder and remove obsolete test.
 282
 283 2010-04-14  Eric Botcazou  <ebotcazou@adacore.com>
 284
 285         * gcc-interface/gigi.h: Reorder declarations and tweak comments.
 286         (gigi): Adjust ATTRIBUTE_UNUSED markers.
 287         * gcc-interface/gadaint.h: New file.
 288         * gcc-interface/trans.c: Include it in lieu of adaint.h.  Reorder.
 289         (__gnat_to_canonical_file_spec): Remove declaration.
 290         (number_names): Delete.
 291         (number_files): Likewise.
 292         (gigi): Adjust.
 293         * gcc-interface/Make-lang.in (ada/trans.o): Adjust dependencies to
 294         above change.
 295
 296 2010-04-14  Eric Botcazou  <ebotcazou@adacore.com>
 297
 298         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Class_Wide_Type>: Fix
 299         comment.
 300         * gcc-interface/trans.c (process_freeze_entity): Use local copy of
 301         Ekind.  Return early for class-wide types.  Do not compute initializer
 302         unless necessary.  Reuse the tree for an associated class-wide type
 303         only if processing its root type.
 304
 305 2010-04-13  Joel Sherrill  <joel.sherrill@oarcorp.com>
 306
 307         * gsocket.h: Run-time can no longer be built without network
 308         OS headers available.  Changing RTEMS GNAT build procedure to
 309         reflect this and letting run-time build use network .h files.
 310
 311 2010-04-13  Duncan Sands  <baldrick@free.fr>
 312
 313         * gcc-interface/misc.c (gnat_eh_type_covers): Remove.
 314         * gcc-interface/trans.c (Exception_Handler_to_gnu_zcx): Update comment.
 315
 316 2010-04-13  Eric Botcazou  <ebotcazou@adacore.com>
 317
 318         * gcc-interface/gigi.h (standard_datatypes): Add ADT_parent_name_id.
 319         (parent_name_id): New macro.
 320         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: Use it.
 321         * gcc-interface/trans.c (gigi): Initialize it.
 322         (lvalue_required_p) <N_Type_Conversion>: New case.
 323         <N_Qualified_Expression>: Likewise.
 324         <N_Allocator>: Likewise.
 325         * gcc-interface/utils.c (convert): Try to properly upcast tagged types.
 326
 327 2010-04-13  Eric Botcazou  <ebotcazou@adacore.com>
 328
 329         * gcc-interface/ada-tree.h (TYPE_BY_REFERENCE_P): Delete.
 330         (DECL_CONST_ADDRESS_P): New macro.
 331         (SET_DECL_ORIGINAL_FIELD_TO_FIELD): Likewise.
 332         (SAME_FIELD_P): Likewise.
 333         * gcc-interface/decl.c (constructor_address_p): New static function.
 334         (gnat_to_gnu_entity) <object>: Set DECL_CONST_ADDRESS_P according to
 335         the return value of above function.
 336         (gnat_to_gnu_entity) <E_Record_Type>: Force BLKmode for all types
 337         passed by reference.
 338         <E_Record_Subtype>: Likewise.
 339         Set TREE_ADDRESSABLE on the type if it passed by reference.
 340         (make_packable_type): Use SET_DECL_ORIGINAL_FIELD_TO_FIELD.
 341         (create_field_decl_from): Likewise.
 342         (substitute_in_type): Likewise.
 343         (purpose_member_field): Use SAME_FIELD_P.
 344         * gcc-interface/misc.c (must_pass_by_ref): Test TREE_ADDRESSABLE.
 345         * gcc-interface/trans.c (lvalue_required_p): Add ADDRESS_OF_CONSTANT
 346         parameter and adjust recursive calls.
 347         <N_Explicit_Dereference>: New case.
 348         <N_Object_Declaration>: Return 1 if the object is of a class-wide type.
 349         Adjust calls to lvalue_required_p.  Do not return the initializer of a
 350         DECL_CONST_ADDRESS_P constant if an lvalue is required for it.
 351         (call_to_gnu): Delay issuing error message for a misaligned actual and
 352         avoid the associated back-end assertion.  Test TREE_ADDRESSABLE.
 353         (gnat_gimplify_expr) <ADDR_EXPR>: Handle non-static constructors.
 354         * gcc-interface/utils.c (make_dummy_type): Set TREE_ADDRESSABLE if the
 355         type is passed by reference.
 356         (convert) <CONSTRUCTOR>: Convert in-place in more cases.
 357         * gcc-interface/utils2.c (build_cond_expr): Drop TYPE_BY_REFERENCE_P.
 358         (build_simple_component_ref): Use SAME_FIELD_P.
 359
 360 2010-04-12  Eric Botcazou  <ebotcazou@adacore.com>
 361
 362         * gcc-interface/trans.c (Identifier_to_gnu): Use boolean variable.
 363         (call_to_gnu): Test gigi's flag TYPE_BY_REFERENCE_P instead of calling
 364         front-end's predicate Is_By_Reference_Type.  Use consistent order and
 365         remove ??? comment.  Use original conversion in all cases, if any.
 366         * gcc-interface/utils.c (make_dummy_type): Minor tweak.
 367         (convert): Use local copy in more cases.
 368         <INDIRECT_REF>: Remove deactivated code.
 369         (unchecked_convert): Use a couple of local copies.
 370
 371 2010-04-11  Eric Botcazou  <ebotcazou@adacore.com>
 372
 373         * gcc-interface/trans.c (lvalue_required_for_attribute_p): New static
 374         function.
 375         (lvalue_required_p) <N_Attribute_Reference>: Call it.
 376         (gnat_to_gnu) <N_Selected_Component>: Prevent build_component_ref from
 377         folding the result only if lvalue_required_for_attribute_p is true.
 378         * gcc-interface/utils.c (maybe_unconstrained_array): Pass correctly
 379         typed constant to build_component_ref.
 380         (unchecked_convert): Likewise.
 381         * gcc-interface/utils2.c (maybe_wrap_malloc): Likewise.
 382         (build_allocator): Likewise.
 383
 384 2010-04-11  Eric Botcazou  <ebotcazou@adacore.com>
 385
 386         * gcc-interface/utils2.c (build_cond_expr): Take the address and
 387         dereference if the result type is passed by reference.
 388
 389 2010-04-11  Eric Botcazou  <ebotcazou@adacore.com>
 390
 391         * gcc-interface/trans.c (Case_Statement_to_gnu): Bool-ify variable.
 392         (gnat_to_gnu) <N_Null_Statement>: When not optimizing, generate a
 393         goto to the next statement.
 394
 395 2010-04-09  Eric Botcazou  <ebotcazou@adacore.com>
 396
 397         * gcc-interface/gigi.h (maybe_variable): Delete.
 398         (protect_multiple_eval): Likewise.
 399         (maybe_stabilize_reference): Likewise.
 400         (gnat_save_expr): Declare.
 401         (gnat_protect_expr): Likewise.
 402         (gnat_stabilize_reference): Likewise.
 403         * gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Use
 404         gnat_stabilize_reference.
 405         (maybe_variable): Delete.
 406         (elaborate_expression_1): Use gnat_save_expr.
 407         * gcc-interface/trans.c (Attribute_to_gnu): Use gnat_protect_expr.
 408         (call_to_gnu): Pass NULL to gnat_stabilize_reference.
 409         (gnat_to_gnu) <N_Object_Declaration>: Use gnat_save_expr.
 410         <N_Slice>: Use gnat_protect_exp.
 411         <N_Selected_Component>: Pass NULL to gnat_stabilize_reference.
 412         <N_In>: Use gnat_protect_expr.
 413         Pass NULL to gnat_stabilize_reference.
 414         (build_unary_op_trapv): Use gnat_protect_expr.
 415         (build_binary_op_trapv): Likewise.
 416         (emit_range_check): Likewise.
 417         (emit_index_check): Likewise.
 418         (convert_with_check): Likewise.
 419         (protect_multiple_eval): Move to utils2.c file.
 420         (maybe_stabilize_reference): Merge into...
 421         (gnat_stabilize_reference): ...this.  Move to utils2.c file.
 422         (gnat_stabilize_reference_1): Likewise.
 423         * gcc-interface/utils.c (convert_to_fat_pointer): Use gnat_protect_expr
 424         instead of protect_multiple_eval.
 425         * gcc-interface/utils2.c (compare_arrays): Likewise.
 426         (nonbinary_modular_operation): Likewise.
 427         (maybe_wrap_malloc): Likewise.
 428         (build_allocator): Likewise.
 429         (gnat_save_expr): New function.
 430         (gnat_protect_expr): Rename from protect_multiple_eval.  Early return
 431         in common cases.  Propagate TREE_READONLY onto dereferences.
 432         (gnat_stabilize_reference_1): Move from trans.c file.
 433         (gnat_stabilize_reference): Likewise.
 434
 435 2010-04-09  Eric Botcazou  <ebotcazou@adacore.com>
 436
 437         * gcc-interface/gigi.h (gnat_mark_addressable): Rename parameter.
 438         * gcc-interface/decl.c (maybe_variable): Do not set TREE_STATIC on _REF
 439         node.  Use the type of the operand to set TREE_READONLY.
 440         * gcc-interface/trans.c (Identifier_to_gnu): Do not set TREE_STATIC on
 441         _REF node.  Do not overwrite TREE_READONLY.
 442         (call_to_gnu): Rename local variable and fix various nits.  In the
 443         copy-in/copy-out case, build the SAVE_EXPR manually.
 444         (convert_with_check): Call protect_multiple_eval in lieu of save_expr
 445         and fold the computations.
 446         (protect_multiple_eval): Always save entire fat pointers.
 447         (maybe_stabilize_reference): Minor tweaks.
 448         (gnat_stabilize_reference_1): Likewise.  Do not deal with tcc_constant,
 449         tcc_type and tcc_statement.
 450         * gcc-interface/utils.c (convert_to_fat_pointer): Call
 451         protect_multiple_eval in lieu of save_expr.
 452         (convert): Minor tweaks.
 453         (maybe_unconstrained_array): Do not set TREE_STATIC on _REF node.
 454         (builtin_type_for_size): Call gnat_type_for_size directly.
 455         * gcc-interface/utils2.c (contains_save_expr_p): Delete.
 456         (contains_null_expr): Likewise
 457         (gnat_build_constructor): Do not call it.
 458         (compare_arrays): Deal with all side-effects, use protect_multiple_eval
 459         instead of gnat_stabilize_reference to protect the operands.
 460         (nonbinary_modular_operation): Call protect_multiple_eval in lieu of
 461         save_expr.
 462         (maybe_wrap_malloc): Likewise.
 463         (build_allocator): Likewise.
 464         (build_unary_op) <INDIRECT_REF>: Do not set TREE_STATIC on _REF node.
 465         (gnat_mark_addressable): Rename parameter.
 466
 467 2010-04-08  Eric Botcazou  <ebotcazou@adacore.com>
 468
 469         * gcc-interface/ada-tree.h (TYPE_RETURNS_UNCONSTRAINED_P): Rename into.
 470         (TYPE_RETURN_UNCONSTRAINED_P): ...this.
 471         (TYPE_RETURNS_BY_REF_P): Rename into.
 472         (TYPE_RETURN_BY_DIRECT_REF_P): ...this.
 473         (TYPE_RETURNS_BY_TARGET_PTR_P): Delete.
 474         * gcc-interface/gigi.h (create_subprog_type): Adjust parameter names.
 475         (build_return_expr): Likewise.
 476         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Subprogram_Type>:
 477         Rename local variables.  If the return Mechanism is By_Reference, pass
 478         return_by_invisible_ref_p to create_subprog_type instead of toggling
 479         TREE_ADDRESSABLE.  Test return_by_invisible_ref_p in order to annotate
 480         the mechanism.  Use regular return for contrained types with non-static
 481         size and return by invisible reference for unconstrained return types
 482         with default discriminants.  Update comment.
 483         * gcc-interface/trans.c (Subprogram_Body_to_gnu): If the function
 484         returns by invisible reference, turn the RESULT_DECL into a pointer.
 485         Do not handle DECL_BY_REF_P in the CICO case here.
 486         (call_to_gnu): Remove code handling return by target pointer.  For a
 487         function call, if the return type has non-constant size, generate the
 488         assignment with an INIT_EXPR.
 489         (gnat_to_gnu) <N_Return_Statement>: Remove dead code in the CICO case.
 490         If the function returns by invisible reference, build the copy return
 491         operation manually.
 492         (add_decl_expr): Initialize the variable with an INIT_EXPR.
 493         * gcc-interface/utils.c (create_subprog_type): Adjust parameter names.
 494         Adjust for renaming of macros.  Copy the node only when necessary.
 495         (create_subprog_decl): Do not toggle TREE_ADDRESSABLE on the return
 496         type, only change DECL_BY_REFERENCE on the RETURN_DECL.
 497         (convert_from_reference): Delete.
 498         (is_byref_result): Likewise.
 499         (gnat_genericize_r): Likewise.
 500         (gnat_genericize): Likewise.
 501         (end_subprog_body): Do not call gnat_genericize.
 502         * gcc-interface/utils2.c (build_binary_op) <INIT_EXPR>: New case.
 503         (build_return_expr): Adjust parameter names, logic and comment.
 504
 505 2010-04-07  Eric Botcazou  <ebotcazou@adacore.com>
 506
 507         * exp_pakd.adb (Create_Packed_Array_Type): Always use a modular type
 508         if the size is small enough.  Propagate the alignment if there is an
 509         alignment clause on the original array type.
 510         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Modular_Integer_Subtype>
 511         Deal with under-aligned packed array types.  Copy the size onto the
 512         justified modular type and don't lay it out again.  Likewise for the
 513         padding type built for other under-aligned subtypes.
 514         * gcc-interface/utils.c (finish_record_type): Do not set a default mode
 515         on the type.
 516
 517 2010-04-07  Eric Botcazou  <ebotcazou@adacore.com>
 518
 519         * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Procedure>: Set default
 520         alignment on the RETURN type built for the Copy-In Copy-Out mechanism.
 521
 522 2010-04-07  Eric Botcazou  <ebotcazou@adacore.com>
 523
 524         * gcc-interface/trans.c (call_to_gnu): In the return-by-target-ptr case
 525         do not set the result type if there is a specified target and do not
 526         convert the result in any cases.
 527         (protect_multiple_eval): Make direct SAVE_EXPR for CALL_EXPR.
 528         (maybe_stabilize_reference) <COMPOUND_EXPR>: Merge with CALL_EXPR.
 529
 530 2010-03-10  Eric Botcazou  <ebotcazou@adacore.com>
 531
 532         * gcc-interface/Makefile.in (SPARC/Solaris): Use sparcv8plus.
 533
 534 2010-02-27  Eric Botcazou  <ebotcazou@adacore.com>
 535
 536         PR ada/42253
 537         * gcc-interface/utils2.c (build_binary_op) <EQ_EXPR>: Assert that fat
 538         pointer base types are variant of each other.  Apply special treatment
 539         for null to fat pointer types in all cases.
 540
 541 2010-01-28  Pascal Obry  <obry@adacore.com>
 542
 543         * s-win32.ads: Add some missing constants.
 544
 545 2010-01-28  Vincent Celier  <celier@adacore.com>
 546
 547         * prj-attr-pm.adb (Add_Attribute): Do nothing if To_Package is
 548         Unknown_Package.
 549
 550 2010-01-28  Robert Dewar  <dewar@adacore.com>
 551
 552         * gnat_rm.texi: Minor correction
 553
 554 2010-01-27  Pascal Obry  <obry@adacore.com>
 555
 556         * g-awk.adb: ensure that an AWK session is reusable.
 557
 558 2010-01-27  Vasiliy Fofanov  <fofanov@adacore.com>
 559
 560         * g-regist.adb (For_Every_Key): Fix previous change.
 561         Minor reformatting.
 562
 563 2010-01-27  Thomas Quinot  <quinot@adacore.com>
 564
 565         * lib-writ.ads: Current version of spec for new N (note) ALI lines
 566
 567 2010-01-27  Yannick Moy  <moy@adacore.com>
 568
 569         * a-cdlili.adb (Insert): Correct exception message when cursor
 570         designates wrong list.
 571
 572 2010-01-27  Vincent Celier  <celier@adacore.com>
 573
 574         * gnatcmd.adb: When there is only one main specified, the package
 575         support Switches (<main>) and attribute Switches is specified for the
 576         main, use these switches, instead of Default_Switches ("Ada").
 577
 578 2010-01-27  Robert Dewar  <dewar@adacore.com>
 579
 580         * sem_prag.adb, par-prag.adb, snames.ads-tmpl: pragma Dimension initial
 581         implementation.
 582         * exp_disp.adb: Minor reformatting
 583
 584 2010-01-27  Tristan Gingold  <gingold@adacore.com>
 585
 586         * seh_init.c: Use __ImageBase instead of _ImageBase.
 587
 588 2010-01-27  Javier Miranda  <miranda@adacore.com>
 589
 590         * exp_disp.ads, exp_disp.adb (Expand_Interface_Thunk): Modify the
 591         profile of interface thunks. The type of the controlling formal is now
 592         the covered interface type (instead of the target tagged type).
 593
 594 2010-01-27  Sergey Rybin  <rybin@adacore.com>
 595
 596         * gnat_rm.texi, gnat_ugn.texi: Update gnatcheck doc.
 597
 598 2010-01-27  Robert Dewar  <dewar@adacore.com>
 599
 600         * sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal
 601         changed from Expr to N.
 602
 603 2010-01-26  Thomas Quinot  <quinot@adacore.com>
 604
 605         * gnat_ugn.texi: Adjust documentation of -gnatz switches.
 606         * usage.adb: Replace line for -gnatz with two lines for -gnatzc and
 607         -gnatzr.
 608
 609 2010-01-26  Vincent Celier  <celier@adacore.com>
 610
 611         * prj-attr.adb: Add new attribute Library_Install_Name_Option
 612         Replace attribute Run_Path_Origin_Supported with Run_Path_Origin
 613         * prj-nmsc.adb (Process_Project_Level_Simple_Attributes): Process
 614         attributes Run_Path_Option and Library_Install_Name_Option.
 615         * prj.ads (Project_Configuration): Replace component
 616         Run_Path_Origin_Supported with component Run_Path_Origin. Add new
 617         component Library_Install_Name_Option.
 618         * snames.ads-tmpl: Add new standard name Library_Install_Name_Option
 619         Replace Run_Path_Origin_Supported with Run_Path_Origin
 620
 621 2010-01-26  Ed Schonberg  <schonberg@adacore.com>
 622
 623         * sem_ch8.adb (Use_One_Package): Within an instance, an actual package
 624         is not hidden by a homograph declared in another actual package.
 625
 626 2010-01-26  Robert Dewar  <dewar@adacore.com>
 627
 628         * par_sco.adb (Traverse_Declarations_Or_Statements): Only generate
 629         decisions for pragmas Assert, Check, Precondition, Postcondition if
 630         -gnata set.
 631         * scos.ads: Update comments.
 632         * get_scos.adb, put_scos.adb: Minor fix to code reading statement SCOs.
 633         Also remove obsolete code for CT (exit point) SCOs.
 634
 635 2010-01-26  Thomas Quinot  <quinot@adacore.com>
 636
 637         * switch-c.adb: Fix handling of -gnatz*
 638
 639 2010-01-26  Robert Dewar  <dewar@adacore.com>
 640
 641         * par_sco.adb (Traverse_Declarations_Or_Statements): Separate F/W
 642         qualifiers for FOR/WHILE loops
 643         * scos.ads: Use separate type letters F/W for for/while loops
 644
 645 2010-01-26  Robert Dewar  <dewar@adacore.com>
 646
 647         * get_scos.adb (Get_SCOs): Implement new form of CS entries (multiple
 648         entries per line, one for each statement in the sequence).
 649         * par_sco.adb (Traverse_Declarations_Or_Statements): Increase array
 650         size from 100 to 10_000 for SC_Array to avoid any real possibility of
 651         overflow. Output decisions in for loops.
 652         Exclude labels from CS lines.
 653         * scos.ads: Clarify that label is not included in the entry point
 654
 655 2010-01-26  Robert Dewar  <dewar@adacore.com>
 656
 657         * par_sco.adb (Traverse_Declarations_Or_Statments): Implement new
 658         format of statement sequence SCO entries (one location/statement).
 659         * put_scos.adb (Put_SCOs): Implement new format of CS lines
 660         * scos.ads: Update comments.
 661         * sem_eval.adb: Minor reformatting.
 662
 663 2010-01-26  Robert Dewar  <dewar@adacore.com>
 664
 665         * par_sco.ads, par_sco.adb (Set_Statement_Entry): New handling of exits
 666         (Extend_Statement_Sequence): New procedures
 667         (Traverse_Declarations_Or_Statements): New handling for exits.
 668
 669 2010-01-26  Robert Dewar  <dewar@adacore.com>
 670
 671         * par_sco.adb (Traverse_Declarations_Or_Statements): Add processing for
 672         Case.
 673
 674 2010-01-26  Robert Dewar  <dewar@adacore.com>
 675
 676         * par_sco.adb (Is_Logical_Operator): Exclude AND/OR/XOR
 677         * scos.ads: Clarify handling of logical operators
 678
 679 2010-01-26  Arnaud Charlet  <charlet@adacore.com>
 680
 681         * s-tpoben.adb: Update comments.
 682
 683 2010-01-26  Robert Dewar  <dewar@adacore.com>
 684
 685         * freeze.adb (Set_Small_Size): Don't set size if alignment clause
 686         present.
 687
 688 2010-01-26  Robert Dewar  <dewar@adacore.com>
 689
 690         * scos.ads: Clean up documentation, remove obsolete XOR references
 691 2010-01-26  Vincent Celier  <celier@adacore.com>
 692
 693         * gnat_ugn.texi: Complete documentation on the restrictions for
 694         combined options in -gnatxxx switches.
 695         Fix typo.
 696
 697 2010-01-26  Arnaud Charlet  <charlet@adacore.com>
 698
 699         * s-tpoben.adb (Initialize_Protection_Entries): If a PO is created from
 700         a controlled operation, abort is already deferred at this point, so we
 701         need to use Defer_Abort_Nestable.
 702
 703 2010-01-26  Vincent Celier  <celier@adacore.com>
 704
 705         * prj-conf.adb (Get_Config_Switches): Check for a default language for
 706         a project extending a project with no languages.
 707
 708 2010-01-26  Vincent Celier  <celier@adacore.com>
 709
 710         * switch-c.adb (Scan_Front_End_Switches): Take into account options
 711         that follow -gnatef.
 712         Allow -gnateG to be followed by other options.
 713
 714 2010-01-26  Robert Dewar  <dewar@adacore.com>
 715
 716         * s-commun.ads, s-osprim-mingw.adb, s-stchop-vxworks.adb, sem_aggr.adb,
 717         s-vxwext.adb, sem_ch10.adb, sem_eval.adb, sem_prag.adb: Minor
 718         reformatting.
 719
 720 2010-01-26  Vasiliy Fofanov  <fofanov@adacore.com>
 721
 722         * g-regist.adb, g-regist.ads (For_Every_Key): New generic procedure
 723         that allows to iterate over all subkeys of a key.
 724
 725 2010-01-26  Ed Falis  <falis@adacore.com>
 726
 727         * sysdep.c: enable NFS for VxWorks MILS
 728         * env.c: enable __gnat_environ for VxWorks MILS
 729         * gcc-interface/Makefile.in: Add VxWorks MILS target pairs.
 730
 731 2010-01-25  Bob Duff  <duff@adacore.com>
 732
 733         * sem_aggr.adb (Resolve_Array_Aggregate): Check for the case where this
 734         is an internally-generated positional aggregate, and the bounds are
 735         already correctly set. We don't want to overwrite those bounds with
 736         bounds determined by context.
 737
 738 2010-01-25  Robert Dewar  <dewar@adacore.com>
 739
 740         * g-sercom.ads, gnatcmd.adb, gnatlink.adb, a-ststio.adb, exp_ch6.adb,
 741         exp_ch9.adb, g-sechas.ads: Minor reformatting.
 742
 743 2010-01-25  Thomas Quinot  <quinot@adacore.com>
 744
 745         * s-commun.adb (Last_Index): Count must be converted to SEO (a signed
 746         integer type) before subtracting 1, otherwise the computation may wrap
 747         (because size_t is modular) and cause the conversion to fail.
 748
 749 2010-01-25  Ed Falis  <falis@adacore.com>
 750
 751         * sysdep.c, init.c: Adapt to support full run-time on VxWorks MILS.
 752
 753 2010-01-25  Vincent Celier  <celier@adacore.com>
 754
 755         * prj-attr.adb: New attribute Run_Path_Origin_Required
 756         * prj-nmsc.adb (Process_Project_Level_Simple_Attributes): Process new
 757         attribute Run_Path_Origin_Required.
 758         * prj.ads (Project_Configuration): New component
 759         Run_Path_Origin_Supported.
 760         * snames.ads-tmpl: New standard name Run_Path_Origin_Required
 761
 762 2010-01-25  Ed Schonberg  <schonberg@adacore.com>
 763
 764         * sem_aggr.adb (Resolve_Array_Aggregate): If the bounds in a choice
 765         have errors, do not continue resolution of the aggregate.
 766         * sem_eval.adb (Eval_Indexed_Component): Do not attempt to evaluate if
 767         the array type indicates an error.
 768
 769 2010-01-25  Bob Duff  <duff@adacore.com>
 770
 771         * sinfo.ads: Minor comment fixes.
 772
 773 2010-01-25  Bob Duff  <duff@adacore.com>
 774
 775         * exp_ch4.adb, exp_aggr.adb: Minor comment fixes and code clean up.
 776
 777 2010-01-25  Arnaud Charlet  <charlet@adacore.com>
 778
 779         * gnatvsn.ads (Current_Year): Update.
 780
 781 2010-01-25  Florian Villoing  <villoing@adacore.com>
 782
 783         * gnat_ugn.texi: Fix typo.
 784
 785 2010-01-25  Thomas Quinot  <quinot@adacore.com>
 786
 787         * scos.ads: Update specification.
 788
 789 2010-01-25  Ed Schonberg  <schonberg@adacore.com>
 790
 791         * sem_ch6.adb (Process_PPCs): If a postcondition is present and the
 792         enclosing subprogram has no previous spec, attach postcondition
 793         procedure to the defining entity for the body.
 794
 795 2010-01-25  Ed Schonberg  <schonberg@adacore.com>
 796
 797         * exp_aggr.adb (Build_Record_Aggr_Code); Do not generate call to
 798         initialization procedure of the ancestor part of an extension aggregate
 799         if it is an interface type.
 800
 801 2010-01-25  Vincent Celier  <celier@adacore.com>
 802
 803         * gnatlink.adb (Process_Binder_File): The directory for the shared
 804         version of libgcc in the run path options is found in the subdirectory
 805         indicated by __gnat_default_libgcc_subdir.
 806         * link.c: Declare new const char * __gnat_default_libgcc_subdir for
 807         each platform.
 808
 809 2010-01-25  Ed Schonberg  <schonberg@adacore.com>
 810
 811         * sem_prag.adb: More flexible pragma Annotate.
 812
 813 2010-01-22  Eric Botcazou  <ebotcazou@adacore.com>
 814
 815         * system-linux-armel.ads (Stack_Check_Probes): Set to True.
 816         * system-linux-armeb.ads (Stack_Check_Probes): Likewise.
 817
 818 2010-01-18  Eric Botcazou  <ebotcazou@adacore.com>
 819
 820         * gcc-interface/utils.c (create_var_decl_1): Fix formatting nits.
 821
 822 2010-01-18  Jan Hubicka  <jh@suse.cz>
 823
 824         PR middle-end/42068
 825         * gcc-interface/utils.c (create_var_decl_1): Do not set COMMON flag for
 826         unit local variables.
 827
 828 2010-01-17  Laurent GUERBY  <laurent@guerby.net>
 829
 830         * gcc-interface/Makefile.in: Fix typo in arm*-*-linux-gnueabi.
 831
 832 2010-01-11  Mikael Pettersson  <mikpe@it.uu.se>
 833
 834         * gcc-interface/Makefile.in: Add arm*-*-linux-gnueabi.
 835         * system-linux-armeb.ads, system-linux-armel.ads: New files.
 836
 837 2010-01-09  Simon Wright  <simon@pushface.org>
 838
 839         PR ada/42626
 840         * gcc-interface/Makefile.in (gnatlib-shared-darwin): Add missing
 841         end-quote.
 842
 843
 844 \f
 845 Copyright (C) 2010 Free Software Foundation, Inc.
 846
 847 Copying and distribution of this file, with or without modification,
 848 are permitted in any medium without royalty provided the copyright
 849 notice and this notice are preserved.