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#define _GNU_SOURCE
27#include <stdio.h>
28#include <stdlib.h>
29#include <unistd.h>
30#include <pthread.h>
31#include <string.h>
32
33#include "utils.h"
34#include "tm.h"
35
36int num_loops = 1000000;
37int passed = 1;
38
39void tfiar_tfhar(void *in)
40{
41 unsigned long tfhar, tfhar_rd, tfiar, tfiar_rd;
42 int i;
43
44
45 tfiar = ((unsigned long)in) + 1;
46 tfiar += 2;
47 mtspr(SPRN_TFIAR, tfiar);
48
49
50 tfhar = ((unsigned long)in);
51 tfhar &= ~0x3UL;
52 tfhar += 4;
53 mtspr(SPRN_TFHAR, tfhar);
54
55 for (i = 0; i < num_loops; i++) {
56 tfhar_rd = mfspr(SPRN_TFHAR);
57 tfiar_rd = mfspr(SPRN_TFIAR);
58 if ( (tfhar != tfhar_rd) || (tfiar != tfiar_rd) ) {
59 passed = 0;
60 return;
61 }
62 }
63 return;
64}
65
66void texasr(void *in)
67{
68 unsigned long i;
69 uint64_t result = 0;
70
71 for (i = 0; i < num_loops; i++) {
72 asm __volatile__(
73 "tbegin.;"
74 "beq 3f ;"
75 "tabort. 0 ;"
76 "tend.;"
77
78
79 "3: ;"
80 ::: "memory");
81
82
83 result = mfspr(SPRN_TEXASR);
84 if ((result & TEXASR_FS) == 0) {
85 passed = 0;
86 return;
87 }
88 }
89 return;
90}
91
92int test_tmspr()
93{
94 pthread_t *thread;
95 int thread_num;
96 unsigned long i;
97
98 SKIP_IF(!have_htm());
99 SKIP_IF(htm_is_synthetic());
100
101
102 thread_num = 10 * sysconf(_SC_NPROCESSORS_ONLN);
103
104 thread = malloc(thread_num * sizeof(pthread_t));
105 if (thread == NULL)
106 return EXIT_FAILURE;
107
108
109 for (i = 0; i < thread_num; i += 2) {
110 if (pthread_create(&thread[i], NULL, (void *)tfiar_tfhar,
111 (void *)i))
112 return EXIT_FAILURE;
113 }
114
115 for (i = 1; i < thread_num; i += 2) {
116 if (pthread_create(&thread[i], NULL, (void *)texasr, (void *)i))
117 return EXIT_FAILURE;
118 }
119
120 for (i = 0; i < thread_num; i++) {
121 if (pthread_join(thread[i], NULL) != 0)
122 return EXIT_FAILURE;
123 }
124
125 free(thread);
126
127 if (passed)
128 return 0;
129 else
130 return 1;
131}
132
133int main(int argc, char *argv[])
134{
135 if (argc > 1) {
136 if (strcmp(argv[1], "-h") == 0) {
137 printf("Syntax:\t [<num loops>]\n");
138 return 0;
139 } else {
140 num_loops = atoi(argv[1]);
141 }
142 }
143 return test_harness(test_tmspr, "tm_tmspr");
144}
145