================
@@ -292,7 +298,19 @@ createTargetMachine(llvm::StringRef targetTriple,
std::string &error) {
static llvm::LogicalResult runOpenMPPasses(mlir::ModuleOp mlirModule) {
mlir::PassManager pm(mlirModule->getName(),
mlir::OpPassManager::Nesting::Implicit);
- fir::createOpenMPFIRPassPipeline(pm, enableOpenMPDevice);
+ using DoConcurrentMappingKind =
+ Fortran::frontend::CodeGenOptions::DoConcurrentMappingKind;
+
+ fir::OpenMPFIRPassPipelineOpts opts;
+ opts.isTargetDevice = enableOpenMPDevice;
+ opts.doConcurrentMappingKind =
+ llvm::StringSwitch<DoConcurrentMappingKind>(
+ enableDoConcurrentToOpenMPConversion)
+ .Case("host", DoConcurrentMappingKind::DCMK_Host)
+ .Case("device", DoConcurrentMappingKind::DCMK_Device)
+ .Default(DoConcurrentMappingKind::DCMK_None);
+
----------------
ergawy wrote:
This is inside `runOpenMPPasses` which is called only when openmp is enabled.
We can move this outside and trigger a warning when the pass is enabled without
openmp being enabled but since `bbc` is a testing tool and not user-facing, I
don't know if this is needed.
https://github.com/llvm/llvm-project/pull/126026
_______________________________________________
cfe-commits mailing list
cfe-commits@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits
