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

IL implementation for HB_P_FRAME

Browse Source
This commit is contained in:
Antonio Linares
2003-06-27 07:12:20 +00:00
parent b5c9c94cf1
commit 2c2abe0d5c
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -534,11 +534,26 @@ static HB_GENC_FUNC( hb_p_fortest )
static HB_GENC_FUNC( hb_p_frame )
{
fprintf( cargo->yyc, "\tHB_P_FRAME, %i, %i,",
pFunc->pCode[ lPCodePos + 1 ],
pFunc->pCode[ lPCodePos + 2 ] );
if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* locals, params */" );
fprintf( cargo->yyc, "\n" );
int i;
fprintf( cargo->yyc, " .locals init (" );
for( i = 0; i < pFunc->pCode[ lPCodePos + 1 ]; i++ )
{
if( i > 0 )
fprintf( cargo->yyc, "," );
fprintf( cargo->yyc, " object V_%i", i );
}
fprintf( cargo->yyc, " )\n" );
// fprintf( cargo->yyc, "\tHB_P_FRAME, %i, %i,",
// pFunc->pCode[ lPCodePos + 1 ],
// pFunc->pCode[ lPCodePos + 2 ] );
// if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* locals, params */" );
// fprintf( cargo->yyc, "\n" );
return 3;
}