diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-04 22:55:49 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-04 22:55:49 +0200 |
| commit | 95638988cb96e12a6472bfdde500fa5105d7c251 (patch) | |
| tree | 3bc67b7ed0b9882c2945e7136e69be9b705e553d /gcc/fortran/trans-const.h | |
| parent | ee569894e73717bcc0ee7598a0fd250d0e07b50f (diff) | |
| download | gcc-95638988cb96e12a6472bfdde500fa5105d7c251.zip gcc-95638988cb96e12a6472bfdde500fa5105d7c251.tar.gz gcc-95638988cb96e12a6472bfdde500fa5105d7c251.tar.bz2 | |
trans-const.c (gfc_build_cstring_const): New function.
* 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.
From-SVN: r88528
Diffstat (limited to 'gcc/fortran/trans-const.h')
| -rw-r--r-- | gcc/fortran/trans-const.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-const.h b/gcc/fortran/trans-const.h index 0fe2d3a..d38a90f 100644 --- a/gcc/fortran/trans-const.h +++ b/gcc/fortran/trans-const.h @@ -35,6 +35,7 @@ tree gfc_conv_constant_to_tree (gfc_expr *); void gfc_conv_constant (gfc_se *, gfc_expr *); tree gfc_build_string_const (int, const char *); +tree gfc_build_cstring_const (const char *); /* Translate a string constant for a static initializer. */ tree gfc_conv_string_init (tree, gfc_expr *); |