1
2 #include <pthread.h>
3 #include <stdio.h>
4 #include <stdlib.h>
5
6 /* Simple test program, no race. Parent and child both modify x and
7 use the hardware bus lock. */
8
9 #undef PLAT_x86_darwin
10 #undef PLAT_amd64_darwin
11 #undef PLAT_x86_linux
12 #undef PLAT_amd64_linux
13 #undef PLAT_ppc32_linux
14 #undef PLAT_ppc64_linux
15 #undef PLAT_arm_linux
16 #undef PLAT_arm64_linux
17 #undef PLAT_s390x_linux
18 #undef PLAT_mips32_linux
19 #undef PLAT_tilegx_linux
20 #undef PLAT_x86_solaris
21 #undef PLAT_amd64_solaris
22
23 #if defined(__APPLE__) && defined(__i386__)
24 # define PLAT_x86_darwin 1
25 #elif defined(__APPLE__) && defined(__x86_64__)
26 # define PLAT_amd64_darwin 1
27 #elif defined(__linux__) && defined(__i386__)
28 # define PLAT_x86_linux 1
29 #elif defined(__linux__) && defined(__x86_64__)
30 # define PLAT_amd64_linux 1
31 #elif defined(__linux__) && defined(__powerpc__) && !defined(__powerpc64__)
32 # define PLAT_ppc32_linux 1
33 #elif defined(__linux__) && defined(__powerpc__) && defined(__powerpc64__)
34 # define PLAT_ppc64_linux 1
35 #elif defined(__linux__) && defined(__arm__) && !defined(__aarch64__)
36 # define PLAT_arm_linux 1
37 #elif defined(__linux__) && defined(__aarch64__) && !defined(__arm__)
38 # define PLAT_arm64_linux 1
39 #elif defined(__linux__) && defined(__s390x__)
40 # define PLAT_s390x_linux 1
41 #elif defined(__linux__) && defined(__mips__)
42 # define PLAT_mips32_linux 1
43 #elif defined(__linux__) && defined(__tilegx__)
44 # define PLAT_tilegx_linux 1
45 #elif defined(__sun__) && defined(__i386__)
46 # define PLAT_x86_solaris 1
47 #elif defined(__sun__) && defined(__x86_64__)
48 # define PLAT_amd64_solaris 1
49 #endif
50
51 #if defined(PLAT_amd64_linux) || defined(PLAT_x86_linux) \
52 || defined(PLAT_amd64_darwin) || defined(PLAT_x86_darwin) \
53 || defined(PLAT_amd64_solaris) || defined(PLAT_x86_solaris)
54 # define INC(_lval,_lqual) \
55 __asm__ __volatile__ ( \
56 "lock ; incl (%0)" : /*out*/ : /*in*/"r"(&(_lval)) : "memory", "cc" )
57 #elif defined(PLAT_ppc32_linux) || defined(PLAT_ppc64_linux)
58 # define INC(_lval,_lqual) \
59 __asm__ __volatile__( \
60 "1:\n" \
61 " lwarx 15,0,%0\n" \
62 " addi 15,15,1\n" \
63 " stwcx. 15,0,%0\n" \
64 " bne- 1b\n" \
65 : /*out*/ : /*in*/ "b"(&(_lval)) \
66 : /*trash*/ "r15", "cr0", "memory" \
67 )
68 #elif defined(PLAT_arm_linux)
69 # define INC(_lval,_lqual) \
70 __asm__ __volatile__( \
71 "1:\n" \
72 " ldrex r8, [%0, #0]\n" \
73 " add r8, r8, #1\n" \
74 " strex r9, r8, [%0, #0]\n" \
75 " cmp r9, #0\n" \
76 " bne 1b\n" \
77 : /*out*/ : /*in*/ "r"(&(_lval)) \
78 : /*trash*/ "r8", "r9", "cc", "memory" \
79 );
80 #elif defined(PLAT_arm64_linux)
81 # define INC(_lval,_lqual) \
82 __asm__ __volatile__( \
83 "1:\n" \
84 " ldxr w8, [%0, #0]\n" \
85 " add w8, w8, #1\n" \
86 " stxr w9, w8, [%0, #0]\n" \
87 " cmp w9, #0\n" \
88 " bne 1b\n" \
89 : /*out*/ : /*in*/ "r"(&(_lval)) \
90 : /*trash*/ "x8", "x9", "cc", "memory" \
91 );
92 #elif defined(PLAT_s390x_linux)
93 # define INC(_lval,_lqual) \
94 __asm__ __volatile__( \
95 "1: l 0,%0\n" \
96 " lr 1,0\n" \
97 " ahi 1,1\n" \
98 " cs 0,1,%0\n" \
99 " jl 1b\n" \
100 : "+m" (_lval) :: "cc", "1","2" \
101 )
102 #elif defined(PLAT_mips32_linux)
103 # define INC(_lval,_lqual) \
104 __asm__ __volatile__ ( \
105 "1:\n" \
106 " move $8, %0\n" \
107 " ll $9, 0($8)\n" \
108 " addiu $9, $9, 1\n" \
109 " sc $9, 0($8)\n" \
110 " li $10, 1\n" \
111 " bne $9, $10, 1b\n" \
112 " nop\n" \
113 : /*out*/ : /*in*/ "r"(&(_lval)) \
114 : /*trash*/ "$8", "$9", "$10", "cc", "memory" \
115 )
116 #elif defined(PLAT_tilegx_linux)
117 # define INC(_lval,_lqual) \
118 if (sizeof(_lval) == 4) \
119 __insn_fetchadd(&(_lval), 1); \
120 else if(sizeof(_lval) == 8) \
121 __insn_fetchadd(&(_lval), 1)
122 #else
123 # error "Fix Me for this platform"
124 #endif
125
126
127 int x = 0;
128
child_fn(void * arg)129 void* child_fn ( void* arg )
130 {
131 INC(x, "childfn");
132 return NULL;
133 }
134
main(void)135 int main ( void )
136 {
137 pthread_t child;
138
139 if (pthread_create(&child, NULL, child_fn, NULL)) {
140 perror("pthread_create");
141 exit(1);
142 }
143
144 INC(x, "main");
145
146 if (pthread_join(child, NULL)) {
147 perror("pthread join");
148 exit(1);
149 }
150
151 printf("x = %d\n", x);
152 return 0;
153 }
154