352d347aa5
Updated CMake files accordingly, using better regex Updated license headers to match new extension and fit within 80 columns Updated other comments within files that referred to the old extension Original-commit: flang-compiler/f18@ae7721e611 Reviewed-on: https://github.com/flang-compiler/f18/pull/958
43 lines
1.3 KiB
C++
43 lines
1.3 KiB
C++
//===-- tools/f18/dump.cpp ------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// This file defines Dump routines available for calling from the debugger.
|
|
// Each is based on operator<< for that type. There are overloadings for
|
|
// reference and pointer, and for dumping to a provided ostream or cerr.
|
|
|
|
#ifdef DEBUGF18
|
|
|
|
#include <iostream>
|
|
|
|
#define DEFINE_DUMP(ns, name) \
|
|
namespace ns { \
|
|
class name; \
|
|
std::ostream &operator<<(std::ostream &, const name &); \
|
|
} \
|
|
void Dump(std::ostream &os, const ns::name &x) { os << x << '\n'; } \
|
|
void Dump(std::ostream &os, const ns::name *x) { \
|
|
if (x == nullptr) \
|
|
os << "null\n"; \
|
|
else \
|
|
Dump(os, *x); \
|
|
} \
|
|
void Dump(const ns::name &x) { Dump(std::cerr, x); } \
|
|
void Dump(const ns::name *x) { Dump(std::cerr, *x); }
|
|
|
|
namespace Fortran {
|
|
DEFINE_DUMP(parser, Name)
|
|
DEFINE_DUMP(parser, CharBlock)
|
|
DEFINE_DUMP(semantics, Symbol)
|
|
DEFINE_DUMP(semantics, Scope)
|
|
DEFINE_DUMP(semantics, IntrinsicTypeSpec)
|
|
DEFINE_DUMP(semantics, DerivedTypeSpec)
|
|
DEFINE_DUMP(semantics, DeclTypeSpec)
|
|
}
|
|
|
|
#endif
|