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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [tls/] [run-ld.c] - Blame information for rev 689

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn
/* { dg-do run } */
2
/* { dg-require-effective-target tls_runtime } */
3
/* { dg-add-options tls } */
4
 
5
extern void abort (void);
6
 
7
__thread int tls_ld __attribute__((tls_model("local-dynamic"))) = 1;
8
__thread int tls_ld2 __attribute__((tls_model("local-dynamic"))) = 2;
9
 
10
int get_ld (void)
11
{
12
  return tls_ld + tls_ld2;
13
}
14
 
15
int *get_ldp (void)
16
{
17
  return &tls_ld;
18
}
19
 
20
int main (void)
21
{
22
  int val;
23
 
24
  val = get_ld ();
25
  if (val != 1 + 2)
26
    abort ();
27
 
28
  val = *get_ldp ();
29
  if (val != 1)
30
    abort ();
31
 
32
  return 0;
33
}

powered by: WebSVN 2.1.0

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