source: libcfa/src/concurrency/stats.cfa@ 2b96031

ADT arm-eh ast-experimental enum forall-pointer-decay jacob/cs343-translation new-ast-unique-expr pthread-emulation qualifiedEnum
Last change on this file since 2b96031 was adaee12, checked in by Thierry Delisle <tdelisle@…>, 4 years ago

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc
  • Property mode set to 100644
File size: 14.5 KB
Line 
1#include <stdint.h>
2#include <stdlib.hfa>
3
4#include <unistd.h> // STDERR_FILENO
5#include <inttypes.h>
6#include "bits/debug.hfa"
7#include "bits/locks.hfa"
8#include "stats.hfa"
9#include "strstream.hfa"
10
11#if !defined(__CFA_NO_STATISTICS__)
12 void __init_stats( struct __stats_t * stats ) {
13 stats->ready.push.local.attempt = 0;
14 stats->ready.push.local.success = 0;
15 stats->ready.push.share.attempt = 0;
16 stats->ready.push.share.success = 0;
17 stats->ready.push.extrn.attempt = 0;
18 stats->ready.push.extrn.success = 0;
19 stats->ready.pop.local .attempt = 0;
20 stats->ready.pop.local .success = 0;
21 stats->ready.pop.local .elock = 0;
22 stats->ready.pop.local .eempty = 0;
23 stats->ready.pop.local .espec = 0;
24 stats->ready.pop.help .attempt = 0;
25 stats->ready.pop.help .success = 0;
26 stats->ready.pop.help .elock = 0;
27 stats->ready.pop.help .eempty = 0;
28 stats->ready.pop.help .espec = 0;
29 stats->ready.pop.steal .attempt = 0;
30 stats->ready.pop.steal .success = 0;
31 stats->ready.pop.steal .elock = 0;
32 stats->ready.pop.steal .eempty = 0;
33 stats->ready.pop.steal .espec = 0;
34 stats->ready.pop.search.attempt = 0;
35 stats->ready.pop.search.success = 0;
36 stats->ready.pop.search.elock = 0;
37 stats->ready.pop.search.eempty = 0;
38 stats->ready.pop.search.espec = 0;
39 stats->ready.threads.migration = 0;
40 stats->ready.threads.extunpark = 0;
41 stats->ready.threads.threads = 0;
42 stats->ready.sleep.halts = 0;
43 stats->ready.sleep.cancels = 0;
44 stats->ready.sleep.wakes = 0;
45 stats->ready.sleep.exits = 0;
46
47 #if defined(CFA_HAVE_LINUX_IO_URING_H)
48 stats->io.alloc.fast = 0;
49 stats->io.alloc.slow = 0;
50 stats->io.alloc.fail = 0;
51 stats->io.alloc.revoke = 0;
52 stats->io.alloc.block = 0;
53 stats->io.submit.fast = 0;
54 stats->io.submit.slow = 0;
55 stats->io.flush.external = 0;
56 stats->io.calls.flush = 0;
57 stats->io.calls.submitted = 0;
58 stats->io.calls.drain = 0;
59 stats->io.calls.completed = 0;
60 stats->io.calls.errors.busy = 0;
61 stats->io.poller.sleeps = 0;
62 #endif
63
64 #if defined(CFA_STATS_ARRAY)
65 stats->array.values = alloc(CFA_STATS_ARRAY);
66 stats->array.cnt = 0;
67 #endif
68 }
69
70 void __tally_stats( struct __stats_t * cltr, struct __stats_t * proc ) {
71 __atomic_fetch_add( &cltr->ready.push.local.attempt, proc->ready.push.local.attempt, __ATOMIC_SEQ_CST ); proc->ready.push.local.attempt = 0;
72 __atomic_fetch_add( &cltr->ready.push.local.success, proc->ready.push.local.success, __ATOMIC_SEQ_CST ); proc->ready.push.local.success = 0;
73 __atomic_fetch_add( &cltr->ready.push.share.attempt, proc->ready.push.share.attempt, __ATOMIC_SEQ_CST ); proc->ready.push.share.attempt = 0;
74 __atomic_fetch_add( &cltr->ready.push.share.success, proc->ready.push.share.success, __ATOMIC_SEQ_CST ); proc->ready.push.share.success = 0;
75 __atomic_fetch_add( &cltr->ready.push.extrn.attempt, proc->ready.push.extrn.attempt, __ATOMIC_SEQ_CST ); proc->ready.push.extrn.attempt = 0;
76 __atomic_fetch_add( &cltr->ready.push.extrn.success, proc->ready.push.extrn.success, __ATOMIC_SEQ_CST ); proc->ready.push.extrn.success = 0;
77 __atomic_fetch_add( &cltr->ready.pop.local .attempt, proc->ready.pop.local .attempt, __ATOMIC_SEQ_CST ); proc->ready.pop.local .attempt = 0;
78 __atomic_fetch_add( &cltr->ready.pop.local .success, proc->ready.pop.local .success, __ATOMIC_SEQ_CST ); proc->ready.pop.local .success = 0;
79 __atomic_fetch_add( &cltr->ready.pop.local .elock , proc->ready.pop.local .elock , __ATOMIC_SEQ_CST ); proc->ready.pop.local .elock = 0;
80 __atomic_fetch_add( &cltr->ready.pop.local .eempty , proc->ready.pop.local .eempty , __ATOMIC_SEQ_CST ); proc->ready.pop.local .eempty = 0;
81 __atomic_fetch_add( &cltr->ready.pop.local .espec , proc->ready.pop.local .espec , __ATOMIC_SEQ_CST ); proc->ready.pop.local .espec = 0;
82 __atomic_fetch_add( &cltr->ready.pop.help .attempt, proc->ready.pop.help .attempt, __ATOMIC_SEQ_CST ); proc->ready.pop.help .attempt = 0;
83 __atomic_fetch_add( &cltr->ready.pop.help .success, proc->ready.pop.help .success, __ATOMIC_SEQ_CST ); proc->ready.pop.help .success = 0;
84 __atomic_fetch_add( &cltr->ready.pop.help .elock , proc->ready.pop.help .elock , __ATOMIC_SEQ_CST ); proc->ready.pop.help .elock = 0;
85 __atomic_fetch_add( &cltr->ready.pop.help .eempty , proc->ready.pop.help .eempty , __ATOMIC_SEQ_CST ); proc->ready.pop.help .eempty = 0;
86 __atomic_fetch_add( &cltr->ready.pop.help .espec , proc->ready.pop.help .espec , __ATOMIC_SEQ_CST ); proc->ready.pop.help .espec = 0;
87 __atomic_fetch_add( &cltr->ready.pop.steal .attempt, proc->ready.pop.steal .attempt, __ATOMIC_SEQ_CST ); proc->ready.pop.steal .attempt = 0;
88 __atomic_fetch_add( &cltr->ready.pop.steal .success, proc->ready.pop.steal .success, __ATOMIC_SEQ_CST ); proc->ready.pop.steal .success = 0;
89 __atomic_fetch_add( &cltr->ready.pop.steal .elock , proc->ready.pop.steal .elock , __ATOMIC_SEQ_CST ); proc->ready.pop.steal .elock = 0;
90 __atomic_fetch_add( &cltr->ready.pop.steal .eempty , proc->ready.pop.steal .eempty , __ATOMIC_SEQ_CST ); proc->ready.pop.steal .eempty = 0;
91 __atomic_fetch_add( &cltr->ready.pop.steal .espec , proc->ready.pop.steal .espec , __ATOMIC_SEQ_CST ); proc->ready.pop.steal .espec = 0;
92 __atomic_fetch_add( &cltr->ready.pop.search.attempt, proc->ready.pop.search.attempt, __ATOMIC_SEQ_CST ); proc->ready.pop.search.attempt = 0;
93 __atomic_fetch_add( &cltr->ready.pop.search.success, proc->ready.pop.search.success, __ATOMIC_SEQ_CST ); proc->ready.pop.search.success = 0;
94 __atomic_fetch_add( &cltr->ready.pop.search.elock , proc->ready.pop.search.elock , __ATOMIC_SEQ_CST ); proc->ready.pop.search.elock = 0;
95 __atomic_fetch_add( &cltr->ready.pop.search.eempty , proc->ready.pop.search.eempty , __ATOMIC_SEQ_CST ); proc->ready.pop.search.eempty = 0;
96 __atomic_fetch_add( &cltr->ready.pop.search.espec , proc->ready.pop.search.espec , __ATOMIC_SEQ_CST ); proc->ready.pop.search.espec = 0;
97 __atomic_fetch_add( &cltr->ready.threads.migration , proc->ready.threads.migration , __ATOMIC_SEQ_CST ); proc->ready.threads.migration = 0;
98 __atomic_fetch_add( &cltr->ready.threads.extunpark , proc->ready.threads.extunpark , __ATOMIC_SEQ_CST ); proc->ready.threads.extunpark = 0;
99 __atomic_fetch_add( &cltr->ready.threads.threads , proc->ready.threads.threads , __ATOMIC_SEQ_CST ); proc->ready.threads.threads = 0;
100 __atomic_fetch_add( &cltr->ready.sleep.halts , proc->ready.sleep.halts , __ATOMIC_SEQ_CST ); proc->ready.sleep.halts = 0;
101 __atomic_fetch_add( &cltr->ready.sleep.cancels , proc->ready.sleep.cancels , __ATOMIC_SEQ_CST ); proc->ready.sleep.cancels = 0;
102 __atomic_fetch_add( &cltr->ready.sleep.wakes , proc->ready.sleep.wakes , __ATOMIC_SEQ_CST ); proc->ready.sleep.wakes = 0;
103 __atomic_fetch_add( &cltr->ready.sleep.exits , proc->ready.sleep.exits , __ATOMIC_SEQ_CST ); proc->ready.sleep.exits = 0;
104
105 #if defined(CFA_HAVE_LINUX_IO_URING_H)
106 __atomic_fetch_add( &cltr->io.alloc.fast , proc->io.alloc.fast , __ATOMIC_SEQ_CST ); proc->io.alloc.fast = 0;
107 __atomic_fetch_add( &cltr->io.alloc.slow , proc->io.alloc.slow , __ATOMIC_SEQ_CST ); proc->io.alloc.slow = 0;
108 __atomic_fetch_add( &cltr->io.alloc.fail , proc->io.alloc.fail , __ATOMIC_SEQ_CST ); proc->io.alloc.fail = 0;
109 __atomic_fetch_add( &cltr->io.alloc.revoke , proc->io.alloc.revoke , __ATOMIC_SEQ_CST ); proc->io.alloc.revoke = 0;
110 __atomic_fetch_add( &cltr->io.alloc.block , proc->io.alloc.block , __ATOMIC_SEQ_CST ); proc->io.alloc.block = 0;
111 __atomic_fetch_add( &cltr->io.submit.fast , proc->io.submit.fast , __ATOMIC_SEQ_CST ); proc->io.submit.fast = 0;
112 __atomic_fetch_add( &cltr->io.submit.slow , proc->io.submit.slow , __ATOMIC_SEQ_CST ); proc->io.submit.slow = 0;
113 __atomic_fetch_add( &cltr->io.flush.external , proc->io.flush.external , __ATOMIC_SEQ_CST ); proc->io.flush.external = 0;
114 __atomic_fetch_add( &cltr->io.calls.flush , proc->io.calls.flush , __ATOMIC_SEQ_CST ); proc->io.calls.flush = 0;
115 __atomic_fetch_add( &cltr->io.calls.submitted , proc->io.calls.submitted , __ATOMIC_SEQ_CST ); proc->io.calls.submitted = 0;
116 __atomic_fetch_add( &cltr->io.calls.drain , proc->io.calls.drain , __ATOMIC_SEQ_CST ); proc->io.calls.drain = 0;
117 __atomic_fetch_add( &cltr->io.calls.completed , proc->io.calls.completed , __ATOMIC_SEQ_CST ); proc->io.calls.completed = 0;
118 __atomic_fetch_add( &cltr->io.calls.errors.busy, proc->io.calls.errors.busy, __ATOMIC_SEQ_CST ); proc->io.calls.errors.busy = 0;
119 __atomic_fetch_add( &cltr->io.poller.sleeps , proc->io.poller.sleeps , __ATOMIC_SEQ_CST ); proc->io.poller.sleeps = 0;
120 #endif
121 }
122
123 #define eng3(X) (ws(3, 3, unit(eng( X ))))
124
125 void __print_stats( struct __stats_t * stats, int flags, const char * type, const char * name, void * id ) with( *stats ) {
126
127 char buf[1024];
128 ostrstream sstr = { buf, 1024 };
129
130 if( flags & CFA_STATS_READY_Q ) {
131
132 sstr | "----- " | type | "\"" | name | "\" (" | "" | id | "" | ") - Ready Q Stats -----";
133
134 uint64_t totalR = ready.pop.local.success + ready.pop.help.success + ready.pop.steal.success + ready.pop.search.success;
135 uint64_t totalS = ready.push.local.success + ready.push.share.success + ready.push.extrn.success;
136 sstr | "- totals : " | eng3(totalR) | "run," | eng3(totalS) | "schd (" | eng3(ready.push.extrn.success) | "ext," | eng3(ready.threads.migration) | "mig," | eng3(ready.threads.extunpark) | " eupk)";
137
138 double push_len = ((double)ready.push.local.attempt + ready.push.share.attempt + ready.push.extrn.attempt) / totalS;
139 double sLcl_len = ready.push.local.success ? ((double)ready.push.local.attempt) / ready.push.local.success : 0;
140 double sOth_len = ready.push.share.success ? ((double)ready.push.share.attempt) / ready.push.share.success : 0;
141 double sExt_len = ready.push.extrn.success ? ((double)ready.push.extrn.attempt) / ready.push.extrn.success : 0;
142 sstr | "- push avg : " | ws(3, 3, push_len)
143 | "- l: " | eng3(ready.push.local.attempt) | " (" | ws(3, 3, sLcl_len) | ")"
144 | ", s: " | eng3(ready.push.share.attempt) | " (" | ws(3, 3, sOth_len) | ")"
145 | ", e: " | eng3(ready.push.extrn.attempt) | " (" | ws(3, 3, sExt_len) | ")";
146
147 double rLcl_pc = (100.0 * (double)ready.pop.local .success) / totalR;
148 sstr | "- local : " | eng3(ready.pop.local .success) | "-"| ws(3, 3, rLcl_pc) | '%'
149 | " (" | eng3(ready.pop.local .attempt) | " try," | eng3(ready.pop.local .espec) | " spc," | eng3(ready.pop.local .elock) | " lck," | eng3(ready.pop.local .eempty) | " ept)";
150 double rHlp_pc = (100.0 * (double)ready.pop.help .success) / totalR;
151 sstr | "- help : " | eng3(ready.pop.help .success) | "-"| ws(3, 3, rHlp_pc) | '%'
152 | " (" | eng3(ready.pop.help .attempt) | " try," | eng3(ready.pop.help .espec) | " spc," | eng3(ready.pop.help .elock) | " lck," | eng3(ready.pop.help .eempty) | " ept)";
153 double rStl_pc = (100.0 * (double)ready.pop.steal .success) / totalR;
154 sstr | "- steal : " | eng3(ready.pop.steal .success) | "-"| ws(3, 3, rStl_pc) | '%'
155 | " (" | eng3(ready.pop.steal .attempt) | " try," | eng3(ready.pop.steal .espec) | " spc," | eng3(ready.pop.steal .elock) | " lck," | eng3(ready.pop.steal .eempty) | " ept)";
156 double rSch_pc = (100.0 * (double)ready.pop.search.success) / totalR;
157 sstr | "- search : " | eng3(ready.pop.search.success) | "-"| ws(3, 3, rSch_pc) | '%'
158 | " (" | eng3(ready.pop.search.attempt) | " try," | eng3(ready.pop.search.espec) | " spc," | eng3(ready.pop.search.elock) | " lck," | eng3(ready.pop.search.eempty) | " ept)";
159
160 sstr | "- Idle Slp : " | eng3(ready.sleep.halts) | "halt," | eng3(ready.sleep.cancels) | "cancel," | eng3(ready.sleep.wakes) | "wake," | eng3(ready.sleep.exits) | "exit";
161 sstr | nl;
162 }
163
164 #if defined(CFA_HAVE_LINUX_IO_URING_H)
165 if( flags & CFA_STATS_IO ) {
166 sstr | "----- " | type | "\"" | name | "\" (" | "" | id | "" | ") - I/O Stats -----";
167
168 uint64_t total_allocs = io.alloc.fast + io.alloc.slow;
169 double avgfasta = (100.0 * (double)io.alloc.fast) / total_allocs;
170 sstr | "- total allocations : " | eng3(io.alloc.fast) | "fast," | eng3(io.alloc.slow) | "slow (" | ws(3, 3, avgfasta) | "%)";
171 sstr | "- failures : " | eng3(io.alloc.fail) | "oom, " | eng3(io.alloc.revoke) | "rvk, " | eng3(io.alloc.block) | "blk";
172
173 uint64_t total_submits = io.submit.fast + io.submit.slow;
174 double avgfasts = (100.0 * (double)io.submit.fast) / total_submits;
175 sstr | "- total submits : " | eng3(io.submit.fast) | "fast," | eng3(io.submit.slow) | "slow (" | ws(3, 3, avgfasts) | "%)";
176 sstr | "- flush external : " | eng3(io.flush.external);
177
178 sstr | "- io_uring_enter : " | eng3(io.calls.flush) | " (" | eng3(io.calls.drain) | ", " | eng3(io.calls.errors.busy) | " EBUSY)";
179
180 double avgsubs = ((double)io.calls.submitted) / io.calls.flush;
181 double avgcomp = ((double)io.calls.completed) / io.calls.drain;
182 sstr | "- submits : " | eng3(io.calls.submitted) | "(" | ws(3, 3, avgsubs) | "/flush)";
183 sstr | "- completes : " | eng3(io.calls.completed) | "(" | ws(3, 3, avgcomp) | "/drain)";
184
185 sstr | "- poller sleeping : " | eng3(io.poller.sleeps);
186 sstr | nl;
187 }
188 #endif
189
190 if(flags) write( sstr, stdout );
191 }
192
193 #if defined(CFA_STATS_ARRAY)
194 extern "C" {
195 #include <stdio.h>
196 #include <errno.h>
197 #include <sys/stat.h>
198 #include <fcntl.h>
199 }
200
201 void __flush_stat( struct __stats_t * this, const char * name, void * handle) {
202 int ret = mkdir(".cfadata", 0755);
203 if(ret < 0 && errno != EEXIST) abort("Failed to create directory .cfadata: %d\n", errno);
204
205 char filename[100];
206 snprintf(filename, 100, ".cfadata/%s%p.data", name, handle);
207
208 int fd = open(filename, O_WRONLY | O_APPEND | O_CREAT, 0644);
209 if(fd < 0) abort("Failed to create file %s: %d\n", filename, errno);
210
211 for(i; this->array.cnt) {
212 char line[100];
213 size_t n = snprintf(line, 100, "%llu, %lld\n", this->array.values[i].ts, this->array.values[i].value);
214 write(fd, line, n);
215 }
216
217 this->array.cnt = 0;
218 close(fd);
219 }
220
221 static __spinlock_t stats_lock;
222
223 void __push_stat( struct __stats_t * this, int64_t value, bool external, const char * name, void * handle ) {
224 if(external) lock(stats_lock __cfaabi_dbg_ctx2);
225
226 if( this->array.cnt >= CFA_STATS_ARRAY ) __flush_stat( this, name, handle );
227
228 size_t idx = this->array.cnt;
229 this->array.cnt++;
230
231 if(external) unlock(stats_lock);
232
233 this->array.values[idx].ts = rdtscl();
234 this->array.values[idx].value = value;
235 }
236 #endif
237#endif
Note: See TracBrowser for help on using the repository browser.