mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
37 lines
537 B
Awk
Executable file
37 lines
537 B
Awk
Executable file
#! /bin/awk -f
|
|
|
|
BEGIN {
|
|
purpose = "report time used by int only and int+fp cswaps";
|
|
|
|
nmach = 0;
|
|
|
|
test_int = "7";
|
|
test_fp = "8";
|
|
}
|
|
|
|
{
|
|
mach = $1
|
|
test = $2
|
|
iter = $3
|
|
time = $6 + $8
|
|
|
|
if (machi[mach] == 0) {
|
|
machn[nmach] = mach;
|
|
machi[mach] = 1;
|
|
++nmach;
|
|
}
|
|
|
|
us_per_op = time / iter * 1000000
|
|
times[mach "_" test] = us_per_op;
|
|
}
|
|
|
|
|
|
END {
|
|
for (i=0; i<nmach; ++i) {
|
|
m = machn[i];
|
|
|
|
integer = times[m "_" test_int];
|
|
fp = times[m "_" test_fp];
|
|
printf ("%s|%3.1f|%3.1f\n", m, integer, fp);
|
|
}
|
|
}
|