File: dispatch_timers.d

package info (click to toggle)
swiftlang 6.0.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,519,992 kB
  • sloc: cpp: 9,107,863; ansic: 2,040,022; asm: 1,135,751; python: 296,500; objc: 82,456; f90: 60,502; lisp: 34,951; pascal: 19,946; sh: 18,133; perl: 7,482; ml: 4,937; javascript: 4,117; makefile: 3,840; awk: 3,535; xml: 914; fortran: 619; cs: 573; ruby: 573
file content (89 lines) | stat: -rwxr-xr-x 3,241 bytes parent folder | download
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#!/usr/sbin/dtrace -s

/*
 * Copyright (c) 2012-2013 Apple Inc. All rights reserved.
 *
 * @APPLE_APACHE_LICENSE_HEADER_START@
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *
 * @APPLE_APACHE_LICENSE_HEADER_END@
 */

/*
 * Usage: dispatch_timers.d -p [pid]
 *        traced process must have been executed with
 *        DYLD_LIBRARY_PATH=/usr/lib/system/introspection or with
 *        DYLD_IMAGE_SUFFIX=_profile or DYLD_IMAGE_SUFFIX=_debug
 */

#pragma D option quiet
#pragma D option zdefs

typedef struct dispatch_trace_timer_params_s {
	int64_t deadline, interval, leeway;
} *dispatch_trace_timer_params_t;

dispatch$target:libdispatch*.dylib::timer-configure,
dispatch$target:libdispatch*.dylib::timer-program,
dispatch$target:libdispatch*.dylib::timer-wake,
dispatch$target:libdispatch*.dylib::timer-fire /!start/ {
	start = walltimestamp;
}

/*
 * Trace dispatch timer configuration and programming:
 * Timer configuration indicates that dispatch_source_set_timer() was called.
 * Timer programming indicates that the dispatch manager is about to sleep
 * for 'deadline' ns (but may wake up earlier if non-timer events occur).
 * Time parameters are in nanoseconds, a value of -1 means "forever".
 *
 * probe timer-configure/-program(dispatch_source_t source,
 *         dispatch_function_t function, dispatch_trace_timer_params_t params)
 */
dispatch$target:libdispatch*.dylib::timer-configure,
dispatch$target:libdispatch*.dylib::timer-program {
	this->p = (dispatch_trace_timer_params_t)copyin(arg2,
			sizeof(struct dispatch_trace_timer_params_s));
	printf("%8dus %-15s: 0x%0?p deadline: %11dns interval: %11dns leeway: %11dns",
			(walltimestamp-start)/1000, probename, arg0,
			this->p ? this->p->deadline : 0, this->p ? this->p->interval : 0,
			this->p ? this->p->leeway : 0);
	usym(arg1);
	printf("\n");
}
dispatch$target:libdispatch*.dylib::timer-configure {
	printf("              / --- Begin ustack");
	ustack();
	printf("              \ --- End ustack\n");
}

/*
 * Trace dispatch timer wakes and fires:
 * Timer wakes indicate that the dispatch manager woke up due to expiry of the
 * deadline for the specified timer.
 * Timer fires indicate that that the dispatch manager scheduled the event
 * handler of the specified timer for asynchronous execution (may occur without
 * a corresponding timer wake if the manager was awake processing other events
 * when the timer deadline expired).
 *
 * probe timer-wake/-fire(dispatch_source_t source,
 *         dispatch_function_t function)
 */
dispatch$target:libdispatch*.dylib::timer-wake,
dispatch$target:libdispatch*.dylib::timer-fire {
	printf("%8dus %-15s: 0x%0?p%-70s", (walltimestamp-start)/1000, probename,
			arg0, "");
	usym(arg1);
	printf("\n");
}