mirror of
				https://github.com/c64scene-ar/llvm-6502.git
				synced 2025-10-30 16:17:05 +00:00 
			
		
		
		
	git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@77336 91177308-0d34-0410-b5e6-96231b3b80d8
		
			
				
	
	
		
			655 lines
		
	
	
		
			23 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
			
		
		
	
	
			655 lines
		
	
	
		
			23 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
| //===-- llvm/Target/TargetLoweringObjectFile.cpp - Object File Info -------===//
 | |
| //
 | |
| //                     The LLVM Compiler Infrastructure
 | |
| //
 | |
| // This file is distributed under the University of Illinois Open Source
 | |
| // License. See LICENSE.TXT for details.
 | |
| //
 | |
| //===----------------------------------------------------------------------===//
 | |
| //
 | |
| // This file implements classes used to handle lowerings specific to common
 | |
| // object file formats.
 | |
| //
 | |
| //===----------------------------------------------------------------------===//
 | |
| 
 | |
| #include "llvm/Target/TargetLoweringObjectFile.h"
 | |
| #include "llvm/Constants.h"
 | |
| #include "llvm/DerivedTypes.h"
 | |
| #include "llvm/GlobalVariable.h"
 | |
| #include "llvm/Target/TargetMachine.h"
 | |
| #include "llvm/Target/TargetData.h"
 | |
| #include "llvm/Target/TargetOptions.h"
 | |
| #include "llvm/ADT/StringExtras.h"
 | |
| using namespace llvm;
 | |
| 
 | |
| //===----------------------------------------------------------------------===//
 | |
| //                              Generic Code
 | |
| //===----------------------------------------------------------------------===//
 | |
| 
 | |
| TargetLoweringObjectFile::TargetLoweringObjectFile() {
 | |
|   TextSection = 0;
 | |
|   DataSection = 0;
 | |
|   BSSSection_ = 0;
 | |
|   ReadOnlySection = 0;
 | |
|   TLSDataSection = 0;
 | |
|   TLSBSSSection = 0;
 | |
|   CStringSection_ = 0;
 | |
| }
 | |
| 
 | |
| TargetLoweringObjectFile::~TargetLoweringObjectFile() {
 | |
| }
 | |
| 
 | |
| static bool isSuitableForBSS(const GlobalVariable *GV) {
 | |
|   Constant *C = GV->getInitializer();
 | |
|   
 | |
|   // Must have zero initializer.
 | |
|   if (!C->isNullValue())
 | |
|     return false;
 | |
|   
 | |
|   // Leave constant zeros in readonly constant sections, so they can be shared.
 | |
|   if (GV->isConstant())
 | |
|     return false;
 | |
|   
 | |
|   // If the global has an explicit section specified, don't put it in BSS.
 | |
|   if (!GV->getSection().empty())
 | |
|     return false;
 | |
|   
 | |
|   // If -nozero-initialized-in-bss is specified, don't ever use BSS.
 | |
|   if (NoZerosInBSS)
 | |
|     return false;
 | |
|   
 | |
|   // Otherwise, put it in BSS!
 | |
|   return true;
 | |
| }
 | |
| 
 | |
| static bool isConstantString(const Constant *C) {
 | |
|   // First check: is we have constant array of i8 terminated with zero
 | |
|   const ConstantArray *CVA = dyn_cast<ConstantArray>(C);
 | |
|   // Check, if initializer is a null-terminated string
 | |
|   if (CVA && CVA->isCString())
 | |
|     return true;
 | |
| 
 | |
|   // Another possibility: [1 x i8] zeroinitializer
 | |
|   if (isa<ConstantAggregateZero>(C))
 | |
|     if (const ArrayType *Ty = dyn_cast<ArrayType>(C->getType()))
 | |
|       return (Ty->getElementType() == Type::Int8Ty &&
 | |
|               Ty->getNumElements() == 1);
 | |
| 
 | |
|   return false;
 | |
| }
 | |
| 
 | |
| static SectionKind::Kind SectionKindForGlobal(const GlobalValue *GV,
 | |
|                                               const TargetMachine &TM) {
 | |
|   Reloc::Model ReloModel = TM.getRelocationModel();
 | |
|   
 | |
|   // Early exit - functions should be always in text sections.
 | |
|   const GlobalVariable *GVar = dyn_cast<GlobalVariable>(GV);
 | |
|   if (GVar == 0)
 | |
|     return SectionKind::Text;
 | |
| 
 | |
|   
 | |
|   // Handle thread-local data first.
 | |
|   if (GVar->isThreadLocal()) {
 | |
|     if (isSuitableForBSS(GVar))
 | |
|       return SectionKind::ThreadBSS;
 | |
|     return SectionKind::ThreadData;
 | |
|   }
 | |
| 
 | |
|   // Variable can be easily put to BSS section.
 | |
|   if (isSuitableForBSS(GVar))
 | |
|     return SectionKind::BSS;
 | |
| 
 | |
|   Constant *C = GVar->getInitializer();
 | |
|   
 | |
|   // If the global is marked constant, we can put it into a mergable section,
 | |
|   // a mergable string section, or general .data if it contains relocations.
 | |
|   if (GVar->isConstant()) {
 | |
|     // If the initializer for the global contains something that requires a
 | |
|     // relocation, then we may have to drop this into a wriable data section
 | |
|     // even though it is marked const.
 | |
|     switch (C->getRelocationInfo()) {
 | |
|     default: llvm_unreachable("unknown relocation info kind");
 | |
|     case Constant::NoRelocation:
 | |
|       // If initializer is a null-terminated string, put it in a "cstring"
 | |
|       // section if the target has it.
 | |
|       if (isConstantString(C))
 | |
|         return SectionKind::MergeableCString;
 | |
|       
 | |
|       // Otherwise, just drop it into a mergable constant section.  If we have
 | |
|       // a section for this size, use it, otherwise use the arbitrary sized
 | |
|       // mergable section.
 | |
|       switch (TM.getTargetData()->getTypeAllocSize(C->getType())) {
 | |
|       case 4:  return SectionKind::MergeableConst4;
 | |
|       case 8:  return SectionKind::MergeableConst8;
 | |
|       case 16: return SectionKind::MergeableConst16;
 | |
|       default: return SectionKind::MergeableConst;
 | |
|       }
 | |
|       
 | |
|     case Constant::LocalRelocation:
 | |
|       // In static relocation model, the linker will resolve all addresses, so
 | |
|       // the relocation entries will actually be constants by the time the app
 | |
|       // starts up.  However, we can't put this into a mergable section, because
 | |
|       // the linker doesn't take relocations into consideration when it tries to
 | |
|       // merge entries in the section.
 | |
|       if (ReloModel == Reloc::Static)
 | |
|         return SectionKind::ReadOnly;
 | |
|               
 | |
|       // Otherwise, the dynamic linker needs to fix it up, put it in the
 | |
|       // writable data.rel.local section.
 | |
|       return SectionKind::ReadOnlyWithRelLocal;
 | |
|               
 | |
|     case Constant::GlobalRelocations:
 | |
|       // In static relocation model, the linker will resolve all addresses, so
 | |
|       // the relocation entries will actually be constants by the time the app
 | |
|       // starts up.  However, we can't put this into a mergable section, because
 | |
|       // the linker doesn't take relocations into consideration when it tries to
 | |
|       // merge entries in the section.
 | |
|       if (ReloModel == Reloc::Static)
 | |
|         return SectionKind::ReadOnly;
 | |
|       
 | |
|       // Otherwise, the dynamic linker needs to fix it up, put it in the
 | |
|       // writable data.rel section.
 | |
|       return SectionKind::ReadOnlyWithRel;
 | |
|     }
 | |
|   }
 | |
| 
 | |
|   // Okay, this isn't a constant.  If the initializer for the global is going
 | |
|   // to require a runtime relocation by the dynamic linker, put it into a more
 | |
|   // specific section to improve startup time of the app.  This coalesces these
 | |
|   // globals together onto fewer pages, improving the locality of the dynamic
 | |
|   // linker.
 | |
|   if (ReloModel == Reloc::Static)
 | |
|     return SectionKind::DataNoRel;
 | |
| 
 | |
|   switch (C->getRelocationInfo()) {
 | |
|   default: llvm_unreachable("unknown relocation info kind");
 | |
|   case Constant::NoRelocation:
 | |
|     return SectionKind::DataNoRel;
 | |
|   case Constant::LocalRelocation:
 | |
|     return SectionKind::DataRelLocal;
 | |
|   case Constant::GlobalRelocations:
 | |
|     return SectionKind::DataRel;
 | |
|   }
 | |
| }
 | |
| 
 | |
| /// SectionForGlobal - This method computes the appropriate section to emit
 | |
| /// the specified global variable or function definition.  This should not
 | |
| /// be passed external (or available externally) globals.
 | |
| const Section *TargetLoweringObjectFile::
 | |
| SectionForGlobal(const GlobalValue *GV, const TargetMachine &TM) const {
 | |
|   assert(!GV->isDeclaration() && !GV->hasAvailableExternallyLinkage() &&
 | |
|          "Can only be used for global definitions");
 | |
|   
 | |
|   SectionKind::Kind GVKind = SectionKindForGlobal(GV, TM);
 | |
|   
 | |
|   SectionKind Kind = SectionKind::get(GVKind, GV->isWeakForLinker(),
 | |
|                                       GV->hasSection());
 | |
| 
 | |
| 
 | |
|   // Select section name.
 | |
|   if (GV->hasSection()) {
 | |
|     // If the target has special section hacks for specifically named globals,
 | |
|     // return them now.
 | |
|     if (const Section *TS = getSpecialCasedSectionGlobals(GV, Kind))
 | |
|       return TS;
 | |
|     
 | |
|     // If the target has magic semantics for certain section names, make sure to
 | |
|     // pick up the flags.  This allows the user to write things with attribute
 | |
|     // section and still get the appropriate section flags printed.
 | |
|     GVKind = getKindForNamedSection(GV->getSection().c_str(), GVKind);
 | |
|     
 | |
|     return getOrCreateSection(GV->getSection().c_str(), false, GVKind);
 | |
|   }
 | |
| 
 | |
|   
 | |
|   // Use default section depending on the 'type' of global
 | |
|   return SelectSectionForGlobal(GV, Kind, TM);
 | |
| }
 | |
| 
 | |
| // Lame default implementation. Calculate the section name for global.
 | |
| const Section*
 | |
| TargetLoweringObjectFile::SelectSectionForGlobal(const GlobalValue *GV,
 | |
|                                                  SectionKind Kind,
 | |
|                                                  const TargetMachine &TM) const{
 | |
|   assert(!Kind.isThreadLocal() && "Doesn't support TLS");
 | |
|   
 | |
|   if (Kind.isText())
 | |
|     return getTextSection();
 | |
|   
 | |
|   if (Kind.isBSS() && BSSSection_ != 0)
 | |
|     return BSSSection_;
 | |
|   
 | |
|   if (Kind.isReadOnly() && ReadOnlySection != 0)
 | |
|     return ReadOnlySection;
 | |
| 
 | |
|   return getDataSection();
 | |
| }
 | |
| 
 | |
| /// getSectionForMergableConstant - Given a mergable constant with the
 | |
| /// specified size and relocation information, return a section that it
 | |
| /// should be placed in.
 | |
| const Section *
 | |
| TargetLoweringObjectFile::
 | |
| getSectionForMergeableConstant(SectionKind Kind) const {
 | |
|   if (Kind.isReadOnly() && ReadOnlySection != 0)
 | |
|     return ReadOnlySection;
 | |
|   
 | |
|   return DataSection;
 | |
| }
 | |
| 
 | |
| 
 | |
| const Section *TargetLoweringObjectFile::
 | |
| getOrCreateSection(const char *Name, bool isDirective,
 | |
|                    SectionKind::Kind Kind) const {
 | |
|   Section &S = Sections[Name];
 | |
| 
 | |
|   // This is newly-created section, set it up properly.
 | |
|   if (S.Name.empty()) {
 | |
|     S.Kind = SectionKind::get(Kind, false /*weak*/, !isDirective);
 | |
|     S.Name = Name;
 | |
|   }
 | |
| 
 | |
|   return &S;
 | |
| }
 | |
| 
 | |
| 
 | |
| 
 | |
| //===----------------------------------------------------------------------===//
 | |
| //                                  ELF
 | |
| //===----------------------------------------------------------------------===//
 | |
| 
 | |
| TargetLoweringObjectFileELF::TargetLoweringObjectFileELF(bool atIsCommentChar,
 | |
|                                                          bool HasCrazyBSS)
 | |
|   : AtIsCommentChar(atIsCommentChar) {
 | |
|     
 | |
|   if (!HasCrazyBSS)
 | |
|     BSSSection_ = getOrCreateSection("\t.bss", true, SectionKind::BSS);
 | |
|   else
 | |
|     // PPC/Linux doesn't support the .bss directive, it needs .section .bss.
 | |
|     // FIXME: Does .section .bss work everywhere??
 | |
|     BSSSection_ = getOrCreateSection("\t.bss", false, SectionKind::BSS);
 | |
| 
 | |
|     
 | |
|   TextSection = getOrCreateSection("\t.text", true, SectionKind::Text);
 | |
|   DataSection = getOrCreateSection("\t.data", true, SectionKind::DataRel);
 | |
|   ReadOnlySection =
 | |
|     getOrCreateSection("\t.rodata", false, SectionKind::ReadOnly);
 | |
|   TLSDataSection =
 | |
|     getOrCreateSection("\t.tdata", false, SectionKind::ThreadData);
 | |
|   CStringSection_ = getOrCreateSection("\t.rodata.str", true,
 | |
|                                        SectionKind::MergeableCString);
 | |
| 
 | |
|   TLSBSSSection = getOrCreateSection("\t.tbss", false, SectionKind::ThreadBSS);
 | |
| 
 | |
|   DataRelSection = getOrCreateSection("\t.data.rel", false,
 | |
|                                       SectionKind::DataRel);
 | |
|   DataRelLocalSection = getOrCreateSection("\t.data.rel.local", false,
 | |
|                                            SectionKind::DataRelLocal);
 | |
|   DataRelROSection = getOrCreateSection("\t.data.rel.ro", false,
 | |
|                                         SectionKind::ReadOnlyWithRel);
 | |
|   DataRelROLocalSection =
 | |
|     getOrCreateSection("\t.data.rel.ro.local", false,
 | |
|                        SectionKind::ReadOnlyWithRelLocal);
 | |
|     
 | |
|   MergeableConst4Section = getOrCreateSection(".rodata.cst4", false,
 | |
|                                               SectionKind::MergeableConst4);
 | |
|   MergeableConst8Section = getOrCreateSection(".rodata.cst8", false,
 | |
|                                               SectionKind::MergeableConst8);
 | |
|   MergeableConst16Section = getOrCreateSection(".rodata.cst16", false,
 | |
|                                                SectionKind::MergeableConst16);
 | |
| }
 | |
| 
 | |
| 
 | |
| SectionKind::Kind TargetLoweringObjectFileELF::
 | |
| getKindForNamedSection(const char *Name, SectionKind::Kind K) const {
 | |
|   if (Name[0] != '.') return K;
 | |
|   
 | |
|   // Some lame default implementation based on some magic section names.
 | |
|   if (strncmp(Name, ".gnu.linkonce.b.", 16) == 0 ||
 | |
|       strncmp(Name, ".llvm.linkonce.b.", 17) == 0 ||
 | |
|       strncmp(Name, ".gnu.linkonce.sb.", 17) == 0 ||
 | |
|       strncmp(Name, ".llvm.linkonce.sb.", 18) == 0)
 | |
|     return SectionKind::BSS;
 | |
|   
 | |
|   if (strcmp(Name, ".tdata") == 0 ||
 | |
|       strncmp(Name, ".tdata.", 7) == 0 ||
 | |
|       strncmp(Name, ".gnu.linkonce.td.", 17) == 0 ||
 | |
|       strncmp(Name, ".llvm.linkonce.td.", 18) == 0)
 | |
|     return SectionKind::ThreadData;
 | |
|   
 | |
|   if (strcmp(Name, ".tbss") == 0 ||
 | |
|       strncmp(Name, ".tbss.", 6) == 0 ||
 | |
|       strncmp(Name, ".gnu.linkonce.tb.", 17) == 0 ||
 | |
|       strncmp(Name, ".llvm.linkonce.tb.", 18) == 0)
 | |
|     return SectionKind::ThreadBSS;
 | |
|   
 | |
|   return K;
 | |
| }
 | |
| 
 | |
| void TargetLoweringObjectFileELF::
 | |
| getSectionFlagsAsString(SectionKind Kind, SmallVectorImpl<char> &Str) const {
 | |
|   Str.push_back(',');
 | |
|   Str.push_back('"');
 | |
|   
 | |
|   if (!Kind.isMetadata())
 | |
|     Str.push_back('a');
 | |
|   if (Kind.isText())
 | |
|     Str.push_back('x');
 | |
|   if (Kind.isWriteable())
 | |
|     Str.push_back('w');
 | |
|   if (Kind.isMergeableConst() || Kind.isMergeableCString())
 | |
|     Str.push_back('M');
 | |
|   if (Kind.isMergeableCString())
 | |
|     Str.push_back('S');
 | |
|   if (Kind.isThreadLocal())
 | |
|     Str.push_back('T');
 | |
|   
 | |
|   Str.push_back('"');
 | |
|   Str.push_back(',');
 | |
|   
 | |
|   // If comment string is '@', e.g. as on ARM - use '%' instead
 | |
|   if (AtIsCommentChar)
 | |
|     Str.push_back('%');
 | |
|   else
 | |
|     Str.push_back('@');
 | |
|   
 | |
|   const char *KindStr;
 | |
|   if (Kind.isBSS() || Kind.isThreadBSS())
 | |
|     KindStr = "nobits";
 | |
|   else
 | |
|     KindStr = "progbits";
 | |
|   
 | |
|   Str.append(KindStr, KindStr+strlen(KindStr));
 | |
|   
 | |
|   if (Kind.isMergeableCString()) {
 | |
|     // TODO: Eventually handle multiple byte character strings.  For now, all
 | |
|     // mergable C strings are single byte.
 | |
|     Str.push_back(',');
 | |
|     Str.push_back('1');
 | |
|   } else if (Kind.isMergeableConst4()) {
 | |
|     Str.push_back(',');
 | |
|     Str.push_back('4');
 | |
|   } else if (Kind.isMergeableConst8()) {
 | |
|     Str.push_back(',');
 | |
|     Str.push_back('8');
 | |
|   } else if (Kind.isMergeableConst16()) {
 | |
|     Str.push_back(',');
 | |
|     Str.push_back('1');
 | |
|     Str.push_back('6');
 | |
|   }
 | |
| }
 | |
| 
 | |
| 
 | |
| static const char *getSectionPrefixForUniqueGlobal(SectionKind Kind) {
 | |
|   if (Kind.isText())                 return ".gnu.linkonce.t.";
 | |
|   if (Kind.isReadOnly())             return ".gnu.linkonce.r.";
 | |
|   
 | |
|   if (Kind.isThreadData())           return ".gnu.linkonce.td.";
 | |
|   if (Kind.isThreadBSS())            return ".gnu.linkonce.tb.";
 | |
|   
 | |
|   if (Kind.isBSS())                  return ".gnu.linkonce.b.";
 | |
|   if (Kind.isDataNoRel())            return ".gnu.linkonce.d.";
 | |
|   if (Kind.isDataRelLocal())         return ".gnu.linkonce.d.rel.local.";
 | |
|   if (Kind.isDataRel())              return ".gnu.linkonce.d.rel.";
 | |
|   if (Kind.isReadOnlyWithRelLocal()) return ".gnu.linkonce.d.rel.ro.local.";
 | |
|   
 | |
|   assert(Kind.isReadOnlyWithRel() && "Unknown section kind");
 | |
|   return ".gnu.linkonce.d.rel.ro.";
 | |
| }
 | |
| 
 | |
| const Section *TargetLoweringObjectFileELF::
 | |
| SelectSectionForGlobal(const GlobalValue *GV, SectionKind Kind,
 | |
|                        const TargetMachine &TM) const {
 | |
|   
 | |
|   // If this global is linkonce/weak and the target handles this by emitting it
 | |
|   // into a 'uniqued' section name, create and return the section now.
 | |
|   if (Kind.isWeak()) {
 | |
|     const char *Prefix = getSectionPrefixForUniqueGlobal(Kind);
 | |
|     // FIXME: Use mangler interface (PR4584).
 | |
|     std::string Name = Prefix+GV->getNameStr();
 | |
|     return getOrCreateSection(Name.c_str(), false, Kind.getKind());
 | |
|   }
 | |
|   
 | |
|   if (Kind.isText()) return TextSection;
 | |
|   if (Kind.isMergeableCString()) {
 | |
|     //Constant *C = cast<GlobalVariable>(GV)->getInitializer();
 | |
|     
 | |
|     // FIXME: This is completely wrong.  Why is it comparing the size of the
 | |
|     // character type to 1?
 | |
|     /// cast<ArrayType>(C->getType())->getNumElements();
 | |
|     uint64_t Size = 1;
 | |
|     if (Size <= 16) {
 | |
|       assert(CStringSection_ && "Should have string section prefix");
 | |
|       
 | |
|       // We also need alignment here.
 | |
|       // FIXME: this is getting the alignment of the character, not the
 | |
|       // alignment of the global!
 | |
|       unsigned Align = 
 | |
|         TM.getTargetData()->getPreferredAlignment(cast<GlobalVariable>(GV));
 | |
|       
 | |
|       std::string Name = CStringSection_->getName() + utostr(Size) + '.' +
 | |
|       utostr(Align);
 | |
|       return getOrCreateSection(Name.c_str(), false,
 | |
|                                 SectionKind::MergeableCString);
 | |
|     }
 | |
|     
 | |
|     return ReadOnlySection;
 | |
|   }
 | |
|   
 | |
|   if (Kind.isMergeableConst()) {
 | |
|     if (Kind.isMergeableConst4())
 | |
|       return MergeableConst4Section;
 | |
|     if (Kind.isMergeableConst8())
 | |
|       return MergeableConst8Section;
 | |
|     if (Kind.isMergeableConst16())
 | |
|       return MergeableConst16Section;
 | |
|     return ReadOnlySection;  // .const
 | |
|   }
 | |
|   
 | |
|   if (Kind.isReadOnly())             return ReadOnlySection;
 | |
|   
 | |
|   if (Kind.isThreadData())           return TLSDataSection;
 | |
|   if (Kind.isThreadBSS())            return TLSBSSSection;
 | |
|   
 | |
|   if (Kind.isBSS())                  return BSSSection_;
 | |
|   
 | |
|   if (Kind.isDataNoRel())            return DataSection;
 | |
|   if (Kind.isDataRelLocal())         return DataRelLocalSection;
 | |
|   if (Kind.isDataRel())              return DataRelSection;
 | |
|   if (Kind.isReadOnlyWithRelLocal()) return DataRelROLocalSection;
 | |
|   
 | |
|   assert(Kind.isReadOnlyWithRel() && "Unknown section kind");
 | |
|   return DataRelROSection;
 | |
| }
 | |
| 
 | |
| /// getSectionForMergeableConstant - Given a mergeable constant with the
 | |
| /// specified size and relocation information, return a section that it
 | |
| /// should be placed in.
 | |
| const Section *TargetLoweringObjectFileELF::
 | |
| getSectionForMergeableConstant(SectionKind Kind) const {
 | |
|   if (Kind.isMergeableConst4())
 | |
|     return MergeableConst4Section;
 | |
|   if (Kind.isMergeableConst8())
 | |
|     return MergeableConst8Section;
 | |
|   if (Kind.isMergeableConst16())
 | |
|     return MergeableConst16Section;
 | |
|   if (Kind.isReadOnly())
 | |
|     return ReadOnlySection;
 | |
|   
 | |
|   if (Kind.isReadOnlyWithRelLocal()) return DataRelROLocalSection;
 | |
|   assert(Kind.isReadOnlyWithRel() && "Unknown section kind");
 | |
|   return DataRelROSection;
 | |
| }
 | |
| 
 | |
| //===----------------------------------------------------------------------===//
 | |
| //                                 MachO
 | |
| //===----------------------------------------------------------------------===//
 | |
| 
 | |
| TargetLoweringObjectFileMachO::
 | |
| TargetLoweringObjectFileMachO(const TargetMachine &TM) {
 | |
|   TextSection = getOrCreateSection("\t.text", true, SectionKind::Text);
 | |
|   DataSection = getOrCreateSection("\t.data", true, SectionKind::DataRel);
 | |
|   
 | |
|   CStringSection_ = getOrCreateSection("\t.cstring", true,
 | |
|                                        SectionKind::MergeableCString);
 | |
|   FourByteConstantSection = getOrCreateSection("\t.literal4\n", true,
 | |
|                                                SectionKind::MergeableConst4);
 | |
|   EightByteConstantSection = getOrCreateSection("\t.literal8\n", true,
 | |
|                                                 SectionKind::MergeableConst8);
 | |
|   
 | |
|   // ld_classic doesn't support .literal16 in 32-bit mode, and ld64 falls back
 | |
|   // to using it in -static mode.
 | |
|   if (TM.getRelocationModel() != Reloc::Static &&
 | |
|       TM.getTargetData()->getPointerSize() == 32)
 | |
|     SixteenByteConstantSection = 
 | |
|       getOrCreateSection("\t.literal16\n", true, SectionKind::MergeableConst16);
 | |
|   else
 | |
|     SixteenByteConstantSection = 0;
 | |
|   
 | |
|   ReadOnlySection = getOrCreateSection("\t.const", true, SectionKind::ReadOnly);
 | |
|   
 | |
|   TextCoalSection =
 | |
|   getOrCreateSection("\t__TEXT,__textcoal_nt,coalesced,pure_instructions",
 | |
|                      false, SectionKind::Text);
 | |
|   ConstTextCoalSection = getOrCreateSection("\t__TEXT,__const_coal,coalesced",
 | |
|                                             false, SectionKind::Text);
 | |
|   ConstDataCoalSection = getOrCreateSection("\t__DATA,__const_coal,coalesced",
 | |
|                                             false, SectionKind::Text);
 | |
|   ConstDataSection = getOrCreateSection("\t.const_data", true,
 | |
|                                         SectionKind::ReadOnlyWithRel);
 | |
|   DataCoalSection = getOrCreateSection("\t__DATA,__datacoal_nt,coalesced",
 | |
|                                        false, SectionKind::DataRel);
 | |
| }
 | |
| 
 | |
| const Section *
 | |
| TargetLoweringObjectFileMachO::SelectSectionForGlobal(const GlobalValue *GV,
 | |
|                                                       SectionKind Kind,
 | |
|                                                 const TargetMachine &TM) const {
 | |
|   assert(!Kind.isThreadLocal() && "Darwin doesn't support TLS");
 | |
|   
 | |
|   if (Kind.isText())
 | |
|     return Kind.isWeak() ? TextCoalSection : TextSection;
 | |
|   
 | |
|   // If this is weak/linkonce, put this in a coalescable section, either in text
 | |
|   // or data depending on if it is writable.
 | |
|   if (Kind.isWeak()) {
 | |
|     if (Kind.isReadOnly())
 | |
|       return ConstTextCoalSection;
 | |
|     return DataCoalSection;
 | |
|   }
 | |
|   
 | |
|   // FIXME: Alignment check should be handled by section classifier.
 | |
|   if (Kind.isMergeableCString()) {
 | |
|     Constant *C = cast<GlobalVariable>(GV)->getInitializer();
 | |
|     const Type *Ty = cast<ArrayType>(C->getType())->getElementType();
 | |
|     const TargetData &TD = *TM.getTargetData();
 | |
|     unsigned Size = TD.getTypeAllocSize(Ty);
 | |
|     if (Size) {
 | |
|       unsigned Align = TD.getPreferredAlignment(cast<GlobalVariable>(GV));
 | |
|       if (Align <= 32)
 | |
|         return CStringSection_;
 | |
|     }
 | |
|     
 | |
|     return ReadOnlySection;
 | |
|   }
 | |
|   
 | |
|   if (Kind.isMergeableConst()) {
 | |
|     if (Kind.isMergeableConst4())
 | |
|       return FourByteConstantSection;
 | |
|     if (Kind.isMergeableConst8())
 | |
|       return EightByteConstantSection;
 | |
|     if (Kind.isMergeableConst16() && SixteenByteConstantSection)
 | |
|       return SixteenByteConstantSection;
 | |
|     return ReadOnlySection;  // .const
 | |
|   }
 | |
|   
 | |
|   // FIXME: ROData -> const in -static mode that is relocatable but they happen
 | |
|   // by the static linker.  Why not mergeable?
 | |
|   if (Kind.isReadOnly())
 | |
|     return ReadOnlySection;
 | |
| 
 | |
|   // If this is marked const, put it into a const section.  But if the dynamic
 | |
|   // linker needs to write to it, put it in the data segment.
 | |
|   if (Kind.isReadOnlyWithRel())
 | |
|     return ConstDataSection;
 | |
|   
 | |
|   // Otherwise, just drop the variable in the normal data section.
 | |
|   return DataSection;
 | |
| }
 | |
| 
 | |
| const Section *
 | |
| TargetLoweringObjectFileMachO::
 | |
| getSectionForMergeableConstant(SectionKind Kind) const {
 | |
|   // If this constant requires a relocation, we have to put it in the data
 | |
|   // segment, not in the text segment.
 | |
|   if (Kind.isDataRel())
 | |
|     return ConstDataSection;
 | |
|   
 | |
|   if (Kind.isMergeableConst4())
 | |
|     return FourByteConstantSection;
 | |
|   if (Kind.isMergeableConst8())
 | |
|     return EightByteConstantSection;
 | |
|   if (Kind.isMergeableConst16() && SixteenByteConstantSection)
 | |
|     return SixteenByteConstantSection;
 | |
|   return ReadOnlySection;  // .const
 | |
| }
 | |
| 
 | |
| //===----------------------------------------------------------------------===//
 | |
| //                                  COFF
 | |
| //===----------------------------------------------------------------------===//
 | |
| 
 | |
| TargetLoweringObjectFileCOFF::TargetLoweringObjectFileCOFF() {
 | |
|   TextSection = getOrCreateSection("_text", true, SectionKind::Text);
 | |
|   DataSection = getOrCreateSection("_data", true, SectionKind::DataRel);
 | |
| }
 | |
| 
 | |
| void TargetLoweringObjectFileCOFF::
 | |
| getSectionFlagsAsString(SectionKind Kind, SmallVectorImpl<char> &Str) const {
 | |
|   // FIXME: Inefficient.
 | |
|   std::string Res = ",\"";
 | |
|   if (Kind.isText())
 | |
|     Res += 'x';
 | |
|   if (Kind.isWriteable())
 | |
|     Res += 'w';
 | |
|   Res += "\"";
 | |
|   
 | |
|   Str.append(Res.begin(), Res.end());
 | |
| }
 | |
| 
 | |
| static const char *getCOFFSectionPrefixForUniqueGlobal(SectionKind Kind) {
 | |
|   if (Kind.isText())
 | |
|     return ".text$linkonce";
 | |
|   if (Kind.isWriteable())
 | |
|     return ".data$linkonce";
 | |
|   return ".rdata$linkonce";
 | |
| }
 | |
| 
 | |
| 
 | |
| const Section *TargetLoweringObjectFileCOFF::
 | |
| SelectSectionForGlobal(const GlobalValue *GV, SectionKind Kind,
 | |
|                        const TargetMachine &TM) const {
 | |
|   assert(!Kind.isThreadLocal() && "Doesn't support TLS");
 | |
|   
 | |
|   // If this global is linkonce/weak and the target handles this by emitting it
 | |
|   // into a 'uniqued' section name, create and return the section now.
 | |
|   if (Kind.isWeak()) {
 | |
|     const char *Prefix = getCOFFSectionPrefixForUniqueGlobal(Kind);
 | |
|     // FIXME: Use mangler interface (PR4584).
 | |
|     std::string Name = Prefix+GV->getNameStr();
 | |
|     return getOrCreateSection(Name.c_str(), false, Kind.getKind());
 | |
|   }
 | |
|   
 | |
|   if (Kind.isText())
 | |
|     return getTextSection();
 | |
|   
 | |
|   if (Kind.isBSS())
 | |
|     if (const Section *S = BSSSection_)
 | |
|       return S;
 | |
|   
 | |
|   if (Kind.isReadOnly() && ReadOnlySection != 0)
 | |
|     return ReadOnlySection;
 | |
|   
 | |
|   return getDataSection();
 | |
| }
 | |
| 
 |