* io/unit.c (get_internal_unit): Initialize and lock thread mutex
for internal units.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114765
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-06-18 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
+
+ PR libgomp/27254
+ * io/unit.c (get_internal_unit): Initialize and lock thread mutex
+ for internal units.
+
2006-06-06 Janne Blomqvist <jb@gcc.gnu.org>
* m4/in_pack.m4: Add TODO comment about detecting temporaries,
}
memset (iunit, '\0', sizeof (gfc_unit));
+#ifdef __GTHREAD_MUTEX_INIT
+ {
+ __gthread_mutex_t tmp = __GTHREAD_MUTEX_INIT;
+ iunit->lock = tmp;
+ }
+#else
+ __GTHREAD_MUTEX_INIT_FUNCTION (&iunit->lock);
+#endif
+ __gthread_mutex_lock (&iunit->lock);
iunit->recl = dtp->internal_unit_len;