Add AArch64 as an experimental target.
[oota-llvm.git] / lib / Target / AArch64 / MCTargetDesc / AArch64MCExpr.cpp
1 //===-- AArch64MCExpr.cpp - AArch64 specific MC expression classes --------===//
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 "aarch64mcexpr"
11 #include "AArch64MCExpr.h"
12 #include "llvm/MC/MCContext.h"
13 #include "llvm/MC/MCAssembler.h"
14 #include "llvm/MC/MCELF.h"
15 #include "llvm/Object/ELF.h"
16
17 using namespace llvm;
18
19 const AArch64MCExpr*
20 AArch64MCExpr::Create(VariantKind Kind, const MCExpr *Expr,
21                       MCContext &Ctx) {
22   return new (Ctx) AArch64MCExpr(Kind, Expr);
23 }
24
25 void AArch64MCExpr::PrintImpl(raw_ostream &OS) const {
26   switch (Kind) {
27   default: llvm_unreachable("Invalid kind!");
28   case VK_AARCH64_GOT:              OS << ":got:"; break;
29   case VK_AARCH64_GOT_LO12:         OS << ":got_lo12:"; break;
30   case VK_AARCH64_LO12:             OS << ":lo12:"; break;
31   case VK_AARCH64_ABS_G0:           OS << ":abs_g0:"; break;
32   case VK_AARCH64_ABS_G0_NC:        OS << ":abs_g0_nc:"; break;
33   case VK_AARCH64_ABS_G1:           OS << ":abs_g1:"; break;
34   case VK_AARCH64_ABS_G1_NC:        OS << ":abs_g1_nc:"; break;
35   case VK_AARCH64_ABS_G2:           OS << ":abs_g2:"; break;
36   case VK_AARCH64_ABS_G2_NC:        OS << ":abs_g2_nc:"; break;
37   case VK_AARCH64_ABS_G3:           OS << ":abs_g3:"; break;
38   case VK_AARCH64_SABS_G0:          OS << ":abs_g0_s:"; break;
39   case VK_AARCH64_SABS_G1:          OS << ":abs_g1_s:"; break;
40   case VK_AARCH64_SABS_G2:          OS << ":abs_g2_s:"; break;
41   case VK_AARCH64_DTPREL_G2:        OS << ":dtprel_g2:"; break;
42   case VK_AARCH64_DTPREL_G1:        OS << ":dtprel_g1:"; break;
43   case VK_AARCH64_DTPREL_G1_NC:     OS << ":dtprel_g1_nc:"; break;
44   case VK_AARCH64_DTPREL_G0:        OS << ":dtprel_g0:"; break;
45   case VK_AARCH64_DTPREL_G0_NC:     OS << ":dtprel_g0_nc:"; break;
46   case VK_AARCH64_DTPREL_HI12:      OS << ":dtprel_hi12:"; break;
47   case VK_AARCH64_DTPREL_LO12:      OS << ":dtprel_lo12:"; break;
48   case VK_AARCH64_DTPREL_LO12_NC:   OS << ":dtprel_lo12_nc:"; break;
49   case VK_AARCH64_GOTTPREL_G1:      OS << ":gottprel_g1:"; break;
50   case VK_AARCH64_GOTTPREL_G0_NC:   OS << ":gottprel_g0_nc:"; break;
51   case VK_AARCH64_GOTTPREL:         OS << ":gottprel:"; break;
52   case VK_AARCH64_GOTTPREL_LO12:    OS << ":gottprel_lo12:"; break;
53   case VK_AARCH64_TPREL_G2:         OS << ":tprel_g2:"; break;
54   case VK_AARCH64_TPREL_G1:         OS << ":tprel_g1:"; break;
55   case VK_AARCH64_TPREL_G1_NC:      OS << ":tprel_g1_nc:"; break;
56   case VK_AARCH64_TPREL_G0:         OS << ":tprel_g0:"; break;
57   case VK_AARCH64_TPREL_G0_NC:      OS << ":tprel_g0_nc:"; break;
58   case VK_AARCH64_TPREL_HI12:       OS << ":tprel_hi12:"; break;
59   case VK_AARCH64_TPREL_LO12:       OS << ":tprel_lo12:"; break;
60   case VK_AARCH64_TPREL_LO12_NC:    OS << ":tprel_lo12_nc:"; break;
61   case VK_AARCH64_TLSDESC:          OS << ":tlsdesc:"; break;
62   case VK_AARCH64_TLSDESC_LO12:     OS << ":tlsdesc_lo12:"; break;
63
64   }
65
66   const MCExpr *Expr = getSubExpr();
67   if (Expr->getKind() != MCExpr::SymbolRef)
68     OS << '(';
69   Expr->print(OS);
70   if (Expr->getKind() != MCExpr::SymbolRef)
71     OS << ')';
72 }
73
74 bool
75 AArch64MCExpr::EvaluateAsRelocatableImpl(MCValue &Res,
76                                          const MCAsmLayout *Layout) const {
77   return getSubExpr()->EvaluateAsRelocatable(Res, *Layout);
78 }
79
80 static void fixELFSymbolsInTLSFixupsImpl(const MCExpr *Expr, MCAssembler &Asm) {
81   switch (Expr->getKind()) {
82   case MCExpr::Target:
83     llvm_unreachable("Can't handle nested target expression");
84     break;
85   case MCExpr::Constant:
86     break;
87
88   case MCExpr::Binary: {
89     const MCBinaryExpr *BE = cast<MCBinaryExpr>(Expr);
90     fixELFSymbolsInTLSFixupsImpl(BE->getLHS(), Asm);
91     fixELFSymbolsInTLSFixupsImpl(BE->getRHS(), Asm);
92     break;
93   }
94
95   case MCExpr::SymbolRef: {
96     // We're known to be under a TLS fixup, so any symbol should be
97     // modified. There should be only one.
98     const MCSymbolRefExpr &SymRef = *cast<MCSymbolRefExpr>(Expr);
99     MCSymbolData &SD = Asm.getOrCreateSymbolData(SymRef.getSymbol());
100     MCELF::SetType(SD, ELF::STT_TLS);
101     break;
102   }
103
104   case MCExpr::Unary:
105     fixELFSymbolsInTLSFixupsImpl(cast<MCUnaryExpr>(Expr)->getSubExpr(), Asm);
106     break;
107   }
108 }
109
110 void AArch64MCExpr::fixELFSymbolsInTLSFixups(MCAssembler &Asm) const {
111   switch (getKind()) {
112   default:
113     return;
114   case VK_AARCH64_DTPREL_G2:
115   case VK_AARCH64_DTPREL_G1:
116   case VK_AARCH64_DTPREL_G1_NC:
117   case VK_AARCH64_DTPREL_G0:
118   case VK_AARCH64_DTPREL_G0_NC:
119   case VK_AARCH64_DTPREL_HI12:
120   case VK_AARCH64_DTPREL_LO12:
121   case VK_AARCH64_DTPREL_LO12_NC:
122   case VK_AARCH64_GOTTPREL_G1:
123   case VK_AARCH64_GOTTPREL_G0_NC:
124   case VK_AARCH64_GOTTPREL:
125   case VK_AARCH64_GOTTPREL_LO12:
126   case VK_AARCH64_TPREL_G2:
127   case VK_AARCH64_TPREL_G1:
128   case VK_AARCH64_TPREL_G1_NC:
129   case VK_AARCH64_TPREL_G0:
130   case VK_AARCH64_TPREL_G0_NC:
131   case VK_AARCH64_TPREL_HI12:
132   case VK_AARCH64_TPREL_LO12:
133   case VK_AARCH64_TPREL_LO12_NC:
134   case VK_AARCH64_TLSDESC:
135   case VK_AARCH64_TLSDESC_LO12:
136     break;
137   }
138
139   fixELFSymbolsInTLSFixupsImpl(getSubExpr(), Asm);
140 }
141
142 // FIXME: This basically copies MCObjectStreamer::AddValueSymbols. Perhaps
143 // that method should be made public?
144 // FIXME: really do above: now that two backends are using it.
145 static void AddValueSymbolsImpl(const MCExpr *Value, MCAssembler *Asm) {
146   switch (Value->getKind()) {
147   case MCExpr::Target:
148     llvm_unreachable("Can't handle nested target expr!");
149     break;
150
151   case MCExpr::Constant:
152     break;
153
154   case MCExpr::Binary: {
155     const MCBinaryExpr *BE = cast<MCBinaryExpr>(Value);
156     AddValueSymbolsImpl(BE->getLHS(), Asm);
157     AddValueSymbolsImpl(BE->getRHS(), Asm);
158     break;
159   }
160
161   case MCExpr::SymbolRef:
162     Asm->getOrCreateSymbolData(cast<MCSymbolRefExpr>(Value)->getSymbol());
163     break;
164
165   case MCExpr::Unary:
166     AddValueSymbolsImpl(cast<MCUnaryExpr>(Value)->getSubExpr(), Asm);
167     break;
168   }
169 }
170
171 void AArch64MCExpr::AddValueSymbols(MCAssembler *Asm) const {
172   AddValueSymbolsImpl(getSubExpr(), Asm);
173 }