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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


/* { dg-do run } */
/* { dg-require-effective-target tls_runtime } */
/* { dg-add-options tls } */
 
extern void abort (void);
 
__thread int tls_ie __attribute__((tls_model("initial-exec"))) = 4;
 
int get_ie (void)
{
  return tls_ie;
}
 
int *get_iep (void)
{
  return &tls_ie;
}
 
int main (void)
{
  int val;
 
  val = get_ie ();
  if (val != 4)
    abort ();
 
  val = *get_iep ();
  if (val != 4)
    abort ();
 
  return 0;
}

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_ie __attribute__((tls_model("initial-exec"))) = 4;`
8
9			`int get_ie (void)`
10			`{`
11			`return tls_ie;`
12			`}`
13
14			`int *get_iep (void)`
15			`{`
16			`return &tls_ie;`
17			`}`
18
19			`int main (void)`
20			`{`
21			`int val;`
22
23			`val = get_ie ();`
24			`if (val != 4)`
25			`abort ();`
26
27			`val = *get_iep ();`
28			`if (val != 4)`
29			`abort ();`
30
31			`return 0;`
32			`}`

Browse

Tools

Subversion Repositories openrisc

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