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 06:44:41 +00:00
parent 9511078a52
commit 63a4aa6800
1 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -186,8 +186,16 @@ static void hb_clsRelease( PCLASS pClass )
HB_TRACE(HB_TR_DEBUG, ("hb_clsRelease(%p)", pClass));
for( uiAt = 0; uiAt < uiLimit; uiAt++, pMeth++ ) /* Release initializers */
if( pMeth->pInitValue && pMeth->uiData > pClass->uiDataFirst )
hb_itemRelease( pMeth->pInitValue );
{
if( pMeth->pInitValue )
{
// if( pMeth->pFunction == hb___msgGetClsData ) /* is it a ClassData initializer ? */
// hb_itemRelease( pMeth->pInitValue );
// else
if( pMeth->uiData > pClass->uiDataFirst )
hb_itemRelease( pMeth->pInitValue );
}
}
hb_xfree( pClass->szName );
hb_xfree( pClass->pMethods );
@@ -636,7 +644,17 @@ HARBOUR HB___CLSINST( void )
if( pMeth->pInitValue && ! pMeth->bClsDataInitiated )
{
if( pMeth->pFunction != hb___msgGetClsData ) /* is a DATA */
hb_itemArrayPut( &hb_stack.Return, pMeth->uiData, pMeth->pInitValue );
{
if( IS_ARRAY( pMeth->pInitValue ) )
{
PHB_ITEM pInitValue = hb_arrayClone( pMeth->pInitValue );
hb_itemArrayPut( &hb_stack.Return, pMeth->uiData, pInitValue );
hb_itemRelease( pInitValue );
}
else
hb_itemArrayPut( &hb_stack.Return, pMeth->uiData,
pMeth->pInitValue );
}
else /* it is a ClassData */
{
HB_ITEM init;
@@ -1199,4 +1217,4 @@ static HARBOUR hb___msgVirtual( void )
{
/* hb_ret(); */ /* NOTE: It's safe to comment this out */
;
}
}