Add wasm tacle-bench targets

targets/wasm-tacle/kernel/complex_updates/generated/modified_sources/default/complex_updates.c

@@ -0,0 +1,135 @@
+/*
+
+  This program is part of the TACLeBench benchmark suite.
+  Version V 2.0
+
+  Name: complex_updates
+
+  Author: Juan Martinez Velarde
+
+  Function: complex_updates is a program for filter benchmarking.
+    This program performs n complex updates of the form
+              D(i) = C(i) + A(i)*B(i),
+    where A(i), B(i), C(i) and D(i) are complex numbers,
+    and i = 1,...,N
+             A(i) = Ar(i) + j Ai(i)
+             B(i) = Br(i) + j Bi(i)
+             C(i) = Cr(i) + j Ci(i)
+             D(i) = C(i) + A(i)*B(i) =   Dr(i)  +  j Di(i)
+                         =>  Dr(i) = Cr(i) + Ar(i)*Br(i) - Ai(i)*Bi(i)
+                         =>  Di(i) = Ci(i) + Ar(i)*Bi(i) + Ai(i)*Br(i)
+
+  Source: DSP-Stone
+    http://www.ice.rwth-aachen.de/research/tools-projects/entry/detail/dspstone/
+
+  Original name: n_complex_updates_float
+
+  Changes: no major functional changes
+
+  License: may be used, modified, and re-distributed freely
+
+*/
+
+// Wasm loop bounds
+
+__attribute__((import_module("__pragma"), import_name("loopbound"))) extern void
+__pragma_loopbound(unsigned int min_bound, unsigned int max_bound);
+
+#define N 16
+
+/*
+  Forward declaration of functions
+*/
+
+void complex_updates_pin_down(float *pa, float *pb, float *pc, float *pd);
+void complex_updates_init(void);
+__attribute__((noinline)) __attribute__((export_name("entrypoint"))) void
+complex_updates_main(void);
+__attribute__((noinline)) __attribute__((export_name("main"))) int main(void);
+
+/*
+  Declaration of global variables
+*/
+
+float complex_updates_A[2 * N], complex_updates_B[2 * N],
+    complex_updates_C[2 * N], complex_updates_D[2 * N];
+
+/*
+  Initialization- and return-value-related functions
+*/
+
+void
+complex_updates_init(void) {
+    int i;
+    volatile float x = 0;
+
+    complex_updates_pin_down(&complex_updates_A[0], &complex_updates_B[0],
+                             &complex_updates_C[0], &complex_updates_D[0]);
+
+    /* avoid constant propagation */
+    __pragma_loopbound(16, 16);
+    for (i = 0; i < N; i++) {
+        complex_updates_A[i] += x;
+        complex_updates_B[i] += x;
+        complex_updates_C[i] += x;
+        complex_updates_D[i] += x;
+    }
+}
+
+void
+complex_updates_pin_down(float *pa, float *pb, float *pc, float *pd) {
+    register int i;
+
+    __pragma_loopbound(16, 16);
+    for (i = 0; i < N; i++) {
+        *pa++ = 2;
+        *pa++ = 1;
+        *pb++ = 2;
+        *pb++ = 5;
+        *pc++ = 3;
+        *pc++ = 4;
+        *pd++ = 0;
+        *pd++ = 0;
+    }
+}
+
+int
+complex_updates_return(void) {
+    float check_sum = 0;
+    int i;
+
+    __pragma_loopbound(16, 16);
+    for (i = 0; i < N; i++)
+        check_sum += complex_updates_D[i];
+
+    return (check_sum != 144.0f);
+}
+
+/*
+  Main functions
+*/
+
+__attribute__((noinline)) __attribute__((export_name("entrypoint"))) void
+complex_updates_main(void) {
+    register float *p_a = &complex_updates_A[0], *p_b = &complex_updates_B[0];
+    register float *p_c = &complex_updates_C[0], *p_d = &complex_updates_D[0];
+    int i;
+
+    __pragma_loopbound(16, 16);
+    for (i = 0; i < N; i++, p_a++) {
+        *p_d = *p_c++ + *p_a++ * *p_b++;
+        *p_d++ -= *p_a * *p_b--;
+
+        *p_d = *p_c++ + *p_a-- * *p_b++;
+        *p_d++ += *p_a++ * *p_b++;
+    }
+}
+
+__attribute__((noinline)) __attribute__((export_name("main"))) int
+main(void) {
+    complex_updates_init();
+
+    complex_updates_main();
+
+    return complex_updates_return();
+}