mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-21 18:29:46 +00:00
This adds two command line options: --symbols dumps a list of all symbols found in the PDB. --symbol-details dumps the same list, but with detailed information for every symbol such as type, attributes, etc. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@227286 91177308-0d34-0410-b5e6-96231b3b80d8
382 lines
12 KiB
C++
382 lines
12 KiB
C++
//===- llvm-pdbdump.cpp - Dump debug info from a PDB file -------*- C++ -*-===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// Dumps debug information present in PDB files. This utility makes use of
|
|
// the Microsoft Windows SDK, so will not compile or run on non-Windows
|
|
// platforms.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "llvm/ADT/ArrayRef.h"
|
|
#include "llvm/ADT/StringExtras.h"
|
|
#include "llvm/Support/CommandLine.h"
|
|
#include "llvm/Support/ConvertUTF.h"
|
|
#include "llvm/Support/Format.h"
|
|
#include "llvm/Support/ManagedStatic.h"
|
|
#include "llvm/Support/raw_ostream.h"
|
|
#include "llvm/Support/Process.h"
|
|
#include "llvm/Support/PrettyStackTrace.h"
|
|
#include "llvm/Support/Signals.h"
|
|
|
|
#include "llvm-pdbdump.h"
|
|
#include "COMExtras.h"
|
|
#include "DIAExtras.h"
|
|
#include "DIASymbol.h"
|
|
|
|
using namespace llvm;
|
|
using namespace llvm::sys::windows;
|
|
|
|
namespace opts {
|
|
cl::list<std::string> InputFilenames(cl::Positional,
|
|
cl::desc("<input PDB files>"),
|
|
cl::OneOrMore);
|
|
|
|
cl::opt<bool> Streams("streams", cl::desc("Display data stream information"));
|
|
cl::alias StreamsShort("x", cl::desc("Alias for --streams"),
|
|
cl::aliasopt(Streams));
|
|
|
|
cl::opt<bool> StreamData("stream-data",
|
|
cl::desc("Dumps stream record data as bytes"));
|
|
cl::alias StreamDataShort("X", cl::desc("Alias for --stream-data"),
|
|
cl::aliasopt(StreamData));
|
|
|
|
cl::opt<bool> Tables("tables",
|
|
cl::desc("Display summary information for all of the "
|
|
"debug tables in the input file"));
|
|
cl::alias TablesShort("t", cl::desc("Alias for --tables"),
|
|
cl::aliasopt(Tables));
|
|
|
|
cl::opt<bool> SourceFiles("source-files",
|
|
cl::desc("Display a list of the source files "
|
|
"contained in the PDB"));
|
|
cl::alias SourceFilesShort("f", cl::desc("Alias for --source-files"),
|
|
cl::aliasopt(SourceFiles));
|
|
|
|
cl::opt<bool> Compilands("compilands",
|
|
cl::desc("Display a list of compilands (e.g. object "
|
|
"files) and their source file composition"));
|
|
cl::alias CompilandsShort("c", cl::desc("Alias for --compilands"),
|
|
cl::aliasopt(Compilands));
|
|
|
|
cl::opt<bool> Symbols("symbols", cl::desc("Display symbols"));
|
|
cl::alias SymbolsShort("s", cl::desc("Alias for --symbols"),
|
|
cl::aliasopt(Symbols));
|
|
|
|
cl::opt<bool> SymbolDetails("symbol-details",
|
|
cl::desc("Display symbol details"));
|
|
cl::alias SymbolDetailsShort("S", cl::desc("Alias for --symbol-details"),
|
|
cl::aliasopt(SymbolDetails));
|
|
}
|
|
|
|
template <typename TableType>
|
|
static HRESULT getDIATable(IDiaSession *Session, TableType **Table) {
|
|
CComPtr<IDiaEnumTables> EnumTables = nullptr;
|
|
HRESULT Error = S_OK;
|
|
if (FAILED(Error = Session->getEnumTables(&EnumTables)))
|
|
return Error;
|
|
|
|
for (auto CurTable : make_com_enumerator(EnumTables)) {
|
|
TableType *ResultTable = nullptr;
|
|
if (FAILED(CurTable->QueryInterface(
|
|
__uuidof(TableType), reinterpret_cast<void **>(&ResultTable))))
|
|
continue;
|
|
|
|
*Table = ResultTable;
|
|
return S_OK;
|
|
}
|
|
return E_FAIL;
|
|
}
|
|
|
|
static void dumpBasicFileInfo(StringRef Path, IDiaSession *Session) {
|
|
CComPtr<IDiaSymbol> GlobalScope;
|
|
HRESULT hr = Session->get_globalScope(&GlobalScope);
|
|
DIASymbol GlobalScopeSymbol(GlobalScope);
|
|
if (S_OK == hr)
|
|
GlobalScopeSymbol.getSymbolsFileName().dump("File", 0);
|
|
else
|
|
outs() << "File: " << Path << "\n";
|
|
HANDLE FileHandle = ::CreateFile(
|
|
Path.data(), GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE, nullptr,
|
|
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, nullptr);
|
|
LARGE_INTEGER FileSize;
|
|
if (INVALID_HANDLE_VALUE != FileHandle) {
|
|
outs().indent(2);
|
|
if (::GetFileSizeEx(FileHandle, &FileSize))
|
|
outs() << "Size: " << FileSize.QuadPart << " bytes\n";
|
|
else
|
|
outs() << "Size: (Unable to obtain file size)\n";
|
|
FILETIME ModifiedTime;
|
|
outs().indent(2);
|
|
if (::GetFileTime(FileHandle, nullptr, nullptr, &ModifiedTime)) {
|
|
ULARGE_INTEGER TimeInteger;
|
|
TimeInteger.LowPart = ModifiedTime.dwLowDateTime;
|
|
TimeInteger.HighPart = ModifiedTime.dwHighDateTime;
|
|
llvm::sys::TimeValue Time;
|
|
Time.fromWin32Time(TimeInteger.QuadPart);
|
|
outs() << "Timestamp: " << Time.str() << "\n";
|
|
} else {
|
|
outs() << "Timestamp: (Unable to obtain time stamp)\n";
|
|
}
|
|
::CloseHandle(FileHandle);
|
|
}
|
|
|
|
if (S_OK == hr)
|
|
GlobalScopeSymbol.fullDump(2);
|
|
outs() << "\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpDataStreams(IDiaSession *Session) {
|
|
CComPtr<IDiaEnumDebugStreams> DebugStreams = nullptr;
|
|
if (FAILED(Session->getEnumDebugStreams(&DebugStreams)))
|
|
return;
|
|
|
|
LONG Count = 0;
|
|
if (FAILED(DebugStreams->get_Count(&Count)))
|
|
return;
|
|
outs() << "Data Streams [count=" << Count << "]\n";
|
|
|
|
std::string Name8;
|
|
|
|
for (auto Stream : make_com_enumerator(DebugStreams)) {
|
|
BSTR Name16;
|
|
if (FAILED(Stream->get_name(&Name16)))
|
|
continue;
|
|
if (BSTRToUTF8(Name16, Name8))
|
|
outs() << " " << Name8;
|
|
::SysFreeString(Name16);
|
|
if (FAILED(Stream->get_Count(&Count))) {
|
|
outs() << "\n";
|
|
continue;
|
|
}
|
|
|
|
outs() << " [" << Count << " records]\n";
|
|
if (opts::StreamData) {
|
|
int RecordIndex = 0;
|
|
for (auto StreamRecord : make_com_data_record_enumerator(Stream)) {
|
|
outs() << " Record " << RecordIndex << " [" << StreamRecord.size()
|
|
<< " bytes]";
|
|
for (uint8_t byte : StreamRecord) {
|
|
outs() << " " << llvm::format_hex_no_prefix(byte, 2, true);
|
|
}
|
|
outs() << "\n";
|
|
++RecordIndex;
|
|
}
|
|
}
|
|
}
|
|
outs() << "\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpDebugTables(IDiaSession *Session) {
|
|
CComPtr<IDiaEnumTables> EnumTables = nullptr;
|
|
if (SUCCEEDED(Session->getEnumTables(&EnumTables))) {
|
|
LONG Count = 0;
|
|
if (FAILED(EnumTables->get_Count(&Count)))
|
|
return;
|
|
|
|
outs() << "Debug Tables [count=" << Count << "]\n";
|
|
|
|
std::string Name8;
|
|
for (auto Table : make_com_enumerator(EnumTables)) {
|
|
BSTR Name16;
|
|
if (FAILED(Table->get_name(&Name16)))
|
|
continue;
|
|
if (BSTRToUTF8(Name16, Name8))
|
|
outs() << " " << Name8;
|
|
::SysFreeString(Name16);
|
|
if (SUCCEEDED(Table->get_Count(&Count))) {
|
|
outs() << " [" << Count << " items]\n";
|
|
} else
|
|
outs() << "\n";
|
|
}
|
|
}
|
|
outs() << "\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpSourceFiles(IDiaSession *Session) {
|
|
CComPtr<IDiaEnumSourceFiles> EnumSourceFileList;
|
|
if (FAILED(getDIATable(Session, &EnumSourceFileList)))
|
|
return;
|
|
|
|
LONG SourceFileCount = 0;
|
|
EnumSourceFileList->get_Count(&SourceFileCount);
|
|
|
|
outs() << "Dumping source files [" << SourceFileCount << " files]\n";
|
|
for (auto SourceFile : make_com_enumerator(EnumSourceFileList)) {
|
|
CComBSTR SourceFileName;
|
|
if (S_OK != SourceFile->get_fileName(&SourceFileName))
|
|
continue;
|
|
outs().indent(2);
|
|
std::string SourceFileName8;
|
|
BSTRToUTF8(SourceFileName, SourceFileName8);
|
|
outs() << SourceFileName8 << "\n";
|
|
}
|
|
outs() << "\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpCompilands(IDiaSession *Session) {
|
|
CComPtr<IDiaEnumSourceFiles> EnumSourceFileList;
|
|
if (FAILED(getDIATable(Session, &EnumSourceFileList)))
|
|
return;
|
|
|
|
LONG SourceFileCount = 0;
|
|
EnumSourceFileList->get_Count(&SourceFileCount);
|
|
|
|
CComPtr<IDiaSymbol> GlobalScope;
|
|
HRESULT hr = Session->get_globalScope(&GlobalScope);
|
|
DIASymbol GlobalScopeSymbol(GlobalScope);
|
|
if (S_OK != hr)
|
|
return;
|
|
|
|
CComPtr<IDiaEnumSymbols> EnumCompilands;
|
|
if (S_OK !=
|
|
GlobalScope->findChildren(SymTagCompiland, nullptr, nsNone,
|
|
&EnumCompilands))
|
|
return;
|
|
|
|
LONG CompilandCount = 0;
|
|
EnumCompilands->get_Count(&CompilandCount);
|
|
outs() << "Dumping compilands [" << CompilandCount
|
|
<< " compilands containing " << SourceFileCount << " source files]\n";
|
|
|
|
for (auto Compiland : make_com_enumerator(EnumCompilands)) {
|
|
DIASymbol CompilandSymbol(Compiland);
|
|
outs().indent(2);
|
|
outs() << CompilandSymbol.getName().value() << "\n";
|
|
|
|
CComPtr<IDiaEnumSourceFiles> EnumFiles;
|
|
if (S_OK != Session->findFile(Compiland, nullptr, nsNone, &EnumFiles))
|
|
continue;
|
|
|
|
for (auto SourceFile : make_com_enumerator(EnumFiles)) {
|
|
DWORD ChecksumType = 0;
|
|
DWORD ChecksumSize = 0;
|
|
std::vector<uint8_t> Checksum;
|
|
outs().indent(4);
|
|
SourceFile->get_checksumType(&ChecksumType);
|
|
if (S_OK == SourceFile->get_checksum(0, &ChecksumSize, nullptr)) {
|
|
Checksum.resize(ChecksumSize);
|
|
if (S_OK ==
|
|
SourceFile->get_checksum(ChecksumSize, &ChecksumSize,
|
|
&Checksum[0])) {
|
|
outs() << "[" << ((ChecksumType == HashMD5) ? "MD5 " : "SHA-1")
|
|
<< ": ";
|
|
for (auto byte : Checksum)
|
|
outs() << format_hex_no_prefix(byte, 2, true);
|
|
outs() << "] ";
|
|
}
|
|
}
|
|
CComBSTR SourceFileName;
|
|
if (S_OK != SourceFile->get_fileName(&SourceFileName))
|
|
continue;
|
|
|
|
std::string SourceFileName8;
|
|
BSTRToUTF8(SourceFileName, SourceFileName8);
|
|
outs() << SourceFileName8 << "\n";
|
|
}
|
|
}
|
|
|
|
outs() << "\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpSymbols(IDiaSession *Session) {
|
|
CComPtr<IDiaEnumSymbols> EnumSymbols;
|
|
if (FAILED(getDIATable(Session, &EnumSymbols)))
|
|
return;
|
|
|
|
LONG SymbolCount = 0;
|
|
EnumSymbols->get_Count(&SymbolCount);
|
|
|
|
outs() << "Dumping symbols [" << SymbolCount << " symbols]\n";
|
|
int UnnamedSymbolCount = 0;
|
|
for (auto Symbol : make_com_enumerator(EnumSymbols)) {
|
|
DIASymbol SymbolSymbol(Symbol);
|
|
DIAResult<DIAString> SymbolName = SymbolSymbol.getName();
|
|
if (!SymbolName.hasValue() || SymbolName.value().empty()) {
|
|
++UnnamedSymbolCount;
|
|
outs() << " (Unnamed symbol)\n";
|
|
} else {
|
|
outs() << " " << SymbolSymbol.getName().value() << "\n";
|
|
}
|
|
if (opts::SymbolDetails)
|
|
SymbolSymbol.fullDump(4);
|
|
}
|
|
outs() << "(Found " << UnnamedSymbolCount << " unnamed symbols)\n";
|
|
outs().flush();
|
|
}
|
|
|
|
static void dumpInput(StringRef Path) {
|
|
SmallVector<UTF16, 128> Path16String;
|
|
llvm::convertUTF8ToUTF16String(Path, Path16String);
|
|
wchar_t *Path16 = reinterpret_cast<wchar_t *>(Path16String.data());
|
|
CComPtr<IDiaDataSource> source;
|
|
HRESULT hr =
|
|
::CoCreateInstance(CLSID_DiaSource, nullptr, CLSCTX_INPROC_SERVER,
|
|
__uuidof(IDiaDataSource), (void **)&source);
|
|
if (FAILED(hr))
|
|
return;
|
|
if (FAILED(source->loadDataFromPdb(Path16)))
|
|
return;
|
|
CComPtr<IDiaSession> Session;
|
|
if (FAILED(source->openSession(&Session)))
|
|
return;
|
|
|
|
dumpBasicFileInfo(Path, Session);
|
|
if (opts::Streams || opts::StreamData) {
|
|
dumpDataStreams(Session);
|
|
}
|
|
|
|
if (opts::Tables) {
|
|
dumpDebugTables(Session);
|
|
}
|
|
|
|
if (opts::SourceFiles) {
|
|
dumpSourceFiles(Session);
|
|
}
|
|
|
|
if (opts::Compilands) {
|
|
dumpCompilands(Session);
|
|
}
|
|
|
|
if (opts::Symbols || opts::SymbolDetails) {
|
|
dumpSymbols(Session);
|
|
}
|
|
}
|
|
|
|
int main(int argc_, const char *argv_[]) {
|
|
// Print a stack trace if we signal out.
|
|
sys::PrintStackTraceOnErrorSignal();
|
|
PrettyStackTraceProgram X(argc_, argv_);
|
|
|
|
SmallVector<const char *, 256> argv;
|
|
llvm::SpecificBumpPtrAllocator<char> ArgAllocator;
|
|
std::error_code EC = llvm::sys::Process::GetArgumentVector(
|
|
argv, llvm::makeArrayRef(argv_, argc_), ArgAllocator);
|
|
if (EC) {
|
|
llvm::errs() << "error: couldn't get arguments: " << EC.message() << '\n';
|
|
return 1;
|
|
}
|
|
|
|
llvm_shutdown_obj Y; // Call llvm_shutdown() on exit.
|
|
|
|
cl::ParseCommandLineOptions(argv.size(), argv.data(), "LLVM PDB Dumper\n");
|
|
|
|
CoInitializeEx(nullptr, COINIT_MULTITHREADED);
|
|
|
|
std::for_each(opts::InputFilenames.begin(), opts::InputFilenames.end(),
|
|
dumpInput);
|
|
|
|
CoUninitialize();
|
|
return 0;
|
|
}
|