1 //===- PDBExtras.cpp - helper functions and classes for PDBs -----*- C++-*-===// 2 // 3 // The LLVM Compiler Infrastructure 4 // 5 // This file is distributed under the University of Illinois Open Source 6 // License. See LICENSE.TXT for details. 7 // 8 //===----------------------------------------------------------------------===// 9 10 #include "llvm/DebugInfo/PDB/PDBExtras.h" 11 12 #include "llvm/ADT/ArrayRef.h" 13 14 using namespace llvm; 15 16 #define CASE_OUTPUT_ENUM_CLASS_STR(Class, Value, Str, Stream) \ 17 case Class::Value: \ 18 Stream << Str; \ 19 break; 20 21 #define CASE_OUTPUT_ENUM_CLASS_NAME(Class, Value, Stream) \ 22 CASE_OUTPUT_ENUM_CLASS_STR(Class, Value, #Value, Stream) 23 24 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_VariantType &Type) { 25 switch (Type) { 26 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Bool, OS) 27 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Single, OS) 28 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Double, OS) 29 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Int8, OS) 30 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Int16, OS) 31 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Int32, OS) 32 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, Int64, OS) 33 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, UInt8, OS) 34 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, UInt16, OS) 35 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, UInt32, OS) 36 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_VariantType, UInt64, OS) 37 default: 38 OS << "Unknown"; 39 } 40 return OS; 41 } 42 43 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_CallingConv &Conv) { 44 OS << "__"; 45 switch (Conv) { 46 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearC , "cdecl", OS) 47 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, FarC , "cdecl", OS) 48 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearPascal , "pascal", OS) 49 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, FarPascal , "pascal", OS) 50 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearFast , "fastcall", OS) 51 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, FarFast , "fastcall", OS) 52 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearStdCall, "stdcall", OS) 53 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, FarStdCall , "stdcall", OS) 54 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearSysCall, "syscall", OS) 55 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, FarSysCall , "syscall", OS) 56 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, ThisCall , "thiscall", OS) 57 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, MipsCall , "mipscall", OS) 58 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, Generic , "genericcall", OS) 59 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, AlphaCall , "alphacall", OS) 60 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, PpcCall , "ppccall", OS) 61 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, SHCall , "superhcall", OS) 62 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, ArmCall , "armcall", OS) 63 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, AM33Call , "am33call", OS) 64 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, TriCall , "tricall", OS) 65 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, SH5Call , "sh5call", OS) 66 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, M32RCall , "m32rcall", OS) 67 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, ClrCall , "clrcall", OS) 68 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, Inline , "inlinecall", OS) 69 CASE_OUTPUT_ENUM_CLASS_STR(PDB_CallingConv, NearVector , "vectorcall", OS) 70 } 71 return OS; 72 } 73 74 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_DataKind &Data) { 75 switch (Data) { 76 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Unknown, "unknown", OS) 77 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Local, "local", OS) 78 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, StaticLocal, "static local", OS) 79 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Param, "param", OS) 80 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, ObjectPtr, "this ptr", OS) 81 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, FileStatic, "static global", OS) 82 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Global, "global", OS) 83 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Member, "member", OS) 84 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, StaticMember, "static member", OS) 85 CASE_OUTPUT_ENUM_CLASS_STR(PDB_DataKind, Constant, "const", OS) 86 } 87 return OS; 88 } 89 90 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_RegisterId &Reg) { 91 switch (Reg) { 92 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, AL, OS) 93 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, CL, OS) 94 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, DL, OS) 95 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, BL, OS) 96 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, AH, OS) 97 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, CH, OS) 98 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, DH, OS) 99 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, BH, OS) 100 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, AX, OS) 101 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, CX, OS) 102 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, DX, OS) 103 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, BX, OS) 104 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, SP, OS) 105 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, BP, OS) 106 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, SI, OS) 107 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, DI, OS) 108 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, EAX, OS) 109 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, ECX, OS) 110 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, EDX, OS) 111 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, EBX, OS) 112 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, ESP, OS) 113 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, EBP, OS) 114 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, ESI, OS) 115 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, EDI, OS) 116 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, ES, OS) 117 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, CS, OS) 118 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, SS, OS) 119 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, DS, OS) 120 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, FS, OS) 121 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, GS, OS) 122 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, IP, OS) 123 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RAX, OS) 124 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RBX, OS) 125 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RCX, OS) 126 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RDX, OS) 127 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RSI, OS) 128 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RDI, OS) 129 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RBP, OS) 130 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, RSP, OS) 131 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R8, OS) 132 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R9, OS) 133 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R10, OS) 134 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R11, OS) 135 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R12, OS) 136 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R13, OS) 137 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R14, OS) 138 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_RegisterId, R15, OS) 139 default: 140 OS << static_cast<int>(Reg); 141 } 142 return OS; 143 } 144 145 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_LocType &Loc) { 146 switch (Loc) { 147 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, Static, "static", OS) 148 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, TLS, "tls", OS) 149 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, RegRel, "regrel", OS) 150 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, ThisRel, "thisrel", OS) 151 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, Enregistered, "register", OS) 152 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, BitField, "bitfield", OS) 153 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, Slot, "slot", OS) 154 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, IlRel, "IL rel", OS) 155 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, MetaData, "metadata", OS) 156 CASE_OUTPUT_ENUM_CLASS_STR(PDB_LocType, Constant, "constant", OS) 157 default: 158 OS << "Unknown"; 159 } 160 return OS; 161 } 162 163 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_ThunkOrdinal &Thunk) { 164 switch (Thunk) { 165 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, BranchIsland, OS) 166 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, Pcode, OS) 167 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, Standard, OS) 168 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, ThisAdjustor, OS) 169 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, TrampIncremental, OS) 170 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, UnknownLoad, OS) 171 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_ThunkOrdinal, Vcall, OS) 172 } 173 return OS; 174 } 175 176 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_Checksum &Checksum) { 177 switch (Checksum) { 178 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Checksum, None, OS) 179 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Checksum, MD5, OS) 180 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Checksum, SHA1, OS) 181 } 182 return OS; 183 } 184 185 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_Lang &Lang) { 186 switch (Lang) { 187 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, C, OS) 188 CASE_OUTPUT_ENUM_CLASS_STR(PDB_Lang, Cpp, "C++", OS) 189 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Fortran, OS) 190 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Masm, OS) 191 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Pascal, OS) 192 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Basic, OS) 193 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Cobol, OS) 194 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Link, OS) 195 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Cvtres, OS) 196 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Cvtpgd, OS) 197 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, CSharp, OS) 198 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, VB, OS) 199 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, ILAsm, OS) 200 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, Java, OS) 201 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, JScript, OS) 202 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, MSIL, OS) 203 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_Lang, HLSL, OS) 204 } 205 return OS; 206 } 207 208 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_SymType &Tag) { 209 switch (Tag) { 210 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Exe, OS) 211 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Compiland, OS) 212 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, CompilandDetails, OS) 213 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, CompilandEnv, OS) 214 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Function, OS) 215 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Block, OS) 216 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Data, OS) 217 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Annotation, OS) 218 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Label, OS) 219 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, PublicSymbol, OS) 220 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, UDT, OS) 221 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Enum, OS) 222 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, FunctionSig, OS) 223 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, PointerType, OS) 224 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, ArrayType, OS) 225 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, BuiltinType, OS) 226 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Typedef, OS) 227 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, BaseClass, OS) 228 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Friend, OS) 229 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, FunctionArg, OS) 230 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, FuncDebugStart, OS) 231 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, FuncDebugEnd, OS) 232 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, UsingNamespace, OS) 233 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, VTableShape, OS) 234 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, VTable, OS) 235 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Custom, OS) 236 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Thunk, OS) 237 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, CustomType, OS) 238 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, ManagedType, OS) 239 CASE_OUTPUT_ENUM_CLASS_NAME(PDB_SymType, Dimension, OS) 240 default: 241 OS << "Unknown"; 242 } 243 return OS; 244 } 245 246 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_MemberAccess &Access) { 247 switch (Access) { 248 CASE_OUTPUT_ENUM_CLASS_STR(PDB_MemberAccess, Public, "public", OS) 249 CASE_OUTPUT_ENUM_CLASS_STR(PDB_MemberAccess, Protected, "protected", OS) 250 CASE_OUTPUT_ENUM_CLASS_STR(PDB_MemberAccess, Private, "private", OS) 251 } 252 return OS; 253 } 254 255 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_UdtType &Type) { 256 switch (Type) { 257 CASE_OUTPUT_ENUM_CLASS_STR(PDB_UdtType, Class, "class", OS) 258 CASE_OUTPUT_ENUM_CLASS_STR(PDB_UdtType, Struct, "struct", OS) 259 CASE_OUTPUT_ENUM_CLASS_STR(PDB_UdtType, Interface, "interface", OS) 260 CASE_OUTPUT_ENUM_CLASS_STR(PDB_UdtType, Union, "union", OS) 261 } 262 return OS; 263 } 264 265 raw_ostream &llvm::operator<<(raw_ostream &OS, const PDB_UniqueId &Id) { 266 static const char *Lookup = "0123456789ABCDEF"; 267 268 static_assert(sizeof(PDB_UniqueId) == 16, "Expected 16-byte GUID"); 269 ArrayRef<uint8_t> GuidBytes(reinterpret_cast<const uint8_t*>(&Id), 16); 270 OS << "{"; 271 for (int i=0; i < 16;) { 272 uint8_t Byte = GuidBytes[i]; 273 uint8_t HighNibble = (Byte >> 4) & 0xF; 274 uint8_t LowNibble = Byte & 0xF; 275 OS << Lookup[HighNibble] << Lookup[LowNibble]; 276 ++i; 277 if (i>=4 && i<=10 && i%2==0) 278 OS << "-"; 279 } 280 OS << "}"; 281 return OS; 282 } 283 284 raw_ostream &llvm::operator<<(raw_ostream &OS, const Variant &Value) { 285 switch (Value.Type) { 286 case PDB_VariantType::Bool: 287 OS << (Value.Value.Bool ? "true" : "false"); 288 break; 289 case PDB_VariantType::Double: 290 OS << Value.Value.Double; 291 break; 292 case PDB_VariantType::Int16: 293 OS << Value.Value.Int16; 294 break; 295 case PDB_VariantType::Int32: 296 OS << Value.Value.Int32; 297 break; 298 case PDB_VariantType::Int64: 299 OS << Value.Value.Int64; 300 break; 301 case PDB_VariantType::Int8: 302 OS << static_cast<int>(Value.Value.Int8); 303 break; 304 case PDB_VariantType::Single: 305 OS << Value.Value.Single; 306 break; 307 case PDB_VariantType::UInt16: 308 OS << Value.Value.Double; 309 break; 310 case PDB_VariantType::UInt32: 311 OS << Value.Value.UInt32; 312 break; 313 case PDB_VariantType::UInt64: 314 OS << Value.Value.UInt64; 315 break; 316 case PDB_VariantType::UInt8: 317 OS << static_cast<unsigned>(Value.Value.UInt8); 318 break; 319 case PDB_VariantType::String: 320 OS << Value.Value.String; 321 break; 322 default: 323 OS << Value.Type; 324 } 325 return OS; 326 } 327 328 raw_ostream &llvm::operator<<(raw_ostream &OS, const VersionInfo &Version) { 329 OS << Version.Major << "." << Version.Minor << "." << Version.Build; 330 return OS; 331 } 332 333 raw_ostream &llvm::operator<<(raw_ostream &OS, const TagStats &Stats) { 334 for (auto Tag : Stats) { 335 OS << Tag.first << ":" << Tag.second << " "; 336 } 337 return OS; 338 } 339