From 3ba43c5f0c039df452c8f33071f36ce7dee4a70c Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Fri, 28 Sep 2007 00:41:05 +0000 Subject: module.c (mio_expr): Avoid -Wcast-qual warning. * module.c (mio_expr): Avoid -Wcast-qual warning. From-SVN: r128854 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/module.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4940366..3f18b8e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2007-09-27 Kaveh R. Ghazi + + * module.c (mio_expr): Avoid -Wcast-qual warning. + 2007-09-27 Tobias Schlüter * arith.c (reduce_binary_aa): Fix capitalization. diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3418afa..78bbac8 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -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: -- cgit v1.1