[flang] checkpoint

Original-commit: flang-compiler/f18@1e213f3fbe
Reviewed-on: https://github.com/flang-compiler/f18/pull/346
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2019-03-20 13:11:49 -07:00
parent afd0c19fec
commit c090abef3b
2 changed files with 4 additions and 3 deletions

View File

@ -61,8 +61,8 @@ bool DummyProcedure::operator==(const DummyProcedure &that) const {
std::ostream &DummyProcedure::Dump(std::ostream &o) const {
attrs.Dump(o, EnumToString);
if (explicitProcedure.has_value()) {
explicitProcedure.value().Dump(o);
if (explicitProcedure) {
explicitProcedure->Dump(o);
}
return o;
}
@ -98,5 +98,6 @@ std::ostream &Procedure::Dump(std::ostream &o) const {
}
return o << (sep == '(' ? "()" : ")");
}
DEFINE_DEFAULT_CONSTRUCTORS_AND_ASSIGNMENTS(DummyProcedure)
}
DEFINE_DELETER(Fortran::evaluate::characteristics::Procedure)

View File

@ -53,7 +53,7 @@ struct DummyDataObject {
// 15.3.2.3
struct DummyProcedure {
ENUM_CLASS(Attr, Pointer, Optional)
DEFAULT_CONSTRUCTORS_AND_ASSIGNMENTS(DummyProcedure)
DECLARE_CONSTRUCTORS_AND_ASSIGNMENTS(DummyProcedure)
std::unique_ptr<Procedure, common::Deleter<Procedure>> explicitProcedure;
common::EnumSet<Attr, 32> attrs;
bool operator==(const DummyProcedure &) const;