CFGcanon.cpp

Go to the documentation of this file.

/*
 * CFGcanon.cpp
 *
 * Created on: Aug 13, 2012
 * Author: utke
 */

#include "Fortran/CFGcanon.hpp"
#include "util/LogicException.hpp"

namespace rose2xaif {
 namespace fortran {

 void CFGcanon::collectLanguageSpecific(SgNode* node_p) {
 if (!node_p) {
 THROW_LOGICEXCEPTION_MACRO("CFGcanon::visit: NULL pointer passed");
 }
 if(SgFortranDo* anSgFortranDo_p=isSgFortranDo(node_p)) {
 // mySgScopeStatementSet.insert(anSgFortranDo_p);
 }
 }
 void CFGcanon::massageCFG(SgNode* node_p) {
 if (!node_p) {
 THROW_LOGICEXCEPTION_MACRO("CFGcanon::visit: NULL pointer passed");
 }
 if(SgFunctionDefinition* anSgFunctionDefinition_p=isSgFunctionDefinition(node_p)) {
 if (isSgProcedureHeaderStatement(anSgFunctionDefinition_p->get_parent())->isSubroutine()) {
 SgStatementPtrList& stmts=anSgFunctionDefinition_p->get_body()->get_statements();
 if (stmts.rbegin()!=stmts.rend() && isSgReturnStmt(*(stmts.rbegin()))) {
 stmts.pop_back(); // remove trailing return
 }
 }
 }
 }
 }
}