4 * Copyright 1997 Marcus Meissner
14 #include "wine/winbase16.h"
15 #include "wine/obj_base.h"
18 #include "debugtools.h"
22 DEFAULT_DEBUG_CHANNEL(relay
)
24 /* --- IUnknown implementation */
29 ICOM_VFIELD(IUnknown
);
33 /******************************************************************************
34 * IUnknown_AddRef [VTABLE:IUNKNOWN.1]
36 static ULONG WINAPI
IUnknown_fnAddRef(LPUNKNOWN iface
) {
37 ICOM_THIS(IUnknownImpl
,iface
);
38 TRACE("(%p)->AddRef()\n",This
);
42 /******************************************************************************
43 * IUnknown_Release [VTABLE:IUNKNOWN.2]
45 static ULONG WINAPI
IUnknown_fnRelease(LPUNKNOWN iface
) {
46 ICOM_THIS(IUnknownImpl
,iface
);
47 TRACE("(%p)->Release()\n",This
);
49 HeapFree(GetProcessHeap(),0,This
);
55 /******************************************************************************
56 * IUnknown_QueryInterface [VTABLE:IUNKNOWN.0]
58 static HRESULT WINAPI
IUnknown_fnQueryInterface(LPUNKNOWN iface
,REFIID refiid
,LPVOID
*obj
) {
59 ICOM_THIS(IUnknownImpl
,iface
);
61 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
63 if (!memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
))) {
67 return OLE_E_ENUM_NOMORE
;
70 static ICOM_VTABLE(IUnknown
) uvt
=
72 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
73 IUnknown_fnQueryInterface
,
78 /******************************************************************************
79 * IUnknown_Constructor [INTERNAL]
82 IUnknown_Constructor() {
85 unk
= (IUnknownImpl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IUnknownImpl
));
86 ICOM_VTBL(unk
) = &uvt
;
88 return (LPUNKNOWN
)unk
;
92 /* --- IMalloc16 implementation */
98 ICOM_VFIELD(IMalloc16
);
100 /* IMalloc16 fields */
101 /* Gmm, I think one is not enough, we should probably manage a list of
107 /******************************************************************************
108 * IMalloc16_QueryInterface [COMPOBJ.500]
110 HRESULT WINAPI
IMalloc16_fnQueryInterface(IMalloc16
* iface
,REFIID refiid
,LPVOID
*obj
) {
111 ICOM_THIS(IMalloc16Impl
,iface
);
113 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
114 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
115 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
120 return OLE_E_ENUM_NOMORE
;
123 /******************************************************************************
124 * IMalloc16_AddRef [COMPOBJ.501]
126 ULONG WINAPI
IMalloc16_fnAddRef(IMalloc16
* iface
) {
127 ICOM_THIS(IMalloc16Impl
,iface
);
128 TRACE("(%p)->AddRef()\n",This
);
129 return 1; /* cannot be freed */
132 /******************************************************************************
133 * IMalloc16_Release [COMPOBJ.502]
135 ULONG WINAPI
IMalloc16_fnRelease(IMalloc16
* iface
) {
136 ICOM_THIS(IMalloc16Impl
,iface
);
137 TRACE("(%p)->Release()\n",This
);
138 return 1; /* cannot be freed */
141 /******************************************************************************
142 * IMalloc16_Alloc [COMPOBJ.503]
144 LPVOID WINAPI
IMalloc16_fnAlloc(IMalloc16
* iface
,DWORD cb
) {
145 ICOM_THIS(IMalloc16Impl
,iface
);
146 TRACE("(%p)->Alloc(%ld)\n",This
,cb
);
147 return (LPVOID
)PTR_SEG_OFF_TO_SEGPTR(This
->heap
,LOCAL_Alloc(This
->heap
,0,cb
));
150 /******************************************************************************
151 * IMalloc16_Realloc [COMPOBJ.504]
153 LPVOID WINAPI
IMalloc16_fnRealloc(IMalloc16
* iface
,LPVOID pv
,DWORD cb
) {
154 ICOM_THIS(IMalloc16Impl
,iface
);
155 TRACE("(%p)->Realloc(%p,%ld)\n",This
,pv
,cb
);
156 return (LPVOID
)PTR_SEG_OFF_TO_SEGPTR(This
->heap
,LOCAL_ReAlloc(This
->heap
,0,LOWORD(pv
),cb
));
159 /******************************************************************************
160 * IMalloc16_Free [COMPOBJ.505]
162 VOID WINAPI
IMalloc16_fnFree(IMalloc16
* iface
,LPVOID pv
) {
163 ICOM_THIS(IMalloc16Impl
,iface
);
164 TRACE("(%p)->Free(%p)\n",This
,pv
);
165 LOCAL_Free(This
->heap
,LOWORD(pv
));
168 /******************************************************************************
169 * IMalloc16_GetSize [COMPOBJ.506]
171 DWORD WINAPI
IMalloc16_fnGetSize(const IMalloc16
* iface
,LPVOID pv
) {
172 ICOM_CTHIS(IMalloc16Impl
,iface
);
173 TRACE("(%p)->GetSize(%p)\n",This
,pv
);
174 return LOCAL_Size(This
->heap
,LOWORD(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->fn##x = (void*)WIN32_GetProcAddress16(hcomp,"IMalloc16_"#x);assert(msegvt16->fn##x)
210 VTENT(QueryInterface
);
221 ICOM_VTBL(This
) = (ICOM_VTABLE(IMalloc16
)*)SEGPTR_GET(msegvt16
);
223 /* FIXME: implement multiple heaps */
224 This
->heap
= GlobalAlloc16(GMEM_MOVEABLE
,64000);
225 LocalInit16(This
->heap
,0,64000);
226 return (LPMALLOC16
)SEGPTR_GET(This
);
230 /* --- IMalloc32 implementation */
234 /* IUnknown fields */
235 ICOM_VFIELD(IMalloc
);
239 /******************************************************************************
240 * IMalloc32_QueryInterface [VTABLE]
242 static HRESULT WINAPI
IMalloc_fnQueryInterface(LPMALLOC iface
,REFIID refiid
,LPVOID
*obj
) {
243 ICOM_THIS(IMalloc32Impl
,iface
);
245 TRACE("(%p)->QueryInterface(%s,%p)\n",This
,debugstr_guid(refiid
),obj
);
246 if ( !memcmp(&IID_IUnknown
,refiid
,sizeof(IID_IUnknown
)) ||
247 !memcmp(&IID_IMalloc
,refiid
,sizeof(IID_IMalloc
))
252 return OLE_E_ENUM_NOMORE
;
255 /******************************************************************************
256 * IMalloc32_AddRef [VTABLE]
258 static ULONG WINAPI
IMalloc_fnAddRef(LPMALLOC iface
) {
259 ICOM_THIS(IMalloc32Impl
,iface
);
260 TRACE("(%p)->AddRef()\n",This
);
261 return 1; /* cannot be freed */
264 /******************************************************************************
265 * IMalloc32_Release [VTABLE]
267 static ULONG WINAPI
IMalloc_fnRelease(LPMALLOC iface
) {
268 ICOM_THIS(IMalloc32Impl
,iface
);
269 TRACE("(%p)->Release()\n",This
);
270 return 1; /* cannot be freed */
273 /******************************************************************************
274 * IMalloc32_Alloc [VTABLE]
276 static LPVOID WINAPI
IMalloc_fnAlloc(LPMALLOC iface
,DWORD cb
) {
277 ICOM_THIS(IMalloc32Impl
,iface
);
278 TRACE("(%p)->Alloc(%ld)\n",This
,cb
);
279 return HeapAlloc(GetProcessHeap(),0,cb
);
282 /******************************************************************************
283 * IMalloc32_Realloc [VTABLE]
285 static LPVOID WINAPI
IMalloc_fnRealloc(LPMALLOC iface
,LPVOID pv
,DWORD cb
) {
286 ICOM_THIS(IMalloc32Impl
,iface
);
287 TRACE("(%p)->Realloc(%p,%ld)\n",This
,pv
,cb
);
288 return HeapReAlloc(GetProcessHeap(),0,pv
,cb
);
291 /******************************************************************************
292 * IMalloc32_Free [VTABLE]
294 static VOID WINAPI
IMalloc_fnFree(LPMALLOC iface
,LPVOID pv
) {
295 ICOM_THIS(IMalloc32Impl
,iface
);
296 TRACE("(%p)->Free(%p)\n",This
,pv
);
297 HeapFree(GetProcessHeap(),0,pv
);
300 /******************************************************************************
301 * IMalloc32_GetSize [VTABLE]
303 static DWORD WINAPI
IMalloc_fnGetSize(LPMALLOC iface
,LPVOID pv
) {
304 ICOM_CTHIS(IMalloc
,iface
);
305 TRACE("(%p)->GetSize(%p)\n",This
,pv
);
306 return HeapSize(GetProcessHeap(),0,pv
);
309 /******************************************************************************
310 * IMalloc32_DidAlloc [VTABLE]
312 static INT WINAPI
IMalloc_fnDidAlloc(LPMALLOC iface
,LPVOID pv
) {
313 ICOM_CTHIS(IMalloc32Impl
,iface
);
314 TRACE("(%p)->DidAlloc(%p)\n",This
,pv
);
318 /******************************************************************************
319 * IMalloc32_HeapMinimize [VTABLE]
321 static VOID WINAPI
IMalloc_fnHeapMinimize(LPMALLOC iface
) {
322 ICOM_THIS(IMalloc32Impl
,iface
);
323 TRACE("(%p)->HeapMinimize()\n",This
);
326 static ICOM_VTABLE(IMalloc
) VT_IMalloc32
=
328 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
329 IMalloc_fnQueryInterface
,
337 IMalloc_fnHeapMinimize
340 /******************************************************************************
341 * IMalloc32_Constructor [VTABLE]
344 IMalloc_Constructor() {
347 This
= (IMalloc32Impl
*)HeapAlloc(GetProcessHeap(),0,sizeof(IMalloc32Impl
));
348 ICOM_VTBL(This
) = &VT_IMalloc32
;
350 return (LPMALLOC
)This
;
353 /****************************************************************************
357 /******************************************************************************
358 * IsValidInterface [OLE32.78]
361 * True, if the passed pointer is a valid interface
363 BOOL WINAPI
IsValidInterface(
364 LPUNKNOWN punk
/* [in] interface to be tested */
367 IsBadReadPtr(punk
,4) ||
368 IsBadReadPtr(ICOM_VTBL(punk
),4) ||
369 IsBadReadPtr(ICOM_VTBL(punk
)->fnQueryInterface
,9) ||
370 IsBadCodePtr(ICOM_VTBL(punk
)->fnQueryInterface
)