1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_bridges.hxx"
26 #include <malloc.h>
27 #include <com/sun/star/uno/genfunc.hxx>
28 #include <uno/data.h>
29 
30 #include "bridges/cpp_uno/shared/bridge.hxx"
31 #include "bridges/cpp_uno/shared/types.hxx"
32 #include "bridges/cpp_uno/shared/unointerfaceproxy.hxx"
33 #include "bridges/cpp_uno/shared/vtables.hxx"
34 
35 #include "share.hxx"
36 
37 using namespace rtl;
38 using namespace com::sun::star::uno;
39 
40 namespace
41 {
42 //==================================================================================================
43 // The call instruction within the asm section of callVirtualMethod may throw
44 // exceptions.  So that the compiler handles this correctly, it is important
45 // that (a) callVirtualMethod might call dummy_can_throw_anything (although this
46 // never happens at runtime), which in turn can throw exceptions, and (b)
47 // callVirtualMethod is not inlined at its call site (so that any exceptions are
48 // caught which are thrown from the instruction calling callVirtualMethod):
49 
50 void callVirtualMethod( void * pAdjustedThisPtr,
51                         sal_Int32 nVtableIndex,
52                         void * pRegisterReturn,
53                         typelib_TypeClass eReturnType,
54                         sal_Int32 * pStackLongs,
55                         sal_Int32 nStackLongs ) __attribute__((noinline));
56 
callVirtualMethod(void * pAdjustedThisPtr,sal_Int32,void * pRegisterReturn,typelib_TypeClass eReturnType,sal_Int32 * pStackLongs,sal_Int32 nStackLongs)57 void callVirtualMethod( void * pAdjustedThisPtr,
58                         sal_Int32 /* nVtableIndex */,
59                         void * pRegisterReturn,
60                         typelib_TypeClass eReturnType,
61 #if OSL_DEBUG_LEVEL > 0
62                         sal_Int32 * pStackLongs,
63                         sal_Int32 nStackLongs)
64 #else
65                         sal_Int32 * /*pStackLongs*/,
66                         sal_Int32 /*nStackLongs*/)
67 #endif
68 {
69 	// parameter list is mixed list of * and values
70 	// reference parameters are pointers
71 
72 	OSL_ENSURE( pStackLongs && pAdjustedThisPtr, "### null ptr!" );
73 	OSL_ENSURE( (sizeof(void *) == 4) &&
74 				 (sizeof(sal_Int32) == 4), "### unexpected size of int!" );
75 	OSL_ENSURE( nStackLongs && pStackLongs, "### no stack in callVirtualMethod !" );
76 
77     // never called
78     if (! pAdjustedThisPtr) CPPU_CURRENT_NAMESPACE::dummy_can_throw_anything("xxx"); // address something
79 
80 	volatile long o0 = 0, o1 = 0; // for register returns
81 	volatile double f0d = 0;
82 	volatile float f0f = 0;
83 	volatile long long saveReg[7];
84 
85 	__asm__ (
86 		// save registers
87 		"std %%l0, [%4]\n\t"
88 		"mov %4, %%l0\n\t"
89 		"mov %%l0, %%l1\n\t"
90 		"add %%l0, 8, %%l0\n\t"
91 		"std %%l2, [%%l0]\n\t"
92 		"add %%l0, 8, %%l0\n\t"
93 		"std %%l4, [%%l0]\n\t"
94 		"add %%l0, 8, %%l0\n\t"
95 		"std %%o0, [%%l0]\n\t"
96 		"add %%l0, 8, %%l0\n\t"
97 		"std %%o2, [%%l0]\n\t"
98 		"add %%l0, 8, %%l0\n\t"
99 		"std %%o4, [%%l0]\n\t"
100 		"add %%l0, 8, %%l0\n\t"
101 		"std %%l6, [%%l0]\n\t"
102 		"mov %%l1, %%l7\n\t"
103 
104 		// increase our own stackframe if necessary
105 		"mov %%sp, %%l3\n\t"		// save stack ptr for readjustment
106 
107 		"subcc %%i5, 7, %%l0\n\t"
108 		"ble .LmoveOn\n\t"
109 		"nop\n\t"
110 
111 		"sll %%l0, 2, %%l0\n\t"
112 		"add %%l0, 96, %%l0\n\t"
113 		"mov %%sp, %%l1\n\t"		// old stack ptr
114 		"sub %%sp, %%l0, %%l0\n\t"	// future stack ptr
115 		"andcc %%l0, 7, %%g0\n\t"	// align stack to 8
116 		"be .LisAligned\n\t"
117 		"nop\n\t"
118 		"sub %%l0, 4, %%l0\n"
119 	".LisAligned:\n\t"
120 		"mov %%l0, %%o5\n\t"			// save newly computed stack ptr
121 		"add %%g0, 16, %%o4\n"
122 
123 		// now copy longs down to save register window
124 		// and local variables
125 	".LcopyDown:\n\t"
126 		"ld [%%l1], %%l2\n\t"
127 		"st %%l2,[%%l0]\n\t"
128 		"add %%l0, 4, %%l0\n\t"
129 		"add %%l1, 4, %%l1\n\t"
130 		"subcc %%o4, 1, %%o4\n\t"
131 		"bne .LcopyDown\n\t"
132 
133 		"mov %%o5, %%sp\n\t"		// move new stack ptr (hopefully) atomically
134 		// while register window is valid in both spaces
135 		// (scheduling might hit in copyDown loop)
136 
137 		"sub %%i5, 7, %%l0\n\t"		// copy parameters past the sixth to stack
138 		"add %%i4, 28, %%l1\n\t"
139 		"add %%sp, 92, %%l2\n"
140 	".LcopyLong:\n\t"
141 		"ld [%%l1], %%o0\n\t"
142 		"st %%o0, [%%l2]\n\t"
143 		"add %%l1, 4, %%l1\n\t"
144 		"add %%l2, 4, %%l2\n\t"
145 		"subcc %%l0, 1, %%l0\n\t"
146 		"bne .LcopyLong\n\t"
147 		"nop\n"
148 
149 	".LmoveOn:\n\t"
150 		"mov %%i5, %%l0\n\t"		// prepare out registers
151 		"mov %%i4, %%l1\n\t"
152 
153 		"ld [%%l1], %%o0\n\t"		// prepare complex return ptr
154 		"st %%o0, [%%sp+64]\n\t"
155 		"sub %%l0, 1, %%l0\n\t"
156 		"add %%l1, 4, %%l1\n\t"
157 
158 		"ld [%%l1], %%o0\n\t"
159 		"subcc %%l0, 1, %%l0\n\t"
160 		"be .LdoCall\n\t"
161 		"nop\n\t"
162 
163 		"add %%l1, 4, %%l1\n\t"
164 		"ld [%%l1], %%o1\n\t"
165 		"subcc %%l0, 1, %%l0\n\t"
166 		"be .LdoCall\n\t"
167 		"nop\n\t"
168 
169 		"add %%l1, 4, %%l1\n\t"
170 		"ld [%%l1], %%o2\n\t"
171 		"subcc %%l0, 1, %%l0\n\t"
172 		"be .LdoCall\n\t"
173 		"nop\n\t"
174 
175 		"add %%l1, 4, %%l1\n\t"
176 		"ld [%%l1], %%o3\n\t"
177 		"subcc %%l0, 1, %%l0\n\t"
178 		"be .LdoCall\n\t"
179 		"nop\n\t"
180 
181 		"add %%l1, 4, %%l1\n\t"
182 		"ld [%%l1], %%o4\n\t"
183 		"subcc %%l0, 1, %%l0\n\t"
184 		"be .LdoCall\n\t"
185 		"nop\n\t"
186 
187 		"add %%l1, 4, %%l1\n\t"
188 		"ld [%%l1], %%o5\n"
189 
190 	".LdoCall:\n\t"
191 		"ld [%%i0], %%l0\n\t"		// get vtable ptr
192 
193 "sll %%i1, 2, %%l6\n\t"
194 //        "add %%l6, 8, %%l6\n\t"
195 		"add %%l6, %%l0, %%l0\n\t"
196 // 		// vtable has 8byte wide entries,
197 // 		// upper half contains 2 half words, of which the first
198 // 		// is the this ptr patch !
199 // 		// first entry is (or __tf)
200 
201 // 		"ldsh [%%l0], %%l6\n\t"		// load this ptr patch
202 // 		"add %%l6, %%o0, %%o0\n\t"	// patch this ptr
203 
204 // 		"add %%l0, 4, %%l0\n\t"		// get virtual function ptr
205 		"ld [%%l0], %%l0\n\t"
206 
207 		"ld [%%i4], %%l2\n\t"
208 		"subcc %%l2, %%g0, %%l2\n\t"
209 		"bne .LcomplexCall\n\t"
210 		"nop\n\t"
211 		"call %%l0\n\t"
212 		"nop\n\t"
213 		"ba .LcallReturned\n\t"
214 		"nop\n"
215 	".LcomplexCall:\n\t"
216 		"call %%l0\n\t"
217 		"nop\n\t"
218 		"unimp\n"
219 
220 	".LcallReturned:\n\t"
221 		"mov %%l3, %%sp\n\t"		// readjust stack so that our locals are where they belong
222 		"st %%o0, %0\n\t"			// save possible return registers into our locals
223 		"st %%o1, %1\n\t"
224 		"std %%f0, %2\n\t"
225 		"st %%f0, %3\n\t"
226 
227 		// restore registers
228 		"ldd [%%l7], %%l0\n\t"
229 		"add %%l7, 8, %%l7\n\t"
230 		"ldd [%%l7], %%l2\n\t"
231 		"add %%l7, 8, %%l7\n\t"
232 		"ldd [%%l7], %%l4\n\t"
233 		"add %%l7, 8, %%l7\n\t"
234 		"ldd [%%l7], %%o0\n\t"
235 		"add %%l7, 8, %%l7\n\t"
236 		"ldd [%%l7], %%o2\n\t"
237 		"add %%l7, 8, %%l7\n\t"
238 		"ldd [%%l7], %%o4\n\t"
239 		"add %%l7, 8, %%l7\n\t"
240 		"ldd [%%l7], %%l6\n\t"
241 		: :
242 		"m"(o0),
243 		"m"(o1),
244 		"m"(f0d),
245 		"m"(f0f),
246 		"r"(&saveReg[0])
247 		);
248 	switch( eReturnType )
249 	{
250 		case typelib_TypeClass_HYPER:
251 		case typelib_TypeClass_UNSIGNED_HYPER:
252 			((long*)pRegisterReturn)[1] = o1;
253 		case typelib_TypeClass_LONG:
254 		case typelib_TypeClass_UNSIGNED_LONG:
255 		case typelib_TypeClass_ENUM:
256 			((long*)pRegisterReturn)[0] = o0;
257 			break;
258 		case typelib_TypeClass_CHAR:
259 		case typelib_TypeClass_SHORT:
260 		case typelib_TypeClass_UNSIGNED_SHORT:
261 			*(unsigned short*)pRegisterReturn = (unsigned short)o0;
262 			break;
263 		case typelib_TypeClass_BOOLEAN:
264 		case typelib_TypeClass_BYTE:
265 			*(unsigned char*)pRegisterReturn = (unsigned char)o0;
266 			break;
267 		case typelib_TypeClass_FLOAT:
268 			*(float*)pRegisterReturn = f0f;
269 			break;
270 		case typelib_TypeClass_DOUBLE:
271 			*(double*)pRegisterReturn = f0d;
272 			break;
273 		default:
274 			break;
275 	}
276 }
277 
278 //=================================================================================================
cpp_call(bridges::cpp_uno::shared::UnoInterfaceProxy * pThis,bridges::cpp_uno::shared::VtableSlot aVtableSlot,typelib_TypeDescriptionReference * pReturnTypeRef,sal_Int32 nParams,typelib_MethodParameter * pParams,void * pUnoReturn,void * pUnoArgs[],uno_Any ** ppUnoExc)279 static void cpp_call(
280 	bridges::cpp_uno::shared::UnoInterfaceProxy * pThis,
281 	bridges::cpp_uno::shared::VtableSlot aVtableSlot,
282 	typelib_TypeDescriptionReference * pReturnTypeRef,
283 	sal_Int32 nParams, typelib_MethodParameter * pParams,
284 	void * pUnoReturn, void * pUnoArgs[], uno_Any ** ppUnoExc )
285 {
286   	// max space for: complex ret ptr, this, values|ptr ...
287   	char * pCppStack	=
288   		(char *)alloca( (nParams+2) * sizeof(sal_Int64) );
289   	char * pCppStackStart	= pCppStack;
290 
291 	// return
292 	typelib_TypeDescription * pReturnTypeDescr = 0;
293 	TYPELIB_DANGER_GET( &pReturnTypeDescr, pReturnTypeRef );
294 	OSL_ENSURE( pReturnTypeDescr, "### expected return type description!" );
295 
296 	void * pCppReturn = 0; // if != 0 && != pUnoReturn, needs reconversion
297 
298 	if (pReturnTypeDescr)
299 	{
300 		if (bridges::cpp_uno::shared::isSimpleType( pReturnTypeDescr ))
301 		{
302 			pCppReturn = pUnoReturn; // direct way for simple types
303 			*(void**)pCppStack = NULL;
304 		}
305 		else
306 		{
307 			// complex return via ptr
308 			pCppReturn = *(void **)pCppStack = (bridges::cpp_uno::shared::relatesToInterfaceType(pReturnTypeDescr )
309 												? alloca( pReturnTypeDescr->nSize )
310 												: pUnoReturn); // direct way
311 		}
312 		pCppStack += sizeof(void*);
313 	}
314 	// push this
315 	void * pAdjustedThisPtr = reinterpret_cast< void ** >(pThis->getCppI())
316   	       + aVtableSlot.offset;
317   	       *(void**)pCppStack = pAdjustedThisPtr;
318 	pCppStack += sizeof( void* );
319 
320 	// stack space
321 	OSL_ENSURE( sizeof(void *) == sizeof(sal_Int32), "### unexpected size!" );
322 	// args
323 	void ** pCppArgs  = (void **)alloca( 3 * sizeof(void *) * nParams );
324 	// indizes of values this have to be converted (interface conversion cpp<=>uno)
325 	sal_Int32 * pTempIndizes = (sal_Int32 *)(pCppArgs + nParams);
326 	// type descriptions for reconversions
327 	typelib_TypeDescription ** ppTempParamTypeDescr = (typelib_TypeDescription **)(pCppArgs + (2 * nParams));
328 
329 	sal_Int32 nTempIndizes   = 0;
330 
331 	for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
332 	{
333 		const typelib_MethodParameter & rParam = pParams[nPos];
334 		typelib_TypeDescription * pParamTypeDescr = 0;
335 		TYPELIB_DANGER_GET( &pParamTypeDescr, rParam.pTypeRef );
336 		if (!rParam.bOut && bridges::cpp_uno::shared::isSimpleType( pParamTypeDescr ))
337 		{
338 			pCppArgs[ nPos ] = CPPU_CURRENT_NAMESPACE::adjustPointer(pCppStack, pParamTypeDescr );
339 
340 			switch (pParamTypeDescr->eTypeClass)
341 			{
342 			case typelib_TypeClass_HYPER:
343 			case typelib_TypeClass_UNSIGNED_HYPER:
344 			case typelib_TypeClass_DOUBLE:
345                         OSL_ASSERT( sizeof (double) == sizeof (sal_Int64) );
346                           *reinterpret_cast< sal_Int32 * >(pCppStack) =
347                           *reinterpret_cast< sal_Int32 const * >(pUnoArgs[ nPos ]);
348                           pCppStack += sizeof (sal_Int32);
349                           *reinterpret_cast< sal_Int32 * >(pCppStack) =
350                           *(reinterpret_cast< sal_Int32 const * >(pUnoArgs[ nPos ] ) + 1);
351                           break;
352             		default:
353                           uno_copyAndConvertData(
354                              pCppArgs[nPos], pUnoArgs[nPos], pParamTypeDescr,
355                             pThis->getBridge()->getUno2Cpp() );
356                           break;
357                         }
358 			// no longer needed
359 			TYPELIB_DANGER_RELEASE( pParamTypeDescr );
360 		}
361 		else // ptr to complex value | ref
362 		{
363 			if (! rParam.bIn) // is pure out
364 			{
365 				// cpp out is constructed mem, uno out is not!
366 				uno_constructData(
367 					*(void **)pCppStack = pCppArgs[nPos] = alloca( pParamTypeDescr->nSize ),
368 					pParamTypeDescr );
369 				pTempIndizes[nTempIndizes] = nPos; // default constructed for cpp call
370 				// will be released at reconversion
371 				ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
372 			}
373 			// is in/inout
374 			else if (bridges::cpp_uno::shared::relatesToInterfaceType(
375   	                        pParamTypeDescr ))
376 			{
377 				uno_copyAndConvertData(
378 					*(void **)pCppStack = pCppArgs[nPos] = alloca( pParamTypeDescr->nSize ),
379                                 	pUnoArgs[nPos], pParamTypeDescr,
380 					pThis->getBridge()->getUno2Cpp() );
381 
382 				pTempIndizes[nTempIndizes] = nPos; // has to be reconverted
383 				// will be released at reconversion
384 				ppTempParamTypeDescr[nTempIndizes++] = pParamTypeDescr;
385 			}
386 			else // direct way
387 			{
388 				*(void **)pCppStack = pCppArgs[nPos] = pUnoArgs[nPos];
389 				// no longer needed
390 				TYPELIB_DANGER_RELEASE( pParamTypeDescr );
391 			}
392 		}
393 		pCppStack += sizeof(sal_Int32); // standard parameter length
394 	}
395 
396 	try
397 	{
398 		int nStackLongs = (pCppStack - pCppStackStart)/sizeof(sal_Int32);
399 		OSL_ENSURE( !( (pCppStack - pCppStackStart ) & 3), "UNALIGNED STACK !!! (Please DO panic" );
400 
401 		if( nStackLongs & 1 )
402 			// stack has to be 8 byte aligned
403 			nStackLongs++;
404 		callVirtualMethod(
405 			pAdjustedThisPtr,
406 			aVtableSlot.index,
407 			pCppReturn,
408 			pReturnTypeDescr->eTypeClass,
409 			(sal_Int32 *)pCppStackStart,
410 			 nStackLongs);
411 		// NO exception occurred...
412 		*ppUnoExc = 0;
413 
414 		// reconvert temporary params
415 		for ( ; nTempIndizes--; )
416 		{
417 			sal_Int32 nIndex = pTempIndizes[nTempIndizes];
418 			typelib_TypeDescription * pParamTypeDescr = ppTempParamTypeDescr[nTempIndizes];
419 
420 			if (pParams[nIndex].bIn)
421 			{
422 				if (pParams[nIndex].bOut) // inout
423 				{
424 					uno_destructData( pUnoArgs[nIndex], pParamTypeDescr, 0 ); // destroy uno value
425 					uno_copyAndConvertData( pUnoArgs[nIndex], pCppArgs[nIndex], pParamTypeDescr,
426 											pThis->getBridge()->getCpp2Uno() );
427 				}
428 			}
429 			else // pure out
430 			{
431 				uno_copyAndConvertData( pUnoArgs[nIndex], pCppArgs[nIndex], pParamTypeDescr,
432 										pThis->getBridge()->getCpp2Uno() );
433 			}
434 			// destroy temp cpp param => cpp: every param was constructed
435 			uno_destructData( pCppArgs[nIndex], pParamTypeDescr, cpp_release );
436 
437 			TYPELIB_DANGER_RELEASE( pParamTypeDescr );
438 		}
439 		// return value
440 		if (pCppReturn && pUnoReturn != pCppReturn)
441 		{
442 			uno_copyAndConvertData( pUnoReturn, pCppReturn, pReturnTypeDescr,
443 									pThis->getBridge()->getCpp2Uno() );
444 			uno_destructData( pCppReturn, pReturnTypeDescr, cpp_release );
445 		}
446 	}
447  	catch( ... )
448  	{
449  		// get exception
450 		   fillUnoException( CPPU_CURRENT_NAMESPACE::__cxa_get_globals()->caughtExceptions,
451 								*ppUnoExc, pThis->getBridge()->getCpp2Uno() );
452 
453 		// temporary params
454 		for ( ; nTempIndizes--; )
455 		{
456 			sal_Int32 nIndex = pTempIndizes[nTempIndizes];
457 			// destroy temp cpp param => cpp: every param was constructed
458 			uno_destructData( pCppArgs[nIndex], ppTempParamTypeDescr[nTempIndizes], cpp_release );
459 			TYPELIB_DANGER_RELEASE( ppTempParamTypeDescr[nTempIndizes] );
460 		}
461 		// return type
462 		if (pReturnTypeDescr)
463 			TYPELIB_DANGER_RELEASE( pReturnTypeDescr );
464 	}
465 }
466 
467 }
468 
469 namespace bridges { namespace cpp_uno { namespace shared {
470 
unoInterfaceProxyDispatch(uno_Interface * pUnoI,const typelib_TypeDescription * pMemberDescr,void * pReturn,void * pArgs[],uno_Any ** ppException)471 void unoInterfaceProxyDispatch(
472 	uno_Interface * pUnoI, const typelib_TypeDescription * pMemberDescr,
473     void * pReturn, void * pArgs[], uno_Any ** ppException )
474 {
475 #if defined BRIDGES_DEBUG
476     OString cstr( OUStringToOString( pMemberDescr->pTypeName, RTL_TEXTENCODING_ASCII_US ) );
477     fprintf( stderr, "received dispatch( %s )\n", cstr.getStr() );
478 #endif
479 
480 	// is my surrogate
481 	bridges::cpp_uno::shared::UnoInterfaceProxy * pThis
482        = static_cast< bridges::cpp_uno::shared::UnoInterfaceProxy * >(pUnoI);
483 //	typelib_InterfaceTypeDescription * pTypeDescr = pThis->pTypeDescr;
484 
485 	switch (pMemberDescr->eTypeClass)
486 	{
487 	case typelib_TypeClass_INTERFACE_ATTRIBUTE:
488 	{
489 	 VtableSlot aVtableSlot(
490   	           getVtableSlot(
491   	               reinterpret_cast<
492   	                   typelib_InterfaceAttributeTypeDescription const * >(
493   	                       pMemberDescr)));
494 		if (pReturn)
495 		{
496 			// dependent dispatch
497 			cpp_call(
498 				pThis, aVtableSlot,
499 				((typelib_InterfaceAttributeTypeDescription *)pMemberDescr)->pAttributeTypeRef,
500 				0, 0, // no params
501 				pReturn, pArgs, ppException );
502 		}
503 		else
504 		{
505 			// is SET
506 			typelib_MethodParameter aParam;
507 			aParam.pTypeRef =
508 				((typelib_InterfaceAttributeTypeDescription *)pMemberDescr)->pAttributeTypeRef;
509 			aParam.bIn		= sal_True;
510 			aParam.bOut		= sal_False;
511 
512 			typelib_TypeDescriptionReference * pReturnTypeRef = 0;
513 			OUString aVoidName( RTL_CONSTASCII_USTRINGPARAM("void") );
514 			typelib_typedescriptionreference_new(
515 				&pReturnTypeRef, typelib_TypeClass_VOID, aVoidName.pData );
516 
517 			// dependent dispatch
518 			aVtableSlot.index += 1; // get, then set method
519 			cpp_call(
520 				pThis, aVtableSlot,
521 				pReturnTypeRef,
522 				1, &aParam,
523 				pReturn, pArgs, ppException );
524 
525 			typelib_typedescriptionreference_release( pReturnTypeRef );
526 		}
527 
528 		break;
529 	}
530 	case typelib_TypeClass_INTERFACE_METHOD:
531 	{
532 		VtableSlot aVtableSlot(
533 		getVtableSlot(
534 		 reinterpret_cast<
535 		  typelib_InterfaceMethodTypeDescription const * >(
536 		  pMemberDescr)));
537 		switch (aVtableSlot.index)
538 		{
539 			// standard calls
540 		case 1: // acquire uno interface
541 			(*pUnoI->acquire)( pUnoI );
542 			*ppException = 0;
543 			break;
544 		case 2: // release uno interface
545 			(*pUnoI->release)( pUnoI );
546 			*ppException = 0;
547 			break;
548 		case 0: // queryInterface() opt
549 		{
550 			typelib_TypeDescription * pTD = 0;
551 			TYPELIB_DANGER_GET( &pTD, reinterpret_cast< Type * >( pArgs[0] )->getTypeLibType() );
552 			if (pTD)
553 			{
554                 uno_Interface * pInterface = 0;
555  		(*pThis->pBridge->getUnoEnv()->getRegisteredInterface)(
556  		  pThis->pBridge->getUnoEnv(),
557 				   (void **)&pInterface, pThis->oid.pData, (typelib_InterfaceTypeDescription *)pTD );
558 
559                 if (pInterface)
560                 {
561                     ::uno_any_construct(
562                         reinterpret_cast< uno_Any * >( pReturn ),
563                         &pInterface, pTD, 0 );
564                     (*pInterface->release)( pInterface );
565                     TYPELIB_DANGER_RELEASE( pTD );
566                     *ppException = 0;
567                     break;
568                 }
569                 TYPELIB_DANGER_RELEASE( pTD );
570             }
571 		} // else perform queryInterface()
572 		default:
573 			// dependent dispatch
574 			cpp_call(
575 				pThis, aVtableSlot,
576 				((typelib_InterfaceMethodTypeDescription *)pMemberDescr)->pReturnTypeRef,
577 				((typelib_InterfaceMethodTypeDescription *)pMemberDescr)->nParams,
578 				((typelib_InterfaceMethodTypeDescription *)pMemberDescr)->pParams,
579 				pReturn, pArgs, ppException );
580 		}
581 		break;
582 	}
583 	default:
584 	{
585 		::com::sun::star::uno::RuntimeException aExc(
586 			OUString( RTL_CONSTASCII_USTRINGPARAM("illegal member type description!") ),
587 			::com::sun::star::uno::Reference< ::com::sun::star::uno::XInterface >() );
588 
589 		Type const & rExcType = ::getCppuType( &aExc );
590 		// binary identical null reference
591 		::uno_type_any_construct( *ppException, &aExc, rExcType.getTypeLibType(), 0 );
592 	}
593 	}
594 }
595 
596 } } }
597