OSDN Git Service

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