git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

multi.c: Remove static variables _gfortrani_caf_this_image and caf_num_images. 

2018-09-02  Thomas Koenig  <tkoenig@gcc.gnu.org>
	* caf/multi.c: Remove static variables _gfortrani_caf_this_image
	and caf_num_images.
	* runtime/environ.c: Add caf_num_images.
	* runtime/compile_options.c: Add _gfortrani_caf_this_image.

From-SVN: r264045
This commit is contained in:
Thomas Koenig 2018-09-02 20:10:58 +00:00
parent 8d3339526a
commit 6857bd99f3
4 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog.dev
View File

@ -1,3 +1,9 @@
2018-09-02 Thomas Koenig <tkoenig@gcc.gnu.org>
* caf/multi.c: Remove static variables _gfortrani_caf_this_image
and caf_num_images.
* runtime/environ.c: Add caf_num_images.
* runtime/compile_options.c: Add _gfortrani_caf_this_image.
2018-09-02 Thomas Koenig <tkoenig@gcc.gnu.org>
* caf/multi.c (_gfortran_caf_register): New function.

2
libgfortran/caf/multi.c
View File

@ -59,8 +59,6 @@ typedef struct cond_t {
/* Static variables. */
__thread int _gfortrani_caf_this_image = -1;
int caf_num_images = -1;
pthread_barrier_t sync_all_barrier;
pthread_t *tidlist;

4
libgfortran/runtime/compile_options.c
View File

@ -142,6 +142,10 @@ backtrace_handler (int signum)
extern void set_options (int , int []);
export_proto(set_options);
/* Thread-local storage which image we are in. */
__thread int _gfortrani_caf_this_image = -1;
void
set_options (int num, int options[])
{

1
libgfortran/runtime/environ.c
View File

@ -32,6 +32,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#include <unistd.h>
#endif
int caf_num_images = -1;
/* Implementation of secure_getenv() for targets where it is not
provided. */