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

2010-02-03 19:08 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbvm.h
  * harbour/src/vm/hvm.c
    * covered hb_vmPushState() and hb_vmPopState() functions by
      HB_LEGACY_LEVEL3 macro. These functions are depreciated,
      hb_vmRequestReenter()/hb_vmRequestRestore() should be used
      instead.
This commit is contained in:
Przemyslaw Czerpak
2010-02-03 18:08:32 +00:00
parent 2d9d7ffffb
commit 01497ae18a
3 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -17,6 +17,14 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-02-03 19:08 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbvm.h
* harbour/src/vm/hvm.c
* covered hb_vmPushState() and hb_vmPopState() functions by
HB_LEGACY_LEVEL3 macro. These functions are depreciated,
hb_vmRequestReenter()/hb_vmRequestRestore() should be used
instead.
2010-02-03 15:01 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbct/video.c
* pacified DJGPP warning

4
harbour/include/hbvm.h
View File

@@ -163,9 +163,11 @@ extern HB_EXPORT void hb_vmPushSymbol( PHB_SYMB pSym ); /* pushes a function
extern HB_EXPORT void hb_vmPushDynSym( PHB_DYNS pDynSym ); /* pushes a function/method pointer onto the stack */
extern HB_EXPORT void hb_vmPushEvalSym( void ); /* pushes a codeblock eval symbol onto the stack */
extern HB_EXPORT void hb_vmPushPointer( void * ); /* push an item of HB_IT_POINTER type */
extern HB_EXPORT void hb_vmPushItemRef( PHB_ITEM pItem ); /* push item reference */
#ifdef HB_LEGACY_LEVEL3
extern HB_EXPORT void hb_vmPushState( void ); /* push current VM state on stack */
extern HB_EXPORT void hb_vmPopState( void ); /* pop current VM state from stack */
extern HB_EXPORT void hb_vmPushItemRef( PHB_ITEM pItem ); /* push item reference */
#endif
extern HB_EXPORT HB_BOOL hb_vmIsMt( void ); /* return HB_TRUE if HVM is compiled with thread support */
extern HB_EXPORT void hb_vmLock( void ); /* lock VM blocking GC execution by other threads */

4
harbour/src/vm/hvm.c
View File

@@ -6440,6 +6440,7 @@ void hb_vmPush( PHB_ITEM pItem )
hb_itemCopy( hb_stackAllocItem(), pItem );
}
#ifdef HB_LEGACY_LEVEL3
void hb_vmPushState( void )
{
HB_STACK_TLS_PRELOAD
@@ -6448,6 +6449,7 @@ void hb_vmPushState( void )
hb_stackPushReturn();
}
#endif
void hb_vmPushNil( void )
{
@@ -7084,6 +7086,7 @@ static void hb_vmSwap( BYTE bCount )
/* Pop */
/* ------------------------------- */
#ifdef HB_LEGACY_LEVEL3
void hb_vmPopState( void )
{
HB_STACK_TLS_PRELOAD
@@ -7092,6 +7095,7 @@ void hb_vmPopState( void )
hb_stackPopReturn();
}
#endif
static HB_BOOL hb_vmPopLogical( void )
{