diff options
| author | neil <neil@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-04-04 22:19:58 +0000 |
|---|---|---|
| committer | neil <neil@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-04-04 22:19:58 +0000 |
| commit | aff9e6561ee30f3802fe5993a64cdcd7a53146b4 (patch) | |
| tree | 50dc6fe5e989dd9c497bfef9c4a8a5e5f0a8ba33 /gcc/ada/trans.c | |
| parent | 322fc845e136fcb38a416b552b3e8367388b93a8 (diff) | |
| download | gcc-aff9e6561ee30f3802fe5993a64cdcd7a53146b4.tar.gz | |
* c-common.c (truthvalue_conversion): Rename, update.
* c-common.h (c_common_truthvalue_conversion): New.
* c-convert.c (convert): Update.
* c-lang.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
* c-parse.in (expr_no_commas, if_prefix, select_or_iter_stmt): Update.
* c-typeck.c (build_binary_op, build_unary_op,
build_conditional_expr): Update.
* fold-const.c (constant_boolean_node, fold): Use langhook.
* langhooks-def.h (LANGHOOK_INITIALIZER): Update.
* langhooks.h (struct lang_hooks): New hook.
* stmt.c (expand_decl_cleanup): Use langhook.
* tree.h (truthvalue_conversion): Remove.
ada:
* gigi.h (truthvalue_conversion): Rename.
* misc.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
* trans.c (tree_transform): Update.
* utils2.c (truthvalue_conversion): Rename, update.
(build_binary_op, build_unary_op): Update.
cp:
* cp-lang.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
* cvt.c: Update comment.
* init.c (expand_cleanup_for_base): Update.
* semantics.c (finish_parenthesized_expr): Update.
* typeck.c (cp_truthvalue_conversion): Update.
f:
* com.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
(truthvalue_conversion): Rename. Update. Make static.
(ffecom_truth_value): Update.
java:
* expr.c (truthvalue_conversion): Rename. Update.
(expand_compare): Update.
* java-tree.h (java_truthvalue_conversion): New.
* lang.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
objc:
* objc-lang.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Redefine.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@51880 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 371f7f2be2b..38ae69c99da 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -1907,7 +1907,7 @@ tree_transform (gnat_node) gnu_result_type = get_unpadded_type (Etype (gnat_node)); gnu_result = build_cond_expr (gnu_result_type, - truthvalue_conversion (gnu_cond), + gnat_truthvalue_conversion (gnu_cond), gnu_true, gnu_false); } break; @@ -2411,9 +2411,8 @@ tree_transform (gnat_node) TREE_LOOP_ID (get_gnu_tree (Entity (Name (gnat_node)))); if (Present (Condition (gnat_node))) - gnu_cond - = invert_truthvalue - (truthvalue_conversion (gnat_to_gnu (Condition (gnat_node)))); + gnu_cond = invert_truthvalue (gnat_truthvalue_conversion + (gnat_to_gnu (Condition (gnat_node)))); set_lineno (gnat_node, 1); expand_exit_loop_if_false (loop_id, gnu_cond); |