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
|
// 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 "asmconstants.h"
#include "unixasmmacros.inc"
// ------------------------------------------------------------------
// Macro to generate PInvoke Stubs.
// $__PInvokeStubFuncName : function which calls the actual stub obtained from VASigCookie
// $__PInvokeGenStubFuncName : function which generates the IL stubs for PInvoke
//
// Params :-
// $FuncPrefix : prefix of the function name for the stub
// Eg. VarargPinvoke, GenericPInvokeCalli
// $VASigCookieReg : register which contains the VASigCookie
// $SaveFPArgs : "Yes" or "No" . For varidic functions FP Args are not present in FP regs
// So need not save FP Args registers for vararg Pinvoke
.macro PINVOKE_STUB FuncPrefix,VASigCookieReg,HiddenArg,SaveFPArgs
#if NOTYET
GBLS __PInvokeStubFuncName
GBLS __PInvokeGenStubFuncName
GBLS __PInvokeStubWorkerName
IF "\FuncPrefix" == "GenericPInvokeCalli"
__PInvokeStubFuncName SETS "\FuncPrefix":CC:"Helper"
ELSE
__PInvokeStubFuncName SETS "\FuncPrefix":CC:"Stub"
ENDIF
__PInvokeGenStubFuncName SETS "\FuncPrefix":CC:"GenILStub"
__PInvokeStubWorkerName SETS "\FuncPrefix":CC:"StubWorker"
IF "\VASigCookieReg" == "x1"
__PInvokeStubFuncName SETS "\__PInvokeStubFuncName":CC:"_RetBuffArg"
__PInvokeGenStubFuncName SETS "\__PInvokeGenStubFuncName":CC:"_RetBuffArg"
ENDIF
NESTED_ENTRY \__PInvokeStubFuncName
// get the stub
ldr x9, [\VASigCookieReg, #VASigCookie__pNDirectILStub]
// if null goto stub generation
cbz x9, %0
EPILOG_BRANCH_REG x9
0
EPILOG_BRANCH \__PInvokeGenStubFuncName
NESTED_END
NESTED_ENTRY \__PInvokeGenStubFuncName
PROLOG_WITH_TRANSITION_BLOCK 0, \SaveFPArgs
// x2 = Umanaged Target\MethodDesc
mov x2, \HiddenArg
// x1 = VaSigCookie
IF "\VASigCookieReg" != "x1"
mov x1, \VASigCookieReg
ENDIF
// x0 = pTransitionBlock
add x0, sp, #__PWTB_TransitionBlock
// save hidden arg
mov x19, \HiddenArg
bl \__PInvokeStubWorkerName
// restore hidden arg (method desc or unmanaged target)
mov \HiddenArg , x19
EPILOG_WITH_TRANSITION_BLOCK_TAILCALL
EPILOG_BRANCH \__PInvokeStubFuncName
NESTED_END
#else
EMIT_BREAKPOINT
#endif
.endm
// ------------------------------------------------------------------
// VarargPInvokeStub & VarargPInvokeGenILStub
// There is a separate stub when the method has a hidden return buffer arg.
//
// in:
// x0 = VASigCookie*
// x12 = MethodDesc *
//
PINVOKE_STUB VarargPInvoke, x0, x12, 1
// ------------------------------------------------------------------
// GenericPInvokeCalliHelper & GenericPInvokeCalliGenILStub
// Helper for generic pinvoke calli instruction
//
// in:
// x15 = VASigCookie*
// x14 = Unmanaged target
//
PINVOKE_STUB GenericPInvokeCalli, x15, x14, 1
// ------------------------------------------------------------------
// VarargPInvokeStub_RetBuffArg & VarargPInvokeGenILStub_RetBuffArg
// Vararg PInvoke Stub when the method has a hidden return buffer arg
//
// in:
// x1 = VASigCookie*
// x12 = MethodDesc*
//
PINVOKE_STUB VarargPInvoke, x1, x12, 0
|
