module.c (mio_expr): Avoid -Wcast-qual warning.

* module.c (mio_expr): Avoid -Wcast-qual warning.

From-SVN: r128854
This commit is contained in:
Kaveh R. Ghazi 2007-09-28 00:41:05 +00:00 committed by Kaveh Ghazi
parent d1a16d63f1
commit 3ba43c5f0c
2 changed files with 6 additions and 2 deletions

View File

@ -1,3 +1,7 @@
2007-09-27 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* module.c (mio_expr): Avoid -Wcast-qual warning.
2007-09-27 Tobias Schlüter <tobi@gcc.gnu.org>
* arith.c (reduce_binary_aa): Fix capitalization.

View File

@ -2819,7 +2819,7 @@ mio_expr (gfc_expr **ep)
case EXPR_SUBSTRING:
e->value.character.string
= (char *) mio_allocated_string (e->value.character.string);
= CONST_CAST (char *, mio_allocated_string (e->value.character.string));
mio_ref_list (&e->ref);
break;
@ -2854,7 +2854,7 @@ mio_expr (gfc_expr **ep)
case BT_CHARACTER:
mio_integer (&e->value.character.length);
e->value.character.string
= (char *) mio_allocated_string (e->value.character.string);
= CONST_CAST (char *, mio_allocated_string (e->value.character.string));
break;
default: