4 * Copyright 1997 Marcus Meissner
14 #include "wine/winbase16.h"
15 #include "wine/obj_base.h"
18 #include "debugtools.h"
23 DEFAULT_DEBUG_CHANNEL(relay
);
25 /* --- IUnknown implementation */
30 ICOM_VFIELD(IUnknown
);
34 /******************************************************************************
35 * IUnknown_AddRef [VTABLE:IUNKNOWN.1]
37 static ULONG WINAPI
IUnknown_fnAddRef(LPUNKNOWN iface
) {
38 ICOM_THIS(IUnknownImpl
,iface
);
39 TRACE("(%p)->AddRef()\n",This
);
43 /******************************************************************************
44 * IUnknown_Release [VTABLE:IUNKNOWN.2]
46 static ULONG WINAPI
IUnknown_fnRelease(LPUNKNOWN iface
) {
47 ICOM_THIS(IUnknownImpl
,iface
);
48 TRACE("(%p)->Release()\n",This
);
50 HeapFree(GetProcessHeap(),0,This
);
56 /******************************************************************************
57 * IUnknown_QueryInterface [VTABLE:IUNKNOWN.0]
59 static HRESULT WINAPI
IUnknown_fnQueryInterface(LPUNKNOWN iface
,REFIID refiid
,LPVOID
*obj
) {
60 ICOM_THIS(IUnknownImpl
,iface
);
62 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
64 if (!memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
))) {
68 return OLE_E_ENUM_NOMORE
;
71 static ICOM_VTABLE(IUnknown
) uvt
=
73 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
74 IUnknown_fnQueryInterface
,
79 /******************************************************************************
80 * IUnknown_Constructor [INTERNAL]
83 IUnknown_Constructor() {
86 unk
= (IUnknownImpl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IUnknownImpl
));
87 ICOM_VTBL(unk
) = &uvt
;
89 return (LPUNKNOWN
)unk
;
93 /* --- IMalloc16 implementation */
99 ICOM_VFIELD(IMalloc16
);
101 /* IMalloc16 fields */
102 /* Gmm, I think one is not enough, we should probably manage a list of
108 /******************************************************************************
109 * IMalloc16_QueryInterface [COMPOBJ.500]
111 HRESULT WINAPI
IMalloc16_fnQueryInterface(IMalloc16
* iface
,REFIID refiid
,LPVOID
*obj
) {
112 ICOM_THIS(IMalloc16Impl
,iface
);
114 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
115 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
116 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
121 return OLE_E_ENUM_NOMORE
;
124 /******************************************************************************
125 * IMalloc16_AddRef [COMPOBJ.501]
127 ULONG WINAPI
IMalloc16_fnAddRef(IMalloc16
* iface
) {
128 ICOM_THIS(IMalloc16Impl
,iface
);
129 TRACE("(%p)->AddRef()\n",This
);
130 return 1; /* cannot be freed */
133 /******************************************************************************
134 * IMalloc16_Release [COMPOBJ.502]
136 ULONG WINAPI
IMalloc16_fnRelease(IMalloc16
* iface
) {
137 ICOM_THIS(IMalloc16Impl
,iface
);
138 TRACE("(%p)->Release()\n",This
);
139 return 1; /* cannot be freed */
142 /******************************************************************************
143 * IMalloc16_Alloc [COMPOBJ.503]
145 LPVOID WINAPI
IMalloc16_fnAlloc(IMalloc16
* iface
,DWORD cb
) {
146 ICOM_THIS(IMalloc16Impl
,iface
);
147 TRACE("(%p)->Alloc(%ld)\n",This
,cb
);
148 return (LPVOID
)PTR_SEG_OFF_TO_SEGPTR(This
->heap
,LOCAL_Alloc(This
->heap
,0,cb
));
151 /******************************************************************************
152 * IMalloc16_Realloc [COMPOBJ.504]
154 LPVOID WINAPI
IMalloc16_fnRealloc(IMalloc16
* iface
,LPVOID pv
,DWORD cb
) {
155 ICOM_THIS(IMalloc16Impl
,iface
);
156 TRACE("(%p)->Realloc(%p,%ld)\n",This
,pv
,cb
);
157 return (LPVOID
)PTR_SEG_OFF_TO_SEGPTR(This
->heap
,LOCAL_ReAlloc(This
->heap
,0,LOWORD(pv
),cb
));
160 /******************************************************************************
161 * IMalloc16_Free [COMPOBJ.505]
163 VOID WINAPI
IMalloc16_fnFree(IMalloc16
* iface
,LPVOID pv
) {
164 ICOM_THIS(IMalloc16Impl
,iface
);
165 TRACE("(%p)->Free(%p)\n",This
,pv
);
166 LOCAL_Free(This
->heap
,LOWORD(pv
));
169 /******************************************************************************
170 * IMalloc16_GetSize [COMPOBJ.506]
172 DWORD WINAPI
IMalloc16_fnGetSize(const IMalloc16
* iface
,LPVOID pv
) {
173 ICOM_CTHIS(IMalloc16Impl
,iface
);
174 TRACE("(%p)->GetSize(%p)\n",This
,pv
);
175 return LOCAL_Size(This
->heap
,LOWORD(pv
));
178 /******************************************************************************
179 * IMalloc16_DidAlloc [COMPOBJ.507]
181 INT16 WINAPI
IMalloc16_fnDidAlloc(const IMalloc16
* iface
,LPVOID pv
) {
182 ICOM_CTHIS(IMalloc16
,iface
);
183 TRACE("(%p)->DidAlloc(%p)\n",This
,pv
);
187 /******************************************************************************
188 * IMalloc16_HeapMinimize [COMPOBJ.508]
190 LPVOID WINAPI
IMalloc16_fnHeapMinimize(IMalloc16
* iface
) {
191 ICOM_THIS(IMalloc16Impl
,iface
);
192 TRACE("(%p)->HeapMinimize()\n",This
);
196 static ICOM_VTABLE(IMalloc16
)* msegvt16
= NULL
;
198 /******************************************************************************
199 * IMalloc16_Constructor [VTABLE]
202 IMalloc16_Constructor() {
204 HMODULE16 hcomp
= GetModuleHandle16("COMPOBJ");
206 This
= (IMalloc16Impl
*)SEGPTR_NEW(IMalloc16Impl
);
208 msegvt16
= SEGPTR_NEW(ICOM_VTABLE(IMalloc16
));
210 #define VTENT(x) msegvt16->fn##x = (void*)WIN32_GetProcAddress16(hcomp,"IMalloc16_"#x);assert(msegvt16->fn##x)
211 VTENT(QueryInterface
);
222 ICOM_VTBL(This
) = (ICOM_VTABLE(IMalloc16
)*)SEGPTR_GET(msegvt16
);
224 /* FIXME: implement multiple heaps */
225 This
->heap
= GlobalAlloc16(GMEM_MOVEABLE
,64000);
226 LocalInit16(This
->heap
,0,64000);
227 return (LPMALLOC16
)SEGPTR_GET(This
);
231 /* --- IMalloc32 implementation */
235 /* IUnknown fields */
236 ICOM_VFIELD(IMalloc
);
240 /******************************************************************************
241 * IMalloc32_QueryInterface [VTABLE]
243 static HRESULT WINAPI
IMalloc_fnQueryInterface(LPMALLOC iface
,REFIID refiid
,LPVOID
*obj
) {
244 ICOM_THIS(IMalloc32Impl
,iface
);
246 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
247 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
248 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
253 return OLE_E_ENUM_NOMORE
;
256 /******************************************************************************
257 * IMalloc32_AddRef [VTABLE]
259 static ULONG WINAPI
IMalloc_fnAddRef(LPMALLOC iface
) {
260 ICOM_THIS(IMalloc32Impl
,iface
);
261 TRACE("(%p)->AddRef()\n",This
);
262 return 1; /* cannot be freed */
265 /******************************************************************************
266 * IMalloc32_Release [VTABLE]
268 static ULONG WINAPI
IMalloc_fnRelease(LPMALLOC iface
) {
269 ICOM_THIS(IMalloc32Impl
,iface
);
270 TRACE("(%p)->Release()\n",This
);
271 return 1; /* cannot be freed */
274 /******************************************************************************
275 * IMalloc32_Alloc [VTABLE]
277 static LPVOID WINAPI
IMalloc_fnAlloc(LPMALLOC iface
,DWORD cb
) {
279 ICOM_THIS(IMalloc32Impl
,iface
);
280 addr
= HeapAlloc(GetProcessHeap(),0,cb
);
281 TRACE("(%p)->Alloc(%ld) -> %p\n",This
,cb
,addr
);
285 /******************************************************************************
286 * IMalloc32_Realloc [VTABLE]
288 static LPVOID WINAPI
IMalloc_fnRealloc(LPMALLOC iface
,LPVOID pv
,DWORD cb
) {
289 ICOM_THIS(IMalloc32Impl
,iface
);
290 TRACE("(%p)->Realloc(%p,%ld)\n",This
,pv
,cb
);
291 return HeapReAlloc(GetProcessHeap(),0,pv
,cb
);
294 /******************************************************************************
295 * IMalloc32_Free [VTABLE]
297 static VOID WINAPI
IMalloc_fnFree(LPMALLOC iface
,LPVOID pv
) {
298 ICOM_THIS(IMalloc32Impl
,iface
);
299 TRACE("(%p)->Free(%p)\n",This
,pv
);
300 HeapFree(GetProcessHeap(),0,pv
);
303 /******************************************************************************
304 * IMalloc32_GetSize [VTABLE]
306 static DWORD WINAPI
IMalloc_fnGetSize(LPMALLOC iface
,LPVOID pv
) {
307 ICOM_CTHIS(IMalloc
,iface
);
308 TRACE("(%p)->GetSize(%p)\n",This
,pv
);
309 return HeapSize(GetProcessHeap(),0,pv
);
312 /******************************************************************************
313 * IMalloc32_DidAlloc [VTABLE]
315 static INT WINAPI
IMalloc_fnDidAlloc(LPMALLOC iface
,LPVOID pv
) {
316 ICOM_CTHIS(IMalloc32Impl
,iface
);
317 TRACE("(%p)->DidAlloc(%p)\n",This
,pv
);
321 /******************************************************************************
322 * IMalloc32_HeapMinimize [VTABLE]
324 static VOID WINAPI
IMalloc_fnHeapMinimize(LPMALLOC iface
) {
325 ICOM_THIS(IMalloc32Impl
,iface
);
326 TRACE("(%p)->HeapMinimize()\n",This
);
329 static ICOM_VTABLE(IMalloc
) VT_IMalloc32
=
331 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
332 IMalloc_fnQueryInterface
,
340 IMalloc_fnHeapMinimize
343 /******************************************************************************
344 * IMalloc32_Constructor [VTABLE]
347 IMalloc_Constructor() {
350 This
= (IMalloc32Impl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IMalloc32Impl
));
351 ICOM_VTBL(This
) = &VT_IMalloc32
;
353 return (LPMALLOC
)This
;
356 /****************************************************************************
360 /******************************************************************************
361 * IsValidInterface [OLE32.78]
364 * True, if the passed pointer is a valid interface
366 BOOL WINAPI
IsValidInterface(
367 LPUNKNOWN punk
/* [in] interface to be tested */
370 IsBadReadPtr(punk
,4) ||
371 IsBadReadPtr(ICOM_VTBL(punk
),4) ||
372 IsBadReadPtr(ICOM_VTBL(punk
)->fnQueryInterface
,9) ||
373 IsBadCodePtr(ICOM_VTBL(punk
)->fnQueryInterface
)