fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2000-12-12 17:35 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/vm/eval.c
     + Corrected support for block passed by reference.

     /* Ryszard, is there any reason to use hb_stackItemFromBase(1) instead of pItem? */
This commit is contained in:
Ron Pinkas
2000-12-13 01:33:35 +00:00
parent ffc27560fd
commit 4577f36e4b
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2000-12-12 17:35 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/vm/eval.c
+ Corrected support for block passed by reference.
/* Ryszard, is there any reason to use hb_stackItemFromBase(1) instead of pItem? */
2000-12-12 17:10 UTC+0800 Ron Pinkas <ron@profit-master.com>
* makefile.bc
* hb_slex.bc

8
harbour/source/vm/eval.c
View File

@@ -47,9 +47,15 @@ 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( hb_stackItemFromBase( 1 ) );
hb_vmPush( pBlock );
/* 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