diff options
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/compile_options.c | 4 | ||||
| -rw-r--r-- | libgfortran/runtime/environ.c | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/runtime/compile_options.c b/libgfortran/runtime/compile_options.c index ef8777e..8b46a9c 100644 --- a/libgfortran/runtime/compile_options.c +++ b/libgfortran/runtime/compile_options.c @@ -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[]) { diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index c65754b..5fa12bd 100644 --- a/libgfortran/runtime/environ.c +++ b/libgfortran/runtime/environ.c @@ -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. */ |