fix call

clementval · clementval · commit be6734745eba · 2024-10-30T14:08:23.000-07:00
diff --git a/flang/runtime/CUDA/allocatable.cpp b/flang/runtime/CUDA/allocatable.cpp
@@ -38,6 +38,7 @@ int RTDEF(CUFAllocatableAllocate)(Descriptor &desc, bool hasStat,
   if (stat == StatOk) {
     void *deviceAddr{
         RTNAME(CUFGetDeviceAddress)((void *)&desc, sourceFile, sourceLine)};
+    printf("Addresses: host %p device %p", &desc, deviceAddr);
     RTNAME(CUFDescriptorSync)
     ((Descriptor *)deviceAddr, &desc, sourceFile, sourceLine);
   }
diff --git a/flang/runtime/CUDA/memory.cpp b/flang/runtime/CUDA/memory.cpp
@@ -121,7 +121,7 @@ void RTDECL(CUFDataTransferDescDesc)(Descriptor *dstDesc, Descriptor *srcDesc,
     memmoveFct = &MemmoveDeviceToDevice;
   }
   Fortran::runtime::Assign(
-      dstDesc, srcDesc, terminator, MaybeReallocate, memmoveFct);
+      *dstDesc, *srcDesc, terminator, MaybeReallocate, memmoveFct);
 }
 }
 } // namespace Fortran::runtime::cuda

Original file line number	Diff line number	Diff line change
`@@ -38,6 +38,7 @@ int RTDEF(CUFAllocatableAllocate)(Descriptor &desc, bool hasStat,`
`38`	`38`	`if (stat == StatOk) {`
`39`	`39`	`void *deviceAddr{`
`40`	`40`	`RTNAME(CUFGetDeviceAddress)((void *)&desc, sourceFile, sourceLine)};`
	`41`	`+ printf("Addresses: host %p device %p", &desc, deviceAddr);`
`41`	`42`	`RTNAME(CUFDescriptorSync)`
`42`	`43`	`((Descriptor *)deviceAddr, &desc, sourceFile, sourceLine);`
`43`	`44`	`}`
Original file line number	Diff line number	Diff line change
`@@ -121,7 +121,7 @@ void RTDECL(CUFDataTransferDescDesc)(Descriptor dstDesc, Descriptor srcDesc,`
`121`	`121`	`memmoveFct = &MemmoveDeviceToDevice;`
`122`	`122`	`}`
`123`	`123`	`Fortran::runtime::Assign(`
`124`		`- dstDesc, srcDesc, terminator, MaybeReallocate, memmoveFct);`
	`124`	`+ dstDesc, srcDesc, terminator, MaybeReallocate, memmoveFct);`
`125`	`125`	`}`
`126`	`126`	`}`
`127`	`127`	`} // namespace Fortran::runtime::cuda`