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
|
// 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.
#include "common.h"
#include "CommonTypes.h"
#include "CommonMacros.h"
#include "daccess.h"
#include "PalRedhawkCommon.h"
#include "CommonMacros.inl"
#include "Volatile.h"
#include "PalRedhawk.h"
#include "rhassert.h"
#ifdef FEATURE_RX_THUNKS
#if defined(USE_PORTABLE_HELPERS)
static_assert(false, "Cannot use the portable helpers with FEATURE_RX_THUNKS");
#endif
#ifdef _TARGET_AMD64_
#define THUNK_SIZE 20
#elif _TARGET_X86_
#define THUNK_SIZE 12
#elif _TARGET_ARM_
#define THUNK_SIZE 20
#elif _TARGET_ARM64_
//ARM64TODO
#define THUNK_SIZE 0x8000 // This will cause RhpGetNumThunksPerBlock to return 0 for now
#elif _TARGET_WASM_
//WASMTODO
#define THUNK_SIZE 0x8000 // This will cause RhpGetNumThunksPerBlock to return 0 for now
#endif
static_assert((THUNK_SIZE % 4) == 0, "Thunk stubs size not aligned correctly. This will cause runtime failures.");
#define THUNKS_MAP_SIZE 0x8000 // 32 K
#ifdef _TARGET_ARM_
//*****************************************************************************
// Encode a 16-bit immediate mov/movt in ARM Thumb2 Instruction (format T2_N)
//*****************************************************************************
void EncodeThumb2Mov16(UInt16 * pCode, UInt16 value, UInt8 rDestination, bool topWord)
{
pCode[0] = ((topWord ? 0xf2c0 : 0xf240) |
((value >> 12) & 0x000f) |
((value >> 1) & 0x0400));
pCode[1] = (((value << 4) & 0x7000) |
(value & 0x00ff) |
(rDestination << 8));
}
//*****************************************************************************
// Encode a 32-bit immediate mov in ARM Thumb2 Instruction (format T2_N)
//*****************************************************************************
void EncodeThumb2Mov32(UInt16 * pCode, UInt32 value, UInt8 rDestination)
{
EncodeThumb2Mov16(pCode, (UInt16)(value & 0x0000ffff), rDestination, false);
EncodeThumb2Mov16(pCode + 2, (UInt16)(value >> 16), rDestination, true);
}
#endif
COOP_PINVOKE_HELPER(int, RhpGetNumThunkBlocksPerMapping, ())
{
static_assert((THUNKS_MAP_SIZE % OS_PAGE_SIZE) == 0, "Thunks map size should be in multiples of pages");
return THUNKS_MAP_SIZE / OS_PAGE_SIZE;
}
COOP_PINVOKE_HELPER(int, RhpGetNumThunksPerBlock, ())
{
return min(
OS_PAGE_SIZE / THUNK_SIZE, // Number of thunks that can fit in a page
(OS_PAGE_SIZE - POINTER_SIZE) / (POINTER_SIZE * 2) // Number of pointer pairs, minus the jump stub cell, that can fit in a page
);
}
COOP_PINVOKE_HELPER(int, RhpGetThunkSize, ())
{
return THUNK_SIZE;
}
COOP_PINVOKE_HELPER(void*, RhpGetThunkDataBlockAddress, (void* pThunkStubAddress))
{
return (void*)(((UIntNative)pThunkStubAddress & ~(OS_PAGE_SIZE - 1)) + THUNKS_MAP_SIZE);
}
COOP_PINVOKE_HELPER(void*, RhpGetThunkStubsBlockAddress, (void* pThunkDataAddress))
{
return (void*)(((UIntNative)pThunkDataAddress & ~(OS_PAGE_SIZE - 1)) - THUNKS_MAP_SIZE);
}
COOP_PINVOKE_HELPER(int, RhpGetThunkBlockSize, ())
{
return OS_PAGE_SIZE;
}
EXTERN_C REDHAWK_API void* __cdecl RhAllocateThunksMapping()
{
#ifdef WIN32
void * pNewMapping = PalVirtualAlloc(NULL, THUNKS_MAP_SIZE * 2, MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE);
if (pNewMapping == NULL)
return NULL;
void * pThunksSection = pNewMapping;
void * pDataSection = (UInt8*)pNewMapping + THUNKS_MAP_SIZE;
#else
// Note: On secure linux systems, we can't add execute permissions to a mapped virtual memory if it was not created
// with execute permissions in the first place. This is why we create the virtual section with RX permissions, then
// reduce it to RW for the data section and RX for the stubs section after generating the stubs instructions.
void * pNewMapping = PalVirtualAlloc(NULL, THUNKS_MAP_SIZE * 2, MEM_RESERVE | MEM_COMMIT, PAGE_EXECUTE_READ);
if (pNewMapping == NULL)
return NULL;
void * pThunksSection = pNewMapping;
void * pDataSection = (UInt8*)pNewMapping + THUNKS_MAP_SIZE;
if (!PalVirtualProtect(pDataSection, THUNKS_MAP_SIZE, PAGE_READWRITE) ||
!PalVirtualProtect(pThunksSection, THUNKS_MAP_SIZE, PAGE_EXECUTE_READWRITE))
{
PalVirtualFree(pNewMapping, 0, MEM_RELEASE);
return NULL;
}
#endif
int numBlocksPerMap = RhpGetNumThunkBlocksPerMapping();
int numThunksPerBlock = RhpGetNumThunksPerBlock();
for (int m = 0; m < numBlocksPerMap; m++)
{
UInt8* pDataBlockAddress = (UInt8*)pDataSection + m * OS_PAGE_SIZE;
UInt8* pThunkBlockAddress = (UInt8*)pThunksSection + m * OS_PAGE_SIZE;
for (int i = 0; i < numThunksPerBlock; i++)
{
UInt8* pCurrentThunkAddress = pThunkBlockAddress + THUNK_SIZE * i;
UInt8* pCurrentDataAddress = pDataBlockAddress + i * POINTER_SIZE * 2;
#ifdef _TARGET_AMD64_
// mov r10,<thunk data address>
// jmp [r10 + <delta to get to last qword in data page]
*((UInt16*)pCurrentThunkAddress) = 0xba49;
pCurrentThunkAddress += 2;
*((void **)pCurrentThunkAddress) = (void *)pCurrentDataAddress;
pCurrentThunkAddress += 8;
*((UInt32*)pCurrentThunkAddress) = 0x00a2ff41;
pCurrentThunkAddress += 3;
*((UInt32*)pCurrentThunkAddress) = OS_PAGE_SIZE - POINTER_SIZE - (i * POINTER_SIZE * 2);
pCurrentThunkAddress += 4;
// nops for alignment
*pCurrentThunkAddress++ = 0x90;
*pCurrentThunkAddress++ = 0x90;
*pCurrentThunkAddress++ = 0x90;
#elif _TARGET_X86_
// mov eax,<thunk data address>
// jmp [eax + <delta to get to last dword in data page]
*pCurrentThunkAddress++ = 0xb8;
*((void **)pCurrentThunkAddress) = (void *)pCurrentDataAddress;
pCurrentThunkAddress += 4;
*((UInt16*)pCurrentThunkAddress) = 0xa0ff;
pCurrentThunkAddress += 2;
*((UInt32*)pCurrentThunkAddress) = OS_PAGE_SIZE - POINTER_SIZE - (i * POINTER_SIZE * 2);
pCurrentThunkAddress += 4;
// nops for alignment
*pCurrentThunkAddress++ = 0x90;
#elif _TARGET_ARM_
// mov r12,<thunk data address>
// str r12,[sp,#-4]
// ldr r12,[r12, <delta to get to last dword in data page]
// bx r12
EncodeThumb2Mov32((UInt16*)pCurrentThunkAddress, (UInt32)pCurrentDataAddress, 12);
pCurrentThunkAddress += 8;
*((UInt32*)pCurrentThunkAddress) = 0xcc04f84d;
pCurrentThunkAddress += 4;
*((UInt32*)pCurrentThunkAddress) = 0xc000f8dc | ((OS_PAGE_SIZE - POINTER_SIZE - (i * POINTER_SIZE * 2)) << 16);
pCurrentThunkAddress += 4;
*((UInt16*)pCurrentThunkAddress) = 0x4760;
pCurrentThunkAddress += 2;
// nops for alignment
*((UInt16*)pCurrentThunkAddress) = 0xbf00;
pCurrentThunkAddress += 2;
#elif _TARGET_ARM64_
UNREFERENCED_PARAMETER(pCurrentDataAddress);
UNREFERENCED_PARAMETER(pCurrentThunkAddress);
/* TODO */ ASSERT_UNCONDITIONALLY("NYI");
#else
UNREFERENCED_PARAMETER(pCurrentDataAddress);
UNREFERENCED_PARAMETER(pCurrentThunkAddress);
PORTABILITY_ASSERT("RhAllocateThunksMapping");
#endif
}
}
if (!PalVirtualProtect(pThunksSection, THUNKS_MAP_SIZE, PAGE_EXECUTE_READ))
{
PalVirtualFree(pNewMapping, 0, MEM_RELEASE);
return NULL;
}
return pThunksSection;
}
#endif // FEATURE_RX_THUNKS
|
