예제 #1
0
//========================================================================================
// R560 implicit-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_ImplicitStmt(ImplicitStmt * implicitStmt)
{
#if 0
   Sg_File_Info * start = NULL;
   SgUntypedImplicitDeclaration * stmt = NULL;

   switch (implicitStmt->getOptionType()) {
     case ImplicitStmt::ImplicitStmt_NONE:
        stmt = new SgUntypedImplicitDeclaration(start);
#if UNPARSER_AVAILABLE
        stmt->set_has_unparse(true);
#endif
        stmt->set_statement_enum(SgToken::FORTRAN_IMPLICIT_NONE);
        if (implicitStmt->getLabel()) stmt->set_label_string(implicitStmt->getLabel()->getValue());

#ifdef OFP_BUILD_DEBUG
        printf("build_ImplicitStmt: NONE ...........\n");
#endif
        break;
     default:
        //TODO-CER- fix this cons call
        //stmt = new SgUntypedImplicitStatement(start, false);
#ifdef OFP_BUILD_DEBUG
        printf("build_ImplicitStmt: ISL  ...........\n");
#endif
        break;
   }

   implicitStmt->setPayload(stmt);
#endif
}
예제 #2
0
//========================================================================================
// R560 implicit-stmt
//----------------------------------------------------------------------------------------
void UntypedASTBuilder::build_ImplicitStmt(ImplicitStmt * implicitStmt)
{
   Sg_File_Info * start = NULL;
   SgUntypedImplicitDeclaration * stmt = NULL;

   switch (implicitStmt->getOptionType()) {
     case ImplicitStmt::ImplicitStmt_NONE:
        stmt = new SgUntypedImplicitDeclaration(start);
        stmt->set_statement_enum(SgToken::FORTRAN_IMPLICIT_NONE);
        if (implicitStmt->getLabel()) stmt->set_label_string(implicitStmt->getLabel()->getValue());

        printf("build_ImplicitStmt: NONE .........\n");
        break;
     case ImplicitStmt::ImplicitStmt_ISL:
        //TODO-CER- fix this cons call
        //stmt = new SgUntypedImplicitStatement(start, false);
        printf("build_ImplicitStmt: ISL  .........\n");
        break;
   }

   implicitStmt->setPayload(stmt);
}