aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/trans-decl.c
diff options
context:
space:
mode:
authorRichard Henderson <rth@redhat.com>2006-10-09 09:27:14 -0700
committerRichard Henderson <rth@gcc.gnu.org>2006-10-09 09:27:14 -0700
commita98d4769d5d5449e3ed3a524143b37e6c8a045ec (patch)
tree3b365f54da686b951378eabd14acdaf98bd0eb15 /gcc/fortran/trans-decl.c
parent5771bd91eccb16e766ed13f533bdb4695c705da7 (diff)
downloadgcc-a98d4769d5d5449e3ed3a524143b37e6c8a045ec.zip
gcc-a98d4769d5d5449e3ed3a524143b37e6c8a045ec.tar.gz
gcc-a98d4769d5d5449e3ed3a524143b37e6c8a045ec.tar.bz2
Revert emutls patch.
From-SVN: r117578
Diffstat (limited to 'gcc/fortran/trans-decl.c')
-rw-r--r--gcc/fortran/trans-decl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 4d410b1..7250022 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -522,7 +522,7 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym)
TREE_STATIC (decl) = 1;
/* Handle threadprivate variables. */
- if (sym->attr.threadprivate
+ if (sym->attr.threadprivate && targetm.have_tls
&& (TREE_STATIC (decl) || DECL_EXTERNAL (decl)))
DECL_TLS_MODEL (decl) = decl_default_tls_model (decl);
}