1//===-- HexagonMCExpr.cpp - Hexagon specific MC expression classes
2//----------===//
3//
4// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
5// See https://llvm.org/LICENSE.txt for license information.
6// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
7//
8//===----------------------------------------------------------------------===//
9
10#include "HexagonMCExpr.h"
11#include "llvm/BinaryFormat/ELF.h"
12#include "llvm/MC/MCContext.h"
13#include "llvm/MC/MCStreamer.h"
14#include "llvm/MC/MCSymbolELF.h"
15#include "llvm/MC/MCValue.h"
16#include "llvm/Support/raw_ostream.h"
17
18using namespace llvm;
19
20#define DEBUG_TYPE "hexagon-mcexpr"
21
22HexagonMCExpr *HexagonMCExpr::create(MCExpr const *Expr, MCContext &Ctx) {
23  return new (Ctx) HexagonMCExpr(Expr);
24}
25
26bool HexagonMCExpr::evaluateAsRelocatableImpl(MCValue &Res,
27                                              MCAsmLayout const *Layout,
28                                              MCFixup const *Fixup) const {
29  return Expr->evaluateAsRelocatable(Res, Layout, Fixup);
30}
31
32void HexagonMCExpr::visitUsedExpr(MCStreamer &Streamer) const {
33  Streamer.visitUsedExpr(*Expr);
34}
35
36MCFragment *llvm::HexagonMCExpr::findAssociatedFragment() const {
37  return Expr->findAssociatedFragment();
38}
39
40static void fixELFSymbolsInTLSFixupsImpl(const MCExpr *Expr, MCAssembler &Asm) {
41  switch (Expr->getKind()) {
42  case MCExpr::Target:
43    llvm_unreachable("Cannot handle nested target MCExpr");
44    break;
45  case MCExpr::Constant:
46    break;
47
48  case MCExpr::Binary: {
49    const MCBinaryExpr *be = cast<MCBinaryExpr>(Expr);
50    fixELFSymbolsInTLSFixupsImpl(be->getLHS(), Asm);
51    fixELFSymbolsInTLSFixupsImpl(be->getRHS(), Asm);
52    break;
53  }
54  case MCExpr::SymbolRef: {
55    const MCSymbolRefExpr &symRef = *cast<MCSymbolRefExpr>(Expr);
56    switch (symRef.getKind()) {
57    default:
58      return;
59    case MCSymbolRefExpr::VK_Hexagon_GD_GOT:
60    case MCSymbolRefExpr::VK_Hexagon_LD_GOT:
61    case MCSymbolRefExpr::VK_Hexagon_GD_PLT:
62    case MCSymbolRefExpr::VK_Hexagon_LD_PLT:
63    case MCSymbolRefExpr::VK_Hexagon_IE:
64    case MCSymbolRefExpr::VK_Hexagon_IE_GOT:
65    case MCSymbolRefExpr::VK_TPREL:
66      break;
67    }
68    cast<MCSymbolELF>(symRef.getSymbol()).setType(ELF::STT_TLS);
69    break;
70  }
71  case MCExpr::Unary:
72    fixELFSymbolsInTLSFixupsImpl(cast<MCUnaryExpr>(Expr)->getSubExpr(), Asm);
73    break;
74  }
75}
76
77void HexagonMCExpr::fixELFSymbolsInTLSFixups(MCAssembler &Asm) const {
78  auto expr = getExpr();
79  fixELFSymbolsInTLSFixupsImpl(expr, Asm);
80}
81
82MCExpr const *HexagonMCExpr::getExpr() const { return Expr; }
83
84void HexagonMCExpr::setMustExtend(bool Val) {
85  assert((!Val || !MustNotExtend) && "Extension contradiction");
86  MustExtend = Val;
87}
88
89bool HexagonMCExpr::mustExtend() const { return MustExtend; }
90void HexagonMCExpr::setMustNotExtend(bool Val) {
91  assert((!Val || !MustExtend) && "Extension contradiction");
92  MustNotExtend = Val;
93}
94bool HexagonMCExpr::mustNotExtend() const { return MustNotExtend; }
95
96bool HexagonMCExpr::s27_2_reloc() const { return S27_2_reloc; }
97void HexagonMCExpr::setS27_2_reloc(bool Val) {
98  S27_2_reloc = Val;
99}
100
101bool HexagonMCExpr::classof(MCExpr const *E) {
102  return E->getKind() == MCExpr::Target;
103}
104
105HexagonMCExpr::HexagonMCExpr(MCExpr const *Expr)
106    : Expr(Expr), MustNotExtend(false), MustExtend(false), S27_2_reloc(false),
107      SignMismatch(false) {}
108
109void HexagonMCExpr::printImpl(raw_ostream &OS, const MCAsmInfo *MAI) const {
110  Expr->print(OS, MAI);
111}
112
113void HexagonMCExpr::setSignMismatch(bool Val) {
114  SignMismatch = Val;
115}
116
117bool HexagonMCExpr::signMismatch() const {
118  return SignMismatch;
119}
120