* tree.c (get_callee_fndecl): Follow DECL_ABSTRACT_ORIGIN if
DECL_INITIAL is NULL.
- * stmt.c (expand_expr_stmt): Keep last_expr_value non-NULL iff
- we're interested in the result. Use it to tell whether to
- ignore results of enclosed expressions.
- (expand_start_stmt_expr): Added new argument, and initialize
- last_expr_value accordingly.
- * tree.h (expand_start_stmt_expr): Adjusted declaration.
- * c-common.c (c_expand_expr): Adjust call.
- * expr.c (expand_expr) [EXPR_WFL]: Pass const0_rtx down if
- ignoring the result.
-
2001-12-04 Jakub Jelinek <jakub@redhat.com>
* flow.c (ior_reg_cond): Return NULL if ! add and rtx wasn't optimized.
-2001-12-04 Andreas Jaeger <aj@suse.de>
-
- * trans.c (tree_transform): Adjust call of expand_start_stmt_expr.
-
2001-12-03 Robert Dewar <dewar@gnat.com>
* sinfo.ads: Minor reformatting. N_Freeze_Entity node does not
* *
* C Implementation File *
* *
- * $Revision: 1.5 $
+ * $Revision: 1.6 $
* *
* Copyright (C) 1992-2001, Free Software Foundation, Inc. *
* *
we need to make sure it gets executed after the LHS. */
gnu_lhs = gnat_to_gnu (Left_Opnd (gnat_node));
clear_last_expr ();
- gnu_rhs_side = expand_start_stmt_expr (1);
+ gnu_rhs_side = expand_start_stmt_expr ();
gnu_rhs = gnat_to_gnu (Right_Opnd (gnat_node));
expand_end_stmt_expr (gnu_rhs_side);
gnu_result_type = get_unpadded_type (Etype (gnat_node));
out-of-scope after the first EXPR_STMT from within the
STMT_EXPR. */
push_temp_slots ();
- rtl_expr = expand_start_stmt_expr (target != const0_rtx);
+ rtl_expr = expand_start_stmt_expr ();
expand_stmt (STMT_EXPR_STMT (exp));
expand_end_stmt_expr (rtl_expr);
result = expand_expr (rtl_expr, target, tmode, modifier);
-2001-12-04 Alexandre Oliva <aoliva@redhat.com>
-
- * semantics.c (begin_global_stmt_expr): Adjust
- expand_start_stmt_expr invocation.
-
2001-12-04 Nathan Sidwell <nathan@codesourcery.com>
* pt.c (end_template_parm_list): Clear TREE_CHAIN of each parm.
keep_next_level (1);
- return (last_tree != NULL_TREE) ? last_tree : expand_start_stmt_expr(1);
+ return (last_tree != NULL_TREE) ? last_tree : expand_start_stmt_expr();
}
/* Finish the STMT_EXPR last begun with begin_global_stmt_expr. */
if (EXPR_WFL_EMIT_LINE_NOTE (exp))
emit_line_note (input_filename, lineno);
/* Possibly avoid switching back and forth here. */
- to_return = expand_expr (EXPR_WFL_NODE (exp),
- target || ! ignore ? target : const0_rtx,
- tmode, modifier);
+ to_return = expand_expr (EXPR_WFL_NODE (exp), target, tmode, modifier);
input_filename = saved_input_filename;
lineno = saved_lineno;
return to_return;
-Tue Dec 4 08:28:42 2001 Alexandre Oliva <aoliva@redhat.com>
-
- * com.c (ffecom_expr_power_integer_): Adjust
- expand_start_stmt_expr() invocation.
-
Mon Dec 3 18:56:04 2001 Neil Booth <neil@daikokuya.demon.co.uk>
* com.c: Remove leading capital from diagnostic messages, as
basetypeof_l_is_int
= build_int_2 ((TREE_CODE (ltype) == INTEGER_TYPE), 0);
- se = expand_start_stmt_expr (1);
+ se = expand_start_stmt_expr ();
ffecom_start_compstmt ();
expand_expr_stmt (exp)
tree exp;
{
- bool want_value = last_expr_value != NULL_RTX;
-
/* If -W, warn about statements with no side effects,
except for an explicit cast to void (e.g. for assert()), and
except inside a ({...}) where they may be useful. */
last_expr_value to get reset. Therefore, we set last_expr_value
and last_expr_type *after* calling expand_expr. */
last_expr_value = expand_expr (exp,
- (want_value && expr_stmts_for_value
+ (expr_stmts_for_value
? NULL_RTX : const0_rtx),
VOIDmode, 0);
last_expr_type = TREE_TYPE (exp);
if (TYPE_MODE (TREE_TYPE (exp)) == VOIDmode)
;
else if (TYPE_MODE (TREE_TYPE (exp)) != BLKmode)
- last_expr_value = copy_to_reg (last_expr_value);
+ copy_to_reg (last_expr_value);
else
{
rtx lab = gen_label_rtx ();
above. */
free_temp_slots ();
- if (! want_value && last_expr_value)
- {
- protect_from_queue (last_expr_value, 0);
- last_expr_value = NULL_RTX;
- }
- else if (want_value && ! last_expr_value)
- last_expr_value = const0_rtx;
-
emit_queue ();
}
The caller must save that value and pass it to expand_end_stmt_expr. */
tree
-expand_start_stmt_expr (want_value)
- int want_value;
+expand_start_stmt_expr ()
{
tree t;
start_sequence_for_rtl_expr (t);
NO_DEFER_POP;
expr_stmts_for_value++;
- last_expr_value = want_value ? const0_rtx : NULL_RTX;
return t;
}
extern int in_control_zone_p PARAMS ((void));
extern void expand_fixups PARAMS ((rtx));
-extern tree expand_start_stmt_expr PARAMS ((int));
+extern tree expand_start_stmt_expr PARAMS ((void));
extern tree expand_end_stmt_expr PARAMS ((tree));
extern void expand_expr_stmt PARAMS ((tree));
extern int warn_if_unused_value PARAMS ((tree));