bones-compiler 1.1.0 → 1.3.1

data/examples/benchmarks/other/dct.c

@@ -0,0 +1,58 @@
+//
+// This file is part of the Bones source-to-source compiler examples. For more
+// information on Bones please use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........benchmark/dct.c
+// Author.............Cedric Nugteren
+// Last modified on...15-Jul-2013
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#define N 2048
+
+// This is 'dct', a 2D 8x8 discrete cosine transform kernel
+int main(void) {
+	int i;
+	int x,y;
+	int u,v;
+	
+	// Declare arrays on the stack
+	float A[N*N];
+	float B[N*N];
+	
+	// Set the input data
+	for (i=0; i<N*N; i++) {
+		A[i] = i*1.4;
+		B[i] = i/0.9;
+	}
+	
+	// Set the constants
+	float alpha = 1.414213f * 0.5f;
+	
+	// Perform the computation (y := ax+y)
+	#pragma scop
+	for (y=0; y<8; y++) {
+		for (x=0; x<8; x++) {
+			B[y*8+x] = 0;
+			for (u=0; u<8; u++) {
+				for (v=0; v<8; v++) {
+					B[y*8+x] += alpha * alpha * A[u*8+v] *
+					            cos(PI * u * (2.0f*x+1) * (1.0f/16.0f)) *
+					            cos(PI * v * (2.0f*y+1) * (1.0f/16.0f));
+				}
+			}
+		}
+	}
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}

data/examples/benchmarks/other/mm.c

@@ -0,0 +1,50 @@
+//
+// This file is part of the Bones source-to-source compiler examples. For more
+// information on Bones please use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........benchmark/mm.c
+// Author.............Cedric Nugteren
+// Last modified on...08-Jul-2013
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+#define N 512
+
+// This is 'mm', a matrix multiplication kernel
+int main(void) {
+	int i,j,k;
+	
+	// Declare arrays on the stack
+	float A[N][N];
+	float B[N][N];
+	float C[N][N];
+	
+	// Set the input data
+	for (i=0; i<N; i++) { for (k=0; k<N; k++) { A[i][k] = (i+k)*1.4; } }
+	for (k=0; k<N; k++) { for (j=0; j<N; j++) { B[k][j] = k*j/0.9;   } }
+	for (i=0; i<N; i++) { for (j=0; j<N; j++) { C[i][j] = 0;         } }
+	
+	// Perform the computation (C := A*B)
+	#pragma species kernel 0:N-1,0:N-1|chunk(0:0,0:N-1) ^ 0:N-1,0:N-1|chunk(0:N-1,0:0) -> 0:N-1,0:N-1|element
+	for (i=0; i<N; i++) {
+		for (j=0; j<N; j++) {
+			C[i][j] = 0;
+			for (k=0; k<N; k++) {
+				C[i][j] += A[i][k] * B[k][j];
+			}
+		}
+	}
+	#pragma species endkernel mm
+	#pragma endscop
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/benchmarks/{saxpy.c → other/saxpy.c}

@@ -9,21 +9,23 @@
 // == File information
 // Filename...........benchmark/saxpy.c
 // Author.............Cedric Nugteren
-// Last modified on...04-Jul-2012
+// Last modified on...09-Aug-2012
 //
 
-#include "common.h"
+#include <stdio.h>
+#include <stdlib.h>
+#define N 2048*2048
 
 // This is 'saxpy', a scalar multiplication and vector addition kernel
 int main(void) {
 	int i;
 	
 	// Declare arrays on the stack
-	float x[LARGE_N];
-	float y[LARGE_N];
+	float x[N];
+	float y[N];
 	
 	// Set the input data
-	for (i=0; i<LARGE_N; i++) {
+	for (i=0; i<N; i++) {
 		x[i] = i*1.4;
 		y[i] = i/0.9;
 	}
@@ -32,11 +34,13 @@ int main(void) {
 	float a = 411.3;
 	
 	// Perform the computation (y := ax+y)
-	#pragma species kernel 0:LARGE_N-1|element ^ 0:LARGE_N-1|element -> 0:LARGE_N-1|element
-	for (i=0; i<LARGE_N; i++) {
+	#pragma scop
+	#pragma species kernel 0:N-1|element ^ 0:N-1|element -> 0:N-1|element
+	for (i=0; i<N; i++) {
 		y[i] = a*x[i] + y[i];
 	}
 	#pragma species endkernel saxpy
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);

data/examples/chunk/example06.c

@@ -0,0 +1,45 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........chunk/example06.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example06', a chunk/chunk with a step of 2
+int main(void) {
+	int i;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int A[N];
+	int B[N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+		B[i] = i+5;
+	}
+	
+	// Perform the computation
+	#pragma species kernel A[2:N-1]|chunk(0:1) -> B[2:N-1]|chunk(0:1)
+	for (i=2; i<N-1; i=i+2) {
+		B[i] = A[i];
+		B[i+1] = A[i+1];
+	}
+	#pragma species endkernel example06
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/chunk/example07.c

@@ -0,0 +1,49 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........chunk/example07.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example07', a chunk/chunk with a step of 2
+int main(void) {
+	int i;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int A[N];
+	int B[N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+		B[i] = i+5;
+	}
+	
+	// Perform the computation
+	#pragma species kernel A[2:N-1]|chunk(0:1) -> B[2:N-1]|chunk(0:1)
+	for (i=2; i<N-1; i=i+2) {
+		temp = 0;
+		for (j=0; j<2; j++) {
+			temp += A[i+j];
+		}
+		B[i] = temp;
+		B[i+1] = temp;
+	}
+	#pragma species endkernel example07
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/dependences/example01.c

@@ -0,0 +1,42 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........dependences/example01.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example01', an element -> element example WITHOUT dependences.
+int main(void) {
+	int i;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int A[N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+	}
+	
+	// Perform the computation
+	#pragma species kernel A[1:8*N-7]|element -> A[6:2*N+4]|element
+	for (i=0; i<N; i++) { // No dependence
+		A[2*i+6] = A[8*i+1];
+	}
+	#pragma species endkernel example01
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/dependences/example02.c

@@ -0,0 +1,40 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........dependences/example02.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example02', an element -> element example WITH dependences.
+int main(void) {
+	int i;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int A[N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+	}
+	
+	// Perform the computation
+	for (i=0; i<N; i++) { // Read-write dependence
+		A[2*i+6] = A[3*i+1];
+	}
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/dependences/example03.c

@@ -0,0 +1,43 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........dependences/example03.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example03', an element -> element example WITH dependences.
+int main(void) {
+	int i;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int A[N];
+	int B[N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		A[i] = i;
+		B[i] = 0;
+	}
+	
+	// Perform the computation
+	for (i=2; i<N; i++) { // Write-write dependence
+		B[i] = A[i];
+		B[i+1] = A[i+1];
+	}
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/dependences/example04.c

@@ -0,0 +1,44 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........dependences/example04.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example04', a 2D example WITHOUT dependences.
+int main(void) {
+	int i,j;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int D[N][N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		for(j=0;j<N;j++) {
+			D[i][j] = i*j+3;
+		}
+	}
+	
+	// Perform the computation
+	#pragma species kernel D[1:8*N-7,1:8*N-7]|element -> D[6:2*N+4,6:2*N+4]|element
+	for (i=0; i<N; i++) { // No dependence
+		D[2*i+6][2*i+6] = D[8*i+1][8*i+1];
+	}
+	#pragma species endkernel example04
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+

data/examples/dependences/example05.c

@@ -0,0 +1,42 @@
+//
+// This file is part of the Bones source-to-source compiler examples. This C-code
+// example is meant to illustrate the use of Bones. For more information on Bones
+// use the contact information below.
+//
+// == More information on Bones
+// Contact............Cedric Nugteren <c.nugteren@tue.nl>
+// Web address........http://parse.ele.tue.nl/bones/
+//
+// == File information
+// Filename...........dependences/example05.c
+// Author.............Cedric Nugteren
+// Last modified on...07-May-2013
+//
+
+#include <stdio.h>
+
+// This is 'example05', a 2D example WITH dependences.
+int main(void) {
+	int i,j;
+	int N = 256;
+	
+	// Declare input/output arrays
+	int D[N][N];
+	
+	// Set the input data
+	for(i=0;i<N;i++) {
+		for(j=0;j<N;j++) {
+			D[i][j] = i*j+3;
+		}
+	}
+	
+	// Perform the computation
+	for (i=0; i<N; i++) { // Read-write dependence
+		D[2*i+6][2*i+6] = D[8*i+1][3*i+1];
+	}
+	
+	// Clean-up and exit the function
+	fflush(stdout);
+	return 0;
+}
+