3bca5d088e
Original-commit: flang-compiler/f18@1836cd5d06 Reviewed-on: https://github.com/flang-compiler/f18/pull/9 Tree-same-pre-rewrite: false
20 lines
430 B
C++
20 lines
430 B
C++
#include "message.h"
|
|
|
|
namespace Fortran {
|
|
namespace parser {
|
|
|
|
void Message::Emit(std::ostream &o, const AllSources &sources) const {
|
|
if (context_) {
|
|
context_->Emit(o, sources);
|
|
}
|
|
sources.Identify(o, provenance_, "");
|
|
o << " " << message_ << '\n';
|
|
}
|
|
|
|
void Messages::Emit(std::ostream &o) const {
|
|
for (const auto &msg : messages_) {
|
|
msg.Emit(o, allSources_);
|
|
}
|
|
}
|
|
} // namespace parser
|
|
} // namespace Fortran
|