OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [fortran.c] - Blame information for rev 826

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 jeremybenn
/* Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
2
   Contributed by Jakub Jelinek <jakub@redhat.com>.
3
 
4
   This file is part of the GNU OpenMP Library (libgomp).
5
 
6
   Libgomp is free software; you can redistribute it and/or modify it
7
   under the terms of the GNU General Public License as published by
8
   the Free Software Foundation; either version 3, or (at your option)
9
   any later version.
10
 
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 General Public License for
14
   more details.
15
 
16
   Under Section 7 of GPL version 3, you are granted additional
17
   permissions described in the GCC Runtime Library Exception, version
18
   3.1, as published by the Free Software Foundation.
19
 
20
   You should have received a copy of the GNU General Public License and
21
   a copy of the GCC Runtime Library Exception along with this program;
22
   see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23
   <http://www.gnu.org/licenses/>.  */
24
 
25
/* This file contains Fortran wrapper routines.  */
26
 
27
#include "libgomp.h"
28
#include "libgomp_f.h"
29
#include <stdlib.h>
30
 
31
#ifdef HAVE_ATTRIBUTE_ALIAS
32
/* Use internal aliases if possible.  */
33
# define ULP            STR1(__USER_LABEL_PREFIX__)
34
# define STR1(x)        STR2(x)
35
# define STR2(x)        #x
36
# define ialias_redirect(fn) \
37
  extern __typeof (fn) fn __asm__ (ULP "gomp_ialias_" #fn) attribute_hidden;
38
# ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
39
ialias_redirect (omp_init_lock)
40
ialias_redirect (omp_init_nest_lock)
41
ialias_redirect (omp_destroy_lock)
42
ialias_redirect (omp_destroy_nest_lock)
43
ialias_redirect (omp_set_lock)
44
ialias_redirect (omp_set_nest_lock)
45
ialias_redirect (omp_unset_lock)
46
ialias_redirect (omp_unset_nest_lock)
47
ialias_redirect (omp_test_lock)
48
ialias_redirect (omp_test_nest_lock)
49
# endif
50
ialias_redirect (omp_set_dynamic)
51
ialias_redirect (omp_set_nested)
52
ialias_redirect (omp_set_num_threads)
53
ialias_redirect (omp_get_dynamic)
54
ialias_redirect (omp_get_nested)
55
ialias_redirect (omp_in_parallel)
56
ialias_redirect (omp_get_max_threads)
57
ialias_redirect (omp_get_num_procs)
58
ialias_redirect (omp_get_num_threads)
59
ialias_redirect (omp_get_thread_num)
60
ialias_redirect (omp_get_wtick)
61
ialias_redirect (omp_get_wtime)
62
ialias_redirect (omp_set_schedule)
63
ialias_redirect (omp_get_schedule)
64
ialias_redirect (omp_get_thread_limit)
65
ialias_redirect (omp_set_max_active_levels)
66
ialias_redirect (omp_get_max_active_levels)
67
ialias_redirect (omp_get_level)
68
ialias_redirect (omp_get_ancestor_thread_num)
69
ialias_redirect (omp_get_team_size)
70
ialias_redirect (omp_get_active_level)
71
#endif
72
 
73
#ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
74
# define gomp_init_lock__30 omp_init_lock_
75
# define gomp_destroy_lock__30 omp_destroy_lock_
76
# define gomp_set_lock__30 omp_set_lock_
77
# define gomp_unset_lock__30 omp_unset_lock_
78
# define gomp_test_lock__30 omp_test_lock_
79
# define gomp_init_nest_lock__30 omp_init_nest_lock_
80
# define gomp_destroy_nest_lock__30 omp_destroy_nest_lock_
81
# define gomp_set_nest_lock__30 omp_set_nest_lock_
82
# define gomp_unset_nest_lock__30 omp_unset_nest_lock_
83
# define gomp_test_nest_lock__30 omp_test_nest_lock_
84
#endif
85
 
86
void
87
gomp_init_lock__30 (omp_lock_arg_t lock)
88
{
89
#ifndef OMP_LOCK_DIRECT
90
  omp_lock_arg (lock) = malloc (sizeof (omp_lock_t));
91
#endif
92
  gomp_init_lock_30 (omp_lock_arg (lock));
93
}
94
 
95
void
96
gomp_init_nest_lock__30 (omp_nest_lock_arg_t lock)
97
{
98
#ifndef OMP_NEST_LOCK_DIRECT
99
  omp_nest_lock_arg (lock) = malloc (sizeof (omp_nest_lock_t));
100
#endif
101
  gomp_init_nest_lock_30 (omp_nest_lock_arg (lock));
102
}
103
 
104
void
105
gomp_destroy_lock__30 (omp_lock_arg_t lock)
106
{
107
  gomp_destroy_lock_30 (omp_lock_arg (lock));
108
#ifndef OMP_LOCK_DIRECT
109
  free (omp_lock_arg (lock));
110
  omp_lock_arg (lock) = NULL;
111
#endif
112
}
113
 
114
void
115
gomp_destroy_nest_lock__30 (omp_nest_lock_arg_t lock)
116
{
117
  gomp_destroy_nest_lock_30 (omp_nest_lock_arg (lock));
118
#ifndef OMP_NEST_LOCK_DIRECT
119
  free (omp_nest_lock_arg (lock));
120
  omp_nest_lock_arg (lock) = NULL;
121
#endif
122
}
123
 
124
void
125
gomp_set_lock__30 (omp_lock_arg_t lock)
126
{
127
  gomp_set_lock_30 (omp_lock_arg (lock));
128
}
129
 
130
void
131
gomp_set_nest_lock__30 (omp_nest_lock_arg_t lock)
132
{
133
  gomp_set_nest_lock_30 (omp_nest_lock_arg (lock));
134
}
135
 
136
void
137
gomp_unset_lock__30 (omp_lock_arg_t lock)
138
{
139
  gomp_unset_lock_30 (omp_lock_arg (lock));
140
}
141
 
142
void
143
gomp_unset_nest_lock__30 (omp_nest_lock_arg_t lock)
144
{
145
  gomp_unset_nest_lock_30 (omp_nest_lock_arg (lock));
146
}
147
 
148
int32_t
149
gomp_test_lock__30 (omp_lock_arg_t lock)
150
{
151
  return gomp_test_lock_30 (omp_lock_arg (lock));
152
}
153
 
154
int32_t
155
gomp_test_nest_lock__30 (omp_nest_lock_arg_t lock)
156
{
157
  return gomp_test_nest_lock_30 (omp_nest_lock_arg (lock));
158
}
159
 
160
#ifdef LIBGOMP_GNU_SYMBOL_VERSIONING
161
void
162
gomp_init_lock__25 (omp_lock_25_arg_t lock)
163
{
164
#ifndef OMP_LOCK_25_DIRECT
165
  omp_lock_25_arg (lock) = malloc (sizeof (omp_lock_25_t));
166
#endif
167
  gomp_init_lock_25 (omp_lock_25_arg (lock));
168
}
169
 
170
void
171
gomp_init_nest_lock__25 (omp_nest_lock_25_arg_t lock)
172
{
173
#ifndef OMP_NEST_LOCK_25_DIRECT
174
  omp_nest_lock_25_arg (lock) = malloc (sizeof (omp_nest_lock_25_t));
175
#endif
176
  gomp_init_nest_lock_25 (omp_nest_lock_25_arg (lock));
177
}
178
 
179
void
180
gomp_destroy_lock__25 (omp_lock_25_arg_t lock)
181
{
182
  gomp_destroy_lock_25 (omp_lock_25_arg (lock));
183
#ifndef OMP_LOCK_25_DIRECT
184
  free (omp_lock_25_arg (lock));
185
  omp_lock_25_arg (lock) = NULL;
186
#endif
187
}
188
 
189
void
190
gomp_destroy_nest_lock__25 (omp_nest_lock_25_arg_t lock)
191
{
192
  gomp_destroy_nest_lock_25 (omp_nest_lock_25_arg (lock));
193
#ifndef OMP_NEST_LOCK_25_DIRECT
194
  free (omp_nest_lock_25_arg (lock));
195
  omp_nest_lock_25_arg (lock) = NULL;
196
#endif
197
}
198
 
199
void
200
gomp_set_lock__25 (omp_lock_25_arg_t lock)
201
{
202
  gomp_set_lock_25 (omp_lock_25_arg (lock));
203
}
204
 
205
void
206
gomp_set_nest_lock__25 (omp_nest_lock_25_arg_t lock)
207
{
208
  gomp_set_nest_lock_25 (omp_nest_lock_25_arg (lock));
209
}
210
 
211
void
212
gomp_unset_lock__25 (omp_lock_25_arg_t lock)
213
{
214
  gomp_unset_lock_25 (omp_lock_25_arg (lock));
215
}
216
 
217
void
218
gomp_unset_nest_lock__25 (omp_nest_lock_25_arg_t lock)
219
{
220
  gomp_unset_nest_lock_25 (omp_nest_lock_25_arg (lock));
221
}
222
 
223
int32_t
224
gomp_test_lock__25 (omp_lock_25_arg_t lock)
225
{
226
  return gomp_test_lock_25 (omp_lock_25_arg (lock));
227
}
228
 
229
int32_t
230
gomp_test_nest_lock__25 (omp_nest_lock_25_arg_t lock)
231
{
232
  return gomp_test_nest_lock_25 (omp_nest_lock_25_arg (lock));
233
}
234
 
235
omp_lock_symver (omp_init_lock_)
236
omp_lock_symver (omp_destroy_lock_)
237
omp_lock_symver (omp_set_lock_)
238
omp_lock_symver (omp_unset_lock_)
239
omp_lock_symver (omp_test_lock_)
240
omp_lock_symver (omp_init_nest_lock_)
241
omp_lock_symver (omp_destroy_nest_lock_)
242
omp_lock_symver (omp_set_nest_lock_)
243
omp_lock_symver (omp_unset_nest_lock_)
244
omp_lock_symver (omp_test_nest_lock_)
245
#endif
246
 
247
void
248
omp_set_dynamic_ (const int32_t *set)
249
{
250
  omp_set_dynamic (*set);
251
}
252
 
253
void
254
omp_set_dynamic_8_ (const int64_t *set)
255
{
256
  omp_set_dynamic (*set);
257
}
258
 
259
void
260
omp_set_nested_ (const int32_t *set)
261
{
262
  omp_set_nested (*set);
263
}
264
 
265
void
266
omp_set_nested_8_ (const int64_t *set)
267
{
268
  omp_set_nested (*set);
269
}
270
 
271
void
272
omp_set_num_threads_ (const int32_t *set)
273
{
274
  omp_set_num_threads (*set);
275
}
276
 
277
void
278
omp_set_num_threads_8_ (const int64_t *set)
279
{
280
  omp_set_num_threads (*set);
281
}
282
 
283
int32_t
284
omp_get_dynamic_ (void)
285
{
286
  return omp_get_dynamic ();
287
}
288
 
289
int32_t
290
omp_get_nested_ (void)
291
{
292
  return omp_get_nested ();
293
}
294
 
295
int32_t
296
omp_in_parallel_ (void)
297
{
298
  return omp_in_parallel ();
299
}
300
 
301
int32_t
302
omp_get_max_threads_ (void)
303
{
304
  return omp_get_max_threads ();
305
}
306
 
307
int32_t
308
omp_get_num_procs_ (void)
309
{
310
  return omp_get_num_procs ();
311
}
312
 
313
int32_t
314
omp_get_num_threads_ (void)
315
{
316
  return omp_get_num_threads ();
317
}
318
 
319
int32_t
320
omp_get_thread_num_ (void)
321
{
322
  return omp_get_thread_num ();
323
}
324
 
325
double
326
omp_get_wtick_ (void)
327
{
328
  return omp_get_wtick ();
329
}
330
 
331
double
332
omp_get_wtime_ (void)
333
{
334
  return omp_get_wtime ();
335
}
336
 
337
void
338
omp_set_schedule_ (const int32_t *kind, const int32_t *modifier)
339
{
340
  omp_set_schedule (*kind, *modifier);
341
}
342
 
343
void
344
omp_set_schedule_8_ (const int32_t *kind, const int64_t *modifier)
345
{
346
  omp_set_schedule (*kind, *modifier);
347
}
348
 
349
void
350
omp_get_schedule_ (int32_t *kind, int32_t *modifier)
351
{
352
  omp_sched_t k;
353
  int m;
354
  omp_get_schedule (&k, &m);
355
  *kind = k;
356
  *modifier = m;
357
}
358
 
359
void
360
omp_get_schedule_8_ (int32_t *kind, int64_t *modifier)
361
{
362
  omp_sched_t k;
363
  int m;
364
  omp_get_schedule (&k, &m);
365
  *kind = k;
366
  *modifier = m;
367
}
368
 
369
int32_t
370
omp_get_thread_limit_ (void)
371
{
372
  return omp_get_thread_limit ();
373
}
374
 
375
void
376
omp_set_max_active_levels_ (const int32_t *levels)
377
{
378
  omp_set_max_active_levels (*levels);
379
}
380
 
381
void
382
omp_set_max_active_levels_8_ (const int64_t *levels)
383
{
384
  omp_set_max_active_levels (*levels);
385
}
386
 
387
int32_t
388
omp_get_max_active_levels_ (void)
389
{
390
  return omp_get_max_active_levels ();
391
}
392
 
393
int32_t
394
omp_get_level_ (void)
395
{
396
  return omp_get_level ();
397
}
398
 
399
int32_t
400
omp_get_ancestor_thread_num_ (const int32_t *level)
401
{
402
  return omp_get_ancestor_thread_num (*level);
403
}
404
 
405
int32_t
406
omp_get_ancestor_thread_num_8_ (const int64_t *level)
407
{
408
  return omp_get_ancestor_thread_num (*level);
409
}
410
 
411
int32_t
412
omp_get_team_size_ (const int32_t *level)
413
{
414
  return omp_get_team_size (*level);
415
}
416
 
417
int32_t
418
omp_get_team_size_8_ (const int64_t *level)
419
{
420
  return omp_get_team_size (*level);
421
}
422
 
423
int32_t
424
omp_get_active_level_ (void)
425
{
426
  return omp_get_active_level ();
427
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.