Fix bugs with SPEC2k for WebAssembly

tests/spec2k/188.ammp/diff

Index: tests/spec2k/188.ammp/diff
diff --git a/tests/spec2k/188.ammp/diff b/tests/spec2k/188.ammp/diff
new file mode 100644
index 0000000000000000000000000000000000000000..2c7fe0f451e699492d6c75377583db6b2214a766
--- /dev/null
+++ b/tests/spec2k/188.ammp/diff
@@ -0,0 +1,199 @@
+diff -Naurb src2/analyze.c src/analyze.c
+--- src2/analyze.c 2016-08-12 23:25:14.297791577 -0700
++++ src/analyze.c 2016-08-12 23:33:39.069342515 -0700
+@@ -31,7 +31,7 @@
+ */
+
+ void analyze( vfs,nfs,ilow,ihigh,op )
+-int  (*vfs[])();
++int  (*vfs[])(float*, float);
+ int nfs;
+ FILE *op;
+ int ilow,ihigh;
+diff -Naurb src2/animate.c src/animate.c
+--- src2/animate.c 2016-08-12 23:25:14.297791577 -0700
++++ src/animate.c 2016-08-12 23:36:18.867733418 -0700
+@@ -153,7 +153,7 @@
+ * perform nstep leapfrogging dynamics with dtime
+ */
+ int verlet(forces,nforces, nstep,dtime)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime;
+ {
+@@ -219,7 +219,7 @@
+ *  ideally several cycles are good
+ */
+ int pac(forces,nforces, nstep,dtime)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime;
+ {
+@@ -317,7 +317,7 @@
+ *
+ */
+ int tpac(forces,nforces, nstep,dtime_real,T)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime_real,T;
+ {
+@@ -437,7 +437,7 @@
+ *  ideally several cycles are good
+ */
+ int pacpac(forces,nforces, nstep,dtime)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime;
+ {
+@@ -586,7 +586,7 @@
+ *  ideally several cycles are good
+ */
+ int hpac(forces,poten,nforces,nstep,dtime_real,H)
+-int (*forces[])(),(*poten[])(),nforces;
++int (*forces[])(float),(*poten[])(float*, float),nforces;
+ int nstep;
+ float dtime_real,H;
+ {
+@@ -724,7 +724,7 @@
+ *  ideally several cycles are good
+ */
+ int ppac(forces,nforces, nstep,dtime_real,P)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime_real,P;
+ {
+@@ -878,7 +878,7 @@
+ *  ideally several cycles are good
+ */
+ int ptpac(forces,nforces, nstep,dtime_real,P,T)
+-int (*forces[])(),nforces;
++int (*forces[])(float),nforces;
+ int nstep;
+ float dtime_real,P,T;
+ {
+diff -Naurb src2/eval.c src/eval.c
+--- src2/eval.c 2016-08-12 23:25:14.297791577 -0700
++++ src/eval.c 2016-08-12 23:28:59.113153303 -0700
+@@ -264,7 +264,7 @@
+ *  current version lexes tokens and if numeric
+ *  converts them to integer and floating point versions
+ */
+-  int  (*potentials[10])(),(*forces[10])(),nused=(-1);
++  int  (*potentials[10])(float*, float),(*forces[10])(float),nused=(-1);
+ int eval( ip,op,line )
+ FILE *ip,*op;
+ char *line;
+diff -Naurb src2/gsdg.c src/gsdg.c
+--- src2/gsdg.c 2016-08-12 23:25:14.297791577 -0700
++++ src/gsdg.c 2016-08-12 23:35:06.370648743 -0700
+@@ -29,7 +29,7 @@
+ #include "ammp.h"
+
+ void gsdg( vfs,nfs,niter,low_serial,high_serial )
+-int (*vfs[])(),nfs;
++int (*vfs[])(float*, float),nfs;
+ int niter;
+ int low_serial,high_serial;
+ {
+diff -Naurb src2/math.c src/math.c
+--- src2/math.c 2016-08-12 23:25:14.297791577 -0700
++++ src/math.c 2016-08-12 23:25:27.997996449 -0700
+@@ -298,7 +298,7 @@
+        if( strcmp( &tokens[0][0], "randf" ) == 0 )
+        {
+        atype = FLOAT;
+-       fa = randf( -1 );
++       fa = randf();
+        goto GOOD_OP;
+        }
+        if( strcmp( &tokens[0][0], "serial" ) == 0 )
+diff -Naurb src2/monitor.c src/monitor.c
+--- src2/monitor.c 2016-08-12 23:25:14.297791577 -0700
++++ src/monitor.c 2016-08-12 23:33:09.940906673 -0700
+@@ -33,7 +33,7 @@
+ * but otherwise is self-contained. Note the hooks for Non-bonded potentials
+ */
+ void AMMPmonitor( vfs,ffs,nfs,op )
+-int  (*vfs[])(),(*ffs[])();
++int  (*vfs[])(float*, float),(*ffs[])(float);
+ int nfs;
+ FILE *op;
+ {
+@@ -143,7 +143,7 @@
+ }
+
+ void AMMPmonitor_mute( vfs,ffs,nfs,op )
+-int  (*vfs[])(),(*ffs[])();
++int  (*vfs[])(float*, float),(*ffs[])(float);
+ int nfs;
+ FILE *op;
+ {
+diff -Naurb src2/optimist.c src/optimist.c
+--- src2/optimist.c 2016-08-12 23:25:14.297791577 -0700
++++ src/optimist.c 2016-08-12 23:36:54.856271851 -0700
+@@ -42,7 +42,7 @@
+ *  when to stop
+ */
+ int steep( vfs,ffs,nfs, nstep,toler )
+-int nfs,(*vfs[])(),(*ffs[])();
++int nfs,(*vfs[])(float*, float),(*ffs[])(float);
+ int nstep;
+ float toler;
+ {
+@@ -97,7 +97,7 @@
+ *  when to stop
+ */
+ int cngdel( vfs,ffs,nfs, nstep,nreset,toler,echo )
+-int nfs,(*vfs[])(),(*ffs[])();
++int nfs,(*vfs[])(float*, float),(*ffs[])(float);
+ int nstep,nreset;
+ float toler;
+ {
+@@ -164,7 +164,7 @@
+ *  recursive line minimizer
+ */
+ float linmin(ffs,nfs ,damp )
+-int (*ffs[])();
++int (*ffs[])(float*, float);
+ int nfs;
+ float damp;
+
+diff -Naurb src2/tset.c src/tset.c
+--- src2/tset.c 2016-08-12 23:25:14.297791577 -0700
++++ src/tset.c 2016-08-12 23:35:38.003122023 -0700
+@@ -107,11 +107,11 @@
+       return 0;
+ }/* end of tset */
+ #ifdef NEWCCALL
+-int tmin( FILE *op, int echo ,int i1,int i2,int i3,int i4,int nstep, int (*vfs[])(),int nfs )
++int tmin( FILE *op, int echo ,int i1,int i2,int i3,int i4,int nstep, int (*vfs[])(float*, float),int nfs )
+ #else
+ int tmin(op,echo, i1,i2,i3,i4,nstep, vfs,nfs )
+ int i1,i2,i3,i4,nstep;
+-int (*vfs[])();
++int (*vfs[])(float*, float);
+ FILE *op;
+ int echo,nfs;
+ #endif
+@@ -352,14 +352,14 @@
+         return 1;
+ }/* end of set_torsion */
+ #ifdef NEWCCALL
+-int tmap( FILE *op, int echo, int (*vfs[])(),int nfs,int i1,int i2,int i3,int i4,
++int tmap( FILE *op, int echo, int (*vfs[])(float*, float),int nfs,int i1,int i2,int i3,int i4,
+ int j1 , int j2 ,int j3, int j4 , int nistep, int njstep)
+ #else
+ int tmap(op,echo,vfs,nfs,i1,i2,i3,i4,j1,j2,j3,j4,nistep,njstep )
+ int i1,i2,i3,i4;
+ int j1,j2,j3,j4;
+ int nistep,njstep;
+-int (*vfs[])(),nfs;
++int (*vfs[])(float*, float),nfs;
+ FILE *op;
+ int echo;
+ #endif