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