/usr/share/systemtap/examples/general
Edit: /usr/share/systemtap/examples/general/cpu_throttle.stp (1481B)
#!/usr/bin/stap
# Copyright (C) 2018 Red Hat, Inc.
# Written by William Cohen
#
# cpu_throttle.stp provides total milliseconds each Intel x86
# processor performance is restricted due to power or thermal
# constraints formatted for consumption by prometheus.
# The data is read from /proc/systemtap/*/cpu_throttle.stp
#
# Run the script with:
# stap cpu_throttle.stp
#
# control-c to exit data collection
global throttled_time, throttled_state
probe begin {
// Make sure there is an instance in the throttled_time
throttled_time[0] = 0
}
probe kprobe.function("therm_throt_process") {
now = gettimeofday_ns()
// just started throttling
if (ulong_arg(1) && !(cpu() in throttled_state)) {
throttled_state[cpu()] = now
}
// just ending throttling
if (!ulong_arg(1) && cpu() in throttled_state) {
throttled_time[cpu()] += now - throttled_state[cpu()]
delete throttled_state[cpu()]
}
}
probe prometheus {
now = gettimeofday_ns()
$value .= "# HELP cpu_throttle_time accumulated time process is performance limited in ms.\n"
$value .= "# TYPE cpu_throttle_time counter\n"
foreach (cpu in throttled_time){
k = throttled_time[cpu]
// add in any existing throttled time
if (cpu in throttled_state)
k += now - throttled_state[cpu]
k /= 1000000 // scale from ns to ms
$value .= "cpu_throttle_time{cpu=\"".sprint(cpu)."\"} ".sprint(k)."\n"
}
}