lib/MC/MCExpr.cpp

   1 //===- MCExpr.cpp - Assembly Level Expression Implementation --------------===//
   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 #define DEBUG_TYPE "mcexpr"
  11 #include "llvm/MC/MCExpr.h"
  12 #include "llvm/ADT/Statistic.h"
  13 #include "llvm/ADT/StringSwitch.h"
  14 #include "llvm/MC/MCAsmInfo.h"
  15 #include "llvm/MC/MCAsmLayout.h"
  16 #include "llvm/MC/MCAssembler.h"
  17 #include "llvm/MC/MCContext.h"
  18 #include "llvm/MC/MCObjectWriter.h"
  19 #include "llvm/MC/MCSymbol.h"
  20 #include "llvm/MC/MCValue.h"
  21 #include "llvm/Support/Debug.h"
  22 #include "llvm/Support/ErrorHandling.h"
  23 #include "llvm/Support/raw_ostream.h"
  24 using namespace llvm;
  25
  26 namespace {
  27 namespace stats {
  28 STATISTIC(MCExprEvaluate, "Number of MCExpr evaluations");
  29 }
  30 }
  31
  32 void MCExpr::print(raw_ostream &OS) const {
  33   switch (getKind()) {
  34   case MCExpr::Target:
  35     return cast<MCTargetExpr>(this)->PrintImpl(OS);
  36   case MCExpr::Constant:
  37     OS << cast<MCConstantExpr>(*this).getValue();
  38     return;
  39
  40   case MCExpr::SymbolRef: {
  41     const MCSymbolRefExpr &SRE = cast<MCSymbolRefExpr>(*this);
  42     const MCSymbol &Sym = SRE.getSymbol();
  43     // Parenthesize names that start with $ so that they don't look like
  44     // absolute names.
  45     bool UseParens = Sym.getName()[0] == '$';
  46     if (UseParens)
  47       OS << '(' << Sym << ')';
  48     else
  49       OS << Sym;
  50
  51     if (SRE.getKind() != MCSymbolRefExpr::VK_None) {
  52       if (SRE.getMCAsmInfo().useParensForSymbolVariant())
  53         OS << '(' << MCSymbolRefExpr::getVariantKindName(SRE.getKind()) << ')';
  54       else
  55         OS << '@' << MCSymbolRefExpr::getVariantKindName(SRE.getKind());
  56     }
  57
  58     return;
  59   }
  60
  61   case MCExpr::Unary: {
  62     const MCUnaryExpr &UE = cast<MCUnaryExpr>(*this);
  63     switch (UE.getOpcode()) {
  64     case MCUnaryExpr::LNot:  OS << '!'; break;
  65     case MCUnaryExpr::Minus: OS << '-'; break;
  66     case MCUnaryExpr::Not:   OS << '~'; break;
  67     case MCUnaryExpr::Plus:  OS << '+'; break;
  68     }
  69     OS << *UE.getSubExpr();
  70     return;
  71   }
  72
  73   case MCExpr::Binary: {
  74     const MCBinaryExpr &BE = cast<MCBinaryExpr>(*this);
  75
  76     // Only print parens around the LHS if it is non-trivial.
  77     if (isa<MCConstantExpr>(BE.getLHS()) || isa<MCSymbolRefExpr>(BE.getLHS())) {
  78       OS << *BE.getLHS();
  79     } else {
  80       OS << '(' << *BE.getLHS() << ')';
  81     }
  82
  83     switch (BE.getOpcode()) {
  84     case MCBinaryExpr::Add:
  85       // Print "X-42" instead of "X+-42".
  86       if (const MCConstantExpr *RHSC = dyn_cast<MCConstantExpr>(BE.getRHS())) {
  87         if (RHSC->getValue() < 0) {
  88           OS << RHSC->getValue();
  89           return;
  90         }
  91       }
  92
  93       OS <<  '+';
  94       break;
  95     case MCBinaryExpr::And:  OS <<  '&'; break;
  96     case MCBinaryExpr::Div:  OS <<  '/'; break;
  97     case MCBinaryExpr::EQ:   OS << "=="; break;
  98     case MCBinaryExpr::GT:   OS <<  '>'; break;
  99     case MCBinaryExpr::GTE:  OS << ">="; break;
 100     case MCBinaryExpr::LAnd: OS << "&&"; break;
 101     case MCBinaryExpr::LOr:  OS << "||"; break;
 102     case MCBinaryExpr::LT:   OS <<  '<'; break;
 103     case MCBinaryExpr::LTE:  OS << "<="; break;
 104     case MCBinaryExpr::Mod:  OS <<  '%'; break;
 105     case MCBinaryExpr::Mul:  OS <<  '*'; break;
 106     case MCBinaryExpr::NE:   OS << "!="; break;
 107     case MCBinaryExpr::Or:   OS <<  '|'; break;
 108     case MCBinaryExpr::Shl:  OS << "<<"; break;
 109     case MCBinaryExpr::Shr:  OS << ">>"; break;
 110     case MCBinaryExpr::Sub:  OS <<  '-'; break;
 111     case MCBinaryExpr::Xor:  OS <<  '^'; break;
 112     }
 113
 114     // Only print parens around the LHS if it is non-trivial.
 115     if (isa<MCConstantExpr>(BE.getRHS()) || isa<MCSymbolRefExpr>(BE.getRHS())) {
 116       OS << *BE.getRHS();
 117     } else {
 118       OS << '(' << *BE.getRHS() << ')';
 119     }
 120     return;
 121   }
 122   }
 123
 124   llvm_unreachable("Invalid expression kind!");
 125 }
 126
 127 #if !defined(NDEBUG) || defined(LLVM_ENABLE_DUMP)
 128 void MCExpr::dump() const {
 129   print(dbgs());
 130   dbgs() << '\n';
 131 }
 132 #endif
 133
 134 /* *** */
 135
 136 const MCBinaryExpr *MCBinaryExpr::Create(Opcode Opc, const MCExpr *LHS,
 137                                          const MCExpr *RHS, MCContext &Ctx) {
 138   return new (Ctx) MCBinaryExpr(Opc, LHS, RHS);
 139 }
 140
 141 const MCUnaryExpr *MCUnaryExpr::Create(Opcode Opc, const MCExpr *Expr,
 142                                        MCContext &Ctx) {
 143   return new (Ctx) MCUnaryExpr(Opc, Expr);
 144 }
 145
 146 const MCConstantExpr *MCConstantExpr::Create(int64_t Value, MCContext &Ctx) {
 147   return new (Ctx) MCConstantExpr(Value);
 148 }
 149
 150 /* *** */
 151
 152 const MCSymbolRefExpr *MCSymbolRefExpr::Create(const MCSymbol *Sym,
 153                                                VariantKind Kind,
 154                                                MCContext &Ctx) {
 155   return new (Ctx) MCSymbolRefExpr(Sym, Kind, Ctx.getAsmInfo());
 156 }
 157
 158 const MCSymbolRefExpr *MCSymbolRefExpr::Create(StringRef Name, VariantKind Kind,
 159                                                MCContext &Ctx) {
 160   return Create(Ctx.GetOrCreateSymbol(Name), Kind, Ctx);
 161 }
 162
 163 StringRef MCSymbolRefExpr::getVariantKindName(VariantKind Kind) {
 164   switch (Kind) {
 165   case VK_Invalid: return "<<invalid>>";
 166   case VK_None: return "<<none>>";
 167
 168   case VK_GOT: return "GOT";
 169   case VK_GOTOFF: return "GOTOFF";
 170   case VK_GOTPCREL: return "GOTPCREL";
 171   case VK_GOTTPOFF: return "GOTTPOFF";
 172   case VK_INDNTPOFF: return "INDNTPOFF";
 173   case VK_NTPOFF: return "NTPOFF";
 174   case VK_GOTNTPOFF: return "GOTNTPOFF";
 175   case VK_PLT: return "PLT";
 176   case VK_TLSGD: return "TLSGD";
 177   case VK_TLSLD: return "TLSLD";
 178   case VK_TLSLDM: return "TLSLDM";
 179   case VK_TPOFF: return "TPOFF";
 180   case VK_DTPOFF: return "DTPOFF";
 181   case VK_TLVP: return "TLVP";
 182   case VK_SECREL: return "SECREL32";
 183   case VK_ARM_NONE: return "none";
 184   case VK_ARM_TARGET1: return "target1";
 185   case VK_ARM_TARGET2: return "target2";
 186   case VK_ARM_PREL31: return "prel31";
 187   case VK_ARM_TLSLDO: return "tlsldo";
 188   case VK_ARM_TLSCALL: return "tlscall";
 189   case VK_PPC_LO: return "l";
 190   case VK_PPC_HI: return "h";
 191   case VK_PPC_HA: return "ha";
 192   case VK_PPC_HIGHER: return "higher";
 193   case VK_PPC_HIGHERA: return "highera";
 194   case VK_PPC_HIGHEST: return "highest";
 195   case VK_PPC_HIGHESTA: return "highesta";
 196   case VK_PPC_GOT_LO: return "got@l";
 197   case VK_PPC_GOT_HI: return "got@h";
 198   case VK_PPC_GOT_HA: return "got@ha";
 199   case VK_PPC_TOCBASE: return "tocbase";
 200   case VK_PPC_TOC: return "toc";
 201   case VK_PPC_TOC_LO: return "toc@l";
 202   case VK_PPC_TOC_HI: return "toc@h";
 203   case VK_PPC_TOC_HA: return "toc@ha";
 204   case VK_PPC_DTPMOD: return "dtpmod";
 205   case VK_PPC_TPREL: return "tprel";
 206   case VK_PPC_TPREL_LO: return "tprel@l";
 207   case VK_PPC_TPREL_HI: return "tprel@h";
 208   case VK_PPC_TPREL_HA: return "tprel@ha";
 209   case VK_PPC_TPREL_HIGHER: return "tprel@higher";
 210   case VK_PPC_TPREL_HIGHERA: return "tprel@highera";
 211   case VK_PPC_TPREL_HIGHEST: return "tprel@highest";
 212   case VK_PPC_TPREL_HIGHESTA: return "tprel@highesta";
 213   case VK_PPC_DTPREL: return "dtprel";
 214   case VK_PPC_DTPREL_LO: return "dtprel@l";
 215   case VK_PPC_DTPREL_HI: return "dtprel@h";
 216   case VK_PPC_DTPREL_HA: return "dtprel@ha";
 217   case VK_PPC_DTPREL_HIGHER: return "dtprel@higher";
 218   case VK_PPC_DTPREL_HIGHERA: return "dtprel@highera";
 219   case VK_PPC_DTPREL_HIGHEST: return "dtprel@highest";
 220   case VK_PPC_DTPREL_HIGHESTA: return "dtprel@highesta";
 221   case VK_PPC_GOT_TPREL: return "got@tprel";
 222   case VK_PPC_GOT_TPREL_LO: return "got@tprel@l";
 223   case VK_PPC_GOT_TPREL_HI: return "got@tprel@h";
 224   case VK_PPC_GOT_TPREL_HA: return "got@tprel@ha";
 225   case VK_PPC_GOT_DTPREL: return "got@dtprel";
 226   case VK_PPC_GOT_DTPREL_LO: return "got@dtprel@l";
 227   case VK_PPC_GOT_DTPREL_HI: return "got@dtprel@h";
 228   case VK_PPC_GOT_DTPREL_HA: return "got@dtprel@ha";
 229   case VK_PPC_TLS: return "tls";
 230   case VK_PPC_GOT_TLSGD: return "got@tlsgd";
 231   case VK_PPC_GOT_TLSGD_LO: return "got@tlsgd@l";
 232   case VK_PPC_GOT_TLSGD_HI: return "got@tlsgd@h";
 233   case VK_PPC_GOT_TLSGD_HA: return "got@tlsgd@ha";
 234   case VK_PPC_TLSGD: return "tlsgd";
 235   case VK_PPC_GOT_TLSLD: return "got@tlsld";
 236   case VK_PPC_GOT_TLSLD_LO: return "got@tlsld@l";
 237   case VK_PPC_GOT_TLSLD_HI: return "got@tlsld@h";
 238   case VK_PPC_GOT_TLSLD_HA: return "got@tlsld@ha";
 239   case VK_PPC_TLSLD: return "tlsld";
 240   case VK_Mips_GPREL: return "GPREL";
 241   case VK_Mips_GOT_CALL: return "GOT_CALL";
 242   case VK_Mips_GOT16: return "GOT16";
 243   case VK_Mips_GOT: return "GOT";
 244   case VK_Mips_ABS_HI: return "ABS_HI";
 245   case VK_Mips_ABS_LO: return "ABS_LO";
 246   case VK_Mips_TLSGD: return "TLSGD";
 247   case VK_Mips_TLSLDM: return "TLSLDM";
 248   case VK_Mips_DTPREL_HI: return "DTPREL_HI";
 249   case VK_Mips_DTPREL_LO: return "DTPREL_LO";
 250   case VK_Mips_GOTTPREL: return "GOTTPREL";
 251   case VK_Mips_TPREL_HI: return "TPREL_HI";
 252   case VK_Mips_TPREL_LO: return "TPREL_LO";
 253   case VK_Mips_GPOFF_HI: return "GPOFF_HI";
 254   case VK_Mips_GPOFF_LO: return "GPOFF_LO";
 255   case VK_Mips_GOT_DISP: return "GOT_DISP";
 256   case VK_Mips_GOT_PAGE: return "GOT_PAGE";
 257   case VK_Mips_GOT_OFST: return "GOT_OFST";
 258   case VK_Mips_HIGHER:   return "HIGHER";
 259   case VK_Mips_HIGHEST:  return "HIGHEST";
 260   case VK_Mips_GOT_HI16: return "GOT_HI16";
 261   case VK_Mips_GOT_LO16: return "GOT_LO16";
 262   case VK_Mips_CALL_HI16: return "CALL_HI16";
 263   case VK_Mips_CALL_LO16: return "CALL_LO16";
 264   case VK_COFF_IMGREL32: return "IMGREL32";
 265   }
 266   llvm_unreachable("Invalid variant kind");
 267 }
 268
 269 MCSymbolRefExpr::VariantKind
 270 MCSymbolRefExpr::getVariantKindForName(StringRef Name) {
 271   return StringSwitch<VariantKind>(Name)
 272     .Case("GOT", VK_GOT)
 273     .Case("got", VK_GOT)
 274     .Case("GOTOFF", VK_GOTOFF)
 275     .Case("gotoff", VK_GOTOFF)
 276     .Case("GOTPCREL", VK_GOTPCREL)
 277     .Case("gotpcrel", VK_GOTPCREL)
 278     .Case("GOTTPOFF", VK_GOTTPOFF)
 279     .Case("gottpoff", VK_GOTTPOFF)
 280     .Case("INDNTPOFF", VK_INDNTPOFF)
 281     .Case("indntpoff", VK_INDNTPOFF)
 282     .Case("NTPOFF", VK_NTPOFF)
 283     .Case("ntpoff", VK_NTPOFF)
 284     .Case("GOTNTPOFF", VK_GOTNTPOFF)
 285     .Case("gotntpoff", VK_GOTNTPOFF)
 286     .Case("PLT", VK_PLT)
 287     .Case("plt", VK_PLT)
 288     .Case("TLSGD", VK_TLSGD)
 289     .Case("tlsgd", VK_TLSGD)
 290     .Case("TLSLD", VK_TLSLD)
 291     .Case("tlsld", VK_TLSLD)
 292     .Case("TLSLDM", VK_TLSLDM)
 293     .Case("tlsldm", VK_TLSLDM)
 294     .Case("TPOFF", VK_TPOFF)
 295     .Case("tpoff", VK_TPOFF)
 296     .Case("DTPOFF", VK_DTPOFF)
 297     .Case("dtpoff", VK_DTPOFF)
 298     .Case("TLVP", VK_TLVP)
 299     .Case("tlvp", VK_TLVP)
 300     .Case("IMGREL", VK_COFF_IMGREL32)
 301     .Case("imgrel", VK_COFF_IMGREL32)
 302     .Case("SECREL32", VK_SECREL)
 303     .Case("secrel32", VK_SECREL)
 304     .Case("L", VK_PPC_LO)
 305     .Case("l", VK_PPC_LO)
 306     .Case("H", VK_PPC_HI)
 307     .Case("h", VK_PPC_HI)
 308     .Case("HA", VK_PPC_HA)
 309     .Case("ha", VK_PPC_HA)
 310     .Case("HIGHER", VK_PPC_HIGHER)
 311     .Case("higher", VK_PPC_HIGHER)
 312     .Case("HIGHERA", VK_PPC_HIGHERA)
 313     .Case("highera", VK_PPC_HIGHERA)
 314     .Case("HIGHEST", VK_PPC_HIGHEST)
 315     .Case("highest", VK_PPC_HIGHEST)
 316     .Case("HIGHESTA", VK_PPC_HIGHESTA)
 317     .Case("highesta", VK_PPC_HIGHESTA)
 318     .Case("GOT@L", VK_PPC_GOT_LO)
 319     .Case("got@l", VK_PPC_GOT_LO)
 320     .Case("GOT@H", VK_PPC_GOT_HI)
 321     .Case("got@h", VK_PPC_GOT_HI)
 322     .Case("GOT@HA", VK_PPC_GOT_HA)
 323     .Case("got@ha", VK_PPC_GOT_HA)
 324     .Case("TOCBASE", VK_PPC_TOCBASE)
 325     .Case("tocbase", VK_PPC_TOCBASE)
 326     .Case("TOC", VK_PPC_TOC)
 327     .Case("toc", VK_PPC_TOC)
 328     .Case("TOC@L", VK_PPC_TOC_LO)
 329     .Case("toc@l", VK_PPC_TOC_LO)
 330     .Case("TOC@H", VK_PPC_TOC_HI)
 331     .Case("toc@h", VK_PPC_TOC_HI)
 332     .Case("TOC@HA", VK_PPC_TOC_HA)
 333     .Case("toc@ha", VK_PPC_TOC_HA)
 334     .Case("TLS", VK_PPC_TLS)
 335     .Case("tls", VK_PPC_TLS)
 336     .Case("DTPMOD", VK_PPC_DTPMOD)
 337     .Case("dtpmod", VK_PPC_DTPMOD)
 338     .Case("TPREL", VK_PPC_TPREL)
 339     .Case("tprel", VK_PPC_TPREL)
 340     .Case("TPREL@L", VK_PPC_TPREL_LO)
 341     .Case("tprel@l", VK_PPC_TPREL_LO)
 342     .Case("TPREL@H", VK_PPC_TPREL_HI)
 343     .Case("tprel@h", VK_PPC_TPREL_HI)
 344     .Case("TPREL@HA", VK_PPC_TPREL_HA)
 345     .Case("tprel@ha", VK_PPC_TPREL_HA)
 346     .Case("TPREL@HIGHER", VK_PPC_TPREL_HIGHER)
 347     .Case("tprel@higher", VK_PPC_TPREL_HIGHER)
 348     .Case("TPREL@HIGHERA", VK_PPC_TPREL_HIGHERA)
 349     .Case("tprel@highera", VK_PPC_TPREL_HIGHERA)
 350     .Case("TPREL@HIGHEST", VK_PPC_TPREL_HIGHEST)
 351     .Case("tprel@highest", VK_PPC_TPREL_HIGHEST)
 352     .Case("TPREL@HIGHESTA", VK_PPC_TPREL_HIGHESTA)
 353     .Case("tprel@highesta", VK_PPC_TPREL_HIGHESTA)
 354     .Case("DTPREL", VK_PPC_DTPREL)
 355     .Case("dtprel", VK_PPC_DTPREL)
 356     .Case("DTPREL@L", VK_PPC_DTPREL_LO)
 357     .Case("dtprel@l", VK_PPC_DTPREL_LO)
 358     .Case("DTPREL@H", VK_PPC_DTPREL_HI)
 359     .Case("dtprel@h", VK_PPC_DTPREL_HI)
 360     .Case("DTPREL@HA", VK_PPC_DTPREL_HA)
 361     .Case("dtprel@ha", VK_PPC_DTPREL_HA)
 362     .Case("DTPREL@HIGHER", VK_PPC_DTPREL_HIGHER)
 363     .Case("dtprel@higher", VK_PPC_DTPREL_HIGHER)
 364     .Case("DTPREL@HIGHERA", VK_PPC_DTPREL_HIGHERA)
 365     .Case("dtprel@highera", VK_PPC_DTPREL_HIGHERA)
 366     .Case("DTPREL@HIGHEST", VK_PPC_DTPREL_HIGHEST)
 367     .Case("dtprel@highest", VK_PPC_DTPREL_HIGHEST)
 368     .Case("DTPREL@HIGHESTA", VK_PPC_DTPREL_HIGHESTA)
 369     .Case("dtprel@highesta", VK_PPC_DTPREL_HIGHESTA)
 370     .Case("GOT@TPREL", VK_PPC_GOT_TPREL)
 371     .Case("got@tprel", VK_PPC_GOT_TPREL)
 372     .Case("GOT@TPREL@L", VK_PPC_GOT_TPREL_LO)
 373     .Case("got@tprel@l", VK_PPC_GOT_TPREL_LO)
 374     .Case("GOT@TPREL@H", VK_PPC_GOT_TPREL_HI)
 375     .Case("got@tprel@h", VK_PPC_GOT_TPREL_HI)
 376     .Case("GOT@TPREL@HA", VK_PPC_GOT_TPREL_HA)
 377     .Case("got@tprel@ha", VK_PPC_GOT_TPREL_HA)
 378     .Case("GOT@DTPREL", VK_PPC_GOT_DTPREL)
 379     .Case("got@dtprel", VK_PPC_GOT_DTPREL)
 380     .Case("GOT@DTPREL@L", VK_PPC_GOT_DTPREL_LO)
 381     .Case("got@dtprel@l", VK_PPC_GOT_DTPREL_LO)
 382     .Case("GOT@DTPREL@H", VK_PPC_GOT_DTPREL_HI)
 383     .Case("got@dtprel@h", VK_PPC_GOT_DTPREL_HI)
 384     .Case("GOT@DTPREL@HA", VK_PPC_GOT_DTPREL_HA)
 385     .Case("got@dtprel@ha", VK_PPC_GOT_DTPREL_HA)
 386     .Case("GOT@TLSGD", VK_PPC_GOT_TLSGD)
 387     .Case("got@tlsgd", VK_PPC_GOT_TLSGD)
 388     .Case("GOT@TLSGD@L", VK_PPC_GOT_TLSGD_LO)
 389     .Case("got@tlsgd@l", VK_PPC_GOT_TLSGD_LO)
 390     .Case("GOT@TLSGD@H", VK_PPC_GOT_TLSGD_HI)
 391     .Case("got@tlsgd@h", VK_PPC_GOT_TLSGD_HI)
 392     .Case("GOT@TLSGD@HA", VK_PPC_GOT_TLSGD_HA)
 393     .Case("got@tlsgd@ha", VK_PPC_GOT_TLSGD_HA)
 394     .Case("GOT@TLSLD", VK_PPC_GOT_TLSLD)
 395     .Case("got@tlsld", VK_PPC_GOT_TLSLD)
 396     .Case("GOT@TLSLD@L", VK_PPC_GOT_TLSLD_LO)
 397     .Case("got@tlsld@l", VK_PPC_GOT_TLSLD_LO)
 398     .Case("GOT@TLSLD@H", VK_PPC_GOT_TLSLD_HI)
 399     .Case("got@tlsld@h", VK_PPC_GOT_TLSLD_HI)
 400     .Case("GOT@TLSLD@HA", VK_PPC_GOT_TLSLD_HA)
 401     .Case("got@tlsld@ha", VK_PPC_GOT_TLSLD_HA)
 402     .Case("NONE", VK_ARM_NONE)
 403     .Case("none", VK_ARM_NONE)
 404     .Case("TARGET1", VK_ARM_TARGET1)
 405     .Case("target1", VK_ARM_TARGET1)
 406     .Case("TARGET2", VK_ARM_TARGET2)
 407     .Case("target2", VK_ARM_TARGET2)
 408     .Case("PREL31", VK_ARM_PREL31)
 409     .Case("prel31", VK_ARM_PREL31)
 410     .Case("TLSLDO", VK_ARM_TLSLDO)
 411     .Case("tlsldo", VK_ARM_TLSLDO)
 412     .Case("TLSCALL", VK_ARM_TLSCALL)
 413     .Case("tlscall", VK_ARM_TLSCALL)
 414     .Default(VK_Invalid);
 415 }
 416
 417 /* *** */
 418
 419 void MCTargetExpr::anchor() {}
 420
 421 /* *** */
 422
 423 bool MCExpr::EvaluateAsAbsolute(int64_t &Res) const {
 424   return EvaluateAsAbsolute(Res, 0, 0, 0);
 425 }
 426
 427 bool MCExpr::EvaluateAsAbsolute(int64_t &Res,
 428                                 const MCAsmLayout &Layout) const {
 429   return EvaluateAsAbsolute(Res, &Layout.getAssembler(), &Layout, 0);
 430 }
 431
 432 bool MCExpr::EvaluateAsAbsolute(int64_t &Res,
 433                                 const MCAsmLayout &Layout,
 434                                 const SectionAddrMap &Addrs) const {
 435   return EvaluateAsAbsolute(Res, &Layout.getAssembler(), &Layout, &Addrs);
 436 }
 437
 438 bool MCExpr::EvaluateAsAbsolute(int64_t &Res, const MCAssembler &Asm) const {
 439   return EvaluateAsAbsolute(Res, &Asm, 0, 0);
 440 }
 441
 442 bool MCExpr::EvaluateAsAbsolute(int64_t &Res, const MCAssembler *Asm,
 443                                 const MCAsmLayout *Layout,
 444                                 const SectionAddrMap *Addrs) const {
 445   MCValue Value;
 446
 447   // Fast path constants.
 448   if (const MCConstantExpr *CE = dyn_cast<MCConstantExpr>(this)) {
 449     Res = CE->getValue();
 450     return true;
 451   }
 452
 453   // FIXME: The use if InSet = Addrs is a hack. Setting InSet causes us
 454   // absolutize differences across sections and that is what the MachO writer
 455   // uses Addrs for.
 456   bool IsRelocatable =
 457     EvaluateAsRelocatableImpl(Value, Asm, Layout, Addrs, /*InSet*/ Addrs);
 458
 459   // Record the current value.
 460   Res = Value.getConstant();
 461
 462   return IsRelocatable && Value.isAbsolute();
 463 }
 464
 465 /// \brief Helper method for \see EvaluateSymbolAdd().
 466 static void AttemptToFoldSymbolOffsetDifference(const MCAssembler *Asm,
 467                                                 const MCAsmLayout *Layout,
 468                                                 const SectionAddrMap *Addrs,
 469                                                 bool InSet,
 470                                                 const MCSymbolRefExpr *&A,
 471                                                 const MCSymbolRefExpr *&B,
 472                                                 int64_t &Addend) {
 473   if (!A || !B)
 474     return;
 475
 476   const MCSymbol &SA = A->getSymbol();
 477   const MCSymbol &SB = B->getSymbol();
 478
 479   if (SA.isUndefined() || SB.isUndefined())
 480     return;
 481
 482   if (!Asm->getWriter().IsSymbolRefDifferenceFullyResolved(*Asm, A, B, InSet))
 483     return;
 484
 485   MCSymbolData &AD = Asm->getSymbolData(SA);
 486   MCSymbolData &BD = Asm->getSymbolData(SB);
 487
 488   if (AD.getFragment() == BD.getFragment()) {
 489     Addend += (AD.getOffset() - BD.getOffset());
 490
 491     // Pointers to Thumb symbols need to have their low-bit set to allow
 492     // for interworking.
 493     if (Asm->isThumbFunc(&SA))
 494       Addend |= 1;
 495
 496     // Clear the symbol expr pointers to indicate we have folded these
 497     // operands.
 498     A = B = 0;
 499     return;
 500   }
 501
 502   if (!Layout)
 503     return;
 504
 505   const MCSectionData &SecA = *AD.getFragment()->getParent();
 506   const MCSectionData &SecB = *BD.getFragment()->getParent();
 507
 508   if ((&SecA != &SecB) && !Addrs)
 509     return;
 510
 511   // Eagerly evaluate.
 512   Addend += (Layout->getSymbolOffset(&Asm->getSymbolData(A->getSymbol())) -
 513              Layout->getSymbolOffset(&Asm->getSymbolData(B->getSymbol())));
 514   if (Addrs && (&SecA != &SecB))
 515     Addend += (Addrs->lookup(&SecA) - Addrs->lookup(&SecB));
 516
 517   // Pointers to Thumb symbols need to have their low-bit set to allow
 518   // for interworking.
 519   if (Asm->isThumbFunc(&SA))
 520     Addend |= 1;
 521
 522   // Clear the symbol expr pointers to indicate we have folded these
 523   // operands.
 524   A = B = 0;
 525 }
 526
 527 /// \brief Evaluate the result of an add between (conceptually) two MCValues.
 528 ///
 529 /// This routine conceptually attempts to construct an MCValue:
 530 ///   Result = (Result_A - Result_B + Result_Cst)
 531 /// from two MCValue's LHS and RHS where
 532 ///   Result = LHS + RHS
 533 /// and
 534 ///   Result = (LHS_A - LHS_B + LHS_Cst) + (RHS_A - RHS_B + RHS_Cst).
 535 ///
 536 /// This routine attempts to aggresively fold the operands such that the result
 537 /// is representable in an MCValue, but may not always succeed.
 538 ///
 539 /// \returns True on success, false if the result is not representable in an
 540 /// MCValue.
 541
 542 /// NOTE: It is really important to have both the Asm and Layout arguments.
 543 /// They might look redundant, but this function can be used before layout
 544 /// is done (see the object streamer for example) and having the Asm argument
 545 /// lets us avoid relaxations early.
 546 static bool EvaluateSymbolicAdd(const MCAssembler *Asm,
 547                                 const MCAsmLayout *Layout,
 548                                 const SectionAddrMap *Addrs,
 549                                 bool InSet,
 550                                 const MCValue &LHS,const MCSymbolRefExpr *RHS_A,
 551                                 const MCSymbolRefExpr *RHS_B, int64_t RHS_Cst,
 552                                 MCValue &Res) {
 553   // FIXME: This routine (and other evaluation parts) are *incredibly* sloppy
 554   // about dealing with modifiers. This will ultimately bite us, one day.
 555   const MCSymbolRefExpr *LHS_A = LHS.getSymA();
 556   const MCSymbolRefExpr *LHS_B = LHS.getSymB();
 557   int64_t LHS_Cst = LHS.getConstant();
 558
 559   // Fold the result constant immediately.
 560   int64_t Result_Cst = LHS_Cst + RHS_Cst;
 561
 562   assert((!Layout || Asm) &&
 563          "Must have an assembler object if layout is given!");
 564
 565   // If we have a layout, we can fold resolved differences.
 566   if (Asm) {
 567     // First, fold out any differences which are fully resolved. By
 568     // reassociating terms in
 569     //   Result = (LHS_A - LHS_B + LHS_Cst) + (RHS_A - RHS_B + RHS_Cst).
 570     // we have the four possible differences:
 571     //   (LHS_A - LHS_B),
 572     //   (LHS_A - RHS_B),
 573     //   (RHS_A - LHS_B),
 574     //   (RHS_A - RHS_B).
 575     // Since we are attempting to be as aggressive as possible about folding, we
 576     // attempt to evaluate each possible alternative.
 577     AttemptToFoldSymbolOffsetDifference(Asm, Layout, Addrs, InSet, LHS_A, LHS_B,
 578                                         Result_Cst);
 579     AttemptToFoldSymbolOffsetDifference(Asm, Layout, Addrs, InSet, LHS_A, RHS_B,
 580                                         Result_Cst);
 581     AttemptToFoldSymbolOffsetDifference(Asm, Layout, Addrs, InSet, RHS_A, LHS_B,
 582                                         Result_Cst);
 583     AttemptToFoldSymbolOffsetDifference(Asm, Layout, Addrs, InSet, RHS_A, RHS_B,
 584                                         Result_Cst);
 585   }
 586
 587   // We can't represent the addition or subtraction of two symbols.
 588   if ((LHS_A && RHS_A) || (LHS_B && RHS_B))
 589     return false;
 590
 591   // At this point, we have at most one additive symbol and one subtractive
 592   // symbol -- find them.
 593   const MCSymbolRefExpr *A = LHS_A ? LHS_A : RHS_A;
 594   const MCSymbolRefExpr *B = LHS_B ? LHS_B : RHS_B;
 595
 596   // If we have a negated symbol, then we must have also have a non-negated
 597   // symbol in order to encode the expression.
 598   if (B && !A)
 599     return false;
 600
 601   Res = MCValue::get(A, B, Result_Cst);
 602   return true;
 603 }
 604
 605 bool MCExpr::EvaluateAsRelocatable(MCValue &Res,
 606                                    const MCAsmLayout &Layout) const {
 607   return EvaluateAsRelocatableImpl(Res, &Layout.getAssembler(), &Layout,
 608                                    0, false);
 609 }
 610
 611 bool MCExpr::EvaluateAsRelocatableImpl(MCValue &Res,
 612                                        const MCAssembler *Asm,
 613                                        const MCAsmLayout *Layout,
 614                                        const SectionAddrMap *Addrs,
 615                                        bool InSet) const {
 616   ++stats::MCExprEvaluate;
 617
 618   switch (getKind()) {
 619   case Target:
 620     return cast<MCTargetExpr>(this)->EvaluateAsRelocatableImpl(Res, Layout);
 621
 622   case Constant:
 623     Res = MCValue::get(cast<MCConstantExpr>(this)->getValue());
 624     return true;
 625
 626   case SymbolRef: {
 627     const MCSymbolRefExpr *SRE = cast<MCSymbolRefExpr>(this);
 628     const MCSymbol &Sym = SRE->getSymbol();
 629
 630     // Evaluate recursively if this is a variable.
 631     if (Sym.isVariable() && SRE->getKind() == MCSymbolRefExpr::VK_None) {
 632       bool Ret = Sym.getVariableValue()->EvaluateAsRelocatableImpl(Res, Asm,
 633                                                                    Layout,
 634                                                                    Addrs,
 635                                                                    true);
 636       // If we failed to simplify this to a constant, let the target
 637       // handle it.
 638       if (Ret && !Res.getSymA() && !Res.getSymB())
 639         return true;
 640     }
 641
 642     Res = MCValue::get(SRE, 0, 0);
 643     return true;
 644   }
 645
 646   case Unary: {
 647     const MCUnaryExpr *AUE = cast<MCUnaryExpr>(this);
 648     MCValue Value;
 649
 650     if (!AUE->getSubExpr()->EvaluateAsRelocatableImpl(Value, Asm, Layout,
 651                                                       Addrs, InSet))
 652       return false;
 653
 654     switch (AUE->getOpcode()) {
 655     case MCUnaryExpr::LNot:
 656       if (!Value.isAbsolute())
 657         return false;
 658       Res = MCValue::get(!Value.getConstant());
 659       break;
 660     case MCUnaryExpr::Minus:
 661       /// -(a - b + const) ==> (b - a - const)
 662       if (Value.getSymA() && !Value.getSymB())
 663         return false;
 664       Res = MCValue::get(Value.getSymB(), Value.getSymA(),
 665                          -Value.getConstant());
 666       break;
 667     case MCUnaryExpr::Not:
 668       if (!Value.isAbsolute())
 669         return false;
 670       Res = MCValue::get(~Value.getConstant());
 671       break;
 672     case MCUnaryExpr::Plus:
 673       Res = Value;
 674       break;
 675     }
 676
 677     return true;
 678   }
 679
 680   case Binary: {
 681     const MCBinaryExpr *ABE = cast<MCBinaryExpr>(this);
 682     MCValue LHSValue, RHSValue;
 683
 684     if (!ABE->getLHS()->EvaluateAsRelocatableImpl(LHSValue, Asm, Layout,
 685                                                   Addrs, InSet) ||
 686         !ABE->getRHS()->EvaluateAsRelocatableImpl(RHSValue, Asm, Layout,
 687                                                   Addrs, InSet))
 688       return false;
 689
 690     // We only support a few operations on non-constant expressions, handle
 691     // those first.
 692     if (!LHSValue.isAbsolute() || !RHSValue.isAbsolute()) {
 693       switch (ABE->getOpcode()) {
 694       default:
 695         return false;
 696       case MCBinaryExpr::Sub:
 697         // Negate RHS and add.
 698         return EvaluateSymbolicAdd(Asm, Layout, Addrs, InSet, LHSValue,
 699                                    RHSValue.getSymB(), RHSValue.getSymA(),
 700                                    -RHSValue.getConstant(),
 701                                    Res);
 702
 703       case MCBinaryExpr::Add:
 704         return EvaluateSymbolicAdd(Asm, Layout, Addrs, InSet, LHSValue,
 705                                    RHSValue.getSymA(), RHSValue.getSymB(),
 706                                    RHSValue.getConstant(),
 707                                    Res);
 708       }
 709     }
 710
 711     // FIXME: We need target hooks for the evaluation. It may be limited in
 712     // width, and gas defines the result of comparisons and right shifts
 713     // differently from Apple as.
 714     int64_t LHS = LHSValue.getConstant(), RHS = RHSValue.getConstant();
 715     int64_t Result = 0;
 716     switch (ABE->getOpcode()) {
 717     case MCBinaryExpr::Add:  Result = LHS + RHS; break;
 718     case MCBinaryExpr::And:  Result = LHS & RHS; break;
 719     case MCBinaryExpr::Div:  Result = LHS / RHS; break;
 720     case MCBinaryExpr::EQ:   Result = LHS == RHS; break;
 721     case MCBinaryExpr::GT:   Result = LHS > RHS; break;
 722     case MCBinaryExpr::GTE:  Result = LHS >= RHS; break;
 723     case MCBinaryExpr::LAnd: Result = LHS && RHS; break;
 724     case MCBinaryExpr::LOr:  Result = LHS || RHS; break;
 725     case MCBinaryExpr::LT:   Result = LHS < RHS; break;
 726     case MCBinaryExpr::LTE:  Result = LHS <= RHS; break;
 727     case MCBinaryExpr::Mod:  Result = LHS % RHS; break;
 728     case MCBinaryExpr::Mul:  Result = LHS * RHS; break;
 729     case MCBinaryExpr::NE:   Result = LHS != RHS; break;
 730     case MCBinaryExpr::Or:   Result = LHS | RHS; break;
 731     case MCBinaryExpr::Shl:  Result = LHS << RHS; break;
 732     case MCBinaryExpr::Shr:  Result = LHS >> RHS; break;
 733     case MCBinaryExpr::Sub:  Result = LHS - RHS; break;
 734     case MCBinaryExpr::Xor:  Result = LHS ^ RHS; break;
 735     }
 736
 737     Res = MCValue::get(Result);
 738     return true;
 739   }
 740   }
 741
 742   llvm_unreachable("Invalid assembly expression kind!");
 743 }
 744
 745 const MCSection *MCExpr::FindAssociatedSection() const {
 746   switch (getKind()) {
 747   case Target:
 748     // We never look through target specific expressions.
 749     return cast<MCTargetExpr>(this)->FindAssociatedSection();
 750
 751   case Constant:
 752     return MCSymbol::AbsolutePseudoSection;
 753
 754   case SymbolRef: {
 755     const MCSymbolRefExpr *SRE = cast<MCSymbolRefExpr>(this);
 756     const MCSymbol &Sym = SRE->getSymbol();
 757
 758     if (Sym.isDefined())
 759       return &Sym.getSection();
 760
 761     return 0;
 762   }
 763
 764   case Unary:
 765     return cast<MCUnaryExpr>(this)->getSubExpr()->FindAssociatedSection();
 766
 767   case Binary: {
 768     const MCBinaryExpr *BE = cast<MCBinaryExpr>(this);
 769     const MCSection *LHS_S = BE->getLHS()->FindAssociatedSection();
 770     const MCSection *RHS_S = BE->getRHS()->FindAssociatedSection();
 771
 772     // If either section is absolute, return the other.
 773     if (LHS_S == MCSymbol::AbsolutePseudoSection)
 774       return RHS_S;
 775     if (RHS_S == MCSymbol::AbsolutePseudoSection)
 776       return LHS_S;
 777
 778     // Otherwise, return the first non-null section.
 779     return LHS_S ? LHS_S : RHS_S;
 780   }
 781   }
 782
 783   llvm_unreachable("Invalid assembly expression kind!");
 784 }