|
1 |
|
2 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- |
|
3 * |
|
4 * This Source Code Form is subject to the terms of the Mozilla Public |
|
5 * License, v. 2.0. If a copy of the MPL was not distributed with this |
|
6 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */ |
|
7 |
|
8 |
|
9 #include "xptcprivate.h" |
|
10 #include "xptiprivate.h" |
|
11 |
|
12 #include <stddef.h> |
|
13 #include <stdlib.h> |
|
14 |
|
15 // "This code is for IA64 only" |
|
16 |
|
17 /* Implement shared vtbl methods. */ |
|
18 |
|
19 extern "C" nsresult ATTRIBUTE_USED |
|
20 PrepareAndDispatch(nsXPTCStubBase* self, uint32_t methodIndex, |
|
21 uint64_t* intargs, uint64_t* floatargs, uint64_t* restargs) |
|
22 { |
|
23 |
|
24 #define PARAM_BUFFER_COUNT 16 |
|
25 |
|
26 nsXPTCMiniVariant paramBuffer[PARAM_BUFFER_COUNT]; |
|
27 nsXPTCMiniVariant* dispatchParams = nullptr; |
|
28 const nsXPTMethodInfo* info; |
|
29 nsresult result = NS_ERROR_FAILURE; |
|
30 uint64_t* iargs = intargs; |
|
31 uint64_t* fargs = floatargs; |
|
32 uint8_t paramCount; |
|
33 uint8_t i; |
|
34 |
|
35 NS_ASSERTION(self,"no self"); |
|
36 |
|
37 self->mEntry->GetMethodInfo(uint16_t(methodIndex), &info); |
|
38 NS_ASSERTION(info,"no interface info"); |
|
39 |
|
40 paramCount = info->GetParamCount(); |
|
41 |
|
42 // setup variant array pointer |
|
43 if(paramCount > PARAM_BUFFER_COUNT) |
|
44 dispatchParams = new nsXPTCMiniVariant[paramCount]; |
|
45 else |
|
46 dispatchParams = paramBuffer; |
|
47 NS_ASSERTION(dispatchParams,"no place for params"); |
|
48 if (! dispatchParams) |
|
49 return NS_ERROR_OUT_OF_MEMORY; |
|
50 |
|
51 for(i = 0; i < paramCount; ++i) |
|
52 { |
|
53 int isfloat = 0; |
|
54 const nsXPTParamInfo& param = info->GetParam(i); |
|
55 const nsXPTType& type = param.GetType(); |
|
56 nsXPTCMiniVariant* dp = &dispatchParams[i]; |
|
57 |
|
58 if(param.IsOut() || !type.IsArithmetic()) |
|
59 { |
|
60 #ifdef __LP64__ |
|
61 /* 64 bit pointer mode */ |
|
62 dp->val.p = (void*) *iargs; |
|
63 #else |
|
64 /* 32 bit pointer mode */ |
|
65 uint32_t* adr = (uint32_t*) iargs; |
|
66 dp->val.p = (void*) (*(adr+1)); |
|
67 #endif |
|
68 } |
|
69 else |
|
70 switch(type) |
|
71 { |
|
72 case nsXPTType::T_I8 : dp->val.i8 = *(iargs); break; |
|
73 case nsXPTType::T_I16 : dp->val.i16 = *(iargs); break; |
|
74 case nsXPTType::T_I32 : dp->val.i32 = *(iargs); break; |
|
75 case nsXPTType::T_I64 : dp->val.i64 = *(iargs); break; |
|
76 case nsXPTType::T_U8 : dp->val.u8 = *(iargs); break; |
|
77 case nsXPTType::T_U16 : dp->val.u16 = *(iargs); break; |
|
78 case nsXPTType::T_U32 : dp->val.u32 = *(iargs); break; |
|
79 case nsXPTType::T_U64 : dp->val.u64 = *(iargs); break; |
|
80 case nsXPTType::T_FLOAT : |
|
81 isfloat = 1; |
|
82 if (i < 7) |
|
83 dp->val.f = (float) *((double*) fargs); /* register */ |
|
84 else |
|
85 dp->val.u32 = *(fargs); /* memory */ |
|
86 break; |
|
87 case nsXPTType::T_DOUBLE : |
|
88 isfloat = 1; |
|
89 dp->val.u64 = *(fargs); |
|
90 break; |
|
91 case nsXPTType::T_BOOL : dp->val.b = *(iargs); break; |
|
92 case nsXPTType::T_CHAR : dp->val.c = *(iargs); break; |
|
93 case nsXPTType::T_WCHAR : dp->val.wc = *(iargs); break; |
|
94 default: |
|
95 NS_ERROR("bad type"); |
|
96 break; |
|
97 } |
|
98 if (i < 7) |
|
99 { |
|
100 /* we are parsing register arguments */ |
|
101 if (i == 6) |
|
102 { |
|
103 // run out of register arguments, move on to memory arguments |
|
104 iargs = restargs; |
|
105 fargs = restargs; |
|
106 } |
|
107 else |
|
108 { |
|
109 ++iargs; // advance one integer register slot |
|
110 if (isfloat) ++fargs; // advance float register slot if isfloat |
|
111 } |
|
112 } |
|
113 else |
|
114 { |
|
115 /* we are parsing memory arguments */ |
|
116 ++iargs; |
|
117 ++fargs; |
|
118 } |
|
119 } |
|
120 |
|
121 result = self->mOuter->CallMethod((uint16_t) methodIndex, info, dispatchParams); |
|
122 |
|
123 if(dispatchParams != paramBuffer) |
|
124 delete [] dispatchParams; |
|
125 |
|
126 return result; |
|
127 } |
|
128 |
|
129 extern "C" nsresult SharedStub(uint64_t,uint64_t,uint64_t,uint64_t, |
|
130 uint64_t,uint64_t,uint64_t,uint64_t,uint64_t,uint64_t *); |
|
131 |
|
132 /* Variable a0-a7 were put there so we can have access to the 8 input |
|
133 registers on Stubxyz entry */ |
|
134 |
|
135 #define STUB_ENTRY(n) \ |
|
136 nsresult nsXPTCStubBase::Stub##n(uint64_t a1, \ |
|
137 uint64_t a2,uint64_t a3,uint64_t a4,uint64_t a5,uint64_t a6,uint64_t a7, \ |
|
138 uint64_t a8) \ |
|
139 { uint64_t a0 = (uint64_t) this; \ |
|
140 return SharedStub(a0,a1,a2,a3,a4,a5,a6,a7,(uint64_t) n, &a8); \ |
|
141 } |
|
142 |
|
143 #define SENTINEL_ENTRY(n) \ |
|
144 nsresult nsXPTCStubBase::Sentinel##n() \ |
|
145 { \ |
|
146 NS_ERROR("nsXPTCStubBase::Sentinel called"); \ |
|
147 return NS_ERROR_NOT_IMPLEMENTED; \ |
|
148 } |
|
149 |
|
150 #include "xptcstubsdef.inc" |
|
151 |