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

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-11-08 08:29:50 +00:00
parent 16901d37db
commit b664c91f46
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/source/rtl/classes.c
View File

@@ -189,10 +189,14 @@ static void hb_clsRelease( PCLASS pClass )
{
if( pMeth->pInitValue )
{
// if( pMeth->pFunction == hb___msgGetClsData ) /* is it a ClassData initializer ? */
// hb_itemRelease( pMeth->pInitValue );
// else
if( pMeth->uiData > pClass->uiDataFirst )
if( pMeth->pFunction == hb___msgGetClsData ) /* is it a ClassData initializer ? */
{
if( IS_ARRAY( pMeth->pInitValue ) )
hb_itemClear( pMeth->pInitValue ); /* Don't release it as it may be shared by inherited classes */
else
hb_itemRelease( pMeth->pInitValue );
}
else if( pMeth->uiData > pClass->uiDataFirst )
hb_itemRelease( pMeth->pInitValue );
}
}