From 9ef0b98eb62b22e291e4cca4537d64ea2b795c14 Mon Sep 17 00:00:00 2001 From: Richard Guenther Date: Thu, 9 Jun 2011 12:17:17 +0000 Subject: trans.c (gfc_allocate_array_with_status): Mark error path as unlikely. 2011-06-09 Richard Guenther * trans.c (gfc_allocate_array_with_status): Mark error path as unlikely. From-SVN: r174842 --- gcc/fortran/trans.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/fortran/trans.c') diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index f2f1352..ee35387 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -697,8 +697,9 @@ gfc_allocate_array_with_status (stmtblock_t * block, tree mem, tree size, /* Create a variable to hold the result. */ res = gfc_create_var (type, NULL); - null_mem = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node, mem, - build_int_cst (type, 0)); + null_mem = gfc_unlikely (fold_build2_loc (input_location, NE_EXPR, + boolean_type_node, mem, + build_int_cst (type, 0))); /* If mem is NULL, we call gfc_allocate_with_status. */ gfc_start_block (&alloc_block); @@ -751,7 +752,7 @@ gfc_allocate_array_with_status (stmtblock_t * block, tree mem, tree size, } tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node, null_mem, - alloc, error); + error, alloc); gfc_add_expr_to_block (block, tmp); return res; -- cgit v1.1