Changes between Version 63 and Version 64 of OpenMPTransformation

Timestamp:

03/29/15 23:20:57 (11 years ago)

Author:

mrogers

Comment:

--

OpenMPTransformation

@@ -557 +557 @@
 == Translating Orphan Functions ==
 
-TODO
+{{{
+#include <omp.h>
+
+double x[10];
+
+float foo (){
+  int i;
+
+  #pragma omp for
+    for (int i=0; i < 10; i++){
+      x[i] = i;
+    }
+}
+
+
+int main (int argc, char *argv[]) {
+  int i;
+
+  #pragma omp parallel
+    foo();
+  
+}
+}}}
+
+=>
+
+{{{
+#include <omp.h>
+
+//Struct to hold all data for some thread
+struct parallel {
+  $omp_team *team;
+  $omp_shared **shared;
+  (void *) **local;
+};
+
+//Some stack data structure
+stack *arr;
+
+double x[10];
+
+void foo(int _tid){
+  struct parallel currentThread = arr[_tid].peek();
+  $domain loop_domain = {0..10-1};
+  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(currentThread.team, FOR_LOC++, loop_domain, STRATEGY);
+
+  $for (int i : my_iters) {
+    double tmpWrite0;
+    tmpWrite0 = i;
+    //Get index of this shared var
+    int index = ... index of the x var in currentThread.shared
+    $omp_write(currentThread.shared[i], &currentThread.local[i], &tmpWrite0);
+  }
+  
+  $barrier_and_flush(currentThread.team);
+}
+
+
+int main (int argc, char *argv[]) {
+  int i;
+  
+  int _nthreads = 1+$choose_int(THREAD_MAX);
+  $omp_gteam gteam = $omp_gteam_create($here, nthreads);
+  $omp_gshared x_gshared = $omp_gshared_create(gteam, &x);
+
+  *arr = (stack *)malloc(_nthreads * sizeof(stack))
+
+  $parfor (int _tid : {0..nthreads-1}) {
+    $omp_team team = $omp_team_create($here, gteam, _tid);
+    $omp_shared x_shared = $omp_shared_create(team, x_gshared);
+    double  x_local[10];
+        int  x_status[10];
+
+        //create struct that holds all data for current thread
+        
+        struct parallel currentThread;  
+        currentThread.team = team;
+        currentThread.shared = all shared variables
+        currentThread.local = all local variables
+        
+        arr[_tid].push(currentThread);
+        
+    foo(_tid);
+
+    $omp_barrier_and_flush(team); 
+    $omp_shared_destroy(x_shared);
+    $omp_team_destroy(team);
+    arr[_tid].pop();
+  }
+  $omp_gshared_destroy(x_gshared);
+  $omp_gteam_destroy(gteam);  
+}
+}}}
 
 == Translating functions ==