fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-04-25 01:35 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/hbole/olecore.c
    ! fixed C++ compile errors
This commit is contained in:
Mindaugas Kavaliauskas
2009-04-24 22:34:29 +00:00
parent 62dc5dd14f
commit a237fe6654
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-25 01:35 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbole/olecore.c
! fixed C++ compile errors
2009-04-24 23:15 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbole/olecore.c
* harbour/contrib/hbole/oleauto.prg

8
harbour/contrib/hbole/olecore.c
View File

@@ -575,16 +575,14 @@ HB_FUNC( __OLEENUMCREATE ) /* ( __hObj ) */
lOleError = ( variant.n1.n2.n3.punkVal )->lpVtbl->QueryInterface( variant.n1.n2.n3.punkVal,
&IID_IEnumVARIANT, ( void** ) &pEnum );
#else
lOleError = ( variant.n1.n2.n3.punkVal )->QueryInterface( variant.n1.n2.n3.punkVal,
IID_IEnumVARIANT, ( void** ) &pEnum );
lOleError = ( variant.n1.n2.n3.punkVal )->QueryInterface( IID_IEnumVARIANT, ( void** ) &pEnum );
#endif
else if( variant.n1.n2.vt == VT_DISPATCH )
#if HB_OLE_C_API
lOleError = ( variant.n1.n2.n3.pdispVal )->lpVtbl->QueryInterface( variant.n1.n2.n3.pdispVal,
&IID_IEnumVARIANT, ( void** ) &pEnum );
#else
lOleError = ( variant.n1.n2.pdispVal )->QueryInterface( variant.n1.n2.n3.pdispVal,
IID_IEnumVARIANT, ( void** ) &pEnum );
lOleError = ( variant.n1.n2.n3.pdispVal )->QueryInterface( IID_IEnumVARIANT, ( void** ) &pEnum );
#endif
else
{
@@ -619,7 +617,7 @@ HB_FUNC( __OLEENUMNEXT )
#if HB_OLE_C_API
if( pEnum->lpVtbl->Next( pEnum, 1, &variant, NULL ) == S_OK )
#else
if( pEnum->Next( pEnum, 1, &variant, NULL ) == S_OK )
if( pEnum->Next( 1, &variant, NULL ) == S_OK )
#endif
{
hb_oleVariantToItem( hb_stackReturnItem(), &variant );