blob: 77ceeb7706f77688b219e4e1ea813b2a4e6d6d2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
/* This checks the availability of the XL compiler intrinsics for
transactional execution with the expected prototypes. */
/* { dg-do compile } */
/* { dg-options "-O3 -march=zEC12 -mzarch" } */
#include <htmxlintrin.h>
int a = 0;
unsigned long g;
int
foo ()
{
struct __htm_tdb *tdb_struct;
void * const tdb = tdb_struct;
long result;
unsigned char code;
result = __TM_simple_begin ();
result = __TM_begin (tdb);
result = __TM_end ();
__TM_abort ();
__TM_named_abort (42);
__TM_non_transactional_store (&g, 42);
result = __TM_nesting_depth (tdb);
result = __TM_is_user_abort (tdb);
result = __TM_is_named_user_abort (tdb, &code);
result = __TM_is_illegal (tdb);
result = __TM_is_footprint_exceeded (tdb);
result = __TM_is_nested_too_deep (tdb);
result = __TM_is_conflict (tdb);
result = __TM_is_failure_persistent (result);
result = __TM_failure_address (tdb);
result = __TM_failure_code (tdb);
}
|
