Added benchmark C files.

benchmarks/Makefile

+CC=xgcc
+CFLAGS=-O0
+
+%.s: %.c
+	$(CC) $(CFLAGS) -S $<
+%.o: %.s
+	$(CC) $(CFLAGS) -c $<
+
+%: %.o
+	$(CC) $(CFLAGS) $<
+
+all: acron clinpack dhrystone pi slalom whet
+
+asm: acron.s clinpack.s dhrystone.s pi.s slalom.s whet.s
+
+clean:
+	rm -f acron clinpack dhrystone pi slalom whet
+	rm -f *.o
+	rm -f *.s
+	rm -f *.cycles *.output
+

benchmarks/acron.c

+#include <stdio.h>
+
+#define N	6
+
+char *w[] = {"Vertalerbouw", "Ertalerbouw", "Practicum", "Optimization", "Peephole", "Eephole"};
+char acron[N*2], command[100];
+int  done[N], pindex[N+1];
+
+int is_vowel(char c)
+{
+   return (c==65 || c==69 || c==73 || c==79 || c==85 || c==89)? 1 : 0;
+}
+
+void do_perm(int n, int done[], int index, int size)
+{
+   int j, i, nrv = 0, k;
+
+   if (index == 1 && (!is_vowel(w[pindex[0]][0]) && !is_vowel(w[n][0])))
+       return;
+   if (index > 1) {
+      nrv = is_vowel(w[pindex[index-2]][0]) +
+            is_vowel(w[pindex[index-1]][0]) +
+            is_vowel(w[n][0]);
+      if (nrv == 0 || nrv == 3)
+       return;
+   }
+   pindex[index++] = n;
+   if (index < N && --size) {
+      for (j = 0; j<N; j++) {
+         if (done[j] == 0) {
+            done[j] = 1;
+            do_perm(j, done, index, size);
+            done[j] = 0;
+         }
+      }
+   } else {
+      k = 0;
+      for (i=0; i < index; i++) {
+	 int t = 0;
+	 while (isupper(w[pindex[i]][t]))
+	    acron[k++] = w[pindex[i]][t++];
+      }
+      acron[k] = 0;
+      printf("%s", acron);
+      for (i=0; i < index; i++) 
+	    printf(" %s", w[pindex[i]]);
+      printf("\n");
+/*      fflush(stdout); */
+   }
+}
+
+int main()
+{
+   int i, j;
+
+   for (j = 4; j <= N; j++) {
+      for (i = 0; i < N; i++) {
+        done[i] = 1;
+        do_perm(i, done, 0, j);
+        done[i] = 0;
+      }
+   }
+}

benchmarks/geom

+ 13.50e+0   9.00e+0   8.00e+0                               Box dimensions
+  0.80e+0   0.99e+0   0.54e+0   0.84e+0   0.01e+0   0.84e+0
+  0.80e+0   0.01e+0   0.54e+0   0.84e+0   0.01e+0   0.84e+0
+  0.80e+0   0.01e+0   0.54e+0   0.84e+0   0.99e+0   0.84e+0 Reflectivities (RGB)
+  1.27e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0
+  1.27e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0
+  1.27e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0   0.00e+0 Emissivities (RGB)
+

benchmarks/pi.c

+#include <stdio.h>
+#include <stdlib.h>
+
+int main(int argc, char *argv[])
+{
+   int i, its, hits = 0;
+   double d1, d2;
+
+   if (argc != 2) {
+      fprintf(stderr, "Usage: %s <iterations>\n", argv[0]);
+      exit(0);
+   }
+
+   its = atoi(argv[1]);
+   srandom(1);
+   for (i = 0; i < its; i++) {
+      d1 = ((double)random())/2147483647.0;
+      d2 = ((double)random())/2147483647.0;
+      if (((d1*d1) + (d2*d2)) <= 1)
+	 hits++;
+   }
+   printf("%.10f\n", (double)4.0 * (double) ((double)hits / (double)its));
+   return 1;
+}
+

benchmarks/slalom.input

+40
+20
+0
+

benchmarks/whet.c

+#include <math.h>
+#include <time.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+/*
+timer program -- computes total time in seconds
+since the first call. Uses constant CLOCK_RATE
+to compute of CPU time in seconds
+*/
+/* Unix clock */
+#define CLOCK_RATE 1000000.0
+
+/* MS-DOS Turbo C 
+#define CLOCK_RATE CLK_TCK
+*/
+float second(void);
+
+float second()
+{
+   return((float)clock() / CLOCK_RATE);
+}
+
+/* C-style global parameters */
+
+float T,T1,T2,E1[4];
+int J,K,L;
+
+void POUT(long n, long j, long k, float x1, float x2, float x3, float x4)
+{
+	printf("\n %7.1ld%7.1ld%7.1ld%12.4e%12.4e%12.4e%12.4e%8.2f",
+	n,j,k,x1,x2,x3,x4,second());
+}
+
+void PA(E)
+float *E;
+{
+	int j;
+	j=0;
+	do {
+		E[0]=(E[0]+E[1]+E[2]-E[3])*T;
+		E[1]=(E[0]+E[1]-E[2]+E[3])*T;
+		E[2]=(E[0]-E[1]+E[2]+E[3])*T;
+		E[3]=(-E[0]+E[1]+E[2]+E[3])/T2;
+		j=j+1;
+	}
+	while(j<6);
+}
+
+void P0()
+{
+	E1[J-1]=E1[K-1];
+	E1[K-1]=E1[L-1];
+	E1[L-1]=E1[J-1];
+}
+
+void P3(X, Y, Z)
+float *X, *Y, *Z;
+{
+	float X1, Y1;
+
+	X1=*X;
+	Y1=*Y;
+	X1=T*(X1+Y1);
+	Y1=T*(X1+Y1);
+	*Z=(X1+Y1)/T2;
+}
+
+/* equivalent description of FORTRAN-style common block ( slow !) */
+/*
+struct _comm_blk_ {
+	float _T, _T1, _T2, _E1[4];
+	int _J,_K,_L;
+} common;
+#define T common._T
+#define T1 common._T1
+#define T2 common._T2
+#define E1 common._E1
+#define J common._J
+#define K common._K
+#define L common._L
+*/
+
+int main()
+{
+float X1,X2,X3,X4,X,Y,Z;
+long I,ISAVE,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12;
+
+	printf("Start timing.");
+
+	I = 10;
+	T1=0.50025000;
+	T=0.499975000;
+	T2=2.0000;
+	ISAVE=I;
+	N1=0;
+	N2=12*I;
+	N3=14*I;
+	N4=348*I;
+	N5=0;
+	N6=210*I;
+	N7=32*I;
+	N8=899*I;
+	N9=516*I;
+	N10=0;
+	N11=93*I;
+	N12=0;
+	X1=1.0;
+	X2=-1.0;
+	X3=-1.0;
+	X4=-1.;
+	for(I=0; I<N1; I++)
+	{
+		X1=(X1+X2+X3-X4)*T;
+		X2=(X1+X2-X3+X4)*T;
+		X4=(-X1+X2+X3+X4)*T;
+		X3=(X1-X2+X3+X4)*T;
+	}
+	POUT(N1,N1,N1,X1,X2,X3,X4);
+	E1[0]=1.0;
+	E1[1]=-1.0;
+	E1[2]=-1.0;
+	E1[3]=-1.0;
+	for(I=0; I<N2; I++)
+	{
+		E1[0]=(E1[0]+E1[1]+E1[2]-E1[3])*T;
+		E1[1]=(E1[0]+E1[1]-E1[2]+E1[3])*T;
+		E1[2]=(E1[0]-E1[1]+E1[2]+E1[3])*T;
+		E1[3]=(-E1[0]+E1[1]+E1[2]+E1[3])*T;
+	}
+	POUT(N2,N3,N2,E1[0],E1[1],E1[2],E1[3]);
+
+	for(I=0; I<N3; I++) PA(E1);
+	POUT(N3,N2,N2,E1[0],E1[1],E1[2],E1[3]);
+	J=1;
+
+	for(I=0; I<N4; I++)
+	{
+		if(J==1) J=2;
+		else J=3;
+
+		if(J<2) J=0;
+		else J=1;
+
+		if(J<1) J=1;
+		else J=0;
+	}
+	POUT(N4,J,J,X1,X2,X3,X4);
+	J=1;
+	K=2;
+	L=3;
+	for(I=0; I<N6; I++)
+	{
+		J=J*(K-J)*(L-K);
+		K=L*K-(L-J)*K;
+		L=(L-K)*(K+J);
+		E1[L-2]=J+K+L;
+		E1[K-2]=J*K*L;
+	}
+	POUT(N6,(long)J,(long)K,E1[0],E1[1],E1[2],E1[3]);
+
+	X=0.5;
+	Y=0.5;
+	{
+	 register float x=X;
+	 register float y=Y;
+	 register float t2=T2;
+	 register float t=T;
+
+	 for(I=0; I<N7; I++)
+	 {
+		x=t*atan(t2*sin(x)*cos(x)/(cos(x+y)+cos(x-y)-1.0));
+		y=t*atan(t2*sin(y)*cos(y)/(cos(x+y)+cos(x-y)-1.0));
+	 }
+	 X=x; Y=y;
+	}
+	POUT(N7,(long)J,(long)K,X,X,Y,Y);
+	X=1.0;
+	Y=1.0;
+	Z=1.0;
+
+	for(I=0; I<N8; I++) P3(&X,&Y,&Z);
+	POUT(N8,(long)J,(long)K,X,Y,Z,Z);
+	J=1;
+	K=2;
+	L=3;
+	E1[0]=1.0;
+	E1[1]=2.0;
+	E1[2]=3.0;
+	for(I=0; I<N9; I++) P0();
+	POUT(N9,(long)J,(long)K,E1[0],E1[1],E1[2],E1[3]);
+	J=2;
+	K=3;
+	for(I=0; I<N10; I++)
+	{
+		J+=K;
+		K+=J;
+		J-=K;
+		K-=J+J;
+	}
+	POUT(N10,(long)J,(long)K,X1,X2,X3,X4);
+	X=0.75;
+	{
+	 register float x=X;
+	 register float t1=T1;
+	 for(I=0; I<N11; I++) 	x=sqrt(exp(log(x)/t1));
+	 X=x;
+	}
+	POUT(N11,(long)J,(long)K,X,X,X,X);
+
+	printf("\n %g whetstones per second\n", 1.0e+08/second());
+}
+