From f0bfe58e3225a56b10a55c8e3cf08785e9b83f1e Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Sat, 15 May 1999 12:57:10 +0000 Subject: [PATCH] Once more ! --- harbour/ChangeLog | 5 +++++ harbour/source/rtl/classes.c | 2 ++ 2 files changed, 7 insertions(+) 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 )