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

2010-05-22 13:41 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/hbwin/olecore.c
    * minor modification in hb_oleDispInvoke() function
This commit is contained in:
Przemyslaw Czerpak
2010-05-22 11:41:38 +00:00
parent 19cf7b4a7c
commit 3f4fbb20d7
2 changed files with 6 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.
*/
2010-05-22 13:41 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbwin/olecore.c
* minor modification in hb_oleDispInvoke() function
2010-05-22 10:57 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbmk2/hbmk2.prg
! -hbimplib extended for pocc to first look for any existing

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

@@ -1060,7 +1060,7 @@ HB_BOOL hb_oleDispInvoke( PHB_SYMB pSym, PHB_ITEM pObject, PHB_ITEM pParam,
pObject = NULL;
}
if( ( pSym || ( pObject && HB_IS_BLOCK( pObject ) ) ) &&
if( ( pSym || pObject ) &&
hb_vmRequestReenter() )
{
HB_OLE_PARAM_REF refArray[ 32 ];
@@ -1102,7 +1102,7 @@ HB_BOOL hb_oleDispInvoke( PHB_SYMB pSym, PHB_ITEM pObject, PHB_ITEM pParam,
&pParams->rgvarg[ iCount - i ] );
}
if( pObject )
if( pObject && !HB_IS_HASH( pObject ) )
hb_vmSend( ( HB_USHORT ) iParams );
else
hb_vmProc( ( HB_USHORT ) iParams );