#!/usr/bin/perl open (IN,"ktest.pl"); while () { # hashes are now used if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ || /^\s*"?([A-Z].*?)"?\s*=>\s*/ || /set_test_option\("(.*?)"/) { $opt{$1} = 1; } } close IN; open (IN, "sample.conf"); while () { if (/^\s*#?\s*([A-Z]\S*)\s*=/) { $samp{$1} = 1; } } close IN; foreach $opt (keys %opt) { if (!defined($samp{$opt})) { print "opt = $opt\n"; } } foreach $samp (keys %samp) { if (!defined($opt{$samp})) { print "samp = $samp\n"; } } et-next.git Git repository'/>
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Borntraeger <borntraeger@de.ibm.com>2016-11-08 09:53:34 +0100
committerMartin Schwidefsky <schwidefsky@de.ibm.com>2016-12-12 12:12:18 +0100
commitc19805f870c1fa87c69819eb1e18d9c5fc398f58 (patch)
tree9315f283cb443bea2890f9d714c874f169d73a83
parentb4623d4e5b2370fcf1200cbf832aaa53f6e96ef3 (diff)
s390/cpumf: Use configuration level indication for sampling data
Newer hardware provides the level of virtualization that a particular sample belongs to. Use that information and fall back to the old heuristics if the sample does not contain that information. Reviewed-by: Heiko Carstens <heiko.carstens@de.ibm.com> Reviewed-by: Hendrik Brueckner <brueckner@linux.vnet.ibm.com> Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com> Signed-off-by: Martin Schwidefsky <schwidefsky@de.ibm.com>
Diffstat