Lines Matching defs:pft
147 explicit ConstructContext(Fortran::lower::pft::Evaluation &eval,
151 Fortran::lower::pft::Evaluation &eval; // construct eval
385 void run(Fortran::lower::pft::Program &pft) {
391 lowerCommonBlocks(pft.getCommonBlocks());
399 for (Fortran::lower::pft::Program::Units &u : pft.getUnits()) {
402 [&](Fortran::lower::pft::FunctionLikeUnit &f) {
409 [&](Fortran::lower::pft::ModuleLikeUnit &m) {
411 for (Fortran::lower::pft::ContainedUnit &unit :
414 std::get_if<Fortran::lower::pft::FunctionLikeUnit>(
418 [&](Fortran::lower::pft::BlockDataUnit &b) {
422 [&](Fortran::lower::pft::CompilerDirectiveUnit &d) {},
423 [&](Fortran::lower::pft::OpenACCDirectiveUnit &d) {},
430 [&]() { createIntrinsicModuleDefinitions(pft); });
433 for (Fortran::lower::pft::Program::Units &u : pft.getUnits()) {
436 [&](Fortran::lower::pft::FunctionLikeUnit &f) { lowerFunc(f); },
437 [&](Fortran::lower::pft::ModuleLikeUnit &m) { lowerMod(m); },
438 [&](Fortran::lower::pft::BlockDataUnit &b) {},
439 [&](Fortran::lower::pft::CompilerDirectiveUnit &d) {},
440 [&](Fortran::lower::pft::OpenACCDirectiveUnit &d) {
472 void declareFunction(Fortran::lower::pft::FunctionLikeUnit &funit) {
491 for (Fortran::lower::pft::ContainedUnit &unit : funit.containedUnitList)
492 if (auto *f = std::get_if<Fortran::lower::pft::FunctionLikeUnit>(&unit))
497 for (Fortran::lower::pft::ContainedUnit &unit : funit.containedUnitList)
498 if (auto *f = std::get_if<Fortran::lower::pft::FunctionLikeUnit>(&unit))
519 Fortran::lower::pft::FunctionLikeUnit &funit,
552 Fortran::lower::pft::visitAllSymbols(funit, addToListIfEscapee);
628 Fortran::lower::pft::LabelSet &labelSet) override final {
629 Fortran::lower::pft::FunctionLikeUnit &owningProc =
638 Fortran::lower::pft::Evaluation *
639 lookupLabel(Fortran::lower::pft::Label label) override final {
640 Fortran::lower::pft::FunctionLikeUnit &owningProc =
686 mlir::Type genType(const Fortran::lower::pft::Variable &var) override final {
932 void genEval(Fortran::lower::pft::Evaluation &eval,
942 Fortran::lower::pft::Evaluation &eval,
960 Fortran::lower::pft::visitAllSymbols(eval, addToList);
1087 const Fortran::lower::pft::FunctionLikeUnit *
1417 Fortran::lower::pft::Evaluation &evalOfLabel(Fortran::parser::Label label) {
1418 const Fortran::lower::pft::LabelEvalMap &labelEvaluationMap =
1440 Fortran::lower::pft::Evaluation *trueTarget,
1441 Fortran::lower::pft::Evaluation *falseTarget) {
1453 Fortran::lower::pft::Evaluation *trueTarget,
1454 Fortran::lower::pft::Evaluation *falseTarget) {
1463 Fortran::lower::pft::Evaluation *
1464 getActiveAncestor(const Fortran::lower::pft::Evaluation &eval) {
1465 Fortran::lower::pft::Evaluation *ancestor = eval.parentConstruct;
1473 bool hasExitCode(const Fortran::lower::pft::Evaluation &targetEval) {
1474 Fortran::lower::pft::Evaluation *activeAncestor =
1490 genConstructExitBranch(const Fortran::lower::pft::Evaluation &targetEval) {
1491 Fortran::lower::pft::Evaluation *activeAncestor =
1515 Fortran::lower::pft::Evaluation &construct,
1516 llvm::SmallVector<Fortran::lower::pft::Evaluation *> &exits,
1517 llvm::SmallVector<Fortran::lower::pft::Evaluation *> &fallThroughs) {
1518 Fortran::lower::pft::EvaluationList &nested =
1523 Fortran::lower::pft::Evaluation *exit = construct.constructExit;
1524 Fortran::lower::pft::Evaluation *previous = &nested.front();
1567 const Fortran::lower::pft::Evaluation &defaultEval,
1639 const Fortran::lower::pft::Evaluation &targetEval =
1659 void pushActiveConstruct(Fortran::lower::pft::Evaluation &eval,
1757 void genFIRProcedureExit(Fortran::lower::pft::FunctionLikeUnit &funit,
1811 Fortran::lower::pft::Evaluation &eval = getEval();
1852 Fortran::lower::pft::Evaluation &eval = getEval();
1886 const Fortran::lower::pft::LabelEvalMap &labelEvaluationMap =
1899 Fortran::lower::pft::Evaluation &eval = getEval();
1900 Fortran::lower::pft::FunctionLikeUnit &owningProc =
1902 const Fortran::lower::pft::SymbolLabelMap &symbolLabelMap =
1904 const Fortran::lower::pft::LabelEvalMap &labelEvalMap =
2048 Fortran::lower::pft::Evaluation &eval = getEval();
2050 Fortran::lower::pft::Evaluation &doStmtEval =
2136 Fortran::lower::pft::Evaluation &endDoEval = *iter;
2441 Fortran::lower::pft::Evaluation &eval = getEval();
2446 for (Fortran::lower::pft::Evaluation &e : eval.getNestedEvaluations()) {
2448 Fortran::lower::pft::Evaluation &succ = *e.controlSuccessor;
2479 llvm::SmallVector<Fortran::lower::pft::Evaluation *> exits, fallThroughs;
2482 for (Fortran::lower::pft::Evaluation &e : eval.getNestedEvaluations()) {
2513 Fortran::lower::pft::Evaluation &eval = getEval();
2517 llvm::SmallVector<Fortran::lower::pft::Evaluation *> exits, fallThroughs;
2520 for (Fortran::lower::pft::Evaluation &e : eval.getNestedEvaluations()) {
2843 Fortran::lower::pft::Evaluation *e) {
2852 Fortran::lower::pft::Evaluation &eval = getEval();
2877 Fortran::lower::pft::Evaluation *curEval = &getEval();
2903 for (Fortran::lower::pft::Evaluation &e : curEval->getNestedEvaluations())
2909 Fortran::lower::pft::FunctionLikeUnit *funit =
2924 for (Fortran::lower::pft::Evaluation &e : getEval().getNestedEvaluations())
3052 Fortran::lower::pft::Evaluation *loopEval =
3108 Fortran::lower::pft::Evaluation *crtEval = &getEval();
3128 for (Fortran::lower::pft::Evaluation &e : crtEval->getNestedEvaluations())
3165 Fortran::lower::pft::Evaluation &eval = getEval();
3166 Fortran::lower::pft::Evaluation *parentConstruct = eval.parentConstruct;
3221 for (Fortran::lower::pft::Evaluation *e = eval.controlSuccessor; e;
3340 Fortran::lower::pft::Evaluation &eval = getEval();
3343 for (Fortran::lower::pft::Evaluation &e : eval.getNestedEvaluations()) {
3369 Fortran::lower::pft::Evaluation &eval = getEval();
3372 for (Fortran::lower::pft::Evaluation &e : eval.getNestedEvaluations()) {
3388 for (const Fortran::lower::pft::Variable &var :
3389 Fortran::lower::pft::getScopeVariableList(scope)) {
3441 Fortran::lower::pft::Evaluation &eval = getEval();
3446 for (Fortran::lower::pft::Evaluation *e = eval.controlSuccessor; e;
3647 llvm::SmallVector<Fortran::lower::pft::Evaluation *> exits, fallThroughs;
3649 Fortran::lower::pft::Evaluation &constructExit = *getEval().constructExit;
3651 for (Fortran::lower::pft::Evaluation &eval :
3669 for (Fortran::lower::pft::Evaluation *e = eval.controlSuccessor; e;
3908 void genIoConditionBranches(Fortran::lower::pft::Evaluation &eval,
5109 Fortran::lower::pft::FunctionLikeUnit *funit =
5192 void genFIR(Fortran::lower::pft::Evaluation &eval,
5215 void mapDummiesAndResults(Fortran::lower::pft::FunctionLikeUnit &funit,
5260 void instantiateVar(const Fortran::lower::pft::Variable &var,
5269 void manageFPEnvironment(Fortran::lower::pft::FunctionLikeUnit &funit) {
5272 toLocation(Fortran::lower::pft::stmtSourceLoc(funit.endStmt));
5338 void startNewFunction(Fortran::lower::pft::FunctionLikeUnit &funit) {
5353 if (funit.parent.isA<Fortran::lower::pft::FunctionLikeUnit>()) {
5379 llvm::SmallVector<Fortran::lower::pft::Variable> deferredFuncResultList;
5396 Fortran::lower::pft::getScopeVariableListMap(funit);
5399 for (const auto &var : Fortran::lower::pft::getScopeVariableList(
5406 for (const Fortran::lower::pft::Variable &var :
5407 Fortran::lower::pft::getScopeVariableList(scope)) {
5438 for (const Fortran::lower::pft::Variable &altResult :
5512 if (Fortran::lower::pft::Evaluation *alternateEntryEval =
5528 std::list<Fortran::lower::pft::Evaluation> &evaluationList) {
5530 for (Fortran::lower::pft::Evaluation &eval : evaluationList) {
5538 Fortran::lower::pft::Evaluation &constructStmt =
5586 void endNewFunction(Fortran::lower::pft::FunctionLikeUnit &funit) {
5587 setCurrentPosition(Fortran::lower::pft::stmtSourceLoc(funit.endStmt));
5642 void lowerBlockData(Fortran::lower::pft::BlockDataUnit &bdunit) {
5647 Fortran::lower::pft::Variable var(*sym, true);
5662 void createIntrinsicModuleDefinitions(Fortran::lower::pft::Program &pft) {
5665 for (Fortran::lower::pft::Program::Units &u : pft.getUnits()) {
5668 [&](Fortran::lower::pft::FunctionLikeUnit &f) {
5671 [&](Fortran::lower::pft::ModuleLikeUnit &m) {
5674 [&](Fortran::lower::pft::BlockDataUnit &b) {},
5675 [&](Fortran::lower::pft::CompilerDirectiveUnit &d) {},
5676 [&](Fortran::lower::pft::OpenACCDirectiveUnit &d) {},
5692 for (auto &var : Fortran::lower::pft::getScopeVariableList(scope)) {
5705 void lowerFunc(Fortran::lower::pft::FunctionLikeUnit &funit) {
5712 for (Fortran::lower::pft::Evaluation &eval : funit.evaluationList)
5718 for (Fortran::lower::pft::ContainedUnit &unit : funit.containedUnitList)
5719 if (auto *f = std::get_if<Fortran::lower::pft::FunctionLikeUnit>(&unit))
5725 void lowerModuleDeclScope(Fortran::lower::pft::ModuleLikeUnit &mod) {
5729 Fortran::lower::pft::getScopeVariableListMap(mod);
5730 for (const auto &var : Fortran::lower::pft::getScopeVariableList(
5743 void lowerMod(Fortran::lower::pft::ModuleLikeUnit &mod) {
5744 for (Fortran::lower::pft::ContainedUnit &unit : mod.containedUnitList)
5745 if (auto *f = std::get_if<Fortran::lower::pft::FunctionLikeUnit>(&unit))
5773 void setCurrentEval(Fortran::lower::pft::Evaluation &eval) {
5776 Fortran::lower::pft::Evaluation &getEval() {
6081 void setCurrentFunctionUnit(Fortran::lower::pft::FunctionLikeUnit *unit) {
6090 Fortran::lower::pft::Evaluation *evalPtr = nullptr;
6091 Fortran::lower::pft::FunctionLikeUnit *currentFunctionUnit = nullptr;
6178 std::unique_ptr<Fortran::lower::pft::Program> pft =
6181 Fortran::lower::dumpPFT(llvm::errs(), *pft);
6183 converter.run(*pft);