2 * NDR -Oi,-Oif,-Oicf Interpreter
4 * Copyright 2001 Ove Kåven, TransGaming Technologies
5 * Copyright 2003-5 Robert Shearman (for CodeWeavers)
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 * - Some types of binding handles
28 WINE_DEFAULT_DEBUG_CHANNEL(rpc
);
30 #define NDR_TABLE_MASK 127
32 static inline void call_buffer_sizer(PMIDL_STUB_MESSAGE pStubMsg
, unsigned char *pMemory
,
33 const NDR_PARAM_OIF
*param
)
35 PFORMAT_STRING pFormat
;
38 if (param
->attr
.IsBasetype
)
40 pFormat
= ¶m
->u
.type_format_char
;
41 if (param
->attr
.IsSimpleRef
) pMemory
= *(unsigned char **)pMemory
;
45 pFormat
= &pStubMsg
->StubDesc
->pFormatTypes
[param
->u
.type_offset
];
46 if (!param
->attr
.IsByValue
) pMemory
= *(unsigned char **)pMemory
;
49 m
= NdrBufferSizer
[pFormat
[0] & NDR_TABLE_MASK
];
50 if (m
) m(pStubMsg
, pMemory
, pFormat
);
53 FIXME("format type 0x%x not implemented\n", pFormat
[0]);
54 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
58 static inline unsigned char *call_marshaller(PMIDL_STUB_MESSAGE pStubMsg
, unsigned char *pMemory
,
59 const NDR_PARAM_OIF
*param
)
61 PFORMAT_STRING pFormat
;
64 if (param
->attr
.IsBasetype
)
66 pFormat
= ¶m
->u
.type_format_char
;
67 if (param
->attr
.IsSimpleRef
) pMemory
= *(unsigned char **)pMemory
;
71 pFormat
= &pStubMsg
->StubDesc
->pFormatTypes
[param
->u
.type_offset
];
72 if (!param
->attr
.IsByValue
) pMemory
= *(unsigned char **)pMemory
;
75 m
= NdrMarshaller
[pFormat
[0] & NDR_TABLE_MASK
];
76 if (m
) return m(pStubMsg
, pMemory
, pFormat
);
79 FIXME("format type 0x%x not implemented\n", pFormat
[0]);
80 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
85 static inline unsigned char *call_unmarshaller(PMIDL_STUB_MESSAGE pStubMsg
, unsigned char **ppMemory
,
86 const NDR_PARAM_OIF
*param
, unsigned char fMustAlloc
)
88 PFORMAT_STRING pFormat
;
91 if (param
->attr
.IsBasetype
)
93 pFormat
= ¶m
->u
.type_format_char
;
94 if (param
->attr
.IsSimpleRef
) ppMemory
= (unsigned char **)*ppMemory
;
98 pFormat
= &pStubMsg
->StubDesc
->pFormatTypes
[param
->u
.type_offset
];
99 if (!param
->attr
.IsByValue
) ppMemory
= (unsigned char **)*ppMemory
;
102 m
= NdrUnmarshaller
[pFormat
[0] & NDR_TABLE_MASK
];
103 if (m
) return m(pStubMsg
, ppMemory
, pFormat
, fMustAlloc
);
106 FIXME("format type 0x%x not implemented\n", pFormat
[0]);
107 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
112 static inline void call_freer(PMIDL_STUB_MESSAGE pStubMsg
, unsigned char *pMemory
,
113 const NDR_PARAM_OIF
*param
)
115 PFORMAT_STRING pFormat
;
118 if (param
->attr
.IsBasetype
) return; /* nothing to do */
119 pFormat
= &pStubMsg
->StubDesc
->pFormatTypes
[param
->u
.type_offset
];
120 if (!param
->attr
.IsByValue
) pMemory
= *(unsigned char **)pMemory
;
122 m
= NdrFreer
[pFormat
[0] & NDR_TABLE_MASK
];
123 if (m
) m(pStubMsg
, pMemory
, pFormat
);
126 static DWORD
calc_arg_size(MIDL_STUB_MESSAGE
*pStubMsg
, PFORMAT_STRING pFormat
)
132 if (pFormat
[1] & RPC_FC_P_SIMPLEPOINTER
)
134 FIXME("Simple reference pointer (type %#x).\n", pFormat
[2]);
135 size
= sizeof(void *);
138 size
= calc_arg_size(pStubMsg
, &pFormat
[2] + *(const SHORT
*)&pFormat
[2]);
142 size
= *(const WORD
*)(pFormat
+ 2);
144 case RPC_FC_BOGUS_STRUCT
:
145 size
= *(const WORD
*)(pFormat
+ 2);
146 if(*(const WORD
*)(pFormat
+ 4))
147 FIXME("Unhandled conformant description\n");
151 size
= *(const WORD
*)(pFormat
+ 2);
152 ComputeConformance(pStubMsg
, NULL
, pFormat
+ 4, 0);
153 size
*= pStubMsg
->MaxCount
;
155 case RPC_FC_SMFARRAY
:
156 case RPC_FC_SMVARRAY
:
157 size
= *(const WORD
*)(pFormat
+ 2);
159 case RPC_FC_LGFARRAY
:
160 case RPC_FC_LGVARRAY
:
161 size
= *(const DWORD
*)(pFormat
+ 2);
163 case RPC_FC_BOGUS_ARRAY
:
164 pFormat
= ComputeConformance(pStubMsg
, NULL
, pFormat
+ 4, *(const WORD
*)&pFormat
[2]);
165 TRACE("conformance = %ld\n", pStubMsg
->MaxCount
);
166 pFormat
= ComputeVariance(pStubMsg
, NULL
, pFormat
, pStubMsg
->MaxCount
);
167 size
= ComplexStructSize(pStubMsg
, pFormat
);
168 size
*= pStubMsg
->MaxCount
;
170 case RPC_FC_USER_MARSHAL
:
171 size
= *(const WORD
*)(pFormat
+ 4);
174 size
= *(const WORD
*)(pFormat
+ 2);
177 size
= *(const WORD
*)(pFormat
+ 2) * sizeof(WCHAR
);
179 case RPC_FC_C_CSTRING
:
180 case RPC_FC_C_WSTRING
:
181 if (*pFormat
== RPC_FC_C_CSTRING
)
184 size
= sizeof(WCHAR
);
185 if (pFormat
[1] == RPC_FC_STRING_SIZED
)
186 ComputeConformance(pStubMsg
, NULL
, pFormat
+ 2, 0);
188 pStubMsg
->MaxCount
= 0;
189 size
*= pStubMsg
->MaxCount
;
192 FIXME("Unhandled type %02x\n", *pFormat
);
195 size
= sizeof(void *);
201 void WINAPI
NdrRpcSmSetClientToOsf(PMIDL_STUB_MESSAGE pMessage
)
203 #if 0 /* these functions are not defined yet */
204 pMessage
->pfnAllocate
= NdrRpcSmClientAllocate
;
205 pMessage
->pfnFree
= NdrRpcSmClientFree
;
209 static const char *debugstr_PROC_PF(PARAM_ATTRIBUTES param_attributes
)
214 if (param_attributes
.MustSize
) strcat(buffer
, " MustSize");
215 if (param_attributes
.MustFree
) strcat(buffer
, " MustFree");
216 if (param_attributes
.IsPipe
) strcat(buffer
, " IsPipe");
217 if (param_attributes
.IsIn
) strcat(buffer
, " IsIn");
218 if (param_attributes
.IsOut
) strcat(buffer
, " IsOut");
219 if (param_attributes
.IsReturn
) strcat(buffer
, " IsReturn");
220 if (param_attributes
.IsBasetype
) strcat(buffer
, " IsBasetype");
221 if (param_attributes
.IsByValue
) strcat(buffer
, " IsByValue");
222 if (param_attributes
.IsSimpleRef
) strcat(buffer
, " IsSimpleRef");
223 if (param_attributes
.IsDontCallFreeInst
) strcat(buffer
, " IsDontCallFreeInst");
224 if (param_attributes
.SaveForAsyncFinish
) strcat(buffer
, " SaveForAsyncFinish");
225 if (param_attributes
.ServerAllocSize
)
226 sprintf( buffer
+ strlen(buffer
), " ServerAllocSize = %d", param_attributes
.ServerAllocSize
* 8);
227 return buffer
[0] ? wine_dbg_sprintf( "%s", buffer
+ 1 ) : "";
230 static const char *debugstr_INTERPRETER_OPT_FLAGS(INTERPRETER_OPT_FLAGS Oi2Flags
)
235 if (Oi2Flags
.ServerMustSize
) strcat(buffer
, " ServerMustSize");
236 if (Oi2Flags
.ClientMustSize
) strcat(buffer
, " ClientMustSize");
237 if (Oi2Flags
.HasReturn
) strcat(buffer
, " HasReturn");
238 if (Oi2Flags
.HasPipes
) strcat(buffer
, " HasPipes");
239 if (Oi2Flags
.Unused
) strcat(buffer
, " Unused");
240 if (Oi2Flags
.HasAsyncUuid
) strcat(buffer
, " HasAsyncUuid");
241 if (Oi2Flags
.HasExtensions
) strcat(buffer
, " HasExtensions");
242 if (Oi2Flags
.HasAsyncHandle
) strcat(buffer
, " HasAsyncHandle");
243 return buffer
[0] ? wine_dbg_sprintf( "%s", buffer
+ 1 ) : "";
246 #define ARG_FROM_OFFSET(args, offset) ((args) + (offset))
248 static PFORMAT_STRING
client_get_handle(
249 PMIDL_STUB_MESSAGE pStubMsg
, const NDR_PROC_HEADER
*pProcHeader
,
250 PFORMAT_STRING pFormat
, handle_t
*phBinding
)
253 switch (pProcHeader
->handle_type
)
255 /* explicit binding: parse additional section */
256 case RPC_FC_BIND_EXPLICIT
:
257 switch (*pFormat
) /* handle_type */
259 case RPC_FC_BIND_PRIMITIVE
: /* explicit primitive */
261 const NDR_EHD_PRIMITIVE
*pDesc
= (const NDR_EHD_PRIMITIVE
*)pFormat
;
263 TRACE("Explicit primitive handle @ %d\n", pDesc
->offset
);
265 if (pDesc
->flag
) /* pointer to binding */
266 *phBinding
= **(handle_t
**)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
268 *phBinding
= *(handle_t
*)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
269 return pFormat
+ sizeof(NDR_EHD_PRIMITIVE
);
271 case RPC_FC_BIND_GENERIC
: /* explicit generic */
273 const NDR_EHD_GENERIC
*pDesc
= (const NDR_EHD_GENERIC
*)pFormat
;
274 void *pObject
= NULL
;
276 const GENERIC_BINDING_ROUTINE_PAIR
*pGenPair
;
278 TRACE("Explicit generic binding handle #%d\n", pDesc
->binding_routine_pair_index
);
280 if (pDesc
->flag_and_size
& HANDLE_PARAM_IS_VIA_PTR
)
281 pArg
= *(void **)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
283 pArg
= ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
284 memcpy(&pObject
, pArg
, pDesc
->flag_and_size
& 0xf);
285 pGenPair
= &pStubMsg
->StubDesc
->aGenericBindingRoutinePairs
[pDesc
->binding_routine_pair_index
];
286 *phBinding
= pGenPair
->pfnBind(pObject
);
287 return pFormat
+ sizeof(NDR_EHD_GENERIC
);
289 case RPC_FC_BIND_CONTEXT
: /* explicit context */
291 const NDR_EHD_CONTEXT
*pDesc
= (const NDR_EHD_CONTEXT
*)pFormat
;
292 NDR_CCONTEXT context_handle
;
293 TRACE("Explicit bind context\n");
294 if (pDesc
->flags
& HANDLE_PARAM_IS_VIA_PTR
)
296 TRACE("\tHANDLE_PARAM_IS_VIA_PTR\n");
297 context_handle
= **(NDR_CCONTEXT
**)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
300 context_handle
= *(NDR_CCONTEXT
*)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
302 if (context_handle
) *phBinding
= NDRCContextBinding(context_handle
);
303 else if (pDesc
->flags
& NDR_CONTEXT_HANDLE_CANNOT_BE_NULL
)
305 ERR("null context handle isn't allowed\n");
306 RpcRaiseException(RPC_X_SS_IN_NULL_CONTEXT
);
309 /* FIXME: should we store this structure in stubMsg.pContext? */
310 return pFormat
+ sizeof(NDR_EHD_CONTEXT
);
313 ERR("bad explicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
314 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
317 case RPC_FC_BIND_GENERIC
: /* implicit generic */
318 FIXME("RPC_FC_BIND_GENERIC\n");
319 RpcRaiseException(RPC_X_BAD_STUB_DATA
); /* FIXME: remove when implemented */
321 case RPC_FC_BIND_PRIMITIVE
: /* implicit primitive */
322 TRACE("Implicit primitive handle\n");
323 *phBinding
= *pStubMsg
->StubDesc
->IMPLICIT_HANDLE_INFO
.pPrimitiveHandle
;
325 case RPC_FC_CALLBACK_HANDLE
: /* implicit callback */
326 FIXME("RPC_FC_CALLBACK_HANDLE\n");
328 case RPC_FC_AUTO_HANDLE
: /* implicit auto handle */
329 /* strictly speaking, it isn't necessary to set hBinding here
330 * since it isn't actually used (hence the automatic in its name),
331 * but then why does MIDL generate a valid entry in the
332 * MIDL_STUB_DESC for it? */
333 TRACE("Implicit auto handle\n");
334 *phBinding
= *pStubMsg
->StubDesc
->IMPLICIT_HANDLE_INFO
.pAutoHandle
;
337 ERR("bad implicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
338 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
343 static void client_free_handle(
344 PMIDL_STUB_MESSAGE pStubMsg
, const NDR_PROC_HEADER
*pProcHeader
,
345 PFORMAT_STRING pFormat
, handle_t hBinding
)
348 switch (pProcHeader
->handle_type
)
350 /* explicit binding: parse additional section */
351 case RPC_FC_BIND_EXPLICIT
:
352 switch (*pFormat
) /* handle_type */
354 case RPC_FC_BIND_GENERIC
: /* explicit generic */
356 const NDR_EHD_GENERIC
*pDesc
= (const NDR_EHD_GENERIC
*)pFormat
;
357 void *pObject
= NULL
;
359 const GENERIC_BINDING_ROUTINE_PAIR
*pGenPair
;
361 TRACE("Explicit generic binding handle #%d\n", pDesc
->binding_routine_pair_index
);
363 if (pDesc
->flag_and_size
& HANDLE_PARAM_IS_VIA_PTR
)
364 pArg
= *(void **)ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
366 pArg
= ARG_FROM_OFFSET(pStubMsg
->StackTop
, pDesc
->offset
);
367 memcpy(&pObject
, pArg
, pDesc
->flag_and_size
& 0xf);
368 pGenPair
= &pStubMsg
->StubDesc
->aGenericBindingRoutinePairs
[pDesc
->binding_routine_pair_index
];
369 pGenPair
->pfnUnbind(pObject
, hBinding
);
372 case RPC_FC_BIND_CONTEXT
: /* explicit context */
373 case RPC_FC_BIND_PRIMITIVE
: /* explicit primitive */
376 ERR("bad explicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
377 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
380 case RPC_FC_BIND_GENERIC
: /* implicit generic */
381 FIXME("RPC_FC_BIND_GENERIC\n");
382 RpcRaiseException(RPC_X_BAD_STUB_DATA
); /* FIXME: remove when implemented */
384 case RPC_FC_CALLBACK_HANDLE
: /* implicit callback */
385 case RPC_FC_BIND_PRIMITIVE
: /* implicit primitive */
386 case RPC_FC_AUTO_HANDLE
: /* implicit auto handle */
389 ERR("bad implicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
390 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
394 void client_do_args( PMIDL_STUB_MESSAGE pStubMsg
, PFORMAT_STRING pFormat
, enum stubless_phase phase
,
395 void **fpu_args
, unsigned short number_of_params
, unsigned char *pRetVal
)
397 const NDR_PARAM_OIF
*params
= (const NDR_PARAM_OIF
*)pFormat
;
400 for (i
= 0; i
< number_of_params
; i
++)
402 unsigned char *pArg
= pStubMsg
->StackTop
+ params
[i
].stack_offset
;
403 PFORMAT_STRING pTypeFormat
= (PFORMAT_STRING
)&pStubMsg
->StubDesc
->pFormatTypes
[params
[i
].u
.type_offset
];
405 #ifdef __x86_64__ /* floats are passed as doubles through varargs functions */
408 if (params
[i
].attr
.IsBasetype
&&
409 params
[i
].u
.type_format_char
== RPC_FC_FLOAT
&&
410 !params
[i
].attr
.IsSimpleRef
&&
414 pArg
= (unsigned char *)&f
;
418 TRACE("param[%d]: %p type %02x %s\n", i
, pArg
,
419 params
[i
].attr
.IsBasetype
? params
[i
].u
.type_format_char
: *pTypeFormat
,
420 debugstr_PROC_PF( params
[i
].attr
));
424 case STUBLESS_INITOUT
:
425 if (!params
[i
].attr
.IsBasetype
&& params
[i
].attr
.IsOut
&&
426 !params
[i
].attr
.IsIn
&& !params
[i
].attr
.IsByValue
)
428 memset( *(unsigned char **)pArg
, 0, calc_arg_size( pStubMsg
, pTypeFormat
));
431 case STUBLESS_CALCSIZE
:
432 if (params
[i
].attr
.IsSimpleRef
&& !*(unsigned char **)pArg
)
433 RpcRaiseException(RPC_X_NULL_REF_POINTER
);
434 if (params
[i
].attr
.IsIn
) call_buffer_sizer(pStubMsg
, pArg
, ¶ms
[i
]);
436 case STUBLESS_MARSHAL
:
437 if (params
[i
].attr
.IsIn
) call_marshaller(pStubMsg
, pArg
, ¶ms
[i
]);
439 case STUBLESS_UNMARSHAL
:
440 if (params
[i
].attr
.IsOut
)
442 if (params
[i
].attr
.IsReturn
&& pRetVal
) pArg
= pRetVal
;
443 call_unmarshaller(pStubMsg
, &pArg
, ¶ms
[i
], 0);
447 if (!params
[i
].attr
.IsBasetype
&& params
[i
].attr
.IsOut
&& !params
[i
].attr
.IsByValue
)
448 NdrClearOutParameters( pStubMsg
, pTypeFormat
, *(unsigned char **)pArg
);
451 RpcRaiseException(RPC_S_INTERNAL_ERROR
);
456 static unsigned int type_stack_size(unsigned char fc
)
470 case RPC_FC_UINT3264
:
474 case RPC_FC_ERROR_STATUS_T
:
476 return sizeof(void *);
478 return sizeof(double);
480 return sizeof(ULONGLONG
);
482 ERR("invalid base type 0x%x\n", fc
);
483 RpcRaiseException(RPC_S_INTERNAL_ERROR
);
487 static BOOL
is_by_value( PFORMAT_STRING format
)
491 case RPC_FC_USER_MARSHAL
:
495 case RPC_FC_CPSTRUCT
:
496 case RPC_FC_CVSTRUCT
:
497 case RPC_FC_BOGUS_STRUCT
:
504 PFORMAT_STRING
convert_old_args( PMIDL_STUB_MESSAGE pStubMsg
, PFORMAT_STRING pFormat
,
505 unsigned int stack_size
, BOOL object_proc
,
506 void *buffer
, unsigned int size
, unsigned int *count
)
508 NDR_PARAM_OIF
*args
= buffer
;
509 unsigned int i
, stack_offset
= object_proc
? sizeof(void *) : 0;
511 for (i
= 0; stack_offset
< stack_size
; i
++)
513 const NDR_PARAM_OI_BASETYPE
*param
= (const NDR_PARAM_OI_BASETYPE
*)pFormat
;
514 const NDR_PARAM_OI_OTHER
*other
= (const NDR_PARAM_OI_OTHER
*)pFormat
;
516 if (i
+ 1 > size
/ sizeof(*args
))
518 FIXME( "%u args not supported\n", i
);
519 RpcRaiseException( RPC_S_INTERNAL_ERROR
);
522 args
[i
].stack_offset
= stack_offset
;
523 memset( &args
[i
].attr
, 0, sizeof(args
[i
].attr
) );
525 switch (param
->param_direction
)
527 case RPC_FC_IN_PARAM_BASETYPE
:
528 args
[i
].attr
.IsIn
= 1;
529 args
[i
].attr
.IsBasetype
= 1;
531 case RPC_FC_RETURN_PARAM_BASETYPE
:
532 args
[i
].attr
.IsOut
= 1;
533 args
[i
].attr
.IsReturn
= 1;
534 args
[i
].attr
.IsBasetype
= 1;
536 case RPC_FC_IN_PARAM
:
537 args
[i
].attr
.IsIn
= 1;
538 args
[i
].attr
.MustFree
= 1;
540 case RPC_FC_IN_PARAM_NO_FREE_INST
:
541 args
[i
].attr
.IsIn
= 1;
542 args
[i
].attr
.IsDontCallFreeInst
= 1;
544 case RPC_FC_IN_OUT_PARAM
:
545 args
[i
].attr
.IsIn
= 1;
546 args
[i
].attr
.IsOut
= 1;
547 args
[i
].attr
.MustFree
= 1;
549 case RPC_FC_OUT_PARAM
:
550 args
[i
].attr
.IsOut
= 1;
552 case RPC_FC_RETURN_PARAM
:
553 args
[i
].attr
.IsOut
= 1;
554 args
[i
].attr
.IsReturn
= 1;
557 if (args
[i
].attr
.IsBasetype
)
559 args
[i
].u
.type_format_char
= param
->type_format_char
;
560 stack_offset
+= type_stack_size( param
->type_format_char
);
561 pFormat
+= sizeof(NDR_PARAM_OI_BASETYPE
);
565 args
[i
].u
.type_offset
= other
->type_offset
;
566 args
[i
].attr
.IsByValue
= is_by_value( &pStubMsg
->StubDesc
->pFormatTypes
[other
->type_offset
] );
567 stack_offset
+= other
->stack_size
* sizeof(void *);
568 pFormat
+= sizeof(NDR_PARAM_OI_OTHER
);
572 return (PFORMAT_STRING
)args
;
575 LONG_PTR CDECL
ndr_client_call( PMIDL_STUB_DESC pStubDesc
, PFORMAT_STRING pFormat
,
576 void **stack_top
, void **fpu_stack
)
578 /* pointer to start of stack where arguments start */
580 MIDL_STUB_MESSAGE stubMsg
;
581 handle_t hBinding
= NULL
;
582 /* procedure number */
583 unsigned short procedure_number
;
585 unsigned short stack_size
;
586 /* number of parameters. optional for client to give it to us */
587 unsigned int number_of_params
;
588 /* cache of Oif_flags from v2 procedure header */
589 INTERPRETER_OPT_FLAGS Oif_flags
= { 0 };
590 /* cache of extension flags from NDR_PROC_HEADER_EXTS */
591 INTERPRETER_OPT_FLAGS2 ext_flags
= { 0 };
592 /* header for procedure string */
593 const NDR_PROC_HEADER
* pProcHeader
= (const NDR_PROC_HEADER
*)&pFormat
[0];
594 /* the value to return to the client from the remote procedure */
596 /* the pointer to the object when in OLE mode */
598 PFORMAT_STRING pHandleFormat
;
599 /* correlation cache */
600 ULONG_PTR NdrCorrCache
[256];
602 TRACE("pStubDesc %p, pFormat %p, ...\n", pStubDesc
, pFormat
);
604 TRACE("NDR Version: 0x%x\n", pStubDesc
->Version
);
606 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
608 const NDR_PROC_HEADER_RPC
*header_rpc
= (const NDR_PROC_HEADER_RPC
*)&pFormat
[0];
609 stack_size
= header_rpc
->stack_size
;
610 procedure_number
= header_rpc
->proc_num
;
611 pFormat
+= sizeof(NDR_PROC_HEADER_RPC
);
615 stack_size
= pProcHeader
->stack_size
;
616 procedure_number
= pProcHeader
->proc_num
;
617 pFormat
+= sizeof(NDR_PROC_HEADER
);
619 TRACE("stack size: 0x%x\n", stack_size
);
620 TRACE("proc num: %d\n", procedure_number
);
622 /* create the full pointer translation tables, if requested */
623 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
624 stubMsg
.FullPtrXlatTables
= NdrFullPointerXlatInit(0,XLAT_CLIENT
);
626 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
628 /* object is always the first argument */
630 NdrProxyInitialize(This
, &rpcMsg
, &stubMsg
, pStubDesc
, procedure_number
);
633 NdrClientInitializeNew(&rpcMsg
, &stubMsg
, pStubDesc
, procedure_number
);
635 TRACE("Oi_flags = 0x%02x\n", pProcHeader
->Oi_flags
);
636 TRACE("MIDL stub version = 0x%x\n", pStubDesc
->MIDLVersion
);
638 stubMsg
.StackTop
= (unsigned char *)stack_top
;
639 pHandleFormat
= pFormat
;
641 /* we only need a handle if this isn't an object method */
642 if (!(pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
))
644 pFormat
= client_get_handle(&stubMsg
, pProcHeader
, pHandleFormat
, &hBinding
);
645 if (!pFormat
) goto done
;
648 if (pStubDesc
->Version
>= 0x20000) /* -Oicf format */
650 const NDR_PROC_PARTIAL_OIF_HEADER
*pOIFHeader
=
651 (const NDR_PROC_PARTIAL_OIF_HEADER
*)pFormat
;
653 Oif_flags
= pOIFHeader
->Oi2Flags
;
654 number_of_params
= pOIFHeader
->number_of_params
;
656 pFormat
+= sizeof(NDR_PROC_PARTIAL_OIF_HEADER
);
658 TRACE("Oif_flags = %s\n", debugstr_INTERPRETER_OPT_FLAGS(Oif_flags
) );
660 if (Oif_flags
.HasExtensions
)
662 const NDR_PROC_HEADER_EXTS
*pExtensions
= (const NDR_PROC_HEADER_EXTS
*)pFormat
;
663 ext_flags
= pExtensions
->Flags2
;
664 pFormat
+= pExtensions
->Size
;
666 if (pExtensions
->Size
> sizeof(*pExtensions
) && fpu_stack
)
669 unsigned short fpu_mask
= *(unsigned short *)(pExtensions
+ 1);
670 for (i
= 0; i
< 4; i
++, fpu_mask
>>= 2)
671 switch (fpu_mask
& 3)
673 case 1: *(float *)&stack_top
[i
] = *(float *)&fpu_stack
[i
]; break;
674 case 2: *(double *)&stack_top
[i
] = *(double *)&fpu_stack
[i
]; break;
682 pFormat
= convert_old_args( &stubMsg
, pFormat
, stack_size
,
683 pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
,
684 /* reuse the correlation cache, it's not needed for v1 format */
685 NdrCorrCache
, sizeof(NdrCorrCache
), &number_of_params
);
688 stubMsg
.BufferLength
= 0;
690 /* store the RPC flags away */
691 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
692 rpcMsg
.RpcFlags
= ((const NDR_PROC_HEADER_RPC
*)pProcHeader
)->rpc_flags
;
694 /* use alternate memory allocation routines */
695 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCSSALLOC
)
696 NdrRpcSmSetClientToOsf(&stubMsg
);
698 if (Oif_flags
.HasPipes
)
700 FIXME("pipes not supported yet\n");
701 RpcRaiseException(RPC_X_WRONG_STUB_VERSION
); /* FIXME: remove when implemented */
702 /* init pipes package */
703 /* NdrPipesInitialize(...) */
705 if (ext_flags
.HasNewCorrDesc
)
707 /* initialize extra correlation package */
708 NdrCorrelationInitialize(&stubMsg
, NdrCorrCache
, sizeof(NdrCorrCache
), 0);
712 * 1. INITOUT - zero [out] parameters (proxies only)
713 * 2. CALCSIZE - calculate the buffer size
714 * 3. GETBUFFER - allocate the buffer
715 * 4. MARSHAL - marshal [in] params into the buffer
716 * 5. SENDRECEIVE - send/receive buffer
717 * 6. UNMARSHAL - unmarshal [out] params from buffer
718 * 7. FREE - clear [out] parameters (for proxies, and only on error)
720 if ((pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
) ||
721 (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_HAS_COMM_OR_FAULT
))
724 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
726 TRACE( "INITOUT\n" );
727 client_do_args(&stubMsg
, pFormat
, STUBLESS_INITOUT
, fpu_stack
,
728 number_of_params
, (unsigned char *)&RetVal
);
734 TRACE( "CALCSIZE\n" );
735 client_do_args(&stubMsg
, pFormat
, STUBLESS_CALCSIZE
, fpu_stack
,
736 number_of_params
, (unsigned char *)&RetVal
);
739 TRACE( "GETBUFFER\n" );
740 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
742 /* allocate the buffer */
743 NdrProxyGetBuffer(This
, &stubMsg
);
747 /* allocate the buffer */
748 if (Oif_flags
.HasPipes
)
749 /* NdrGetPipeBuffer(...) */
750 FIXME("pipes not supported yet\n");
753 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
755 NdrNsGetBuffer(&stubMsg
, stubMsg
.BufferLength
, hBinding
);
757 FIXME("using auto handle - call NdrNsGetBuffer when it gets implemented\n");
760 NdrGetBuffer(&stubMsg
, stubMsg
.BufferLength
, hBinding
);
765 TRACE( "MARSHAL\n" );
766 client_do_args(&stubMsg
, pFormat
, STUBLESS_MARSHAL
, fpu_stack
,
767 number_of_params
, (unsigned char *)&RetVal
);
770 TRACE( "SENDRECEIVE\n" );
771 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
773 /* send the [in] params and receive the [out] and [retval]
775 NdrProxySendReceive(This
, &stubMsg
);
779 /* send the [in] params and receive the [out] and [retval]
781 if (Oif_flags
.HasPipes
)
782 /* NdrPipesSendReceive(...) */
783 FIXME("pipes not supported yet\n");
786 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
788 NdrNsSendReceive(&stubMsg
, stubMsg
.Buffer
, pStubDesc
->IMPLICIT_HANDLE_INFO
.pAutoHandle
);
790 FIXME("using auto handle - call NdrNsSendReceive when it gets implemented\n");
793 NdrSendReceive(&stubMsg
, stubMsg
.Buffer
);
797 /* convert strings, floating point values and endianness into our
798 * preferred format */
799 if ((rpcMsg
.DataRepresentation
& 0x0000FFFFUL
) != NDR_LOCAL_DATA_REPRESENTATION
)
800 NdrConvert(&stubMsg
, pFormat
);
803 TRACE( "UNMARSHAL\n" );
804 client_do_args(&stubMsg
, pFormat
, STUBLESS_UNMARSHAL
, fpu_stack
,
805 number_of_params
, (unsigned char *)&RetVal
);
809 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
813 client_do_args(&stubMsg
, pFormat
, STUBLESS_FREE
, fpu_stack
,
814 number_of_params
, (unsigned char *)&RetVal
);
815 RetVal
= NdrProxyErrorHandler(GetExceptionCode());
819 const COMM_FAULT_OFFSETS
*comm_fault_offsets
= &pStubDesc
->CommFaultOffsets
[procedure_number
];
823 TRACE("comm_fault_offsets = {0x%hx, 0x%hx}\n", comm_fault_offsets
->CommOffset
, comm_fault_offsets
->FaultOffset
);
825 if (comm_fault_offsets
->CommOffset
== -1)
826 comm_status
= (ULONG
*)&RetVal
;
827 else if (comm_fault_offsets
->CommOffset
>= 0)
828 comm_status
= *(ULONG
**)ARG_FROM_OFFSET(stubMsg
.StackTop
, comm_fault_offsets
->CommOffset
);
832 if (comm_fault_offsets
->FaultOffset
== -1)
833 fault_status
= (ULONG
*)&RetVal
;
834 else if (comm_fault_offsets
->FaultOffset
>= 0)
835 fault_status
= *(ULONG
**)ARG_FROM_OFFSET(stubMsg
.StackTop
, comm_fault_offsets
->FaultOffset
);
839 NdrMapCommAndFaultStatus(&stubMsg
, comm_status
, fault_status
,
848 TRACE( "CALCSIZE\n" );
849 client_do_args(&stubMsg
, pFormat
, STUBLESS_CALCSIZE
, fpu_stack
,
850 number_of_params
, (unsigned char *)&RetVal
);
853 TRACE( "GETBUFFER\n" );
854 if (Oif_flags
.HasPipes
)
855 /* NdrGetPipeBuffer(...) */
856 FIXME("pipes not supported yet\n");
859 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
861 NdrNsGetBuffer(&stubMsg
, stubMsg
.BufferLength
, hBinding
);
863 FIXME("using auto handle - call NdrNsGetBuffer when it gets implemented\n");
866 NdrGetBuffer(&stubMsg
, stubMsg
.BufferLength
, hBinding
);
870 TRACE( "MARSHAL\n" );
871 client_do_args(&stubMsg
, pFormat
, STUBLESS_MARSHAL
, fpu_stack
,
872 number_of_params
, (unsigned char *)&RetVal
);
875 TRACE( "SENDRECEIVE\n" );
876 if (Oif_flags
.HasPipes
)
877 /* NdrPipesSendReceive(...) */
878 FIXME("pipes not supported yet\n");
881 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
883 NdrNsSendReceive(&stubMsg
, stubMsg
.Buffer
, pStubDesc
->IMPLICIT_HANDLE_INFO
.pAutoHandle
);
885 FIXME("using auto handle - call NdrNsSendReceive when it gets implemented\n");
888 NdrSendReceive(&stubMsg
, stubMsg
.Buffer
);
891 /* convert strings, floating point values and endianness into our
892 * preferred format */
893 if ((rpcMsg
.DataRepresentation
& 0x0000FFFFUL
) != NDR_LOCAL_DATA_REPRESENTATION
)
894 NdrConvert(&stubMsg
, pFormat
);
897 TRACE( "UNMARSHAL\n" );
898 client_do_args(&stubMsg
, pFormat
, STUBLESS_UNMARSHAL
, fpu_stack
,
899 number_of_params
, (unsigned char *)&RetVal
);
902 if (ext_flags
.HasNewCorrDesc
)
904 /* free extra correlation package */
905 NdrCorrelationFree(&stubMsg
);
908 if (Oif_flags
.HasPipes
)
910 /* NdrPipesDone(...) */
913 /* free the full pointer translation tables */
914 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
915 NdrFullPointerXlatFree(stubMsg
.FullPtrXlatTables
);
917 /* free marshalling buffer */
918 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
919 NdrProxyFreeBuffer(This
, &stubMsg
);
922 NdrFreeBuffer(&stubMsg
);
923 client_free_handle(&stubMsg
, pProcHeader
, pHandleFormat
, hBinding
);
927 TRACE("RetVal = 0x%lx\n", RetVal
);
933 __ASM_GLOBAL_FUNC( NdrClientCall2
,
934 "movq %r8,0x18(%rsp)\n\t"
935 "movq %r9,0x20(%rsp)\n\t"
936 "leaq 0x18(%rsp),%r8\n\t"
938 "subq $0x28,%rsp\n\t"
939 __ASM_CFI(".cfi_adjust_cfa_offset 0x28\n\t")
940 "call " __ASM_NAME("ndr_client_call") "\n\t"
941 "addq $0x28,%rsp\n\t"
942 __ASM_CFI(".cfi_adjust_cfa_offset -0x28\n\t")
945 #else /* __x86_64__ */
947 /***********************************************************************
948 * NdrClientCall2 [RPCRT4.@]
950 CLIENT_CALL_RETURN WINAPIV
NdrClientCall2( PMIDL_STUB_DESC desc
, PFORMAT_STRING format
, ... )
955 __ms_va_start( args
, format
);
956 ret
= ndr_client_call( desc
, format
, va_arg( args
, void ** ), NULL
);
958 return *(CLIENT_CALL_RETURN
*)&ret
;
961 #endif /* __x86_64__ */
963 /* Calls a function with the specified arguments, restoring the stack
964 * properly afterwards as we don't know the calling convention of the
966 #if defined __i386__ && defined _MSC_VER
967 __declspec(naked
) LONG_PTR __cdecl
call_server_func(SERVER_ROUTINE func
, unsigned char * args
, unsigned int stack_size
)
973 push edi
; Save registers
975 mov eax
, [ebp
+16] ; Get stack size
976 sub esp
, eax
; Make room in stack
for arguments
983 rep movsd
; Copy dword blocks
984 call
[ebp
+8] ; Call function
985 lea esp
, [ebp
-8] ; Restore stack
986 pop esi
; Restore registers
992 #elif defined __i386__ && defined __GNUC__
993 LONG_PTR __cdecl
call_server_func(SERVER_ROUTINE func
, unsigned char * args
, unsigned int stack_size
);
994 __ASM_GLOBAL_FUNC(call_server_func
,
996 __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
997 __ASM_CFI(".cfi_rel_offset %ebp,0\n\t")
999 __ASM_CFI(".cfi_def_cfa_register %ebp\n\t")
1000 "pushl %edi\n\t" /* Save registers */
1001 __ASM_CFI(".cfi_rel_offset %edi,-4\n\t")
1003 __ASM_CFI(".cfi_rel_offset %esi,-8\n\t")
1004 "movl 16(%ebp), %eax\n\t" /* Get stack size */
1005 "subl %eax, %esp\n\t" /* Make room in stack for arguments */
1006 "andl $~15, %esp\n\t" /* Make sure stack has 16-byte alignment for Mac OS X */
1007 "movl %esp, %edi\n\t"
1008 "movl %eax, %ecx\n\t"
1009 "movl 12(%ebp), %esi\n\t"
1010 "shrl $2, %ecx\n\t" /* divide by 4 */
1012 "rep; movsl\n\t" /* Copy dword blocks */
1013 "call *8(%ebp)\n\t" /* Call function */
1014 "leal -8(%ebp), %esp\n\t" /* Restore stack */
1015 "popl %esi\n\t" /* Restore registers */
1016 __ASM_CFI(".cfi_same_value %esi\n\t")
1018 __ASM_CFI(".cfi_same_value %edi\n\t")
1020 __ASM_CFI(".cfi_def_cfa %esp,4\n\t")
1021 __ASM_CFI(".cfi_same_value %ebp\n\t")
1023 #elif defined __x86_64__
1024 LONG_PTR __cdecl
call_server_func(SERVER_ROUTINE func
, unsigned char * args
, unsigned int stack_size
);
1025 __ASM_GLOBAL_FUNC( call_server_func
,
1027 __ASM_CFI(".cfi_adjust_cfa_offset 8\n\t")
1028 __ASM_CFI(".cfi_rel_offset %rbp,0\n\t")
1029 "movq %rsp,%rbp\n\t"
1030 __ASM_CFI(".cfi_def_cfa_register %rbp\n\t")
1032 __ASM_CFI(".cfi_rel_offset %rsi,-8\n\t")
1034 __ASM_CFI(".cfi_rel_offset %rdi,-16\n\t")
1035 "movq %rcx,%rax\n\t" /* function to call */
1036 "movq $32,%rcx\n\t" /* allocate max(32,stack_size) bytes of stack space */
1038 "cmovgq %r8,%rcx\n\t"
1039 "subq %rcx,%rsp\n\t"
1040 "andq $~15,%rsp\n\t"
1043 "movq %rsp,%rdi\n\t"
1044 "movq %rdx,%rsi\n\t"
1045 "rep; movsq\n\t" /* copy arguments */
1046 "movq 0(%rsp),%rcx\n\t"
1047 "movq 8(%rsp),%rdx\n\t"
1048 "movq 16(%rsp),%r8\n\t"
1049 "movq 24(%rsp),%r9\n\t"
1050 "movq %rcx,%xmm0\n\t"
1051 "movq %rdx,%xmm1\n\t"
1052 "movq %r8,%xmm2\n\t"
1053 "movq %r9,%xmm3\n\t"
1055 "leaq -16(%rbp),%rsp\n\t" /* restore stack */
1057 __ASM_CFI(".cfi_same_value %rdi\n\t")
1059 __ASM_CFI(".cfi_same_value %rsi\n\t")
1060 __ASM_CFI(".cfi_def_cfa_register %rsp\n\t")
1062 __ASM_CFI(".cfi_adjust_cfa_offset -8\n\t")
1063 __ASM_CFI(".cfi_same_value %rbp\n\t")
1066 #warning call_server_func not implemented for your architecture
1067 LONG_PTR __cdecl
call_server_func(SERVER_ROUTINE func
, unsigned char * args
, unsigned short stack_size
)
1069 FIXME("Not implemented for your architecture\n");
1074 static LONG_PTR
*stub_do_args(MIDL_STUB_MESSAGE
*pStubMsg
,
1075 PFORMAT_STRING pFormat
, enum stubless_phase phase
,
1076 unsigned short number_of_params
)
1078 const NDR_PARAM_OIF
*params
= (const NDR_PARAM_OIF
*)pFormat
;
1080 LONG_PTR
*retval_ptr
= NULL
;
1082 for (i
= 0; i
< number_of_params
; i
++)
1084 unsigned char *pArg
= pStubMsg
->StackTop
+ params
[i
].stack_offset
;
1085 const unsigned char *pTypeFormat
= &pStubMsg
->StubDesc
->pFormatTypes
[params
[i
].u
.type_offset
];
1087 TRACE("param[%d]: %p -> %p type %02x %s\n", i
,
1088 pArg
, *(unsigned char **)pArg
,
1089 params
[i
].attr
.IsBasetype
? params
[i
].u
.type_format_char
: *pTypeFormat
,
1090 debugstr_PROC_PF( params
[i
].attr
));
1094 case STUBLESS_MARSHAL
:
1095 if (params
[i
].attr
.IsOut
|| params
[i
].attr
.IsReturn
)
1096 call_marshaller(pStubMsg
, pArg
, ¶ms
[i
]);
1099 if (params
[i
].attr
.MustFree
)
1101 call_freer(pStubMsg
, pArg
, ¶ms
[i
]);
1103 else if (params
[i
].attr
.ServerAllocSize
)
1105 HeapFree(GetProcessHeap(), 0, *(void **)pArg
);
1107 else if (params
[i
].attr
.IsOut
&&
1108 !params
[i
].attr
.IsIn
&&
1109 !params
[i
].attr
.IsBasetype
&&
1110 !params
[i
].attr
.IsByValue
)
1112 if (*pTypeFormat
!= RPC_FC_BIND_CONTEXT
) pStubMsg
->pfnFree(*(void **)pArg
);
1115 case STUBLESS_INITOUT
:
1116 if (!params
[i
].attr
.IsIn
&&
1117 params
[i
].attr
.IsOut
&&
1118 !params
[i
].attr
.IsBasetype
&&
1119 !params
[i
].attr
.ServerAllocSize
&&
1120 !params
[i
].attr
.IsByValue
)
1122 if (*pTypeFormat
== RPC_FC_BIND_CONTEXT
)
1124 NDR_SCONTEXT ctxt
= NdrContextHandleInitialize(pStubMsg
, pTypeFormat
);
1125 *(void **)pArg
= NDRSContextValue(ctxt
);
1129 DWORD size
= calc_arg_size(pStubMsg
, pTypeFormat
);
1132 *(void **)pArg
= NdrAllocate(pStubMsg
, size
);
1133 memset(*(void **)pArg
, 0, size
);
1138 case STUBLESS_UNMARSHAL
:
1139 if (params
[i
].attr
.ServerAllocSize
)
1140 *(void **)pArg
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
,
1141 params
[i
].attr
.ServerAllocSize
* 8);
1143 if (params
[i
].attr
.IsIn
)
1144 call_unmarshaller(pStubMsg
, &pArg
, ¶ms
[i
], 0);
1146 case STUBLESS_CALCSIZE
:
1147 if (params
[i
].attr
.IsOut
|| params
[i
].attr
.IsReturn
)
1148 call_buffer_sizer(pStubMsg
, pArg
, ¶ms
[i
]);
1151 RpcRaiseException(RPC_S_INTERNAL_ERROR
);
1153 TRACE("\tmemory addr (after): %p -> %p\n", pArg
, *(unsigned char **)pArg
);
1155 /* make a note of the address of the return value parameter for later */
1156 if (params
[i
].attr
.IsReturn
) retval_ptr
= (LONG_PTR
*)pArg
;
1161 /***********************************************************************
1162 * NdrStubCall2 [RPCRT4.@]
1164 * Unmarshals [in] parameters, calls either a method in an object or a server
1165 * function, marshals any [out] parameters and frees any allocated data.
1168 * Used by stubless MIDL-generated code.
1170 LONG WINAPI
NdrStubCall2(
1171 struct IRpcStubBuffer
* pThis
,
1172 struct IRpcChannelBuffer
* pChannel
,
1173 PRPC_MESSAGE pRpcMsg
,
1174 DWORD
* pdwStubPhase
)
1176 const MIDL_SERVER_INFO
*pServerInfo
;
1177 const MIDL_STUB_DESC
*pStubDesc
;
1178 PFORMAT_STRING pFormat
;
1179 MIDL_STUB_MESSAGE stubMsg
;
1180 /* pointer to start of stack to pass into stub implementation */
1181 unsigned char * args
;
1183 unsigned short stack_size
;
1184 /* number of parameters. optional for client to give it to us */
1185 unsigned int number_of_params
;
1186 /* cache of Oif_flags from v2 procedure header */
1187 INTERPRETER_OPT_FLAGS Oif_flags
= { 0 };
1188 /* cache of extension flags from NDR_PROC_HEADER_EXTS */
1189 INTERPRETER_OPT_FLAGS2 ext_flags
= { 0 };
1190 /* the type of pass we are currently doing */
1191 enum stubless_phase phase
;
1192 /* header for procedure string */
1193 const NDR_PROC_HEADER
*pProcHeader
;
1194 /* location to put retval into */
1195 LONG_PTR
*retval_ptr
= NULL
;
1196 /* correlation cache */
1197 ULONG_PTR NdrCorrCache
[256];
1199 TRACE("pThis %p, pChannel %p, pRpcMsg %p, pdwStubPhase %p\n", pThis
, pChannel
, pRpcMsg
, pdwStubPhase
);
1202 pServerInfo
= CStdStubBuffer_GetServerInfo(pThis
);
1204 pServerInfo
= ((RPC_SERVER_INTERFACE
*)pRpcMsg
->RpcInterfaceInformation
)->InterpreterInfo
;
1206 pStubDesc
= pServerInfo
->pStubDesc
;
1207 pFormat
= pServerInfo
->ProcString
+ pServerInfo
->FmtStringOffset
[pRpcMsg
->ProcNum
];
1208 pProcHeader
= (const NDR_PROC_HEADER
*)&pFormat
[0];
1210 TRACE("NDR Version: 0x%x\n", pStubDesc
->Version
);
1212 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
1214 const NDR_PROC_HEADER_RPC
*header_rpc
= (const NDR_PROC_HEADER_RPC
*)&pFormat
[0];
1215 stack_size
= header_rpc
->stack_size
;
1216 pFormat
+= sizeof(NDR_PROC_HEADER_RPC
);
1221 stack_size
= pProcHeader
->stack_size
;
1222 pFormat
+= sizeof(NDR_PROC_HEADER
);
1225 TRACE("Oi_flags = 0x%02x\n", pProcHeader
->Oi_flags
);
1228 switch (pProcHeader
->handle_type
)
1230 /* explicit binding: parse additional section */
1231 case RPC_FC_BIND_EXPLICIT
:
1232 switch (*pFormat
) /* handle_type */
1234 case RPC_FC_BIND_PRIMITIVE
: /* explicit primitive */
1235 pFormat
+= sizeof(NDR_EHD_PRIMITIVE
);
1237 case RPC_FC_BIND_GENERIC
: /* explicit generic */
1238 pFormat
+= sizeof(NDR_EHD_GENERIC
);
1240 case RPC_FC_BIND_CONTEXT
: /* explicit context */
1241 pFormat
+= sizeof(NDR_EHD_CONTEXT
);
1244 ERR("bad explicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
1245 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
1248 case RPC_FC_BIND_GENERIC
: /* implicit generic */
1249 case RPC_FC_BIND_PRIMITIVE
: /* implicit primitive */
1250 case RPC_FC_CALLBACK_HANDLE
: /* implicit callback */
1251 case RPC_FC_AUTO_HANDLE
: /* implicit auto handle */
1254 ERR("bad implicit binding handle type (0x%02x)\n", pProcHeader
->handle_type
);
1255 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
1258 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
1259 NdrStubInitialize(pRpcMsg
, &stubMsg
, pStubDesc
, pChannel
);
1261 NdrServerInitializeNew(pRpcMsg
, &stubMsg
, pStubDesc
);
1263 /* create the full pointer translation tables, if requested */
1264 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
1265 stubMsg
.FullPtrXlatTables
= NdrFullPointerXlatInit(0,XLAT_SERVER
);
1267 /* store the RPC flags away */
1268 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
1269 pRpcMsg
->RpcFlags
= ((const NDR_PROC_HEADER_RPC
*)pProcHeader
)->rpc_flags
;
1271 /* use alternate memory allocation routines */
1272 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCSSALLOC
)
1274 NdrRpcSsEnableAllocate(&stubMsg
);
1276 FIXME("Set RPCSS memory allocation routines\n");
1279 TRACE("allocating memory for stack of size %x\n", stack_size
);
1281 args
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, stack_size
);
1282 stubMsg
.StackTop
= args
; /* used by conformance of top-level objects */
1284 /* add the implicit This pointer as the first arg to the function if we
1285 * are calling an object method */
1287 *(void **)args
= ((CStdStubBuffer
*)pThis
)->pvServerObject
;
1289 if (pStubDesc
->Version
>= 0x20000) /* -Oicf format */
1291 const NDR_PROC_PARTIAL_OIF_HEADER
*pOIFHeader
= (const NDR_PROC_PARTIAL_OIF_HEADER
*)pFormat
;
1293 Oif_flags
= pOIFHeader
->Oi2Flags
;
1294 number_of_params
= pOIFHeader
->number_of_params
;
1296 pFormat
+= sizeof(NDR_PROC_PARTIAL_OIF_HEADER
);
1298 TRACE("Oif_flags = %s\n", debugstr_INTERPRETER_OPT_FLAGS(Oif_flags
) );
1300 if (Oif_flags
.HasExtensions
)
1302 const NDR_PROC_HEADER_EXTS
*pExtensions
= (const NDR_PROC_HEADER_EXTS
*)pFormat
;
1303 ext_flags
= pExtensions
->Flags2
;
1304 pFormat
+= pExtensions
->Size
;
1307 if (Oif_flags
.HasPipes
)
1309 FIXME("pipes not supported yet\n");
1310 RpcRaiseException(RPC_X_WRONG_STUB_VERSION
); /* FIXME: remove when implemented */
1311 /* init pipes package */
1312 /* NdrPipesInitialize(...) */
1314 if (ext_flags
.HasNewCorrDesc
)
1316 /* initialize extra correlation package */
1317 FIXME("new correlation description not implemented\n");
1318 stubMsg
.fHasNewCorrDesc
= TRUE
;
1323 pFormat
= convert_old_args( &stubMsg
, pFormat
, stack_size
,
1324 pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
,
1325 /* reuse the correlation cache, it's not needed for v1 format */
1326 NdrCorrCache
, sizeof(NdrCorrCache
), &number_of_params
);
1329 /* convert strings, floating point values and endianness into our
1330 * preferred format */
1331 if ((pRpcMsg
->DataRepresentation
& 0x0000FFFFUL
) != NDR_LOCAL_DATA_REPRESENTATION
)
1332 NdrConvert(&stubMsg
, pFormat
);
1334 for (phase
= STUBLESS_UNMARSHAL
; phase
<= STUBLESS_FREE
; phase
++)
1336 TRACE("phase = %d\n", phase
);
1339 case STUBLESS_CALLSERVER
:
1340 /* call the server function */
1341 if (pServerInfo
->ThunkTable
&& pServerInfo
->ThunkTable
[pRpcMsg
->ProcNum
])
1342 pServerInfo
->ThunkTable
[pRpcMsg
->ProcNum
](&stubMsg
);
1345 SERVER_ROUTINE func
;
1348 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
1350 SERVER_ROUTINE
*vtbl
= *(SERVER_ROUTINE
**)((CStdStubBuffer
*)pThis
)->pvServerObject
;
1351 func
= vtbl
[pRpcMsg
->ProcNum
];
1354 func
= pServerInfo
->DispatchTable
[pRpcMsg
->ProcNum
];
1356 /* FIXME: what happens with return values that don't fit into a single register on x86? */
1357 retval
= call_server_func(func
, args
, stack_size
);
1361 TRACE("stub implementation returned 0x%lx\n", retval
);
1362 *retval_ptr
= retval
;
1365 TRACE("void stub implementation\n");
1368 stubMsg
.Buffer
= NULL
;
1369 stubMsg
.BufferLength
= 0;
1372 case STUBLESS_GETBUFFER
:
1373 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
1374 NdrStubGetBuffer(pThis
, pChannel
, &stubMsg
);
1379 pRpcMsg
->BufferLength
= stubMsg
.BufferLength
;
1380 /* allocate buffer for [out] and [ret] params */
1381 Status
= I_RpcGetBuffer(pRpcMsg
);
1383 RpcRaiseException(Status
);
1384 stubMsg
.Buffer
= pRpcMsg
->Buffer
;
1387 case STUBLESS_UNMARSHAL
:
1388 case STUBLESS_INITOUT
:
1389 case STUBLESS_CALCSIZE
:
1390 case STUBLESS_MARSHAL
:
1392 retval_ptr
= stub_do_args(&stubMsg
, pFormat
, phase
, number_of_params
);
1395 ERR("shouldn't reach here. phase %d\n", phase
);
1400 pRpcMsg
->BufferLength
= (unsigned int)(stubMsg
.Buffer
- (unsigned char *)pRpcMsg
->Buffer
);
1402 if (ext_flags
.HasNewCorrDesc
)
1404 /* free extra correlation package */
1405 /* NdrCorrelationFree(&stubMsg); */
1408 if (Oif_flags
.HasPipes
)
1410 /* NdrPipesDone(...) */
1413 /* free the full pointer translation tables */
1414 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
1415 NdrFullPointerXlatFree(stubMsg
.FullPtrXlatTables
);
1417 /* free server function stack */
1418 HeapFree(GetProcessHeap(), 0, args
);
1423 /***********************************************************************
1424 * NdrServerCall2 [RPCRT4.@]
1426 void WINAPI
NdrServerCall2(PRPC_MESSAGE pRpcMsg
)
1429 NdrStubCall2(NULL
, NULL
, pRpcMsg
, &dwPhase
);
1432 /***********************************************************************
1433 * NdrStubCall [RPCRT4.@]
1435 LONG WINAPI
NdrStubCall( struct IRpcStubBuffer
*This
, struct IRpcChannelBuffer
*channel
,
1436 PRPC_MESSAGE msg
, DWORD
*phase
)
1438 return NdrStubCall2( This
, channel
, msg
, phase
);
1441 /***********************************************************************
1442 * NdrServerCall [RPCRT4.@]
1444 void WINAPI
NdrServerCall( PRPC_MESSAGE msg
)
1447 NdrStubCall( NULL
, NULL
, msg
, &phase
);
1450 struct async_call_data
1452 MIDL_STUB_MESSAGE
*pStubMsg
;
1453 const NDR_PROC_HEADER
*pProcHeader
;
1454 PFORMAT_STRING pHandleFormat
;
1455 PFORMAT_STRING pParamFormat
;
1456 RPC_BINDING_HANDLE hBinding
;
1458 unsigned short stack_size
;
1459 /* number of parameters. optional for client to give it to us */
1460 unsigned int number_of_params
;
1461 /* correlation cache */
1462 ULONG_PTR NdrCorrCache
[256];
1465 LONG_PTR CDECL
ndr_async_client_call( PMIDL_STUB_DESC pStubDesc
, PFORMAT_STRING pFormat
, void **stack_top
)
1467 /* pointer to start of stack where arguments start */
1468 PRPC_MESSAGE pRpcMsg
;
1469 PMIDL_STUB_MESSAGE pStubMsg
;
1470 RPC_ASYNC_STATE
*pAsync
;
1471 struct async_call_data
*async_call_data
;
1472 /* procedure number */
1473 unsigned short procedure_number
;
1474 /* cache of Oif_flags from v2 procedure header */
1475 INTERPRETER_OPT_FLAGS Oif_flags
= { 0 };
1476 /* cache of extension flags from NDR_PROC_HEADER_EXTS */
1477 INTERPRETER_OPT_FLAGS2 ext_flags
= { 0 };
1478 /* header for procedure string */
1479 const NDR_PROC_HEADER
* pProcHeader
= (const NDR_PROC_HEADER
*)&pFormat
[0];
1480 /* -Oif or -Oicf generated format */
1481 BOOL bV2Format
= FALSE
;
1484 TRACE("pStubDesc %p, pFormat %p, ...\n", pStubDesc
, pFormat
);
1486 /* Later NDR language versions probably won't be backwards compatible */
1487 if (pStubDesc
->Version
> 0x50002)
1489 FIXME("Incompatible stub description version: 0x%x\n", pStubDesc
->Version
);
1490 RpcRaiseException(RPC_X_WRONG_STUB_VERSION
);
1493 async_call_data
= I_RpcAllocate(sizeof(*async_call_data
) + sizeof(MIDL_STUB_MESSAGE
) + sizeof(RPC_MESSAGE
));
1494 if (!async_call_data
) RpcRaiseException(ERROR_OUTOFMEMORY
);
1495 async_call_data
->pProcHeader
= pProcHeader
;
1497 async_call_data
->pStubMsg
= pStubMsg
= (PMIDL_STUB_MESSAGE
)(async_call_data
+ 1);
1498 pRpcMsg
= (PRPC_MESSAGE
)(pStubMsg
+ 1);
1500 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
1502 const NDR_PROC_HEADER_RPC
*header_rpc
= (const NDR_PROC_HEADER_RPC
*)&pFormat
[0];
1503 async_call_data
->stack_size
= header_rpc
->stack_size
;
1504 procedure_number
= header_rpc
->proc_num
;
1505 pFormat
+= sizeof(NDR_PROC_HEADER_RPC
);
1509 async_call_data
->stack_size
= pProcHeader
->stack_size
;
1510 procedure_number
= pProcHeader
->proc_num
;
1511 pFormat
+= sizeof(NDR_PROC_HEADER
);
1513 TRACE("stack size: 0x%x\n", async_call_data
->stack_size
);
1514 TRACE("proc num: %d\n", procedure_number
);
1516 /* create the full pointer translation tables, if requested */
1517 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
1518 pStubMsg
->FullPtrXlatTables
= NdrFullPointerXlatInit(0,XLAT_CLIENT
);
1520 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
)
1522 ERR("objects not supported\n");
1523 I_RpcFree(async_call_data
);
1524 RpcRaiseException(RPC_X_BAD_STUB_DATA
);
1527 NdrClientInitializeNew(pRpcMsg
, pStubMsg
, pStubDesc
, procedure_number
);
1529 TRACE("Oi_flags = 0x%02x\n", pProcHeader
->Oi_flags
);
1530 TRACE("MIDL stub version = 0x%x\n", pStubDesc
->MIDLVersion
);
1532 /* needed for conformance of top-level objects */
1533 pStubMsg
->StackTop
= I_RpcAllocate(async_call_data
->stack_size
);
1534 memcpy(pStubMsg
->StackTop
, stack_top
, async_call_data
->stack_size
);
1536 pAsync
= *(RPC_ASYNC_STATE
**)pStubMsg
->StackTop
;
1537 pAsync
->StubInfo
= async_call_data
;
1538 async_call_data
->pHandleFormat
= pFormat
;
1540 pFormat
= client_get_handle(pStubMsg
, pProcHeader
, async_call_data
->pHandleFormat
, &async_call_data
->hBinding
);
1541 if (!pFormat
) goto done
;
1543 bV2Format
= (pStubDesc
->Version
>= 0x20000);
1547 const NDR_PROC_PARTIAL_OIF_HEADER
*pOIFHeader
=
1548 (const NDR_PROC_PARTIAL_OIF_HEADER
*)pFormat
;
1550 Oif_flags
= pOIFHeader
->Oi2Flags
;
1551 async_call_data
->number_of_params
= pOIFHeader
->number_of_params
;
1553 pFormat
+= sizeof(NDR_PROC_PARTIAL_OIF_HEADER
);
1555 TRACE("Oif_flags = %s\n", debugstr_INTERPRETER_OPT_FLAGS(Oif_flags
) );
1557 if (Oif_flags
.HasExtensions
)
1559 const NDR_PROC_HEADER_EXTS
*pExtensions
=
1560 (const NDR_PROC_HEADER_EXTS
*)pFormat
;
1561 ext_flags
= pExtensions
->Flags2
;
1562 pFormat
+= pExtensions
->Size
;
1567 pFormat
= convert_old_args( pStubMsg
, pFormat
, async_call_data
->stack_size
,
1568 pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_OBJECT
,
1569 async_call_data
->NdrCorrCache
, sizeof(async_call_data
->NdrCorrCache
),
1570 &async_call_data
->number_of_params
);
1573 async_call_data
->pParamFormat
= pFormat
;
1575 pStubMsg
->BufferLength
= 0;
1577 /* store the RPC flags away */
1578 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCFLAGS
)
1579 pRpcMsg
->RpcFlags
= ((const NDR_PROC_HEADER_RPC
*)pProcHeader
)->rpc_flags
;
1581 /* use alternate memory allocation routines */
1582 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_RPCSSALLOC
)
1583 NdrRpcSmSetClientToOsf(pStubMsg
);
1585 if (Oif_flags
.HasPipes
)
1587 FIXME("pipes not supported yet\n");
1588 RpcRaiseException(RPC_X_WRONG_STUB_VERSION
); /* FIXME: remove when implemented */
1589 /* init pipes package */
1590 /* NdrPipesInitialize(...) */
1592 if (ext_flags
.HasNewCorrDesc
)
1594 /* initialize extra correlation package */
1595 NdrCorrelationInitialize(pStubMsg
, async_call_data
->NdrCorrCache
, sizeof(async_call_data
->NdrCorrCache
), 0);
1599 * 1. CALCSIZE - calculate the buffer size
1600 * 2. GETBUFFER - allocate the buffer
1601 * 3. MARSHAL - marshal [in] params into the buffer
1602 * 4. SENDRECEIVE - send buffer
1603 * Then in NdrpCompleteAsyncClientCall:
1604 * 1. SENDRECEIVE - receive buffer
1605 * 2. UNMARSHAL - unmarshal [out] params from buffer
1609 TRACE( "CALCSIZE\n" );
1610 client_do_args(pStubMsg
, pFormat
, STUBLESS_CALCSIZE
, NULL
, async_call_data
->number_of_params
, NULL
);
1613 TRACE( "GETBUFFER\n" );
1614 if (Oif_flags
.HasPipes
)
1615 /* NdrGetPipeBuffer(...) */
1616 FIXME("pipes not supported yet\n");
1619 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
1621 NdrNsGetBuffer(pStubMsg
, pStubMsg
->BufferLength
, async_call_data
->hBinding
);
1623 FIXME("using auto handle - call NdrNsGetBuffer when it gets implemented\n");
1626 NdrGetBuffer(pStubMsg
, pStubMsg
->BufferLength
, async_call_data
->hBinding
);
1628 pRpcMsg
->RpcFlags
|= RPC_BUFFER_ASYNC
;
1629 status
= I_RpcAsyncSetHandle(pRpcMsg
, pAsync
);
1630 if (status
!= RPC_S_OK
)
1631 RpcRaiseException(status
);
1634 TRACE( "MARSHAL\n" );
1635 client_do_args(pStubMsg
, pFormat
, STUBLESS_MARSHAL
, NULL
, async_call_data
->number_of_params
, NULL
);
1637 /* 4. SENDRECEIVE */
1639 pRpcMsg
->RpcFlags
|= RPC_BUFFER_ASYNC
;
1640 /* send the [in] params only */
1641 if (Oif_flags
.HasPipes
)
1642 /* NdrPipesSend(...) */
1643 FIXME("pipes not supported yet\n");
1646 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
1648 NdrNsSend(&stubMsg
, stubMsg
.Buffer
, pStubDesc
->IMPLICIT_HANDLE_INFO
.pAutoHandle
);
1650 FIXME("using auto handle - call NdrNsSend when it gets implemented\n");
1654 pStubMsg
->RpcMsg
->BufferLength
= pStubMsg
->Buffer
- (unsigned char *)pStubMsg
->RpcMsg
->Buffer
;
1655 status
= I_RpcSend(pStubMsg
->RpcMsg
);
1656 if (status
!= RPC_S_OK
)
1657 RpcRaiseException(status
);
1662 TRACE("returning 0\n");
1666 RPC_STATUS
NdrpCompleteAsyncClientCall(RPC_ASYNC_STATE
*pAsync
, void *Reply
)
1668 /* pointer to start of stack where arguments start */
1669 PMIDL_STUB_MESSAGE pStubMsg
;
1670 struct async_call_data
*async_call_data
;
1671 /* header for procedure string */
1672 const NDR_PROC_HEADER
* pProcHeader
;
1673 RPC_STATUS status
= RPC_S_OK
;
1675 if (!pAsync
->StubInfo
)
1676 return RPC_S_INVALID_ASYNC_HANDLE
;
1678 async_call_data
= pAsync
->StubInfo
;
1679 pStubMsg
= async_call_data
->pStubMsg
;
1680 pProcHeader
= async_call_data
->pProcHeader
;
1683 * 1. CALCSIZE - calculate the buffer size
1684 * 2. GETBUFFER - allocate the buffer
1685 * 3. MARSHAL - marshal [in] params into the buffer
1686 * 4. SENDRECEIVE - send buffer
1687 * Then in NdrpCompleteAsyncClientCall:
1688 * 1. SENDRECEIVE - receive buffer
1689 * 2. UNMARSHAL - unmarshal [out] params from buffer
1692 /* 1. SENDRECEIVE */
1693 TRACE( "RECEIVE\n" );
1694 pStubMsg
->RpcMsg
->RpcFlags
|= RPC_BUFFER_ASYNC
;
1695 /* receive the [out] params */
1696 if (pProcHeader
->handle_type
== RPC_FC_AUTO_HANDLE
)
1698 NdrNsReceive(&stubMsg
, stubMsg
.Buffer
, pStubDesc
->IMPLICIT_HANDLE_INFO
.pAutoHandle
);
1700 FIXME("using auto handle - call NdrNsReceive when it gets implemented\n");
1704 status
= I_RpcReceive(pStubMsg
->RpcMsg
);
1705 if (status
!= RPC_S_OK
)
1707 pStubMsg
->BufferLength
= pStubMsg
->RpcMsg
->BufferLength
;
1708 pStubMsg
->BufferStart
= pStubMsg
->RpcMsg
->Buffer
;
1709 pStubMsg
->BufferEnd
= pStubMsg
->BufferStart
+ pStubMsg
->BufferLength
;
1710 pStubMsg
->Buffer
= pStubMsg
->BufferStart
;
1713 /* convert strings, floating point values and endianness into our
1714 * preferred format */
1716 if ((pStubMsg
->RpcMsg
.DataRepresentation
& 0x0000FFFFUL
) != NDR_LOCAL_DATA_REPRESENTATION
)
1717 NdrConvert(pStubMsg
, pFormat
);
1721 TRACE( "UNMARSHAL\n" );
1722 client_do_args(pStubMsg
, async_call_data
->pParamFormat
, STUBLESS_UNMARSHAL
,
1723 NULL
, async_call_data
->number_of_params
, Reply
);
1726 if (pStubMsg
->fHasNewCorrDesc
)
1728 /* free extra correlation package */
1729 NdrCorrelationFree(pStubMsg
);
1732 /* free the full pointer translation tables */
1733 if (pProcHeader
->Oi_flags
& RPC_FC_PROC_OIF_FULLPTR
)
1734 NdrFullPointerXlatFree(pStubMsg
->FullPtrXlatTables
);
1736 /* free marshalling buffer */
1737 NdrFreeBuffer(pStubMsg
);
1738 client_free_handle(pStubMsg
, pProcHeader
, async_call_data
->pHandleFormat
, async_call_data
->hBinding
);
1740 I_RpcFree(pStubMsg
->StackTop
);
1741 I_RpcFree(async_call_data
);
1743 TRACE("-- 0x%x\n", status
);
1749 __ASM_GLOBAL_FUNC( NdrAsyncClientCall
,
1750 "movq %r8,0x18(%rsp)\n\t"
1751 "movq %r9,0x20(%rsp)\n\t"
1752 "leaq 0x18(%rsp),%r8\n\t"
1753 "subq $0x28,%rsp\n\t"
1754 __ASM_CFI(".cfi_adjust_cfa_offset 0x28\n\t")
1755 "call " __ASM_NAME("ndr_async_client_call") "\n\t"
1756 "addq $0x28,%rsp\n\t"
1757 __ASM_CFI(".cfi_adjust_cfa_offset -0x28\n\t")
1760 #else /* __x86_64__ */
1762 /***********************************************************************
1763 * NdrAsyncClientCall [RPCRT4.@]
1765 CLIENT_CALL_RETURN WINAPIV
NdrAsyncClientCall( PMIDL_STUB_DESC desc
, PFORMAT_STRING format
, ... )
1770 __ms_va_start( args
, format
);
1771 ret
= ndr_async_client_call( desc
, format
, va_arg( args
, void ** ));
1772 __ms_va_end( args
);
1773 return *(CLIENT_CALL_RETURN
*)&ret
;
1776 #endif /* __x86_64__ */
1778 RPCRTAPI LONG RPC_ENTRY
NdrAsyncStubCall(struct IRpcStubBuffer
* pThis
,
1779 struct IRpcChannelBuffer
* pChannel
, PRPC_MESSAGE pRpcMsg
,
1780 DWORD
* pdwStubPhase
)
1782 FIXME("unimplemented, expect crash!\n");