d3d8: Cleanup the pixelshader handling code a bit.
[wine] / dlls / rpcrt4 / cstub.c
1 /*
2  * COM stub (CStdStubBuffer) implementation
3  *
4  * Copyright 2001 Ove Kåven, TransGaming Technologies
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22 #include "wine/port.h"
23
24 #include <stdarg.h>
25
26 #define COBJMACROS
27
28 #include "windef.h"
29 #include "winbase.h"
30 #include "winerror.h"
31 #include "excpt.h"
32
33 #include "objbase.h"
34 #include "rpcproxy.h"
35
36 #include "wine/debug.h"
37 #include "wine/exception.h"
38
39 #include "cpsf.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(ole);
42
43 #define STUB_HEADER(This) (((const CInterfaceStubHeader*)((This)->lpVtbl))[-1])
44
45 static LONG WINAPI stub_filter(EXCEPTION_POINTERS *eptr)
46 {
47     if (eptr->ExceptionRecord->ExceptionFlags & EXCEPTION_NONCONTINUABLE)
48         return EXCEPTION_CONTINUE_SEARCH;
49     return EXCEPTION_EXECUTE_HANDLER;
50 }
51
52 typedef struct
53 {
54     IUnknownVtbl *base_obj;
55     IRpcStubBuffer *base_stub;
56     CStdStubBuffer stub_buffer;
57 } cstdstubbuffer_delegating_t;
58
59 static inline cstdstubbuffer_delegating_t *impl_from_delegating( IRpcStubBuffer *iface )
60 {
61     return (cstdstubbuffer_delegating_t*)((char *)iface - FIELD_OFFSET(cstdstubbuffer_delegating_t, stub_buffer));
62 }
63
64 HRESULT WINAPI CStdStubBuffer_Construct(REFIID riid,
65                                        LPUNKNOWN pUnkServer,
66                                        PCInterfaceName name,
67                                        CInterfaceStubVtbl *vtbl,
68                                        LPPSFACTORYBUFFER pPSFactory,
69                                        LPRPCSTUBBUFFER *ppStub)
70 {
71   CStdStubBuffer *This;
72   IUnknown *pvServer;
73   HRESULT r;
74   TRACE("(%p,%p,%p,%p) %s\n", pUnkServer, vtbl, pPSFactory, ppStub, name);
75   TRACE("iid=%s\n", debugstr_guid(vtbl->header.piid));
76   TRACE("vtbl=%p\n", &vtbl->Vtbl);
77
78   if (!IsEqualGUID(vtbl->header.piid, riid)) {
79     ERR("IID mismatch during stub creation\n");
80     return RPC_E_UNEXPECTED;
81   }
82
83   r = IUnknown_QueryInterface(pUnkServer, riid, (void**)&pvServer);
84   if(FAILED(r))
85     return r;
86
87   This = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(CStdStubBuffer));
88   if (!This) {
89     IUnknown_Release(pvServer);
90     return E_OUTOFMEMORY;
91   }
92
93   This->lpVtbl = &vtbl->Vtbl;
94   This->RefCount = 1;
95   This->pvServerObject = pvServer;
96   This->pPSFactory = pPSFactory;
97   *ppStub = (LPRPCSTUBBUFFER)This;
98
99   IPSFactoryBuffer_AddRef(pPSFactory);
100   return S_OK;
101 }
102
103 static CRITICAL_SECTION delegating_vtbl_section;
104 static CRITICAL_SECTION_DEBUG critsect_debug =
105 {
106     0, 0, &delegating_vtbl_section,
107     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
108       0, 0, { (DWORD_PTR)(__FILE__ ": delegating_vtbl_section") }
109 };
110 static CRITICAL_SECTION delegating_vtbl_section = { &critsect_debug, -1, 0, 0, 0, 0 };
111
112 typedef struct
113 {
114     DWORD ref;
115     DWORD size;
116     void **methods;
117     IUnknownVtbl vtbl;
118     /* remaining entries in vtbl */
119 } ref_counted_vtbl;
120
121 static struct
122 {
123     ref_counted_vtbl *table;
124 } current_vtbl;
125
126
127 static HRESULT WINAPI delegating_QueryInterface(IUnknown *pUnk, REFIID iid, void **ppv)
128 {
129     *ppv = pUnk;
130     return S_OK;
131 }
132
133 static ULONG WINAPI delegating_AddRef(IUnknown *pUnk)
134 {
135     return 1;
136 }
137
138 static ULONG WINAPI delegating_Release(IUnknown *pUnk)
139 {
140     return 1;
141 }
142
143 #if defined(__i386__)
144
145 /* The idea here is to replace the first param on the stack
146    ie. This (which will point to cstdstubbuffer_delegating_t)
147    with This->stub_buffer.pvServerObject and then jump to the
148    relevant offset in This->stub_buffer.pvServerObject's vtbl.
149 */
150 #include "pshpack1.h"
151 typedef struct {
152     DWORD mov1;    /* mov 0x4(%esp), %eax      8b 44 24 04 */
153     WORD mov2;     /* mov 0x10(%eax), %eax     8b 40 */
154     BYTE sixteen;  /*                          10   */
155     DWORD mov3;    /* mov %eax, 0x4(%esp)      89 44 24 04 */
156     WORD mov4;     /* mov (%eax), %eax         8b 00 */
157     WORD mov5;     /* mov offset(%eax), %eax   8b 80 */
158     DWORD offset;  /*                          xx xx xx xx */
159     WORD jmp;      /* jmp *%eax                ff e0 */
160     BYTE pad[3];   /* lea 0x0(%esi), %esi      8d 76 00 */
161 } vtbl_method_t;
162 #include "poppack.h"
163
164 static void fill_table(IUnknownVtbl *vtbl, void **methods, DWORD num)
165 {
166     vtbl_method_t *method;
167     void **entry;
168     DWORD i;
169
170     vtbl->QueryInterface = delegating_QueryInterface;
171     vtbl->AddRef = delegating_AddRef;
172     vtbl->Release = delegating_Release;
173
174     method = (vtbl_method_t*)methods;
175     entry = (void**)(vtbl + 1);
176
177     for(i = 3; i < num; i++)
178     {
179         *entry = method;
180         method->mov1 = 0x0424448b;
181         method->mov2 = 0x408b;
182         method->sixteen = 0x10;
183         method->mov3 = 0x04244489;
184         method->mov4 = 0x008b;
185         method->mov5 = 0x808b;
186         method->offset = i << 2;
187         method->jmp = 0xe0ff;
188         method->pad[0] = 0x8d;
189         method->pad[1] = 0x76;
190         method->pad[2] = 0x00;
191
192         method++;
193         entry++;
194     }
195 }
196
197 #else  /* __i386__ */
198
199 typedef struct {int dummy;} vtbl_method_t;
200 static void fill_table(IUnknownVtbl *vtbl, void **methods, DWORD num)
201 {
202     ERR("delegated stubs are not supported on this architecture\n");
203 }
204
205 #endif  /* __i386__ */
206
207 void create_delegating_vtbl(DWORD num_methods)
208 {
209     TRACE("%d\n", num_methods);
210     if(num_methods <= 3)
211     {
212         ERR("should have more than %d methods\n", num_methods);
213         return;
214     }
215
216     EnterCriticalSection(&delegating_vtbl_section);
217     if(!current_vtbl.table || num_methods > current_vtbl.table->size)
218     {
219         DWORD size;
220         DWORD old_protect;
221         if(current_vtbl.table && current_vtbl.table->ref == 0)
222         {
223             TRACE("freeing old table\n");
224             VirtualFree(current_vtbl.table->methods, 0, MEM_RELEASE);
225             HeapFree(GetProcessHeap(), 0, current_vtbl.table);
226         }
227         size = (num_methods - 3) * sizeof(vtbl_method_t);
228         current_vtbl.table = HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(ref_counted_vtbl, vtbl) + num_methods * sizeof(void*));
229         current_vtbl.table->ref = 0;
230         current_vtbl.table->size = num_methods;
231         current_vtbl.table->methods = VirtualAlloc(NULL, size, MEM_COMMIT | MEM_RESERVE, PAGE_EXECUTE_READWRITE);
232         fill_table(&current_vtbl.table->vtbl, current_vtbl.table->methods, num_methods);
233         VirtualProtect(current_vtbl.table->methods, size, PAGE_EXECUTE_READ, &old_protect);
234     }
235     LeaveCriticalSection(&delegating_vtbl_section);
236 }
237
238 static IUnknownVtbl *get_delegating_vtbl(void)
239 {
240     IUnknownVtbl *ret;
241
242     EnterCriticalSection(&delegating_vtbl_section);
243     current_vtbl.table->ref++;
244     ret = &current_vtbl.table->vtbl;
245     LeaveCriticalSection(&delegating_vtbl_section);
246     return ret;
247 }
248
249 static void release_delegating_vtbl(IUnknownVtbl *vtbl)
250 {
251     ref_counted_vtbl *table = (ref_counted_vtbl*)((DWORD *)vtbl - 1);
252
253     EnterCriticalSection(&delegating_vtbl_section);
254     table->ref--;
255     TRACE("ref now %d\n", table->ref);
256     if(table->ref == 0 && table != current_vtbl.table)
257     {
258         TRACE("... and we're not current so free'ing\n");
259         VirtualFree(current_vtbl.table->methods, 0, MEM_RELEASE);
260         HeapFree(GetProcessHeap(), 0, table);
261     }
262     LeaveCriticalSection(&delegating_vtbl_section);
263 }
264
265 HRESULT WINAPI CStdStubBuffer_Delegating_Construct(REFIID riid,
266                                                    LPUNKNOWN pUnkServer,
267                                                    PCInterfaceName name,
268                                                    CInterfaceStubVtbl *vtbl,
269                                                    REFIID delegating_iid,
270                                                    LPPSFACTORYBUFFER pPSFactory,
271                                                    LPRPCSTUBBUFFER *ppStub)
272 {
273     cstdstubbuffer_delegating_t *This;
274     IUnknown *pvServer;
275     HRESULT r;
276
277     TRACE("(%p,%p,%p,%p) %s\n", pUnkServer, vtbl, pPSFactory, ppStub, name);
278     TRACE("iid=%s delegating to %s\n", debugstr_guid(vtbl->header.piid), debugstr_guid(delegating_iid));
279     TRACE("vtbl=%p\n", &vtbl->Vtbl);
280
281     if (!IsEqualGUID(vtbl->header.piid, riid))
282     {
283         ERR("IID mismatch during stub creation\n");
284         return RPC_E_UNEXPECTED;
285     }
286
287     r = IUnknown_QueryInterface(pUnkServer, riid, (void**)&pvServer);
288     if(FAILED(r)) return r;
289
290     This = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*This));
291     if (!This)
292     {
293         IUnknown_Release(pvServer);
294         return E_OUTOFMEMORY;
295     }
296
297     This->base_obj = get_delegating_vtbl();
298     r = create_stub(delegating_iid, (IUnknown*)&This->base_obj, &This->base_stub);
299     if(FAILED(r))
300     {
301         release_delegating_vtbl(This->base_obj);
302         HeapFree(GetProcessHeap(), 0, This);
303         IUnknown_Release(pvServer);
304         return r;
305     }
306
307     This->stub_buffer.lpVtbl = &vtbl->Vtbl;
308     This->stub_buffer.RefCount = 1;
309     This->stub_buffer.pvServerObject = pvServer;
310     This->stub_buffer.pPSFactory = pPSFactory;
311     *ppStub = (LPRPCSTUBBUFFER)&This->stub_buffer;
312
313     IPSFactoryBuffer_AddRef(pPSFactory);
314     return S_OK;
315 }
316
317 HRESULT WINAPI CStdStubBuffer_QueryInterface(LPRPCSTUBBUFFER iface,
318                                             REFIID riid,
319                                             LPVOID *obj)
320 {
321   CStdStubBuffer *This = (CStdStubBuffer *)iface;
322   TRACE("(%p)->QueryInterface(%s,%p)\n",This,debugstr_guid(riid),obj);
323
324   if (IsEqualIID(&IID_IUnknown, riid) ||
325       IsEqualIID(&IID_IRpcStubBuffer, riid))
326   {
327     IUnknown_AddRef(iface);
328     *obj = iface;
329     return S_OK;
330   }
331   *obj = NULL;
332   return E_NOINTERFACE;
333 }
334
335 ULONG WINAPI CStdStubBuffer_AddRef(LPRPCSTUBBUFFER iface)
336 {
337   CStdStubBuffer *This = (CStdStubBuffer *)iface;
338   TRACE("(%p)->AddRef()\n",This);
339   return InterlockedIncrement(&This->RefCount);
340 }
341
342 ULONG WINAPI NdrCStdStubBuffer_Release(LPRPCSTUBBUFFER iface,
343                                       LPPSFACTORYBUFFER pPSF)
344 {
345   CStdStubBuffer *This = (CStdStubBuffer *)iface;
346   ULONG refs;
347
348   TRACE("(%p)->Release()\n",This);
349
350   refs = InterlockedDecrement(&This->RefCount);
351   if (!refs)
352   {
353     /* test_Release shows that native doesn't call Disconnect here.
354        We'll leave it in for the time being. */
355     IRpcStubBuffer_Disconnect(iface);
356
357     IPSFactoryBuffer_Release(pPSF);
358     HeapFree(GetProcessHeap(),0,This);
359   }
360   return refs;
361 }
362
363 ULONG WINAPI NdrCStdStubBuffer2_Release(LPRPCSTUBBUFFER iface,
364                                         LPPSFACTORYBUFFER pPSF)
365 {
366     cstdstubbuffer_delegating_t *This = impl_from_delegating( iface );
367     ULONG refs;
368
369     TRACE("(%p)->Release()\n", This);
370
371     refs = InterlockedDecrement(&This->stub_buffer.RefCount);
372     if (!refs)
373     {
374         /* Just like NdrCStdStubBuffer_Release, we shouldn't call
375            Disconnect here */
376         IRpcStubBuffer_Disconnect((IRpcStubBuffer *)&This->stub_buffer);
377
378         IRpcStubBuffer_Release(This->base_stub);
379         release_delegating_vtbl(This->base_obj);
380
381         IPSFactoryBuffer_Release(pPSF);
382         HeapFree(GetProcessHeap(), 0, This);
383     }
384
385     return refs;
386 }
387
388 HRESULT WINAPI CStdStubBuffer_Connect(LPRPCSTUBBUFFER iface,
389                                      LPUNKNOWN lpUnkServer)
390 {
391     CStdStubBuffer *This = (CStdStubBuffer *)iface;
392     HRESULT r;
393     IUnknown *new = NULL;
394
395     TRACE("(%p)->Connect(%p)\n",This,lpUnkServer);
396
397     r = IUnknown_QueryInterface(lpUnkServer, STUB_HEADER(This).piid, (void**)&new);
398     new = InterlockedExchangePointer((void**)&This->pvServerObject, new);
399     if(new)
400         IUnknown_Release(new);
401     return r;
402 }
403
404 void WINAPI CStdStubBuffer_Disconnect(LPRPCSTUBBUFFER iface)
405 {
406     CStdStubBuffer *This = (CStdStubBuffer *)iface;
407     IUnknown *old;
408     TRACE("(%p)->Disconnect()\n",This);
409
410     old = InterlockedExchangePointer((void**)&This->pvServerObject, NULL);
411
412     if(old)
413         IUnknown_Release(old);
414 }
415
416 HRESULT WINAPI CStdStubBuffer_Invoke(LPRPCSTUBBUFFER iface,
417                                     PRPCOLEMESSAGE pMsg,
418                                     LPRPCCHANNELBUFFER pChannel)
419 {
420   CStdStubBuffer *This = (CStdStubBuffer *)iface;
421   DWORD dwPhase = STUB_UNMARSHAL;
422   HRESULT hr = S_OK;
423
424   TRACE("(%p)->Invoke(%p,%p)\n",This,pMsg,pChannel);
425
426   __TRY
427   {
428     if (STUB_HEADER(This).pDispatchTable)
429       STUB_HEADER(This).pDispatchTable[pMsg->iMethod](iface, pChannel, (PRPC_MESSAGE)pMsg, &dwPhase);
430     else /* pure interpreted */
431       NdrStubCall2(iface, pChannel, (PRPC_MESSAGE)pMsg, &dwPhase);
432   }
433   __EXCEPT(stub_filter)
434   {
435     DWORD dwExceptionCode = GetExceptionCode();
436     WARN("a stub call failed with exception 0x%08x (%d)\n", dwExceptionCode, dwExceptionCode);
437     if (FAILED(dwExceptionCode))
438       hr = dwExceptionCode;
439     else
440       hr = HRESULT_FROM_WIN32(dwExceptionCode);
441   }
442   __ENDTRY
443
444   return hr;
445 }
446
447 LPRPCSTUBBUFFER WINAPI CStdStubBuffer_IsIIDSupported(LPRPCSTUBBUFFER iface,
448                                                     REFIID riid)
449 {
450   CStdStubBuffer *This = (CStdStubBuffer *)iface;
451   TRACE("(%p)->IsIIDSupported(%s)\n",This,debugstr_guid(riid));
452   return IsEqualGUID(STUB_HEADER(This).piid, riid) ? iface : NULL;
453 }
454
455 ULONG WINAPI CStdStubBuffer_CountRefs(LPRPCSTUBBUFFER iface)
456 {
457   CStdStubBuffer *This = (CStdStubBuffer *)iface;
458   TRACE("(%p)->CountRefs()\n",This);
459   return This->RefCount;
460 }
461
462 HRESULT WINAPI CStdStubBuffer_DebugServerQueryInterface(LPRPCSTUBBUFFER iface,
463                                                        LPVOID *ppv)
464 {
465   CStdStubBuffer *This = (CStdStubBuffer *)iface;
466   TRACE("(%p)->DebugServerQueryInterface(%p)\n",This,ppv);
467   return S_OK;
468 }
469
470 void WINAPI CStdStubBuffer_DebugServerRelease(LPRPCSTUBBUFFER iface,
471                                              LPVOID pv)
472 {
473   CStdStubBuffer *This = (CStdStubBuffer *)iface;
474   TRACE("(%p)->DebugServerRelease(%p)\n",This,pv);
475 }
476
477 const IRpcStubBufferVtbl CStdStubBuffer_Vtbl =
478 {
479     CStdStubBuffer_QueryInterface,
480     CStdStubBuffer_AddRef,
481     NULL,
482     CStdStubBuffer_Connect,
483     CStdStubBuffer_Disconnect,
484     CStdStubBuffer_Invoke,
485     CStdStubBuffer_IsIIDSupported,
486     CStdStubBuffer_CountRefs,
487     CStdStubBuffer_DebugServerQueryInterface,
488     CStdStubBuffer_DebugServerRelease
489 };
490
491 static HRESULT WINAPI CStdStubBuffer_Delegating_Connect(LPRPCSTUBBUFFER iface,
492                                                         LPUNKNOWN lpUnkServer)
493 {
494     cstdstubbuffer_delegating_t *This = impl_from_delegating(iface);
495     HRESULT r;
496     TRACE("(%p)->Connect(%p)\n", This, lpUnkServer);
497
498     r = CStdStubBuffer_Connect(iface, lpUnkServer);
499     if(SUCCEEDED(r))
500         r = IRpcStubBuffer_Connect(This->base_stub, (IUnknown*)&This->base_obj);
501
502     return r;
503 }
504
505 static void WINAPI CStdStubBuffer_Delegating_Disconnect(LPRPCSTUBBUFFER iface)
506 {
507     cstdstubbuffer_delegating_t *This = impl_from_delegating(iface);
508     TRACE("(%p)->Disconnect()\n", This);
509
510     IRpcStubBuffer_Disconnect(This->base_stub);
511     CStdStubBuffer_Disconnect(iface);
512 }
513
514 static ULONG WINAPI CStdStubBuffer_Delegating_CountRefs(LPRPCSTUBBUFFER iface)
515 {
516     cstdstubbuffer_delegating_t *This = impl_from_delegating(iface);
517     ULONG ret;
518     TRACE("(%p)->CountRefs()\n", This);
519
520     ret = CStdStubBuffer_CountRefs(iface);
521     ret += IRpcStubBuffer_CountRefs(This->base_stub);
522
523     return ret;
524 }
525
526 const IRpcStubBufferVtbl CStdStubBuffer_Delegating_Vtbl =
527 {
528     CStdStubBuffer_QueryInterface,
529     CStdStubBuffer_AddRef,
530     NULL,
531     CStdStubBuffer_Delegating_Connect,
532     CStdStubBuffer_Delegating_Disconnect,
533     CStdStubBuffer_Invoke,
534     CStdStubBuffer_IsIIDSupported,
535     CStdStubBuffer_Delegating_CountRefs,
536     CStdStubBuffer_DebugServerQueryInterface,
537     CStdStubBuffer_DebugServerRelease
538 };
539
540 const MIDL_SERVER_INFO *CStdStubBuffer_GetServerInfo(IRpcStubBuffer *iface)
541 {
542   CStdStubBuffer *This = (CStdStubBuffer *)iface;
543   return STUB_HEADER(This).pServerInfo;
544 }
545
546 /************************************************************************
547  *           NdrStubForwardingFunction [RPCRT4.@]
548  */
549 void __RPC_STUB NdrStubForwardingFunction( IRpcStubBuffer *iface, IRpcChannelBuffer *pChannel,
550                                            PRPC_MESSAGE pMsg, DWORD *pdwStubPhase )
551 {
552     /* Note pMsg is passed intact since RPCOLEMESSAGE is basically a RPC_MESSAGE. */
553
554     cstdstubbuffer_delegating_t *This = impl_from_delegating(iface);
555     HRESULT r = IRpcStubBuffer_Invoke(This->base_stub, (RPCOLEMESSAGE*)pMsg, pChannel);
556     if(FAILED(r)) RpcRaiseException(r);
557     return;
558 }
559
560 /***********************************************************************
561  *           NdrStubInitialize [RPCRT4.@]
562  */
563 void WINAPI NdrStubInitialize(PRPC_MESSAGE pRpcMsg,
564                              PMIDL_STUB_MESSAGE pStubMsg,
565                              PMIDL_STUB_DESC pStubDescriptor,
566                              LPRPCCHANNELBUFFER pRpcChannelBuffer)
567 {
568   TRACE("(%p,%p,%p,%p)\n", pRpcMsg, pStubMsg, pStubDescriptor, pRpcChannelBuffer);
569   NdrServerInitializeNew(pRpcMsg, pStubMsg, pStubDescriptor);
570   pStubMsg->pRpcChannelBuffer = pRpcChannelBuffer;
571   IRpcChannelBuffer_GetDestCtx(pStubMsg->pRpcChannelBuffer,
572                                &pStubMsg->dwDestContext,
573                                &pStubMsg->pvDestContext);
574 }
575
576 /***********************************************************************
577  *           NdrStubGetBuffer [RPCRT4.@]
578  */
579 void WINAPI NdrStubGetBuffer(LPRPCSTUBBUFFER iface,
580                             LPRPCCHANNELBUFFER pRpcChannelBuffer,
581                             PMIDL_STUB_MESSAGE pStubMsg)
582 {
583   CStdStubBuffer *This = (CStdStubBuffer *)iface;
584   HRESULT hr;
585
586   TRACE("(%p, %p, %p)\n", This, pRpcChannelBuffer, pStubMsg);
587
588   pStubMsg->RpcMsg->BufferLength = pStubMsg->BufferLength;
589   hr = IRpcChannelBuffer_GetBuffer(pRpcChannelBuffer,
590     (RPCOLEMESSAGE *)pStubMsg->RpcMsg, STUB_HEADER(This).piid);
591   if (FAILED(hr))
592   {
593     RpcRaiseException(hr);
594     return;
595   }
596
597   pStubMsg->Buffer = pStubMsg->RpcMsg->Buffer;
598 }