//========================================================================================
// 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
}
//========================================================================================
// 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);
}