diff options
| author | Bernd Schmidt <bernds@codesourcery.com> | 2014-07-09 10:34:40 +0000 |
|---|---|---|
| committer | Bernd Schmidt <bernds@gcc.gnu.org> | 2014-07-09 10:34:40 +0000 |
| commit | 059345ce40dc68e771f4e38c64597bbe56194551 (patch) | |
| tree | 9044910faadc531436a3432208a53c52cf9aa110 /gcc/fortran/trans-array.c | |
| parent | 7bb7b8369311925f717feb1891f42316e06cd676 (diff) | |
| download | gcc-059345ce40dc68e771f4e38c64597bbe56194551.zip gcc-059345ce40dc68e771f4e38c64597bbe56194551.tar.gz gcc-059345ce40dc68e771f4e38c64597bbe56194551.tar.bz2 | |
Avoid using create_tmp_var for static decls.
* trans-array.c (gfc_build_constant_array_constructor): Build a
static decl manually.
* trans-decl.c (create_main_function): Likewise.
From-SVN: r212388
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 0e01899..c30318a 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2045,11 +2045,15 @@ gfc_build_constant_array_constructor (gfc_expr * expr, tree type) TREE_CONSTANT (init) = 1; TREE_STATIC (init) = 1; - tmp = gfc_create_var (tmptype, "A"); + tmp = build_decl (input_location, VAR_DECL, create_tmp_var_name ("A"), + tmptype); + DECL_ARTIFICIAL (tmp) = 1; + DECL_IGNORED_P (tmp) = 1; TREE_STATIC (tmp) = 1; TREE_CONSTANT (tmp) = 1; TREE_READONLY (tmp) = 1; DECL_INITIAL (tmp) = init; + pushdecl (tmp); return tmp; } |