ModuleName() automatically invokes Debugger() if module compiled using /b

1999-08-07 07:32:57 +00:00
parent 6cf08a2d90
commit c90188debc
1 changed files with 4 additions and 1 deletions
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -1392,7 +1392,10 @@ void Minus( void )

 void ModuleName( char * szModuleName ) /* PRG and function name information for the debugger */
 {
-
+   PushSymbol( hb_FindDynSym( "DEBUGGER" )->pSymbol );
+   PushNil();
+   PushString( szModuleName, strlen( szModuleName ) );
+   Do( 1 );
 }

 void Modulus( void )