Changes between Version 60 and Version 61 of OpenMPTransformation

Timestamp:

10/14/14 17:42:01 (12 years ago)

Author:

zmanchun

Comment:

--

OpenMPTransformation

@@ -151 +151 @@
  * combines a barrier and a flush on all shared objects owned by the team.  Implicit in many OpenMP worksharing constructs.
 
-* `$domain $omp_arrive_loop($omp_team team, $domain loop_dom,  $DecompositionStrategy strategy)`
+* `$domain $omp_arrive_loop($omp_team team, int location, $domain loop_dom,  $DecompositionStrategy strategy)`
  * called by a thread when it reaches an omp for loop, this function returns the subset of the loop domain specifying the iterations that this thread will execute.  The dimension of the domain returned equals the dimension of the given domain `loop_dom`.
 
-* `$domain(1) $omp_arrive_sections($omp_team, int numSections)`
+* `$domain(1) $omp_arrive_sections($omp_team team, int location, int numSections)`
  * called by a thread when it reaches an omp sections construct, this function returns the subset of the integers 0..numSections-1 specifying the indexes of the sections that this thread will execute.  The sections are numbered from 0 in increasing order.
 
-* `int $omp_arrive_single($omp_team team)`
+* `int $omp_arrive_single($omp_team team, int location)`
  * called by a thread when it reaches on omp single construct, returns the thread ID of the thread that will execute the single construct.
 
@@ -326 +326 @@
 {
   $domain loop_domain = {0..n-1};
-  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(team, loop_domain);
+  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(team, FOR_LOC++, loop_domain, STRATEGY);
 
   $for (int i : my_iters) {
@@ -351 +351 @@
 {
   $domain loop_domain = {0..n-1, 0..m-1, 0..l-1};
-  $domain(3) my_iters = ($domain(3))$omp_arrive_loop(team, loop_domain);
+  $domain(3) my_iters = ($domain(3))$omp_arrive_loop(team, FOR_LOC++, loop_domain, STRATEGY);
 
   $for (int i, j, k : my_iters) {
@@ -376 +376 @@
 {
   $domain loop_domain = {a..b-1};
-  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(team, loop_domain);
+  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(team, FOR_LOC++, loop_domain, STRATEGY);
   double _x=0.0, _y=0.0; // not the local view of the shared variable x/y
 
@@ -407 +407 @@
 {{{
 {
-  $domain(1) my_secs = $omp_arrive_sections(team, numSections);
+  $domain(1) my_secs = $omp_arrive_sections(team, SEC_LOC++, numSections);
 
   $for (int i : my_secs) {
@@ -437 +437 @@
 
 {{{
-int owner = $omp_arrive_single(team);
+int owner = $omp_arrive_single(team, SINGLE_LOC++);
 
 if (owner == _tid) {
@@ -516 +516 @@
 {
   $domain loop_domain = {a..b};
-  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(loop_domain);
+  $domain(1) my_iters = ($domain(1))$omp_arrive_loop(team, FOR_LOC++, loop_domain, STRATEGY);
   int order1=a, order2=a;