mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-04-25 04:20:32 +08:00
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…
x
Reference in New Issue
Block a user