From 27e28f22c7c906be3b7440949fc5beb287a69eea Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Thu, 15 Mar 2001 00:56:15 +0000 Subject: [PATCH] =?UTF-8?q?2001-03-14=2004:55=20UTC-0800=20Ron=20Pinkas=20?= =?UTF-8?q?=20=20=20=20*=20source/vm/classes.c=20?= =?UTF-8?q?=20=20=20=20=20!=20Fixed=20hb=5Fparam()=20to=20hb=5FstackItemFr?= =?UTF-8?q?omBase()=20(posted=20by=20Jos=C3=A9=20F.=20Gim=C3=A9nez)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- harbour/ChangeLog | 4 ++++ harbour/source/vm/classes.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 */