guile18/qt/time/cswap

   1 #! /bin/awk -f
   2
   3 BEGIN {
   4   purpose = "report time used by int only and int+fp cswaps";
   5
   6   nmach = 0;
   7
   8   test_int = "7";
   9   test_fp = "8";
  10 }
  11
  12 {
  13   mach = $1
  14   test = $2
  15   iter = $3
  16   time = $6 + $8
  17
  18   if (machi[mach] == 0) {
  19     machn[nmach] = mach;
  20     machi[mach] = 1;
  21     ++nmach;
  22   }
  23
  24   us_per_op = time / iter * 1000000
  25   times[mach "_" test] = us_per_op;
  26 }
  27
  28
  29 END {
  30   for (i=0; i<nmach; ++i) {
  31     m = machn[i];
  32
  33     integer = times[m "_" test_int];
  34     fp = times[m "_" test_fp];
  35     printf ("%s|%3.1f|%3.1f\n", m, integer, fp);
  36   }
  37 }