[NFC][OpenMP] Remove unsused functions from DeviceRTL

These functions are not used by the Fortran compiler
and can be safely removed.

Author: DominikAdamski

offload/DeviceRTL/src/Kernel.cpp

@@ -153,60 +153,5 @@ void __kmpc_target_deinit() {
 
 void __kmpc_specialized_kernel_init() { mapping::init(/*IsSPMD=*/true); }
 
-#ifndef FORTRAN_NO_LONGER_NEEDS
-int32_t __kmpc_target_init_v1(int64_t *, int8_t Mode,
-                              int8_t UseGenericStateMachine,
-                              int8_t RequiresFullRuntime) {
-  KernelEnvironmentTy KE{{static_cast<uint8_t>(UseGenericStateMachine),
-                          /*MayUseNestedParallelism=*/1,
-                          static_cast<llvm::omp::OMPTgtExecModeFlags>(Mode)},
-                         /*Ident=*/nullptr,
-                         /*DebugIndentionLevel=*/0};
-  KernelLaunchEnvironmentTy KernelLaunchEnvironment;
-  int32_t res = __kmpc_target_init(KE, KernelLaunchEnvironment);
-  if (Mode & llvm::omp::OMP_TGT_EXEC_MODE_SPMD) {
-
-    uint32_t TId = mapping::getThreadIdInBlock();
-
-    uint32_t NThreadsICV = icv::NThreads;
-    uint32_t NumThreads = mapping::getNumberOfThreadsInBlock();
-
-    if (NThreadsICV != 0 && NThreadsICV < NumThreads)
-      NumThreads = NThreadsICV;
-
-    synchronize::threadsAligned(atomic::seq_cst);
-    if (TId == 0) {
-      // Note that the order here is important. `icv::Level` has to be updated
-      // last or the other updates will cause a thread specific state to be
-      // created.
-      state::ParallelTeamSize = NumThreads;
-      icv::ActiveLevel = 1u;
-      icv::Level = 1u;
-    }
-    synchronize::threadsAligned(atomic::seq_cst);
-  }
-  return res;
-}
-
-void __kmpc_target_deinit_v1(int64_t *, int8_t Mode,
-                             int8_t RequiresFullRuntime) {
-  uint32_t TId = mapping::getThreadIdInBlock();
-  synchronize::threadsAligned(atomic::seq_cst);
-
-  if (TId == 0) {
-    // Reverse order of deinitialization
-    icv::Level = 0u;
-    icv::ActiveLevel = 0u;
-    state::ParallelTeamSize = 1u;
-  }
-  // Synchronize all threads to make sure every thread exits the scope above;
-  // otherwise the following assertions and the assumption in
-  // __kmpc_target_deinit may not hold.
-  synchronize::threadsAligned(atomic::seq_cst);
-  __kmpc_target_deinit();
-}
-
-#endif
-
 int8_t __kmpc_is_spmd_exec_mode() { return mapping::isSPMDMode(); }
 }

offload/DeviceRTL/src/LibM.cpp

@@ -33,52 +33,6 @@ using size_t = decltype(sizeof(char));
 
 extern "C" {
 
-#ifndef FORTRAN_NO_LONGER_NEEDS
-// Attach Fortran runtimes which are used by Classic Flang
-double __f90_dmodulov(double a, double p) {
-  double d;
-  d = a - floor(a/p) * p;
-  return d;
-}
-
-float __f90_amodulov(float a, float p) { return __f90_dmodulov(a, p); }
-
-int32_t __f90_modulov(int32_t a, int32_t p) {
-  int32_t q, r;
-
-  q = a / p;
-  r = a - q * p;
-  if (r != 0 && (a ^ p) < 0) { /* signs differ */
-    r += p;
-  }
-  return r;
-}
-
-int64_t __f90_i8modulov_i8(int64_t a, int64_t p) {
-  int64_t q, r;
-
-  q = a / p;
-  r = a - q * p;
-  if (r != 0 && (a ^ p) < 0) { /* signs differ */
-    r += (p);
-  }
-  return r;
-}
-
-int16_t __f90_imodulov(int16_t a, int16_t p) {
-  int32_t q, r;
-
-  q = a / p;
-  r = a - q * p;
-  if (r != 0 && (a ^ p) < 0) { /* signs differ */
-    r += p;
-  }
-  return r;
-}
-}
-
-#endif
-
 #endif // __AMDGPU__
 
 #ifdef __NVPTX__

offload/DeviceRTL/src/Reduction.cpp

@@ -400,13 +400,6 @@ int32_t __kmpc_nvptx_teams_reduce_nowait_v2(
 
 void __kmpc_nvptx_end_reduce(int32_t TId) {}
 
-#ifndef FORTRAN_NO_LONGER_NEEDS
-int32_t __kmpc_nvptx_parallel_reduce_nowait_simple_spmd(
-    int32_t TId, int32_t num_vars, uint64_t reduce_size, void *reduce_data,
-    ShuffleReductFnTy shflFct, InterWarpCopyFnTy cpyFct) {
-  return nvptx_parallel_reduce_nowait(reduce_data, shflFct, cpyFct);
-}
-#endif
 void __kmpc_nvptx_end_reduce_nowait(int32_t TId) {}
 }
 

offload/DeviceRTL/src/Workshare.cpp

@@ -739,28 +739,6 @@ void __kmpc_distribute_static_init_8u(IdentTy *loc, int32_t global_tid,
 
 void __kmpc_for_static_fini(IdentTy *loc, int32_t global_tid) {}
 
-#ifndef FORTRAN_NO_LONGER_NEEDS
-void __kmpc_for_static_init_4_simple_spmd(int64_t *, int32_t global_tid,
-                                          int32_t schedtype, int32_t *plastiter,
-                                          int32_t *plower, int32_t *pupper,
-                                          int32_t *pstride, int32_t incr,
-                                          int32_t chunk) {
-
-  omptarget_nvptx_LoopSupport<int32_t, int32_t>::for_static_init(
-      global_tid, schedtype, plastiter, plower, pupper, pstride, chunk,
-      /*IsSPMDExecutionMode=*/true);
-}
-
-void __kmpc_for_static_init_8_simple_spmd(int64_t *, int32_t global_tid,
-                                          int32_t schedtype, int32_t *plastiter,
-                                          int64_t *plower, int64_t *pupper,
-                                          int64_t *pstride, int64_t incr,
-                                          int64_t chunk) {
-  omptarget_nvptx_LoopSupport<int64_t, int64_t>::for_static_init(
-      global_tid, schedtype, plastiter, plower, pupper, pstride, chunk,
-      /*IsSPMDExecutionMode=*/true);
-}
-#endif
 void __kmpc_distribute_static_fini(IdentTy *loc, int32_t global_tid) {}
 }