1 //===--- lib/CodeGen/DIE.cpp - DWARF Info Entries -------------------------===//
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 // Data structures for DWARF info entries.
11 //
12 //===----------------------------------------------------------------------===//
13 
14 #include "llvm/CodeGen/DIE.h"
15 #include "DwarfCompileUnit.h"
16 #include "DwarfDebug.h"
17 #include "DwarfUnit.h"
18 #include "llvm/ADT/Twine.h"
19 #include "llvm/CodeGen/AsmPrinter.h"
20 #include "llvm/IR/DataLayout.h"
21 #include "llvm/MC/MCAsmInfo.h"
22 #include "llvm/MC/MCContext.h"
23 #include "llvm/MC/MCStreamer.h"
24 #include "llvm/MC/MCSymbol.h"
25 #include "llvm/Support/Debug.h"
26 #include "llvm/Support/ErrorHandling.h"
27 #include "llvm/Support/Format.h"
28 #include "llvm/Support/FormattedStream.h"
29 #include "llvm/Support/LEB128.h"
30 #include "llvm/Support/MD5.h"
31 #include "llvm/Support/raw_ostream.h"
32 using namespace llvm;
33 
34 //===----------------------------------------------------------------------===//
35 // DIEAbbrevData Implementation
36 //===----------------------------------------------------------------------===//
37 
38 /// Profile - Used to gather unique data for the abbreviation folding set.
39 ///
40 void DIEAbbrevData::Profile(FoldingSetNodeID &ID) const {
41   // Explicitly cast to an integer type for which FoldingSetNodeID has
42   // overloads.  Otherwise MSVC 2010 thinks this call is ambiguous.
43   ID.AddInteger(unsigned(Attribute));
44   ID.AddInteger(unsigned(Form));
45 }
46 
47 //===----------------------------------------------------------------------===//
48 // DIEAbbrev Implementation
49 //===----------------------------------------------------------------------===//
50 
51 /// Profile - Used to gather unique data for the abbreviation folding set.
52 ///
53 void DIEAbbrev::Profile(FoldingSetNodeID &ID) const {
54   ID.AddInteger(unsigned(Tag));
55   ID.AddInteger(unsigned(Children));
56 
57   // For each attribute description.
58   for (unsigned i = 0, N = Data.size(); i < N; ++i)
59     Data[i].Profile(ID);
60 }
61 
62 /// Emit - Print the abbreviation using the specified asm printer.
63 ///
64 void DIEAbbrev::Emit(const AsmPrinter *AP) const {
65   // Emit its Dwarf tag type.
66   AP->EmitULEB128(Tag, dwarf::TagString(Tag).data());
67 
68   // Emit whether it has children DIEs.
69   AP->EmitULEB128((unsigned)Children, dwarf::ChildrenString(Children).data());
70 
71   // For each attribute description.
72   for (unsigned i = 0, N = Data.size(); i < N; ++i) {
73     const DIEAbbrevData &AttrData = Data[i];
74 
75     // Emit attribute type.
76     AP->EmitULEB128(AttrData.getAttribute(),
77                     dwarf::AttributeString(AttrData.getAttribute()).data());
78 
79     // Emit form type.
80     AP->EmitULEB128(AttrData.getForm(),
81                     dwarf::FormEncodingString(AttrData.getForm()).data());
82 
83     // Emit value for DW_FORM_implicit_const.
84     if (AttrData.getForm() == dwarf::DW_FORM_implicit_const) {
85       assert(AP->getDwarfVersion() >= 5 &&
86             "DW_FORM_implicit_const is supported starting from DWARFv5");
87       AP->EmitSLEB128(AttrData.getValue());
88     }
89   }
90 
91   // Mark end of abbreviation.
92   AP->EmitULEB128(0, "EOM(1)");
93   AP->EmitULEB128(0, "EOM(2)");
94 }
95 
96 LLVM_DUMP_METHOD
97 void DIEAbbrev::print(raw_ostream &O) {
98   O << "Abbreviation @"
99     << format("0x%lx", (long)(intptr_t)this)
100     << "  "
101     << dwarf::TagString(Tag)
102     << " "
103     << dwarf::ChildrenString(Children)
104     << '\n';
105 
106   for (unsigned i = 0, N = Data.size(); i < N; ++i) {
107     O << "  "
108       << dwarf::AttributeString(Data[i].getAttribute())
109       << "  "
110       << dwarf::FormEncodingString(Data[i].getForm())
111       << '\n';
112   }
113 }
114 
115 LLVM_DUMP_METHOD
116 void DIEAbbrev::dump() { print(dbgs()); }
117 
118 //===----------------------------------------------------------------------===//
119 // DIEAbbrevSet Implementation
120 //===----------------------------------------------------------------------===//
121 
122 DIEAbbrevSet::~DIEAbbrevSet() {
123   for (DIEAbbrev *Abbrev : Abbreviations)
124     Abbrev->~DIEAbbrev();
125 }
126 
127 DIEAbbrev &DIEAbbrevSet::uniqueAbbreviation(DIE &Die) {
128 
129   FoldingSetNodeID ID;
130   DIEAbbrev Abbrev = Die.generateAbbrev();
131   Abbrev.Profile(ID);
132 
133   void *InsertPos;
134   if (DIEAbbrev *Existing =
135           AbbreviationsSet.FindNodeOrInsertPos(ID, InsertPos)) {
136     Die.setAbbrevNumber(Existing->getNumber());
137     return *Existing;
138   }
139 
140   // Move the abbreviation to the heap and assign a number.
141   DIEAbbrev *New = new (Alloc) DIEAbbrev(std::move(Abbrev));
142   Abbreviations.push_back(New);
143   New->setNumber(Abbreviations.size());
144   Die.setAbbrevNumber(Abbreviations.size());
145 
146   // Store it for lookup.
147   AbbreviationsSet.InsertNode(New, InsertPos);
148   return *New;
149 }
150 
151 void DIEAbbrevSet::Emit(const AsmPrinter *AP, MCSection *Section) const {
152   if (!Abbreviations.empty()) {
153     // Start the debug abbrev section.
154     AP->OutStreamer->SwitchSection(Section);
155     AP->emitDwarfAbbrevs(Abbreviations);
156   }
157 }
158 
159 //===----------------------------------------------------------------------===//
160 // DIE Implementation
161 //===----------------------------------------------------------------------===//
162 
163 DIE *DIE::getParent() const {
164   return Owner.dyn_cast<DIE*>();
165 }
166 
167 DIEAbbrev DIE::generateAbbrev() const {
168   DIEAbbrev Abbrev(Tag, hasChildren());
169   for (const DIEValue &V : values())
170     if (V.getForm() == dwarf::DW_FORM_implicit_const)
171       Abbrev.AddImplicitConstAttribute(V.getAttribute(),
172                                        V.getDIEInteger().getValue());
173     else
174       Abbrev.AddAttribute(V.getAttribute(), V.getForm());
175   return Abbrev;
176 }
177 
178 unsigned DIE::getDebugSectionOffset() const {
179   const DIEUnit *Unit = getUnit();
180   assert(Unit && "DIE must be owned by a DIEUnit to get its absolute offset");
181   return Unit->getDebugSectionOffset() + getOffset();
182 }
183 
184 const DIE *DIE::getUnitDie() const {
185   const DIE *p = this;
186   while (p) {
187     if (p->getTag() == dwarf::DW_TAG_compile_unit ||
188         p->getTag() == dwarf::DW_TAG_type_unit)
189       return p;
190     p = p->getParent();
191   }
192   return nullptr;
193 }
194 
195 const DIEUnit *DIE::getUnit() const {
196   const DIE *UnitDie = getUnitDie();
197   if (UnitDie)
198     return UnitDie->Owner.dyn_cast<DIEUnit*>();
199   return nullptr;
200 }
201 
202 DIEValue DIE::findAttribute(dwarf::Attribute Attribute) const {
203   // Iterate through all the attributes until we find the one we're
204   // looking for, if we can't find it return NULL.
205   for (const auto &V : values())
206     if (V.getAttribute() == Attribute)
207       return V;
208   return DIEValue();
209 }
210 
211 LLVM_DUMP_METHOD
212 static void printValues(raw_ostream &O, const DIEValueList &Values,
213                         StringRef Type, unsigned Size, unsigned IndentCount) {
214   O << Type << ": Size: " << Size << "\n";
215 
216   unsigned I = 0;
217   const std::string Indent(IndentCount, ' ');
218   for (const auto &V : Values.values()) {
219     O << Indent;
220     O << "Blk[" << I++ << "]";
221     O << "  " << dwarf::FormEncodingString(V.getForm()) << " ";
222     V.print(O);
223     O << "\n";
224   }
225 }
226 
227 LLVM_DUMP_METHOD
228 void DIE::print(raw_ostream &O, unsigned IndentCount) const {
229   const std::string Indent(IndentCount, ' ');
230   O << Indent << "Die: " << format("0x%lx", (long)(intptr_t) this)
231     << ", Offset: " << Offset << ", Size: " << Size << "\n";
232 
233   O << Indent << dwarf::TagString(getTag()) << " "
234     << dwarf::ChildrenString(hasChildren()) << "\n";
235 
236   IndentCount += 2;
237   for (const auto &V : values()) {
238     O << Indent;
239     O << dwarf::AttributeString(V.getAttribute());
240     O << "  " << dwarf::FormEncodingString(V.getForm()) << " ";
241     V.print(O);
242     O << "\n";
243   }
244   IndentCount -= 2;
245 
246   for (const auto &Child : children())
247     Child.print(O, IndentCount + 4);
248 
249   O << "\n";
250 }
251 
252 LLVM_DUMP_METHOD
253 void DIE::dump() {
254   print(dbgs());
255 }
256 
257 unsigned DIE::computeOffsetsAndAbbrevs(const AsmPrinter *AP,
258                                        DIEAbbrevSet &AbbrevSet,
259                                        unsigned CUOffset) {
260   // Unique the abbreviation and fill in the abbreviation number so this DIE
261   // can be emitted.
262   const DIEAbbrev &Abbrev = AbbrevSet.uniqueAbbreviation(*this);
263 
264   // Set compile/type unit relative offset of this DIE.
265   setOffset(CUOffset);
266 
267   // Add the byte size of the abbreviation code.
268   CUOffset += getULEB128Size(getAbbrevNumber());
269 
270   // Add the byte size of all the DIE attribute values.
271   for (const auto &V : values())
272     CUOffset += V.SizeOf(AP);
273 
274   // Let the children compute their offsets and abbreviation numbers.
275   if (hasChildren()) {
276     (void)Abbrev;
277     assert(Abbrev.hasChildren() && "Children flag not set");
278 
279     for (auto &Child : children())
280       CUOffset = Child.computeOffsetsAndAbbrevs(AP, AbbrevSet, CUOffset);
281 
282     // Each child chain is terminated with a zero byte, adjust the offset.
283     CUOffset += sizeof(int8_t);
284   }
285 
286   // Compute the byte size of this DIE and all of its children correctly. This
287   // is needed so that top level DIE can help the compile unit set its length
288   // correctly.
289   setSize(CUOffset - getOffset());
290   return CUOffset;
291 }
292 
293 //===----------------------------------------------------------------------===//
294 // DIEUnit Implementation
295 //===----------------------------------------------------------------------===//
296 DIEUnit::DIEUnit(uint16_t V, uint8_t A, dwarf::Tag UnitTag)
297     : Die(UnitTag), Section(nullptr), Offset(0), Length(0), Version(V),
298       AddrSize(A)
299 {
300   Die.Owner = this;
301   assert((UnitTag == dwarf::DW_TAG_compile_unit ||
302           UnitTag == dwarf::DW_TAG_type_unit ||
303           UnitTag == dwarf::DW_TAG_partial_unit) && "expected a unit TAG");
304 }
305 
306 void DIEValue::EmitValue(const AsmPrinter *AP) const {
307   switch (Ty) {
308   case isNone:
309     llvm_unreachable("Expected valid DIEValue");
310 #define HANDLE_DIEVALUE(T)                                                     \
311   case is##T:                                                                  \
312     getDIE##T().EmitValue(AP, Form);                                           \
313     break;
314 #include "llvm/CodeGen/DIEValue.def"
315   }
316 }
317 
318 unsigned DIEValue::SizeOf(const AsmPrinter *AP) const {
319   switch (Ty) {
320   case isNone:
321     llvm_unreachable("Expected valid DIEValue");
322 #define HANDLE_DIEVALUE(T)                                                     \
323   case is##T:                                                                  \
324     return getDIE##T().SizeOf(AP, Form);
325 #include "llvm/CodeGen/DIEValue.def"
326   }
327   llvm_unreachable("Unknown DIE kind");
328 }
329 
330 LLVM_DUMP_METHOD
331 void DIEValue::print(raw_ostream &O) const {
332   switch (Ty) {
333   case isNone:
334     llvm_unreachable("Expected valid DIEValue");
335 #define HANDLE_DIEVALUE(T)                                                     \
336   case is##T:                                                                  \
337     getDIE##T().print(O);                                                      \
338     break;
339 #include "llvm/CodeGen/DIEValue.def"
340   }
341 }
342 
343 LLVM_DUMP_METHOD
344 void DIEValue::dump() const {
345   print(dbgs());
346 }
347 
348 //===----------------------------------------------------------------------===//
349 // DIEInteger Implementation
350 //===----------------------------------------------------------------------===//
351 
352 /// EmitValue - Emit integer of appropriate size.
353 ///
354 void DIEInteger::EmitValue(const AsmPrinter *Asm, dwarf::Form Form) const {
355   switch (Form) {
356   case dwarf::DW_FORM_implicit_const:
357     LLVM_FALLTHROUGH;
358   case dwarf::DW_FORM_flag_present:
359     // Emit something to keep the lines and comments in sync.
360     // FIXME: Is there a better way to do this?
361     Asm->OutStreamer->AddBlankLine();
362     return;
363   case dwarf::DW_FORM_flag:
364     LLVM_FALLTHROUGH;
365   case dwarf::DW_FORM_ref1:
366     LLVM_FALLTHROUGH;
367   case dwarf::DW_FORM_data1:
368     LLVM_FALLTHROUGH;
369   case dwarf::DW_FORM_ref2:
370     LLVM_FALLTHROUGH;
371   case dwarf::DW_FORM_data2:
372     LLVM_FALLTHROUGH;
373   case dwarf::DW_FORM_strp:
374     LLVM_FALLTHROUGH;
375   case dwarf::DW_FORM_ref4:
376     LLVM_FALLTHROUGH;
377   case dwarf::DW_FORM_data4:
378     LLVM_FALLTHROUGH;
379   case dwarf::DW_FORM_ref8:
380     LLVM_FALLTHROUGH;
381   case dwarf::DW_FORM_ref_sig8:
382     LLVM_FALLTHROUGH;
383   case dwarf::DW_FORM_data8:
384     LLVM_FALLTHROUGH;
385   case dwarf::DW_FORM_GNU_ref_alt:
386     LLVM_FALLTHROUGH;
387   case dwarf::DW_FORM_GNU_strp_alt:
388     LLVM_FALLTHROUGH;
389   case dwarf::DW_FORM_line_strp:
390     LLVM_FALLTHROUGH;
391   case dwarf::DW_FORM_sec_offset:
392     LLVM_FALLTHROUGH;
393   case dwarf::DW_FORM_strp_sup:
394     LLVM_FALLTHROUGH;
395   case dwarf::DW_FORM_ref_sup:
396     LLVM_FALLTHROUGH;
397   case dwarf::DW_FORM_addr:
398     LLVM_FALLTHROUGH;
399   case dwarf::DW_FORM_ref_addr:
400     Asm->OutStreamer->EmitIntValue(Integer, SizeOf(Asm, Form));
401     return;
402   case dwarf::DW_FORM_GNU_str_index:
403     LLVM_FALLTHROUGH;
404   case dwarf::DW_FORM_GNU_addr_index:
405     LLVM_FALLTHROUGH;
406   case dwarf::DW_FORM_ref_udata:
407     LLVM_FALLTHROUGH;
408   case dwarf::DW_FORM_udata:
409     Asm->EmitULEB128(Integer);
410     return;
411   case dwarf::DW_FORM_sdata:
412     Asm->EmitSLEB128(Integer);
413     return;
414   default: llvm_unreachable("DIE Value form not supported yet");
415   }
416 }
417 
418 /// SizeOf - Determine size of integer value in bytes.
419 ///
420 unsigned DIEInteger::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
421   switch (Form) {
422   case dwarf::DW_FORM_implicit_const: LLVM_FALLTHROUGH;
423   case dwarf::DW_FORM_flag_present: return 0;
424   case dwarf::DW_FORM_flag:  LLVM_FALLTHROUGH;
425   case dwarf::DW_FORM_ref1:  LLVM_FALLTHROUGH;
426   case dwarf::DW_FORM_data1: return sizeof(int8_t);
427   case dwarf::DW_FORM_ref2:  LLVM_FALLTHROUGH;
428   case dwarf::DW_FORM_data2: return sizeof(int16_t);
429   case dwarf::DW_FORM_ref4:  LLVM_FALLTHROUGH;
430   case dwarf::DW_FORM_data4: return sizeof(int32_t);
431   case dwarf::DW_FORM_ref8:  LLVM_FALLTHROUGH;
432   case dwarf::DW_FORM_ref_sig8:  LLVM_FALLTHROUGH;
433   case dwarf::DW_FORM_data8: return sizeof(int64_t);
434   case dwarf::DW_FORM_ref_addr:
435     if (AP->getDwarfVersion() == 2)
436       return AP->getPointerSize();
437     LLVM_FALLTHROUGH;
438   case dwarf::DW_FORM_strp:
439     LLVM_FALLTHROUGH;
440   case dwarf::DW_FORM_GNU_ref_alt:
441     LLVM_FALLTHROUGH;
442   case dwarf::DW_FORM_GNU_strp_alt:
443     LLVM_FALLTHROUGH;
444   case dwarf::DW_FORM_line_strp:
445     LLVM_FALLTHROUGH;
446   case dwarf::DW_FORM_sec_offset:
447     LLVM_FALLTHROUGH;
448   case dwarf::DW_FORM_strp_sup:
449     LLVM_FALLTHROUGH;
450   case dwarf::DW_FORM_ref_sup:
451     switch (AP->OutStreamer->getContext().getDwarfFormat()) {
452     case dwarf::DWARF32:
453       return 4;
454     case dwarf::DWARF64:
455       return 8;
456     }
457     llvm_unreachable("Invalid DWARF format");
458   case dwarf::DW_FORM_GNU_str_index:
459     LLVM_FALLTHROUGH;
460   case dwarf::DW_FORM_GNU_addr_index:
461     LLVM_FALLTHROUGH;
462   case dwarf::DW_FORM_ref_udata:
463     LLVM_FALLTHROUGH;
464   case dwarf::DW_FORM_udata:
465     return getULEB128Size(Integer);
466   case dwarf::DW_FORM_sdata:
467     return getSLEB128Size(Integer);
468   case dwarf::DW_FORM_addr:
469     return AP->getPointerSize();
470   default: llvm_unreachable("DIE Value form not supported yet");
471   }
472 }
473 
474 LLVM_DUMP_METHOD
475 void DIEInteger::print(raw_ostream &O) const {
476   O << "Int: " << (int64_t)Integer << "  0x";
477   O.write_hex(Integer);
478 }
479 
480 //===----------------------------------------------------------------------===//
481 // DIEExpr Implementation
482 //===----------------------------------------------------------------------===//
483 
484 /// EmitValue - Emit expression value.
485 ///
486 void DIEExpr::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
487   AP->EmitDebugValue(Expr, SizeOf(AP, Form));
488 }
489 
490 /// SizeOf - Determine size of expression value in bytes.
491 ///
492 unsigned DIEExpr::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
493   if (Form == dwarf::DW_FORM_data4) return 4;
494   if (Form == dwarf::DW_FORM_sec_offset) return 4;
495   if (Form == dwarf::DW_FORM_strp) return 4;
496   return AP->getPointerSize();
497 }
498 
499 LLVM_DUMP_METHOD
500 void DIEExpr::print(raw_ostream &O) const { O << "Expr: " << *Expr; }
501 
502 //===----------------------------------------------------------------------===//
503 // DIELabel Implementation
504 //===----------------------------------------------------------------------===//
505 
506 /// EmitValue - Emit label value.
507 ///
508 void DIELabel::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
509   AP->EmitLabelReference(Label, SizeOf(AP, Form),
510                          Form == dwarf::DW_FORM_strp ||
511                              Form == dwarf::DW_FORM_sec_offset ||
512                              Form == dwarf::DW_FORM_ref_addr ||
513                              Form == dwarf::DW_FORM_data4);
514 }
515 
516 /// SizeOf - Determine size of label value in bytes.
517 ///
518 unsigned DIELabel::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
519   if (Form == dwarf::DW_FORM_data4) return 4;
520   if (Form == dwarf::DW_FORM_sec_offset) return 4;
521   if (Form == dwarf::DW_FORM_strp) return 4;
522   return AP->getPointerSize();
523 }
524 
525 LLVM_DUMP_METHOD
526 void DIELabel::print(raw_ostream &O) const { O << "Lbl: " << Label->getName(); }
527 
528 //===----------------------------------------------------------------------===//
529 // DIEDelta Implementation
530 //===----------------------------------------------------------------------===//
531 
532 /// EmitValue - Emit delta value.
533 ///
534 void DIEDelta::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
535   AP->EmitLabelDifference(LabelHi, LabelLo, SizeOf(AP, Form));
536 }
537 
538 /// SizeOf - Determine size of delta value in bytes.
539 ///
540 unsigned DIEDelta::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
541   if (Form == dwarf::DW_FORM_data4) return 4;
542   if (Form == dwarf::DW_FORM_sec_offset) return 4;
543   if (Form == dwarf::DW_FORM_strp) return 4;
544   return AP->getPointerSize();
545 }
546 
547 LLVM_DUMP_METHOD
548 void DIEDelta::print(raw_ostream &O) const {
549   O << "Del: " << LabelHi->getName() << "-" << LabelLo->getName();
550 }
551 
552 //===----------------------------------------------------------------------===//
553 // DIEString Implementation
554 //===----------------------------------------------------------------------===//
555 
556 /// EmitValue - Emit string value.
557 ///
558 void DIEString::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
559   assert(
560       (Form == dwarf::DW_FORM_strp || Form == dwarf::DW_FORM_GNU_str_index) &&
561       "Expected valid string form");
562 
563   // Index of string in symbol table.
564   if (Form == dwarf::DW_FORM_GNU_str_index) {
565     DIEInteger(S.getIndex()).EmitValue(AP, Form);
566     return;
567   }
568 
569   // Relocatable symbol.
570   assert(Form == dwarf::DW_FORM_strp);
571   if (AP->MAI->doesDwarfUseRelocationsAcrossSections()) {
572     DIELabel(S.getSymbol()).EmitValue(AP, Form);
573     return;
574   }
575 
576   // Offset into symbol table.
577   DIEInteger(S.getOffset()).EmitValue(AP, Form);
578 }
579 
580 /// SizeOf - Determine size of delta value in bytes.
581 ///
582 unsigned DIEString::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
583   assert(
584       (Form == dwarf::DW_FORM_strp || Form == dwarf::DW_FORM_GNU_str_index) &&
585       "Expected valid string form");
586 
587   // Index of string in symbol table.
588   if (Form == dwarf::DW_FORM_GNU_str_index)
589     return DIEInteger(S.getIndex()).SizeOf(AP, Form);
590 
591   // Relocatable symbol.
592   if (AP->MAI->doesDwarfUseRelocationsAcrossSections())
593     return DIELabel(S.getSymbol()).SizeOf(AP, Form);
594 
595   // Offset into symbol table.
596   return DIEInteger(S.getOffset()).SizeOf(AP, Form);
597 }
598 
599 LLVM_DUMP_METHOD
600 void DIEString::print(raw_ostream &O) const {
601   O << "String: " << S.getString();
602 }
603 
604 //===----------------------------------------------------------------------===//
605 // DIEInlineString Implementation
606 //===----------------------------------------------------------------------===//
607 void DIEInlineString::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
608   if (Form == dwarf::DW_FORM_string) {
609     for (char ch : S)
610       AP->EmitInt8(ch);
611     AP->EmitInt8(0);
612     return;
613   }
614   llvm_unreachable("Expected valid string form");
615 }
616 
617 unsigned DIEInlineString::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
618   // Emit string bytes + NULL byte.
619   return S.size() + 1;
620 }
621 
622 LLVM_DUMP_METHOD
623 void DIEInlineString::print(raw_ostream &O) const {
624   O << "InlineString: " << S;
625 }
626 
627 //===----------------------------------------------------------------------===//
628 // DIEEntry Implementation
629 //===----------------------------------------------------------------------===//
630 
631 /// EmitValue - Emit debug information entry offset.
632 ///
633 void DIEEntry::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
634 
635   switch (Form) {
636   case dwarf::DW_FORM_ref1:
637   case dwarf::DW_FORM_ref2:
638   case dwarf::DW_FORM_ref4:
639   case dwarf::DW_FORM_ref8:
640     AP->OutStreamer->EmitIntValue(Entry->getOffset(), SizeOf(AP, Form));
641     return;
642 
643   case dwarf::DW_FORM_ref_udata:
644     AP->EmitULEB128(Entry->getOffset());
645     return;
646 
647   case dwarf::DW_FORM_ref_addr: {
648     // Get the absolute offset for this DIE within the debug info/types section.
649     unsigned Addr = Entry->getDebugSectionOffset();
650     if (AP->MAI->doesDwarfUseRelocationsAcrossSections()) {
651       const DwarfDebug *DD = AP->getDwarfDebug();
652       if (DD)
653         assert(!DD->useSplitDwarf() &&
654                "TODO: dwo files can't have relocations.");
655       const DIEUnit *Unit = Entry->getUnit();
656       assert(Unit && "CUDie should belong to a CU.");
657       MCSection *Section = Unit->getSection();
658       if (Section) {
659         const MCSymbol *SectionSym = Section->getBeginSymbol();
660         AP->EmitLabelPlusOffset(SectionSym, Addr, SizeOf(AP, Form), true);
661         return;
662       }
663     }
664     AP->OutStreamer->EmitIntValue(Addr, SizeOf(AP, Form));
665     return;
666   }
667   default:
668     llvm_unreachable("Improper form for DIE reference");
669   }
670 }
671 
672 unsigned DIEEntry::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
673   switch (Form) {
674   case dwarf::DW_FORM_ref1:
675     return 1;
676   case dwarf::DW_FORM_ref2:
677     return 2;
678   case dwarf::DW_FORM_ref4:
679     return 4;
680   case dwarf::DW_FORM_ref8:
681     return 8;
682   case dwarf::DW_FORM_ref_udata:
683     return getULEB128Size(Entry->getOffset());
684   case dwarf::DW_FORM_ref_addr:
685     if (AP->getDwarfVersion() == 2)
686       return AP->getPointerSize();
687     switch (AP->OutStreamer->getContext().getDwarfFormat()) {
688     case dwarf::DWARF32:
689       return 4;
690     case dwarf::DWARF64:
691       return 8;
692     }
693     llvm_unreachable("Invalid DWARF format");
694 
695   default:
696     llvm_unreachable("Improper form for DIE reference");
697   }
698 }
699 
700 LLVM_DUMP_METHOD
701 void DIEEntry::print(raw_ostream &O) const {
702   O << format("Die: 0x%lx", (long)(intptr_t)&Entry);
703 }
704 
705 //===----------------------------------------------------------------------===//
706 // DIELoc Implementation
707 //===----------------------------------------------------------------------===//
708 
709 /// ComputeSize - calculate the size of the location expression.
710 ///
711 unsigned DIELoc::ComputeSize(const AsmPrinter *AP) const {
712   if (!Size) {
713     for (const auto &V : values())
714       Size += V.SizeOf(AP);
715   }
716 
717   return Size;
718 }
719 
720 /// EmitValue - Emit location data.
721 ///
722 void DIELoc::EmitValue(const AsmPrinter *Asm, dwarf::Form Form) const {
723   switch (Form) {
724   default: llvm_unreachable("Improper form for block");
725   case dwarf::DW_FORM_block1: Asm->EmitInt8(Size);    break;
726   case dwarf::DW_FORM_block2: Asm->EmitInt16(Size);   break;
727   case dwarf::DW_FORM_block4: Asm->EmitInt32(Size);   break;
728   case dwarf::DW_FORM_block:
729   case dwarf::DW_FORM_exprloc:
730     Asm->EmitULEB128(Size); break;
731   }
732 
733   for (const auto &V : values())
734     V.EmitValue(Asm);
735 }
736 
737 /// SizeOf - Determine size of location data in bytes.
738 ///
739 unsigned DIELoc::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
740   switch (Form) {
741   case dwarf::DW_FORM_block1: return Size + sizeof(int8_t);
742   case dwarf::DW_FORM_block2: return Size + sizeof(int16_t);
743   case dwarf::DW_FORM_block4: return Size + sizeof(int32_t);
744   case dwarf::DW_FORM_block:
745   case dwarf::DW_FORM_exprloc:
746     return Size + getULEB128Size(Size);
747   default: llvm_unreachable("Improper form for block");
748   }
749 }
750 
751 LLVM_DUMP_METHOD
752 void DIELoc::print(raw_ostream &O) const {
753   printValues(O, *this, "ExprLoc", Size, 5);
754 }
755 
756 //===----------------------------------------------------------------------===//
757 // DIEBlock Implementation
758 //===----------------------------------------------------------------------===//
759 
760 /// ComputeSize - calculate the size of the block.
761 ///
762 unsigned DIEBlock::ComputeSize(const AsmPrinter *AP) const {
763   if (!Size) {
764     for (const auto &V : values())
765       Size += V.SizeOf(AP);
766   }
767 
768   return Size;
769 }
770 
771 /// EmitValue - Emit block data.
772 ///
773 void DIEBlock::EmitValue(const AsmPrinter *Asm, dwarf::Form Form) const {
774   switch (Form) {
775   default: llvm_unreachable("Improper form for block");
776   case dwarf::DW_FORM_block1: Asm->EmitInt8(Size);    break;
777   case dwarf::DW_FORM_block2: Asm->EmitInt16(Size);   break;
778   case dwarf::DW_FORM_block4: Asm->EmitInt32(Size);   break;
779   case dwarf::DW_FORM_block:  Asm->EmitULEB128(Size); break;
780   }
781 
782   for (const auto &V : values())
783     V.EmitValue(Asm);
784 }
785 
786 /// SizeOf - Determine size of block data in bytes.
787 ///
788 unsigned DIEBlock::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
789   switch (Form) {
790   case dwarf::DW_FORM_block1: return Size + sizeof(int8_t);
791   case dwarf::DW_FORM_block2: return Size + sizeof(int16_t);
792   case dwarf::DW_FORM_block4: return Size + sizeof(int32_t);
793   case dwarf::DW_FORM_block:  return Size + getULEB128Size(Size);
794   default: llvm_unreachable("Improper form for block");
795   }
796 }
797 
798 LLVM_DUMP_METHOD
799 void DIEBlock::print(raw_ostream &O) const {
800   printValues(O, *this, "Blk", Size, 5);
801 }
802 
803 //===----------------------------------------------------------------------===//
804 // DIELocList Implementation
805 //===----------------------------------------------------------------------===//
806 
807 unsigned DIELocList::SizeOf(const AsmPrinter *AP, dwarf::Form Form) const {
808   if (Form == dwarf::DW_FORM_data4)
809     return 4;
810   if (Form == dwarf::DW_FORM_sec_offset)
811     return 4;
812   return AP->getPointerSize();
813 }
814 
815 /// EmitValue - Emit label value.
816 ///
817 void DIELocList::EmitValue(const AsmPrinter *AP, dwarf::Form Form) const {
818   DwarfDebug *DD = AP->getDwarfDebug();
819   MCSymbol *Label = DD->getDebugLocs().getList(Index).Label;
820   AP->emitDwarfSymbolReference(Label, /*ForceOffset*/ DD->useSplitDwarf());
821 }
822 
823 LLVM_DUMP_METHOD
824 void DIELocList::print(raw_ostream &O) const { O << "LocList: " << Index; }
825