trans-stmt.c (gfc_trans_call): fix gcc_assert to a comparison, not an assignment.

2007-06-07  Dirk Mueller  <dmueller@suse.de>

        * trans-stmt.c (gfc_trans_call): fix gcc_assert to
        a comparison, not an assignment.

        * optabls.c (debug_optab_libfuncs): fix gcc_assert to
        a comparison, not an assignment.

From-SVN: r125647
This commit is contained in:
Dirk Mueller 2007-06-12 14:28:34 +00:00 committed by Dirk Mueller
parent 0e1a6f292f
commit 8c8fa92702
4 changed files with 14 additions and 4 deletions

View File

@ -1,3 +1,8 @@
2007-06-12 Dirk Mueller <dmueller@suse.de>
* trans-stmt.c (gfc_trans_call): fix gcc_assert to
a comparison, not an assignment.
2007-06-12 Olivier Hainque <hainque@adacore.com>
* tree-nested.c (convert_local_reference): Handle VIEW_CONVERT_EXPR.

View File

@ -1,3 +1,8 @@
2007-06-12 Dirk Mueller <dmueller@suse.de>
* optabls.c (debug_optab_libfuncs): fix gcc_assert to
a comparison, not an assignment.
2007-06-12 Paul Thomas <pault@gcc.gnu.org>
* trans-common.c (create_common): Initialize 'field_init'.

View File

@ -387,8 +387,8 @@ gfc_trans_call (gfc_code * code, bool dependency_check)
{
gfc_symbol *sym;
sym = code->resolved_sym;
gcc_assert (sym->formal->sym->attr.intent = INTENT_OUT);
gcc_assert (sym->formal->next->sym->attr.intent = INTENT_IN);
gcc_assert (sym->formal->sym->attr.intent == INTENT_OUT);
gcc_assert (sym->formal->next->sym->attr.intent == INTENT_IN);
gfc_conv_elemental_dependencies (&se, &loopse, sym,
code->ext.actual);
}

View File

@ -5833,7 +5833,7 @@ debug_optab_libfuncs (void)
h = &o->handlers[j];
if (h->libfunc)
{
gcc_assert (GET_CODE (h->libfunc) = SYMBOL_REF);
gcc_assert (GET_CODE (h->libfunc) == SYMBOL_REF);
fprintf (stderr, "%s\t%s:\t%s\n",
GET_RTX_NAME (o->code),
GET_MODE_NAME (j),
@ -5853,7 +5853,7 @@ debug_optab_libfuncs (void)
h = &o->handlers[j][k];
if (h->libfunc)
{
gcc_assert (GET_CODE (h->libfunc) = SYMBOL_REF);
gcc_assert (GET_CODE (h->libfunc) == SYMBOL_REF);
fprintf (stderr, "%s\t%s\t%s:\t%s\n",
GET_RTX_NAME (o->code),
GET_MODE_NAME (j),