annotate libvtv/testsuite/other-tests/dlopen_mt.cc @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 #include <stdlib.h>
kono
parents:
diff changeset
2 #include <dlfcn.h>
kono
parents:
diff changeset
3 #include <stdio.h>
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 #include "vtv_utils.h"
kono
parents:
diff changeset
6 #include "vtv_rts.h"
kono
parents:
diff changeset
7 #include "pthread.h"
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 #define NUM_REPEATS 10
kono
parents:
diff changeset
10 #define NUM_THREADS 10
kono
parents:
diff changeset
11 #define NUM_SOS 100
kono
parents:
diff changeset
12 #define NUM_SOS_PER_THREAD (NUM_SOS/NUM_THREADS)
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 typedef void (*voidfn)(void);
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 int failures = 0;
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 void
kono
parents:
diff changeset
19 __vtv_verify_fail (void **data_set_ptr, const void *vtbl_pointer)
kono
parents:
diff changeset
20 {
kono
parents:
diff changeset
21 failures++;
kono
parents:
diff changeset
22 return;
kono
parents:
diff changeset
23 }
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 void do_dlopen(int so_num)
kono
parents:
diff changeset
27 {
kono
parents:
diff changeset
28 char so_name [sizeof("soxxx.so")];
kono
parents:
diff changeset
29 sprintf(so_name, "so%d.so", so_num);
kono
parents:
diff changeset
30 // printf("dl-opening %s\n", so_name);
kono
parents:
diff changeset
31 void * dlhandle = dlopen(so_name, RTLD_NOW);
kono
parents:
diff changeset
32 if (!dlhandle)
kono
parents:
diff changeset
33 {
kono
parents:
diff changeset
34 fprintf(stderr, "dlopen so:%s error: %s\n", so_name, dlerror());
kono
parents:
diff changeset
35 exit(1);
kono
parents:
diff changeset
36 }
kono
parents:
diff changeset
37 char so_entry [sizeof("so_entry_xxx")];
kono
parents:
diff changeset
38 sprintf(so_entry, "so_entry_%d", so_num);
kono
parents:
diff changeset
39 voidfn so_entry_fn = (voidfn)dlsym(dlhandle, so_entry);
kono
parents:
diff changeset
40 if (!so_entry_fn)
kono
parents:
diff changeset
41 {
kono
parents:
diff changeset
42 fprintf(stderr, "so:%s dlsym error: %s\n", so_name, dlerror());
kono
parents:
diff changeset
43 exit(2);
kono
parents:
diff changeset
44 }
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 so_entry_fn();
kono
parents:
diff changeset
47
kono
parents:
diff changeset
48 dlclose(dlhandle);
kono
parents:
diff changeset
49 }
kono
parents:
diff changeset
50
kono
parents:
diff changeset
51 volatile int threads_completed_it = 0;
kono
parents:
diff changeset
52 volatile int current_wave = -1;
kono
parents:
diff changeset
53
kono
parents:
diff changeset
54 void * do_dlopens(void * ptid)
kono
parents:
diff changeset
55 {
kono
parents:
diff changeset
56 for (int k = 0; k < NUM_REPEATS; k++)
kono
parents:
diff changeset
57 {
kono
parents:
diff changeset
58
kono
parents:
diff changeset
59 for (int i = 0; i < NUM_SOS_PER_THREAD; i++)
kono
parents:
diff changeset
60 {
kono
parents:
diff changeset
61 while (current_wave < (k*NUM_SOS_PER_THREAD + i)) /* from 0 to 99 */
kono
parents:
diff changeset
62 ;
kono
parents:
diff changeset
63
kono
parents:
diff changeset
64 do_dlopen((NUM_SOS_PER_THREAD * *(int *)ptid) + i);
kono
parents:
diff changeset
65
kono
parents:
diff changeset
66 int old_value;
kono
parents:
diff changeset
67 do {
kono
parents:
diff changeset
68 old_value = threads_completed_it;
kono
parents:
diff changeset
69 } while (!__sync_bool_compare_and_swap(&threads_completed_it, old_value, old_value + 1));
kono
parents:
diff changeset
70
kono
parents:
diff changeset
71 if (old_value == (NUM_THREADS - 1)) // Only one thread will do this.
kono
parents:
diff changeset
72 {
kono
parents:
diff changeset
73 threads_completed_it = 0;
kono
parents:
diff changeset
74 printf("%c%d", 13, current_wave + 1);
kono
parents:
diff changeset
75 fflush(stdout);
kono
parents:
diff changeset
76 current_wave++;
kono
parents:
diff changeset
77 }
kono
parents:
diff changeset
78 }
kono
parents:
diff changeset
79 }
kono
parents:
diff changeset
80
kono
parents:
diff changeset
81 return NULL;
kono
parents:
diff changeset
82 }
kono
parents:
diff changeset
83
kono
parents:
diff changeset
84
kono
parents:
diff changeset
85 int main()
kono
parents:
diff changeset
86 {
kono
parents:
diff changeset
87 pthread_t thread_ids[NUM_THREADS];
kono
parents:
diff changeset
88 int thread_nids[NUM_THREADS];
kono
parents:
diff changeset
89
kono
parents:
diff changeset
90 for (int t = 0; t < NUM_THREADS; t++ )
kono
parents:
diff changeset
91 {
kono
parents:
diff changeset
92 thread_nids[t] = t;
kono
parents:
diff changeset
93 if (pthread_create(&thread_ids[t], NULL, do_dlopens, &thread_nids[t]) != 0)
kono
parents:
diff changeset
94 {
kono
parents:
diff changeset
95 printf("failed pthread_create\n");
kono
parents:
diff changeset
96 exit(1);
kono
parents:
diff changeset
97 }
kono
parents:
diff changeset
98 }
kono
parents:
diff changeset
99
kono
parents:
diff changeset
100 current_wave = 0; // start the work on the other threads
kono
parents:
diff changeset
101
kono
parents:
diff changeset
102 for (int t = 0; t < NUM_THREADS; t++)
kono
parents:
diff changeset
103 if (pthread_join(thread_ids[t], NULL) != 0)
kono
parents:
diff changeset
104 {
kono
parents:
diff changeset
105 printf("failed pthread_join\n");
kono
parents:
diff changeset
106 exit(2);
kono
parents:
diff changeset
107 }
kono
parents:
diff changeset
108
kono
parents:
diff changeset
109 printf("\n");
kono
parents:
diff changeset
110
kono
parents:
diff changeset
111 return 0;
kono
parents:
diff changeset
112 }