[flang] Fix debug-parser.h after recent merge.

Original-commit: flang-compiler/f18@97b6df606c4add591c212ff4b8aa5f4b8e3de765
Reviewed-on: https://github.com/flang-compiler/f18/pull/38
Tree-same-pre-rewrite: false

diff --git a/flang/lib/parser/debug-parser.h b/flang/lib/parser/debug-parser.h
index f474a8c..0ff96c4 100644 (file)
--- a/flang/lib/parser/debug-parser.h
+++ b/flang/lib/parser/debug-parser.h
@@ -22,11 +22,12 @@ public:
   constexpr DebugParser(const char *str, std::size_t n)
     : str_{str}, length_{n} {}
   std::optional<Success> Parse(ParseState *state) const {
+    const CookedSource &cooked{state->messages()->cooked()};
     if (auto context = state->context()) {
-      context->Emit(std::cout, *state->cooked().allSources());
+      context->Emit(std::cout, cooked);
     }
-    state->cooked().allSources()->Identify(
-        std::cout, state->GetProvenance(), "");
+    Provenance p{cooked.GetProvenance(state->GetLocation()).start()};
+    cooked.allSources().Identify(std::cout, p, "");
     std::cout << "   parser debug: " << std::string{str_, length_} << '\n';
     return {Success{}};
   }