#!/bin/bash # # Analyze a given results directory for rcuperf performance measurements. # # Usage: kvm-recheck-rcuperf.sh resdir # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, you can access it online at # http://www.gnu.org/licenses/gpl-2.0.html. # # Copyright (C) IBM Corporation, 2016 # # Authors: Paul E. McKenney global i := $1 if test -d $i { : } else { echo Unreadable results directory: $i exit 1 } global PATH := "$[pwd]/tools/testing/selftests/rcutorture/bin:$PATH"; export PATH source tools/testing/selftests/rcutorture/bin/functions.sh if kvm-recheck-rcuperf-ftrace.sh $i { # ftrace data was successfully analyzed, call it good! exit 0 } global configfile := $[echo $i | sed -e 's/^.*\///] sed -e 's/^\[[^]]*]//' < $i/console.log | awk ' /-perf: .* gps: .* batches:/ { ngps = $9; nbatches = $11; } /-perf: .*writer-duration/ { gptimes[++n] = $5 / 1000.; sum += $5 / 1000.; } END { newNR = asort(gptimes); if (newNR <= 0) { print "No rcuperf records found???" exit; } pct50 = int(newNR * 50 / 100); if (pct50 < 1) pct50 = 1; pct90 = int(newNR * 90 / 100); if (pct90 < 1) pct90 = 1; pct99 = int(newNR * 99 / 100); if (pct99 < 1) pct99 = 1; div = 10 ** int(log(gptimes[pct90]) / log(10) + .5) / 100; print "Histogram bucket size: " div; last = gptimes[1] - 10; count = 0; for (i = 1; i <= newNR; i++) { current = div * int(gptimes[i] / div); if (last == current) { count++; } else { if (count > 0) print last, count; count = 1; last = current; } } if (count > 0) print last, count; print "Average grace-period duration: " sum / newNR " microseconds"; print "Minimum grace-period duration: " gptimes[1]; print "50th percentile grace-period duration: " gptimes[pct50]; print "90th percentile grace-period duration: " gptimes[pct90]; print "99th percentile grace-period duration: " gptimes[pct99]; print "Maximum grace-period duration: " gptimes[newNR]; print "Grace periods: " ngps + 0 " Batches: " nbatches + 0 " Ratio: " ngps / nbatches; print "Computed from rcuperf printk output."; }' (CommandList children: [ (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:i) op:Equal rhs:{(DQ ($ VSub_Number "$1"))} spids:[70])] spids: [70] ) (If arms: [ (if_arm cond: [(C {(test)} {(-d)} {($ VSub_Name "$i")})] action: [(C {(Lit_Other ":")})] spids: [-1 83] ) ] else_action: [ (C {(echo)} {(Unreadable)} {(results)} {(directory) (Lit_Other ":")} {($ VSub_Name "$i")}) (C {(exit)} {(1)}) ] spids: [88 107] ) (Sentence child: (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:PATH) op: Equal rhs: { (CommandSubPart command_list: (CommandList children:[(C {(pwd)})]) left_token: spids: [110 112] ) (/tools/testing/selftests/rcutorture/bin) (Lit_Other ":") ($ VSub_Name "$PATH") } spids: [109] ) ] spids: [109] ) terminator: ) (C {(export)} {(PATH)}) (C {(.)} {(tools/testing/selftests/rcutorture/bin/functions.sh)}) (If arms: [ (if_arm cond: [(C {(kvm-recheck-rcuperf-ftrace.sh)} {($ VSub_Name "$i")})] action: [(C {(exit)} {(0)})] spids: [-1 133] ) ] spids: [-1 144] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:configfile) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (Pipeline children: [ (C {(echo)} {($ VSub_Name "$i")}) (C {(sed)} {(-e)} {(SQ <"s/^.*\\///">)}) ] negated: False ) ] ) left_token: spids: [148 162] ) } spids: [147] ) ] spids: [147] ) (Pipeline children: [ (SimpleCommand words: [{(sed)} {(-e)} {(SQ <"s/^\\[[^]]*]//">)}] redirects: [ (Redir op_id: Redir_Less fd: -1 arg_word: {($ VSub_Name "$i") (/console.log)} spids: [173] ) ] ) (C {(awk)} { (SQ <"\n"> <"/-perf: .* gps: .* batches:/ {\n"> <"\tngps = $9;\n"> <"\tnbatches = $11;\n"> <"}\n"> <"\n"> <"/-perf: .*writer-duration/ {\n"> <"\tgptimes[++n] = $5 / 1000.;\n"> <"\tsum += $5 / 1000.;\n"> <"}\n"> <"\n"> <"END {\n"> <"\tnewNR = asort(gptimes);\n"> <"\tif (newNR <= 0) {\n"> <"\t\tprint \"No rcuperf records found???\"\n"> <"\t\texit;\n"> <"\t}\n"> <"\tpct50 = int(newNR * 50 / 100);\n"> <"\tif (pct50 < 1)\n"> <"\t\tpct50 = 1;\n"> <"\tpct90 = int(newNR * 90 / 100);\n"> <"\tif (pct90 < 1)\n"> <"\t\tpct90 = 1;\n"> <"\tpct99 = int(newNR * 99 / 100);\n"> <"\tif (pct99 < 1)\n"> <"\t\tpct99 = 1;\n"> <"\tdiv = 10 ** int(log(gptimes[pct90]) / log(10) + .5) / 100;\n"> <"\tprint \"Histogram bucket size: \" div;\n"> <"\tlast = gptimes[1] - 10;\n"> <"\tcount = 0;\n"> <"\tfor (i = 1; i <= newNR; i++) {\n"> <"\t\tcurrent = div * int(gptimes[i] / div);\n"> <"\t\tif (last == current) {\n"> <"\t\t\tcount++;\n"> <"\t\t} else {\n"> <"\t\t\tif (count > 0)\n"> <"\t\t\t\tprint last, count;\n"> <"\t\t\tcount = 1;\n"> <"\t\t\tlast = current;\n"> <"\t\t}\n"> <"\t}\n"> <"\tif (count > 0)\n"> <"\t\tprint last, count;\n"> <"\tprint \"Average grace-period duration: \" sum / newNR \" microseconds\";\n"> <"\tprint \"Minimum grace-period duration: \" gptimes[1];\n"> <"\tprint \"50th percentile grace-period duration: \" gptimes[pct50];\n"> <"\tprint \"90th percentile grace-period duration: \" gptimes[pct90];\n"> <"\tprint \"99th percentile grace-period duration: \" gptimes[pct99];\n"> <"\tprint \"Maximum grace-period duration: \" gptimes[newNR];\n"> < "\tprint \"Grace periods: \" ngps + 0 \" Batches: \" nbatches + 0 \" Ratio: \" ngps / nbatches;\n" > <"\tprint \"Computed from rcuperf printk output.\";\n"> <"}"> ) } ) ] negated: False ) ] )