diff options
author | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
commit | 78d469e4221478f0c79f67fef1d5aa98f2c96f47 (patch) | |
tree | fcf35814ba17653b9b8d16e99af99ea5b39bba5e /qt/time/cswap | |
parent | 0682f7ab1dfa23adbf85435d5884b0ec91956a53 (diff) | |
parent | 0f2d19dd46f83f41177f61d585732b32a866d613 (diff) | |
download | guile-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-x | qt/time/cswap | 37 |
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); - } -} |