]> git.saurik.com Git - apple/libdispatch.git/blob - tools/dispatch_timers.d
libdispatch-913.1.6.tar.gz
[apple/libdispatch.git] / tools / dispatch_timers.d
1 #!/usr/sbin/dtrace -s
2
3 /*
4 * Copyright (c) 2012-2013 Apple Inc. All rights reserved.
5 *
6 * @APPLE_APACHE_LICENSE_HEADER_START@
7 *
8 * Licensed under the Apache License, Version 2.0 (the "License");
9 * you may not use this file except in compliance with the License.
10 * You may obtain a copy of the License at
11 *
12 * http://www.apache.org/licenses/LICENSE-2.0
13 *
14 * Unless required by applicable law or agreed to in writing, software
15 * distributed under the License is distributed on an "AS IS" BASIS,
16 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
17 * See the License for the specific language governing permissions and
18 * limitations under the License.
19 *
20 * @APPLE_APACHE_LICENSE_HEADER_END@
21 */
22
23 /*
24 * Usage: dispatch_timers.d -p [pid]
25 * traced process must have been executed with
26 * DYLD_LIBRARY_PATH=/usr/lib/system/introspection or with
27 * DYLD_IMAGE_SUFFIX=_profile or DYLD_IMAGE_SUFFIX=_debug
28 */
29
30 #pragma D option quiet
31 #pragma D option zdefs
32
33 typedef struct dispatch_trace_timer_params_s {
34 int64_t deadline, interval, leeway;
35 } *dispatch_trace_timer_params_t;
36
37 dispatch$target:libdispatch*.dylib::timer-configure,
38 dispatch$target:libdispatch*.dylib::timer-program,
39 dispatch$target:libdispatch*.dylib::timer-wake,
40 dispatch$target:libdispatch*.dylib::timer-fire /!start/ {
41 start = walltimestamp;
42 }
43
44 /*
45 * Trace dispatch timer configuration and programming:
46 * Timer configuration indicates that dispatch_source_set_timer() was called.
47 * Timer programming indicates that the dispatch manager is about to sleep
48 * for 'deadline' ns (but may wake up earlier if non-timer events occur).
49 * Time parameters are in nanoseconds, a value of -1 means "forever".
50 *
51 * probe timer-configure/-program(dispatch_source_t source,
52 * dispatch_function_t function, dispatch_trace_timer_params_t params)
53 */
54 dispatch$target:libdispatch*.dylib::timer-configure,
55 dispatch$target:libdispatch*.dylib::timer-program {
56 this->p = (dispatch_trace_timer_params_t)copyin(arg2,
57 sizeof(struct dispatch_trace_timer_params_s));
58 printf("%8dus %-15s: 0x%0?p deadline: %11dns interval: %11dns leeway: %11dns",
59 (walltimestamp-start)/1000, probename, arg0,
60 this->p ? this->p->deadline : 0, this->p ? this->p->interval : 0,
61 this->p ? this->p->leeway : 0);
62 usym(arg1);
63 printf("\n");
64 }
65 dispatch$target:libdispatch*.dylib::timer-configure {
66 printf(" / --- Begin ustack");
67 ustack();
68 printf(" \ --- End ustack\n");
69 }
70
71 /*
72 * Trace dispatch timer wakes and fires:
73 * Timer wakes indicate that the dispatch manager woke up due to expiry of the
74 * deadline for the specified timer.
75 * Timer fires indicate that that the dispatch manager scheduled the event
76 * handler of the specified timer for asynchronous execution (may occur without
77 * a corresponding timer wake if the manager was awake processing other events
78 * when the timer deadline expired).
79 *
80 * probe timer-wake/-fire(dispatch_source_t source,
81 * dispatch_function_t function)
82 */
83 dispatch$target:libdispatch*.dylib::timer-wake,
84 dispatch$target:libdispatch*.dylib::timer-fire {
85 printf("%8dus %-15s: 0x%0?p%-70s", (walltimestamp-start)/1000, probename,
86 arg0, "");
87 usym(arg1);
88 printf("\n");
89 }