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

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-08-27 11:00:14 +00:00
parent afc86a90b6
commit 001677e26f
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -66,6 +66,7 @@ static void hb_vmDoExitFunctions( void ); /* executes all defined PRGs EXIT f
static void hb_vmReleaseLocalSymbols( void ); /* releases the memory of the local symbols linked list */
static void hb_vmDebuggerShowLine( WORD wLine ); /* makes the debugger shows a specific source code line */
static void hb_vmDebuggerEndProc( void ); /* notifies the debugger for an endproc */
#ifdef HARBOUR_OBJ_GENERATION
static void hb_vmProcessObjSymbols ( void ); /* process Harbour generated OBJ symbols */
@@ -900,6 +901,15 @@ void hb_vmArrayPut( void )
hb_stackPop();
}
static void hb_vmDebuggerEndProc( void )
{
bDebugShowLines = FALSE;
hb_vmPushSymbol( hb_dynsymFind( "__DBGENTRY" )->pSymbol );
hb_vmPushNil();
hb_vmDo( 0 );
bDebugShowLines = TRUE;
}
static void hb_vmDebuggerShowLine( WORD wLine ) /* makes the debugger shows a specific source code line */
{
bDebugShowLines = FALSE;
@@ -1031,6 +1041,9 @@ void hb_vmDo( WORD wParams )
stack.pBase = stack.pItems + wStackBase;
stack.iStatics = iStatics;
if( bDebugging )
hb_vmDebuggerEndProc();
bDebugging = bDebugPrevState;
}