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

2009-11-27 05:21 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/hbwin/olecore.c
    ! added missing VARIANT initialization
This commit is contained in:
Mindaugas Kavaliauskas
2009-11-27 03:21:53 +00:00
parent 9553a9cbb7
commit 595838c3d4
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-27 05:21 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbwin/olecore.c
! added missing VARIANT initialization
2009-11-27 04:29 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbwin/olecore.c
+ added support (VARIANT to ITEM) for multidimensional arrays

5
harbour/contrib/hbwin/olecore.c
View File

@@ -511,7 +511,9 @@ static void hb_oleSafeArrayToItem( PHB_ITEM pItem, SAFEARRAY * pSafeArray, int i
SafeArrayGetLBound( pSafeArray, iDim, &lFrom );
SafeArrayGetUBound( pSafeArray, iDim, &lTo );
iDim--;
if( --iDim == 0 )
VariantInit( &vItem );
if( lFrom <= lTo )
{
hb_arrayNew( pItem, lTo - lFrom + 1 );
@@ -528,7 +530,6 @@ static void hb_oleSafeArrayToItem( PHB_ITEM pItem, SAFEARRAY * pSafeArray, int i
}
else
hb_oleSafeArrayToItem( hb_arrayGetItemPtr( pItem, ++ul ), pSafeArray, iDim, plIndex );
}
while( ++lFrom <= lTo );
}