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

2012-03-21 12:14 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/src/vm/thread.c
    + added support for optional parameters to hb_mutexEval() function:
         hb_mutexEval( <pMtx>, <bCode> | <@sFunc()> [, <params,...> ] )
            -> <xCodeResult>
This commit is contained in:
Przemyslaw Czerpak
2012-03-21 11:15:08 +00:00
parent 01ac7b81ff
commit f2e59c30de
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-03-21 12:14 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/vm/thread.c
+ added support for optional parameters to hb_mutexEval() function:
hb_mutexEval( <pMtx>, <bCode> | <@sFunc()> [, <params,...> ] )
-> <xCodeResult>
2012-03-20 19:32 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/codepage/cp_big5.c
! minor typo in information message

8
harbour/src/vm/thread.c
View File

@@ -71,7 +71,7 @@
hb_mutexNotifyAll( <pMtx> [, <xVal>] ) -> NIL
hb_mutexSubscribe( <pMtx>, [ <nTimeOut> ] [, @<xSubscribed> ] ) -> <lSubscribed>
hb_mutexSubscribeNow( <pMtx>, [ <nTimeOut> ] [, @<xSubscribed> ] ) -> <lSubscribed>
hb_mutexEval( <pMtx>, <bCode> | <@sFunc()> ) -> <xCodeResult>
hb_mutexEval( <pMtx>, <bCode> | <@sFunc()> [, <params,...> ] ) -> <xCodeResult>
** hb_mutexQueueInfo( <pMtx>, [ @<nWaitersCount> ], [ @<nQueueLength> ] ) -> .T.
hb_mtVM() -> <lMultiThreadVM>
@@ -2600,11 +2600,15 @@ HB_FUNC( HB_MUTEXEVAL )
if( pEval )
{
int iPCount = hb_pcount(), iParam;
if( hb_threadMutexLock( pItem ) )
{
hb_vmPushEvalSym();
hb_vmPush( pEval );
hb_vmSend( 0 );
for( iParam = 3; iParam <= iPCount; iParam++ )
hb_vmPush( hb_stackItemFromBase( iParam ) );
hb_vmSend( ( HB_USHORT ) ( iPCount - 2 ) );
hb_threadMutexUnlock( pItem );
}
}