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

2001-06-07 18:40 UTC-0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/vm/hvm.c
     ! Fixed HB_P_MPOPFIELD was poping assgined value pre-maturely, causing "data type error" from RDD when replacing a field using macro.
This commit is contained in:
Ron Pinkas
2001-06-08 01:38:26 +00:00
parent e03f21354b
commit 8a3b3dc3f2
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-06-07 18:40 UTC-0800 Ron Pinkas <ron@profit-master.com>
* source/vm/hvm.c
! Fixed HB_P_MPOPFIELD was poping assgined value pre-maturely, causing "data type error" from RDD when replacing a field using macro.
2001-06-07 20:39 GMT+1 Patrick Mast <harbour@PatrickMast.com>
* contrib/tprepro/tprepro.prg
+ Added TestPrePro tes test preprocessor output
@@ -50,7 +54,7 @@
+ __PP_INIT() added
+ __PP_FREE() added
+ __PPADDRULE() added
* __PPADDRULE( cString ) can be called to preprocess a directive
* __PPADDRULE( cString ) can be called to preprocess a directive
( #include, #command, etc. )
__PP_FREE() should be called if __PPADDRULE() or __PP_INIT() was used
to free memory, allocated for pp tables.

2
harbour/source/vm/hvm.c
View File

@@ -1265,8 +1265,8 @@ void hb_vmExecute( const BYTE * pCode, PHB_SYMB pSymbols )
/* Pops a value from the eval stack and uses it to set
* a new value of the given field
*/
hb_rddPutFieldValue( ( hb_stackItemFromTop(-1) ), ( *pDynSym )->pSymbol );
hb_stackDec();
hb_rddPutFieldValue( ( hb_stackTopItem() ), ( *pDynSym )->pSymbol );
hb_itemClear( ( hb_stackTopItem() ) );
HB_TRACE(HB_TR_INFO, ("(hb_vmMPopField)"));
w += sizeof( HB_DYNS_PTR ) + 1;