From a6e95bbab2d4e24952cb6eef5c12e02447b7637c Mon Sep 17 00:00:00 2001
From: thierry <thierry.gautier@inrialpes.fr>
Date: Thu, 2 Dec 2021 13:02:38 +0100
Subject: [PATCH] Update

---
 tool/ompt_callbacks.cpp |  4 ++--
 tool/tool.cpp           | 37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+), 2 deletions(-)

diff --git a/tool/ompt_callbacks.cpp b/tool/ompt_callbacks.cpp
index 926bb33..f73787d 100644
--- a/tool/ompt_callbacks.cpp
+++ b/tool/ompt_callbacks.cpp
@@ -187,9 +187,9 @@ static void ompt_decoder( ompt_dependence_t* dep, int i, void** addr, size_t* le
   if (dep[i].dependence_type & ompt_dependence_type_out)
     *mode |=KAAPI_ACCESS_MODE_W;
   if (dep[i].dependence_type & ompt_dependence_type_inout)
-    *mode |=KAAPI_ACCESS_MODE_CW;
+    *mode =KAAPI_ACCESS_MODE_R|KAAPI_ACCESS_MODE_W;
   //if (dep[i].dependence_flags.commute)
-    //*mode =KAAPI_ACCESS_MODE_R|KAAPI_ACCESS_MODE_W;
+    //*mode |=KAAPI_ACCESS_MODE_CW;
 }
 
 
diff --git a/tool/tool.cpp b/tool/tool.cpp
index d34572b..6a17401 100644
--- a/tool/tool.cpp
+++ b/tool/tool.cpp
@@ -75,3 +75,40 @@ extern "C" {
     return &ompt_start_tool_result;
   }
 }
+
+
+
+#if 0
+struct F {
+  void operator() ( ... )
+  {
+    Inst0;
+    Fork<F1>() ( e1 );
+    Inst1;
+    Fork<F2>() ( e2 );
+    Inst2;
+    ...
+    Fork<Fn>() ( en );
+    Instn;
+  }
+};
+
+struct F {
+  void operator() ( ... )
+  {
+    Inst0;
+    e1 = eval(e1);
+    Inst1;
+    e2 = eval(e2);
+    Inst2;
+    ...
+    en= eval(en);
+    Instn;
+
+    Fork<F1>() ( e1 );
+    Fork<F2>() ( e2 );
+    ...
+    Fork<Fn>() ( en );
+  }
+};
+#endif
-- 
GitLab