diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 7b526448e6..31067e0732 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19990514-20:30 CET Eddie Runia + * include/set.ch + added + * source/rtl/classes.c + Unreleased memory block in inline resolved + 19990514-20:15 CET Eddie Runia * source/rtl/gtapi.c A lot of #ifdef #endif added or else it couldn't build out of the box. diff --git a/harbour/source/rtl/classes.c b/harbour/source/rtl/classes.c index a78dad04e8..c8fe02cac1 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( &block ); } static HARBOUR Virtual( void )