diff options
| author | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-23 10:50:45 +0000 |
|---|---|---|
| committer | aldyh <aldyh@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-23 10:50:45 +0000 |
| commit | f6313358527d6738efd8fa2c0b6b79ed2babbf34 (patch) | |
| tree | 3ca3b78c95f569a1c3c09ee1774c8aa6c06ef8ab | |
| parent | 5449dc6c3d816de21d4e31fa546124b23e401266 (diff) | |
| download | ppe42-gcc-f6313358527d6738efd8fa2c0b6b79ed2babbf34.tar.gz ppe42-gcc-f6313358527d6738efd8fa2c0b6b79ed2babbf34.zip | |
+ * trans-expr.c (gfc_trans_string_copy): Use "void *" when building a
+ memset.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130371 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3939e0b58d7..85f2a5a3893 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2007-11-23 Aldy Hernandez <aldyh@redhat.com> + + * trans-expr.c (gfc_trans_string_copy): Use "void *" when building a + memset. + 2007-11-22 Tobias Burnus <burnus@net-b.de> * primary.c (gfc_match_structure_constructor): Allow diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 6fc1e2c1316..c47f69b8b38 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2701,7 +2701,7 @@ gfc_trans_string_copy (stmtblock_t * block, tree dlength, tree dest, tmp3 = build_call_expr (built_in_decls[BUILT_IN_MEMMOVE], 3, dest, src, slen); - tmp4 = fold_build2 (POINTER_PLUS_EXPR, pchar_type_node, dest, + tmp4 = fold_build2 (POINTER_PLUS_EXPR, TREE_TYPE (dest), dest, fold_convert (sizetype, slen)); tmp4 = build_call_expr (built_in_decls[BUILT_IN_MEMSET], 3, tmp4, |
