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

2010-08-02 12:34 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/xhb/xhbqself.c
    * do not use depreciated symbol hb_symEval in HB_QSELF() function
This commit is contained in:
Przemyslaw Czerpak
2010-08-02 10:35:15 +00:00
parent d43a5c408b
commit fba9560639
2 changed files with 21 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-08-02 12:34 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/xhb/xhbqself.c
* do not use depreciated symbol hb_symEval in HB_QSELF() function
2010-08-02 12:12 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rdd/dbcmd53.c
* removed one redundant casting

21
harbour/contrib/xhb/xhbqself.c
View File

@@ -52,6 +52,7 @@
#include "hbvmint.h"
#include "hbapi.h"
#include "hbvm.h"
#include "hbapiitm.h"
#include "hbapierr.h"
#include "hbstack.h"
@@ -64,11 +65,23 @@ HB_FUNC( HB_QSELF )
{
PHB_ITEM pSelf = hb_stackItem( nOffset + 1 );
if( nOffset > 0 && HB_IS_BLOCK( pSelf ) &&
hb_itemGetSymbol( hb_stackItem( nOffset ) ) == &hb_symEval )
if( nOffset > 0 && HB_IS_BLOCK( pSelf ) )
{
pSelf = hb_stackItem( hb_stackItem( nOffset )->
item.asSymbol.stackstate->nBaseItem + 1 );
static PHB_SYMB s_pSymEval = NULL;
if( s_pSymEval == NULL )
{
hb_vmPushEvalSym();
s_pSymEval = hb_itemGetSymbol( hb_stackItemFromTop( -1 ) );
hb_stackPop();
}
if( s_pSymEval &&
hb_itemGetSymbol( hb_stackItem( nOffset ) ) == s_pSymEval )
{
pSelf = hb_stackItem( hb_stackItem( nOffset )->
item.asSymbol.stackstate->nBaseItem + 1 );
}
}
hb_itemReturn( pSelf );
}