module.c (mio_expr): Avoid -Wcast-qual warning.
* module.c (mio_expr): Avoid -Wcast-qual warning. From-SVN: r128854
This commit is contained in:
parent
d1a16d63f1
commit
3ba43c5f0c
|
@ -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.
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Reference in New Issue