blob: b718958f974f579f72215a878bb92a7618ae8804 [file] [log] [blame]
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001//===-- AsmPrinter.cpp - Common AsmPrinter code ---------------------------===//
2//
3// The LLVM Compiler Infrastructure
4//
Chris Lattner081ce942007-12-29 20:36:04 +00005// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
Dan Gohmanf17a25c2007-07-18 16:29:46 +00007//
8//===----------------------------------------------------------------------===//
9//
10// This file implements the AsmPrinter class.
11//
12//===----------------------------------------------------------------------===//
13
14#include "llvm/CodeGen/AsmPrinter.h"
15#include "llvm/Assembly/Writer.h"
16#include "llvm/DerivedTypes.h"
17#include "llvm/Constants.h"
18#include "llvm/Module.h"
Gordon Henriksendf87fdc2008-01-07 01:30:38 +000019#include "llvm/CodeGen/Collector.h"
20#include "llvm/CodeGen/CollectorMetadata.h"
Dan Gohmanf17a25c2007-07-18 16:29:46 +000021#include "llvm/CodeGen/MachineConstantPool.h"
22#include "llvm/CodeGen/MachineJumpTableInfo.h"
Chris Lattner1b989192007-12-31 04:13:23 +000023#include "llvm/CodeGen/MachineModuleInfo.h"
Dan Gohmanf17a25c2007-07-18 16:29:46 +000024#include "llvm/Support/CommandLine.h"
25#include "llvm/Support/Mangler.h"
26#include "llvm/Support/MathExtras.h"
27#include "llvm/Support/Streams.h"
28#include "llvm/Target/TargetAsmInfo.h"
29#include "llvm/Target/TargetData.h"
30#include "llvm/Target/TargetLowering.h"
31#include "llvm/Target/TargetMachine.h"
Evan Cheng6fb06762007-11-09 01:32:10 +000032#include "llvm/ADT/SmallPtrSet.h"
Dan Gohmanf17a25c2007-07-18 16:29:46 +000033#include <cerrno>
34using namespace llvm;
35
36static cl::opt<bool>
37AsmVerbose("asm-verbose", cl::Hidden, cl::desc("Add comments to directives."));
38
39char AsmPrinter::ID = 0;
40AsmPrinter::AsmPrinter(std::ostream &o, TargetMachine &tm,
41 const TargetAsmInfo *T)
Evan Cheng477013c2007-10-14 05:57:21 +000042 : MachineFunctionPass((intptr_t)&ID), FunctionNumber(0), O(o), TM(tm), TAI(T)
Dan Gohmanf17a25c2007-07-18 16:29:46 +000043{}
44
45std::string AsmPrinter::getSectionForFunction(const Function &F) const {
46 return TAI->getTextSection();
47}
48
49
50/// SwitchToTextSection - Switch to the specified text section of the executable
51/// if we are not already in it!
52///
53void AsmPrinter::SwitchToTextSection(const char *NewSection,
54 const GlobalValue *GV) {
55 std::string NS;
56 if (GV && GV->hasSection())
57 NS = TAI->getSwitchToSectionDirective() + GV->getSection();
58 else
59 NS = NewSection;
60
61 // If we're already in this section, we're done.
62 if (CurrentSection == NS) return;
63
64 // Close the current section, if applicable.
65 if (TAI->getSectionEndDirectiveSuffix() && !CurrentSection.empty())
66 O << CurrentSection << TAI->getSectionEndDirectiveSuffix() << "\n";
67
68 CurrentSection = NS;
69
70 if (!CurrentSection.empty())
71 O << CurrentSection << TAI->getTextSectionStartSuffix() << '\n';
72}
73
74/// SwitchToDataSection - Switch to the specified data section of the executable
75/// if we are not already in it!
76///
77void AsmPrinter::SwitchToDataSection(const char *NewSection,
78 const GlobalValue *GV) {
79 std::string NS;
80 if (GV && GV->hasSection())
81 NS = TAI->getSwitchToSectionDirective() + GV->getSection();
82 else
83 NS = NewSection;
84
85 // If we're already in this section, we're done.
86 if (CurrentSection == NS) return;
87
88 // Close the current section, if applicable.
89 if (TAI->getSectionEndDirectiveSuffix() && !CurrentSection.empty())
90 O << CurrentSection << TAI->getSectionEndDirectiveSuffix() << "\n";
91
92 CurrentSection = NS;
93
94 if (!CurrentSection.empty())
95 O << CurrentSection << TAI->getDataSectionStartSuffix() << '\n';
96}
97
98
Gordon Henriksendf87fdc2008-01-07 01:30:38 +000099void AsmPrinter::getAnalysisUsage(AnalysisUsage &AU) const {
100 MachineFunctionPass::getAnalysisUsage(AU);
101 AU.addRequired<CollectorModuleMetadata>();
102}
103
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000104bool AsmPrinter::doInitialization(Module &M) {
105 Mang = new Mangler(M, TAI->getGlobalPrefix());
106
Gordon Henriksendf87fdc2008-01-07 01:30:38 +0000107 CollectorModuleMetadata *CMM = getAnalysisToUpdate<CollectorModuleMetadata>();
108 assert(CMM && "AsmPrinter didn't require CollectorModuleMetadata?");
109 for (CollectorModuleMetadata::iterator I = CMM->begin(),
110 E = CMM->end(); I != E; ++I)
111 (*I)->beginAssembly(O, *this, *TAI);
112
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000113 if (!M.getModuleInlineAsm().empty())
114 O << TAI->getCommentString() << " Start of file scope inline assembly\n"
115 << M.getModuleInlineAsm()
116 << "\n" << TAI->getCommentString()
117 << " End of file scope inline assembly\n";
118
119 SwitchToDataSection(""); // Reset back to no section.
120
Evan Chengc439a852008-02-04 23:06:48 +0000121 MMI = getAnalysisToUpdate<MachineModuleInfo>();
122 if (MMI) MMI->AnalyzeModule(M);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000123
124 return false;
125}
126
127bool AsmPrinter::doFinalization(Module &M) {
128 if (TAI->getWeakRefDirective()) {
129 if (!ExtWeakSymbols.empty())
130 SwitchToDataSection("");
131
132 for (std::set<const GlobalValue*>::iterator i = ExtWeakSymbols.begin(),
133 e = ExtWeakSymbols.end(); i != e; ++i) {
134 const GlobalValue *GV = *i;
135 std::string Name = Mang->getValueName(GV);
136 O << TAI->getWeakRefDirective() << Name << "\n";
137 }
138 }
139
140 if (TAI->getSetDirective()) {
141 if (!M.alias_empty())
142 SwitchToTextSection(TAI->getTextSection());
143
144 O << "\n";
145 for (Module::const_alias_iterator I = M.alias_begin(), E = M.alias_end();
146 I!=E; ++I) {
147 std::string Name = Mang->getValueName(I);
148 std::string Target;
Anton Korobeynikov6d2c5062007-09-06 17:21:48 +0000149
150 const GlobalValue *GV = cast<GlobalValue>(I->getAliasedGlobal());
151 Target = Mang->getValueName(GV);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000152
Anton Korobeynikov6d2c5062007-09-06 17:21:48 +0000153 if (I->hasExternalLinkage() || !TAI->getWeakRefDirective())
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000154 O << "\t.globl\t" << Name << "\n";
155 else if (I->hasWeakLinkage())
156 O << TAI->getWeakRefDirective() << Name << "\n";
157 else if (!I->hasInternalLinkage())
158 assert(0 && "Invalid alias linkage");
159
Nick Lewyckyf3df2392008-02-07 06:36:26 +0000160 O << TAI->getSetDirective() << ' ' << Name << ", " << Target << "\n";
Anton Korobeynikov6d2c5062007-09-06 17:21:48 +0000161
162 // If the aliasee has external weak linkage it can be referenced only by
163 // alias itself. In this case it can be not in ExtWeakSymbols list. Emit
164 // weak reference in such case.
165 if (GV->hasExternalWeakLinkage())
166 if (TAI->getWeakRefDirective())
167 O << TAI->getWeakRefDirective() << Target << "\n";
168 else
169 O << "\t.globl\t" << Target << "\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000170 }
171 }
172
Gordon Henriksendf87fdc2008-01-07 01:30:38 +0000173 CollectorModuleMetadata *CMM = getAnalysisToUpdate<CollectorModuleMetadata>();
174 assert(CMM && "AsmPrinter didn't require CollectorModuleMetadata?");
175 for (CollectorModuleMetadata::iterator I = CMM->end(),
176 E = CMM->begin(); I != E; )
177 (*--I)->finishAssembly(O, *this, *TAI);
178
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000179 delete Mang; Mang = 0;
180 return false;
181}
182
Bill Wendlinge9ecdcf2007-09-18 09:10:16 +0000183std::string AsmPrinter::getCurrentFunctionEHName(const MachineFunction *MF) {
Bill Wendlingef9211a2007-09-18 01:47:22 +0000184 assert(MF && "No machine function?");
Bill Wendlingd2144aa2007-09-18 05:03:44 +0000185 return Mang->makeNameProper(MF->getFunction()->getName() + ".eh",
186 TAI->getGlobalPrefix());
Bill Wendlingef9211a2007-09-18 01:47:22 +0000187}
188
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000189void AsmPrinter::SetupMachineFunction(MachineFunction &MF) {
190 // What's my mangled name?
191 CurrentFnName = Mang->getValueName(MF.getFunction());
Evan Cheng477013c2007-10-14 05:57:21 +0000192 IncrementFunctionNumber();
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000193}
194
195/// EmitConstantPool - Print to the current output stream assembly
196/// representations of the constants in the constant pool MCP. This is
197/// used to print out constants which have been "spilled to memory" by
198/// the code generator.
199///
200void AsmPrinter::EmitConstantPool(MachineConstantPool *MCP) {
201 const std::vector<MachineConstantPoolEntry> &CP = MCP->getConstants();
202 if (CP.empty()) return;
203
204 // Some targets require 4-, 8-, and 16- byte constant literals to be placed
205 // in special sections.
206 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > FourByteCPs;
207 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > EightByteCPs;
208 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > SixteenByteCPs;
209 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > OtherCPs;
210 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > TargetCPs;
211 for (unsigned i = 0, e = CP.size(); i != e; ++i) {
212 MachineConstantPoolEntry CPE = CP[i];
213 const Type *Ty = CPE.getType();
214 if (TAI->getFourByteConstantSection() &&
Duncan Sands8157ef42007-11-05 00:04:43 +0000215 TM.getTargetData()->getABITypeSize(Ty) == 4)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000216 FourByteCPs.push_back(std::make_pair(CPE, i));
217 else if (TAI->getEightByteConstantSection() &&
Duncan Sands8157ef42007-11-05 00:04:43 +0000218 TM.getTargetData()->getABITypeSize(Ty) == 8)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000219 EightByteCPs.push_back(std::make_pair(CPE, i));
220 else if (TAI->getSixteenByteConstantSection() &&
Duncan Sands8157ef42007-11-05 00:04:43 +0000221 TM.getTargetData()->getABITypeSize(Ty) == 16)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000222 SixteenByteCPs.push_back(std::make_pair(CPE, i));
223 else
224 OtherCPs.push_back(std::make_pair(CPE, i));
225 }
226
227 unsigned Alignment = MCP->getConstantPoolAlignment();
228 EmitConstantPool(Alignment, TAI->getFourByteConstantSection(), FourByteCPs);
229 EmitConstantPool(Alignment, TAI->getEightByteConstantSection(), EightByteCPs);
230 EmitConstantPool(Alignment, TAI->getSixteenByteConstantSection(),
231 SixteenByteCPs);
232 EmitConstantPool(Alignment, TAI->getConstantPoolSection(), OtherCPs);
233}
234
235void AsmPrinter::EmitConstantPool(unsigned Alignment, const char *Section,
236 std::vector<std::pair<MachineConstantPoolEntry,unsigned> > &CP) {
237 if (CP.empty()) return;
238
239 SwitchToDataSection(Section);
240 EmitAlignment(Alignment);
241 for (unsigned i = 0, e = CP.size(); i != e; ++i) {
Evan Cheng477013c2007-10-14 05:57:21 +0000242 O << TAI->getPrivateGlobalPrefix() << "CPI" << getFunctionNumber() << '_'
243 << CP[i].second << ":\t\t\t\t\t" << TAI->getCommentString() << " ";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000244 WriteTypeSymbolic(O, CP[i].first.getType(), 0) << '\n';
245 if (CP[i].first.isMachineConstantPoolEntry())
246 EmitMachineConstantPoolValue(CP[i].first.Val.MachineCPVal);
247 else
248 EmitGlobalConstant(CP[i].first.Val.ConstVal);
249 if (i != e-1) {
250 const Type *Ty = CP[i].first.getType();
251 unsigned EntSize =
Duncan Sands8157ef42007-11-05 00:04:43 +0000252 TM.getTargetData()->getABITypeSize(Ty);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000253 unsigned ValEnd = CP[i].first.getOffset() + EntSize;
254 // Emit inter-object padding for alignment.
255 EmitZeros(CP[i+1].first.getOffset()-ValEnd);
256 }
257 }
258}
259
260/// EmitJumpTableInfo - Print assembly representations of the jump tables used
261/// by the current function to the current output stream.
262///
263void AsmPrinter::EmitJumpTableInfo(MachineJumpTableInfo *MJTI,
264 MachineFunction &MF) {
265 const std::vector<MachineJumpTableEntry> &JT = MJTI->getJumpTables();
266 if (JT.empty()) return;
Anton Korobeynikov5772c672007-11-14 09:18:41 +0000267
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000268 bool IsPic = TM.getRelocationModel() == Reloc::PIC_;
269
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000270 // Pick the directive to use to print the jump table entries, and switch to
271 // the appropriate section.
272 TargetLowering *LoweringInfo = TM.getTargetLowering();
273
274 const char* JumpTableDataSection = TAI->getJumpTableDataSection();
275 if ((IsPic && !(LoweringInfo && LoweringInfo->usesGlobalOffsetTable())) ||
276 !JumpTableDataSection) {
277 // In PIC mode, we need to emit the jump table to the same section as the
278 // function body itself, otherwise the label differences won't make sense.
279 // We should also do if the section name is NULL.
280 const Function *F = MF.getFunction();
281 SwitchToTextSection(getSectionForFunction(*F).c_str(), F);
282 } else {
283 SwitchToDataSection(JumpTableDataSection);
284 }
285
286 EmitAlignment(Log2_32(MJTI->getAlignment()));
287
288 for (unsigned i = 0, e = JT.size(); i != e; ++i) {
289 const std::vector<MachineBasicBlock*> &JTBBs = JT[i].MBBs;
290
291 // If this jump table was deleted, ignore it.
292 if (JTBBs.empty()) continue;
293
294 // For PIC codegen, if possible we want to use the SetDirective to reduce
295 // the number of relocations the assembler will generate for the jump table.
296 // Set directives are all printed before the jump table itself.
Evan Cheng6fb06762007-11-09 01:32:10 +0000297 SmallPtrSet<MachineBasicBlock*, 16> EmittedSets;
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000298 if (TAI->getSetDirective() && IsPic)
299 for (unsigned ii = 0, ee = JTBBs.size(); ii != ee; ++ii)
Evan Cheng6fb06762007-11-09 01:32:10 +0000300 if (EmittedSets.insert(JTBBs[ii]))
301 printPICJumpTableSetLabel(i, JTBBs[ii]);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000302
303 // On some targets (e.g. darwin) we want to emit two consequtive labels
304 // before each jump table. The first label is never referenced, but tells
305 // the assembler and linker the extents of the jump table object. The
306 // second label is actually referenced by the code.
307 if (const char *JTLabelPrefix = TAI->getJumpTableSpecialLabelPrefix())
Evan Cheng477013c2007-10-14 05:57:21 +0000308 O << JTLabelPrefix << "JTI" << getFunctionNumber() << '_' << i << ":\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000309
Evan Cheng477013c2007-10-14 05:57:21 +0000310 O << TAI->getPrivateGlobalPrefix() << "JTI" << getFunctionNumber()
311 << '_' << i << ":\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000312
313 for (unsigned ii = 0, ee = JTBBs.size(); ii != ee; ++ii) {
Anton Korobeynikov5772c672007-11-14 09:18:41 +0000314 printPICJumpTableEntry(MJTI, JTBBs[ii], i);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000315 O << '\n';
316 }
317 }
318}
319
Anton Korobeynikov5772c672007-11-14 09:18:41 +0000320void AsmPrinter::printPICJumpTableEntry(const MachineJumpTableInfo *MJTI,
321 const MachineBasicBlock *MBB,
322 unsigned uid) const {
323 bool IsPic = TM.getRelocationModel() == Reloc::PIC_;
324
325 // Use JumpTableDirective otherwise honor the entry size from the jump table
326 // info.
327 const char *JTEntryDirective = TAI->getJumpTableDirective();
328 bool HadJTEntryDirective = JTEntryDirective != NULL;
329 if (!HadJTEntryDirective) {
330 JTEntryDirective = MJTI->getEntrySize() == 4 ?
331 TAI->getData32bitsDirective() : TAI->getData64bitsDirective();
332 }
333
334 O << JTEntryDirective << ' ';
335
336 // If we have emitted set directives for the jump table entries, print
337 // them rather than the entries themselves. If we're emitting PIC, then
338 // emit the table entries as differences between two text section labels.
339 // If we're emitting non-PIC code, then emit the entries as direct
340 // references to the target basic blocks.
341 if (IsPic) {
342 if (TAI->getSetDirective()) {
343 O << TAI->getPrivateGlobalPrefix() << getFunctionNumber()
344 << '_' << uid << "_set_" << MBB->getNumber();
345 } else {
346 printBasicBlockLabel(MBB, false, false);
347 // If the arch uses custom Jump Table directives, don't calc relative to
348 // JT
349 if (!HadJTEntryDirective)
350 O << '-' << TAI->getPrivateGlobalPrefix() << "JTI"
351 << getFunctionNumber() << '_' << uid;
352 }
353 } else {
354 printBasicBlockLabel(MBB, false, false);
355 }
356}
357
358
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000359/// EmitSpecialLLVMGlobal - Check to see if the specified global is a
360/// special global used by LLVM. If so, emit it and return true, otherwise
361/// do nothing and return false.
362bool AsmPrinter::EmitSpecialLLVMGlobal(const GlobalVariable *GV) {
Andrew Lenharth61d35f52007-08-22 19:33:11 +0000363 if (GV->getName() == "llvm.used") {
364 if (TAI->getUsedDirective() != 0) // No need to emit this at all.
365 EmitLLVMUsedList(GV->getInitializer());
366 return true;
367 }
368
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000369 // Ignore debug and non-emitted data.
370 if (GV->getSection() == "llvm.metadata") return true;
371
372 if (!GV->hasAppendingLinkage()) return false;
373
374 assert(GV->hasInitializer() && "Not a special LLVM global!");
375
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000376 const TargetData *TD = TM.getTargetData();
377 unsigned Align = Log2_32(TD->getPointerPrefAlignment());
378 if (GV->getName() == "llvm.global_ctors" && GV->use_empty()) {
379 SwitchToDataSection(TAI->getStaticCtorsSection());
380 EmitAlignment(Align, 0);
381 EmitXXStructorList(GV->getInitializer());
382 return true;
383 }
384
385 if (GV->getName() == "llvm.global_dtors" && GV->use_empty()) {
386 SwitchToDataSection(TAI->getStaticDtorsSection());
387 EmitAlignment(Align, 0);
388 EmitXXStructorList(GV->getInitializer());
389 return true;
390 }
391
392 return false;
393}
394
395/// EmitLLVMUsedList - For targets that define a TAI::UsedDirective, mark each
396/// global in the specified llvm.used list as being used with this directive.
397void AsmPrinter::EmitLLVMUsedList(Constant *List) {
398 const char *Directive = TAI->getUsedDirective();
399
400 // Should be an array of 'sbyte*'.
401 ConstantArray *InitList = dyn_cast<ConstantArray>(List);
402 if (InitList == 0) return;
403
404 for (unsigned i = 0, e = InitList->getNumOperands(); i != e; ++i) {
405 O << Directive;
406 EmitConstantValueOnly(InitList->getOperand(i));
407 O << "\n";
408 }
409}
410
411/// EmitXXStructorList - Emit the ctor or dtor list. This just prints out the
412/// function pointers, ignoring the init priority.
413void AsmPrinter::EmitXXStructorList(Constant *List) {
414 // Should be an array of '{ int, void ()* }' structs. The first value is the
415 // init priority, which we ignore.
416 if (!isa<ConstantArray>(List)) return;
417 ConstantArray *InitList = cast<ConstantArray>(List);
418 for (unsigned i = 0, e = InitList->getNumOperands(); i != e; ++i)
419 if (ConstantStruct *CS = dyn_cast<ConstantStruct>(InitList->getOperand(i))){
420 if (CS->getNumOperands() != 2) return; // Not array of 2-element structs.
421
422 if (CS->getOperand(1)->isNullValue())
423 return; // Found a null terminator, exit printing.
424 // Emit the function pointer.
425 EmitGlobalConstant(CS->getOperand(1));
426 }
427}
428
429/// getGlobalLinkName - Returns the asm/link name of of the specified
430/// global variable. Should be overridden by each target asm printer to
431/// generate the appropriate value.
432const std::string AsmPrinter::getGlobalLinkName(const GlobalVariable *GV) const{
433 std::string LinkName;
434
435 if (isa<Function>(GV)) {
436 LinkName += TAI->getFunctionAddrPrefix();
437 LinkName += Mang->getValueName(GV);
438 LinkName += TAI->getFunctionAddrSuffix();
439 } else {
440 LinkName += TAI->getGlobalVarAddrPrefix();
441 LinkName += Mang->getValueName(GV);
442 LinkName += TAI->getGlobalVarAddrSuffix();
443 }
444
445 return LinkName;
446}
447
448/// EmitExternalGlobal - Emit the external reference to a global variable.
449/// Should be overridden if an indirect reference should be used.
450void AsmPrinter::EmitExternalGlobal(const GlobalVariable *GV) {
451 O << getGlobalLinkName(GV);
452}
453
454
455
456//===----------------------------------------------------------------------===//
457/// LEB 128 number encoding.
458
459/// PrintULEB128 - Print a series of hexidecimal values (separated by commas)
460/// representing an unsigned leb128 value.
461void AsmPrinter::PrintULEB128(unsigned Value) const {
462 do {
463 unsigned Byte = Value & 0x7f;
464 Value >>= 7;
465 if (Value) Byte |= 0x80;
466 O << "0x" << std::hex << Byte << std::dec;
467 if (Value) O << ", ";
468 } while (Value);
469}
470
471/// SizeULEB128 - Compute the number of bytes required for an unsigned leb128
472/// value.
473unsigned AsmPrinter::SizeULEB128(unsigned Value) {
474 unsigned Size = 0;
475 do {
476 Value >>= 7;
477 Size += sizeof(int8_t);
478 } while (Value);
479 return Size;
480}
481
482/// PrintSLEB128 - Print a series of hexidecimal values (separated by commas)
483/// representing a signed leb128 value.
484void AsmPrinter::PrintSLEB128(int Value) const {
485 int Sign = Value >> (8 * sizeof(Value) - 1);
486 bool IsMore;
487
488 do {
489 unsigned Byte = Value & 0x7f;
490 Value >>= 7;
491 IsMore = Value != Sign || ((Byte ^ Sign) & 0x40) != 0;
492 if (IsMore) Byte |= 0x80;
493 O << "0x" << std::hex << Byte << std::dec;
494 if (IsMore) O << ", ";
495 } while (IsMore);
496}
497
498/// SizeSLEB128 - Compute the number of bytes required for a signed leb128
499/// value.
500unsigned AsmPrinter::SizeSLEB128(int Value) {
501 unsigned Size = 0;
502 int Sign = Value >> (8 * sizeof(Value) - 1);
503 bool IsMore;
504
505 do {
506 unsigned Byte = Value & 0x7f;
507 Value >>= 7;
508 IsMore = Value != Sign || ((Byte ^ Sign) & 0x40) != 0;
509 Size += sizeof(int8_t);
510 } while (IsMore);
511 return Size;
512}
513
514//===--------------------------------------------------------------------===//
515// Emission and print routines
516//
517
518/// PrintHex - Print a value as a hexidecimal value.
519///
520void AsmPrinter::PrintHex(int Value) const {
521 O << "0x" << std::hex << Value << std::dec;
522}
523
524/// EOL - Print a newline character to asm stream. If a comment is present
525/// then it will be printed first. Comments should not contain '\n'.
526void AsmPrinter::EOL() const {
527 O << "\n";
528}
529void AsmPrinter::EOL(const std::string &Comment) const {
530 if (AsmVerbose && !Comment.empty()) {
531 O << "\t"
532 << TAI->getCommentString()
533 << " "
534 << Comment;
535 }
536 O << "\n";
537}
538
539/// EmitULEB128Bytes - Emit an assembler byte data directive to compose an
540/// unsigned leb128 value.
541void AsmPrinter::EmitULEB128Bytes(unsigned Value) const {
542 if (TAI->hasLEB128()) {
543 O << "\t.uleb128\t"
544 << Value;
545 } else {
546 O << TAI->getData8bitsDirective();
547 PrintULEB128(Value);
548 }
549}
550
551/// EmitSLEB128Bytes - print an assembler byte data directive to compose a
552/// signed leb128 value.
553void AsmPrinter::EmitSLEB128Bytes(int Value) const {
554 if (TAI->hasLEB128()) {
555 O << "\t.sleb128\t"
556 << Value;
557 } else {
558 O << TAI->getData8bitsDirective();
559 PrintSLEB128(Value);
560 }
561}
562
563/// EmitInt8 - Emit a byte directive and value.
564///
565void AsmPrinter::EmitInt8(int Value) const {
566 O << TAI->getData8bitsDirective();
567 PrintHex(Value & 0xFF);
568}
569
570/// EmitInt16 - Emit a short directive and value.
571///
572void AsmPrinter::EmitInt16(int Value) const {
573 O << TAI->getData16bitsDirective();
574 PrintHex(Value & 0xFFFF);
575}
576
577/// EmitInt32 - Emit a long directive and value.
578///
579void AsmPrinter::EmitInt32(int Value) const {
580 O << TAI->getData32bitsDirective();
581 PrintHex(Value);
582}
583
584/// EmitInt64 - Emit a long long directive and value.
585///
586void AsmPrinter::EmitInt64(uint64_t Value) const {
587 if (TAI->getData64bitsDirective()) {
588 O << TAI->getData64bitsDirective();
589 PrintHex(Value);
590 } else {
591 if (TM.getTargetData()->isBigEndian()) {
592 EmitInt32(unsigned(Value >> 32)); O << "\n";
593 EmitInt32(unsigned(Value));
594 } else {
595 EmitInt32(unsigned(Value)); O << "\n";
596 EmitInt32(unsigned(Value >> 32));
597 }
598 }
599}
600
601/// toOctal - Convert the low order bits of X into an octal digit.
602///
603static inline char toOctal(int X) {
604 return (X&7)+'0';
605}
606
607/// printStringChar - Print a char, escaped if necessary.
608///
609static void printStringChar(std::ostream &O, unsigned char C) {
610 if (C == '"') {
611 O << "\\\"";
612 } else if (C == '\\') {
613 O << "\\\\";
614 } else if (isprint(C)) {
615 O << C;
616 } else {
617 switch(C) {
618 case '\b': O << "\\b"; break;
619 case '\f': O << "\\f"; break;
620 case '\n': O << "\\n"; break;
621 case '\r': O << "\\r"; break;
622 case '\t': O << "\\t"; break;
623 default:
624 O << '\\';
625 O << toOctal(C >> 6);
626 O << toOctal(C >> 3);
627 O << toOctal(C >> 0);
628 break;
629 }
630 }
631}
632
633/// EmitString - Emit a string with quotes and a null terminator.
634/// Special characters are emitted properly.
635/// \literal (Eg. '\t') \endliteral
636void AsmPrinter::EmitString(const std::string &String) const {
637 const char* AscizDirective = TAI->getAscizDirective();
638 if (AscizDirective)
639 O << AscizDirective;
640 else
641 O << TAI->getAsciiDirective();
642 O << "\"";
643 for (unsigned i = 0, N = String.size(); i < N; ++i) {
644 unsigned char C = String[i];
645 printStringChar(O, C);
646 }
647 if (AscizDirective)
648 O << "\"";
649 else
650 O << "\\0\"";
651}
652
653
Dan Gohmane7ba1be2007-09-24 20:58:13 +0000654/// EmitFile - Emit a .file directive.
655void AsmPrinter::EmitFile(unsigned Number, const std::string &Name) const {
656 O << "\t.file\t" << Number << " \"";
657 for (unsigned i = 0, N = Name.size(); i < N; ++i) {
658 unsigned char C = Name[i];
659 printStringChar(O, C);
660 }
661 O << "\"";
662}
663
664
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000665//===----------------------------------------------------------------------===//
666
667// EmitAlignment - Emit an alignment directive to the specified power of
668// two boundary. For example, if you pass in 3 here, you will get an 8
669// byte alignment. If a global value is specified, and if that global has
670// an explicit alignment requested, it will unconditionally override the
671// alignment request. However, if ForcedAlignBits is specified, this value
672// has final say: the ultimate alignment will be the max of ForcedAlignBits
673// and the alignment computed with NumBits and the global.
674//
675// The algorithm is:
676// Align = NumBits;
677// if (GV && GV->hasalignment) Align = GV->getalignment();
678// Align = std::max(Align, ForcedAlignBits);
679//
680void AsmPrinter::EmitAlignment(unsigned NumBits, const GlobalValue *GV,
Evan Chengc1f41aa2007-07-25 23:35:07 +0000681 unsigned ForcedAlignBits, bool UseFillExpr,
682 unsigned FillValue) const {
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000683 if (GV && GV->getAlignment())
684 NumBits = Log2_32(GV->getAlignment());
685 NumBits = std::max(NumBits, ForcedAlignBits);
686
687 if (NumBits == 0) return; // No need to emit alignment.
688 if (TAI->getAlignmentIsInBytes()) NumBits = 1 << NumBits;
Evan Chengc1f41aa2007-07-25 23:35:07 +0000689 O << TAI->getAlignDirective() << NumBits;
690 if (UseFillExpr) O << ",0x" << std::hex << FillValue << std::dec;
691 O << "\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000692}
693
694
695/// EmitZeros - Emit a block of zeros.
696///
697void AsmPrinter::EmitZeros(uint64_t NumZeros) const {
698 if (NumZeros) {
699 if (TAI->getZeroDirective()) {
700 O << TAI->getZeroDirective() << NumZeros;
701 if (TAI->getZeroDirectiveSuffix())
702 O << TAI->getZeroDirectiveSuffix();
703 O << "\n";
704 } else {
705 for (; NumZeros; --NumZeros)
706 O << TAI->getData8bitsDirective() << "0\n";
707 }
708 }
709}
710
711// Print out the specified constant, without a storage class. Only the
712// constants valid in constant expressions can occur here.
713void AsmPrinter::EmitConstantValueOnly(const Constant *CV) {
714 if (CV->isNullValue() || isa<UndefValue>(CV))
715 O << "0";
716 else if (const ConstantInt *CI = dyn_cast<ConstantInt>(CV)) {
717 O << CI->getZExtValue();
718 } else if (const GlobalValue *GV = dyn_cast<GlobalValue>(CV)) {
719 // This is a constant address for a global variable or function. Use the
720 // name of the variable or function as the address value, possibly
721 // decorating it with GlobalVarAddrPrefix/Suffix or
722 // FunctionAddrPrefix/Suffix (these all default to "" )
723 if (isa<Function>(GV)) {
724 O << TAI->getFunctionAddrPrefix()
725 << Mang->getValueName(GV)
726 << TAI->getFunctionAddrSuffix();
727 } else {
728 O << TAI->getGlobalVarAddrPrefix()
729 << Mang->getValueName(GV)
730 << TAI->getGlobalVarAddrSuffix();
731 }
732 } else if (const ConstantExpr *CE = dyn_cast<ConstantExpr>(CV)) {
733 const TargetData *TD = TM.getTargetData();
734 unsigned Opcode = CE->getOpcode();
735 switch (Opcode) {
736 case Instruction::GetElementPtr: {
737 // generate a symbolic expression for the byte address
738 const Constant *ptrVal = CE->getOperand(0);
739 SmallVector<Value*, 8> idxVec(CE->op_begin()+1, CE->op_end());
740 if (int64_t Offset = TD->getIndexedOffset(ptrVal->getType(), &idxVec[0],
741 idxVec.size())) {
742 if (Offset)
743 O << "(";
744 EmitConstantValueOnly(ptrVal);
745 if (Offset > 0)
746 O << ") + " << Offset;
747 else if (Offset < 0)
748 O << ") - " << -Offset;
749 } else {
750 EmitConstantValueOnly(ptrVal);
751 }
752 break;
753 }
754 case Instruction::Trunc:
755 case Instruction::ZExt:
756 case Instruction::SExt:
757 case Instruction::FPTrunc:
758 case Instruction::FPExt:
759 case Instruction::UIToFP:
760 case Instruction::SIToFP:
761 case Instruction::FPToUI:
762 case Instruction::FPToSI:
763 assert(0 && "FIXME: Don't yet support this kind of constant cast expr");
764 break;
765 case Instruction::BitCast:
766 return EmitConstantValueOnly(CE->getOperand(0));
767
768 case Instruction::IntToPtr: {
769 // Handle casts to pointers by changing them into casts to the appropriate
770 // integer type. This promotes constant folding and simplifies this code.
771 Constant *Op = CE->getOperand(0);
772 Op = ConstantExpr::getIntegerCast(Op, TD->getIntPtrType(), false/*ZExt*/);
773 return EmitConstantValueOnly(Op);
774 }
775
776
777 case Instruction::PtrToInt: {
778 // Support only foldable casts to/from pointers that can be eliminated by
779 // changing the pointer to the appropriately sized integer type.
780 Constant *Op = CE->getOperand(0);
781 const Type *Ty = CE->getType();
782
783 // We can emit the pointer value into this slot if the slot is an
784 // integer slot greater or equal to the size of the pointer.
785 if (Ty->isInteger() &&
Duncan Sands8157ef42007-11-05 00:04:43 +0000786 TD->getABITypeSize(Ty) >= TD->getABITypeSize(Op->getType()))
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000787 return EmitConstantValueOnly(Op);
788
789 assert(0 && "FIXME: Don't yet support this kind of constant cast expr");
790 EmitConstantValueOnly(Op);
791 break;
792 }
793 case Instruction::Add:
794 case Instruction::Sub:
Anton Korobeynikovd3b58742007-12-18 20:53:41 +0000795 case Instruction::And:
796 case Instruction::Or:
797 case Instruction::Xor:
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000798 O << "(";
799 EmitConstantValueOnly(CE->getOperand(0));
Anton Korobeynikovd3b58742007-12-18 20:53:41 +0000800 O << ")";
801 switch (Opcode) {
802 case Instruction::Add:
803 O << " + ";
804 break;
805 case Instruction::Sub:
806 O << " - ";
807 break;
808 case Instruction::And:
809 O << " & ";
810 break;
811 case Instruction::Or:
812 O << " | ";
813 break;
814 case Instruction::Xor:
815 O << " ^ ";
816 break;
817 default:
818 break;
819 }
820 O << "(";
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000821 EmitConstantValueOnly(CE->getOperand(1));
822 O << ")";
823 break;
824 default:
825 assert(0 && "Unsupported operator!");
826 }
827 } else {
828 assert(0 && "Unknown constant value!");
829 }
830}
831
832/// printAsCString - Print the specified array as a C compatible string, only if
833/// the predicate isString is true.
834///
835static void printAsCString(std::ostream &O, const ConstantArray *CVA,
836 unsigned LastElt) {
837 assert(CVA->isString() && "Array is not string compatible!");
838
839 O << "\"";
840 for (unsigned i = 0; i != LastElt; ++i) {
841 unsigned char C =
842 (unsigned char)cast<ConstantInt>(CVA->getOperand(i))->getZExtValue();
843 printStringChar(O, C);
844 }
845 O << "\"";
846}
847
848/// EmitString - Emit a zero-byte-terminated string constant.
849///
850void AsmPrinter::EmitString(const ConstantArray *CVA) const {
851 unsigned NumElts = CVA->getNumOperands();
852 if (TAI->getAscizDirective() && NumElts &&
853 cast<ConstantInt>(CVA->getOperand(NumElts-1))->getZExtValue() == 0) {
854 O << TAI->getAscizDirective();
855 printAsCString(O, CVA, NumElts-1);
856 } else {
857 O << TAI->getAsciiDirective();
858 printAsCString(O, CVA, NumElts);
859 }
860 O << "\n";
861}
862
863/// EmitGlobalConstant - Print a general LLVM constant to the .s file.
Duncan Sands8157ef42007-11-05 00:04:43 +0000864/// If Packed is false, pad to the ABI size.
865void AsmPrinter::EmitGlobalConstant(const Constant *CV, bool Packed) {
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000866 const TargetData *TD = TM.getTargetData();
Duncan Sands8157ef42007-11-05 00:04:43 +0000867 unsigned Size = Packed ?
868 TD->getTypeStoreSize(CV->getType()) : TD->getABITypeSize(CV->getType());
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000869
870 if (CV->isNullValue() || isa<UndefValue>(CV)) {
Duncan Sands8157ef42007-11-05 00:04:43 +0000871 EmitZeros(Size);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000872 return;
873 } else if (const ConstantArray *CVA = dyn_cast<ConstantArray>(CV)) {
874 if (CVA->isString()) {
875 EmitString(CVA);
876 } else { // Not a string. Print the values in successive locations
Duncan Sands8157ef42007-11-05 00:04:43 +0000877 for (unsigned i = 0, e = CVA->getNumOperands(); i != e; ++i)
878 EmitGlobalConstant(CVA->getOperand(i), false);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000879 }
880 return;
881 } else if (const ConstantStruct *CVS = dyn_cast<ConstantStruct>(CV)) {
882 // Print the fields in successive locations. Pad to align if needed!
883 const StructLayout *cvsLayout = TD->getStructLayout(CVS->getType());
884 uint64_t sizeSoFar = 0;
885 for (unsigned i = 0, e = CVS->getNumOperands(); i != e; ++i) {
886 const Constant* field = CVS->getOperand(i);
887
888 // Check if padding is needed and insert one or more 0s.
Duncan Sands8157ef42007-11-05 00:04:43 +0000889 uint64_t fieldSize = TD->getTypeStoreSize(field->getType());
Duncan Sandsc15d58c2007-11-05 18:03:02 +0000890 uint64_t padSize = ((i == e-1 ? Size : cvsLayout->getElementOffset(i+1))
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000891 - cvsLayout->getElementOffset(i)) - fieldSize;
892 sizeSoFar += fieldSize + padSize;
893
Duncan Sandsc15d58c2007-11-05 18:03:02 +0000894 // Now print the actual field value without ABI size padding.
895 EmitGlobalConstant(field, true);
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000896
Duncan Sandsc15d58c2007-11-05 18:03:02 +0000897 // Insert padding - this may include padding to increase the size of the
898 // current field up to the ABI size (if the struct is not packed) as well
899 // as padding to ensure that the next field starts at the right offset.
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000900 EmitZeros(padSize);
901 }
902 assert(sizeSoFar == cvsLayout->getSizeInBytes() &&
903 "Layout of constant struct may be incorrect!");
904 return;
905 } else if (const ConstantFP *CFP = dyn_cast<ConstantFP>(CV)) {
906 // FP Constants are printed as integer constants to avoid losing
907 // precision...
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000908 if (CFP->getType() == Type::DoubleTy) {
Dale Johannesen1616e902007-09-11 18:32:33 +0000909 double Val = CFP->getValueAPF().convertToDouble(); // for comment only
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000910 uint64_t i = CFP->getValueAPF().convertToAPInt().getZExtValue();
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000911 if (TAI->getData64bitsDirective())
Dale Johannesen1616e902007-09-11 18:32:33 +0000912 O << TAI->getData64bitsDirective() << i << "\t"
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000913 << TAI->getCommentString() << " double value: " << Val << "\n";
914 else if (TD->isBigEndian()) {
Dale Johannesen1616e902007-09-11 18:32:33 +0000915 O << TAI->getData32bitsDirective() << unsigned(i >> 32)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000916 << "\t" << TAI->getCommentString()
917 << " double most significant word " << Val << "\n";
Dale Johannesen1616e902007-09-11 18:32:33 +0000918 O << TAI->getData32bitsDirective() << unsigned(i)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000919 << "\t" << TAI->getCommentString()
920 << " double least significant word " << Val << "\n";
921 } else {
Dale Johannesen1616e902007-09-11 18:32:33 +0000922 O << TAI->getData32bitsDirective() << unsigned(i)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000923 << "\t" << TAI->getCommentString()
924 << " double least significant word " << Val << "\n";
Dale Johannesen1616e902007-09-11 18:32:33 +0000925 O << TAI->getData32bitsDirective() << unsigned(i >> 32)
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000926 << "\t" << TAI->getCommentString()
927 << " double most significant word " << Val << "\n";
928 }
929 return;
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000930 } else if (CFP->getType() == Type::FloatTy) {
Dale Johannesen1616e902007-09-11 18:32:33 +0000931 float Val = CFP->getValueAPF().convertToFloat(); // for comment only
932 O << TAI->getData32bitsDirective()
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000933 << CFP->getValueAPF().convertToAPInt().getZExtValue()
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000934 << "\t" << TAI->getCommentString() << " float " << Val << "\n";
935 return;
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000936 } else if (CFP->getType() == Type::X86_FP80Ty) {
937 // all long double variants are printed as hex
Dale Johannesen693aa822007-09-26 23:20:33 +0000938 // api needed to prevent premature destruction
939 APInt api = CFP->getValueAPF().convertToAPInt();
940 const uint64_t *p = api.getRawData();
Chris Lattner00d63062008-01-27 06:09:28 +0000941 APFloat DoubleVal = CFP->getValueAPF();
942 DoubleVal.convert(APFloat::IEEEdouble, APFloat::rmNearestTiesToEven);
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000943 if (TD->isBigEndian()) {
944 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 48)
945 << "\t" << TAI->getCommentString()
Chris Lattner00d63062008-01-27 06:09:28 +0000946 << " long double most significant halfword of ~"
947 << DoubleVal.convertToDouble() << "\n";
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000948 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 32)
949 << "\t" << TAI->getCommentString()
950 << " long double next halfword\n";
951 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 16)
952 << "\t" << TAI->getCommentString()
953 << " long double next halfword\n";
954 O << TAI->getData16bitsDirective() << uint16_t(p[0])
955 << "\t" << TAI->getCommentString()
956 << " long double next halfword\n";
957 O << TAI->getData16bitsDirective() << uint16_t(p[1])
958 << "\t" << TAI->getCommentString()
959 << " long double least significant halfword\n";
960 } else {
961 O << TAI->getData16bitsDirective() << uint16_t(p[1])
962 << "\t" << TAI->getCommentString()
Chris Lattner00d63062008-01-27 06:09:28 +0000963 << " long double least significant halfword of ~"
964 << DoubleVal.convertToDouble() << "\n";
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000965 O << TAI->getData16bitsDirective() << uint16_t(p[0])
966 << "\t" << TAI->getCommentString()
967 << " long double next halfword\n";
968 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 16)
969 << "\t" << TAI->getCommentString()
970 << " long double next halfword\n";
971 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 32)
972 << "\t" << TAI->getCommentString()
973 << " long double next halfword\n";
974 O << TAI->getData16bitsDirective() << uint16_t(p[0] >> 48)
975 << "\t" << TAI->getCommentString()
976 << " long double most significant halfword\n";
977 }
Duncan Sands8157ef42007-11-05 00:04:43 +0000978 EmitZeros(Size - TD->getTypeStoreSize(Type::X86_FP80Ty));
Dale Johannesenfbd9cda2007-09-12 03:30:33 +0000979 return;
Dale Johannesend3b6af32007-10-11 23:32:15 +0000980 } else if (CFP->getType() == Type::PPC_FP128Ty) {
981 // all long double variants are printed as hex
982 // api needed to prevent premature destruction
983 APInt api = CFP->getValueAPF().convertToAPInt();
984 const uint64_t *p = api.getRawData();
985 if (TD->isBigEndian()) {
986 O << TAI->getData32bitsDirective() << uint32_t(p[0] >> 32)
987 << "\t" << TAI->getCommentString()
988 << " long double most significant word\n";
989 O << TAI->getData32bitsDirective() << uint32_t(p[0])
990 << "\t" << TAI->getCommentString()
991 << " long double next word\n";
992 O << TAI->getData32bitsDirective() << uint32_t(p[1] >> 32)
993 << "\t" << TAI->getCommentString()
994 << " long double next word\n";
995 O << TAI->getData32bitsDirective() << uint32_t(p[1])
996 << "\t" << TAI->getCommentString()
997 << " long double least significant word\n";
998 } else {
999 O << TAI->getData32bitsDirective() << uint32_t(p[1])
1000 << "\t" << TAI->getCommentString()
1001 << " long double least significant word\n";
1002 O << TAI->getData32bitsDirective() << uint32_t(p[1] >> 32)
1003 << "\t" << TAI->getCommentString()
1004 << " long double next word\n";
1005 O << TAI->getData32bitsDirective() << uint32_t(p[0])
1006 << "\t" << TAI->getCommentString()
1007 << " long double next word\n";
1008 O << TAI->getData32bitsDirective() << uint32_t(p[0] >> 32)
1009 << "\t" << TAI->getCommentString()
1010 << " long double most significant word\n";
1011 }
1012 return;
Dale Johannesenfbd9cda2007-09-12 03:30:33 +00001013 } else assert(0 && "Floating point constant type not handled");
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001014 } else if (CV->getType() == Type::Int64Ty) {
1015 if (const ConstantInt *CI = dyn_cast<ConstantInt>(CV)) {
1016 uint64_t Val = CI->getZExtValue();
1017
1018 if (TAI->getData64bitsDirective())
1019 O << TAI->getData64bitsDirective() << Val << "\n";
1020 else if (TD->isBigEndian()) {
1021 O << TAI->getData32bitsDirective() << unsigned(Val >> 32)
1022 << "\t" << TAI->getCommentString()
1023 << " Double-word most significant word " << Val << "\n";
1024 O << TAI->getData32bitsDirective() << unsigned(Val)
1025 << "\t" << TAI->getCommentString()
1026 << " Double-word least significant word " << Val << "\n";
1027 } else {
1028 O << TAI->getData32bitsDirective() << unsigned(Val)
1029 << "\t" << TAI->getCommentString()
1030 << " Double-word least significant word " << Val << "\n";
1031 O << TAI->getData32bitsDirective() << unsigned(Val >> 32)
1032 << "\t" << TAI->getCommentString()
1033 << " Double-word most significant word " << Val << "\n";
1034 }
1035 return;
1036 }
1037 } else if (const ConstantVector *CP = dyn_cast<ConstantVector>(CV)) {
1038 const VectorType *PTy = CP->getType();
1039
1040 for (unsigned I = 0, E = PTy->getNumElements(); I < E; ++I)
Duncan Sands8157ef42007-11-05 00:04:43 +00001041 EmitGlobalConstant(CP->getOperand(I), false);
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001042
1043 return;
1044 }
1045
1046 const Type *type = CV->getType();
1047 printDataDirective(type);
1048 EmitConstantValueOnly(CV);
1049 O << "\n";
1050}
1051
1052void
1053AsmPrinter::EmitMachineConstantPoolValue(MachineConstantPoolValue *MCPV) {
1054 // Target doesn't support this yet!
1055 abort();
1056}
1057
1058/// PrintSpecial - Print information related to the specified machine instr
1059/// that is independent of the operand, and may be independent of the instr
1060/// itself. This can be useful for portably encoding the comment character
1061/// or other bits of target-specific knowledge into the asmstrings. The
1062/// syntax used is ${:comment}. Targets can override this to add support
1063/// for their own strange codes.
1064void AsmPrinter::PrintSpecial(const MachineInstr *MI, const char *Code) {
1065 if (!strcmp(Code, "private")) {
1066 O << TAI->getPrivateGlobalPrefix();
1067 } else if (!strcmp(Code, "comment")) {
1068 O << TAI->getCommentString();
1069 } else if (!strcmp(Code, "uid")) {
1070 // Assign a unique ID to this machine instruction.
1071 static const MachineInstr *LastMI = 0;
1072 static const Function *F = 0;
1073 static unsigned Counter = 0U-1;
1074
1075 // Comparing the address of MI isn't sufficient, because machineinstrs may
1076 // be allocated to the same address across functions.
1077 const Function *ThisF = MI->getParent()->getParent()->getFunction();
1078
1079 // If this is a new machine instruction, bump the counter.
1080 if (LastMI != MI || F != ThisF) {
1081 ++Counter;
1082 LastMI = MI;
1083 F = ThisF;
1084 }
1085 O << Counter;
1086 } else {
1087 cerr << "Unknown special formatter '" << Code
1088 << "' for machine instr: " << *MI;
1089 exit(1);
1090 }
1091}
1092
1093
1094/// printInlineAsm - This method formats and prints the specified machine
1095/// instruction that is an inline asm.
1096void AsmPrinter::printInlineAsm(const MachineInstr *MI) const {
1097 unsigned NumOperands = MI->getNumOperands();
1098
1099 // Count the number of register definitions.
1100 unsigned NumDefs = 0;
Dan Gohman38a9a9f2007-09-14 20:33:02 +00001101 for (; MI->getOperand(NumDefs).isRegister() && MI->getOperand(NumDefs).isDef();
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001102 ++NumDefs)
1103 assert(NumDefs != NumOperands-1 && "No asm string?");
1104
1105 assert(MI->getOperand(NumDefs).isExternalSymbol() && "No asm string?");
1106
1107 // Disassemble the AsmStr, printing out the literal pieces, the operands, etc.
1108 const char *AsmStr = MI->getOperand(NumDefs).getSymbolName();
1109
Dale Johannesene99fc902008-01-29 02:21:21 +00001110 // If this asmstr is empty, just print the #APP/#NOAPP markers.
1111 // These are useful to see where empty asm's wound up.
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001112 if (AsmStr[0] == 0) {
Dale Johannesene99fc902008-01-29 02:21:21 +00001113 O << TAI->getInlineAsmStart() << "\n\t" << TAI->getInlineAsmEnd() << "\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001114 return;
1115 }
1116
1117 O << TAI->getInlineAsmStart() << "\n\t";
1118
1119 // The variant of the current asmprinter.
1120 int AsmPrinterVariant = TAI->getAssemblerDialect();
1121
1122 int CurVariant = -1; // The number of the {.|.|.} region we are in.
1123 const char *LastEmitted = AsmStr; // One past the last character emitted.
1124
1125 while (*LastEmitted) {
1126 switch (*LastEmitted) {
1127 default: {
1128 // Not a special case, emit the string section literally.
1129 const char *LiteralEnd = LastEmitted+1;
1130 while (*LiteralEnd && *LiteralEnd != '{' && *LiteralEnd != '|' &&
1131 *LiteralEnd != '}' && *LiteralEnd != '$' && *LiteralEnd != '\n')
1132 ++LiteralEnd;
1133 if (CurVariant == -1 || CurVariant == AsmPrinterVariant)
1134 O.write(LastEmitted, LiteralEnd-LastEmitted);
1135 LastEmitted = LiteralEnd;
1136 break;
1137 }
1138 case '\n':
1139 ++LastEmitted; // Consume newline character.
1140 O << "\n"; // Indent code with newline.
1141 break;
1142 case '$': {
1143 ++LastEmitted; // Consume '$' character.
1144 bool Done = true;
1145
1146 // Handle escapes.
1147 switch (*LastEmitted) {
1148 default: Done = false; break;
1149 case '$': // $$ -> $
1150 if (CurVariant == -1 || CurVariant == AsmPrinterVariant)
1151 O << '$';
1152 ++LastEmitted; // Consume second '$' character.
1153 break;
1154 case '(': // $( -> same as GCC's { character.
1155 ++LastEmitted; // Consume '(' character.
1156 if (CurVariant != -1) {
1157 cerr << "Nested variants found in inline asm string: '"
1158 << AsmStr << "'\n";
1159 exit(1);
1160 }
1161 CurVariant = 0; // We're in the first variant now.
1162 break;
1163 case '|':
1164 ++LastEmitted; // consume '|' character.
1165 if (CurVariant == -1) {
1166 cerr << "Found '|' character outside of variant in inline asm "
1167 << "string: '" << AsmStr << "'\n";
1168 exit(1);
1169 }
1170 ++CurVariant; // We're in the next variant.
1171 break;
1172 case ')': // $) -> same as GCC's } char.
1173 ++LastEmitted; // consume ')' character.
1174 if (CurVariant == -1) {
1175 cerr << "Found '}' character outside of variant in inline asm "
1176 << "string: '" << AsmStr << "'\n";
1177 exit(1);
1178 }
1179 CurVariant = -1;
1180 break;
1181 }
1182 if (Done) break;
1183
1184 bool HasCurlyBraces = false;
1185 if (*LastEmitted == '{') { // ${variable}
1186 ++LastEmitted; // Consume '{' character.
1187 HasCurlyBraces = true;
1188 }
1189
1190 const char *IDStart = LastEmitted;
1191 char *IDEnd;
1192 errno = 0;
1193 long Val = strtol(IDStart, &IDEnd, 10); // We only accept numbers for IDs.
1194 if (!isdigit(*IDStart) || (Val == 0 && errno == EINVAL)) {
1195 cerr << "Bad $ operand number in inline asm string: '"
1196 << AsmStr << "'\n";
1197 exit(1);
1198 }
1199 LastEmitted = IDEnd;
1200
1201 char Modifier[2] = { 0, 0 };
1202
1203 if (HasCurlyBraces) {
1204 // If we have curly braces, check for a modifier character. This
1205 // supports syntax like ${0:u}, which correspond to "%u0" in GCC asm.
1206 if (*LastEmitted == ':') {
1207 ++LastEmitted; // Consume ':' character.
1208 if (*LastEmitted == 0) {
1209 cerr << "Bad ${:} expression in inline asm string: '"
1210 << AsmStr << "'\n";
1211 exit(1);
1212 }
1213
1214 Modifier[0] = *LastEmitted;
1215 ++LastEmitted; // Consume modifier character.
1216 }
1217
1218 if (*LastEmitted != '}') {
1219 cerr << "Bad ${} expression in inline asm string: '"
1220 << AsmStr << "'\n";
1221 exit(1);
1222 }
1223 ++LastEmitted; // Consume '}' character.
1224 }
1225
1226 if ((unsigned)Val >= NumOperands-1) {
1227 cerr << "Invalid $ operand number in inline asm string: '"
1228 << AsmStr << "'\n";
1229 exit(1);
1230 }
1231
1232 // Okay, we finally have a value number. Ask the target to print this
1233 // operand!
1234 if (CurVariant == -1 || CurVariant == AsmPrinterVariant) {
1235 unsigned OpNo = 1;
1236
1237 bool Error = false;
1238
1239 // Scan to find the machine operand number for the operand.
1240 for (; Val; --Val) {
1241 if (OpNo >= MI->getNumOperands()) break;
Chris Lattnerda4cff12007-12-30 20:50:28 +00001242 unsigned OpFlags = MI->getOperand(OpNo).getImm();
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001243 OpNo += (OpFlags >> 3) + 1;
1244 }
1245
1246 if (OpNo >= MI->getNumOperands()) {
1247 Error = true;
1248 } else {
Chris Lattnerda4cff12007-12-30 20:50:28 +00001249 unsigned OpFlags = MI->getOperand(OpNo).getImm();
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001250 ++OpNo; // Skip over the ID number.
1251
Dale Johannesencfb19e62007-11-05 21:20:28 +00001252 if (Modifier[0]=='l') // labels are target independent
Chris Lattner6017d482007-12-30 23:10:15 +00001253 printBasicBlockLabel(MI->getOperand(OpNo).getMBB(),
Dale Johannesencfb19e62007-11-05 21:20:28 +00001254 false, false);
1255 else {
1256 AsmPrinter *AP = const_cast<AsmPrinter*>(this);
1257 if ((OpFlags & 7) == 4 /*ADDR MODE*/) {
1258 Error = AP->PrintAsmMemoryOperand(MI, OpNo, AsmPrinterVariant,
1259 Modifier[0] ? Modifier : 0);
1260 } else {
1261 Error = AP->PrintAsmOperand(MI, OpNo, AsmPrinterVariant,
1262 Modifier[0] ? Modifier : 0);
1263 }
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001264 }
1265 }
1266 if (Error) {
1267 cerr << "Invalid operand found in inline asm: '"
1268 << AsmStr << "'\n";
1269 MI->dump();
1270 exit(1);
1271 }
1272 }
1273 break;
1274 }
1275 }
1276 }
1277 O << "\n\t" << TAI->getInlineAsmEnd() << "\n";
1278}
1279
1280/// printLabel - This method prints a local label used by debug and
1281/// exception handling tables.
1282void AsmPrinter::printLabel(const MachineInstr *MI) const {
Evan Cheng8b988692008-02-02 08:39:46 +00001283 O << TAI->getPrivateGlobalPrefix()
Chris Lattnerda4cff12007-12-30 20:50:28 +00001284 << "label" << MI->getOperand(0).getImm() << ":\n";
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001285}
1286
Evan Chenga53c40a2008-02-01 09:10:45 +00001287void AsmPrinter::printLabel(unsigned Id) const {
Evan Cheng8b988692008-02-02 08:39:46 +00001288 O << TAI->getPrivateGlobalPrefix() << "label" << Id << ":\n";
Evan Chenga53c40a2008-02-01 09:10:45 +00001289}
1290
Evan Cheng2e28d622008-02-02 04:07:54 +00001291/// printDeclare - This method prints a local variable declaration used by
1292/// debug tables.
Evan Chengc439a852008-02-04 23:06:48 +00001293/// FIXME: It doesn't really print anything rather it inserts a DebugVariable
1294/// entry into dwarf table.
Evan Cheng2e28d622008-02-02 04:07:54 +00001295void AsmPrinter::printDeclare(const MachineInstr *MI) const {
Evan Chengc439a852008-02-04 23:06:48 +00001296 int FI = MI->getOperand(0).getIndex();
1297 GlobalValue *GV = MI->getOperand(1).getGlobal();
1298 MMI->RecordVariable(GV, FI);
Evan Cheng2e28d622008-02-02 04:07:54 +00001299}
1300
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001301/// PrintAsmOperand - Print the specified operand of MI, an INLINEASM
1302/// instruction, using the specified assembler variant. Targets should
1303/// overried this to format as appropriate.
1304bool AsmPrinter::PrintAsmOperand(const MachineInstr *MI, unsigned OpNo,
1305 unsigned AsmVariant, const char *ExtraCode) {
1306 // Target doesn't support this yet!
1307 return true;
1308}
1309
1310bool AsmPrinter::PrintAsmMemoryOperand(const MachineInstr *MI, unsigned OpNo,
1311 unsigned AsmVariant,
1312 const char *ExtraCode) {
1313 // Target doesn't support this yet!
1314 return true;
1315}
1316
1317/// printBasicBlockLabel - This method prints the label for the specified
1318/// MachineBasicBlock
1319void AsmPrinter::printBasicBlockLabel(const MachineBasicBlock *MBB,
1320 bool printColon,
1321 bool printComment) const {
Evan Cheng477013c2007-10-14 05:57:21 +00001322 O << TAI->getPrivateGlobalPrefix() << "BB" << getFunctionNumber() << "_"
1323 << MBB->getNumber();
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001324 if (printColon)
1325 O << ':';
1326 if (printComment && MBB->getBasicBlock())
Dan Gohman0912cda2007-07-30 15:06:25 +00001327 O << '\t' << TAI->getCommentString() << ' '
1328 << MBB->getBasicBlock()->getName();
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001329}
1330
Evan Cheng6fb06762007-11-09 01:32:10 +00001331/// printPICJumpTableSetLabel - This method prints a set label for the
1332/// specified MachineBasicBlock for a jumptable entry.
1333void AsmPrinter::printPICJumpTableSetLabel(unsigned uid,
1334 const MachineBasicBlock *MBB) const {
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001335 if (!TAI->getSetDirective())
1336 return;
1337
1338 O << TAI->getSetDirective() << ' ' << TAI->getPrivateGlobalPrefix()
Evan Cheng477013c2007-10-14 05:57:21 +00001339 << getFunctionNumber() << '_' << uid << "_set_" << MBB->getNumber() << ',';
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001340 printBasicBlockLabel(MBB, false, false);
Evan Cheng477013c2007-10-14 05:57:21 +00001341 O << '-' << TAI->getPrivateGlobalPrefix() << "JTI" << getFunctionNumber()
1342 << '_' << uid << '\n';
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001343}
1344
Evan Cheng6fb06762007-11-09 01:32:10 +00001345void AsmPrinter::printPICJumpTableSetLabel(unsigned uid, unsigned uid2,
1346 const MachineBasicBlock *MBB) const {
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001347 if (!TAI->getSetDirective())
1348 return;
1349
1350 O << TAI->getSetDirective() << ' ' << TAI->getPrivateGlobalPrefix()
Evan Cheng477013c2007-10-14 05:57:21 +00001351 << getFunctionNumber() << '_' << uid << '_' << uid2
1352 << "_set_" << MBB->getNumber() << ',';
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001353 printBasicBlockLabel(MBB, false, false);
Evan Cheng477013c2007-10-14 05:57:21 +00001354 O << '-' << TAI->getPrivateGlobalPrefix() << "JTI" << getFunctionNumber()
1355 << '_' << uid << '_' << uid2 << '\n';
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001356}
1357
1358/// printDataDirective - This method prints the asm directive for the
1359/// specified type.
1360void AsmPrinter::printDataDirective(const Type *type) {
1361 const TargetData *TD = TM.getTargetData();
1362 switch (type->getTypeID()) {
1363 case Type::IntegerTyID: {
1364 unsigned BitWidth = cast<IntegerType>(type)->getBitWidth();
1365 if (BitWidth <= 8)
1366 O << TAI->getData8bitsDirective();
1367 else if (BitWidth <= 16)
1368 O << TAI->getData16bitsDirective();
1369 else if (BitWidth <= 32)
1370 O << TAI->getData32bitsDirective();
1371 else if (BitWidth <= 64) {
1372 assert(TAI->getData64bitsDirective() &&
1373 "Target cannot handle 64-bit constant exprs!");
1374 O << TAI->getData64bitsDirective();
1375 }
1376 break;
1377 }
1378 case Type::PointerTyID:
1379 if (TD->getPointerSize() == 8) {
1380 assert(TAI->getData64bitsDirective() &&
1381 "Target cannot handle 64-bit pointer exprs!");
1382 O << TAI->getData64bitsDirective();
1383 } else {
1384 O << TAI->getData32bitsDirective();
1385 }
1386 break;
1387 case Type::FloatTyID: case Type::DoubleTyID:
Dale Johannesen3b5303b2007-09-28 18:06:58 +00001388 case Type::X86_FP80TyID: case Type::FP128TyID: case Type::PPC_FP128TyID:
Dan Gohmanf17a25c2007-07-18 16:29:46 +00001389 assert (0 && "Should have already output floating point constant.");
1390 default:
1391 assert (0 && "Can't handle printing this type of thing");
1392 break;
1393 }
1394}
1395