================
@@ -88,6 +91,175 @@ void gatherFuncAndVarSyms(
symbolAndClause.emplace_back(clause, *object.id());
}
+int getComponentPlacementInParent(
+ const Fortran::semantics::Symbol *componentSym) {
+ const auto *derived =
+ componentSym->owner()
+ .derivedTypeSpec()
+ ->typeSymbol()
+ .detailsIf<Fortran::semantics::DerivedTypeDetails>();
+ assert(derived &&
+ "expected derived type details when processing component symbol");
+ int placement = 0;
+ for (auto t : derived->componentNames()) {
+ if (t == componentSym->name())
+ return placement;
+ placement++;
+ }
+ return -1;
+}
+
+std::optional<Object>
+getCompObjOrNull(std::optional<Object> object,
----------------
skatrak wrote:
```suggestion
getComponentObject(std::optional<Object> object,
```
https://github.com/llvm/llvm-project/pull/82853
_______________________________________________
llvm-branch-commits mailing list
llvm-branch-commits@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-branch-commits
