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

.NET IL implementation for HB_P_PUSHBYTE

Browse Source
This commit is contained in:
Antonio Linares
2003-06-27 10:09:12 +00:00
parent 57e3e41a36
commit 5ac2dcb0a5
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/source/compiler/gencli.c
View File

@@ -1348,11 +1348,15 @@ static HB_GENC_FUNC( hb_p_pushfield )
static HB_GENC_FUNC( hb_p_pushbyte )
{
fprintf( cargo->yyc, "\tHB_P_PUSHBYTE, %i,",
pFunc->pCode[ lPCodePos + 1 ] );
if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %i */",
pFunc->pCode[ lPCodePos + 1 ] );
fprintf( cargo->yyc, "\n" );
fprintf( cargo->yyc, " ldc.i4.s %i\n", pFunc->pCode[ lPCodePos + 1 ] );
fprintf( cargo->yyc, " box [mscorlib]System.Int32\n" );
// fprintf( cargo->yyc, "\tHB_P_PUSHBYTE, %i,",
// pFunc->pCode[ lPCodePos + 1 ] );
// if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %i */",
// pFunc->pCode[ lPCodePos + 1 ] );
// fprintf( cargo->yyc, "\n" );
return 2;
}