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

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

Browse Source 
* harbour/contrib/hbwin/olecore.c
    * more beautiful and speed optimized version of last commit
This commit is contained in:
Mindaugas Kavaliauskas
2009-11-27 03:31:20 +00:00
parent 595838c3d4
commit ed51d512d7
2 changed files with 18 additions and 9 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:31 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbwin/olecore.c
* more beautiful and speed optimized version of last commit
2009-11-27 05:21 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbwin/olecore.c
! added missing VARIANT initialization

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

@@ -511,27 +511,32 @@ static void hb_oleSafeArrayToItem( PHB_ITEM pItem, SAFEARRAY * pSafeArray, int i
SafeArrayGetLBound( pSafeArray, iDim, &lFrom );
SafeArrayGetUBound( pSafeArray, iDim, &lTo );
if( --iDim == 0 )
VariantInit( &vItem );
if( lFrom <= lTo )
{
hb_arrayNew( pItem, lTo - lFrom + 1 );
do
if( --iDim == 0 )
{
plIndex[ iDim ] = lFrom;
if( iDim == 0 )
VariantInit( &vItem );
do
{
plIndex[ iDim ] = lFrom;
if( SUCCEEDED( SafeArrayGetElement( pSafeArray, plIndex, &vItem ) ) )
{
hb_oleVariantToItem( hb_arrayGetItemPtr( pItem, ++ul ), &vItem );
VariantClear( &vItem );
}
}
else
hb_oleSafeArrayToItem( hb_arrayGetItemPtr( pItem, ++ul ), pSafeArray, iDim, plIndex );
while( ++lFrom <= lTo );
}
else
{
do
{
plIndex[ iDim ] = lFrom;
hb_oleSafeArrayToItem( hb_arrayGetItemPtr( pItem, ++ul ), pSafeArray, iDim, plIndex );
}
while( ++lFrom <= lTo );
}
while( ++lFrom <= lTo );
}
else
hb_arrayNew( pItem, 0 );