4 * Copyright 1997 Marcus Meissner
18 #include "wine/obj_base.h"
19 #include "wine/winbase16.h"
23 #include "debugtools.h"
25 DEFAULT_DEBUG_CHANNEL(relay
);
27 /* --- IUnknown implementation */
32 ICOM_VFIELD(IUnknown
);
36 /******************************************************************************
37 * IUnknown_AddRef [VTABLE:IUNKNOWN.1]
39 static ULONG WINAPI
IUnknown_fnAddRef(LPUNKNOWN iface
) {
40 ICOM_THIS(IUnknownImpl
,iface
);
41 TRACE("(%p)->AddRef()\n",This
);
45 /******************************************************************************
46 * IUnknown_Release [VTABLE:IUNKNOWN.2]
48 static ULONG WINAPI
IUnknown_fnRelease(LPUNKNOWN iface
) {
49 ICOM_THIS(IUnknownImpl
,iface
);
50 TRACE("(%p)->Release()\n",This
);
52 HeapFree(GetProcessHeap(),0,This
);
58 /******************************************************************************
59 * IUnknown_QueryInterface [VTABLE:IUNKNOWN.0]
61 static HRESULT WINAPI
IUnknown_fnQueryInterface(LPUNKNOWN iface
,REFIID refiid
,LPVOID
*obj
) {
62 ICOM_THIS(IUnknownImpl
,iface
);
64 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
66 if (!memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
))) {
70 return OLE_E_ENUM_NOMORE
;
73 static ICOM_VTABLE(IUnknown
) uvt
=
75 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
76 IUnknown_fnQueryInterface
,
81 /******************************************************************************
82 * IUnknown_Constructor [INTERNAL]
85 IUnknown_Constructor() {
88 unk
= (IUnknownImpl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IUnknownImpl
));
89 ICOM_VTBL(unk
) = &uvt
;
91 return (LPUNKNOWN
)unk
;
95 /* --- IMalloc16 implementation */
100 /* IUnknown fields */
101 ICOM_VFIELD(IMalloc16
);
103 /* IMalloc16 fields */
106 /******************************************************************************
107 * IMalloc16_QueryInterface [COMPOBJ.500]
109 HRESULT WINAPI
IMalloc16_fnQueryInterface(IMalloc16
* iface
,REFIID refiid
,LPVOID
*obj
) {
110 ICOM_THIS(IMalloc16Impl
,iface
);
112 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
113 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
114 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
119 return OLE_E_ENUM_NOMORE
;
122 /******************************************************************************
123 * IMalloc16_AddRef [COMPOBJ.501]
125 ULONG WINAPI
IMalloc16_fnAddRef(IMalloc16
* iface
) {
126 ICOM_THIS(IMalloc16Impl
,iface
);
127 TRACE("(%p)->AddRef()\n",This
);
128 return 1; /* cannot be freed */
131 /******************************************************************************
132 * IMalloc16_Release [COMPOBJ.502]
134 ULONG WINAPI
IMalloc16_fnRelease(IMalloc16
* iface
) {
135 ICOM_THIS(IMalloc16Impl
,iface
);
136 TRACE("(%p)->Release()\n",This
);
137 return 1; /* cannot be freed */
140 /******************************************************************************
141 * IMalloc16_Alloc [COMPOBJ.503]
143 SEGPTR WINAPI
IMalloc16_fnAlloc(IMalloc16
* iface
,DWORD cb
) {
144 ICOM_THIS(IMalloc16Impl
,iface
);
145 TRACE("(%p)->Alloc(%ld)\n",This
,cb
);
146 return MapLS( HeapAlloc( GetProcessHeap(), HEAP_WINE_SEGPTR
, cb
) );
149 /******************************************************************************
150 * IMalloc16_Realloc [COMPOBJ.504]
152 SEGPTR WINAPI
IMalloc16_fnRealloc(IMalloc16
* iface
,SEGPTR pv
,DWORD cb
) {
153 ICOM_THIS(IMalloc16Impl
,iface
);
154 TRACE("(%p)->Realloc(%08lx,%ld)\n",This
,pv
,cb
);
155 return MapLS( HeapReAlloc( GetProcessHeap(), HEAP_WINE_SEGPTR
, MapSL(pv
), cb
) );
158 /******************************************************************************
159 * IMalloc16_Free [COMPOBJ.505]
161 VOID WINAPI
IMalloc16_fnFree(IMalloc16
* iface
,SEGPTR pv
) {
162 ICOM_THIS(IMalloc16Impl
,iface
);
163 TRACE("(%p)->Free(%08lx)\n",This
,pv
);
164 HeapFree( GetProcessHeap(), HEAP_WINE_SEGPTR
, MapSL(pv
) );
167 /******************************************************************************
168 * IMalloc16_GetSize [COMPOBJ.506]
170 DWORD WINAPI
IMalloc16_fnGetSize(const IMalloc16
* iface
,SEGPTR pv
)
172 ICOM_CTHIS(IMalloc16Impl
,iface
);
173 TRACE("(%p)->GetSize(%08lx)\n",This
,pv
);
174 return HeapSize( GetProcessHeap(), HEAP_WINE_SEGPTR
, MapSL(pv
) );
177 /******************************************************************************
178 * IMalloc16_DidAlloc [COMPOBJ.507]
180 INT16 WINAPI
IMalloc16_fnDidAlloc(const IMalloc16
* iface
,LPVOID pv
) {
181 ICOM_CTHIS(IMalloc16
,iface
);
182 TRACE("(%p)->DidAlloc(%p)\n",This
,pv
);
186 /******************************************************************************
187 * IMalloc16_HeapMinimize [COMPOBJ.508]
189 LPVOID WINAPI
IMalloc16_fnHeapMinimize(IMalloc16
* iface
) {
190 ICOM_THIS(IMalloc16Impl
,iface
);
191 TRACE("(%p)->HeapMinimize()\n",This
);
195 static ICOM_VTABLE(IMalloc16
)* msegvt16
= NULL
;
197 /******************************************************************************
198 * IMalloc16_Constructor [VTABLE]
201 IMalloc16_Constructor() {
203 HMODULE16 hcomp
= GetModuleHandle16("COMPOBJ");
205 This
= (IMalloc16Impl
*)SEGPTR_NEW(IMalloc16Impl
);
207 msegvt16
= SEGPTR_NEW(ICOM_VTABLE(IMalloc16
));
209 #define VTENT(x) msegvt16->x = (void*)GetProcAddress16(hcomp,"IMalloc16_"#x);assert(msegvt16->x)
210 VTENT(QueryInterface
);
221 ICOM_VTBL(This
) = (ICOM_VTABLE(IMalloc16
)*)SEGPTR_GET(msegvt16
);
223 return (LPMALLOC16
)SEGPTR_GET(This
);
227 /* --- IMalloc32 implementation */
231 /* IUnknown fields */
232 ICOM_VFIELD(IMalloc
);
236 /******************************************************************************
237 * IMalloc32_QueryInterface [VTABLE]
239 static HRESULT WINAPI
IMalloc_fnQueryInterface(LPMALLOC iface
,REFIID refiid
,LPVOID
*obj
) {
240 ICOM_THIS(IMalloc32Impl
,iface
);
242 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
243 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
244 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
249 return OLE_E_ENUM_NOMORE
;
252 /******************************************************************************
253 * IMalloc32_AddRef [VTABLE]
255 static ULONG WINAPI
IMalloc_fnAddRef(LPMALLOC iface
) {
256 ICOM_THIS(IMalloc32Impl
,iface
);
257 TRACE("(%p)->AddRef()\n",This
);
258 return 1; /* cannot be freed */
261 /******************************************************************************
262 * IMalloc32_Release [VTABLE]
264 static ULONG WINAPI
IMalloc_fnRelease(LPMALLOC iface
) {
265 ICOM_THIS(IMalloc32Impl
,iface
);
266 TRACE("(%p)->Release()\n",This
);
267 return 1; /* cannot be freed */
270 /******************************************************************************
271 * IMalloc32_Alloc [VTABLE]
273 static LPVOID WINAPI
IMalloc_fnAlloc(LPMALLOC iface
,DWORD cb
) {
275 ICOM_THIS(IMalloc32Impl
,iface
);
276 addr
= HeapAlloc(GetProcessHeap(),0,cb
);
277 TRACE("(%p)->Alloc(%ld) -> %p\n",This
,cb
,addr
);
281 /******************************************************************************
282 * IMalloc32_Realloc [VTABLE]
284 static LPVOID WINAPI
IMalloc_fnRealloc(LPMALLOC iface
,LPVOID pv
,DWORD cb
) {
285 ICOM_THIS(IMalloc32Impl
,iface
);
286 TRACE("(%p)->Realloc(%p,%ld)\n",This
,pv
,cb
);
287 return HeapReAlloc(GetProcessHeap(),0,pv
,cb
);
290 /******************************************************************************
291 * IMalloc32_Free [VTABLE]
293 static VOID WINAPI
IMalloc_fnFree(LPMALLOC iface
,LPVOID pv
) {
294 ICOM_THIS(IMalloc32Impl
,iface
);
295 TRACE("(%p)->Free(%p)\n",This
,pv
);
296 HeapFree(GetProcessHeap(),0,pv
);
299 /******************************************************************************
300 * IMalloc32_GetSize [VTABLE]
302 static DWORD WINAPI
IMalloc_fnGetSize(LPMALLOC iface
,LPVOID pv
) {
303 ICOM_CTHIS(IMalloc
,iface
);
304 TRACE("(%p)->GetSize(%p)\n",This
,pv
);
305 return HeapSize(GetProcessHeap(),0,pv
);
308 /******************************************************************************
309 * IMalloc32_DidAlloc [VTABLE]
311 static INT WINAPI
IMalloc_fnDidAlloc(LPMALLOC iface
,LPVOID pv
) {
312 ICOM_CTHIS(IMalloc32Impl
,iface
);
313 TRACE("(%p)->DidAlloc(%p)\n",This
,pv
);
317 /******************************************************************************
318 * IMalloc32_HeapMinimize [VTABLE]
320 static VOID WINAPI
IMalloc_fnHeapMinimize(LPMALLOC iface
) {
321 ICOM_THIS(IMalloc32Impl
,iface
);
322 TRACE("(%p)->HeapMinimize()\n",This
);
325 static ICOM_VTABLE(IMalloc
) VT_IMalloc32
=
327 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
328 IMalloc_fnQueryInterface
,
336 IMalloc_fnHeapMinimize
339 /******************************************************************************
340 * IMalloc32_Constructor [VTABLE]
343 IMalloc_Constructor() {
346 This
= (IMalloc32Impl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IMalloc32Impl
));
347 ICOM_VTBL(This
) = &VT_IMalloc32
;
349 return (LPMALLOC
)This
;
352 /****************************************************************************
356 /******************************************************************************
357 * IsValidInterface [OLE32.78]
360 * True, if the passed pointer is a valid interface
362 BOOL WINAPI
IsValidInterface(
363 LPUNKNOWN punk
/* [in] interface to be tested */
366 IsBadReadPtr(punk
,4) ||
367 IsBadReadPtr(ICOM_VTBL(punk
),4) ||
368 IsBadReadPtr(ICOM_VTBL(punk
)->QueryInterface
,9) ||
369 IsBadCodePtr((FARPROC
)ICOM_VTBL(punk
)->QueryInterface
)