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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [gold/] [testsuite/] [tls_test_c.c] - Blame information for rev 818

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 205 julius
/* tls_test_c.c -- test TLS common symbol
2
 
3
   Copyright 2008 Free Software Foundation, Inc.
4
   Written by Ian Lance Taylor <iant@google.com>
5
 
6
   This file is part of gold.
7
 
8
   This program is free software; you can redistribute it and/or modify
9
   it under the terms of the GNU General Public License as published by
10
   the Free Software Foundation; either version 3 of the License, or
11
   (at your option) any later version.
12
 
13
   This program is distributed in the hope that it will be useful,
14
   but WITHOUT ANY WARRANTY; without even the implied warranty of
15
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
   GNU General Public License for more details.
17
 
18
   You should have received a copy of the GNU General Public License
19
   along with this program; if not, write to the Free Software
20
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21
   MA 02110-1301, USA.  */
22
 
23
/* The only way I know to get gcc to generate a TLS common symbol is
24
   to use a C file and an OpenMP directive.  */
25
 
26
#include <stdio.h>
27
#include "config.h"
28
 
29
#define CHECK_EQ_OR_RETURN(var, expected)                               \
30
  do                                                                    \
31
    {                                                                   \
32
      if ((var) != (expected))                                          \
33
        {                                                               \
34
          printf(#var ": expected %d, found %d\n", expected, var);      \
35
          return 0;                                                      \
36
        }                                                               \
37
    }                                                                   \
38
  while (0)
39
 
40
#ifdef HAVE_OMP_SUPPORT
41
int v7;
42
#pragma omp threadprivate (v7)
43
#endif
44
 
45
int t11(void);
46
int t11_last(void);
47
 
48
int
49
t11(void)
50
{
51
#ifdef HAVE_OMP_SUPPORT
52
  CHECK_EQ_OR_RETURN(v7, 0);
53
  v7 = 70;
54
#endif
55
  return 1;
56
}
57
 
58
int
59
t11_last(void)
60
{
61
#ifdef HAVE_OMP_SUPPORT
62
  CHECK_EQ_OR_RETURN(v7, 70);
63
#endif
64
  return 1;
65
}

powered by: WebSVN 2.1.0

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