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

See ChangeLog entry 2001-06-21 14:45 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2001-06-21 18:49:58 +00:00
parent 51ddbe5081
commit d5220415d2
3 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/source/debug/debugger.prg
View File

@@ -184,7 +184,7 @@ procedure __dbgEntry( uParam1, uParam2, uParam3 ) // debugger entry point
DispEnd()
else
*/
if !s_oDebugger:lGo .or. isAltdPressed()
if !s_oDebugger:lGo .or. InvokeDebug()
s_oDebugger:lGo := .F.
s_oDebugger:SaveAppStatus()
s_oDebugger:GoToLine( uParam1 )

9
harbour/source/rtl/inkey.c
View File

@@ -79,7 +79,6 @@
#include <sys/times.h>
#endif
static BOOL s_altdPressed = 0;
static int * s_inkeyBuffer = 0; /* Harbour keyboard buffer (empty if head == tail) */
static int s_inkeyHead; /* Harbour keyboard buffer head pointer (next insert) */
static int s_inkeyTail; /* Harbour keyboard buffer tail pointer (next extract) */
@@ -223,7 +222,6 @@ void hb_inkeyPoll( void ) /* Poll the console keyboard to stuff the Harbour
if( hb_set.HB_SET_DEBUG )
{
ch = 0; /* Make the keystroke disappear */
s_altdPressed = TRUE;
hb_vmRequestDebug(); /* Request the debugger */
}
}
@@ -1106,10 +1104,3 @@ int hb_inkeyTranslate( int key, HB_inkey_enum event_mask )
}
return key;
}
HB_FUNC( ISALTDPRESSED )
{
BOOL bAltd = s_altdPressed;
s_altdPressed = FALSE;
hb_retl( bAltd );
}

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

@@ -230,6 +230,7 @@ static PSYMBOLS s_pSymbols = NULL; /* to hold a linked list of all different mo
static BYTE s_byErrorLevel; /* application exit errorlevel */
static BOOL s_bDebugging;
static BOOL s_bDebugRequest; /* debugger invoked via the VM */
static BOOL s_bDebugShowLines; /* update source code line on the debugger display */
static BOOL s_bDebuggerIsWorking; /* to know when __DBGENTRY is beeing invoked */
@@ -4324,7 +4325,14 @@ void hb_vmRequestCancel( void )
void hb_vmRequestDebug( void )
{
HB_TRACE(HB_TR_DEBUG, ("hb_vmRequestCancel()"));
/* TODO: Cause the debugger to be invoked */
s_bDebugRequest = TRUE;
}
HB_FUNC( INVOKEDEBUG )
{
BOOL bRequest = s_bDebugRequest;
s_bDebugRequest = FALSE;
hb_retl( bRequest );
}
/* $Doc$