diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 20:55:49 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-04 20:55:49 +0000 |
| commit | 4f576d6aec1601fa7e95107ec2dfc30cd4eb30e3 (patch) | |
| tree | 3bc67b7ed0b9882c2945e7136e69be9b705e553d /gcc/fortran/trans-io.c | |
| parent | ca5301bf5dd9d70218cff006bf36161b3bbf57c0 (diff) | |
| download | gcc-4f576d6aec1601fa7e95107ec2dfc30cd4eb30e3.tar.gz | |
* trans-const.c (gfc_build_cstring_const): New function.
(gfc_init_cst): Use new function.
* trans-const.h (gfc_build_cstring_const): Add prototype.
* trans-io.c (set_string, set_error_locus): Use new function.
* trans-stmt.c (gfc_trans_goto): Use new function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88528 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index c67422876de..ada82976043 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -409,7 +409,7 @@ set_string (stmtblock_t * block, stmtblock_t * postblock, tree var, if (e->ts.type == BT_INTEGER && e->symtree->n.sym->attr.assign == 1) { msg = - gfc_build_string_const (37, "Assigned label is not a format label"); + gfc_build_cstring_const ("Assigned label is not a format label"); tmp = GFC_DECL_STRING_LEN (se.expr); tmp = build2 (LE_EXPR, boolean_type_node, tmp, convert (TREE_TYPE (tmp), integer_minus_one_node)); @@ -518,7 +518,7 @@ set_error_locus (stmtblock_t * block, locus * where) int line; f = where->lb->file; - tmp = gfc_build_string_const (strlen (f->filename) + 1, f->filename); + tmp = gfc_build_cstring_const (f->filename); tmp = gfc_build_addr_expr (pchar_type_node, tmp); gfc_add_modify_expr (block, locus_file, tmp); |