diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e547abebcb..f785fc57f6 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +19990514-13:55 CET Eddie Runia + * source/rtl/classes.c + Unreleased memory block in inline resolved. AGAIN ! + + 19990515-13:40 CET Eddie Runia * source/rtl/classes.c CVS Just deleted another upload !!!! diff --git a/harbour/source/rtl/classes.c b/harbour/source/rtl/classes.c index 7f522b7783..0834358af3 100644 --- a/harbour/source/rtl/classes.c +++ b/harbour/source/rtl/classes.c @@ -185,6 +185,8 @@ static HARBOUR EvalInline( void ) for( w = 1; w <= _pcount(); w++ ) Push( _param( w, IT_ANY ) ); Do( _pcount() + 1 ); /* Self is also an argument */ + + ItemRelease( &bBlock ); /* Release block */ } static HARBOUR Virtual( void )