[OpenMP] Use IsHostPtr where needed for targetDataEnd

[jdenny]

Summary

As discussed in D105990, without this patch, targetDataEnd
determines whether to transfer data or delete a device mapping (as
opposed to assuming it's in shared memory) using two different
conditions, each of which is broken for some cases:

1. !(UNIFIED_SHARED_MEMORY && TgtPtrBegin == HstPtrBegin): The broken case is rare: the device and host might happen to use the same address for their mapped allocations. I don't know how to write a test that's likely to reveal this case, but this patch does fix it, as discussed below.
2. !UNIFIED_SHARED_MEMORY || HasCloseModifier: There are at least two broken cases:
   1. The close modifier might have been specified on an omp target enter data but not the corresponding omp target exit data, which thus might falsely assume a mapping is in shared memory. The test unified_shared_memory/close_enter_exit.c already has a missing deletion as a result, and this patch adds a check for that. This patch also adds the new test close_member.c to reveal a missing transfer and deletion.
   2. Use of discrete memory might have been forced by omp_target_associate_ptr, as in the test unified_shared_memory/api.c. In the current targetDataEnd implementation, this condition turns out not be used for this case: because the reference count is infinite, a transfer is possible only with an always modifier, and this condition is never used in that case. To ensure it's never used for that case in the future, this patch adds the test unified_shared_memory/associate_ptr.c.

Fortunately, DeviceTy::getTgtPtrBegin already has a solution: it
reports whether the allocation was found in shared memory via the
variable IsHostPtr.

After this patch, HasCloseModifier is no longer used in
targetDataEnd, and I wonder if the close modifier is ever useful
on an omp target data end.

[grokos]

openmp/libomptarget/src/device.cpp

368

Just to be on the safe side for future patches, can you add a comment saying that DeviceTy::deallocTgtPtr no longer checks whether we use USM and it assumes that the caller has checked beforehand that HstPtrBegin has (or should have) corresponding storage on the device instead of shared memory?

[jdenny]

@grokos: Thanks for the reviews. Should I go ahead and land this patch series (D107925, D107926, D107927, D107928) after applying your suggestions, or do you think it would be better to wait for the discussion in D108569 to settle?

[grokos]

I think it's better to move on with these patches and then revisit D108569, which needs extensive changes anyway. It will be easier to work on that other patch if the fixes from this series have landed instead of trying to think about all corner cases all over again.

[jdenny]

Sounds good. I'll work on this today.

[jdenny]

openmp/libomptarget/src/device.cpp

368

I added the comment to device.h. I'm happy to revise in a fixup patch if you want something different.

openmp/libomptarget/src/device.h

struct DeviceTy {
   getTargetPointer(void *HstPtrBegin, void *HstPtrBase, int64_t Size,
                    map_var_info_t HstPtrName, MoveDataStateTy MoveData,
                    bool IsImplicit, bool UpdateRefCount, bool HasCloseModifier,
                    bool HasPresentModifier, AsyncInfoTy &AsyncInfo);
   void *getTgtPtrBegin(void *HstPtrBegin, int64_t Size);
   void *getTgtPtrBegin(void *HstPtrBegin, int64_t Size, bool &IsLast,
                        bool UpdateRefCount, bool &IsHostPtr,
                        bool MustContain = false, bool ForceDelete = false);
-  int deallocTgtPtr(void *TgtPtrBegin, int64_t Size,
-                    bool HasCloseModifier = false);
+  int deallocTgtPtr(void *TgtPtrBegin, int64_t Size);
   int associatePtr(void *HstPtrBegin, void *TgtPtrBegin, int64_t Size);
   int disassociatePtr(void *HstPtrBegin);
 
   // calls to RTL
   int32_t initOnce();
   __tgt_target_table *load_binary(void *Img);
 
   // device memory allocation/deallocation routines

openmp/libomptarget/src/device.cpp

if (lr.Flags.IsContained || lr.Flags.ExtendsBefore || lr.Flags.ExtendsAfter) {
     auto &HT = *lr.Entry;
     uintptr_t tp = HT.TgtPtrBegin + (hp - HT.HstPtrBegin);
     return (void *)tp;
   }
 
   return NULL;
 }
 
-int DeviceTy::deallocTgtPtr(void *HstPtrBegin, int64_t Size,
-                            bool HasCloseModifier) {
-  if (PM->RTLs.RequiresFlags & OMP_REQ_UNIFIED_SHARED_MEMORY &&
-      !HasCloseModifier)
-    return OFFLOAD_SUCCESS;
+int DeviceTy::deallocTgtPtr(void *HstPtrBegin, int64_t Size) {
   // Check if the pointer is contained in any sub-nodes.
   int rc;
   DataMapMtx.lock();
   LookupResult lr = lookupMapping(HstPtrBegin, Size);
   if (lr.Flags.IsContained || lr.Flags.ExtendsBefore || lr.Flags.ExtendsAfter) {
     auto &HT = *lr.Entry;
     if (HT.decRefCount() == 0) {
       DP("Deleting tgt data " DPxMOD " of size %" PRId64 "\n",

openmp/libomptarget/src/omptarget.cpp

 namespace {
 /// This structure contains information to deallocate a target pointer, aka.
 /// used to call the function \p DeviceTy::deallocTgtPtr.
 struct DeallocTgtPtrInfo {
   /// Host pointer used to look up into the map table
   void *HstPtrBegin;
   /// Size of the data
   int64_t DataSize;
-  /// Whether it has \p close modifier
-  bool HasCloseModifier;
 
-  DeallocTgtPtrInfo(void *HstPtr, int64_t Size, bool HasCloseModifier)
-      : HstPtrBegin(HstPtr), DataSize(Size),
-        HasCloseModifier(HasCloseModifier) {}
+  DeallocTgtPtrInfo(void *HstPtr, int64_t Size)
+      : HstPtrBegin(HstPtr), DataSize(Size) {}
 };
 } // namespace
 
 /// Internal function to undo the mapping and retrieve the data from the device.
 int targetDataEnd(ident_t *loc, DeviceTy &Device, int32_t ArgNum,
                   void **ArgBases, void **Args, int64_t *ArgSizes,
                   int64_t *ArgTypes, map_var_info_t *ArgNames,
                   void **ArgMappers, AsyncInfoTy &AsyncInfo, bool FromMapper) {
for (int32_t I = ArgNum - 1; I >= 0; --I) {
     }
 
     bool IsLast, IsHostPtr;
     bool IsImplicit = ArgTypes[I] & OMP_TGT_MAPTYPE_IMPLICIT;
     bool UpdateRef = (!(ArgTypes[I] & OMP_TGT_MAPTYPE_MEMBER_OF) ||
                       (ArgTypes[I] & OMP_TGT_MAPTYPE_PTR_AND_OBJ)) &&
                      !(FromMapper && I == 0);
     bool ForceDelete = ArgTypes[I] & OMP_TGT_MAPTYPE_DELETE;
-    bool HasCloseModifier = ArgTypes[I] & OMP_TGT_MAPTYPE_CLOSE;
     bool HasPresentModifier = ArgTypes[I] & OMP_TGT_MAPTYPE_PRESENT;
 
     // If PTR_AND_OBJ, HstPtrBegin is address of pointee
     void *TgtPtrBegin =
         Device.getTgtPtrBegin(HstPtrBegin, DataSize, IsLast, UpdateRef,
                               IsHostPtr, !IsImplicit, ForceDelete);
     if (!TgtPtrBegin && (DataSize || HasPresentModifier)) {
       DP("Mapping does not exist (%s)\n",
if ((ArgTypes[I] & OMP_TGT_MAPTYPE_MEMBER_OF) &&
       DelEntry = false; // protect parent struct from being deallocated
     }
 
     if ((ArgTypes[I] & OMP_TGT_MAPTYPE_FROM) || DelEntry) {
       // Move data back to the host
       if (ArgTypes[I] & OMP_TGT_MAPTYPE_FROM) {
         bool Always = ArgTypes[I] & OMP_TGT_MAPTYPE_ALWAYS;
         bool CopyMember = false;
-        if (!(PM->RTLs.RequiresFlags & OMP_REQ_UNIFIED_SHARED_MEMORY) ||
-            HasCloseModifier) {
+        if (!IsHostPtr) {
           if (IsLast)
             CopyMember = true;
         }
 
-        if ((DelEntry || Always || CopyMember) &&
-            !(PM->RTLs.RequiresFlags & OMP_REQ_UNIFIED_SHARED_MEMORY &&
-              TgtPtrBegin == HstPtrBegin)) {
+        if ((DelEntry || Always || CopyMember) && !IsHostPtr) {
           DP("Moving %" PRId64 " bytes (tgt:" DPxMOD ") -> (hst:" DPxMOD ")\n",
              DataSize, DPxPTR(TgtPtrBegin), DPxPTR(HstPtrBegin));
           Ret = Device.retrieveData(HstPtrBegin, TgtPtrBegin, DataSize,
                                     AsyncInfo);
           if (Ret != OFFLOAD_SUCCESS) {
             REPORT("Copying data from device failed.\n");
             return OFFLOAD_FAIL;
           }
if ((ArgTypes[I] & OMP_TGT_MAPTYPE_FROM) || DelEntry) {
           Itr = Device.ShadowPtrMap.erase(Itr);
         } else {
           ++Itr;
         }
       }
       Device.ShadowMtx.unlock();
 
       // Add pointer to the buffer for later deallocation
-      if (DelEntry)
-        DeallocTgtPtrs.emplace_back(HstPtrBegin, DataSize, HasCloseModifier);
+      if (DelEntry && !IsHostPtr)
+        DeallocTgtPtrs.emplace_back(HstPtrBegin, DataSize);
     }
   }
 
   // TODO: We should not synchronize here but pass the AsyncInfo object to the
   //       allocate/deallocate device APIs.
   //
   // We need to synchronize before deallocating data.
   Ret = AsyncInfo.synchronize();
   if (Ret != OFFLOAD_SUCCESS)
     return OFFLOAD_FAIL;
 
   // Deallocate target pointer
   for (DeallocTgtPtrInfo &Info : DeallocTgtPtrs) {
     if (FromMapperBase && FromMapperBase == Info.HstPtrBegin)
       continue;
-    Ret = Device.deallocTgtPtr(Info.HstPtrBegin, Info.DataSize,
-                               Info.HasCloseModifier);
+    Ret = Device.deallocTgtPtr(Info.HstPtrBegin, Info.DataSize);
     if (Ret != OFFLOAD_SUCCESS) {
       REPORT("Deallocating data from device failed.\n");
       return OFFLOAD_FAIL;
     }
   }
 
   return OFFLOAD_SUCCESS;
 }

openmp/libomptarget/test/unified_shared_memory/associate_ptr.c

+// RUN: %libomptarget-compile-run-and-check-generic
+
+// REQUIRES: unified_shared_memory
+// UNSUPPORTED: clang-6, clang-7, clang-8, clang-9
+
+// Fails on amdgcn with error: GPU Memory Error
+// XFAIL: amdgcn-amd-amdhsa
+
+#include <assert.h>
+#include <omp.h>
+#include <stdio.h>
+
+#pragma omp requires unified_shared_memory
+
+int main(int argc, char *argv[]) {
+  int dev = omp_get_default_device();
+  int x = 10;
+  int *x_dev = (int *)omp_target_alloc(sizeof x, dev);
+  assert(x_dev && "expected omp_target_alloc to succeed");
+  int rc = omp_target_associate_ptr(&x, x_dev, sizeof x, 0, dev);
+  assert(!rc && "expected omp_target_associate_ptr to succeed");
+
+  // To determine whether x needs to be transfered, the runtime cannot simply
+  // check whether unified shared memory is enabled and the 'close' modifier is
+  // specified.  It must check whether x was previously placed in device memory
+  // by, for example, omp_target_associate_ptr.
+  #pragma omp target map(always, tofrom: x)
+  x = 20;
+
+  // CHECK: x=20
+  printf("x=%d\n", x);
+  // CHECK: present: 1
+  printf("present: %d\n", omp_target_is_present(&x, dev));
+
+  return 0;
+}

openmp/libomptarget/test/unified_shared_memory/close_enter_exit.c

 #pragma omp requires unified_shared_memory
 
 #define N 1024
 
 int main(int argc, char *argv[]) {
   int fails;
   void *host_alloc = 0, *device_alloc = 0;
   int *a = (int *)malloc(N * sizeof(int));
+  int dev = omp_get_default_device();
 
   // Init
   for (int i = 0; i < N; ++i) {
     a[i] = 10;
   }
   host_alloc = &a[0];
 
   //
#pragma omp target data map(close, tofrom : a[ : N]) use_device_ptr(a)
 
   //
   // map enter/exit + close
   //
   device_alloc = 0;
 #pragma omp target enter data map(close, to : a[ : N])
 
 #pragma omp target map(from : device_alloc)
-  { device_alloc = &a[0]; }
+  {
+    device_alloc = &a[0];
+    a[0] = 99;
+  }
 
+  // 'close' is missing, so the runtime must check whether s is actually in
+  // shared memory in order to determine whether to transfer data and delete the
+  // allocation.
 #pragma omp target exit data map(from : a[ : N])
 
   // CHECK: a has been mapped to the device.
   if (device_alloc != host_alloc)
     printf("a has been mapped to the device.\n");
 
+  // CHECK: a[0]=99
+  // CHECK: a is present: 0
+  printf("a[0]=%d\n", a[0]);
+  printf("a is present: %d\n", omp_target_is_present(a, dev));
+
   free(a);
 
   // CHECK: Done!
   printf("Done!\n");
 
   return 0;
 }

openmp/libomptarget/test/unified_shared_memory/close_member.c

+// RUN: %libomptarget-compile-run-and-check-generic
+
+// REQUIRES: unified_shared_memory
+// UNSUPPORTED: clang-6, clang-7, clang-8, clang-9
+
+// Fails on amdgcn with error: GPU Memory Error
+// XFAIL: amdgcn-amd-amdhsa
+
+#include <omp.h>
+#include <stdio.h>
+
+#pragma omp requires unified_shared_memory
+
+struct S {
+  int x;
+  int y;
+};
+
+int main(int argc, char *argv[]) {
+  int dev = omp_get_default_device();
+  struct S s = {10, 20};
+
+  #pragma omp target enter data map(close, to: s)
+  #pragma omp target map(alloc: s)
+  {
+    s.x = 11;
+    s.y = 21;
+  }
+  // To determine whether x needs to be transfered or deleted, the runtime
+  // cannot simply check whether unified shared memory is enabled and the
+  // 'close' modifier is specified.  It must check whether x was previously
+  // placed in device memory by, for example, a 'close' modifier that isn't
+  // specified here.  The following struct member case checks a special code
+  // path in the runtime implementation where members are transferred before
+  // deletion of the struct.
+  #pragma omp target exit data map(from: s.x, s.y)
+
+  // CHECK: s.x=11, s.y=21
+  printf("s.x=%d, s.y=%d\n", s.x, s.y);
+  // CHECK: present: 0
+  printf("present: %d\n", omp_target_is_present(&s, dev));
+
+  return 0;
+}