diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a1a20e18eb..d6dbb21448 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-03-14 04:55 UTC-0800 Ron Pinkas + * source/vm/classes.c + ! Fixed hb_param() to hb_stackItemFromBase() (posted by José F. Giménez) + 2001-03-13 03:45 UTC-0800 Ron Pinkas * contrib/dot/pp.txt * Updated status of newly added support. diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index f6d72ac2e1..e0e7743cf2 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -1977,7 +1977,7 @@ static HARBOUR hb___msgEvalInline( void ) hb_vmPush( &block ); hb_vmPush( hb_stackSelfItem() ); /* Push self */ for( uiParam = 1; uiParam <= uiPCount; uiParam++ ) - hb_vmPush( hb_param( uiParam, HB_IT_ANY ) ); + hb_vmPush( hb_stackItemFromBase( uiParam ) ); hb_vmDo( ( USHORT ) (uiPCount + 1 ) ); /* Self is also an argument */