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

Added support for HB_P_MODULENAME opcode

Browse Source
This commit is contained in:
Antonio Linares
1999-08-06 17:02:09 +00:00
parent b1353e5b11
commit e5471f5b25
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -93,6 +93,7 @@ void Less( void ); /* checks if the latest - 1 value is less than
void LessEqual( void ); /* checks if the latest - 1 value is less than or equal the latest, removes both and leaves result */
void Message( PHB_SYMB pSymMsg ); /* sends a message to an object */
void Minus( void ); /* substracts the latest two values on the stack, removes them and leaves the result */
void ModuleName( char * szModuleName ); /* PRG and function name information for the debugger */
void Modulus( void ); /* calculates the modulus of latest two values on the stack, removes them and leaves the result */
void Mult( void ); /* multiplies the latest two values on the stack, removes them and leaves the result */
void Negate( void ); /* negates (-) the latest value on the stack */
@@ -435,6 +436,11 @@ void VirtualMachine( BYTE * pCode, PHB_SYMB pSymbols )
w++;
break;
case HB_P_MODULENAME:
ModuleName( ( char * ) pCode + w + 1 );
while( pCode[ w++ ] );
break;
case HB_P_MODULUS:
Modulus();
w++;
@@ -1372,6 +1378,11 @@ void Minus( void )
}
void ModuleName( char * szModuleName ) /* PRG and function name information for the debugger */
{
}
void Modulus( void )
{
WORD wDec1, wDec2;