From b6b561e4c253e654d60d7a155c9eb315457c7449 Mon Sep 17 00:00:00 2001
From: John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
Date: Thu, 11 Dec 2008 18:33:48 +0000
Subject: [PATCH] re PR testsuite/35677 (Intermitent failure "FAIL:
libgomp.fortran/crayptr2.f90")
PR testsuite/35677
* emutls.c (__emutls_get_address): Make sure offset is really zero
before initializing the object's offset.
From-SVN: r142687
---
gcc/ChangeLog | 6 ++++++
gcc/emutls.c | 8 ++++++--
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6c3518911b34..a697b51fe507 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2008-12-11 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
+
+ PR testsuite/35677
+ * emutls.c (__emutls_get_address): Make sure offset is really zero
+ before initializing the object's offset.
+
2008-12-11 Jakub Jelinek <jakub@redhat.com>
PR c++/38253
diff --git a/gcc/emutls.c b/gcc/emutls.c
index fc0089529796..32e14a1c97e2 100644
--- a/gcc/emutls.c
+++ b/gcc/emutls.c
@@ -147,8 +147,12 @@ __emutls_get_address (struct __emutls_object *obj)
static __gthread_once_t once = __GTHREAD_ONCE_INIT;
__gthread_once (&once, emutls_init);
__gthread_mutex_lock (&emutls_mutex);
- offset = ++emutls_size;
- obj->loc.offset = offset;
+ offset = obj->loc.offset;
+ if (offset == 0)
+ {
+ offset = ++emutls_size;
+ obj->loc.offset = offset;
+ }
__gthread_mutex_unlock (&emutls_mutex);
}
--
GitLab