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

2017-05-11 18:05 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* contrib/hbwin/olecore.c
    * create resizable array instead of fixed size array when empty OLE
      array is created by __oleVariantNew()
This commit is contained in:
Przemysław Czerpak
2017-05-11 18:05:43 +02:00
parent b21fa47ec0
commit e9cb7ffa2f
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -10,6 +10,11 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2017-05-11 18:05 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbwin/olecore.c
* create resizable array instead of fixed size array when empty OLE
array is created by __oleVariantNew()
2017-05-10 17:21 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbwin/olecore.c
+ added functions which changes default method of NIL conversion to

11
contrib/hbwin/olecore.c
View File

@@ -490,7 +490,16 @@ static SAFEARRAY * hb_oleSafeArrayFromItem( PHB_ITEM pItem, VARTYPE vt )
return NULL;
}
pSafeArray = SafeArrayCreateVector( vt, 0, cElements );
if( cElements == 0 )
{
SAFEARRAYBOUND sabound[ 1 ];
sabound[ 0 ].lLbound = 0;
sabound[ 0 ].cElements = 0;
pSafeArray = SafeArrayCreate( vt, 1, sabound );
}
else
pSafeArray = SafeArrayCreateVector( vt, 0, cElements );
if( pSafeArray && cElements > 0 )
{