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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
|
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
//*****************************************************************************
// CeeFileGenWriterTokens.cpp
//
// This code will walk the byte codes for all methods before they are saved
// to disk and apply the token fix-ups if they have moved.
//
//*****************************************************************************
#include "stdafx.h"
#include "ceegen.h"
#ifndef FEATURE_CORECLR
#define DECLARE_DATA
#endif
#include "../../ildasm/dasmenum.hpp"
#define MAX_CLASSNAME_LENGTH 1024
//********** Locals. **********************************************************
OPCODE DecodeOpcode(const BYTE *pCode, DWORD *pdwLen);
//********** Code. ************************************************************
//*****************************************************************************
// Method bodies are kept in the text section. The meta data contains the
// RVA of each method body in the image. The TextSection object contains the
// actual raw bytes where the method bodies are located. This code will
// determine the raw offset of each method based on the RVA kept in the meta
// data.
//*****************************************************************************
HRESULT CeeFileGenWriter::MapTokens(
CeeGenTokenMapper *pMapper,
IMetaDataImport *pImport)
{
mdTypeDef td;
mdMethodDef md;
ULONG count;
ULONG MethodRVA;
ULONG codeOffset;
ULONG BaseRVA;
DWORD dwFlags;
DWORD iFlags;
HCORENUM hTypeDefs = 0, hEnum = 0;
WCHAR rcwName[MAX_CLASSNAME_LENGTH];
HRESULT hr;
CeeSection TextSection = getTextSection();
// Ask for the base RVA of the first method in the stream. All other
// method RVA's are >= that value, and will give us the raw offset required.
hr = getMethodRVA(0, &BaseRVA);
_ASSERTE(SUCCEEDED(hr));
// do globals first
while ((hr = pImport->EnumMethods(&hEnum, mdTokenNil, &md, 1, &count)) == S_OK)
{
hr = pImport->GetMethodProps(md, NULL,
rcwName, lengthof(rcwName), NULL,
&dwFlags, NULL, NULL,
&MethodRVA, &iFlags);
_ASSERTE(SUCCEEDED(hr));
if (MethodRVA == 0 || ((IsMdAbstract(dwFlags) || IsMiInternalCall(iFlags)) ||
(! IsMiIL(iFlags) && ! IsMiOPTIL(iFlags))))
continue;
// The raw offset of the method is the RVA in the image minus
// the first method in the text section.
codeOffset = MethodRVA - BaseRVA;
hr = MapTokensForMethod(pMapper,
(BYTE *) TextSection.computePointer(codeOffset),
rcwName);
if (FAILED(hr))
goto ErrExit;
}
if (hEnum) pImport->CloseEnum(hEnum);
hEnum = 0;
while ((hr = pImport->EnumTypeDefs(&hTypeDefs, &td, 1, &count)) == S_OK)
{
while ((hr = pImport->EnumMethods(&hEnum, td, &md, 1, &count)) == S_OK)
{
hr = pImport->GetMethodProps(md, NULL,
rcwName, lengthof(rcwName), NULL,
&dwFlags, NULL, NULL,
&MethodRVA, &iFlags);
_ASSERTE(SUCCEEDED(hr));
if (MethodRVA == 0 || ((IsMdAbstract(dwFlags) || IsMiInternalCall(iFlags)) ||
(! IsMiIL(iFlags) && ! IsMiOPTIL(iFlags))))
continue;
// The raw offset of the method is the RVA in the image minus
// the first method in the text section.
codeOffset = MethodRVA - BaseRVA;
hr = MapTokensForMethod(pMapper,
(BYTE *) TextSection.computePointer(codeOffset),
rcwName);
if (FAILED(hr))
goto ErrExit;
}
if (hEnum) pImport->CloseEnum(hEnum);
hEnum = 0;
}
ErrExit:
if (hTypeDefs) pImport->CloseEnum(hTypeDefs);
if (hEnum) pImport->CloseEnum(hEnum);
return (hr);
}
//*****************************************************************************
// This method will walk the byte codes of an IL method looking for tokens.
// For each token found, it will check to see if it has been moved, and if
// so, apply the new token value in its place.
//*****************************************************************************
HRESULT CeeFileGenWriter::MapTokensForMethod(
CeeGenTokenMapper *pMapper,
BYTE *pCode,
LPCWSTR szMethodName)
{
mdToken tkTo;
DWORD PC;
COR_ILMETHOD_DECODER method((COR_ILMETHOD*) pCode);
// If compressed IL is being emitted, this routine will have no idea how to walk the tokens,
// so don't do it
if (m_dwMacroDefinitionSize != 0)
return S_OK;
pCode = const_cast<BYTE*>(method.Code);
PC = 0;
while (PC < method.GetCodeSize())
{
DWORD Len;
DWORD i;
OPCODE instr;
instr = DecodeOpcode(&pCode[PC], &Len);
if (instr == CEE_COUNT)
{
_ASSERTE(0 && "Instruction decoding error\n");
return E_FAIL;
}
PC += Len;
switch (OpcodeInfo[instr].Type)
{
DWORD tk;
default:
{
_ASSERTE(0 && "Unknown instruction\n");
return E_FAIL;
}
case InlineNone:
break;
case ShortInlineI:
case ShortInlineVar:
case ShortInlineBrTarget:
PC++;
break;
case InlineVar:
PC += 2;
break;
case InlineI:
case ShortInlineR:
case InlineBrTarget:
case InlineRVA:
PC += 4;
break;
case InlineI8:
case InlineR:
PC += 8;
break;
case InlinePhi:
{
DWORD cases = pCode[PC];
PC += 2 * cases + 1;
break;
}
case InlineSwitch:
{
DWORD cases = pCode[PC] + (pCode[PC+1] << 8) + (pCode[PC+2] << 16) + (pCode[PC+3] << 24);
PC += 4;
for (i = 0; i < cases; i++)
{
PC += 4;
}
// skip bottom of loop which prints szString
continue;
}
case InlineTok:
case InlineSig:
case InlineMethod:
case InlineField:
case InlineType:
case InlineString:
{
tk = GET_UNALIGNED_VAL32(&pCode[PC]);
if (pMapper->HasTokenMoved(tk, tkTo))
{
SET_UNALIGNED_VAL32(&pCode[PC], tkTo);
}
PC += 4;
break;
}
}
}
return S_OK;
}
OPCODE DecodeOpcode(const BYTE *pCode, DWORD *pdwLen)
{
OPCODE opcode;
*pdwLen = 1;
opcode = OPCODE(pCode[0]);
switch(opcode) {
case CEE_PREFIX1:
opcode = OPCODE(pCode[1] + 256);
if (opcode < 0 || opcode >= CEE_COUNT)
opcode = CEE_COUNT;
*pdwLen = 2;
break;
case CEE_PREFIXREF:
case CEE_PREFIX2:
case CEE_PREFIX3:
case CEE_PREFIX4:
case CEE_PREFIX5:
case CEE_PREFIX6:
case CEE_PREFIX7:
*pdwLen = 3;
return CEE_COUNT;
default:
break;
}
return opcode;
}
|