Add wasm tacle-bench targets

targets/wasm-tacle/kernel/complex_updates/complex_updates.c

@@ -0,0 +1,136 @@
+/*
+
+  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
+
+*/
+
+#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 );
+void complex_updates_main( void );
+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 min 16 max 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 min 16 max 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 min 16 max 16" )
+  for ( i = 0; i < N; i++ )
+    check_sum += complex_updates_D[ i ];
+
+  return ( check_sum != 144.0f );
+}
+
+
+/*
+  Main functions
+*/
+
+void _Pragma( "entrypoint" ) 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 min 16 max 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++ ;
+  }
+
+}
+
+int main( void )
+{
+  complex_updates_init();
+
+  complex_updates_main();
+
+  return complex_updates_return();
+}