diff options
author | joerg <joerg@pkgsrc.org> | 2013-01-11 23:25:11 +0000 |
---|---|---|
committer | joerg <joerg@pkgsrc.org> | 2013-01-11 23:25:11 +0000 |
commit | 04b6dc6703cd5f0d221fd311167633b5356a30e0 (patch) | |
tree | 53126284285e8fd51ad71eb7453e006ba14d9378 /benchmarks/linpack-bench | |
parent | dab1f1b0d1bbca92112e01e26a172bd0c5a09eb4 (diff) | |
download | pkgsrc-04b6dc6703cd5f0d221fd311167633b5356a30e0.tar.gz |
Use more void.
Diffstat (limited to 'benchmarks/linpack-bench')
-rw-r--r-- | benchmarks/linpack-bench/distinfo | 4 | ||||
-rw-r--r-- | benchmarks/linpack-bench/patches/patch-aa | 55 |
2 files changed, 46 insertions, 13 deletions
diff --git a/benchmarks/linpack-bench/distinfo b/benchmarks/linpack-bench/distinfo index 98798658680..9976121bae1 100644 --- a/benchmarks/linpack-bench/distinfo +++ b/benchmarks/linpack-bench/distinfo @@ -1,6 +1,6 @@ -$NetBSD: distinfo,v 1.3 2007/09/28 13:21:33 drochner Exp $ +$NetBSD: distinfo,v 1.4 2013/01/11 23:25:11 joerg Exp $ SHA1 (linpackc) = be1507b205b0226a1deba358a90a469c2e55d3ee RMD160 (linpackc) = d54385d1a20b062776edfe8d10a3ec8900163b8b Size (linpackc) = 20942 bytes -SHA1 (patch-aa) = 521bcb06993df028d03d15679adc3146f790b6dc +SHA1 (patch-aa) = 8934879f4250cbcaba3783ce04bcd3217acc770a diff --git a/benchmarks/linpack-bench/patches/patch-aa b/benchmarks/linpack-bench/patches/patch-aa index 9d992b44e43..0996a09b27f 100644 --- a/benchmarks/linpack-bench/patches/patch-aa +++ b/benchmarks/linpack-bench/patches/patch-aa @@ -1,17 +1,20 @@ -$NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ +$NetBSD: patch-aa,v 1.3 2013/01/11 23:25:11 joerg Exp $ ---- linpack.c.orig 2007-09-02 12:38:13.000000000 +0200 +--- linpack.c.orig 2013-01-11 15:21:29.000000000 +0000 +++ linpack.c -@@ -48,7 +48,7 @@ You must specify one of -DROLL or -DUNRO +@@ -48,7 +48,10 @@ You must specify one of -DROLL or -DUNRO #include <stdio.h> #include <math.h> -static REAL time[9][9]; +static REAL timex[9][9]; ++ ++static void daxpy(int n, REAL da, REAL *dx, int incx, REAL *dy, int incy); ++static void dscal(int n, REAL da, REAL *dx,int incx); main () { -@@ -71,11 +71,11 @@ main () +@@ -71,11 +74,11 @@ main () matgen(a,lda,n,b,&norma); t1 = second(); dgefa(a,lda,n,ipvt,&info); @@ -26,7 +29,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ /* compute a residual to verify results. */ -@@ -108,10 +108,10 @@ main () +@@ -108,10 +111,10 @@ main () fprintf(stderr," dgefa dgesl total kflops unit"); fprintf(stderr," ratio\n"); @@ -41,7 +44,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ fprintf(stderr," times for array with leading dimension of%5d\n",lda); print_time(0); -@@ -119,28 +119,28 @@ main () +@@ -119,28 +122,28 @@ main () matgen(a,lda,n,b,&norma); t1 = second(); dgefa(a,lda,n,ipvt,&info); @@ -84,7 +87,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ ntimes = NTIMES; tm2 = 0.0; -@@ -153,19 +153,19 @@ main () +@@ -153,19 +156,19 @@ main () dgefa(a,lda,n,ipvt,&info); } @@ -111,7 +114,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ print_time(1); print_time(2); -@@ -174,41 +174,41 @@ main () +@@ -174,41 +177,41 @@ main () matgen(aa,ldaa,n,b,&norma); t1 = second(); dgefa(aa,ldaa,n,ipvt,&info); @@ -174,7 +177,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ ntimes = NTIMES; tm2 = 0; -@@ -219,22 +219,22 @@ main () +@@ -219,22 +222,22 @@ main () tm2 = tm2 + second() - tm; dgefa(aa,ldaa,n,ipvt,&info); } @@ -206,7 +209,7 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ kf = (kf > ZERO) ? (kf + .5) : (kf - .5); if (fabs((double)kf) < ONE) kflops = 0; -@@ -256,9 +256,9 @@ main () +@@ -256,9 +259,9 @@ main () print_time (row) int row; { @@ -219,7 +222,37 @@ $NetBSD: patch-aa,v 1.2 2007/09/28 13:21:33 drochner Exp $ } /*----------------------*/ -@@ -885,16 +885,14 @@ function, references to m[i][j] are writ +@@ -528,13 +531,11 @@ function, references to a[i][j] are writ + + /*----------------------*/ + +-daxpy(n,da,dx,incx,dy,incy) ++static void daxpy(int n, REAL da, REAL *dx, int incx, REAL *dy, int incy) + /* + constant times a vector plus a vector. + jack dongarra, linpack, 3/11/78. + */ +-REAL dx[],dy[],da; +-int incx,incy,n; + { + int i,ix,iy,m,mp1; + +@@ -642,13 +643,11 @@ int incx,incy,n; + } + + /*----------------------*/ +-dscal(n,da,dx,incx) ++static void dscal(int n, REAL da, REAL *dx,int incx) + + /* scales a vector by a constant. + jack dongarra, linpack, 3/11/78. + */ +-REAL da,dx[]; +-int n, incx; + { + int i,m,mp1,nincx; + +@@ -885,16 +884,14 @@ function, references to m[i][j] are writ } /*----------------------*/ |