OSDN Git Service

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