summaryrefslogtreecommitdiff
path: root/qt/time/cswap
diff options
context:
space:
mode:
authorcvs2svn <admin@example.com>1996-10-14 00:58:56 +0000
committercvs2svn <admin@example.com>1996-10-14 00:58:56 +0000
commit78d469e4221478f0c79f67fef1d5aa98f2c96f47 (patch)
treefcf35814ba17653b9b8d16e99af99ea5b39bba5e /qt/time/cswap
parent0682f7ab1dfa23adbf85435d5884b0ec91956a53 (diff)
parent0f2d19dd46f83f41177f61d585732b32a866d613 (diff)
downloadguile-pre_vollmer_scm_p.tar.gz
This commit was manufactured by cvs2svn to create tagpre_vollmer_scm_p
'pre_vollmer_scm_p'.
Diffstat (limited to 'qt/time/cswap')
-rwxr-xr-xqt/time/cswap37
1 files changed, 0 insertions, 37 deletions
diff --git a/qt/time/cswap b/qt/time/cswap
deleted file mode 100755
index 0ec811bcd..000000000
--- a/qt/time/cswap
+++ /dev/null
@@ -1,37 +0,0 @@
-#! /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);
- }
-}