diff options
author | cvs2svn <admin@example.com> | 1996-12-18 21:42:27 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 1996-12-18 21:42:27 +0000 |
commit | 1825e819708b917f0830bee4e9bdf0402b8f338f (patch) | |
tree | 16360e899fbd8729b6e37016227c275701bb0173 /qt/time/prim | |
parent | 4d46a0279bb9dbe7e7399d6d2f1f54ccac01b987 (diff) | |
download | guile-pre_jimb_debug.tar.gz |
This commit was manufactured by cvs2svn to create tagpre_jimb_debug
'pre_jimb_debug'.
Diffstat (limited to 'qt/time/prim')
-rwxr-xr-x | qt/time/prim | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/qt/time/prim b/qt/time/prim deleted file mode 100755 index 22b323f6f..000000000 --- a/qt/time/prim +++ /dev/null @@ -1,41 +0,0 @@ -#! /bin/awk -f - -BEGIN { - purpose = "report times for microbenchmarks" - - nmach = 0; - - test_callind = "18"; - test_callimm = "18"; - test_addreg = "20"; - test_loadreg = "21"; -} - -{ - mach = $1 - test = $2 - iter = $3 - time = $6 + $8 - - if (machi[mach] == 0) { - machn[nmach] = mach; - machi[mach] = 1; - ++nmach; - } - - ns_per_op = time / iter * 1000000 - times[mach "_" test] = ns_per_op; -} - - -END { - for (i=0; i<nmach; ++i) { - m = machn[i]; - - ind = times[m "_" test_callind]; - imm = times[m "_" test_callimm]; - add = times[m "_" test_addreg]; - load = times[m "_" test_loadreg]; - printf ("%s|%1.3f|%1.3f|%1.3f|%1.3f\n", m, ind, imm, add, load); - } -} |