1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
//===---- systemz.cpp - Generic JITLink systemz edge kinds, utilities -----===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
// Generic utilities for graphs representing systemz objects.
//
//===----------------------------------------------------------------------===//
#include "llvm/ExecutionEngine/JITLink/systemz.h"
#define DEBUG_TYPE "jitlink"
namespace llvm {
namespace jitlink {
namespace systemz {
const char NullPointerContent[8] = {0x00, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00};
const char Pointer64JumpStubContent[8] = {
static_cast<char>(0xC4u),
0x18,
0x00,
0x00,
0x00,
0x00, // lgrl r1
static_cast<char>(0x07u),
static_cast<char>(0xF1u), // BCR 15, 1
};
const char *getEdgeKindName(Edge::Kind R) {
switch (R) {
case Pointer64:
return "Pointer64";
case Pointer32:
return "Pointer32";
case Pointer20:
return "Pointer20";
case Pointer16:
return "Pointer16";
case Pointer12:
return "Pointer12";
case Pointer8:
return "Pointer8";
case Delta64:
return "Delta64";
case Delta32:
return "Delta32";
case Delta16:
return "Delta16";
case Delta32dbl:
return "Delta32dbl";
case Delta24dbl:
return "Delta24dbl";
case Delta16dbl:
return "Delta16dbl";
case Delta12dbl:
return "Delta12dbl";
case NegDelta64:
return "NegDelta64";
case NegDelta32:
return "NegDelta32";
case DeltaPLT32dbl:
return "DeltaPLT32dbl";
case DeltaPLT24dbl:
return "DeltaPLT24dbl";
case DeltaPLT16dbl:
return "DeltaPLT16dbl";
case DeltaPLT12dbl:
return "DeltaPLT12dbl";
case DeltaPLT64:
return "DeltaPLT64";
case DeltaPLT32:
return "DeltaPLT32";
case Delta64FromGOT:
return "Delta64FromGOT";
case Delta32FromGOT:
return "Delta32FromGOT";
case Delta16FromGOT:
return "Delta16FromGOT";
case Delta64PLTFromGOT:
return "Delta64PLTFromGOT";
case Delta32PLTFromGOT:
return "Delta32PLTFromGOT";
case Delta16PLTFromGOT:
return "Delta16PLTFromGOT";
case Delta32GOTBase:
return "Delta32GOTBase";
case Delta32dblGOTBase:
return "Delta32dblGOTBase";
case RequestGOTAndTransformToDelta64FromGOT:
return "RequestGOTAndTransformToDelta64FromGOT";
case RequestGOTAndTransformToDelta32FromGOT:
return "RequestGOTAndTransformToDelta32FromGOT";
case RequestGOTAndTransformToDelta20FromGOT:
return "RequestGOTAndTransformToDelta20FromGOT";
case RequestGOTAndTransformToDelta16FromGOT:
return "RequestGOTAndTransformToDelta16FromGOT";
case RequestGOTAndTransformToDelta12FromGOT:
return "RequestGOTAndTransformToDelta12FromGOT";
case RequestGOTAndTransformToDelta32dbl:
return "RequestGOTAndTransformToDelta32dbl";
case RequestTLSDescInGOTAndTransformToDelta64FromGOT:
return "RequestTLSDescInGOTAndTransformToDelta64FromGOT";
default:
return getGenericEdgeKindName(static_cast<Edge::Kind>(R));
}
}
Error optimizeGOTAndStubAccesses(LinkGraph &G) {
LLVM_DEBUG(dbgs() << "Optimizing GOT entries and stubs:\n");
for (auto *B : G.blocks())
for (auto &E : B->edges()) {
if (E.getKind() == systemz::DeltaPLT32dbl) {
auto &StubBlock = E.getTarget().getBlock();
if (StubBlock.getSize() == sizeof(Pointer64JumpStubContent) &&
StubBlock.edges_size() == 1) {
auto &GOTBlock = StubBlock.edges().begin()->getTarget().getBlock();
assert(GOTBlock.getSize() == G.getPointerSize() &&
"GOT block should be pointer sized");
assert(GOTBlock.edges_size() == 1 &&
"GOT block should only have one outgoing edge");
auto &GOTTarget = GOTBlock.edges().begin()->getTarget();
orc::ExecutorAddr EdgeAddr = B->getAddress() + E.getOffset();
orc::ExecutorAddr TargetAddr = GOTTarget.getAddress();
int64_t Displacement = TargetAddr + E.getAddend() - EdgeAddr;
if (isInt<33>(Displacement)) {
E.setKind(systemz::Delta32dbl);
E.setTarget(GOTTarget);
LLVM_DEBUG({
dbgs() << " Replaced stub branch with direct branch:\n ";
printEdge(dbgs(), *B, E, getEdgeKindName(E.getKind()));
dbgs() << "\n";
});
}
}
}
}
return Error::success();
}
} // namespace systemz
} // namespace jitlink
} // namespace llvm
|
