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

2009-03-05 12:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/hbgtcore.c
    * small modification in instruction order as workaround for PellesC bug
This commit is contained in:
Przemyslaw Czerpak
2009-03-05 11:43:16 +00:00
parent bdd008af0b
commit 5e1a82d03c
2 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-03-05 12:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/hbgtcore.c
* small modification in instruction order as workaround for PellesC bug
2009-03-05 12:04 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/memvars.c
! added protection against pushing new private variable on HVM stack

16
harbour/source/rtl/hbgtcore.c
View File

@@ -3389,15 +3389,13 @@ static void * hb_gtParam( int iParam )
PHB_GT hb_gt_ItemBase( PHB_ITEM pItemGT )
{
void ** gtHolder = ( void ** ) hb_itemGetPtrGC( pItemGT, hb_gt_Destructor );
PHB_GT pGT = NULL;
if( gtHolder )
pGT = ( PHB_GT ) *gtHolder;
if( pGT && HB_GTSELF_LOCK( pGT ) )
return pGT;
else
return NULL;
if( gtHolder && *gtHolder )
{
PHB_GT pGT = ( PHB_GT ) *gtHolder;
if( HB_GTSELF_LOCK( pGT ) )
return pGT;
}
return NULL;
}
HB_FUNC( HB_GTRELOAD )