1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski #include <malloc.h>
25*b1cdbd2cSJim Jagielski #include <hash_map>
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include <rtl/alloc.h>
28*b1cdbd2cSJim Jagielski #include <osl/mutex.hxx>
29*b1cdbd2cSJim Jagielski
30*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/genfunc.hxx>
31*b1cdbd2cSJim Jagielski #include "com/sun/star/uno/RuntimeException.hpp"
32*b1cdbd2cSJim Jagielski #include <uno/data.h>
33*b1cdbd2cSJim Jagielski #include <typelib/typedescription.hxx>
34*b1cdbd2cSJim Jagielski
35*b1cdbd2cSJim Jagielski #include "bridges/cpp_uno/shared/bridge.hxx"
36*b1cdbd2cSJim Jagielski #include "bridges/cpp_uno/shared/cppinterfaceproxy.hxx"
37*b1cdbd2cSJim Jagielski #include "bridges/cpp_uno/shared/types.hxx"
38*b1cdbd2cSJim Jagielski #include "bridges/cpp_uno/shared/vtablefactory.hxx"
39*b1cdbd2cSJim Jagielski
40*b1cdbd2cSJim Jagielski #include "share.hxx"
41*b1cdbd2cSJim Jagielski
42*b1cdbd2cSJim Jagielski #include <dlfcn.h>
43*b1cdbd2cSJim Jagielski
44*b1cdbd2cSJim Jagielski
45*b1cdbd2cSJim Jagielski using namespace ::osl;
46*b1cdbd2cSJim Jagielski using namespace ::rtl;
47*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::uno;
48*b1cdbd2cSJim Jagielski
49*b1cdbd2cSJim Jagielski namespace
50*b1cdbd2cSJim Jagielski {
51*b1cdbd2cSJim Jagielski
cpp2uno_call(bridges::cpp_uno::shared::CppInterfaceProxy * pThis,const typelib_TypeDescription * pMemberTypeDescr,typelib_TypeDescriptionReference * pReturnTypeRef,sal_Int32 nParams,typelib_MethodParameter * pParams,long r8,void ** pCallStack,sal_Int64 * pRegisterReturn)52*b1cdbd2cSJim Jagielski static typelib_TypeClass cpp2uno_call(
53*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::CppInterfaceProxy* pThis,
54*b1cdbd2cSJim Jagielski const typelib_TypeDescription * pMemberTypeDescr,
55*b1cdbd2cSJim Jagielski typelib_TypeDescriptionReference * pReturnTypeRef,
56*b1cdbd2cSJim Jagielski sal_Int32 nParams, typelib_MethodParameter * pParams,
57*b1cdbd2cSJim Jagielski long r8, void ** pCallStack,
58*b1cdbd2cSJim Jagielski sal_Int64 * pRegisterReturn /* space for register return */ )
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski // pCallStack: ret, [return ptr], this, params
61*b1cdbd2cSJim Jagielski char * pTopStack = (char *)(pCallStack + 0);
62*b1cdbd2cSJim Jagielski char * pCppStack = pTopStack;
63*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
64*b1cdbd2cSJim Jagielski fprintf(stderr, "cpp2uno_call\n");
65*b1cdbd2cSJim Jagielski #endif
66*b1cdbd2cSJim Jagielski // return
67*b1cdbd2cSJim Jagielski typelib_TypeDescription * pReturnTypeDescr = 0;
68*b1cdbd2cSJim Jagielski if (pReturnTypeRef)
69*b1cdbd2cSJim Jagielski TYPELIB_DANGER_GET( &pReturnTypeDescr, pReturnTypeRef );
70*b1cdbd2cSJim Jagielski
71*b1cdbd2cSJim Jagielski void * pUnoReturn = 0;
72*b1cdbd2cSJim Jagielski // complex return ptr: if != 0 && != pUnoReturn, reconversion need
73*b1cdbd2cSJim Jagielski void * pCppReturn = 0;
74*b1cdbd2cSJim Jagielski
75*b1cdbd2cSJim Jagielski if (pReturnTypeDescr)
76*b1cdbd2cSJim Jagielski {
77*b1cdbd2cSJim Jagielski if (bridges::cpp_uno::shared::isSimpleType( pReturnTypeDescr ))
78*b1cdbd2cSJim Jagielski {
79*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
80*b1cdbd2cSJim Jagielski fprintf(stderr, "simple return\n");
81*b1cdbd2cSJim Jagielski #endif
82*b1cdbd2cSJim Jagielski pUnoReturn = pRegisterReturn; // direct way for simple types
83*b1cdbd2cSJim Jagielski }
84*b1cdbd2cSJim Jagielski else // complex return via ptr (pCppReturn)
85*b1cdbd2cSJim Jagielski {
86*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
87*b1cdbd2cSJim Jagielski fprintf(stderr, "complex return\n");
88*b1cdbd2cSJim Jagielski #endif
89*b1cdbd2cSJim Jagielski pCppReturn = (void *)r8;
90*b1cdbd2cSJim Jagielski
91*b1cdbd2cSJim Jagielski pUnoReturn = (bridges::cpp_uno::shared::relatesToInterfaceType( pReturnTypeDescr )
92*b1cdbd2cSJim Jagielski ? alloca( pReturnTypeDescr->nSize )
93*b1cdbd2cSJim Jagielski : pCppReturn); // direct way
94*b1cdbd2cSJim Jagielski }
95*b1cdbd2cSJim Jagielski }
96*b1cdbd2cSJim Jagielski // pop this
97*b1cdbd2cSJim Jagielski pCppStack += sizeof( void* );
98*b1cdbd2cSJim Jagielski
99*b1cdbd2cSJim Jagielski // stack space
100*b1cdbd2cSJim Jagielski OSL_ENSURE( sizeof(void *) == sizeof(sal_Int32),
101*b1cdbd2cSJim Jagielski "### unexpected size!" );
102*b1cdbd2cSJim Jagielski // parameters
103*b1cdbd2cSJim Jagielski void ** pUnoArgs = (void **)alloca( 4 * sizeof(void *) * nParams );
104*b1cdbd2cSJim Jagielski void ** pCppArgs = pUnoArgs + nParams;
105*b1cdbd2cSJim Jagielski // indizes of values this have to be converted (interface conversion
106*b1cdbd2cSJim Jagielski // cpp<=>uno)
107*b1cdbd2cSJim Jagielski sal_Int32 * pTempIndizes = (sal_Int32 *)(pUnoArgs + (2 * nParams));
108*b1cdbd2cSJim Jagielski // type descriptions for reconversions
109*b1cdbd2cSJim Jagielski typelib_TypeDescription ** ppTempParamTypeDescr =
110*b1cdbd2cSJim Jagielski (typelib_TypeDescription **)(pUnoArgs + (3 * nParams));
111*b1cdbd2cSJim Jagielski
112*b1cdbd2cSJim Jagielski sal_Int32 nTempIndizes = 0;
113*b1cdbd2cSJim Jagielski
114*b1cdbd2cSJim Jagielski for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
115*b1cdbd2cSJim Jagielski {
116*b1cdbd2cSJim Jagielski const typelib_MethodParameter & rParam = pParams[nPos];
117*b1cdbd2cSJim Jagielski typelib_TypeDescription * pParamTypeDescr = 0;
118*b1cdbd2cSJim Jagielski TYPELIB_DANGER_GET( &pParamTypeDescr, rParam.pTypeRef );
119*b1cdbd2cSJim Jagielski
120*b1cdbd2cSJim Jagielski if (!rParam.bOut &&
121*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::isSimpleType( pParamTypeDescr ))
122*b1cdbd2cSJim Jagielski {
123*b1cdbd2cSJim Jagielski switch (pParamTypeDescr->eTypeClass)
124*b1cdbd2cSJim Jagielski {
125*b1cdbd2cSJim Jagielski case typelib_TypeClass_BYTE:
126*b1cdbd2cSJim Jagielski case typelib_TypeClass_BOOLEAN:
127*b1cdbd2cSJim Jagielski pCppArgs[nPos] = pCppStack + 3;
128*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = pCppStack + 3;
129*b1cdbd2cSJim Jagielski break;
130*b1cdbd2cSJim Jagielski case typelib_TypeClass_CHAR:
131*b1cdbd2cSJim Jagielski case typelib_TypeClass_SHORT:
132*b1cdbd2cSJim Jagielski case typelib_TypeClass_UNSIGNED_SHORT:
133*b1cdbd2cSJim Jagielski pCppArgs[nPos] = pCppStack + 2;
134*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = pCppStack + 2;
135*b1cdbd2cSJim Jagielski break;
136*b1cdbd2cSJim Jagielski case typelib_TypeClass_HYPER:
137*b1cdbd2cSJim Jagielski case typelib_TypeClass_UNSIGNED_HYPER:
138*b1cdbd2cSJim Jagielski case typelib_TypeClass_DOUBLE:
139*b1cdbd2cSJim Jagielski pCppArgs[nPos] = pCppStack;
140*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = pCppStack;
141*b1cdbd2cSJim Jagielski pCppStack += sizeof(sal_Int32); // extra long
142*b1cdbd2cSJim Jagielski break;
143*b1cdbd2cSJim Jagielski default:
144*b1cdbd2cSJim Jagielski pCppArgs[nPos] = pCppStack;
145*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = pCppStack;
146*b1cdbd2cSJim Jagielski break;
147*b1cdbd2cSJim Jagielski }
148*b1cdbd2cSJim Jagielski // no longer needed
149*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pParamTypeDescr );
150*b1cdbd2cSJim Jagielski }
151*b1cdbd2cSJim Jagielski else // ptr to complex value | ref
152*b1cdbd2cSJim Jagielski {
153*b1cdbd2cSJim Jagielski pCppArgs[nPos] = *(void **)pCppStack;
154*b1cdbd2cSJim Jagielski
155*b1cdbd2cSJim Jagielski if (! rParam.bIn) // is pure out
156*b1cdbd2cSJim Jagielski {
157*b1cdbd2cSJim Jagielski // uno out is unconstructed mem!
158*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = alloca( pParamTypeDescr->nSize );
159*b1cdbd2cSJim Jagielski pTempIndizes[nTempIndizes] = nPos;
160*b1cdbd2cSJim Jagielski // will be released at reconversion
161*b1cdbd2cSJim Jagielski ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
162*b1cdbd2cSJim Jagielski }
163*b1cdbd2cSJim Jagielski // is in/inout
164*b1cdbd2cSJim Jagielski else if (bridges::cpp_uno::shared::relatesToInterfaceType(
165*b1cdbd2cSJim Jagielski pParamTypeDescr ))
166*b1cdbd2cSJim Jagielski {
167*b1cdbd2cSJim Jagielski uno_copyAndConvertData( pUnoArgs[nPos] = alloca( pParamTypeDescr->nSize ),
168*b1cdbd2cSJim Jagielski *(void **)pCppStack, pParamTypeDescr,
169*b1cdbd2cSJim Jagielski pThis->getBridge()->getCpp2Uno() );
170*b1cdbd2cSJim Jagielski pTempIndizes[nTempIndizes] = nPos; // has to be reconverted
171*b1cdbd2cSJim Jagielski // will be released at reconversion
172*b1cdbd2cSJim Jagielski ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
173*b1cdbd2cSJim Jagielski }
174*b1cdbd2cSJim Jagielski else // direct way
175*b1cdbd2cSJim Jagielski {
176*b1cdbd2cSJim Jagielski pUnoArgs[nPos] = *(void **)pCppStack;
177*b1cdbd2cSJim Jagielski // no longer needed
178*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pParamTypeDescr );
179*b1cdbd2cSJim Jagielski }
180*b1cdbd2cSJim Jagielski }
181*b1cdbd2cSJim Jagielski pCppStack += sizeof(sal_Int32); // standard parameter length
182*b1cdbd2cSJim Jagielski }
183*b1cdbd2cSJim Jagielski
184*b1cdbd2cSJim Jagielski // ExceptionHolder
185*b1cdbd2cSJim Jagielski uno_Any aUnoExc; // Any will be constructed by callee
186*b1cdbd2cSJim Jagielski uno_Any * pUnoExc = &aUnoExc;
187*b1cdbd2cSJim Jagielski
188*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
189*b1cdbd2cSJim Jagielski fprintf(stderr, "before dispatch\n");
190*b1cdbd2cSJim Jagielski #endif
191*b1cdbd2cSJim Jagielski // invoke uno dispatch call
192*b1cdbd2cSJim Jagielski (*pThis->getUnoI()->pDispatcher)(
193*b1cdbd2cSJim Jagielski pThis->getUnoI(), pMemberTypeDescr, pUnoReturn, pUnoArgs, &pUnoExc );
194*b1cdbd2cSJim Jagielski
195*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
196*b1cdbd2cSJim Jagielski fprintf(stderr, "after dispatch\n");
197*b1cdbd2cSJim Jagielski #endif
198*b1cdbd2cSJim Jagielski
199*b1cdbd2cSJim Jagielski // in case an exception occured...
200*b1cdbd2cSJim Jagielski if (pUnoExc)
201*b1cdbd2cSJim Jagielski {
202*b1cdbd2cSJim Jagielski // destruct temporary in/inout params
203*b1cdbd2cSJim Jagielski for ( ; nTempIndizes--; )
204*b1cdbd2cSJim Jagielski {
205*b1cdbd2cSJim Jagielski sal_Int32 nIndex = pTempIndizes[nTempIndizes];
206*b1cdbd2cSJim Jagielski
207*b1cdbd2cSJim Jagielski if (pParams[nIndex].bIn) // is in/inout => was constructed
208*b1cdbd2cSJim Jagielski uno_destructData( pUnoArgs[nIndex],
209*b1cdbd2cSJim Jagielski ppTempParamTypeDescr[nTempIndizes], 0 );
210*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( ppTempParamTypeDescr[nTempIndizes] );
211*b1cdbd2cSJim Jagielski }
212*b1cdbd2cSJim Jagielski if (pReturnTypeDescr)
213*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pReturnTypeDescr );
214*b1cdbd2cSJim Jagielski
215*b1cdbd2cSJim Jagielski CPPU_CURRENT_NAMESPACE::raiseException( &aUnoExc,
216*b1cdbd2cSJim Jagielski pThis->getBridge()->getUno2Cpp() ); // has to destruct the any
217*b1cdbd2cSJim Jagielski // is here for dummy
218*b1cdbd2cSJim Jagielski return typelib_TypeClass_VOID;
219*b1cdbd2cSJim Jagielski }
220*b1cdbd2cSJim Jagielski else // else no exception occured...
221*b1cdbd2cSJim Jagielski {
222*b1cdbd2cSJim Jagielski // temporary params
223*b1cdbd2cSJim Jagielski for ( ; nTempIndizes--; )
224*b1cdbd2cSJim Jagielski {
225*b1cdbd2cSJim Jagielski sal_Int32 nIndex = pTempIndizes[nTempIndizes];
226*b1cdbd2cSJim Jagielski typelib_TypeDescription * pParamTypeDescr =
227*b1cdbd2cSJim Jagielski ppTempParamTypeDescr[nTempIndizes];
228*b1cdbd2cSJim Jagielski
229*b1cdbd2cSJim Jagielski if (pParams[nIndex].bOut) // inout/out
230*b1cdbd2cSJim Jagielski {
231*b1cdbd2cSJim Jagielski // convert and assign
232*b1cdbd2cSJim Jagielski uno_destructData( pCppArgs[nIndex], pParamTypeDescr,
233*b1cdbd2cSJim Jagielski cpp_release );
234*b1cdbd2cSJim Jagielski uno_copyAndConvertData( pCppArgs[nIndex], pUnoArgs[nIndex],
235*b1cdbd2cSJim Jagielski pParamTypeDescr, pThis->getBridge()->getUno2Cpp() );
236*b1cdbd2cSJim Jagielski }
237*b1cdbd2cSJim Jagielski // destroy temp uno param
238*b1cdbd2cSJim Jagielski uno_destructData( pUnoArgs[nIndex], pParamTypeDescr, 0 );
239*b1cdbd2cSJim Jagielski
240*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pParamTypeDescr );
241*b1cdbd2cSJim Jagielski }
242*b1cdbd2cSJim Jagielski // return
243*b1cdbd2cSJim Jagielski if (pCppReturn) // has complex return
244*b1cdbd2cSJim Jagielski {
245*b1cdbd2cSJim Jagielski if (pUnoReturn != pCppReturn) // needs reconversion
246*b1cdbd2cSJim Jagielski {
247*b1cdbd2cSJim Jagielski uno_copyAndConvertData( pCppReturn, pUnoReturn,
248*b1cdbd2cSJim Jagielski pReturnTypeDescr, pThis->getBridge()->getUno2Cpp() );
249*b1cdbd2cSJim Jagielski // destroy temp uno return
250*b1cdbd2cSJim Jagielski uno_destructData( pUnoReturn, pReturnTypeDescr, 0 );
251*b1cdbd2cSJim Jagielski }
252*b1cdbd2cSJim Jagielski // complex return ptr is set to return reg
253*b1cdbd2cSJim Jagielski *(void **)pRegisterReturn = pCppReturn;
254*b1cdbd2cSJim Jagielski }
255*b1cdbd2cSJim Jagielski if (pReturnTypeDescr)
256*b1cdbd2cSJim Jagielski {
257*b1cdbd2cSJim Jagielski typelib_TypeClass eRet =
258*b1cdbd2cSJim Jagielski (typelib_TypeClass)pReturnTypeDescr->eTypeClass;
259*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pReturnTypeDescr );
260*b1cdbd2cSJim Jagielski return eRet;
261*b1cdbd2cSJim Jagielski }
262*b1cdbd2cSJim Jagielski else
263*b1cdbd2cSJim Jagielski return typelib_TypeClass_VOID;
264*b1cdbd2cSJim Jagielski }
265*b1cdbd2cSJim Jagielski }
266*b1cdbd2cSJim Jagielski
267*b1cdbd2cSJim Jagielski
268*b1cdbd2cSJim Jagielski //=====================================================================
cpp_mediate(sal_Int32 nFunctionIndex,sal_Int32 nVtableOffset,long sp,long r8,sal_Int64 * pRegisterReturn)269*b1cdbd2cSJim Jagielski static typelib_TypeClass cpp_mediate(
270*b1cdbd2cSJim Jagielski sal_Int32 nFunctionIndex, sal_Int32 nVtableOffset,
271*b1cdbd2cSJim Jagielski long sp, long r8,
272*b1cdbd2cSJim Jagielski sal_Int64 * pRegisterReturn /* space for register return */ )
273*b1cdbd2cSJim Jagielski {
274*b1cdbd2cSJim Jagielski void ** pCallStack = (void**)(sp);
275*b1cdbd2cSJim Jagielski #ifdef CMC_DEBUG
276*b1cdbd2cSJim Jagielski fprintf(stderr, "cpp_mediate with\n");
277*b1cdbd2cSJim Jagielski fprintf(stderr, "%x %x\n", nFunctionIndex, nVtableOffset);
278*b1cdbd2cSJim Jagielski fprintf(stderr, "and %x %x\n", pCallStack, pRegisterReturn);
279*b1cdbd2cSJim Jagielski fprintf(stderr, "and %x %x\n", pCallStack[0], pCallStack[1]);
280*b1cdbd2cSJim Jagielski #endif
281*b1cdbd2cSJim Jagielski OSL_ENSURE( sizeof(sal_Int32)==sizeof(void *), "### unexpected!" );
282*b1cdbd2cSJim Jagielski
283*b1cdbd2cSJim Jagielski void *pThis = pCallStack[0];
284*b1cdbd2cSJim Jagielski
285*b1cdbd2cSJim Jagielski pThis = static_cast< char * >(pThis) - nVtableOffset;
286*b1cdbd2cSJim Jagielski
287*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::CppInterfaceProxy * pCppI =
288*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::CppInterfaceProxy::castInterfaceToProxy(
289*b1cdbd2cSJim Jagielski pThis);
290*b1cdbd2cSJim Jagielski
291*b1cdbd2cSJim Jagielski typelib_InterfaceTypeDescription * pTypeDescr = pCppI->getTypeDescr();
292*b1cdbd2cSJim Jagielski
293*b1cdbd2cSJim Jagielski OSL_ENSURE( nFunctionIndex < pTypeDescr->nMapFunctionIndexToMemberIndex,
294*b1cdbd2cSJim Jagielski "### illegal vtable index!" );
295*b1cdbd2cSJim Jagielski if (nFunctionIndex >= pTypeDescr->nMapFunctionIndexToMemberIndex)
296*b1cdbd2cSJim Jagielski {
297*b1cdbd2cSJim Jagielski throw RuntimeException(
298*b1cdbd2cSJim Jagielski OUString::createFromAscii("illegal vtable index!"),
299*b1cdbd2cSJim Jagielski (XInterface *)pCppI );
300*b1cdbd2cSJim Jagielski }
301*b1cdbd2cSJim Jagielski
302*b1cdbd2cSJim Jagielski // determine called method
303*b1cdbd2cSJim Jagielski OSL_ENSURE( nFunctionIndex < pTypeDescr->nMapFunctionIndexToMemberIndex,
304*b1cdbd2cSJim Jagielski "### illegal vtable index!" );
305*b1cdbd2cSJim Jagielski sal_Int32 nMemberPos =
306*b1cdbd2cSJim Jagielski pTypeDescr->pMapFunctionIndexToMemberIndex[nFunctionIndex];
307*b1cdbd2cSJim Jagielski OSL_ENSURE( nMemberPos < pTypeDescr->nAllMembers,
308*b1cdbd2cSJim Jagielski "### illegal member index!" );
309*b1cdbd2cSJim Jagielski
310*b1cdbd2cSJim Jagielski TypeDescription aMemberDescr( pTypeDescr->ppAllMembers[nMemberPos] );
311*b1cdbd2cSJim Jagielski
312*b1cdbd2cSJim Jagielski typelib_TypeClass eRet;
313*b1cdbd2cSJim Jagielski switch (aMemberDescr.get()->eTypeClass)
314*b1cdbd2cSJim Jagielski {
315*b1cdbd2cSJim Jagielski case typelib_TypeClass_INTERFACE_ATTRIBUTE:
316*b1cdbd2cSJim Jagielski {
317*b1cdbd2cSJim Jagielski if (pTypeDescr->pMapMemberIndexToFunctionIndex[nMemberPos] ==
318*b1cdbd2cSJim Jagielski nFunctionIndex)
319*b1cdbd2cSJim Jagielski {
320*b1cdbd2cSJim Jagielski // is GET method
321*b1cdbd2cSJim Jagielski eRet = cpp2uno_call(
322*b1cdbd2cSJim Jagielski pCppI, aMemberDescr.get(),
323*b1cdbd2cSJim Jagielski ((typelib_InterfaceAttributeTypeDescription *)aMemberDescr.get())->pAttributeTypeRef,
324*b1cdbd2cSJim Jagielski 0, 0, // no params
325*b1cdbd2cSJim Jagielski r8, pCallStack, pRegisterReturn );
326*b1cdbd2cSJim Jagielski }
327*b1cdbd2cSJim Jagielski else
328*b1cdbd2cSJim Jagielski {
329*b1cdbd2cSJim Jagielski // is SET method
330*b1cdbd2cSJim Jagielski typelib_MethodParameter aParam;
331*b1cdbd2cSJim Jagielski aParam.pTypeRef =
332*b1cdbd2cSJim Jagielski ((typelib_InterfaceAttributeTypeDescription *)aMemberDescr.get())->pAttributeTypeRef;
333*b1cdbd2cSJim Jagielski aParam.bIn = sal_True;
334*b1cdbd2cSJim Jagielski aParam.bOut = sal_False;
335*b1cdbd2cSJim Jagielski
336*b1cdbd2cSJim Jagielski eRet = cpp2uno_call(
337*b1cdbd2cSJim Jagielski pCppI, aMemberDescr.get(),
338*b1cdbd2cSJim Jagielski 0, // indicates void return
339*b1cdbd2cSJim Jagielski 1, &aParam,
340*b1cdbd2cSJim Jagielski r8, pCallStack, pRegisterReturn );
341*b1cdbd2cSJim Jagielski }
342*b1cdbd2cSJim Jagielski break;
343*b1cdbd2cSJim Jagielski }
344*b1cdbd2cSJim Jagielski case typelib_TypeClass_INTERFACE_METHOD:
345*b1cdbd2cSJim Jagielski {
346*b1cdbd2cSJim Jagielski // is METHOD
347*b1cdbd2cSJim Jagielski switch (nFunctionIndex)
348*b1cdbd2cSJim Jagielski {
349*b1cdbd2cSJim Jagielski case 1: // acquire()
350*b1cdbd2cSJim Jagielski pCppI->acquireProxy(); // non virtual call!
351*b1cdbd2cSJim Jagielski eRet = typelib_TypeClass_VOID;
352*b1cdbd2cSJim Jagielski break;
353*b1cdbd2cSJim Jagielski case 2: // release()
354*b1cdbd2cSJim Jagielski pCppI->releaseProxy(); // non virtual call!
355*b1cdbd2cSJim Jagielski eRet = typelib_TypeClass_VOID;
356*b1cdbd2cSJim Jagielski break;
357*b1cdbd2cSJim Jagielski case 0: // queryInterface() opt
358*b1cdbd2cSJim Jagielski {
359*b1cdbd2cSJim Jagielski typelib_TypeDescription * pTD = 0;
360*b1cdbd2cSJim Jagielski TYPELIB_DANGER_GET(&pTD,
361*b1cdbd2cSJim Jagielski reinterpret_cast<Type *>(pCallStack[1])->getTypeLibType());
362*b1cdbd2cSJim Jagielski if (pTD)
363*b1cdbd2cSJim Jagielski {
364*b1cdbd2cSJim Jagielski XInterface * pInterface = 0;
365*b1cdbd2cSJim Jagielski (*pCppI->getBridge()->getCppEnv()->getRegisteredInterface)(
366*b1cdbd2cSJim Jagielski pCppI->getBridge()->getCppEnv(),
367*b1cdbd2cSJim Jagielski (void **)&pInterface, pCppI->getOid().pData,
368*b1cdbd2cSJim Jagielski (typelib_InterfaceTypeDescription *)pTD );
369*b1cdbd2cSJim Jagielski
370*b1cdbd2cSJim Jagielski if (pInterface)
371*b1cdbd2cSJim Jagielski {
372*b1cdbd2cSJim Jagielski ::uno_any_construct(
373*b1cdbd2cSJim Jagielski reinterpret_cast< uno_Any * >( r8 ),
374*b1cdbd2cSJim Jagielski &pInterface, pTD, cpp_acquire );
375*b1cdbd2cSJim Jagielski pInterface->release();
376*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pTD );
377*b1cdbd2cSJim Jagielski *(void **)pRegisterReturn = (void*)r8;
378*b1cdbd2cSJim Jagielski eRet = typelib_TypeClass_ANY;
379*b1cdbd2cSJim Jagielski break;
380*b1cdbd2cSJim Jagielski }
381*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE( pTD );
382*b1cdbd2cSJim Jagielski }
383*b1cdbd2cSJim Jagielski } // else perform queryInterface()
384*b1cdbd2cSJim Jagielski default:
385*b1cdbd2cSJim Jagielski eRet = cpp2uno_call(
386*b1cdbd2cSJim Jagielski pCppI, aMemberDescr.get(),
387*b1cdbd2cSJim Jagielski ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->pReturnTypeRef,
388*b1cdbd2cSJim Jagielski ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->nParams,
389*b1cdbd2cSJim Jagielski ((typelib_InterfaceMethodTypeDescription *)aMemberDescr.get())->pParams,
390*b1cdbd2cSJim Jagielski r8, pCallStack, pRegisterReturn );
391*b1cdbd2cSJim Jagielski }
392*b1cdbd2cSJim Jagielski break;
393*b1cdbd2cSJim Jagielski }
394*b1cdbd2cSJim Jagielski default:
395*b1cdbd2cSJim Jagielski {
396*b1cdbd2cSJim Jagielski throw RuntimeException(
397*b1cdbd2cSJim Jagielski OUString::createFromAscii("no member description found!"),
398*b1cdbd2cSJim Jagielski (XInterface *)pCppI );
399*b1cdbd2cSJim Jagielski // is here for dummy
400*b1cdbd2cSJim Jagielski eRet = typelib_TypeClass_VOID;
401*b1cdbd2cSJim Jagielski }
402*b1cdbd2cSJim Jagielski }
403*b1cdbd2cSJim Jagielski
404*b1cdbd2cSJim Jagielski return eRet;
405*b1cdbd2cSJim Jagielski }
406*b1cdbd2cSJim Jagielski }
407*b1cdbd2cSJim Jagielski
408*b1cdbd2cSJim Jagielski //=======================================================================
409*b1cdbd2cSJim Jagielski /**
410*b1cdbd2cSJim Jagielski * is called on incoming vtable calls
411*b1cdbd2cSJim Jagielski * (called by asm snippets)
412*b1cdbd2cSJim Jagielski */
413*b1cdbd2cSJim Jagielski
cpp_vtable_call(long firstonstack)414*b1cdbd2cSJim Jagielski extern "C" sal_Int64 cpp_vtable_call( long firstonstack )
415*b1cdbd2cSJim Jagielski {
416*b1cdbd2cSJim Jagielski register long d0 asm("d0");
417*b1cdbd2cSJim Jagielski long functionIndex = d0;
418*b1cdbd2cSJim Jagielski
419*b1cdbd2cSJim Jagielski register long a1 asm("a1");
420*b1cdbd2cSJim Jagielski long r8 = a1;
421*b1cdbd2cSJim Jagielski
422*b1cdbd2cSJim Jagielski register long d1 asm("d1");
423*b1cdbd2cSJim Jagielski long vtableOffset = d1;
424*b1cdbd2cSJim Jagielski
425*b1cdbd2cSJim Jagielski long sp = (long)&firstonstack;
426*b1cdbd2cSJim Jagielski
427*b1cdbd2cSJim Jagielski sal_Int64 nRegReturn;
428*b1cdbd2cSJim Jagielski cpp_mediate( functionIndex, vtableOffset, sp, r8, &nRegReturn );
429*b1cdbd2cSJim Jagielski return nRegReturn;
430*b1cdbd2cSJim Jagielski }
431*b1cdbd2cSJim Jagielski
432*b1cdbd2cSJim Jagielski namespace
433*b1cdbd2cSJim Jagielski {
434*b1cdbd2cSJim Jagielski const int codeSnippetSize = 20;
435*b1cdbd2cSJim Jagielski
436*b1cdbd2cSJim Jagielski //some m68k info : http://www2.biglobe.ne.jp/~inaba/trampolines.html
437*b1cdbd2cSJim Jagielski
codeSnippet(unsigned char * code,sal_Int32 functionIndex,sal_Int32 vtableOffset)438*b1cdbd2cSJim Jagielski unsigned char *codeSnippet(unsigned char* code, sal_Int32 functionIndex,
439*b1cdbd2cSJim Jagielski sal_Int32 vtableOffset)
440*b1cdbd2cSJim Jagielski {
441*b1cdbd2cSJim Jagielski unsigned char * p = code;
442*b1cdbd2cSJim Jagielski *(short *)&p[0] = 0x203C; //movel functionIndex,d0
443*b1cdbd2cSJim Jagielski *(long *)&p[2] = functionIndex;
444*b1cdbd2cSJim Jagielski *(short *)&p[6] = 0x223C; //movel functionIndex,d1
445*b1cdbd2cSJim Jagielski *(long *)&p[8] = vtableOffset;
446*b1cdbd2cSJim Jagielski *(short *)&p[12] = 0x4EF9; //jmp cpp_vtable_call
447*b1cdbd2cSJim Jagielski *(long *)&p[14] = (long)&cpp_vtable_call;
448*b1cdbd2cSJim Jagielski *(short *)&p[18] = 0x4E71; //nop
449*b1cdbd2cSJim Jagielski return code + codeSnippetSize;
450*b1cdbd2cSJim Jagielski }
451*b1cdbd2cSJim Jagielski }
452*b1cdbd2cSJim Jagielski
453*b1cdbd2cSJim Jagielski struct bridges::cpp_uno::shared::VtableFactory::Slot { void * fn; };
454*b1cdbd2cSJim Jagielski
455*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::VtableFactory::Slot *
mapBlockToVtable(void * block)456*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::VtableFactory::mapBlockToVtable(void * block)
457*b1cdbd2cSJim Jagielski {
458*b1cdbd2cSJim Jagielski return static_cast< Slot * >(block) + 2;
459*b1cdbd2cSJim Jagielski }
460*b1cdbd2cSJim Jagielski
getBlockSize(sal_Int32 slotCount)461*b1cdbd2cSJim Jagielski sal_Size bridges::cpp_uno::shared::VtableFactory::getBlockSize(
462*b1cdbd2cSJim Jagielski sal_Int32 slotCount)
463*b1cdbd2cSJim Jagielski {
464*b1cdbd2cSJim Jagielski return (slotCount + 2) * sizeof (Slot) + slotCount * codeSnippetSize;
465*b1cdbd2cSJim Jagielski }
466*b1cdbd2cSJim Jagielski
467*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::VtableFactory::Slot *
initializeBlock(void * block,sal_Int32 slotCount)468*b1cdbd2cSJim Jagielski bridges::cpp_uno::shared::VtableFactory::initializeBlock(
469*b1cdbd2cSJim Jagielski void * block, sal_Int32 slotCount)
470*b1cdbd2cSJim Jagielski {
471*b1cdbd2cSJim Jagielski Slot * slots = mapBlockToVtable(block);
472*b1cdbd2cSJim Jagielski slots[-2].fn = 0;
473*b1cdbd2cSJim Jagielski slots[-1].fn = 0;
474*b1cdbd2cSJim Jagielski return slots + slotCount;
475*b1cdbd2cSJim Jagielski }
476*b1cdbd2cSJim Jagielski
addLocalFunctions(Slot ** slots,unsigned char * code,sal_PtrDiff writetoexecdiff,typelib_InterfaceTypeDescription const * type,sal_Int32 functionOffset,sal_Int32 functionCount,sal_Int32 vtableOffset)477*b1cdbd2cSJim Jagielski unsigned char * bridges::cpp_uno::shared::VtableFactory::addLocalFunctions(
478*b1cdbd2cSJim Jagielski Slot ** slots, unsigned char * code, sal_PtrDiff writetoexecdiff,
479*b1cdbd2cSJim Jagielski typelib_InterfaceTypeDescription const * type, sal_Int32 functionOffset,
480*b1cdbd2cSJim Jagielski sal_Int32 functionCount, sal_Int32 vtableOffset)
481*b1cdbd2cSJim Jagielski {
482*b1cdbd2cSJim Jagielski (*slots) -= functionCount;
483*b1cdbd2cSJim Jagielski Slot * s = *slots;
484*b1cdbd2cSJim Jagielski for (sal_Int32 i = 0; i < type->nMembers; ++i)
485*b1cdbd2cSJim Jagielski {
486*b1cdbd2cSJim Jagielski typelib_TypeDescription * member = 0;
487*b1cdbd2cSJim Jagielski TYPELIB_DANGER_GET(&member, type->ppMembers[i]);
488*b1cdbd2cSJim Jagielski OSL_ASSERT(member != 0);
489*b1cdbd2cSJim Jagielski switch (member->eTypeClass)
490*b1cdbd2cSJim Jagielski {
491*b1cdbd2cSJim Jagielski case typelib_TypeClass_INTERFACE_ATTRIBUTE:
492*b1cdbd2cSJim Jagielski // Getter:
493*b1cdbd2cSJim Jagielski (s++)->fn = code + writetoexecdiff;
494*b1cdbd2cSJim Jagielski code = codeSnippet(code, functionOffset++, vtableOffset);
495*b1cdbd2cSJim Jagielski // Setter:
496*b1cdbd2cSJim Jagielski if (!reinterpret_cast<
497*b1cdbd2cSJim Jagielski typelib_InterfaceAttributeTypeDescription * >(
498*b1cdbd2cSJim Jagielski member)->bReadOnly)
499*b1cdbd2cSJim Jagielski {
500*b1cdbd2cSJim Jagielski (s++)->fn = code + writetoexecdiff;
501*b1cdbd2cSJim Jagielski code = codeSnippet(code, functionOffset++, vtableOffset);
502*b1cdbd2cSJim Jagielski }
503*b1cdbd2cSJim Jagielski break;
504*b1cdbd2cSJim Jagielski case typelib_TypeClass_INTERFACE_METHOD:
505*b1cdbd2cSJim Jagielski {
506*b1cdbd2cSJim Jagielski (s++)->fn = code + writetoexecdiff;
507*b1cdbd2cSJim Jagielski
508*b1cdbd2cSJim Jagielski typelib_InterfaceMethodTypeDescription *pMethodTD =
509*b1cdbd2cSJim Jagielski reinterpret_cast<
510*b1cdbd2cSJim Jagielski typelib_InterfaceMethodTypeDescription * >(member);
511*b1cdbd2cSJim Jagielski
512*b1cdbd2cSJim Jagielski bool issimple = bridges::cpp_uno::shared::isSimpleType(
513*b1cdbd2cSJim Jagielski pMethodTD->pReturnTypeRef);
514*b1cdbd2cSJim Jagielski
515*b1cdbd2cSJim Jagielski code = codeSnippet(code, functionOffset++, vtableOffset);
516*b1cdbd2cSJim Jagielski break;
517*b1cdbd2cSJim Jagielski }
518*b1cdbd2cSJim Jagielski default:
519*b1cdbd2cSJim Jagielski OSL_ASSERT(false);
520*b1cdbd2cSJim Jagielski break;
521*b1cdbd2cSJim Jagielski }
522*b1cdbd2cSJim Jagielski TYPELIB_DANGER_RELEASE(member);
523*b1cdbd2cSJim Jagielski }
524*b1cdbd2cSJim Jagielski return code;
525*b1cdbd2cSJim Jagielski }
526*b1cdbd2cSJim Jagielski
flushCode(unsigned char const *,unsigned char const *)527*b1cdbd2cSJim Jagielski void bridges::cpp_uno::shared::VtableFactory::flushCode(
528*b1cdbd2cSJim Jagielski unsigned char const * /*beg*/, unsigned char const * /*end*/)
529*b1cdbd2cSJim Jagielski {
530*b1cdbd2cSJim Jagielski }
531*b1cdbd2cSJim Jagielski
532*b1cdbd2cSJim Jagielski /* vi:set tabstop=4 shiftwidth=4 expandtab: */
533