diff options
| author | Mark Mitchell <mark@codesourcery.com> | 2004-01-09 19:55:13 +0000 |
|---|---|---|
| committer | Mark Mitchell <mmitchel@gcc.gnu.org> | 2004-01-09 19:55:13 +0000 |
| commit | 0fab64a344486770d0acc827ab6b670543d58a15 (patch) | |
| tree | e2935a8f65ac880227cefaf160bb48b5a018326f /gcc/ada/misc.c | |
| parent | 2fca049fe8aada42f982aff9498eb45d3a2db302 (diff) | |
| download | gcc-0fab64a344486770d0acc827ab6b670543d58a15.zip gcc-0fab64a344486770d0acc827ab6b670543d58a15.tar.gz gcc-0fab64a344486770d0acc827ab6b670543d58a15.tar.bz2 | |
expr.h (expand_expr): Make it a macro, not a function.
* expr.h (expand_expr): Make it a macro, not a function.
(expand_expr_real): New function.
* expr.c (store_expr): Adjust logic for deciding whether or not to
copy the value returned by expand_expr.
(expand_expr): Rename to ...
(expand_expr_real): ... this. Add alt_rtl parameter. Adjust
calls to language hooks.
* c-common.h (c_expand_expr): Adjust prototype.
* c-common.c (c_expand_expr): Add alt_rtl parameter.
* langhooks-def.h (lhd_expand_expr): Change prototype.
* langhooks.c (lhd_expand_expr): Add all_rtl parameter.
* langhooks.h (lang_hooks): Change type of expand_expr.
* stmt.c (stmt_status): Add x_last_expr_alt_rtl.
(last_expr_alt_rtl): Likewise.
(expand_expr_stmt_value): Set last_expr_alt_rtl.
(clear_last_expr): Clear it.
(expand_end_stmt_expr): Set RTL_EXPR_ATL_RTL.
(expand_end_bindings): Save and restor last_expr_alt_rtl.
* tree.def (RTL_EXPR): Give it an additional operand.
* tree.h (RTL_EXPR_ALT_RTL): New macro.
* misc.c (gnat_expand_expr): Add alt_rtl parameter.
* cp-tree.h (cxx_expand_expr): Change prototype.
* expr.c (cxx_expand_expr): Add alt_rtl parameter.
* java-tree.h (java_expand_expr): Change prototype.
* expr.c (java_expand_expr): Add alt_rtl parameter.
From-SVN: r75594
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index e9f2690..43a63de 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -96,7 +96,8 @@ static const char *gnat_printable_name (tree, int); static tree gnat_eh_runtime_type (tree); static int gnat_eh_type_covers (tree, tree); static void gnat_parse_file (int); -static rtx gnat_expand_expr (tree, rtx, enum machine_mode, int); +static rtx gnat_expand_expr (tree, rtx, enum machine_mode, int, + rtx *); static void internal_error_function (const char *, va_list *); static void gnat_adjust_rli (record_layout_info); @@ -550,7 +551,8 @@ gnat_printable_name (tree decl, int verbosity) here are TRANSFORM_EXPR, ALLOCATE_EXPR, USE_EXPR and NULL_EXPR. */ static rtx -gnat_expand_expr (tree exp, rtx target, enum machine_mode tmode, int modifier) +gnat_expand_expr (tree exp, rtx target, enum machine_mode tmode, + int modifier, rtx *alt_rtl) { tree type = TREE_TYPE (exp); tree new; @@ -606,8 +608,8 @@ gnat_expand_expr (tree exp, rtx target, enum machine_mode tmode, int modifier) return target; case GNAT_NOP_EXPR: - return expand_expr (build1 (NOP_EXPR, type, TREE_OPERAND (exp, 0)), - target, tmode, modifier); + return expand_expr_real (build1 (NOP_EXPR, type, TREE_OPERAND (exp, 0)), + target, tmode, modifier, alt_rtl); case UNCONSTRAINED_ARRAY_REF: /* If we are evaluating just for side-effects, just evaluate our @@ -623,7 +625,7 @@ gnat_expand_expr (tree exp, rtx target, enum machine_mode tmode, int modifier) gigi_abort (201); } - return expand_expr (new, target, tmode, modifier); + return expand_expr_real (new, target, tmode, modifier, alt_rtl); } /* Adjusts the RLI used to layout a record after all the fields have been |