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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
Write-Output "Intel(r) Performance Counter Monitor"
Write-Output "Birch Stream Power Mode Utility"
Write-Output ""
Write-Output " Options:"
Write-Output " --default : set default power mode"
Write-Output " --latency-optimized-mode : set latency optimized mode"
Write-Output ""
# Run the pcm-tpmi command to determine I/O and compute dies
$output = pcm-tpmi 2 0x10 -d -b 26:26
# Parse the output to build lists of I/O and compute dies
$io_dies = @()
$compute_dies = @()
$die_types = @{}
$output -split "`n" | ForEach-Object {
$line = $_
if ($line -match "instance 0") {
$die = $line -match 'entry (\d+)' | Out-Null; $matches[1]
if ($line -match "value 1") {
$die_types[$die] = "IO"
$io_dies += $die
} elseif ($line -match "value 0") {
$die_types[$die] = "Compute"
$compute_dies += $die
}
}
}
if ($args[0] -eq "--default") {
Write-Output "Setting default mode..."
foreach ($die in $io_dies) {
# EFFICIENCY_LATENCY_CTRL_RATIO (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 28:22 -w 8
# EFFICIENCY_LATENCY_CTRL_LOW_THRESHOLD (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 38:32 -w 13
# EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 46:40 -w 120
# EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD_ENABLE (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 39:39 -w 1
}
foreach ($die in $compute_dies) {
# EFFICIENCY_LATENCY_CTRL_RATIO (Uncore Compute)
pcm-tpmi 2 0x18 -d -e $die -b 28:22 -w 12
}
}
if ($args[0] -eq "--latency-optimized-mode") {
Write-Output "Setting latency optimized mode..."
foreach ($die in $io_dies) {
# EFFICIENCY_LATENCY_CTRL_RATIO (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 28:22 -w 0
# EFFICIENCY_LATENCY_CTRL_LOW_THRESHOLD (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 38:32 -w 0
# EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 46:40 -w 0
# EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD_ENABLE (Uncore IO)
pcm-tpmi 2 0x18 -d -e $die -b 39:39 -w 1
}
foreach ($die in $compute_dies) {
# EFFICIENCY_LATENCY_CTRL_RATIO (Uncore Compute)
pcm-tpmi 2 0x18 -d -e $die -b 28:22 -w 0
}
}
Write-Output "Dumping TPMI Power control register states..."
Write-Output ""
# Function to extract and calculate metrics from the value
function ExtractAndPrintMetrics {
param (
[int]$value,
[int]$socket_id,
[int]$die
)
$die_type = $die_types[$die]
# Extract bits and calculate metrics
$min_ratio = ($value -shr 15) -band 0x7F
$max_ratio = ($value -shr 8) -band 0x7F
$eff_latency_ctrl_ratio = ($value -shr 22) -band 0x7F
$eff_latency_ctrl_low_threshold = ($value -shr 32) -band 0x7F
$eff_latency_ctrl_high_threshold = ($value -shr 40) -band 0x7F
$eff_latency_ctrl_high_threshold_enable = ($value -shr 39) -band 0x1
# Convert to MHz or percentage
$min_ratio = $min_ratio * 100
$max_ratio = $max_ratio * 100
$eff_latency_ctrl_ratio = $eff_latency_ctrl_ratio * 100
$eff_latency_ctrl_low_threshold = ($eff_latency_ctrl_low_threshold * 100) / 127
$eff_latency_ctrl_high_threshold = ($eff_latency_ctrl_high_threshold * 100) / 127
# Print metrics
Write-Output "Socket ID: $socket_id, Die: $die, Type: $die_type"
Write-Output "MIN_RATIO: $min_ratio MHz"
Write-Output "MAX_RATIO: $max_ratio MHz"
Write-Output "EFFICIENCY_LATENCY_CTRL_RATIO: $eff_latency_ctrl_ratio MHz"
if ($die_type -eq "IO") {
Write-Output "EFFICIENCY_LATENCY_CTRL_LOW_THRESHOLD: $eff_latency_ctrl_low_threshold%"
Write-Output "EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD: $eff_latency_ctrl_high_threshold%"
Write-Output "EFFICIENCY_LATENCY_CTRL_HIGH_THRESHOLD_ENABLE: $eff_latency_ctrl_high_threshold_enable"
}
Write-Output ""
}
# Iterate over all dies and run pcm-tpmi for each to get the metrics
foreach ($die in $die_types.Keys) {
$output = pcm-tpmi 2 0x18 -d -e $die
# Parse the output and extract metrics for each socket
$output -split "`n" | ForEach-Object {
$line = $_
if ($line -match "Read value") {
$value = $line -match 'value (\d+)' | Out-Null; $matches[1]
$socket_id = $line -match 'instance (\d+)' | Out-Null; $matches[1]
ExtractAndPrintMetrics -value $value -socket_id $socket_id -die $die
}
}
}
|
