1 /* Copyright (C) 2005, 2006 Free Software Foundation, Inc.
2 Contributed by Richard Henderson <rth@redhat.com>.
4 This file is part of the GNU OpenMP Library (libgomp).
6 Libgomp is free software; you can redistribute it and/or modify it
7 under the terms of the GNU Lesser General Public License as published by
8 the Free Software Foundation; either version 2.1 of the License, or
9 (at your option) any later version.
11 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
13 FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
16 You should have received a copy of the GNU Lesser General Public License
17 along with libgomp; see the file COPYING.LIB. If not, write to the
18 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
19 MA 02110-1301, USA. */
21 /* As a special exception, if you link this library with other files, some
22 of which are compiled with GCC, to produce an executable, this library
23 does not by itself cause the resulting executable to be covered by the
24 GNU General Public License. This exception does not however invalidate
25 any other reasons why the executable file might be covered by the GNU
26 General Public License. */
28 /* This file defines the OpenMP internal control variables, and arranges
29 for them to be initialized from environment variables at startup. */
32 #include "libgomp_f.h"
40 unsigned long gomp_nthreads_var
= 1;
41 bool gomp_dyn_var
= false;
42 bool gomp_nest_var
= false;
43 enum gomp_schedule_type gomp_run_sched_var
= GFS_DYNAMIC
;
44 unsigned long gomp_run_sched_chunk
= 1;
46 /* Parse the OMP_SCHEDULE environment variable. */
54 env
= getenv ("OMP_SCHEDULE");
58 while (isspace ((unsigned char) *env
))
60 if (strncasecmp (env
, "static", 6) == 0)
62 gomp_run_sched_var
= GFS_STATIC
;
65 else if (strncasecmp (env
, "dynamic", 7) == 0)
67 gomp_run_sched_var
= GFS_DYNAMIC
;
70 else if (strncasecmp (env
, "guided", 6) == 0)
72 gomp_run_sched_var
= GFS_GUIDED
;
78 while (isspace ((unsigned char) *env
))
84 while (isspace ((unsigned char) *env
))
90 value
= strtoul (env
, &end
, 10);
94 while (isspace ((unsigned char) *end
))
99 gomp_run_sched_chunk
= value
;
103 gomp_error ("Unknown value for environment variable OMP_SCHEDULE");
107 gomp_error ("Invalid value for chunk size in "
108 "environment variable OMP_SCHEDULE");
112 /* Parse an unsigned long environment varible. Return true if one was
113 present and it was successfully parsed. */
116 parse_unsigned_long (const char *name
, unsigned long *pvalue
)
125 while (isspace ((unsigned char) *env
))
131 value
= strtoul (env
, &end
, 10);
132 if (errno
|| (long) value
<= 0)
135 while (isspace ((unsigned char) *end
))
144 gomp_error ("Invalid value for environment variable %s", name
);
148 /* Parse a boolean value for environment variable NAME and store the
152 parse_boolean (const char *name
, bool *value
)
160 while (isspace ((unsigned char) *env
))
162 if (strncasecmp (env
, "true", 4) == 0)
167 else if (strncasecmp (env
, "false", 5) == 0)
174 while (isspace ((unsigned char) *env
))
177 gomp_error ("Invalid value for environment variable %s", name
);
180 static void __attribute__((constructor
))
181 initialize_env (void)
183 unsigned long stacksize
;
185 /* Do a compile time check that mkomp_h.pl did good job. */
186 omp_check_defines ();
189 parse_boolean ("OMP_DYNAMIC", &gomp_dyn_var
);
190 parse_boolean ("OMP_NESTED", &gomp_nest_var
);
191 if (!parse_unsigned_long ("OMP_NUM_THREADS", &gomp_nthreads_var
))
192 gomp_init_num_threads ();
194 /* Not strictly environment related, but ordering constructors is tricky. */
195 pthread_attr_init (&gomp_thread_attr
);
196 pthread_attr_setdetachstate (&gomp_thread_attr
, PTHREAD_CREATE_DETACHED
);
198 if (parse_unsigned_long ("GOMP_STACKSIZE", &stacksize
))
203 err
= pthread_attr_setstacksize (&gomp_thread_attr
, stacksize
);
205 #ifdef PTHREAD_STACK_MIN
208 if (stacksize
< PTHREAD_STACK_MIN
)
209 gomp_error ("Stack size less than minimum of %luk",
210 PTHREAD_STACK_MIN
/ 1024ul
211 + (PTHREAD_STACK_MIN
% 1024 != 0));
213 gomp_error ("Stack size larger than system limit");
218 gomp_error ("Stack size change failed: %s", strerror (err
));
223 /* The public OpenMP API routines that access these variables. */
226 omp_set_num_threads (int n
)
228 gomp_nthreads_var
= n
;
232 omp_set_dynamic (int val
)
238 omp_get_dynamic (void)
244 omp_set_nested (int val
)
250 omp_get_nested (void)
252 return gomp_nest_var
;
255 ialias (omp_set_dynamic
)
256 ialias (omp_set_nested
)
257 ialias (omp_set_num_threads
)
258 ialias (omp_get_dynamic
)
259 ialias (omp_get_nested
)