From 632860df4aa0ab80a3bd99acc6d3118b2db1939f Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Fri, 15 Dec 2000 00:59:23 +0000 Subject: [PATCH] 2000-12-14 17:00 UTC+0800 Ron Pinkas * source/vm/eval.c * Removed unneeded hb_stackItemFromBase(1), reverted to use pItem obtained by hb_param() --- harbour/ChangeLog | 4 ++++ harbour/source/vm/eval.c | 8 +------- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b92016bc70..250ed1b98e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-12-14 17:00 UTC+0800 Ron Pinkas + * source/vm/eval.c + * Removed unneeded hb_stackItemFromBase(1), reverted to use pItem obtained by hb_param() + 2000-12-13 22:04 GMT+1 Maurilio Longo * source/vm/estack.c + added missing semicolons (lines 374 and 416) diff --git a/harbour/source/vm/eval.c b/harbour/source/vm/eval.c index 0e947f696f..fb43ef330a 100644 --- a/harbour/source/vm/eval.c +++ b/harbour/source/vm/eval.c @@ -47,15 +47,9 @@ HB_FUNC( EVAL ) { USHORT uiPCount = hb_pcount(); USHORT uiParam; - PHB_ITEM pBlock = hb_stackItemFromBase( 1 ); - - if( HB_IS_BYREF( pBlock ) ) - { - pBlock = hb_itemUnRef( pBlock ); - } hb_vmPushSymbol( &hb_symEval ); - hb_vmPush( pBlock ); + hb_vmPush( pItem ); /* NOTE: hb_param() function cannot be used for parameter access * because we need to pass the references too. * hb_param() is dereferencing the passed parameters