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

2008-10-05 15:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/thread.c
    ! fixed hb_mutexSubscribe*() in ST mode
This commit is contained in:
Przemyslaw Czerpak
2008-10-05 13:53:36 +00:00
parent 0ebec8fe5b
commit 38684fe9c1
2 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-05 15:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/thread.c
! fixed hb_mutexSubscribe*() in ST mode
2008-10-05 03:29 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/tests/speedtst.prg
+ added support for multiple usage of --exclude parameter

22
harbour/source/vm/thread.c
View File

@@ -1346,9 +1346,14 @@ HB_FUNC( HB_MUTEXSUBSCRIBE )
else
pResult = hb_threadMutexSubscribe( pItem, FALSE );
hb_itemParamStoreForward( 3, pResult);
hb_itemRelease( pResult );
hb_retl( pResult != NULL );
if( pResult )
{
hb_itemParamStoreForward( 3, pResult );
hb_itemRelease( pResult );
hb_retl( TRUE );
}
else
hb_retl( FALSE );
}
}
@@ -1371,9 +1376,14 @@ HB_FUNC( HB_MUTEXSUBSCRIBENOW )
else
pResult = hb_threadMutexSubscribe( pItem, TRUE );
hb_itemParamStoreForward( 3, pResult);
hb_itemRelease( pResult );
hb_retl( pResult != NULL );
if( pResult )
{
hb_itemParamStoreForward( 3, pResult );
hb_itemRelease( pResult );
hb_retl( TRUE );
}
else
hb_retl( FALSE );
}
}