diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e8b4f38831..2874bb3bbe 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,42 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-05-11 22:50 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/include/hbcomp.h + * harbour/include/hbcompdf.h + * harbour/include/hbexpra.c + * harbour/include/hbexprb.c + * harbour/source/compiler/complex.c + * harbour/source/compiler/genc.c + * harbour/source/compiler/gencli.c + * harbour/source/compiler/genobj32.c + * harbour/source/compiler/harbour.y + * harbour/source/compiler/harbour.yyc + * harbour/source/compiler/harbour.yyh + * harbour/source/compiler/hbmain.c + * changed code used for variable scoping - now it's much more + simple (only one function) and allows to use declarations in + nested functions/codeblocks with visibility similar to Pascal + ! fixed parsing FILED IN + we were accepting code like: + FIELD f1, f2 IN db1, f3 IN db2 IN db3 + and for all fields the last alias (db2 in this example) was used + ! fixed calculating number of static variables with -b (debugger) + compilation (number of file wide statics were doubled) + ! fixed generation of static variable names for debugger when declared + with array dimensions, f.e.: + static sVar[3] + + * harbour/source/rtl/hbffind.c + * minor cleanup *nix version + + * harbour/contrib/bmdbfcdx/bmdbfcdx1.c + ! fixed casting for C++ compilation + + * harbour/source/rdd/dbfdbt/dbfdbt1.c + * updated for some old API modifications (this library is not used now + but if we keep it in CVS then I think it should be updated) + 2007-05-11 18:09 UTC+0100 Antonio Linares (alinares@fivetechsoft.com) * contrib/adordd/adordd.prg * COMMIT changes diff --git a/harbour/contrib/bmdbfcdx/bmdbfcdx1.c b/harbour/contrib/bmdbfcdx/bmdbfcdx1.c index eb4a15546f..27337f84c9 100644 --- a/harbour/contrib/bmdbfcdx/bmdbfcdx1.c +++ b/harbour/contrib/bmdbfcdx/bmdbfcdx1.c @@ -10100,11 +10100,11 @@ HB_FUNC( SIXCDX_GETFUNCTABLE ) if ( uiCount ) * uiCount = RDDFUNCSCOUNT; - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBFFPT" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBFFPT" ); if ( errCode != SUCCESS ) - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBFDBT" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBFDBT" ); if ( errCode != SUCCESS ) - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBF" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBF" ); hb_retni( errCode ); if ( errCode == SUCCESS ) { @@ -10164,11 +10164,11 @@ HB_FUNC( BMDBFCDX_GETFUNCTABLE ) if ( uiCount ) * uiCount = RDDFUNCSCOUNT; - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBFFPT" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBFFPT" ); if ( errCode != SUCCESS ) - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBFDBT" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBFDBT" ); if ( errCode != SUCCESS ) - errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, ( BYTE * ) "DBF" ); + errCode = hb_rddInherit( pTable, &cdxTable, &cdxSuper, "DBF" ); if ( errCode == SUCCESS ) { /* diff --git a/harbour/include/hbcomp.h b/harbour/include/hbcomp.h index fbf5c593b5..3cc7de99d9 100644 --- a/harbour/include/hbcomp.h +++ b/harbour/include/hbcomp.h @@ -103,17 +103,18 @@ extern void hb_compParserStop( HB_COMP_DECL ); /* return detailed information about a class of variable */ extern int hb_compVariableScope( HB_COMP_DECL, char * ); -#define HB_VS_UNDECLARED 0 +#define HB_VS_UNDECLARED 0 /* variables declared in a current codeblock/function/procedure */ -#define HB_VS_CBLOCAL_VAR 1 /* local parameter of a codeblock */ -#define HB_VS_LOCAL_VAR 2 -#define HB_VS_LOCAL_MEMVAR 4 -#define HB_VS_LOCAL_FIELD 8 -#define HB_VS_STATIC_VAR 16 +#define HB_VS_CBLOCAL_VAR 1 /* local parameter of a codeblock */ +#define HB_VS_LOCAL_VAR 2 +#define HB_VS_LOCAL_MEMVAR 4 +#define HB_VS_LOCAL_FIELD 8 +#define HB_VS_STATIC_VAR 16 +#define HB_VS_FILEWIDE 32 /* variables declared outside of a current function/procedure */ -#define HB_VS_GLOBAL_MEMVAR (32 | HB_VS_LOCAL_MEMVAR) -#define HB_VS_GLOBAL_FIELD (32 | HB_VS_LOCAL_FIELD) -#define HB_VS_GLOBAL_STATIC (32 | HB_VS_STATIC_VAR) +#define HB_VS_GLOBAL_MEMVAR (HB_VS_FILEWIDE | HB_VS_LOCAL_MEMVAR) +#define HB_VS_GLOBAL_FIELD (HB_VS_FILEWIDE | HB_VS_LOCAL_FIELD) +#define HB_VS_GLOBAL_STATIC (HB_VS_FILEWIDE | HB_VS_STATIC_VAR) #define VU_NOT_USED 0 #define VU_INITIALIZED 1 @@ -135,33 +136,26 @@ extern int hb_compVariableScope( HB_COMP_DECL, char * ); extern void hb_compFunctionAdd( HB_COMP_DECL, char * szFunName, HB_SYMBOLSCOPE cScope, int iType ); /* starts a new Clipper language function definition */ extern PFUNCTION hb_compFunctionFind( HB_COMP_DECL, char * szFunName ); /* locates a previously defined function */ -extern PINLINE hb_compInlineFind( HB_COMP_DECL, char * szFunName ); -extern USHORT hb_compFunctionGetPos( HB_COMP_DECL, char * szSymbolName ); /* returns the index + 1 of a function on the functions defined list */ -extern PFUNCTION hb_compFunctionKill( HB_COMP_DECL, PFUNCTION ); /* releases all memory allocated by function and returns the next one */ extern void hb_compAnnounce( HB_COMP_DECL, char * ); + extern PINLINE hb_compInlineAdd( HB_COMP_DECL, char * szFunName, int iLine ); +extern PINLINE hb_compInlineFind( HB_COMP_DECL, char * szFunName ); extern PFUNCALL hb_compFunCallFind( HB_COMP_DECL, char * szFunName ); /* locates a previously defined called function */ extern BOOL hb_compFunCallCheck( HB_COMP_DECL, char *, int ); extern void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cType ); /* add a new param, local, static variable to a function definition or a public or private */ -extern PVAR hb_compVariableFind( PVAR pVars, USHORT wOrder ); /* returns a variable if defined or zero */ -extern PVAR hb_compLocalVariableFind( PFUNCTION pFunc, USHORT wVar ); -extern USHORT hb_compVariableGetPos( PVAR pVars, char * szVarName ); /* returns the order + 1 of a variable if defined or zero */ -extern int hb_compLocalGetPos( HB_COMP_DECL, char * szVarName ); /* returns the order + 1 of a local variable */ -extern char * hb_compStaticGetName( HB_COMP_DECL, USHORT wVar ); /* returns the name of static variable */ +extern PVAR hb_compVariableFind( HB_COMP_DECL, char * szVarName, int * piPos, int * piScope ); +extern char * hb_compLocalVariableName( PFUNCTION pFunc, USHORT wVar ); /* returns the name of local variable */ +extern char * hb_compStaticVariableName( HB_COMP_DECL, USHORT wVar ); /* returns the name of static variable */ #define HB_SYM_MEMVAR FALSE #define HB_SYM_ALIAS FALSE #define HB_SYM_MSGNAME FALSE #define HB_SYM_FUNCNAME TRUE -extern PCOMSYMBOL hb_compSymbolAdd( HB_COMP_DECL, char *, USHORT *, BOOL ); -extern PCOMSYMBOL hb_compSymbolKill( PCOMSYMBOL ); /* releases all memory allocated by symbol and returns the next one */ -extern PCOMSYMBOL hb_compSymbolFind( HB_COMP_DECL, char *, USHORT *, BOOL ); /* returns a symbol pointer from the symbol table */ -extern PCOMSYMBOL hb_compSymbolGetPos( HB_COMP_DECL, USHORT ); /* returns a symbol based on its index on the symbol table */ +extern char * hb_compSymbolName( HB_COMP_DECL, USHORT ); /* returns a symbol name based on its index on the symbol table */ extern PCOMDECLARED hb_compDeclaredAdd( HB_COMP_DECL, char * ); -extern PCOMDECLARED hb_compDeclaredFind( HB_COMP_DECL, char * ); extern PCOMCLASS hb_compClassAdd( HB_COMP_DECL, char * ); extern PCOMCLASS hb_compClassFind( HB_COMP_DECL, char * ); @@ -234,8 +228,7 @@ extern int hb_compFieldsCount( HB_COMP_DECL ); /* Static variables */ extern void hb_compStaticDefStart( HB_COMP_DECL ); -extern void hb_compStaticDefEnd( HB_COMP_DECL ); -extern void hb_compGenStaticName( char *, HB_COMP_DECL ); +extern void hb_compStaticDefEnd( HB_COMP_DECL, char * ); extern BOOL hb_compCheckUnclosedStru( HB_COMP_DECL ); @@ -317,7 +310,6 @@ extern void hb_compPrintModes( void ); /* Misc functions defined in harbour.c */ -extern void hb_compFinalizeFunction( HB_COMP_DECL ); /* fixes all last defined function returns jumps offsets */ extern void hb_compNOOPfill( PFUNCTION pFunc, ULONG ulFrom, int iCount, BOOL fPop, BOOL fCheck ); extern BOOL hb_compIsJump( HB_COMP_DECL, PFUNCTION pFunc, ULONG ulPos ); diff --git a/harbour/include/hbcompdf.h b/harbour/include/hbcompdf.h index 2e22b7aa68..031a5fea36 100644 --- a/harbour/include/hbcompdf.h +++ b/harbour/include/hbcompdf.h @@ -137,6 +137,7 @@ typedef struct __FUNC PVAR pStatics; /* pointer to static variables list */ PVAR pFields; /* pointer to fields variables list */ PVAR pMemvars; /* pointer to memvar variables list */ + PVAR pDetached; /* pointer to detached local variables list */ PVAR pPrivates; /* pointer to private variables list */ BYTE * pCode; /* pointer to a memory block where pcode is stored */ ULONG lPCodeSize; /* total memory size for pcode */ diff --git a/harbour/include/hbexpra.c b/harbour/include/hbexpra.c index 012fa691eb..63e85edd0b 100644 --- a/harbour/include/hbexpra.c +++ b/harbour/include/hbexpra.c @@ -361,7 +361,7 @@ HB_EXPR_PTR hb_compExprNewFunCall( HB_EXPR_PTR pName, HB_EXPR_PTR pParms, HB_COM #if !defined( HB_MACRO_SUPPORT ) if( pArg->ExprType == HB_ET_VARIABLE ) { - if( hb_compVariableScope( HB_COMP_PARAM, pArg->value.asSymbol ) > 0 ) + if( hb_compVariableFind( HB_COMP_PARAM, pArg->value.asSymbol, NULL, NULL ) ) pArg = hb_compExprSetGetBlock( pArg, HB_COMP_PARAM ); else { @@ -566,7 +566,6 @@ HB_EXPR_PTR hb_compExprAssignStatic( HB_EXPR_PTR pLeftExpr, HB_EXPR_PTR pRightEx return pExpr; } - #endif /* ************************************************************************* */ diff --git a/harbour/include/hbexprb.c b/harbour/include/hbexprb.c index 32d6233b92..ca5c5b5972 100644 --- a/harbour/include/hbexprb.c +++ b/harbour/include/hbexprb.c @@ -3803,6 +3803,7 @@ static void hb_compExprCodeblockPush( HB_EXPR_PTR pSelf, BOOL bLateEval, HB_COMP { HB_CBVAR_PTR pVar; + HB_COMP_PARAM->iVarScope = VS_PARAMETER; pVar = pSelf->value.asCodeblock.pLocals; while( pVar ) { @@ -4171,8 +4172,9 @@ static void hb_compExprPushOperEq( HB_EXPR_PTR pSelf, BYTE bOpEq, HB_COMP_DECL ) #if defined( HB_MACRO_SUPPORT ) { #else - int iScope = hb_compVariableScope( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); + int iVar, iScope; + hb_compVariableFind( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol, &iVar, &iScope ); if( iScope != HB_VS_LOCAL_FIELD && iScope != HB_VS_GLOBAL_FIELD && iScope != HB_VS_UNDECLARED ) { @@ -4186,15 +4188,14 @@ static void hb_compExprPushOperEq( HB_EXPR_PTR pSelf, BYTE bOpEq, HB_COMP_DECL ) if( bOpEq != HB_P_MINUS || iIncrement >= -INT16_MAX ) { - int iLocal = hb_compLocalGetPos( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); BYTE buffer[ 5 ]; if( bOpEq == HB_P_MINUS ) iIncrement = -iIncrement; buffer[ 0 ] = HB_P_LOCALADDINT; - buffer[ 1 ] = HB_LOBYTE( iLocal ); - buffer[ 2 ] = HB_HIBYTE( iLocal ); + buffer[ 1 ] = HB_LOBYTE( iVar ); + buffer[ 2 ] = HB_HIBYTE( iVar ); buffer[ 3 ] = HB_LOBYTE( iIncrement ); buffer[ 4 ] = HB_HIBYTE( iIncrement ); HB_GEN_FUNC2( PCodeN, buffer, 5 ); @@ -4327,8 +4328,9 @@ static void hb_compExprUseOperEq( HB_EXPR_PTR pSelf, BYTE bOpEq, HB_COMP_DECL ) #if defined( HB_MACRO_SUPPORT ) { #else - int iScope = hb_compVariableScope( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); + int iVar, iScope; + hb_compVariableFind( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol, &iVar, &iScope ); if( iScope != HB_VS_LOCAL_FIELD && iScope != HB_VS_GLOBAL_FIELD && iScope != HB_VS_UNDECLARED ) { @@ -4342,15 +4344,14 @@ static void hb_compExprUseOperEq( HB_EXPR_PTR pSelf, BYTE bOpEq, HB_COMP_DECL ) if( bOpEq != HB_P_MINUS || iIncrement >= -INT16_MAX ) { - int iLocal = hb_compLocalGetPos( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); BYTE buffer[ 5 ]; if( bOpEq == HB_P_MINUS ) iIncrement = -iIncrement; buffer[ 0 ] = HB_P_LOCALADDINT; - buffer[ 1 ] = HB_LOBYTE( iLocal ); - buffer[ 2 ] = HB_HIBYTE( iLocal ); + buffer[ 1 ] = HB_LOBYTE( iVar ); + buffer[ 2 ] = HB_HIBYTE( iVar ); buffer[ 3 ] = HB_LOBYTE( iIncrement ); buffer[ 4 ] = HB_HIBYTE( iIncrement ); HB_GEN_FUNC2( PCodeN, buffer, 5 ); @@ -4442,21 +4443,21 @@ static void hb_compExprPushPreOp( HB_EXPR_PTR pSelf, BYTE bOper, HB_COMP_DECL ) #if !defined( HB_MACRO_SUPPORT ) else if( pSelf->value.asOperator.pLeft->ExprType == HB_ET_VARIABLE ) { - int iScope = hb_compVariableScope( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); + int iVar, iScope; + hb_compVariableFind( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol, &iVar, &iScope ); if( iScope != HB_VS_LOCAL_FIELD && iScope != HB_VS_GLOBAL_FIELD && iScope != HB_VS_UNDECLARED ) { if( iScope == HB_VS_LOCAL_VAR ) { - int iLocal = hb_compLocalGetPos( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); if( bOper == HB_P_INC ) { - HB_GEN_FUNC3( PCode3, HB_P_LOCALINCPUSH, HB_LOBYTE( iLocal ), HB_HIBYTE( iLocal ) ); + HB_GEN_FUNC3( PCode3, HB_P_LOCALINCPUSH, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ) ); } else { - HB_GEN_FUNC3( PCode3, HB_P_LOCALDEC, HB_LOBYTE( iLocal ), HB_HIBYTE( iLocal ) ); + HB_GEN_FUNC3( PCode3, HB_P_LOCALDEC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ) ); /* Push current value */ HB_EXPR_USE( pSelf->value.asOperator.pLeft, HB_EA_PUSH_PCODE ); } @@ -4560,19 +4561,18 @@ static void hb_compExprPushPostOp( HB_EXPR_PTR pSelf, BYTE bOper, HB_COMP_DECL ) #if !defined( HB_MACRO_SUPPORT ) else if( pSelf->value.asOperator.pLeft->ExprType == HB_ET_VARIABLE ) { - int iScope = hb_compVariableScope( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); + int iVar, iScope; + hb_compVariableFind( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol, &iVar, &iScope ); if( iScope != HB_VS_LOCAL_FIELD && iScope != HB_VS_GLOBAL_FIELD && iScope != HB_VS_UNDECLARED ) { if( iScope == HB_VS_LOCAL_VAR ) { - int iLocal = hb_compLocalGetPos( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); - /* Push current value */ HB_EXPR_USE( pSelf->value.asOperator.pLeft, HB_EA_PUSH_PCODE ); HB_GEN_FUNC3( PCode3, ( bOper == HB_P_INC ) ? HB_P_LOCALINC : HB_P_LOCALDEC, - HB_LOBYTE( iLocal ), HB_HIBYTE( iLocal ) ); + HB_LOBYTE( iVar ), HB_HIBYTE( iVar ) ); } else { @@ -4664,17 +4664,16 @@ static void hb_compExprUsePreOp( HB_EXPR_PTR pSelf, BYTE bOper, HB_COMP_DECL ) #if !defined( HB_MACRO_SUPPORT ) else if( pSelf->value.asOperator.pLeft->ExprType == HB_ET_VARIABLE ) { - int iScope = hb_compVariableScope( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); + int iVar, iScope; + hb_compVariableFind( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol, &iVar, &iScope ); if( iScope != HB_VS_LOCAL_FIELD && iScope != HB_VS_GLOBAL_FIELD && iScope != HB_VS_UNDECLARED ) { if( iScope == HB_VS_LOCAL_VAR ) { - int iLocal = hb_compLocalGetPos( HB_COMP_PARAM, pSelf->value.asOperator.pLeft->value.asSymbol ); - HB_GEN_FUNC3( PCode3, ( bOper == HB_P_INC ) ? HB_P_LOCALINC : HB_P_LOCALDEC, - HB_LOBYTE( iLocal ), HB_HIBYTE( iLocal ) ); + HB_LOBYTE( iVar ), HB_HIBYTE( iVar ) ); } else { diff --git a/harbour/source/compiler/complex.c b/harbour/source/compiler/complex.c index 78f2d136ef..6703b6161c 100644 --- a/harbour/source/compiler/complex.c +++ b/harbour/source/compiler/complex.c @@ -573,12 +573,14 @@ int hb_complex( YYSTYPE *yylval_ptr, HB_COMP_DECL ) case BEGINSEQ: if( pLex->iState == LOOKUP && pToken->pNext && - HB_PP_TOKEN_TYPE( pToken->pNext->type ) == HB_PP_TOKEN_KEYWORD && - pToken->pNext->len >= 4 && pToken->pNext->len <= 8 && - hb_strnicmp( "SEQUENCE", pToken->pNext->value, pToken->pNext->len ) == 0 ) + HB_PP_TOKEN_TYPE( pToken->pNext->type ) == HB_PP_TOKEN_KEYWORD ) { - hb_pp_tokenGet( pLex->pPP ); - break; + if( pToken->pNext->len >= 4 && pToken->pNext->len <= 8 && + hb_strnicmp( "SEQUENCE", pToken->pNext->value, pToken->pNext->len ) == 0 ) + { + hb_pp_tokenGet( pLex->pPP ); + break; + } } iType = IDENTIFIER; break; diff --git a/harbour/source/compiler/genc.c b/harbour/source/compiler/genc.c index 38d40e45b4..9f3b843073 100644 --- a/harbour/source/compiler/genc.c +++ b/harbour/source/compiler/genc.c @@ -420,8 +420,6 @@ static void hb_compGenCByteStr( FILE * yyc, BYTE * pText, ULONG ulLen ) static void hb_compGenCLocalName( PFUNCTION pFunc, int iLocal, ULONG lPCodePos, HB_GENC_INFO_PTR cargo ) { - PVAR pVar; - /* Variable with negative order are local variables * referenced in a codeblock -handle it with care */ @@ -437,12 +435,24 @@ static void hb_compGenCLocalName( PFUNCTION pFunc, int iLocal, ULONG lPCodePos, } else { - pVar = hb_compLocalVariableFind( pFunc, ( USHORT ) iLocal ); - if( pVar ) - fprintf( cargo->yyc, "\t/* %s */", pVar->szName ); + char *szName = hb_compLocalVariableName( pFunc, ( USHORT ) iLocal ); + + if( szName ) + fprintf( cargo->yyc, "\t/* %s */", szName ); + else + fprintf( cargo->yyc, "\t/* localvar%i */", iLocal ); } } +static void hb_compGenCStaticName( USHORT uiStatic, HB_GENC_INFO_PTR cargo ) +{ + char *szName = hb_compStaticVariableName( cargo->HB_COMP_PARAM, uiStatic ); + if( szName ) + fprintf( cargo->yyc, "\t/* %s */", szName ); + else + fprintf( cargo->yyc, "\t/* staticvar%hu */", uiStatic ); +} + static HB_GENC_FUNC( hb_p_and ) { HB_SYMBOL_UNUSED( pFunc ); @@ -1025,7 +1035,7 @@ static HB_GENC_FUNC( hb_p_message ) fprintf( cargo->yyc, "\tHB_P_MESSAGE, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1121,7 +1131,7 @@ static HB_GENC_FUNC( hb_p_parameter ) pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ], pFunc->pCode[ lPCodePos + 3 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 4; } @@ -1158,7 +1168,7 @@ static HB_GENC_FUNC( hb_p_popaliasedfield ) fprintf( cargo->yyc, "\tHB_P_POPALIASEDFIELD, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1167,7 +1177,7 @@ static HB_GENC_FUNC( hb_p_popaliasedfieldnear ) { fprintf( cargo->yyc, "\tHB_P_POPALIASEDFIELDNEAR, %i,", pFunc->pCode[ lPCodePos + 1 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] ) ); fprintf( cargo->yyc, "\n" ); return 2; } @@ -1177,7 +1187,7 @@ static HB_GENC_FUNC( hb_p_popaliasedvar ) fprintf( cargo->yyc, "\tHB_P_POPALIASEDVAR, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1187,7 +1197,7 @@ static HB_GENC_FUNC( hb_p_popfield ) fprintf( cargo->yyc, "\tHB_P_POPFIELD, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1224,7 +1234,7 @@ static HB_GENC_FUNC( hb_p_popmemvar ) fprintf( cargo->yyc, "\tHB_P_POPMEMVAR, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1235,10 +1245,7 @@ static HB_GENC_FUNC( hb_p_popstatic ) pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); if( cargo->bVerbose ) - { - char *szName = hb_compStaticGetName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ); - fprintf( cargo->yyc, "\t/* %s */", szName ); - } + hb_compGenCStaticName( HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ), cargo ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1248,7 +1255,7 @@ static HB_GENC_FUNC( hb_p_popvariable ) fprintf( cargo->yyc, "\tHB_P_POPVARIABLE, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1276,7 +1283,7 @@ static HB_GENC_FUNC( hb_p_pushaliasedfield ) fprintf( cargo->yyc, "\tHB_P_PUSHALIASEDFIELD, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1285,7 +1292,7 @@ static HB_GENC_FUNC( hb_p_pushaliasedfieldnear ) { fprintf( cargo->yyc, "\tHB_P_PUSHALIASEDFIELDNEAR, %i,", pFunc->pCode[ lPCodePos + 1 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] ) ); fprintf( cargo->yyc, "\n" ); return 2; } @@ -1295,7 +1302,7 @@ static HB_GENC_FUNC( hb_p_pushaliasedvar ) fprintf( cargo->yyc, "\tHB_P_PUSHALIASEDVAR, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1450,7 +1457,7 @@ static HB_GENC_FUNC( hb_p_pushfield ) fprintf( cargo->yyc, "\tHB_P_PUSHFIELD, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1557,7 +1564,7 @@ static HB_GENC_FUNC( hb_p_pushmemvar ) fprintf( cargo->yyc, "\tHB_P_PUSHMEMVAR, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1567,7 +1574,7 @@ static HB_GENC_FUNC( hb_p_pushmemvarref ) fprintf( cargo->yyc, "\tHB_P_PUSHMEMVARREF, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1596,10 +1603,7 @@ static HB_GENC_FUNC( hb_p_pushstatic ) pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); if( cargo->bVerbose ) - { - char *szName = hb_compStaticGetName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ); - fprintf( cargo->yyc, "\t/* %s */", szName ); - } + hb_compGenCStaticName( HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ), cargo ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1610,10 +1614,7 @@ static HB_GENC_FUNC( hb_p_pushstaticref ) pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); if( cargo->bVerbose ) - { - char *szName = hb_compStaticGetName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ); - fprintf( cargo->yyc, "\t/* %s */", szName ); - } + hb_compGenCStaticName( HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ), cargo ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1703,8 +1704,7 @@ static HB_GENC_FUNC( hb_p_pushsym ) fprintf( cargo->yyc, "\tHB_P_PUSHSYM, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) - fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1713,8 +1713,7 @@ static HB_GENC_FUNC( hb_p_pushsymnear ) { fprintf( cargo->yyc, "\tHB_P_PUSHSYMNEAR, %i,", pFunc->pCode[ lPCodePos + 1 ] ); - if( cargo->bVerbose ) - fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] ) ); fprintf( cargo->yyc, "\n" ); return 2; } @@ -1724,8 +1723,7 @@ static HB_GENC_FUNC( hb_p_pushfuncsym ) fprintf( cargo->yyc, "\tHB_P_PUSHFUNCSYM, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) - fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -1735,8 +1733,7 @@ static HB_GENC_FUNC( hb_p_pushvariable ) fprintf( cargo->yyc, "\tHB_P_PUSHVARIABLE, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) - fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } @@ -2273,7 +2270,7 @@ static HB_GENC_FUNC( hb_p_withobjectmessage ) fprintf( cargo->yyc, "\tHB_P_WITHOBJECTMESSAGE, %i, %i,", pFunc->pCode[ lPCodePos + 1 ], pFunc->pCode[ lPCodePos + 2 ] ); - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolGetPos( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) )->szName ); + if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compSymbolName( cargo->HB_COMP_PARAM, HB_PCODE_MKUSHORT( &pFunc->pCode[ lPCodePos + 1 ] ) ) ); fprintf( cargo->yyc, "\n" ); return 3; } diff --git a/harbour/source/compiler/gencli.c b/harbour/source/compiler/gencli.c index c5ee2933c4..d403806d07 100644 --- a/harbour/source/compiler/gencli.c +++ b/harbour/source/compiler/gencli.c @@ -61,10 +61,7 @@ void hb_compGenILCode( HB_COMP_DECL, PHB_FNAME pFileName ) /* generates the IL char szFileName[ _POSIX_PATH_MAX + 1 ], * szVer; PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; PCOMSYMBOL pSym = HB_COMP_PARAM->symbols.pFirst; - PFUNCALL pFuncall; PINLINE pInline; - PCOMDECLARED pDeclared; - PCOMCLASS pClass; FILE * yyc; /* file handle for IL output */ BOOL bIsPublicFunction ; BOOL bIsInitFunction ; @@ -177,49 +174,6 @@ void hb_compGenILCode( HB_COMP_DECL, PHB_FNAME pFileName ) /* generates the IL fclose( yyc ); - pFunc = HB_COMP_PARAM->functions.pFirst; - while( pFunc ) - pFunc = hb_compFunctionKill( HB_COMP_PARAM, pFunc ); - - pFuncall = HB_COMP_PARAM->funcalls.pFirst; - while( pFuncall ) - { - HB_COMP_PARAM->funcalls.pFirst = pFuncall->pNext; - pFuncall = HB_COMP_PARAM->funcalls.pFirst; - } - - if ( HB_COMP_PARAM->iWarnings >= 3 ) - { - pDeclared = HB_COMP_PARAM->pReleaseDeclared->pNext; - while( pDeclared ) - { - HB_COMP_PARAM->pFirstDeclared = pDeclared->pNext; - hb_xfree( ( void * ) pDeclared ); - pDeclared = HB_COMP_PARAM->pFirstDeclared; - } - - pClass = HB_COMP_PARAM->pReleaseClass->pNext; - while( pClass ) - { - HB_COMP_PARAM->pFirstClass = pClass->pNext; - - pDeclared = pClass->pMethod; - while ( pDeclared ) - { - HB_COMP_PARAM->pFirstDeclared = pDeclared->pNext; - hb_xfree( ( void * ) pDeclared ); - pDeclared = HB_COMP_PARAM->pFirstDeclared; - } - - hb_xfree( ( void * ) pClass ); - pClass = HB_COMP_PARAM->pFirstClass; - } - } - - pSym = HB_COMP_PARAM->symbols.pFirst; - while( pSym ) - pSym = hb_compSymbolKill( pSym ); - if( ! HB_COMP_PARAM->fQuiet ) printf( "Done.\n" ); } @@ -1022,15 +976,13 @@ static HB_GENC_FUNC( hb_p_poplocal ) if( cargo->iNestedCodeblock ) { - /* we are accesing variables within a codeblock */ - /* the names of codeblock variable are lost */ if( wVar < 0 ) fprintf( cargo->yyc, "\t/* localvar%i */", -wVar ); else fprintf( cargo->yyc, "\t/* codeblockvar%i */", wVar ); } else - fprintf( cargo->yyc, "\t/* %s */", hb_compLocalVariableFind( pFunc, wVar )->szName ); + fprintf( cargo->yyc, "\t/* localvar%i */", wVar ); } fprintf( cargo->yyc, "\n" ); return 3; @@ -1151,18 +1103,9 @@ static HB_GENC_FUNC( hb_p_pushblock ) /* create the table of referenced local variables */ while( wVar-- ) { - w = * ( ( USHORT * ) &( pFunc->pCode [ lPCodePos ] ) ); fprintf( cargo->yyc, "\t%i, %i,", pFunc->pCode[ lPCodePos ], pFunc->pCode[ lPCodePos + 1 ] ); - /* NOTE: - * When a codeblock is used to initialize a static variable - * the names of local variables cannot be determined - * because at the time of C code generation we don't know - * in which function was defined this local variable - */ - if( ( pFunc->cScope & ( HB_FS_INIT | HB_FS_EXIT ) ) != ( HB_FS_INIT | HB_FS_EXIT ) ) - if( cargo->bVerbose ) fprintf( cargo->yyc, "\t/* %s */", hb_compLocalVariableFind( pFunc, w )->szName ); fprintf( cargo->yyc, "\n" ); lPCodePos +=2; } @@ -1247,15 +1190,13 @@ static HB_GENC_FUNC( hb_p_pushlocal ) if( cargo->iNestedCodeblock ) { - /* we are accesing variables within a codeblock */ - /* the names of codeblock variable are lost */ if( wVar < 0 ) fprintf( cargo->yyc, "\t/* localvar%i */", -wVar ); else fprintf( cargo->yyc, "\t/* codeblockvar%i */", wVar ); } else - fprintf( cargo->yyc, "\t/* %s */", hb_compLocalVariableFind( pFunc, wVar )->szName ); + fprintf( cargo->yyc, "\t/* localvar%i */", wVar ); } fprintf( cargo->yyc, "\n" ); return 3; @@ -1285,15 +1226,13 @@ static HB_GENC_FUNC( hb_p_pushlocalref ) if( cargo->iNestedCodeblock ) { - /* we are accesing variables within a codeblock */ - /* the names of codeblock variable are lost */ if( wVar < 0 ) fprintf( cargo->yyc, "\t/* localvar%i */", -wVar ); else fprintf( cargo->yyc, "\t/* codeblockvar%i */", wVar ); } else - fprintf( cargo->yyc, "\t/* %s */", hb_compLocalVariableFind( pFunc, wVar )->szName ); + fprintf( cargo->yyc, "\t/* localvar%i */", wVar ); } fprintf( cargo->yyc, "\n" ); return 3; @@ -1502,7 +1441,7 @@ static HB_GENC_FUNC( hb_p_pushsymnear ) pTemp = pFunCalls; } - pTemp->szName = hb_compSymbolGetPos( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] )->szName; + pTemp->szName = hb_compSymbolName( cargo->HB_COMP_PARAM, pFunc->pCode[ lPCodePos + 1 ] ); pTemp->bFirstParam = TRUE; pTemp->pNext = NULL; diff --git a/harbour/source/compiler/genobj32.c b/harbour/source/compiler/genobj32.c index c248e07571..dfae0bb4cf 100644 --- a/harbour/source/compiler/genobj32.c +++ b/harbour/source/compiler/genobj32.c @@ -101,6 +101,21 @@ void hb_compGenObj32( HB_COMP_DECL, PHB_FNAME pFileName ) printf( "Done.\n" ); } +static USHORT hb_compFunctionGetPos( HB_COMP_DECL, char * szFunctionName ) /* return 0 if not found or order + 1 */ +{ + PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; + USHORT wFunction = HB_COMP_PARAM->fStartProc ? 1 : 0; + + while( pFunc ) + { + if( ! strcmp( pFunc->szName, szFunctionName ) && pFunc != HB_COMP_PARAM->functions.pFirst ) + return wFunction; + wFunction++; + pFunc = pFunc->pNext; + } + return 0; +} + static ULONG GetSymbolsSize( HB_COMP_DECL ) { return HB_COMP_PARAM->symbols.iCount * sizeof( HB_SYMB ); diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y index e2799e99a1..91d41c7a66 100644 --- a/harbour/source/compiler/harbour.y +++ b/harbour/source/compiler/harbour.y @@ -164,7 +164,7 @@ extern void yyerror( HB_COMP_DECL, char * ); /* parsing error management fun %token AS_ARRAY AS_BLOCK AS_CHARACTER AS_CLASS AS_DATE AS_LOGICAL AS_NUMERIC AS_OBJECT AS_VARIANT DECLARE OPTIONAL DECLARE_CLASS DECLARE_MEMBER %token AS_ARRAY_ARRAY AS_BLOCK_ARRAY AS_CHARACTER_ARRAY AS_CLASS_ARRAY AS_DATE_ARRAY AS_LOGICAL_ARRAY AS_NUMERIC_ARRAY AS_OBJECT_ARRAY %token PROCREQ -%token CBSTART DOIDENT +%token CBSTART BEGINCODE DOIDENT %token FOREACH DESCEND %token DOSWITCH WITHOBJECT %token NUM_DATE @@ -197,7 +197,7 @@ extern void yyerror( HB_COMP_DECL, char * ); /* parsing error management fun %right '\n' ';' ',' /*the highest precedence*/ -%type IdentName IDENTIFIER MACROVAR MACROTEXT CompTimeStr +%type IdentName IDENTIFIER MACROVAR MACROTEXT CompTimeStr InAlias %type DOIDENT WHILE %type LITERAL %type NUM_DOUBLE @@ -315,6 +315,10 @@ AsType : /* not specified */ { HB_COMP_PARAM->cVarType = ' '; } | StrongType ; +AsArrayType: /* not specified */ { HB_COMP_PARAM->cVarType = ' '; } + | AsArray + ; + StrongType : AS_NUMERIC { HB_COMP_PARAM->cVarType = 'N'; } | AS_CHARACTER { HB_COMP_PARAM->cVarType = 'C'; } | AS_DATE { HB_COMP_PARAM->cVarType = 'D'; } @@ -1084,14 +1088,7 @@ ExtVarDef : VarDef { HB_COMP_EXPR_DELETE( hb_compExprGenPush( $4, HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, $1, HB_COMP_PARAM ), TRUE ); } - | MacroVar DimList - { - USHORT uCount = (USHORT) hb_compExprListLen( $2 ); - HB_COMP_EXPR_DELETE( hb_compExprGenPush( $2, HB_COMP_PARAM ) ); - hb_compGenPCode3( HB_P_ARRAYDIM, HB_LOBYTE( uCount ), HB_HIBYTE( uCount ), HB_COMP_PARAM ); - hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, $1, HB_COMP_PARAM ), TRUE ); - } - | MacroVar DimList AsArray + | MacroVar DimList AsArrayType { USHORT uCount = (USHORT) hb_compExprListLen( $2 ); HB_COMP_EXPR_DELETE( hb_compExprGenPush( $2, HB_COMP_PARAM ) ); @@ -1105,15 +1102,13 @@ VarDef : IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_P if( HB_COMP_PARAM->iVarScope == VS_STATIC ) { hb_compStaticDefStart( HB_COMP_PARAM ); /* switch to statics pcode buffer */ - hb_compStaticDefEnd( HB_COMP_PARAM ); - hb_compGenStaticName( $1, HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, $1 ); } else if( HB_COMP_PARAM->iVarScope == VS_PUBLIC || HB_COMP_PARAM->iVarScope == VS_PRIVATE ) { hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( $1, NULL, HB_COMP_PARAM ), FALSE ); } } - | IdentName AsType { $$ = HB_COMP_PARAM->iVarScope; hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_PARAM->cVarType ); } @@ -1127,8 +1122,7 @@ VarDef : IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_P { hb_compStaticDefStart( HB_COMP_PARAM ); /* switch to statics pcode buffer */ HB_COMP_EXPR_DELETE( hb_compExprGenStatement( hb_compExprAssignStatic( hb_compExprNewVar( $1, HB_COMP_PARAM ), $6, HB_COMP_PARAM ), HB_COMP_PARAM ) ); - hb_compStaticDefEnd( HB_COMP_PARAM ); - hb_compGenStaticName( $1, HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, $1 ); } else if( HB_COMP_PARAM->iVarScope == VS_PUBLIC || HB_COMP_PARAM->iVarScope == VS_PRIVATE ) { @@ -1142,8 +1136,7 @@ VarDef : IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_P HB_COMP_PARAM->iVarScope = $3; } - | IdentName DimList { hb_compVariableDim( $1, $2, HB_COMP_PARAM ); } - | IdentName DimList AsArray { hb_compVariableDim( $1, $2, HB_COMP_PARAM ); } + | IdentName DimList AsArrayType { hb_compVariableDim( $1, $2, HB_COMP_PARAM ); } ; /* NOTE: DimList and DimIndex is the same as ArrayIndex and IndexList @@ -1157,20 +1150,27 @@ DimIndex : '[' Expression { $$ = hb_compExprNewArgList( $2, HB_C | DimIndex ']' '[' Expression { $$ = hb_compExprAddListExpr( $1, $4 ); } ; - -FieldsDef : FIELD { HB_COMP_PARAM->iVarScope = VS_FIELD; } FieldList Crlf { HB_COMP_PARAM->cVarType = ' '; } +FieldsDef : FIELD { HB_COMP_PARAM->iVarScope = VS_FIELD; } + FieldList InAlias Crlf + { + if( $4 ) hb_compFieldSetAlias( HB_COMP_PARAM, $4, $3 ); + HB_COMP_PARAM->cVarType = ' '; + } ; -FieldList : IdentName AsType { $$=hb_compFieldsCount( HB_COMP_PARAM ); hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_PARAM->cVarType ); } - | FieldList ',' IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $3, HB_COMP_PARAM->cVarType ); } - | FieldList IN IdentName { hb_compFieldSetAlias( HB_COMP_PARAM, $3, $1 ); } +FieldList : IdentName AsType { $$=hb_compFieldsCount( HB_COMP_PARAM ); hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_PARAM->cVarType ); } + | FieldList ',' IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $3, HB_COMP_PARAM->cVarType ); } + ; + +InAlias : /* no alias */ { $$ = NULL; } + | IN IdentName { $$ = $2; } ; MemvarDef : MEMVAR { HB_COMP_PARAM->iVarScope = VS_MEMVAR; } MemvarList Crlf { HB_COMP_PARAM->cVarType = ' '; } ; -MemvarList : IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_PARAM->cVarType ); } - | MemvarList ',' IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $3, HB_COMP_PARAM->cVarType ); } +MemvarList : IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $1, HB_COMP_PARAM->cVarType ); } + | MemvarList ',' IdentName AsType { hb_compVariableAdd( HB_COMP_PARAM, $3, HB_COMP_PARAM->cVarType ); } ; Declaration: DECLARE IdentName '(' { hb_compDeclaredAdd( HB_COMP_PARAM, $2 ); HB_COMP_PARAM->szDeclaredFun = $2; } DecList ')' AsType Crlf @@ -2203,7 +2203,7 @@ static void hb_compVariableDim( char * szName, HB_EXPR_PTR pInitValue, HB_COMP_D hb_compExprGenPop( pVar, HB_COMP_PARAM ); /* delete all used expressions */ HB_COMP_EXPR_DELETE( pAssign ); - hb_compStaticDefEnd( HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, szName ); } else { diff --git a/harbour/source/compiler/harbour.yyc b/harbour/source/compiler/harbour.yyc index 227c791152..27a115071f 100644 --- a/harbour/source/compiler/harbour.yyc +++ b/harbour/source/compiler/harbour.yyc @@ -167,17 +167,18 @@ AS_OBJECT_ARRAY = 348, PROCREQ = 349, CBSTART = 350, - DOIDENT = 351, - FOREACH = 352, - DESCEND = 353, - DOSWITCH = 354, - WITHOBJECT = 355, - NUM_DATE = 356, - EPSILON = 357, - HASHOP = 358, - POST = 359, - UNARY = 360, - PRE = 361 + BEGINCODE = 351, + DOIDENT = 352, + FOREACH = 353, + DESCEND = 354, + DOSWITCH = 355, + WITHOBJECT = 356, + NUM_DATE = 357, + EPSILON = 358, + HASHOP = 359, + POST = 360, + UNARY = 361, + PRE = 362 }; #endif /* Tokens. */ @@ -274,17 +275,18 @@ #define AS_OBJECT_ARRAY 348 #define PROCREQ 349 #define CBSTART 350 -#define DOIDENT 351 -#define FOREACH 352 -#define DESCEND 353 -#define DOSWITCH 354 -#define WITHOBJECT 355 -#define NUM_DATE 356 -#define EPSILON 357 -#define HASHOP 358 -#define POST 359 -#define UNARY 360 -#define PRE 361 +#define BEGINCODE 351 +#define DOIDENT 352 +#define FOREACH 353 +#define DESCEND 354 +#define DOSWITCH 355 +#define WITHOBJECT 356 +#define NUM_DATE 357 +#define EPSILON 358 +#define HASHOP 359 +#define POST 360 +#define UNARY 361 +#define PRE 362 @@ -453,7 +455,7 @@ typedef union YYSTYPE } asMessage; } /* Line 193 of yacc.c. */ -#line 457 "harboury.c" +#line 459 "harboury.c" YYSTYPE; # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 @@ -473,7 +475,7 @@ extern void yyerror( HB_COMP_DECL, char * ); /* parsing error management fun /* Line 216 of yacc.c. */ -#line 477 "harboury.c" +#line 479 "harboury.c" #ifdef short # undef short @@ -688,20 +690,20 @@ union yyalloc /* YYFINAL -- State number of the termination state. */ #define YYFINAL 286 /* YYLAST -- Last index in YYTABLE. */ -#define YYLAST 8295 +#define YYLAST 8284 /* YYNTOKENS -- Number of terminals. */ -#define YYNTOKENS 129 +#define YYNTOKENS 130 /* YYNNTS -- Number of nonterminals. */ -#define YYNNTS 239 +#define YYNNTS 241 /* YYNRULES -- Number of rules. */ -#define YYNRULES 619 +#define YYNRULES 620 /* YYNRULES -- Number of states. */ -#define YYNSTATES 989 +#define YYNSTATES 991 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ #define YYUNDEFTOK 2 -#define YYMAXUTOK 361 +#define YYMAXUTOK 362 #define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) @@ -710,18 +712,18 @@ union yyalloc static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 118, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 119, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 108, 113, 116, 2, - 121, 122, 111, 109, 120, 110, 2, 112, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 125, 119, - 106, 105, 107, 2, 117, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 109, 114, 117, 2, + 122, 123, 112, 110, 121, 111, 2, 113, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 126, 120, + 107, 106, 108, 2, 118, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 127, 2, 126, 2, 2, 2, 2, 2, 2, + 2, 128, 2, 127, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 123, 128, 124, 2, 2, 2, 2, + 2, 2, 2, 124, 129, 125, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, @@ -745,7 +747,7 @@ static const yytype_uint8 yytranslate[] = 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, - 114, 115 + 105, 115, 116 }; #if YYDEBUG @@ -756,252 +758,253 @@ static const yytype_uint16 yyprhs[] = 0, 0, 3, 5, 6, 8, 10, 12, 14, 16, 19, 22, 25, 28, 31, 34, 38, 43, 50, 51, 57, 58, 64, 65, 74, 75, 84, 85, 87, 89, - 91, 92, 94, 96, 100, 101, 103, 105, 107, 109, - 111, 113, 115, 118, 120, 122, 124, 126, 128, 130, - 132, 134, 136, 138, 141, 144, 149, 152, 155, 158, - 161, 164, 167, 170, 173, 176, 179, 182, 185, 188, - 191, 194, 195, 200, 203, 206, 209, 210, 215, 216, - 217, 223, 224, 225, 231, 233, 235, 237, 241, 245, - 246, 251, 256, 258, 262, 263, 266, 268, 270, 272, - 274, 276, 278, 283, 291, 296, 304, 305, 307, 309, - 311, 313, 316, 317, 319, 321, 325, 327, 331, 333, - 335, 337, 339, 341, 343, 345, 347, 349, 351, 353, - 355, 357, 359, 361, 363, 365, 367, 369, 371, 373, - 376, 379, 381, 384, 386, 389, 392, 394, 396, 399, - 401, 404, 408, 411, 414, 417, 421, 425, 428, 432, - 438, 440, 443, 445, 447, 450, 453, 456, 459, 463, - 466, 469, 472, 475, 478, 481, 484, 487, 490, 493, - 496, 499, 502, 505, 507, 509, 511, 514, 517, 520, - 523, 526, 529, 532, 535, 538, 541, 544, 547, 550, - 553, 556, 559, 562, 565, 568, 571, 574, 577, 580, - 583, 586, 589, 592, 595, 598, 601, 604, 607, 610, - 613, 616, 619, 622, 625, 628, 631, 634, 637, 640, - 643, 646, 647, 653, 655, 656, 662, 663, 669, 672, - 675, 677, 681, 683, 685, 688, 691, 694, 697, 700, - 702, 704, 708, 712, 715, 717, 719, 721, 726, 729, - 730, 736, 739, 741, 743, 745, 747, 749, 751, 753, - 754, 758, 760, 762, 764, 766, 768, 770, 772, 774, - 776, 777, 781, 783, 785, 786, 790, 792, 793, 797, - 799, 801, 803, 805, 807, 809, 811, 813, 815, 817, - 819, 820, 824, 825, 829, 831, 833, 835, 836, 838, - 840, 842, 844, 846, 848, 850, 852, 854, 856, 858, - 860, 862, 864, 866, 868, 870, 872, 874, 876, 878, - 880, 882, 884, 886, 888, 890, 892, 894, 896, 898, - 901, 904, 907, 910, 913, 916, 920, 924, 928, 932, - 936, 940, 944, 948, 952, 956, 960, 964, 968, 972, - 976, 980, 984, 988, 992, 996, 1000, 1004, 1008, 1012, - 1016, 1020, 1024, 1028, 1030, 1032, 1034, 1036, 1038, 1040, - 1044, 1048, 1052, 1056, 1060, 1064, 1068, 1072, 1076, 1080, - 1084, 1088, 1092, 1096, 1100, 1104, 1108, 1111, 1114, 1118, - 1123, 1125, 1129, 1130, 1137, 1139, 1143, 1144, 1146, 1148, - 1152, 1155, 1160, 1162, 1166, 1170, 1173, 1182, 1185, 1186, - 1191, 1192, 1197, 1198, 1203, 1205, 1209, 1211, 1215, 1217, - 1220, 1225, 1228, 1232, 1233, 1237, 1238, 1239, 1246, 1249, - 1253, 1256, 1259, 1263, 1268, 1269, 1274, 1277, 1282, 1286, - 1287, 1292, 1295, 1300, 1301, 1310, 1311, 1317, 1321, 1325, - 1326, 1334, 1336, 1340, 1342, 1345, 1347, 1350, 1351, 1358, - 1359, 1363, 1364, 1366, 1368, 1372, 1374, 1378, 1380, 1383, - 1387, 1393, 1398, 1404, 1412, 1416, 1421, 1428, 1434, 1441, - 1450, 1452, 1454, 1456, 1458, 1460, 1462, 1464, 1466, 1469, - 1473, 1477, 1482, 1483, 1484, 1491, 1492, 1497, 1498, 1499, - 1506, 1507, 1508, 1516, 1518, 1520, 1524, 1528, 1531, 1536, - 1538, 1540, 1541, 1545, 1547, 1550, 1551, 1552, 1559, 1560, - 1561, 1569, 1570, 1571, 1577, 1578, 1584, 1585, 1586, 1594, - 1596, 1598, 1600, 1601, 1602, 1603, 1616, 1618, 1620, 1621, - 1624, 1627, 1631, 1634, 1638, 1640, 1642, 1644, 1648, 1651, - 1653, 1655, 1659, 1660, 1661, 1662, 1673, 1674, 1676, 1677, - 1682, 1685, 1687, 1688, 1693, 1695, 1698, 1699, 1705, 1706, - 1713, 1715, 1718, 1719, 1720, 1726, 1727, 1728, 1729, 1730, - 1741, 1742, 1746, 1748, 1749, 1753, 1757, 1759, 1762, 1764, - 1766, 1767, 1772, 1773, 1777, 1778, 1781, 1783, 1786, 1788, - 1791, 1795, 1797, 1799, 1801, 1803, 1805, 1806, 1813, 1815 + 91, 92, 94, 96, 100, 101, 103, 104, 106, 108, + 110, 112, 114, 116, 118, 121, 123, 125, 127, 129, + 131, 133, 135, 137, 139, 141, 144, 147, 152, 155, + 158, 161, 164, 167, 170, 173, 176, 179, 182, 185, + 188, 191, 194, 197, 198, 203, 206, 209, 212, 213, + 218, 219, 220, 226, 227, 228, 234, 236, 238, 240, + 244, 248, 249, 254, 259, 261, 265, 266, 269, 271, + 273, 275, 277, 279, 281, 286, 294, 299, 307, 308, + 310, 312, 314, 316, 319, 320, 322, 324, 328, 330, + 334, 336, 338, 340, 342, 344, 346, 348, 350, 352, + 354, 356, 358, 360, 362, 364, 366, 368, 370, 372, + 374, 376, 379, 382, 384, 387, 389, 392, 395, 397, + 399, 402, 404, 407, 411, 414, 417, 420, 424, 428, + 431, 435, 441, 443, 446, 448, 450, 453, 456, 459, + 462, 466, 469, 472, 475, 478, 481, 484, 487, 490, + 493, 496, 499, 502, 505, 508, 510, 512, 514, 517, + 520, 523, 526, 529, 532, 535, 538, 541, 544, 547, + 550, 553, 556, 559, 562, 565, 568, 571, 574, 577, + 580, 583, 586, 589, 592, 595, 598, 601, 604, 607, + 610, 613, 616, 619, 622, 625, 628, 631, 634, 637, + 640, 643, 646, 649, 650, 656, 658, 659, 665, 666, + 672, 675, 678, 680, 684, 686, 688, 691, 694, 697, + 700, 703, 705, 707, 711, 715, 718, 720, 722, 724, + 729, 732, 733, 739, 742, 744, 746, 748, 750, 752, + 754, 756, 757, 761, 763, 765, 767, 769, 771, 773, + 775, 777, 779, 780, 784, 786, 788, 789, 793, 795, + 796, 800, 802, 804, 806, 808, 810, 812, 814, 816, + 818, 820, 822, 823, 827, 828, 832, 834, 836, 838, + 839, 841, 843, 845, 847, 849, 851, 853, 855, 857, + 859, 861, 863, 865, 867, 869, 871, 873, 875, 877, + 879, 881, 883, 885, 887, 889, 891, 893, 895, 897, + 899, 901, 904, 907, 910, 913, 916, 919, 923, 927, + 931, 935, 939, 943, 947, 951, 955, 959, 963, 967, + 971, 975, 979, 983, 987, 991, 995, 999, 1003, 1007, + 1011, 1015, 1019, 1023, 1027, 1031, 1033, 1035, 1037, 1039, + 1041, 1043, 1047, 1051, 1055, 1059, 1063, 1067, 1071, 1075, + 1079, 1083, 1087, 1091, 1095, 1099, 1103, 1107, 1111, 1114, + 1117, 1121, 1126, 1128, 1132, 1133, 1140, 1142, 1146, 1147, + 1149, 1151, 1155, 1158, 1163, 1165, 1169, 1173, 1176, 1185, + 1188, 1189, 1194, 1195, 1200, 1201, 1206, 1208, 1212, 1214, + 1218, 1220, 1223, 1228, 1232, 1233, 1237, 1238, 1239, 1246, + 1250, 1253, 1256, 1260, 1265, 1266, 1272, 1275, 1280, 1281, + 1284, 1285, 1290, 1293, 1298, 1299, 1308, 1309, 1315, 1319, + 1323, 1324, 1332, 1334, 1338, 1340, 1343, 1345, 1348, 1349, + 1356, 1357, 1361, 1362, 1364, 1366, 1370, 1372, 1376, 1378, + 1381, 1385, 1391, 1396, 1402, 1410, 1414, 1419, 1426, 1432, + 1439, 1448, 1450, 1452, 1454, 1456, 1458, 1460, 1462, 1464, + 1467, 1471, 1475, 1480, 1481, 1482, 1489, 1490, 1495, 1496, + 1497, 1504, 1505, 1506, 1514, 1516, 1518, 1522, 1526, 1529, + 1534, 1536, 1538, 1539, 1543, 1545, 1548, 1549, 1550, 1557, + 1558, 1559, 1567, 1568, 1569, 1575, 1576, 1582, 1583, 1584, + 1592, 1594, 1596, 1598, 1599, 1600, 1601, 1614, 1616, 1618, + 1619, 1622, 1625, 1629, 1632, 1636, 1638, 1640, 1642, 1646, + 1649, 1651, 1653, 1657, 1658, 1659, 1660, 1671, 1672, 1674, + 1675, 1680, 1683, 1685, 1686, 1691, 1693, 1696, 1697, 1703, + 1704, 1711, 1713, 1716, 1717, 1718, 1724, 1725, 1726, 1727, + 1728, 1739, 1740, 1744, 1746, 1747, 1751, 1755, 1757, 1760, + 1762, 1764, 1765, 1770, 1771, 1775, 1776, 1779, 1781, 1784, + 1786, 1789, 1793, 1795, 1797, 1799, 1801, 1803, 1804, 1811, + 1813 }; /* YYRHS -- A `-1'-separated list of the rules' RHS. */ static const yytype_int16 yyrhs[] = { - 130, 0, -1, 131, -1, -1, 367, -1, 273, -1, - 133, -1, 144, -1, 132, -1, 1, 367, -1, 131, - 367, -1, 131, 273, -1, 131, 133, -1, 131, 144, - -1, 131, 132, -1, 131, 1, 367, -1, 70, 10, - 19, 367, -1, 70, 10, 19, 117, 19, 367, -1, - -1, 138, 3, 162, 134, 367, -1, -1, 138, 4, - 162, 135, 367, -1, -1, 138, 3, 162, 136, 121, - 139, 122, 367, -1, -1, 138, 4, 162, 137, 121, - 139, 122, 367, -1, -1, 12, -1, 25, -1, 26, - -1, -1, 102, -1, 143, -1, 143, 120, 102, -1, - -1, 141, -1, 79, -1, 75, -1, 77, -1, 78, - -1, 74, -1, 80, -1, 76, 162, -1, 81, -1, - 142, -1, 73, -1, 92, -1, 88, -1, 90, -1, - 91, -1, 86, -1, 87, -1, 93, -1, 89, 162, - -1, 162, 140, -1, 143, 120, 162, 140, -1, 288, - 153, -1, 252, 153, -1, 197, 153, -1, 192, 153, - -1, 210, 153, -1, 184, 153, -1, 186, 153, -1, - 250, 153, -1, 227, 153, -1, 226, 153, -1, 237, - 153, -1, 230, 153, -1, 229, 153, -1, 359, 153, - -1, 63, 153, -1, -1, 63, 145, 218, 367, -1, - 26, 153, -1, 44, 153, -1, 6, 153, -1, -1, - 6, 146, 218, 367, -1, -1, -1, 30, 147, 259, - 148, 367, -1, -1, -1, 61, 149, 259, 150, 367, - -1, 254, -1, 267, -1, 270, -1, 23, 160, 367, - -1, 24, 161, 367, -1, -1, 22, 162, 151, 367, - -1, 94, 152, 122, 367, -1, 19, -1, 19, 109, - 19, -1, -1, 154, 367, -1, 367, -1, 144, -1, - 273, -1, 132, -1, 156, -1, 1, -1, 157, 3, - 162, 367, -1, 157, 3, 162, 121, 139, 122, 367, - -1, 157, 4, 162, 367, -1, 157, 4, 162, 121, - 139, 122, 367, -1, -1, 12, -1, 25, -1, 26, - -1, 155, -1, 158, 155, -1, -1, 158, -1, 162, - -1, 160, 120, 162, -1, 162, -1, 161, 120, 162, - -1, 5, -1, 48, -1, 47, -1, 44, -1, 26, - -1, 52, -1, 83, -1, 23, -1, 24, -1, 22, - -1, 11, -1, 42, -1, 12, -1, 61, -1, 30, - -1, 53, -1, 94, -1, 98, -1, 8, -1, 10, - -1, 101, -1, 10, 36, -1, 8, 36, -1, 7, - -1, 166, 36, -1, 19, -1, 168, 36, -1, 244, - 36, -1, 20, -1, 21, -1, 171, 36, -1, 69, - -1, 173, 36, -1, 123, 243, 124, -1, 175, 36, - -1, 175, 241, -1, 177, 36, -1, 123, 103, 124, - -1, 123, 181, 124, -1, 179, 36, -1, 218, 103, - 222, -1, 181, 120, 218, 103, 222, -1, 162, -1, - 162, 36, -1, 71, -1, 72, -1, 184, 36, -1, - 116, 250, -1, 186, 36, -1, 51, 36, -1, 51, - 36, 188, -1, 188, 183, -1, 188, 165, -1, 188, - 251, -1, 188, 185, -1, 188, 187, -1, 188, 167, - -1, 188, 169, -1, 188, 172, -1, 188, 170, -1, - 188, 174, -1, 188, 176, -1, 188, 178, -1, 188, - 180, -1, 188, 253, -1, 162, -1, 184, -1, 186, - -1, 165, 190, -1, 185, 190, -1, 187, 190, -1, - 251, 190, -1, 167, 190, -1, 169, 190, -1, 172, - 190, -1, 170, 190, -1, 180, 190, -1, 174, 190, - -1, 176, 190, -1, 178, 190, -1, 194, 190, -1, - 253, 190, -1, 201, 190, -1, 209, 190, -1, 212, - 190, -1, 183, 190, -1, 188, 190, -1, 189, 190, - -1, 165, 250, -1, 183, 250, -1, 185, 250, -1, - 187, 250, -1, 251, 250, -1, 188, 250, -1, 163, - 241, -1, 166, 241, -1, 164, 241, -1, 168, 241, - -1, 244, 241, -1, 171, 241, -1, 179, 241, -1, - 173, 241, -1, 182, 241, -1, 191, 241, -1, 192, - 241, -1, 184, 241, -1, 186, 241, -1, 206, 241, - -1, 210, 241, -1, 197, 241, -1, 252, 241, -1, - 250, 241, -1, 193, 36, -1, -1, 162, 121, 196, - 202, 122, -1, 195, -1, -1, 184, 121, 198, 202, - 122, -1, -1, 186, 121, 199, 202, 122, -1, 117, - 195, -1, 197, 36, -1, 205, -1, 202, 120, 205, - -1, 222, -1, 204, -1, 117, 162, -1, 117, 184, - -1, 117, 191, -1, 117, 206, -1, 117, 193, -1, - 102, -1, 203, -1, 224, 125, 207, -1, 208, 125, - 207, -1, 125, 207, -1, 162, -1, 184, -1, 186, - -1, 121, 117, 162, 122, -1, 206, 36, -1, -1, - 206, 121, 211, 202, 122, -1, 210, 36, -1, 163, - -1, 166, -1, 164, -1, 168, -1, 244, -1, 171, - -1, 173, -1, -1, 173, 214, 141, -1, 175, -1, - 177, -1, 179, -1, 191, -1, 192, -1, 184, -1, - 186, -1, 193, -1, 197, -1, -1, 197, 215, 141, - -1, 252, -1, 206, -1, -1, 206, 216, 141, -1, - 210, -1, -1, 210, 217, 141, -1, 229, -1, 237, - -1, 226, -1, 227, -1, 228, -1, 238, -1, 239, - -1, 240, -1, 213, -1, 182, -1, 250, -1, -1, - 182, 219, 141, -1, -1, 250, 220, 141, -1, 200, - -1, 102, -1, 218, -1, -1, 218, -1, 162, -1, - 191, -1, 184, -1, 186, -1, 206, -1, 193, -1, - 250, -1, 163, -1, 166, -1, 164, -1, 168, -1, - 244, -1, 171, -1, 173, -1, 175, -1, 177, -1, - 179, -1, 191, -1, 192, -1, 184, -1, 186, -1, - 182, -1, 193, -1, 250, -1, 197, -1, 252, -1, - 206, -1, 210, -1, 34, -1, 35, -1, 224, 225, - -1, 34, 218, -1, 35, 218, -1, 29, 218, -1, - 110, 218, -1, 109, 218, -1, 163, 9, 218, -1, - 166, 9, 218, -1, 164, 9, 218, -1, 168, 9, - 218, -1, 244, 9, 218, -1, 171, 9, 218, -1, - 173, 9, 218, -1, 175, 9, 218, -1, 177, 9, - 218, -1, 179, 9, 218, -1, 191, 9, 218, -1, - 192, 9, 218, -1, 184, 9, 218, -1, 186, 9, - 218, -1, 182, 9, 218, -1, 193, 9, 218, -1, - 250, 9, 218, -1, 252, 9, 218, -1, 197, 9, - 218, -1, 206, 9, 218, -1, 210, 9, 218, -1, - 224, 105, 218, -1, 224, 54, 218, -1, 224, 55, - 218, -1, 224, 56, 218, -1, 224, 57, 218, -1, - 224, 60, 218, -1, 224, 59, 218, -1, 231, -1, - 232, -1, 233, -1, 234, -1, 235, -1, 236, -1, - 218, 109, 218, -1, 218, 110, 218, -1, 218, 111, - 218, -1, 218, 112, 218, -1, 218, 113, 218, -1, - 218, 58, 218, -1, 218, 27, 218, -1, 218, 28, - 218, -1, 218, 31, 218, -1, 218, 106, 218, -1, - 218, 107, 218, -1, 218, 49, 218, -1, 218, 50, - 218, -1, 218, 32, 218, -1, 218, 33, 218, -1, - 218, 108, 218, -1, 218, 105, 218, -1, 242, 126, - -1, 127, 221, -1, 242, 120, 221, -1, 242, 126, - 127, 221, -1, 205, -1, 243, 120, 205, -1, -1, - 95, 245, 247, 128, 246, 124, -1, 218, -1, 246, - 120, 218, -1, -1, 102, -1, 248, -1, 248, 120, - 102, -1, 162, 140, -1, 248, 120, 162, 140, -1, - 218, -1, 249, 120, 218, -1, 121, 249, 122, -1, - 250, 36, -1, 13, 121, 218, 120, 203, 120, 203, - 122, -1, 252, 36, -1, -1, 11, 255, 258, 367, - -1, -1, 12, 256, 258, 367, -1, -1, 53, 257, - 272, 367, -1, 261, -1, 258, 120, 261, -1, 260, - -1, 259, 120, 260, -1, 261, -1, 184, 140, -1, - 184, 140, 9, 218, -1, 184, 265, -1, 184, 265, - 142, -1, -1, 162, 140, 262, -1, -1, -1, 162, - 140, 263, 9, 264, 218, -1, 162, 265, -1, 162, - 265, 142, -1, 266, 126, -1, 127, 218, -1, 266, - 120, 218, -1, 266, 126, 127, 218, -1, -1, 51, - 268, 269, 367, -1, 162, 140, -1, 269, 120, 162, - 140, -1, 269, 52, 162, -1, -1, 42, 271, 272, - 367, -1, 162, 140, -1, 272, 120, 162, 140, -1, - -1, 82, 162, 121, 274, 283, 122, 140, 367, -1, - -1, 82, 162, 275, 278, 367, -1, 84, 162, 367, - -1, 85, 279, 367, -1, -1, 85, 123, 140, 276, - 277, 124, 367, -1, 281, -1, 277, 120, 281, -1, - 279, -1, 278, 279, -1, 281, -1, 278, 281, -1, - -1, 162, 121, 280, 283, 122, 140, -1, -1, 162, - 282, 140, -1, -1, 286, -1, 287, -1, 286, 120, - 287, -1, 285, -1, 284, 120, 285, -1, 222, -1, - 162, 140, -1, 117, 162, 140, -1, 117, 162, 121, - 284, 122, -1, 286, 120, 162, 140, -1, 286, 120, - 117, 162, 140, -1, 286, 120, 117, 162, 121, 284, - 122, -1, 83, 162, 140, -1, 83, 117, 162, 140, - -1, 83, 117, 162, 121, 284, 122, -1, 287, 120, - 83, 162, 140, -1, 287, 120, 83, 117, 162, 140, - -1, 287, 120, 83, 117, 162, 121, 284, 122, -1, - 289, -1, 301, -1, 315, -1, 320, -1, 348, -1, - 331, -1, 336, -1, 365, -1, 290, 300, -1, 290, - 293, 300, -1, 290, 295, 300, -1, 290, 295, 293, - 300, -1, -1, -1, 14, 218, 291, 367, 292, 159, - -1, -1, 15, 367, 294, 159, -1, -1, -1, 16, - 296, 218, 367, 297, 159, -1, -1, -1, 295, 16, - 298, 218, 367, 299, 159, -1, 18, -1, 17, -1, - 305, 306, 302, -1, 305, 311, 302, -1, 305, 302, - -1, 305, 306, 311, 302, -1, 40, -1, 17, -1, - -1, 37, 304, 367, -1, 303, -1, 303, 158, -1, - -1, -1, 38, 307, 218, 367, 308, 159, -1, -1, - -1, 306, 38, 309, 218, 367, 310, 159, -1, -1, - -1, 39, 312, 367, 313, 159, -1, -1, 311, 39, - 314, 367, 159, -1, -1, -1, 318, 218, 367, 316, - 159, 317, 319, -1, 43, -1, 17, -1, 41, -1, - -1, -1, -1, 45, 223, 324, 218, 321, 47, 218, - 325, 322, 367, 323, 326, -1, 105, -1, 9, -1, - -1, 48, 218, -1, 159, 46, -1, 159, 46, 162, - -1, 159, 17, -1, 159, 17, 162, -1, 162, -1, - 191, -1, 327, -1, 328, 120, 327, -1, 117, 162, - -1, 218, -1, 329, -1, 330, 120, 329, -1, -1, - -1, -1, 97, 328, 52, 330, 332, 335, 333, 367, - 334, 326, -1, -1, 98, -1, -1, 341, 337, 342, - 338, -1, 341, 338, -1, 17, -1, -1, 99, 340, - 218, 367, -1, 339, -1, 339, 158, -1, -1, 38, - 218, 343, 367, 159, -1, -1, 342, 38, 218, 344, - 367, 159, -1, 345, -1, 342, 345, -1, -1, -1, - 39, 346, 367, 347, 159, -1, -1, -1, -1, -1, - 62, 349, 367, 159, 350, 355, 351, 353, 352, 17, - -1, -1, 354, 367, 159, -1, 66, -1, -1, 356, - 367, 159, -1, 357, 367, 159, -1, 64, -1, 65, - 162, -1, 184, -1, 186, -1, -1, 67, 358, 360, - 362, -1, -1, 96, 361, 362, -1, -1, 68, 363, - -1, 120, -1, 120, 364, -1, 364, -1, 363, 120, - -1, 363, 120, 364, -1, 162, -1, 204, -1, 200, - -1, 213, -1, 250, -1, -1, 100, 218, 367, 366, - 159, 17, -1, 118, -1, 119, -1 + 131, 0, -1, 132, -1, -1, 370, -1, 276, -1, + 134, -1, 146, -1, 133, -1, 1, 370, -1, 132, + 370, -1, 132, 276, -1, 132, 134, -1, 132, 146, + -1, 132, 133, -1, 132, 1, 370, -1, 70, 10, + 19, 370, -1, 70, 10, 19, 118, 19, 370, -1, + -1, 139, 3, 164, 135, 370, -1, -1, 139, 4, + 164, 136, 370, -1, -1, 139, 3, 164, 137, 122, + 140, 123, 370, -1, -1, 139, 4, 164, 138, 122, + 140, 123, 370, -1, -1, 12, -1, 25, -1, 26, + -1, -1, 103, -1, 145, -1, 145, 121, 103, -1, + -1, 143, -1, -1, 144, -1, 79, -1, 75, -1, + 77, -1, 78, -1, 74, -1, 80, -1, 76, 164, + -1, 81, -1, 144, -1, 73, -1, 92, -1, 88, + -1, 90, -1, 91, -1, 86, -1, 87, -1, 93, + -1, 89, 164, -1, 164, 141, -1, 145, 121, 164, + 141, -1, 291, 155, -1, 254, 155, -1, 199, 155, + -1, 194, 155, -1, 212, 155, -1, 186, 155, -1, + 188, 155, -1, 252, 155, -1, 229, 155, -1, 228, + 155, -1, 239, 155, -1, 232, 155, -1, 231, 155, + -1, 362, 155, -1, 63, 155, -1, -1, 63, 147, + 220, 370, -1, 26, 155, -1, 44, 155, -1, 6, + 155, -1, -1, 6, 148, 220, 370, -1, -1, -1, + 30, 149, 261, 150, 370, -1, -1, -1, 61, 151, + 261, 152, 370, -1, 256, -1, 269, -1, 273, -1, + 23, 162, 370, -1, 24, 163, 370, -1, -1, 22, + 164, 153, 370, -1, 94, 154, 123, 370, -1, 19, + -1, 19, 110, 19, -1, -1, 156, 370, -1, 370, + -1, 146, -1, 276, -1, 133, -1, 158, -1, 1, + -1, 159, 3, 164, 370, -1, 159, 3, 164, 122, + 140, 123, 370, -1, 159, 4, 164, 370, -1, 159, + 4, 164, 122, 140, 123, 370, -1, -1, 12, -1, + 25, -1, 26, -1, 157, -1, 160, 157, -1, -1, + 160, -1, 164, -1, 162, 121, 164, -1, 164, -1, + 163, 121, 164, -1, 5, -1, 48, -1, 47, -1, + 44, -1, 26, -1, 52, -1, 83, -1, 23, -1, + 24, -1, 22, -1, 11, -1, 42, -1, 12, -1, + 61, -1, 30, -1, 53, -1, 94, -1, 99, -1, + 8, -1, 10, -1, 102, -1, 10, 36, -1, 8, + 36, -1, 7, -1, 168, 36, -1, 19, -1, 170, + 36, -1, 246, 36, -1, 20, -1, 21, -1, 173, + 36, -1, 69, -1, 175, 36, -1, 124, 245, 125, + -1, 177, 36, -1, 177, 243, -1, 179, 36, -1, + 124, 104, 125, -1, 124, 183, 125, -1, 181, 36, + -1, 220, 104, 224, -1, 183, 121, 220, 104, 224, + -1, 164, -1, 164, 36, -1, 71, -1, 72, -1, + 186, 36, -1, 117, 252, -1, 188, 36, -1, 51, + 36, -1, 51, 36, 190, -1, 190, 185, -1, 190, + 167, -1, 190, 253, -1, 190, 187, -1, 190, 189, + -1, 190, 169, -1, 190, 171, -1, 190, 174, -1, + 190, 172, -1, 190, 176, -1, 190, 178, -1, 190, + 180, -1, 190, 182, -1, 190, 255, -1, 164, -1, + 186, -1, 188, -1, 167, 192, -1, 187, 192, -1, + 189, 192, -1, 253, 192, -1, 169, 192, -1, 171, + 192, -1, 174, 192, -1, 172, 192, -1, 182, 192, + -1, 176, 192, -1, 178, 192, -1, 180, 192, -1, + 196, 192, -1, 255, 192, -1, 203, 192, -1, 211, + 192, -1, 214, 192, -1, 185, 192, -1, 190, 192, + -1, 191, 192, -1, 167, 252, -1, 185, 252, -1, + 187, 252, -1, 189, 252, -1, 253, 252, -1, 190, + 252, -1, 165, 243, -1, 168, 243, -1, 166, 243, + -1, 170, 243, -1, 246, 243, -1, 173, 243, -1, + 181, 243, -1, 175, 243, -1, 184, 243, -1, 193, + 243, -1, 194, 243, -1, 186, 243, -1, 188, 243, + -1, 208, 243, -1, 212, 243, -1, 199, 243, -1, + 254, 243, -1, 252, 243, -1, 195, 36, -1, -1, + 164, 122, 198, 204, 123, -1, 197, -1, -1, 186, + 122, 200, 204, 123, -1, -1, 188, 122, 201, 204, + 123, -1, 118, 197, -1, 199, 36, -1, 207, -1, + 204, 121, 207, -1, 224, -1, 206, -1, 118, 164, + -1, 118, 186, -1, 118, 193, -1, 118, 208, -1, + 118, 195, -1, 103, -1, 205, -1, 226, 126, 209, + -1, 210, 126, 209, -1, 126, 209, -1, 164, -1, + 186, -1, 188, -1, 122, 118, 164, 123, -1, 208, + 36, -1, -1, 208, 122, 213, 204, 123, -1, 212, + 36, -1, 165, -1, 168, -1, 166, -1, 170, -1, + 246, -1, 173, -1, 175, -1, -1, 175, 216, 143, + -1, 177, -1, 179, -1, 181, -1, 193, -1, 194, + -1, 186, -1, 188, -1, 195, -1, 199, -1, -1, + 199, 217, 143, -1, 254, -1, 208, -1, -1, 208, + 218, 143, -1, 212, -1, -1, 212, 219, 143, -1, + 231, -1, 239, -1, 228, -1, 229, -1, 230, -1, + 240, -1, 241, -1, 242, -1, 215, -1, 184, -1, + 252, -1, -1, 184, 221, 143, -1, -1, 252, 222, + 143, -1, 202, -1, 103, -1, 220, -1, -1, 220, + -1, 164, -1, 193, -1, 186, -1, 188, -1, 208, + -1, 195, -1, 252, -1, 165, -1, 168, -1, 166, + -1, 170, -1, 246, -1, 173, -1, 175, -1, 177, + -1, 179, -1, 181, -1, 193, -1, 194, -1, 186, + -1, 188, -1, 184, -1, 195, -1, 252, -1, 199, + -1, 254, -1, 208, -1, 212, -1, 34, -1, 35, + -1, 226, 227, -1, 34, 220, -1, 35, 220, -1, + 29, 220, -1, 111, 220, -1, 110, 220, -1, 165, + 9, 220, -1, 168, 9, 220, -1, 166, 9, 220, + -1, 170, 9, 220, -1, 246, 9, 220, -1, 173, + 9, 220, -1, 175, 9, 220, -1, 177, 9, 220, + -1, 179, 9, 220, -1, 181, 9, 220, -1, 193, + 9, 220, -1, 194, 9, 220, -1, 186, 9, 220, + -1, 188, 9, 220, -1, 184, 9, 220, -1, 195, + 9, 220, -1, 252, 9, 220, -1, 254, 9, 220, + -1, 199, 9, 220, -1, 208, 9, 220, -1, 212, + 9, 220, -1, 226, 106, 220, -1, 226, 54, 220, + -1, 226, 55, 220, -1, 226, 56, 220, -1, 226, + 57, 220, -1, 226, 60, 220, -1, 226, 59, 220, + -1, 233, -1, 234, -1, 235, -1, 236, -1, 237, + -1, 238, -1, 220, 110, 220, -1, 220, 111, 220, + -1, 220, 112, 220, -1, 220, 113, 220, -1, 220, + 114, 220, -1, 220, 58, 220, -1, 220, 27, 220, + -1, 220, 28, 220, -1, 220, 31, 220, -1, 220, + 107, 220, -1, 220, 108, 220, -1, 220, 49, 220, + -1, 220, 50, 220, -1, 220, 32, 220, -1, 220, + 33, 220, -1, 220, 109, 220, -1, 220, 106, 220, + -1, 244, 127, -1, 128, 223, -1, 244, 121, 223, + -1, 244, 127, 128, 223, -1, 207, -1, 245, 121, + 207, -1, -1, 95, 247, 249, 129, 248, 125, -1, + 220, -1, 248, 121, 220, -1, -1, 103, -1, 250, + -1, 250, 121, 103, -1, 164, 141, -1, 250, 121, + 164, 141, -1, 220, -1, 251, 121, 220, -1, 122, + 251, 123, -1, 252, 36, -1, 13, 122, 220, 121, + 205, 121, 205, 123, -1, 254, 36, -1, -1, 11, + 257, 260, 370, -1, -1, 12, 258, 260, 370, -1, + -1, 53, 259, 275, 370, -1, 263, -1, 260, 121, + 263, -1, 262, -1, 261, 121, 262, -1, 263, -1, + 186, 141, -1, 186, 141, 9, 220, -1, 186, 267, + 142, -1, -1, 164, 141, 264, -1, -1, -1, 164, + 141, 265, 9, 266, 220, -1, 164, 267, 142, -1, + 268, 127, -1, 128, 220, -1, 268, 121, 220, -1, + 268, 127, 128, 220, -1, -1, 51, 270, 271, 272, + 370, -1, 164, 141, -1, 271, 121, 164, 141, -1, + -1, 52, 164, -1, -1, 42, 274, 275, 370, -1, + 164, 141, -1, 275, 121, 164, 141, -1, -1, 82, + 164, 122, 277, 286, 123, 141, 370, -1, -1, 82, + 164, 278, 281, 370, -1, 84, 164, 370, -1, 85, + 282, 370, -1, -1, 85, 124, 141, 279, 280, 125, + 370, -1, 284, -1, 280, 121, 284, -1, 282, -1, + 281, 282, -1, 284, -1, 281, 284, -1, -1, 164, + 122, 283, 286, 123, 141, -1, -1, 164, 285, 141, + -1, -1, 289, -1, 290, -1, 289, 121, 290, -1, + 288, -1, 287, 121, 288, -1, 224, -1, 164, 141, + -1, 118, 164, 141, -1, 118, 164, 122, 287, 123, + -1, 289, 121, 164, 141, -1, 289, 121, 118, 164, + 141, -1, 289, 121, 118, 164, 122, 287, 123, -1, + 83, 164, 141, -1, 83, 118, 164, 141, -1, 83, + 118, 164, 122, 287, 123, -1, 290, 121, 83, 164, + 141, -1, 290, 121, 83, 118, 164, 141, -1, 290, + 121, 83, 118, 164, 122, 287, 123, -1, 292, -1, + 304, -1, 318, -1, 323, -1, 351, -1, 334, -1, + 339, -1, 368, -1, 293, 303, -1, 293, 296, 303, + -1, 293, 298, 303, -1, 293, 298, 296, 303, -1, + -1, -1, 14, 220, 294, 370, 295, 161, -1, -1, + 15, 370, 297, 161, -1, -1, -1, 16, 299, 220, + 370, 300, 161, -1, -1, -1, 298, 16, 301, 220, + 370, 302, 161, -1, 18, -1, 17, -1, 308, 309, + 305, -1, 308, 314, 305, -1, 308, 305, -1, 308, + 309, 314, 305, -1, 40, -1, 17, -1, -1, 37, + 307, 370, -1, 306, -1, 306, 160, -1, -1, -1, + 38, 310, 220, 370, 311, 161, -1, -1, -1, 309, + 38, 312, 220, 370, 313, 161, -1, -1, -1, 39, + 315, 370, 316, 161, -1, -1, 314, 39, 317, 370, + 161, -1, -1, -1, 321, 220, 370, 319, 161, 320, + 322, -1, 43, -1, 17, -1, 41, -1, -1, -1, + -1, 45, 225, 327, 220, 324, 47, 220, 328, 325, + 370, 326, 329, -1, 106, -1, 9, -1, -1, 48, + 220, -1, 161, 46, -1, 161, 46, 164, -1, 161, + 17, -1, 161, 17, 164, -1, 164, -1, 193, -1, + 330, -1, 331, 121, 330, -1, 118, 164, -1, 220, + -1, 332, -1, 333, 121, 332, -1, -1, -1, -1, + 98, 331, 52, 333, 335, 338, 336, 370, 337, 329, + -1, -1, 99, -1, -1, 344, 340, 345, 341, -1, + 344, 341, -1, 17, -1, -1, 100, 343, 220, 370, + -1, 342, -1, 342, 160, -1, -1, 38, 220, 346, + 370, 161, -1, -1, 345, 38, 220, 347, 370, 161, + -1, 348, -1, 345, 348, -1, -1, -1, 39, 349, + 370, 350, 161, -1, -1, -1, -1, -1, 62, 352, + 370, 161, 353, 358, 354, 356, 355, 17, -1, -1, + 357, 370, 161, -1, 66, -1, -1, 359, 370, 161, + -1, 360, 370, 161, -1, 64, -1, 65, 164, -1, + 186, -1, 188, -1, -1, 67, 361, 363, 365, -1, + -1, 97, 364, 365, -1, -1, 68, 366, -1, 121, + -1, 121, 367, -1, 367, -1, 366, 121, -1, 366, + 121, 367, -1, 164, -1, 206, -1, 202, -1, 215, + -1, 252, -1, -1, 101, 220, 370, 369, 161, 17, + -1, 119, -1, 120, -1 }; /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ @@ -1010,65 +1013,66 @@ static const yytype_uint16 yyrline[] = 0, 265, 265, 266, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 283, 288, 296, 296, 297, 297, 298, 298, 299, 299, 302, 303, 304, 305, - 308, 309, 310, 311, 314, 315, 318, 319, 320, 321, - 322, 323, 324, 325, 326, 329, 330, 331, 332, 333, - 334, 335, 336, 337, 340, 341, 349, 350, 351, 352, - 353, 354, 360, 366, 367, 368, 369, 370, 371, 372, - 373, 375, 375, 381, 382, 383, 395, 395, 414, 416, - 414, 420, 422, 420, 426, 427, 428, 429, 430, 431, - 431, 445, 448, 456, 469, 469, 472, 473, 474, 475, - 476, 477, 489, 490, 491, 492, 495, 496, 497, 498, + 308, 309, 310, 311, 314, 315, 318, 319, 322, 323, + 324, 325, 326, 327, 328, 329, 330, 333, 334, 335, + 336, 337, 338, 339, 340, 341, 344, 345, 353, 354, + 355, 356, 357, 358, 364, 370, 371, 372, 373, 374, + 375, 376, 377, 379, 379, 385, 386, 387, 399, 399, + 418, 420, 418, 424, 426, 424, 430, 431, 432, 433, + 434, 435, 435, 449, 452, 460, 473, 473, 476, 477, + 478, 479, 480, 481, 493, 494, 495, 496, 499, 500, 501, 502, 505, 506, 509, 510, 513, 514, 517, 518, - 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, - 529, 530, 531, 532, 533, 534, 539, 540, 543, 551, - 552, 557, 560, 565, 571, 576, 581, 582, 585, 590, - 593, 604, 607, 612, 615, 618, 619, 622, 625, 626, - 631, 634, 639, 640, 643, 648, 651, 658, 659, 664, - 665, 666, 667, 668, 669, 670, 671, 672, 673, 674, - 675, 676, 677, 680, 681, 682, 685, 686, 687, 688, - 689, 690, 691, 692, 693, 694, 695, 696, 697, 698, - 699, 700, 701, 702, 703, 704, 713, 714, 715, 716, - 717, 718, 723, 724, 725, 726, 727, 728, 729, 730, - 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, - 743, 746, 746, 749, 750, 750, 751, 751, 755, 758, - 761, 762, 765, 766, 769, 770, 771, 772, 773, 776, - 777, 782, 783, 784, 790, 791, 792, 795, 798, 803, - 803, 806, 815, 816, 817, 818, 819, 820, 821, 822, - 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, - 832, 832, 833, 834, 835, 835, 836, 837, 837, 838, - 839, 840, 841, 842, 843, 844, 845, 848, 849, 850, - 851, 851, 852, 852, 853, 856, 857, 860, 861, 864, - 865, 866, 867, 868, 869, 870, 877, 878, 879, 880, - 881, 882, 883, 884, 885, 886, 887, 888, 889, 890, - 891, 892, 893, 894, 895, 896, 897, 903, 904, 907, - 910, 911, 914, 915, 916, 919, 920, 921, 922, 923, - 924, 925, 926, 927, 928, 929, 930, 931, 932, 933, - 934, 935, 936, 937, 938, 939, 942, 945, 948, 951, - 954, 957, 960, 963, 964, 965, 966, 967, 968, 971, - 972, 973, 974, 975, 976, 979, 980, 983, 984, 985, - 986, 987, 988, 989, 990, 991, 994, 1000, 1001, 1002, - 1005, 1006, 1009, 1009, 1015, 1016, 1021, 1022, 1023, 1024, - 1027, 1028, 1031, 1032, 1034, 1037, 1046, 1050, 1053, 1053, - 1055, 1055, 1057, 1057, 1067, 1068, 1071, 1072, 1080, 1081, - 1083, 1087, 1094, 1103, 1103, 1117, 1120, 1117, 1145, 1146, - 1152, 1155, 1156, 1157, 1161, 1161, 1164, 1165, 1166, 1169, - 1169, 1172, 1173, 1176, 1176, 1199, 1199, 1200, 1201, 1202, - 1202, 1205, 1206, 1209, 1210, 1211, 1212, 1215, 1215, 1237, - 1237, 1293, 1294, 1295, 1296, 1299, 1300, 1303, 1306, 1307, - 1308, 1309, 1310, 1311, 1314, 1315, 1316, 1317, 1318, 1319, - 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1332, 1333, - 1334, 1335, 1339, 1341, 1338, 1346, 1346, 1350, 1352, 1350, - 1360, 1362, 1360, 1371, 1374, 1379, 1383, 1387, 1390, 1396, - 1401, 1408, 1408, 1411, 1412, 1420, 1421, 1420, 1432, 1433, - 1432, 1445, 1445, 1445, 1447, 1447, 1452, 1457, 1451, 1471, - 1474, 1475, 1479, 1491, 1496, 1478, 1536, 1537, 1540, 1541, - 1544, 1547, 1550, 1553, 1558, 1559, 1562, 1563, 1566, 1567, - 1570, 1571, 1576, 1582, 1591, 1575, 1611, 1612, 1616, 1615, - 1628, 1635, 1643, 1642, 1652, 1653, 1661, 1661, 1664, 1664, - 1667, 1669, 1672, 1672, 1672, 1677, 1684, 1692, 1702, 1676, - 1726, 1727, 1730, 1738, 1739, 1740, 1743, 1754, 1772, 1773, - 1777, 1776, 1784, 1783, 1794, 1795, 1798, 1799, 1800, 1801, - 1802, 1805, 1806, 1807, 1808, 1809, 1813, 1812, 1835, 1836 + 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, + 531, 532, 533, 534, 535, 536, 537, 538, 543, 544, + 547, 555, 556, 561, 564, 569, 575, 580, 585, 586, + 589, 594, 597, 608, 611, 616, 619, 622, 623, 626, + 629, 630, 635, 638, 643, 644, 647, 652, 655, 662, + 663, 668, 669, 670, 671, 672, 673, 674, 675, 676, + 677, 678, 679, 680, 681, 684, 685, 686, 689, 690, + 691, 692, 693, 694, 695, 696, 697, 698, 699, 700, + 701, 702, 703, 704, 705, 706, 707, 708, 717, 718, + 719, 720, 721, 722, 727, 728, 729, 730, 731, 732, + 733, 734, 735, 736, 737, 738, 739, 740, 741, 742, + 743, 744, 747, 750, 750, 753, 754, 754, 755, 755, + 759, 762, 765, 766, 769, 770, 773, 774, 775, 776, + 777, 780, 781, 786, 787, 788, 794, 795, 796, 799, + 802, 807, 807, 810, 819, 820, 821, 822, 823, 824, + 825, 826, 826, 827, 828, 829, 830, 831, 832, 833, + 834, 835, 836, 836, 837, 838, 839, 839, 840, 841, + 841, 842, 843, 844, 845, 846, 847, 848, 849, 852, + 853, 854, 855, 855, 856, 856, 857, 860, 861, 864, + 865, 868, 869, 870, 871, 872, 873, 874, 881, 882, + 883, 884, 885, 886, 887, 888, 889, 890, 891, 892, + 893, 894, 895, 896, 897, 898, 899, 900, 901, 907, + 908, 911, 914, 915, 918, 919, 920, 923, 924, 925, + 926, 927, 928, 929, 930, 931, 932, 933, 934, 935, + 936, 937, 938, 939, 940, 941, 942, 943, 946, 949, + 952, 955, 958, 961, 964, 967, 968, 969, 970, 971, + 972, 975, 976, 977, 978, 979, 980, 983, 984, 987, + 988, 989, 990, 991, 992, 993, 994, 995, 998, 1004, + 1005, 1006, 1009, 1010, 1013, 1013, 1019, 1020, 1025, 1026, + 1027, 1028, 1031, 1032, 1035, 1036, 1038, 1041, 1050, 1054, + 1057, 1057, 1059, 1059, 1061, 1061, 1071, 1072, 1075, 1076, + 1084, 1085, 1087, 1091, 1100, 1100, 1112, 1115, 1112, 1139, + 1145, 1148, 1149, 1150, 1153, 1153, 1161, 1162, 1165, 1166, + 1169, 1169, 1172, 1173, 1176, 1176, 1199, 1199, 1200, 1201, + 1202, 1202, 1205, 1206, 1209, 1210, 1211, 1212, 1215, 1215, + 1237, 1237, 1293, 1294, 1295, 1296, 1299, 1300, 1303, 1306, + 1307, 1308, 1309, 1310, 1311, 1314, 1315, 1316, 1317, 1318, + 1319, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1332, + 1333, 1334, 1335, 1339, 1341, 1338, 1346, 1346, 1350, 1352, + 1350, 1360, 1362, 1360, 1371, 1374, 1379, 1383, 1387, 1390, + 1396, 1401, 1408, 1408, 1411, 1412, 1420, 1421, 1420, 1432, + 1433, 1432, 1445, 1445, 1445, 1447, 1447, 1452, 1457, 1451, + 1471, 1474, 1475, 1479, 1491, 1496, 1478, 1536, 1537, 1540, + 1541, 1544, 1547, 1550, 1553, 1558, 1559, 1562, 1563, 1566, + 1567, 1570, 1571, 1576, 1582, 1591, 1575, 1611, 1612, 1616, + 1615, 1628, 1635, 1643, 1642, 1652, 1653, 1661, 1661, 1664, + 1664, 1667, 1669, 1672, 1672, 1672, 1677, 1684, 1692, 1702, + 1676, 1726, 1727, 1730, 1738, 1739, 1740, 1743, 1754, 1772, + 1773, 1777, 1776, 1784, 1783, 1794, 1795, 1798, 1799, 1800, + 1801, 1802, 1805, 1806, 1807, 1808, 1809, 1813, 1812, 1835, + 1836 }; #endif @@ -1092,16 +1096,17 @@ static const char *const yytname[] = "OPTIONAL", "DECLARE_CLASS", "DECLARE_MEMBER", "AS_ARRAY_ARRAY", "AS_BLOCK_ARRAY", "AS_CHARACTER_ARRAY", "AS_CLASS_ARRAY", "AS_DATE_ARRAY", "AS_LOGICAL_ARRAY", "AS_NUMERIC_ARRAY", - "AS_OBJECT_ARRAY", "PROCREQ", "CBSTART", "DOIDENT", "FOREACH", "DESCEND", - "DOSWITCH", "WITHOBJECT", "NUM_DATE", "EPSILON", "HASHOP", "POST", "'='", - "'<'", "'>'", "'$'", "'+'", "'-'", "'*'", "'/'", "'%'", "UNARY", "PRE", - "'&'", "'@'", "'\\n'", "';'", "','", "'('", "')'", "'{'", "'}'", "':'", - "']'", "'['", "'|'", "$accept", "Main", "Source", "Line", "Function", - "@1", "@2", "@3", "@4", "FunScope", "Params", "AsType", "StrongType", - "AsArray", "ParamList", "Statement", "@5", "@6", "@7", "@8", "@9", "@10", - "@11", "CompTimeStr", "CrlfStmnt", "@12", "LineStat", "ControlError", - "FunScopeId", "Statements", "EmptyStats", "ExtList", "DynList", - "IdentName", "NumValue", "DateValue", "NumAlias", "NilValue", "NilAlias", + "AS_OBJECT_ARRAY", "PROCREQ", "CBSTART", "BEGINCODE", "DOIDENT", + "FOREACH", "DESCEND", "DOSWITCH", "WITHOBJECT", "NUM_DATE", "EPSILON", + "HASHOP", "POST", "'='", "'<'", "'>'", "'$'", "'+'", "'-'", "'*'", "'/'", + "'%'", "UNARY", "PRE", "'&'", "'@'", "'\\n'", "';'", "','", "'('", "')'", + "'{'", "'}'", "':'", "']'", "'['", "'|'", "$accept", "Main", "Source", + "Line", "Function", "@1", "@2", "@3", "@4", "FunScope", "Params", + "AsType", "AsArrayType", "StrongType", "AsArray", "ParamList", + "Statement", "@5", "@6", "@7", "@8", "@9", "@10", "@11", "CompTimeStr", + "CrlfStmnt", "@12", "LineStat", "ControlError", "FunScopeId", + "Statements", "EmptyStats", "ExtList", "DynList", "IdentName", + "NumValue", "DateValue", "NumAlias", "NilValue", "NilAlias", "LiteralValue", "LiteralAlias", "CodeBlockAlias", "Logical", "LogicalAlias", "SelfValue", "SelfAlias", "Array", "ArrayAlias", "ArrayAt", "ArrayAtAlias", "Hash", "HashAlias", "HashList", "Variable", @@ -1120,12 +1125,12 @@ static const char *const yytname[] = "BlockVarList", "ExpList", "PareExpList", "PareExpListAlias", "IfInline", "IfInlineAlias", "VarDefs", "@24", "@25", "@26", "VarList", "ExtVarList", "ExtVarDef", "VarDef", "@27", "@28", "@29", "DimList", "DimIndex", - "FieldsDef", "@30", "FieldList", "MemvarDef", "@31", "MemvarList", - "Declaration", "@32", "@33", "@34", "DecDataList", "ClassInfo", - "DecMethod", "@35", "DecData", "@36", "DecList", "DummyArgList", - "DummyArgument", "FormalList", "OptList", "ExecFlow", "IfEndif", - "IfBegin", "@37", "@38", "IfElse", "@39", "IfElseIf", "@40", "@41", - "@42", "@43", "EndIf", "DoCase", "EndCase", "DoCaseStart", "@44", + "FieldsDef", "@30", "FieldList", "InAlias", "MemvarDef", "@31", + "MemvarList", "Declaration", "@32", "@33", "@34", "DecDataList", + "ClassInfo", "DecMethod", "@35", "DecData", "@36", "DecList", + "DummyArgList", "DummyArgument", "FormalList", "OptList", "ExecFlow", + "IfEndif", "IfBegin", "@37", "@38", "IfElse", "@39", "IfElseIf", "@40", + "@41", "@42", "@43", "EndIf", "DoCase", "EndCase", "DoCaseStart", "@44", "DoCaseBegin", "Cases", "@45", "@46", "@47", "@48", "Otherwise", "@49", "@50", "@51", "DoWhile", "@52", "@53", "WhileBegin", "EndWhile", "ForNext", "@54", "@55", "@56", "ForAssign", "StepExpr", "ForStatements", @@ -1153,77 +1158,78 @@ static const yytype_uint16 yytoknum[] = 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, - 355, 356, 357, 358, 359, 61, 60, 62, 36, 43, - 45, 42, 47, 37, 360, 361, 38, 64, 10, 59, - 44, 40, 41, 123, 125, 58, 93, 91, 124 + 355, 356, 357, 358, 359, 360, 61, 60, 62, 36, + 43, 45, 42, 47, 37, 361, 362, 38, 64, 10, + 59, 44, 40, 41, 123, 125, 58, 93, 91, 124 }; # endif /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ static const yytype_uint16 yyr1[] = { - 0, 129, 130, 130, 131, 131, 131, 131, 131, 131, - 131, 131, 131, 131, 131, 131, 132, 132, 134, 133, - 135, 133, 136, 133, 137, 133, 138, 138, 138, 138, - 139, 139, 139, 139, 140, 140, 141, 141, 141, 141, - 141, 141, 141, 141, 141, 142, 142, 142, 142, 142, - 142, 142, 142, 142, 143, 143, 144, 144, 144, 144, - 144, 144, 144, 144, 144, 144, 144, 144, 144, 144, - 144, 145, 144, 144, 144, 144, 146, 144, 147, 148, - 144, 149, 150, 144, 144, 144, 144, 144, 144, 151, - 144, 144, 152, 152, 154, 153, 155, 155, 155, 155, - 155, 155, 156, 156, 156, 156, 157, 157, 157, 157, - 158, 158, 159, 159, 160, 160, 161, 161, 162, 162, - 162, 162, 162, 162, 162, 162, 162, 162, 162, 162, - 162, 162, 162, 162, 162, 162, 163, 163, 164, 165, - 165, 166, 167, 168, 169, 170, 171, 171, 172, 173, - 174, 175, 176, 177, 178, 179, 179, 180, 181, 181, - 182, 183, 184, 184, 185, 186, 187, 188, 188, 189, - 189, 189, 189, 189, 189, 189, 189, 189, 189, 189, - 189, 189, 189, 190, 190, 190, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 192, 192, 192, 192, - 192, 192, 193, 193, 193, 193, 193, 193, 193, 193, + 0, 130, 131, 131, 132, 132, 132, 132, 132, 132, + 132, 132, 132, 132, 132, 132, 133, 133, 135, 134, + 136, 134, 137, 134, 138, 134, 139, 139, 139, 139, + 140, 140, 140, 140, 141, 141, 142, 142, 143, 143, + 143, 143, 143, 143, 143, 143, 143, 144, 144, 144, + 144, 144, 144, 144, 144, 144, 145, 145, 146, 146, + 146, 146, 146, 146, 146, 146, 146, 146, 146, 146, + 146, 146, 146, 147, 146, 146, 146, 146, 148, 146, + 149, 150, 146, 151, 152, 146, 146, 146, 146, 146, + 146, 153, 146, 146, 154, 154, 156, 155, 157, 157, + 157, 157, 157, 157, 158, 158, 158, 158, 159, 159, + 159, 159, 160, 160, 161, 161, 162, 162, 163, 163, + 164, 164, 164, 164, 164, 164, 164, 164, 164, 164, + 164, 164, 164, 164, 164, 164, 164, 164, 165, 165, + 166, 167, 167, 168, 169, 170, 171, 172, 173, 173, + 174, 175, 176, 177, 178, 179, 180, 181, 181, 182, + 183, 183, 184, 185, 186, 186, 187, 188, 189, 190, + 190, 191, 191, 191, 191, 191, 191, 191, 191, 191, + 191, 191, 191, 191, 191, 192, 192, 192, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 194, 196, 195, 197, 198, 197, 199, 197, 200, 201, - 202, 202, 203, 203, 204, 204, 204, 204, 204, 205, - 205, 206, 206, 206, 207, 207, 207, 208, 209, 211, - 210, 212, 213, 213, 213, 213, 213, 213, 213, 214, - 213, 213, 213, 213, 213, 213, 213, 213, 213, 213, - 215, 213, 213, 213, 216, 213, 213, 217, 213, 213, - 213, 213, 213, 213, 213, 213, 213, 218, 218, 218, - 219, 218, 220, 218, 218, 221, 221, 222, 222, 223, - 223, 223, 223, 223, 223, 223, 224, 224, 224, 224, - 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, - 224, 224, 224, 224, 224, 224, 224, 225, 225, 226, - 227, 227, 228, 228, 228, 229, 229, 229, 229, 229, - 229, 229, 229, 229, 229, 229, 229, 229, 229, 229, - 229, 229, 229, 229, 229, 229, 230, 231, 232, 233, - 234, 235, 236, 237, 237, 237, 237, 237, 237, 238, - 238, 238, 238, 238, 238, 239, 239, 240, 240, 240, - 240, 240, 240, 240, 240, 240, 241, 242, 242, 242, - 243, 243, 245, 244, 246, 246, 247, 247, 247, 247, - 248, 248, 249, 249, 250, 251, 252, 253, 255, 254, - 256, 254, 257, 254, 258, 258, 259, 259, 260, 260, - 260, 260, 260, 262, 261, 263, 264, 261, 261, 261, - 265, 266, 266, 266, 268, 267, 269, 269, 269, 271, - 270, 272, 272, 274, 273, 275, 273, 273, 273, 276, - 273, 277, 277, 278, 278, 278, 278, 280, 279, 282, - 281, 283, 283, 283, 283, 284, 284, 285, 286, 286, - 286, 286, 286, 286, 287, 287, 287, 287, 287, 287, - 288, 288, 288, 288, 288, 288, 288, 288, 289, 289, - 289, 289, 291, 292, 290, 294, 293, 296, 297, 295, - 298, 299, 295, 300, 300, 301, 301, 301, 301, 302, - 302, 304, 303, 305, 305, 307, 308, 306, 309, 310, - 306, 312, 313, 311, 314, 311, 316, 317, 315, 318, - 319, 319, 321, 322, 323, 320, 324, 324, 325, 325, - 326, 326, 326, 326, 327, 327, 328, 328, 329, 329, - 330, 330, 332, 333, 334, 331, 335, 335, 337, 336, - 336, 338, 340, 339, 341, 341, 343, 342, 344, 342, - 342, 342, 346, 347, 345, 349, 350, 351, 352, 348, - 353, 353, 354, 355, 355, 355, 356, 357, 358, 358, - 360, 359, 361, 359, 362, 362, 363, 363, 363, 363, - 363, 364, 364, 364, 364, 364, 366, 365, 367, 367 + 193, 193, 193, 193, 193, 193, 193, 193, 194, 194, + 194, 194, 194, 194, 195, 195, 195, 195, 195, 195, + 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, + 195, 195, 196, 198, 197, 199, 200, 199, 201, 199, + 202, 203, 204, 204, 205, 205, 206, 206, 206, 206, + 206, 207, 207, 208, 208, 208, 209, 209, 209, 210, + 211, 213, 212, 214, 215, 215, 215, 215, 215, 215, + 215, 216, 215, 215, 215, 215, 215, 215, 215, 215, + 215, 215, 217, 215, 215, 215, 218, 215, 215, 219, + 215, 215, 215, 215, 215, 215, 215, 215, 215, 220, + 220, 220, 221, 220, 222, 220, 220, 223, 223, 224, + 224, 225, 225, 225, 225, 225, 225, 225, 226, 226, + 226, 226, 226, 226, 226, 226, 226, 226, 226, 226, + 226, 226, 226, 226, 226, 226, 226, 226, 226, 227, + 227, 228, 229, 229, 230, 230, 230, 231, 231, 231, + 231, 231, 231, 231, 231, 231, 231, 231, 231, 231, + 231, 231, 231, 231, 231, 231, 231, 231, 232, 233, + 234, 235, 236, 237, 238, 239, 239, 239, 239, 239, + 239, 240, 240, 240, 240, 240, 240, 241, 241, 242, + 242, 242, 242, 242, 242, 242, 242, 242, 243, 244, + 244, 244, 245, 245, 247, 246, 248, 248, 249, 249, + 249, 249, 250, 250, 251, 251, 252, 253, 254, 255, + 257, 256, 258, 256, 259, 256, 260, 260, 261, 261, + 262, 262, 262, 262, 264, 263, 265, 266, 263, 263, + 267, 268, 268, 268, 270, 269, 271, 271, 272, 272, + 274, 273, 275, 275, 277, 276, 278, 276, 276, 276, + 279, 276, 280, 280, 281, 281, 281, 281, 283, 282, + 285, 284, 286, 286, 286, 286, 287, 287, 288, 289, + 289, 289, 289, 289, 289, 290, 290, 290, 290, 290, + 290, 291, 291, 291, 291, 291, 291, 291, 291, 292, + 292, 292, 292, 294, 295, 293, 297, 296, 299, 300, + 298, 301, 302, 298, 303, 303, 304, 304, 304, 304, + 305, 305, 307, 306, 308, 308, 310, 311, 309, 312, + 313, 309, 315, 316, 314, 317, 314, 319, 320, 318, + 321, 322, 322, 324, 325, 326, 323, 327, 327, 328, + 328, 329, 329, 329, 329, 330, 330, 331, 331, 332, + 332, 333, 333, 335, 336, 337, 334, 338, 338, 340, + 339, 339, 341, 343, 342, 344, 344, 346, 345, 347, + 345, 345, 345, 349, 350, 348, 352, 353, 354, 355, + 351, 356, 356, 357, 358, 358, 358, 359, 360, 361, + 361, 363, 362, 364, 362, 365, 365, 366, 366, 366, + 366, 366, 367, 367, 367, 367, 367, 369, 368, 370, + 370 }; /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ @@ -1232,65 +1238,66 @@ static const yytype_uint8 yyr2[] = 0, 2, 1, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 4, 6, 0, 5, 0, 5, 0, 8, 0, 8, 0, 1, 1, 1, - 0, 1, 1, 3, 0, 1, 1, 1, 1, 1, - 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 2, 2, 4, 2, 2, 2, 2, + 0, 1, 1, 3, 0, 1, 0, 1, 1, 1, + 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, + 1, 1, 1, 1, 1, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 0, 4, 2, 2, 2, 0, 4, 0, 0, - 5, 0, 0, 5, 1, 1, 1, 3, 3, 0, - 4, 4, 1, 3, 0, 2, 1, 1, 1, 1, - 1, 1, 4, 7, 4, 7, 0, 1, 1, 1, - 1, 2, 0, 1, 1, 3, 1, 3, 1, 1, + 2, 2, 2, 0, 4, 2, 2, 2, 0, 4, + 0, 0, 5, 0, 0, 5, 1, 1, 1, 3, + 3, 0, 4, 4, 1, 3, 0, 2, 1, 1, + 1, 1, 1, 1, 4, 7, 4, 7, 0, 1, + 1, 1, 1, 2, 0, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, - 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, - 2, 3, 2, 2, 2, 3, 3, 2, 3, 5, - 1, 2, 1, 1, 2, 2, 2, 2, 3, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 2, 2, 1, 2, 1, 2, 2, 1, 1, + 2, 1, 2, 3, 2, 2, 2, 3, 3, 2, + 3, 5, 1, 2, 1, 1, 2, 2, 2, 2, + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 0, 5, 1, 0, 5, 0, 5, 2, 2, - 1, 3, 1, 1, 2, 2, 2, 2, 2, 1, - 1, 3, 3, 2, 1, 1, 1, 4, 2, 0, - 5, 2, 1, 1, 1, 1, 1, 1, 1, 0, + 2, 2, 2, 0, 5, 1, 0, 5, 0, 5, + 2, 2, 1, 3, 1, 1, 2, 2, 2, 2, + 2, 1, 1, 3, 3, 2, 1, 1, 1, 4, + 2, 0, 5, 2, 1, 1, 1, 1, 1, 1, + 1, 0, 3, 1, 1, 1, 1, 1, 1, 1, + 1, 1, 0, 3, 1, 1, 0, 3, 1, 0, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 0, 3, 1, 1, 0, 3, 1, 0, 3, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 0, 3, 0, 3, 1, 1, 1, 0, 1, 1, + 1, 1, 0, 3, 0, 3, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, - 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, + 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 1, 1, 1, 1, 1, 1, 3, - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, - 3, 3, 3, 3, 3, 3, 2, 2, 3, 4, - 1, 3, 0, 6, 1, 3, 0, 1, 1, 3, - 2, 4, 1, 3, 3, 2, 8, 2, 0, 4, - 0, 4, 0, 4, 1, 3, 1, 3, 1, 2, - 4, 2, 3, 0, 3, 0, 0, 6, 2, 3, - 2, 2, 3, 4, 0, 4, 2, 4, 3, 0, - 4, 2, 4, 0, 8, 0, 5, 3, 3, 0, - 7, 1, 3, 1, 2, 1, 2, 0, 6, 0, - 3, 0, 1, 1, 3, 1, 3, 1, 2, 3, - 5, 4, 5, 7, 3, 4, 6, 5, 6, 8, - 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, - 3, 4, 0, 0, 6, 0, 4, 0, 0, 6, - 0, 0, 7, 1, 1, 3, 3, 2, 4, 1, - 1, 0, 3, 1, 2, 0, 0, 6, 0, 0, - 7, 0, 0, 5, 0, 5, 0, 0, 7, 1, - 1, 1, 0, 0, 0, 12, 1, 1, 0, 2, - 2, 3, 2, 3, 1, 1, 1, 3, 2, 1, - 1, 3, 0, 0, 0, 10, 0, 1, 0, 4, - 2, 1, 0, 4, 1, 2, 0, 5, 0, 6, - 1, 2, 0, 0, 5, 0, 0, 0, 0, 10, - 0, 3, 1, 0, 3, 3, 1, 2, 1, 1, - 0, 4, 0, 3, 0, 2, 1, 2, 1, 2, - 3, 1, 1, 1, 1, 1, 0, 6, 1, 1 + 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, + 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, + 3, 4, 1, 3, 0, 6, 1, 3, 0, 1, + 1, 3, 2, 4, 1, 3, 3, 2, 8, 2, + 0, 4, 0, 4, 0, 4, 1, 3, 1, 3, + 1, 2, 4, 3, 0, 3, 0, 0, 6, 3, + 2, 2, 3, 4, 0, 5, 2, 4, 0, 2, + 0, 4, 2, 4, 0, 8, 0, 5, 3, 3, + 0, 7, 1, 3, 1, 2, 1, 2, 0, 6, + 0, 3, 0, 1, 1, 3, 1, 3, 1, 2, + 3, 5, 4, 5, 7, 3, 4, 6, 5, 6, + 8, 1, 1, 1, 1, 1, 1, 1, 1, 2, + 3, 3, 4, 0, 0, 6, 0, 4, 0, 0, + 6, 0, 0, 7, 1, 1, 3, 3, 2, 4, + 1, 1, 0, 3, 1, 2, 0, 0, 6, 0, + 0, 7, 0, 0, 5, 0, 5, 0, 0, 7, + 1, 1, 1, 0, 0, 0, 12, 1, 1, 0, + 2, 2, 3, 2, 3, 1, 1, 1, 3, 2, + 1, 1, 3, 0, 0, 0, 10, 0, 1, 0, + 4, 2, 1, 0, 4, 1, 2, 0, 5, 0, + 6, 1, 2, 0, 0, 5, 0, 0, 0, 0, + 10, 0, 3, 1, 0, 3, 3, 1, 2, 1, + 1, 0, 4, 0, 3, 0, 2, 1, 2, 1, + 2, 3, 1, 1, 1, 1, 1, 0, 6, 1, + 1 }; /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state @@ -1298,958 +1305,969 @@ static const yytype_uint8 yyr2[] = means the default is an error. */ static const yytype_uint16 yydefact[] = { - 0, 0, 118, 76, 141, 136, 137, 418, 420, 0, - 0, 143, 146, 147, 127, 125, 126, 28, 122, 78, - 0, 0, 521, 449, 539, 121, 0, 120, 119, 444, - 123, 422, 81, 585, 71, 0, 149, 0, 162, 163, - 0, 124, 0, 0, 134, 402, 602, 0, 135, 572, - 0, 138, 0, 618, 619, 0, 307, 0, 0, 0, - 8, 6, 0, 7, 160, 316, 318, 0, 317, 0, - 319, 0, 0, 321, 0, 322, 0, 323, 0, 324, - 0, 325, 0, 330, 0, 328, 0, 329, 0, 0, - 0, 326, 327, 331, 0, 233, 333, 0, 335, 0, - 0, 336, 0, 0, 94, 94, 94, 94, 373, 374, - 375, 376, 377, 378, 94, 320, 332, 0, 334, 0, - 84, 85, 86, 5, 94, 490, 0, 491, 0, 0, - 492, 0, 493, 495, 496, 0, 568, 494, 94, 497, - 4, 9, 0, 75, 0, 140, 139, 0, 0, 0, - 128, 130, 127, 125, 126, 122, 0, 132, 129, 121, - 0, 133, 131, 134, 0, 0, 0, 262, 264, 263, - 265, 267, 268, 271, 272, 273, 298, 276, 277, 274, - 275, 278, 279, 304, 283, 286, 297, 502, 0, 291, - 292, 293, 289, 290, 294, 295, 296, 266, 299, 282, - 89, 0, 114, 0, 116, 73, 0, 340, 341, 0, - 0, 74, 160, 316, 318, 317, 319, 321, 322, 323, - 324, 325, 330, 311, 312, 310, 327, 314, 333, 313, - 336, 0, 0, 320, 315, 334, 167, 0, 0, 0, - 0, 0, 70, 598, 599, 600, 0, 455, 0, 34, - 0, 0, 92, 0, 406, 604, 160, 328, 329, 555, - 331, 335, 332, 556, 0, 0, 0, 0, 165, 0, - 412, 0, 249, 0, 0, 0, 250, 243, 400, 308, - 242, 0, 254, 255, 256, 253, 1, 0, 14, 12, - 13, 11, 10, 0, 0, 161, 231, 0, 0, 212, - 0, 0, 214, 183, 184, 185, 186, 206, 0, 142, - 213, 190, 0, 144, 215, 191, 193, 0, 148, 217, - 192, 0, 150, 219, 195, 0, 152, 153, 196, 0, - 154, 197, 0, 157, 218, 194, 0, 220, 203, 207, - 0, 164, 234, 61, 223, 187, 208, 0, 166, 236, - 62, 224, 188, 209, 0, 0, 183, 170, 0, 174, - 0, 175, 177, 0, 176, 0, 178, 0, 179, 0, - 180, 0, 181, 169, 184, 172, 185, 173, 204, 0, - 211, 171, 0, 182, 205, 0, 221, 0, 59, 222, - 0, 230, 198, 0, 239, 58, 227, 200, 0, 258, - 259, 225, 0, 201, 0, 261, 60, 226, 202, 337, - 338, 0, 0, 0, 0, 0, 0, 0, 0, 339, - 65, 64, 68, 67, 66, 0, 145, 216, 0, 415, - 63, 229, 189, 210, 0, 417, 57, 228, 199, 56, - 0, 507, 514, 513, 0, 0, 498, 101, 420, 108, - 122, 99, 97, 110, 100, 0, 0, 98, 96, 520, - 525, 531, 519, 517, 0, 0, 0, 0, 571, 0, - 570, 69, 0, 95, 34, 0, 424, 0, 0, 342, - 344, 343, 0, 238, 0, 0, 0, 0, 0, 0, + 0, 0, 120, 78, 143, 138, 139, 420, 422, 0, + 0, 145, 148, 149, 129, 127, 128, 28, 124, 80, + 0, 0, 522, 450, 540, 123, 0, 122, 121, 444, + 125, 424, 83, 586, 73, 0, 151, 0, 164, 165, + 0, 126, 0, 0, 136, 404, 603, 0, 137, 573, + 0, 140, 0, 619, 620, 0, 309, 0, 0, 0, + 8, 6, 0, 7, 162, 318, 320, 0, 319, 0, + 321, 0, 0, 323, 0, 324, 0, 325, 0, 326, + 0, 327, 0, 332, 0, 330, 0, 331, 0, 0, + 0, 328, 329, 333, 0, 235, 335, 0, 337, 0, + 0, 338, 0, 0, 96, 96, 96, 96, 375, 376, + 377, 378, 379, 380, 96, 322, 334, 0, 336, 0, + 86, 87, 88, 5, 96, 491, 0, 492, 0, 0, + 493, 0, 494, 496, 497, 0, 569, 495, 96, 498, + 4, 9, 0, 77, 0, 142, 141, 0, 0, 0, + 130, 132, 129, 127, 128, 124, 0, 134, 131, 123, + 0, 135, 133, 136, 0, 0, 0, 264, 266, 265, + 267, 269, 270, 273, 274, 275, 300, 278, 279, 276, + 277, 280, 281, 306, 285, 288, 299, 503, 0, 293, + 294, 295, 291, 292, 296, 297, 298, 268, 301, 284, + 91, 0, 116, 0, 118, 75, 0, 342, 343, 0, + 0, 76, 162, 318, 320, 319, 321, 323, 324, 325, + 326, 327, 332, 313, 314, 312, 329, 316, 335, 315, + 338, 0, 0, 322, 317, 336, 169, 0, 0, 0, + 0, 0, 72, 599, 600, 601, 0, 456, 0, 34, + 0, 0, 94, 0, 408, 605, 162, 330, 331, 556, + 333, 337, 334, 557, 0, 0, 0, 0, 167, 0, + 414, 0, 251, 0, 0, 0, 252, 245, 402, 310, + 244, 0, 256, 257, 258, 255, 1, 0, 14, 12, + 13, 11, 10, 0, 0, 163, 233, 0, 0, 214, + 0, 0, 216, 185, 186, 187, 188, 208, 0, 144, + 215, 192, 0, 146, 217, 193, 195, 0, 150, 219, + 194, 0, 152, 221, 197, 0, 154, 155, 198, 0, + 156, 199, 0, 159, 220, 196, 0, 222, 205, 209, + 0, 166, 236, 63, 225, 189, 210, 0, 168, 238, + 64, 226, 190, 211, 0, 0, 185, 172, 0, 176, + 0, 177, 179, 0, 178, 0, 180, 0, 181, 0, + 182, 0, 183, 171, 186, 174, 187, 175, 206, 0, + 213, 173, 0, 184, 207, 0, 223, 0, 61, 224, + 0, 232, 200, 0, 241, 60, 229, 202, 0, 260, + 261, 227, 0, 203, 0, 263, 62, 228, 204, 339, + 340, 0, 0, 0, 0, 0, 0, 0, 0, 341, + 67, 66, 70, 69, 68, 0, 147, 218, 0, 417, + 65, 231, 191, 212, 0, 419, 59, 230, 201, 58, + 0, 508, 515, 514, 0, 0, 499, 103, 422, 110, + 124, 101, 99, 112, 102, 0, 0, 100, 98, 521, + 526, 532, 520, 518, 0, 0, 0, 0, 572, 0, + 571, 71, 0, 97, 34, 0, 426, 0, 0, 344, + 346, 345, 0, 240, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 87, 0, 88, 34, 79, 426, 428, 522, 34, 0, - 547, 546, 0, 168, 34, 0, 0, 82, 0, 0, - 604, 0, 453, 0, 457, 45, 40, 37, 0, 38, - 39, 36, 41, 43, 50, 51, 47, 0, 48, 49, - 46, 52, 459, 35, 44, 467, 458, 0, 0, 407, - 34, 0, 408, 0, 603, 0, 0, 0, 616, 0, - 0, 414, 155, 244, 245, 246, 248, 238, 247, 0, - 156, 307, 307, 151, 15, 18, 20, 307, 345, 305, - 306, 397, 0, 396, 347, 346, 348, 350, 351, 352, - 353, 354, 359, 357, 307, 358, 307, 355, 356, 360, - 363, 364, 307, 252, 365, 367, 368, 369, 370, 372, - 371, 366, 251, 349, 361, 362, 505, 0, 499, 510, - 0, 500, 0, 0, 111, 0, 0, 528, 515, 0, - 534, 516, 536, 0, 582, 0, 580, 77, 0, 433, - 438, 0, 0, 419, 421, 307, 270, 301, 281, 285, - 288, 385, 386, 387, 392, 393, 390, 391, 384, 395, - 388, 389, 394, 379, 380, 381, 382, 383, 503, 303, - 90, 115, 117, 429, 431, 0, 0, 451, 0, 450, - 542, 446, 0, 0, 445, 423, 0, 0, 586, 72, - 601, 0, 16, 471, 469, 0, 463, 465, 42, 53, - 0, 471, 93, 91, 410, 0, 0, 606, 160, 304, - 612, 297, 0, 299, 605, 608, 0, 559, 560, 562, - 557, 573, 0, 257, 413, 0, 308, 158, 401, 0, - 0, 0, 0, 0, 240, 398, 0, 0, 0, 0, - 0, 0, 0, 501, 0, 0, 0, 532, 0, 518, - 0, 0, 576, 0, 0, 569, 581, 441, 434, 0, - 439, 0, 440, 425, 0, 0, 0, 432, 427, 80, - 34, 0, 448, 34, 83, 593, 0, 124, 0, 34, - 0, 472, 473, 34, 464, 466, 456, 469, 0, 461, - 0, 404, 0, 409, 34, 607, 609, 558, 0, 566, - 0, 307, 19, 30, 21, 30, 307, 232, 399, 235, - 237, 260, 506, 508, 0, 30, 102, 30, 104, 526, - 0, 0, 0, 537, 0, 583, 578, 436, 442, 0, - 307, 504, 430, 452, 0, 447, 596, 0, 587, 0, - 0, 17, 0, 34, 34, 478, 34, 0, 0, 470, - 0, 0, 34, 0, 403, 411, 610, 561, 567, 563, - 617, 159, 31, 0, 32, 34, 0, 241, 0, 511, - 0, 0, 0, 533, 529, 535, 0, 0, 0, 0, - 0, 443, 0, 548, 597, 590, 0, 0, 34, 484, - 307, 479, 0, 0, 34, 474, 0, 462, 460, 468, - 405, 0, 0, 0, 54, 0, 509, 0, 0, 0, - 527, 0, 540, 541, 538, 577, 584, 0, 437, 416, - 0, 543, 592, 588, 0, 594, 595, 307, 485, 477, - 0, 475, 454, 34, 481, 0, 34, 564, 23, 33, - 34, 25, 512, 103, 105, 530, 579, 549, 0, 0, - 0, 0, 307, 480, 307, 482, 34, 487, 0, 55, - 544, 589, 591, 486, 476, 0, 307, 488, 0, 565, - 0, 483, 0, 552, 550, 545, 489, 553, 551 + 89, 0, 90, 34, 81, 428, 430, 523, 34, 0, + 548, 547, 0, 170, 34, 448, 0, 84, 0, 0, + 605, 0, 454, 0, 458, 47, 42, 39, 0, 40, + 41, 38, 43, 45, 52, 53, 49, 0, 50, 51, + 48, 54, 460, 35, 46, 468, 459, 0, 0, 409, + 34, 0, 410, 0, 604, 0, 0, 0, 617, 0, + 0, 416, 157, 246, 247, 248, 250, 240, 249, 0, + 158, 309, 309, 153, 15, 18, 20, 309, 347, 307, + 308, 399, 0, 398, 349, 348, 350, 352, 353, 354, + 355, 356, 361, 359, 309, 360, 309, 357, 358, 362, + 365, 366, 309, 254, 367, 369, 370, 371, 372, 374, + 373, 368, 253, 351, 363, 364, 506, 0, 500, 511, + 0, 501, 0, 0, 113, 0, 0, 529, 516, 0, + 535, 517, 537, 0, 583, 0, 581, 79, 0, 434, + 36, 0, 0, 421, 423, 309, 272, 303, 283, 287, + 290, 387, 388, 389, 394, 395, 392, 393, 386, 397, + 390, 391, 396, 381, 382, 383, 384, 385, 504, 305, + 92, 117, 119, 431, 36, 0, 0, 452, 0, 451, + 543, 446, 0, 0, 0, 425, 0, 0, 587, 74, + 602, 0, 16, 472, 470, 0, 464, 466, 44, 55, + 0, 472, 95, 93, 412, 0, 0, 607, 162, 306, + 613, 299, 0, 301, 606, 609, 0, 560, 561, 563, + 558, 574, 0, 259, 415, 0, 310, 160, 403, 0, + 0, 0, 0, 0, 242, 400, 0, 0, 0, 0, + 0, 0, 0, 502, 0, 0, 0, 533, 0, 519, + 0, 0, 577, 0, 0, 570, 582, 441, 435, 0, + 439, 37, 0, 440, 427, 0, 0, 0, 433, 429, + 82, 34, 0, 449, 34, 445, 85, 594, 0, 126, + 0, 34, 0, 473, 474, 34, 465, 467, 457, 470, + 0, 462, 0, 406, 0, 411, 34, 608, 610, 559, + 0, 567, 0, 309, 19, 30, 21, 30, 309, 234, + 401, 237, 239, 262, 507, 509, 0, 30, 104, 30, + 106, 527, 0, 0, 0, 538, 0, 584, 579, 437, + 442, 0, 309, 505, 432, 453, 0, 447, 597, 0, + 588, 0, 0, 17, 0, 34, 34, 479, 34, 0, + 0, 471, 0, 0, 34, 0, 405, 413, 611, 562, + 568, 564, 618, 161, 31, 0, 32, 34, 0, 243, + 0, 512, 0, 0, 0, 534, 530, 536, 0, 0, + 0, 0, 0, 443, 0, 549, 598, 591, 0, 0, + 34, 485, 309, 480, 0, 0, 34, 475, 0, 463, + 461, 469, 407, 0, 0, 0, 56, 0, 510, 0, + 0, 0, 528, 0, 541, 542, 539, 578, 585, 0, + 438, 418, 0, 544, 593, 589, 0, 595, 596, 309, + 486, 478, 0, 476, 455, 34, 482, 0, 34, 565, + 23, 33, 34, 25, 513, 105, 107, 531, 580, 550, + 0, 0, 0, 0, 309, 481, 309, 483, 34, 488, + 0, 57, 545, 590, 592, 487, 477, 0, 309, 489, + 0, 566, 0, 484, 0, 553, 551, 546, 490, 554, + 552 }; /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int16 yydefgoto[] = { -1, 58, 59, 451, 61, 739, 741, 740, 742, 62, - 873, 552, 553, 554, 874, 452, 241, 142, 206, 686, - 239, 696, 508, 253, 205, 144, 453, 454, 455, 697, - 978, 201, 203, 64, 167, 168, 67, 169, 69, 170, - 71, 72, 171, 74, 172, 76, 173, 78, 174, 80, - 175, 82, 275, 176, 84, 177, 86, 178, 88, 89, - 90, 306, 179, 180, 181, 94, 95, 587, 182, 604, - 606, 183, 97, 743, 276, 277, 744, 184, 285, 99, - 100, 185, 612, 102, 186, 484, 486, 487, 488, 736, - 485, 507, 591, 280, 231, 188, 419, 189, 190, 191, - 192, 107, 108, 109, 110, 111, 112, 113, 193, 194, - 195, 196, 344, 300, 281, 197, 254, 802, 561, 562, - 271, 198, 117, 199, 119, 120, 147, 148, 238, 475, - 514, 515, 516, 768, 769, 890, 650, 651, 121, 237, - 525, 122, 210, 519, 457, 703, 533, 710, 798, 705, - 251, 711, 707, 793, 790, 940, 941, 791, 792, 124, - 125, 126, 506, 775, 444, 750, 445, 627, 878, 752, - 917, 446, 127, 463, 128, 209, 129, 464, 635, 882, - 758, 921, 465, 636, 830, 760, 130, 761, 886, 131, - 924, 132, 781, 958, 980, 522, 931, 979, 263, 264, - 728, 729, 133, 809, 911, 968, 869, 134, 469, 470, - 135, 265, 136, 645, 834, 889, 646, 763, 888, 137, - 240, 785, 895, 959, 933, 934, 848, 849, 850, 245, - 138, 530, 255, 564, 724, 725, 139, 732, 458 + 875, 552, 770, 553, 554, 876, 452, 241, 142, 206, + 686, 239, 696, 508, 253, 205, 144, 453, 454, 455, + 697, 980, 201, 203, 64, 167, 168, 67, 169, 69, + 170, 71, 72, 171, 74, 172, 76, 173, 78, 174, + 80, 175, 82, 275, 176, 84, 177, 86, 178, 88, + 89, 90, 306, 179, 180, 181, 94, 95, 587, 182, + 604, 606, 183, 97, 743, 276, 277, 744, 184, 285, + 99, 100, 185, 612, 102, 186, 484, 486, 487, 488, + 736, 485, 507, 591, 280, 231, 188, 419, 189, 190, + 191, 192, 107, 108, 109, 110, 111, 112, 113, 193, + 194, 195, 196, 344, 300, 281, 197, 254, 804, 561, + 562, 271, 198, 117, 199, 119, 120, 147, 148, 238, + 475, 514, 515, 516, 768, 769, 892, 650, 651, 121, + 237, 525, 694, 122, 210, 519, 457, 703, 533, 710, + 800, 705, 251, 711, 707, 795, 792, 942, 943, 793, + 794, 124, 125, 126, 506, 776, 444, 750, 445, 627, + 880, 752, 919, 446, 127, 463, 128, 209, 129, 464, + 635, 884, 758, 923, 465, 636, 832, 760, 130, 761, + 888, 131, 926, 132, 782, 960, 982, 522, 933, 981, + 263, 264, 728, 729, 133, 811, 913, 970, 871, 134, + 469, 470, 135, 265, 136, 645, 836, 891, 646, 763, + 890, 137, 240, 787, 897, 961, 935, 936, 850, 851, + 852, 245, 138, 530, 255, 564, 724, 725, 139, 732, + 458 }; /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ -#define YYPACT_NINF -907 +#define YYPACT_NINF -788 static const yytype_int16 yypact[] = { - 3540, 148, -907, 204, -907, -8, 5, 545, 462, -36, - 7048, -907, -907, -907, 4242, 4242, 4242, -907, 112, 646, - 7048, 7048, -907, 699, -907, 204, 3355, -907, -907, 10, - -907, 1640, 1762, -907, 204, -9, -907, 93, -907, -907, - 4242, -907, 4242, 1170, 110, -907, -907, 3355, -907, -907, - 7048, -907, 94, -907, -907, 7167, 6572, 7844, 180, 4608, - -907, -907, 448, -907, -7, 13, 21, 3234, 14, 7844, - 16, 7844, 7844, 25, 7844, 47, 7844, 55, 7844, 72, - 7844, 57, 7844, 31, 3234, 12, 3234, 90, 3234, 7524, - 7844, 44, 18, 225, 7844, -907, 70, 7844, 29, 68, - 7844, 102, 7844, 1308, -907, -907, -907, -907, -907, -907, - -907, -907, -907, -907, -907, 59, 118, 3234, 178, 7844, - -907, -907, -907, -907, -907, -907, 378, -907, 4854, 466, - -907, 7048, -907, -907, -907, 5469, 208, -907, -907, -907, - -907, -907, 7048, -907, 148, -907, -907, 4242, 4242, 7048, - -907, -907, -907, -907, -907, -907, 7048, -907, -907, -907, - 10, -907, -907, -907, 7048, 7048, 4242, 731, 964, 808, - 1842, 1897, 7575, 1971, 1190, 2006, 3620, 235, 1584, 1295, - 1435, 1466, 7635, -907, 4475, 7695, -907, 4081, 1325, -907, - -907, -907, -907, -907, -907, -907, -907, 2111, 7755, 2267, - -907, 414, -907, 417, -907, -907, 8070, -907, -907, 148, - 4242, -907, 210, 106, 106, 51, 56, 89, 149, 171, - 242, 182, 106, 159, 205, 131, 106, 76, 186, 214, - 191, 15, 181, 206, -4, 216, 266, 4242, 4242, 8070, - 148, 7048, -907, -907, -907, -907, 315, 223, 148, 4312, - 226, 148, 228, 231, 7878, 293, 251, -3, 77, 131, - 330, 154, 218, -907, -15, 7048, 3012, 7048, -907, 4242, - 4081, 262, -907, 280, 3355, 267, -907, -907, -907, 3752, - -907, 283, -907, -907, -907, -907, -907, 148, -907, -907, - -907, -907, -907, 4242, 4242, -907, -907, 7048, 6691, -907, - -84, 7048, -907, -907, -907, -907, -907, -907, 7048, -907, - -907, -907, 7048, -907, -907, -907, -907, 7048, -907, -907, - -907, 7048, -907, -907, -907, 7048, -907, -907, -907, 7048, - -907, -907, 7048, -907, -907, -907, 7048, -907, -907, -907, - 7048, -907, -907, -907, -907, -907, -907, 7048, -907, -907, - -907, -907, -907, -907, -8, 5, 341, -907, 394, -907, - 397, -907, -907, 405, -907, 407, -907, 171, -907, 242, - -907, 419, -907, -907, 422, -907, 428, -907, -907, 445, - 464, -907, 471, -907, -907, 7048, -907, 7048, -907, -907, - 7048, -907, -907, 7048, -907, -907, -907, -907, 7048, -907, - -907, -907, 7844, -907, 7048, -907, -907, -907, -907, -907, - -907, 7048, 7048, 7048, 7048, 7048, 7048, 7048, 7844, -907, - -907, -907, -907, -907, -907, 7048, -907, -907, 7048, -907, - -907, -907, -907, -907, 7048, -907, -907, -907, -907, -907, - 148, -907, -907, -907, 467, 497, -907, -907, 537, -907, - 164, -907, -907, -907, -907, 491, 4977, -907, -907, -907, - -907, -907, -907, -907, 486, 311, 3012, 5592, -907, 505, - -907, -907, 3012, -907, 2101, 429, -907, 429, 2352, 1552, - -907, -907, 389, -907, 4312, 4312, 4312, 4312, 4312, 7048, - 7048, 7048, 7048, 7048, 7048, 7048, 7048, 7048, 7048, 7048, - 7048, 7048, 7048, 7048, 7048, 7048, 148, 4312, 148, 4242, - -907, 4242, -907, 2101, 400, -907, -907, -907, 4312, 432, - -907, -907, 7048, -907, 4312, 256, 432, 400, 5100, 3012, - 293, 438, -907, 4242, -907, -907, -907, -907, 4242, -907, - -907, -907, -907, -907, -907, -907, -907, 4242, -907, -907, - -907, -907, -907, -907, -907, -907, -907, 504, 148, -907, - 4312, 402, 433, 6810, -907, 7286, 3355, 3012, -907, 495, - 7048, -907, -907, 227, 159, 131, 76, 211, 214, 7048, - -907, 7048, 6929, -907, -907, 418, 437, 6929, 4081, -907, - 4081, -907, 6691, 451, 4081, 4081, 4081, 4081, 4081, 4081, - 4081, 4081, 4081, 4081, 6929, 4081, 6929, 4081, 4081, 4081, - 4081, 4081, 6929, -907, 4081, 4081, 4081, 4081, 4081, 4081, - 4081, 4081, -907, 4081, 4081, 4081, -907, 7048, -907, -907, - 467, -907, 4242, 4242, -907, 7048, 148, -907, -907, 311, - -907, -907, -907, 7048, -907, 362, -907, -907, 7048, 551, - 534, -75, 4242, -907, -907, 7405, -907, -907, -907, -907, - -907, 3402, 4081, 1552, 1552, 1552, 1552, 1552, 507, 1552, - 1552, 1552, 1552, 363, 363, 252, 252, 252, -907, -907, - -907, -907, -907, 573, 534, 8070, 148, -907, 4242, -907, - 4081, -907, 4242, 4242, -907, -907, 148, 4731, -907, -907, - -907, 565, -907, 2685, 226, 2499, -907, -907, -907, -907, - 4242, 2685, -907, -907, -907, 7048, 7940, 7405, 249, 444, - -907, 450, 4081, 4124, 475, -907, 4242, 4081, -907, 478, - -907, -907, 6453, -907, 4081, 3981, 4081, -907, -907, 148, - 498, 148, 509, 348, -907, -907, 6691, 358, 454, 455, - 5961, 3012, 7048, -907, 328, 342, 3012, -907, 7048, -907, - 148, 6084, 4081, 148, 7048, -907, -907, 4081, -907, 605, - -907, 7048, 510, -907, 511, 5223, 7048, -907, -907, -907, - 4312, 587, -907, 4312, -907, 564, 148, 2854, 4242, 4312, - 514, 518, 519, 4312, -907, -907, -907, -907, 292, -907, - 522, 4081, 318, -907, 4312, -907, 7405, 389, 7286, 542, - 632, 7048, -907, 7974, -907, 7974, 6929, -907, -907, -907, - -907, -907, -907, -907, 3012, 7974, -907, 7974, -907, -907, - 5715, 3012, 5715, -907, 148, -907, 4081, -907, 4081, 7048, - 7405, -907, 4081, -907, 7048, -907, -907, 4242, -907, 148, - 148, -907, 4242, 4312, 3862, -907, 4312, 3711, 568, -907, - 4242, 148, 4312, 7048, -907, -907, -907, -907, -907, -907, - -907, -907, -907, 530, 533, 4312, 532, -907, 5223, -907, - 535, 538, 5346, -907, -907, -907, 183, 5838, 5838, 148, - 7048, 4081, 539, 4324, -907, 590, 6207, 6207, 8117, -907, - 7048, -907, 148, 4242, 4312, 519, 3958, -907, -907, -907, - 4081, 148, 148, 8036, -907, 148, -907, 5223, 148, 148, - -907, 5346, -907, -907, -907, -907, -907, 5838, 4081, -907, - 7048, -907, -907, -907, 148, -907, -907, 7048, -907, -907, - 468, -907, -907, 8138, -907, 4242, 4312, -907, -907, -907, - 4312, -907, -907, -907, -907, -907, -907, 4081, 148, 642, - 6453, 488, 7048, -907, 7048, -907, 8174, -907, 6330, -907, - -907, -907, -907, -907, -907, 489, 7048, -907, 27, -907, - 6330, -907, 493, 4242, 4242, -907, -907, -907, -907 + 4430, 293, -788, 335, -788, 17, 29, 616, 466, -35, + 6760, -788, -788, -788, 8085, 8085, 8085, -788, 20, 755, + 6760, 6760, -788, 788, -788, 335, 7240, -788, -788, 56, + -788, 1466, 1505, -788, 335, -44, -788, 98, -788, -788, + 8085, -788, 8085, 532, 210, -788, -788, 7240, -788, -788, + 6760, -788, 46, -788, -788, 6880, 3660, 7827, 176, 4780, + -788, -788, 460, -788, -7, 42, 54, 4271, 10, 7827, + 13, 7827, 7827, 24, 7827, 76, 7827, 84, 7827, 45, + 7827, 109, 7827, 61, 4271, 59, 4271, 94, 4271, 7348, + 7827, 70, 112, 47, 7827, -788, 89, 7827, 28, 130, + 7827, 100, 7827, 392, -788, -788, -788, -788, -788, -788, + -788, -788, -788, -788, -788, 227, 157, 4271, 206, 7827, + -788, -788, -788, -788, -788, -788, 488, -788, 5028, 440, + -788, 6760, -788, -788, -788, 5648, 311, -788, -788, -788, + -788, -788, 6760, -788, 293, -788, -788, 8085, 8085, 6760, + -788, -788, -788, -788, -788, -788, 6760, -788, -788, -788, + 56, -788, -788, -788, 6760, 6760, 8085, 313, 627, 1378, + 1635, 1757, 3235, 1965, 670, 2117, 7596, 190, 1302, 1116, + 1916, 1582, 4669, -788, 2590, 7476, -788, 3707, 457, -788, + -788, -788, -788, -788, -788, -788, -788, 2159, 7536, 2166, + -788, 220, -788, 284, -788, -788, 8027, -788, -788, 293, + 8085, -788, 271, 181, 181, -5, 9, 30, 55, 63, + 301, 77, 181, 5, 191, 291, 181, 69, 93, 253, + 205, 8, 194, 235, -2, 258, 310, 8085, 8085, 8027, + 293, 6760, -788, -788, -788, -788, 347, 266, 293, 8191, + 286, 293, 327, 345, 3019, 382, 294, 199, 216, 291, + 454, 243, 261, -788, -14, 6760, 7395, 6760, -788, 8085, + 3707, 312, -788, 351, 7240, -63, -788, -788, -788, 2909, + -788, 183, -788, -788, -788, -788, -788, 293, -788, -788, + -788, -788, -788, 8085, 8085, -788, -788, 6760, 3498, -788, + -77, 6760, -788, -788, -788, -788, -788, -788, 6760, -788, + -788, -788, 6760, -788, -788, -788, -788, 6760, -788, -788, + -788, 6760, -788, -788, -788, 6760, -788, -788, -788, 6760, + -788, -788, 6760, -788, -788, -788, 6760, -788, -788, -788, + 6760, -788, -788, -788, -788, -788, -788, 6760, -788, -788, + -788, -788, -788, -788, 17, 29, 463, -788, 479, -788, + 483, -788, -788, 528, -788, 537, -788, 63, -788, 301, + -788, 545, -788, -788, 553, -788, 581, -788, -788, 586, + 594, -788, 598, -788, -788, 6760, -788, 6760, -788, -788, + 6760, -788, -788, 6760, -788, -788, -788, -788, 6760, -788, + -788, -788, 7827, -788, 6760, -788, -788, -788, -788, -788, + -788, 6760, 6760, 6760, 6760, 6760, 6760, 6760, 7827, -788, + -788, -788, -788, -788, -788, 6760, -788, -788, 6760, -788, + -788, -788, -788, -788, 6760, -788, -788, -788, -788, -788, + 293, -788, -788, -788, 543, 584, -788, -788, 656, -788, + 264, -788, -788, -788, -788, 583, 5152, -788, -788, -788, + -788, -788, -788, -788, 444, 357, 7395, 5772, -788, 571, + -788, -788, 7395, -788, 3755, 323, -788, 323, 2760, 1360, + -788, -788, 374, -788, 8191, 8191, 8191, 8191, 8191, 6760, + 6760, 6760, 6760, 6760, 6760, 6760, 6760, 6760, 6760, 6760, + 6760, 6760, 6760, 6760, 6760, 6760, 293, 8191, 293, 8085, + -788, 8085, -788, 3755, 403, -788, -788, -788, 8191, 419, + -788, -788, 6760, -788, 8191, 149, 419, 403, 5276, 7395, + 382, 304, -788, 8085, -788, -788, -788, -788, 8085, -788, + -788, -788, -788, -788, -788, -788, -788, 8085, -788, -788, + -788, -788, -788, -788, -788, -788, -788, 510, 293, -788, + 8191, 475, 514, 4091, -788, 7000, 7240, 7395, -788, 506, + 6760, -788, -788, 254, 5, 291, 69, 60, 253, 6760, + -788, 6760, 4563, -788, -788, 515, 517, 4563, 3707, -788, + 3707, -788, 3498, 512, 3707, 3707, 3707, 3707, 3707, 3707, + 3707, 3707, 3707, 3707, 4563, 3707, 4563, 3707, 3707, 3707, + 3707, 3707, 4563, -788, 3707, 3707, 3707, 3707, 3707, 3707, + 3707, 3707, -788, 3707, 3707, 3707, -788, 6760, -788, -788, + 543, -788, 8085, 8085, -788, 6760, 293, -788, -788, 357, + -788, -788, -788, 6760, -788, 390, -788, -788, 6760, 633, + 713, 184, 8085, -788, -788, 7120, -788, -788, -788, -788, + -788, 2880, 3707, 1360, 1360, 1360, 1360, 1360, 585, 1360, + 1360, 1360, 1360, 439, 439, 240, 240, 240, -788, -788, + -788, -788, -788, 635, 713, 8027, 293, -788, 8085, -788, + 3707, -788, 8085, 8085, 293, -788, 293, 4904, -788, -788, + -788, 628, -788, 2410, 286, 2723, -788, -788, -788, -788, + 8085, 2410, -788, -788, -788, 6760, 7881, 7120, 426, 476, + -788, 487, 3707, 7401, 525, -788, 8085, 3707, -788, 527, + -788, -788, 6640, -788, 3707, 4298, 3707, -788, -788, 293, + 531, 293, 533, 337, -788, -788, 3498, 366, 387, 436, + 6144, 7395, 6760, -788, 352, 413, 7395, -788, 6760, -788, + 293, 6268, 3707, 293, 6760, -788, -788, 3707, -788, 640, + -788, -788, 6760, 529, -788, 546, 5400, 6760, -788, -788, + -788, 8191, 611, -788, 8191, -788, -788, 568, 293, 7685, + 8085, 8191, 541, 547, 548, 8191, -788, -788, -788, -788, + 211, -788, 554, 3707, 273, -788, 8191, -788, 7120, 374, + 7000, 589, 672, 6760, -788, 7925, -788, 7925, 4563, -788, + -788, -788, -788, -788, -788, -788, 7395, 7925, -788, 7925, + -788, -788, 5896, 7395, 5896, -788, 293, -788, 3707, -788, + 3707, 6760, 7120, -788, 3707, -788, 6760, -788, -788, 8085, + -788, 293, 293, -788, 8085, 8191, 3949, -788, 8191, 7729, + 612, -788, 8085, 293, 8191, 6760, -788, -788, -788, -788, + -788, -788, -788, -788, -788, 573, 577, 8191, 578, -788, + 5400, -788, 579, 580, 5524, -788, -788, -788, 269, 6020, + 6020, 293, 6760, 3707, 591, 8086, -788, 641, 6392, 6392, + 8083, -788, 6760, -788, 293, 8085, 8191, 548, 7783, -788, + -788, -788, 3707, 293, 293, 7983, -788, 293, -788, 5400, + 293, 293, -788, 5524, -788, -788, -788, -788, -788, 6020, + 3707, -788, 6760, -788, -788, -788, 293, -788, -788, 6760, + -788, -788, 490, -788, -788, 8133, -788, 8085, 8191, -788, + -788, -788, 8191, -788, -788, -788, -788, -788, -788, 3707, + 293, 677, 6640, 493, 6760, -788, 6760, -788, 8154, -788, + 6516, -788, -788, -788, -788, -788, -788, 497, 6760, -788, + 15, -788, 6516, -788, 500, 8085, 8085, -788, -788, -788, + -788 }; /* YYPGOTO[NTERM-NUM]. */ static const yytype_int16 yypgoto[] = { - -907, -907, -907, 39, 604, -907, -907, -907, -907, -907, - -396, -464, 4, -607, -907, 213, -907, -907, -907, -907, - -907, -907, -907, -907, 321, -907, -449, -907, -907, 192, - -473, -907, -907, 3119, 1161, 1189, 576, 179, 578, 253, - 579, 580, 373, 582, 410, 584, 559, 585, 586, 588, - 710, 589, -907, 1377, 594, 0, 597, 75, 599, 440, - -907, 8083, 1451, 1556, 1667, -907, -165, -907, 1744, -907, - -907, -557, -907, -226, -644, -555, -53, 1869, -145, -907, - -907, 1973, -907, -907, -551, -907, -907, -907, -907, 3736, - -907, -907, -573, -579, -907, 2092, -907, 1853, 2114, -907, - 2254, -907, -907, -907, -907, -907, -907, -907, 2353, -907, - -907, -907, 4243, -907, -907, 855, -907, -907, -907, -907, - -907, 176, 600, 872, 601, -907, -907, -907, -907, 531, - 452, 7, -143, -907, -907, -907, 185, -907, -907, -907, - -907, -907, -907, 457, 240, -907, -907, -907, -907, -907, - -524, -907, -690, -907, -18, -906, -266, -907, -158, -907, - -907, -907, -907, -907, 268, -907, -907, -907, -907, -907, - -907, -431, -907, -448, -907, -907, -907, -907, -907, -907, - -907, -907, 247, -907, -907, -907, -907, -907, -907, -907, - -907, -907, -907, -907, -907, -907, -907, -268, 150, -907, - -93, -907, -907, -907, -907, -907, -907, -907, -907, 73, - -907, -907, -907, -907, -907, -907, 74, -907, -907, -907, - -907, -907, -907, -907, -907, -907, -907, -907, -907, -907, - -907, -907, -907, 187, -907, -505, -907, -907, 2964 + -788, -788, -788, 265, 650, -788, -788, -788, -788, -788, + -787, -370, 33, 83, -607, -788, 292, -788, -788, -788, + -788, -788, -788, -788, -788, 177, -788, -449, -788, -788, + -80, -489, -788, -788, 3365, 1148, 1184, 629, 207, 630, + 303, 631, 632, 331, 634, 406, 639, 565, 642, 619, + 644, 853, 647, -788, 1280, 651, 0, 652, 75, 654, + 503, -788, 3397, 1308, 1485, 1596, -788, -163, -788, 1804, + -788, -788, -557, -788, -248, -646, -555, -55, 1964, -366, + -788, -788, 2076, -788, -788, -550, -788, -788, -788, -788, + 3924, -788, -788, -572, -579, -788, 2253, -788, 1729, 2275, + -788, 2378, -788, -788, -788, -788, -788, -788, -788, 2453, + -788, -788, -788, 3786, -788, -788, 949, -788, -788, -788, + -788, -788, 171, 657, 1024, 659, -788, -788, -788, -788, + 597, 513, 64, -143, -788, -788, -788, 238, -788, -788, + -788, -788, -788, -788, -788, 518, 300, -788, -788, -788, + -788, -788, -521, -788, -689, -788, 49, -664, -207, -788, + -101, -788, -788, -788, -788, -788, 320, -788, -788, -788, + -788, -788, -788, -430, -788, -454, -788, -788, -788, -788, + -788, -788, -788, -788, 302, -788, -788, -788, -788, -788, + -788, -788, -788, -788, -788, -788, -788, -788, -788, -215, + 202, -788, -41, -788, -788, -788, -788, -788, -788, -788, + -788, 126, -788, -788, -788, -788, -788, -788, 129, -788, + -788, -788, -788, -788, -788, -788, -788, -788, -788, -788, + -788, -788, -788, -788, -788, 245, -788, -692, -788, -788, + 2890 }; /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule which number is the opposite. If zero, do what YYDEFACT says. If YYTABLE_NINF, syntax error. */ -#define YYTABLE_NINF -616 +#define YYTABLE_NINF -617 static const yytype_int16 yytable[] = { - 85, 483, 737, 278, 476, 476, 719, 634, 720, 706, - 649, 774, 721, 628, 631, 795, 638, 641, 634, 745, - 799, 340, 297, 308, 520, 312, 223, 387, 145, 295, - 301, 961, 429, 341, 317, 243, 592, 565, 398, 60, - 336, 146, 593, 770, 983, 771, 236, 257, 341, 683, - 309, 772, 313, 385, 687, 698, 321, 283, 975, 85, - 691, 318, 38, 39, 325, 399, 332, 304, 425, 304, - 982, 304, 304, 984, 304, 87, 304, 777, 304, 393, - 304, 329, 304, 322, 304, 149, 304, 309, 304, 374, - 304, 326, 313, 333, 304, 426, 714, 304, 288, 347, - 304, 224, 304, 246, 483, 566, 394, 52, 330, 577, - 244, 404, 391, 348, 296, -29, -29, 304, 342, 304, - 521, -332, 258, 298, 298, 318, 348, 428, 85, 252, - -94, -94, 284, 342, 87, 85, -94, -94, 405, 298, - 298, 298, 305, 298, 305, 298, 305, 305, 298, 305, - 400, 305, 298, 305, 429, 305, 298, 305, 298, 305, - 719, 305, 720, 305, 376, 305, 721, -109, -109, 305, - 907, 298, 305, 818, 298, 305, 116, 305, 298, 68, - 286, 794, 298, 298, 298, 322, 298, 434, -94, -94, - 399, 759, 305, 402, 305, 341, 892, 298, 349, 753, - 922, -331, 234, 87, 298, 215, 513, 326, -94, -94, - 87, 349, 805, 63, 435, 267, 298, 298, 333, -309, - -94, -94, 394, 262, 923, 468, 215, 405, 268, 298, - -94, -94, 871, 298, 390, 116, -94, -94, 68, 513, - 123, 348, 426, 307, 340, 298, 295, -233, 634, 719, - 399, 720, 435, 70, 429, 721, -326, 613, 298, 810, - 339, 391, 346, 295, 353, 380, 53, 54, 358, -328, - -328, 341, 290, 622, 574, 400, 298, 822, 330, 216, - 342, 298, -94, -94, -328, 295, 298, 295, 833, -328, - -328, -328, -328, 433, -328, -328, -94, -94, 298, 291, - 216, 866, 841, -554, 116, 298, 418, 68, 692, 298, - 496, 116, 70, 298, 68, -309, 843, 160, 298, 845, - 456, 939, -94, -94, 143, 855, 349, 467, 459, 859, - -329, 296, 298, 298, 531, 400, -233, 557, -233, -335, - 865, 298, 360, 298, 532, 298, 211, 555, 296, 258, - 640, 462, -160, 558, -160, 242, 342, 883, 939, 885, - -328, 563, 298, 503, 504, 505, 391, -611, -611, -611, - 296, -554, 296, 73, 53, 54, 693, 295, 747, 468, - 748, 70, 570, 939, 571, 939, 749, 579, 70, 899, - 901, 580, 902, 440, 441, 442, 443, 939, 909, 217, - 764, 644, 283, 582, 572, 916, 343, 583, 350, 920, - 75, 914, 860, 388, 925, 926, 861, 395, 283, 876, - 217, 496, 406, 935, 936, 420, 421, 422, 423, 880, - 309, 881, 73, 313, 938, 424, 218, 430, 863, 436, - 944, 318, 864, 322, 952, 439, 53, 54, 955, 825, - 262, 293, 294, 215, 956, 333, 85, 218, 341, 471, - 53, 54, 363, 827, 348, -27, -27, 85, 816, 75, - 817, -130, 501, 502, 503, 504, 505, 284, 816, 965, - 819, 426, 967, 459, 442, 443, 969, 972, 656, 657, - 658, 659, 660, 284, 632, 633, -130, -130, -130, 365, - 429, 73, 977, 459, 460, 461, 462, 435, 73, 773, - 296, 679, 440, 629, 442, 443, -130, -130, -130, -130, - 685, -130, -130, 712, 637, 461, 462, 216, 85, 738, - 715, 87, 53, 54, 509, 53, 54, 511, 75, -22, - -107, -107, 87, 643, 644, 75, -130, 53, 54, 652, - 53, 54, 688, 716, -128, 701, 53, 54, -24, 77, - -435, 483, -613, -613, -613, 496, 257, -130, -614, -614, - -614, -130, -130, -130, 816, 816, 820, 821, 746, -128, - -128, -128, 776, -130, 786, 219, 79, -130, 962, -130, - 963, -130, -130, -130, -130, 806, -130, -130, 808, -128, - -128, -128, -128, 87, -128, -128, 219, 535, 962, 962, - 973, 981, 220, 962, 837, 986, 296, 733, 77, 813, - 544, 545, 546, 547, 548, 549, 550, 551, 846, 847, - 815, 840, 116, 220, 844, 68, 856, 839, 857, 858, - 868, 258, -130, 116, 862, 79, 68, 217, 367, 870, - -128, 906, 912, 913, 915, -132, 932, 918, -130, 971, - 919, 929, -130, 289, -130, 357, -128, 359, 361, 362, - -128, 364, -128, 366, 368, 369, 523, 370, 372, 477, - -132, -132, -132, 373, 218, 513, 375, 77, 377, 381, - 383, 527, 778, 800, 77, 526, 974, 85, 684, 905, - -132, -132, -132, -132, 116, -132, -132, 68, -129, 70, - 81, 639, 985, 630, 79, 867, 730, 700, 765, 766, - 70, 79, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 85, -129, -129, -129, 221, 0, 0, 723, - 297, 0, 262, 0, 0, 215, 0, 0, 0, 0, - 85, -132, 0, -129, -129, -129, -129, 221, -129, -129, - 0, 85, 0, 877, 0, -316, -316, -132, 0, 81, - 0, -132, 87, -132, 0, 85, 0, 0, 0, 0, - 0, 70, 0, 0, 0, -316, -316, -316, -316, 0, - -316, -316, 0, 0, 0, 0, 0, 0, 0, 371, - 0, 0, 0, 0, -129, 0, 0, 87, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 308, 0, 216, - -129, 0, 0, 0, -129, 87, -129, 0, 0, 73, - 85, 0, 85, 219, 0, 0, 87, 0, 81, 0, - 73, 0, -317, -317, 309, 81, 0, 0, 0, 0, - 87, 0, 0, 0, 0, 115, -316, 0, 298, 0, - 220, 0, -317, -317, -317, -317, 75, -317, -317, 0, - 0, 0, 118, 116, 0, 0, 68, 75, 85, 0, - 0, 233, 85, 0, 0, 0, 0, 85, 85, 0, - 0, 0, 0, 723, 0, 0, 85, 85, 235, 0, - 0, 73, 233, 0, 0, 87, 0, 87, 116, 0, - 0, 68, 0, 0, 115, 0, 0, 85, 0, 235, - 0, 85, 0, 0, 0, 0, 116, 85, 0, 68, - 0, 118, 0, -317, 0, 298, 0, 116, 75, 217, - 68, 0, 0, 0, 379, 0, 0, 0, 0, 0, - 70, 116, 0, 87, 68, 0, 0, 87, 0, 0, - 85, 382, 87, 87, 0, 0, 0, 0, 85, 0, - 0, 87, 87, 301, 0, 0, 218, 0, 0, 0, - 85, 0, 723, 115, 221, 70, 0, 0, 0, 0, - 115, 0, 87, 0, 0, 0, 87, 0, -318, -318, - 118, 0, 87, 70, 0, 0, 116, 118, 116, 68, - 0, 68, 0, 0, 70, 77, 0, 0, -318, -318, - -318, -318, 0, -318, -318, 0, 77, 0, 70, 0, - 0, 0, 0, 0, 0, 87, 0, 0, 0, 0, - 0, 0, 79, 87, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 79, 116, 87, 0, 68, 116, 0, - 0, 68, 0, 116, 116, 0, 68, 68, 0, 0, - 73, 0, 116, 116, 0, 68, 68, 0, 0, 0, - 0, 0, 0, 70, 0, 70, 0, 77, 0, -318, - 0, 298, 0, 116, 0, 0, 68, 116, 0, 0, - 68, 0, 0, 116, 0, 73, 68, 75, 0, 0, - 0, 0, 0, 0, 79, 0, 0, 0, 0, 0, - 0, 0, 0, 73, 0, 219, 0, 0, 0, 233, - 0, 70, 0, 0, 73, 70, 116, 0, 0, 68, - 70, 70, 75, 0, 116, 0, 235, 68, 73, 70, - 70, 0, 220, 0, 0, 0, 116, 0, 0, 68, - 75, 65, 0, 0, 0, 0, 81, 0, 0, 0, - 70, 75, 0, 0, 70, 2, 0, 81, 0, 0, - 70, 150, 151, 0, 0, 75, 0, 213, 0, 66, - 0, 0, 152, 153, 154, 0, 155, 0, 0, 329, - 157, 0, 0, 73, 0, 73, 0, 0, 213, 0, - 0, 0, 158, 70, 159, 214, 0, 27, 28, 0, - 65, 70, 30, 161, -324, -324, 330, 0, 0, 0, - 0, 162, 0, 70, 0, 0, 214, 0, 81, 0, - 75, 0, 75, 0, -324, -324, -324, -324, 66, -324, - -324, 73, 0, 41, 0, 73, 77, 0, 0, 0, - 73, 73, 0, 0, 163, 0, 0, 0, 48, 73, - 73, 0, 0, 0, 0, 0, 221, 0, 0, 0, - 0, 0, 0, 79, 0, 0, 0, 0, 75, 65, - 73, 77, 75, 249, 73, 0, 65, 75, 75, 0, - 73, 0, 0, 0, 385, 0, 75, 75, 0, 77, - 0, 115, 0, 0, 0, -324, 0, 66, 79, 0, - 77, 0, 115, 0, 66, 0, 0, 75, 118, -326, - -326, 75, 0, 73, 77, 0, 79, 75, 0, 118, - 0, 73, 409, 410, 0, 0, 0, 79, 0, -326, - -326, -326, -326, 73, -326, -326, 0, 0, 0, 409, - 410, 79, 411, 412, 413, 414, 0, 415, 416, 0, - 75, 0, 0, 0, 0, 0, 0, 83, 75, 411, - 412, 413, 414, 115, 415, 416, 0, 0, 0, 77, - 75, 77, 0, 0, 0, 0, 0, 0, 0, 0, - 118, 0, 0, 222, 0, 0, 0, 81, 0, 0, - 0, 0, 0, 417, 0, 0, 79, 0, 79, 0, - -326, 233, 298, 0, 222, 0, 0, 0, 0, 0, - 0, 0, 0, 418, 0, 213, 83, 77, 235, 0, - 0, 77, 81, 0, 387, 0, 77, 77, 0, 0, - 418, 91, 0, 0, 0, 77, 77, 0, 0, 0, - 81, 0, 0, 214, 79, 0, 0, 0, 79, -327, - -327, 81, 0, 79, 79, 390, 77, 225, 0, 0, - 77, 0, 79, 79, 0, 81, 77, 0, 0, -327, - -327, -327, -327, 0, -327, -327, 0, 0, 259, 0, - -331, -331, 391, 79, 0, 83, 0, 79, 0, 0, - 91, 0, 83, 79, 0, 0, 0, 0, 0, 77, - -331, -331, -331, -331, 0, -331, -331, 77, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 77, - 81, 0, 81, 0, 0, 0, 79, 0, 0, 0, - 0, 0, 115, 0, 79, 0, 92, 0, 0, 0, - -327, 0, 298, 0, 0, 0, 79, 0, 0, 118, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, - 0, 0, 226, 491, 492, 493, 91, 115, 81, 0, - 0, -331, 81, 347, 0, 0, 0, 81, 81, 0, - 0, 494, 495, 226, 118, 115, 81, 81, 0, 0, - 496, 0, 0, 0, 0, 92, 115, 65, -329, -329, - 348, 0, 118, 0, 0, 0, 0, 81, 65, 0, - 115, 81, 0, 118, 0, 0, 0, 81, -329, -329, - -329, -329, 0, -329, -329, 66, 0, 118, 0, -133, - 0, 222, 0, 0, 0, 0, 66, 497, 498, 499, - 500, 501, 502, 503, 504, 505, 0, 93, 0, 0, - 81, 0, 0, 0, -133, -133, -133, 0, 81, 0, - 0, 0, 0, 0, 92, 115, 0, 115, 0, 65, - 81, 92, 0, 227, -133, -133, -133, -133, 0, -133, - -133, 0, 118, 0, 118, 349, 0, 0, 0, -329, - 0, 298, 0, 0, 260, 0, 0, 66, 0, 0, - 0, 0, 0, 0, 0, 575, 93, 213, 0, 0, - 0, 0, 0, 115, 0, 0, 0, 115, 0, 0, - 0, 0, 115, 115, 96, -133, 0, 0, 0, 0, - 118, 115, 115, 0, 118, 214, 0, 0, 0, 118, - 118, -133, 0, 0, 0, -133, 0, -133, 118, 118, - 228, -131, 115, 0, 0, 0, 115, 0, 0, 0, - 0, 0, 115, 0, 0, 0, 0, 0, 0, 118, - 0, 228, 0, 118, 0, 93, -131, -131, -131, 118, - 0, 0, 93, 96, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 115, -131, -131, -131, -131, - 0, -131, -131, 115, 0, 0, 0, 0, 0, 0, - 226, 0, 118, 83, 0, 115, 0, 0, 0, 0, - 118, 0, 0, 0, 83, 0, 0, 0, 0, 0, - 0, 312, 118, 104, 0, 0, 0, 0, 65, 0, - 0, 0, 0, 0, 0, 0, 0, -131, 0, 98, - 0, 0, 96, 0, 0, 0, -319, -319, 313, 96, - 0, 0, 0, -131, 0, 0, 66, -131, 0, -131, - 0, 0, 0, 65, 0, 229, -319, -319, -319, -319, - 0, -319, -319, 0, 0, 83, 317, 91, 0, 0, - 0, 65, 104, 0, 0, 0, 261, 0, 91, 0, - 0, 66, 65, 0, 0, 0, 0, 0, 98, 0, - 0, -321, -321, 318, 0, 0, 65, 0, 0, 66, - 0, 576, 0, 222, 0, 0, 0, 0, 0, 0, - 66, -321, -321, -321, -321, 0, -321, -321, 0, 0, - 0, 0, 0, 0, 66, 0, 0, -319, 0, 298, - 0, 0, 0, 101, 0, 0, 0, 0, 0, 91, - 325, 104, 0, 0, 0, 0, 0, 0, 104, 0, - 0, 65, 0, 65, 0, 0, 0, 98, 0, 230, - 0, 0, 0, 0, 98, -323, -323, 326, 0, 0, - 0, 0, 92, 0, 0, 332, 0, 259, 228, 66, - 230, 66, -321, 92, 298, -323, -323, -323, -323, 0, - -323, -323, 101, 0, 0, 0, 0, 0, 0, 65, - -325, -325, 333, 65, 0, 0, 0, 0, 65, 65, - 0, 0, 0, 0, 0, 0, 0, 65, 65, 0, - -325, -325, -325, -325, 0, -325, -325, 66, 0, 0, - 0, 66, 0, 0, 83, 0, 66, 66, 65, 0, - 0, 0, 65, 0, 92, 66, 66, 0, 65, 0, - 0, 0, 103, 0, 0, 0, -323, 0, 298, 0, - 0, 101, 0, 0, 0, 0, 66, 0, 101, 83, - 66, 0, 0, 0, 105, 0, 66, 0, 232, 0, - 425, 65, 226, 93, 0, 0, 0, 83, 0, 65, - 0, -325, 0, 298, 93, 0, 0, 0, 83, 232, - 0, 65, 0, 578, 0, -320, -320, 426, 91, 66, - 0, 103, 83, 0, 0, 0, 0, 66, 0, 0, - 0, 0, 0, 0, 0, -320, -320, -320, -320, 66, - -320, -320, 0, 105, 535, 536, 537, 538, 539, 540, - 541, 542, 543, 91, 0, 0, 0, 544, 545, 546, - 547, 548, 549, 550, 551, 93, 0, 0, 0, 0, - 96, 91, 0, 0, 0, 0, 0, 83, 0, 83, - 0, 96, 91, 0, 0, 0, 0, 0, 0, 0, - 103, 0, 0, 0, 0, 0, 91, 103, 648, 0, - 0, 0, 0, 260, 0, 0, -320, 0, 298, 0, - 0, 0, 105, 0, 0, 0, 0, 230, 0, 105, - 0, 0, 0, 92, 106, 83, 0, 0, 0, 83, - 0, 0, 0, 0, 83, 83, 0, 0, 0, 0, - 0, 0, 96, 83, 83, 0, 434, 0, 0, 0, - 0, 91, 0, 91, 0, 0, 0, 0, 92, 0, - 0, 0, 0, 0, 83, 0, 0, 0, 83, 0, - 0, -334, -334, 435, 83, 0, 92, 0, 0, 104, - 228, 0, 0, 106, 0, 0, 0, 92, 0, 0, - 104, -334, -334, -334, -334, 98, -334, -334, 0, 91, - 0, 92, 0, 91, 0, 0, 98, 83, 91, 91, - 0, 0, 0, 0, 0, 83, 0, 91, 91, 0, - 0, 0, 0, 114, 0, 0, 0, 83, 0, 0, - 0, 0, 0, 0, 93, 0, 232, 0, 91, 0, - 0, 0, 91, 0, 0, 0, 0, 0, 91, 489, - 490, 104, 106, 491, 492, 493, 92, 0, 92, 106, - 0, 0, -334, 0, 298, 0, 0, 98, 0, 93, - 0, 494, 495, 0, 0, 0, 0, 0, 0, 0, - 496, 91, 114, 0, 0, 0, 0, 93, 0, 91, - 0, 0, 0, 0, 0, 0, 0, 0, 93, 101, - 0, 91, 0, 0, 92, 261, 0, 0, 92, 0, - 101, 96, 93, 92, 92, 0, 0, 0, 0, 0, - 0, 0, 92, 92, 0, 0, 0, 497, 498, 499, - 500, 501, 502, 503, 504, 505, 0, 0, 0, 0, - 0, 0, 655, 92, 0, 0, 96, 92, 0, 0, - 0, 114, 0, 92, 0, 0, 0, 0, 114, 0, - 0, 0, 0, 0, 96, 0, 0, 93, 0, 93, - 0, 101, 0, 0, 2, 96, 0, 0, 0, 0, - 150, 151, 0, 0, 0, 0, 92, 0, 0, 96, - 0, 152, 153, 154, 92, 155, 0, 0, 0, 157, - 0, 0, 0, 0, 0, 0, 92, 0, 0, 230, - 0, 158, 0, 159, 0, 93, 27, 28, 103, 93, - 104, 30, 161, 0, 93, 93, 0, 0, 0, 103, - 162, 0, 0, 93, 93, 0, 98, 0, 0, 0, - 105, 0, 0, 0, 96, 0, 96, 0, 0, 0, - 0, 105, 41, 0, 93, 104, 0, 0, 93, 0, - 0, 0, 0, 163, 93, 0, 0, 48, 0, 0, - 0, 98, 0, 104, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 104, 0, 0, 53, 54, 98, - 103, 0, 96, 0, 0, 0, 96, 93, 104, 0, - 98, 96, 96, 0, 0, 93, 0, 0, 0, 0, - 96, 96, 105, 0, 98, 0, 0, 93, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 232, 0, - 0, 96, 0, 0, 0, 96, 0, 0, 0, 0, - 101, 96, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 104, 0, 104, 0, 0, 0, 0, - 2, 0, 0, 0, 0, 0, 150, 151, 0, 98, - 0, 98, 0, 0, 96, 101, 0, 152, 153, 154, - 106, 155, 96, 0, 0, 157, 0, 0, 0, 0, - 0, 106, 0, 101, 96, 0, 0, 158, 0, 159, - 0, 104, 27, 28, 101, 104, 0, 30, 161, 0, - 104, 104, 0, 0, 0, 0, 162, 98, 101, 104, - 104, 98, 0, 0, 0, 0, 98, 98, 0, 0, - 0, 0, 0, 0, 0, 98, 98, 0, 787, 0, - 104, 0, 0, 0, 104, 0, 0, 0, 0, 163, - 104, 0, 106, 48, 0, 0, 98, 0, 0, 103, - 98, 0, 0, 0, 0, 0, 98, 0, 0, 0, - 0, 0, 788, 101, 0, 101, 0, 0, 0, 114, - 0, 105, 0, 104, 0, 0, 0, 0, 0, 0, - 114, 104, 0, 0, 103, 0, 0, 0, 0, 98, - 0, 0, 0, 104, 0, 0, 0, 98, 0, 0, - 0, 0, 103, 0, 0, 0, 105, 0, 0, 98, - 0, 101, 0, 103, 0, 101, 0, 0, 0, 2, - 101, 101, 0, 0, 105, 150, 151, 103, 0, 101, - 101, 0, 0, 0, 0, 105, 152, 153, 154, 0, - 155, 114, 0, 0, 157, 0, 0, 0, 0, 105, - 101, 0, 0, 0, 101, 0, 158, 0, 159, 0, - 101, 27, 28, 0, 0, 0, 30, 161, 0, 0, - 0, 0, 0, 0, 0, 162, 0, 0, 0, 0, - 0, 0, 103, 0, 103, 0, 0, 0, 0, 0, - 0, 0, 0, 101, 0, 0, 0, 41, 0, 0, - 0, 101, 0, 0, 105, 0, 105, 0, 163, 0, - 0, 106, 48, 101, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 140, 141, 0, 0, 0, 0, - 103, 852, 0, 0, 103, 0, 0, 0, 0, 103, - 103, 0, 0, 0, 0, 0, 106, 0, 103, 103, - 0, 0, 105, 0, 0, 0, 105, 0, 0, 0, - 0, 105, 105, 0, 106, 0, 0, 0, 0, 103, - 105, 105, 0, 103, 0, 106, 0, 0, 0, 103, - 0, 0, 0, 292, 0, 0, 0, 0, 0, 106, - 0, 105, 0, 0, 0, 105, 0, 0, 0, 489, - 490, 105, 0, 491, 492, 493, 0, 0, 0, 0, - 114, 0, 103, 0, 0, 0, 0, 0, 0, 0, - 103, 494, 495, 0, 0, 0, 0, 0, 0, 0, - 496, 0, 103, 0, 105, 0, 0, 0, 0, 0, - 0, 0, 105, 0, 106, 114, 106, 0, 0, 0, - 0, 0, 0, 0, 105, 0, 0, 0, 0, 0, - 0, 0, 0, 114, 0, 0, 0, 0, 473, 0, - 0, 0, 0, 0, 114, 0, 0, 497, 498, 499, - 500, 501, 502, 503, 504, 505, 0, 0, 114, 0, - 53, 54, 106, 200, 202, 204, 106, 0, 0, 0, - 0, 106, 106, 0, 0, 212, 0, 0, 0, 0, - 106, 106, 0, 0, 0, 0, 0, 0, 0, 247, - 0, 248, 250, 0, 0, 510, 256, 512, 0, 0, - 0, 106, 0, 517, 0, 106, 282, 0, 0, 0, - 0, 106, 0, 114, 0, 114, 303, 0, 303, 0, - 303, 303, 0, 303, 0, 303, 0, 303, 0, 303, - 0, 303, 0, 303, 528, 303, 0, 303, 356, 303, - 0, 0, 534, 303, 106, 556, 303, 0, 0, 303, - 0, 303, 106, 0, 0, 0, 0, 0, 0, 0, - 568, 114, 0, 0, 106, 114, 303, 0, 303, 2, - 114, 114, 0, 0, 0, 150, 151, 0, 0, 114, - 114, 584, 0, 0, 0, 0, 152, 153, 154, 0, - 155, 0, 0, 0, 157, 0, 474, 474, 0, 0, - 114, 0, 0, 0, 114, 0, 158, 0, 159, 0, - 114, 27, 28, 0, 0, 482, 30, 161, 0, 0, - 0, 0, 0, 0, 0, 162, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 38, 39, 0, 0, 0, - 0, 0, 0, 114, 0, 0, 0, 41, 0, 0, - 0, 114, 0, 0, 0, 474, 0, 0, 163, 518, - 0, 0, 48, 114, 0, 0, 0, 0, 0, 0, + 85, 278, 737, 483, 476, 476, 719, 634, 720, 775, + 638, 641, 706, 721, 628, 631, 797, 520, 634, 308, + 745, 801, 312, -29, -29, 807, 223, 38, 39, 295, + 878, 309, 985, 317, 429, 243, 613, 398, 565, 698, + 882, 341, 883, 771, 592, 313, 309, 257, 456, 313, + 593, 297, 622, 145, 329, 467, 390, 283, 579, 85, + 318, 986, 580, 301, 399, 146, 318, 304, 340, 304, + 336, 304, 304, 52, 304, 87, 304, 771, 304, 385, + 304, 330, 304, 391, 304, 321, 304, 149, 304, 374, + 304, 322, 236, 325, 304, 341, -235, 304, 393, 326, + 304, 224, 304, 347, 649, 391, 483, 566, 246, 404, + 244, 577, 322, 333, 521, 296, 868, 304, 332, 304, + 326, 387, 258, 298, -334, 394, 298, 342, 85, 394, + 348, -330, 284, 298, 87, 85, 405, 298, 298, -96, + -96, 298, 305, 683, 305, 333, 305, 305, 687, 305, + 400, 305, 298, 305, 691, 305, 298, 305, 298, 305, + 719, 305, 720, 305, 376, 305, 428, 721, 267, 305, + 298, 116, 305, 909, 820, 305, 286, 305, -96, -96, + 143, 342, 298, 298, 796, 759, -235, 298, -235, 298, + 714, 298, 305, 429, 305, -333, 894, 234, 298, 340, + 753, 692, 211, 87, 298, 298, 513, 68, -96, -96, + 87, 242, 298, -96, -96, 434, 349, 298, 262, -96, + -96, 298, 298, 268, -330, -330, 341, 348, 298, 252, + 116, -96, -96, 215, 873, 341, 425, 298, 307, 513, + 298, 405, 435, 812, -330, -330, -330, -330, 634, -330, + -330, 719, 348, 720, 215, 339, 402, 346, 721, 353, + 380, 824, 343, 426, 350, 60, 68, -111, -111, 388, + 693, 426, 835, 395, 574, 963, -96, -96, 406, 399, + -311, 420, 421, 422, 423, 298, 924, 843, 433, 399, + 295, 424, 63, 430, 435, 436, 358, 429, 496, 116, + 123, 439, 977, 70, 582, 772, 116, 295, 583, 298, + 925, 773, 342, 349, 984, 471, -330, -331, 298, 298, + 418, 342, 297, 941, 288, -96, -96, 298, 468, 216, + 295, 73, 862, 298, 298, 68, 863, 330, 349, 53, + 54, 509, 68, 885, 298, 887, -555, -318, -318, 258, + 216, 290, 503, 504, 505, 298, 747, 217, 748, 291, + 941, 160, 70, 298, 749, 400, 531, -318, -318, -318, + -318, 298, -318, -318, 459, 400, 296, -311, 217, -337, + -162, 298, -162, -96, -96, 941, 298, 941, 532, 298, + 73, 918, 360, 296, 865, 922, 640, 462, 866, 941, + 927, 928, 283, 53, 54, 511, 75, 468, 555, 937, + 938, 845, 53, 54, 847, -555, 296, -328, 283, 298, + 363, 857, 701, 53, 54, 861, 409, 410, 764, 644, + 954, 70, 218, 570, 957, 571, 867, 557, 70, -318, + 958, 298, 53, 54, 652, 262, 411, 412, 413, 414, + 563, 415, 416, 218, -96, -96, 85, 459, 818, 73, + 819, 459, 295, 293, 294, 75, 73, 85, 558, -27, + -27, 53, 54, 974, 827, -132, 572, 284, 460, 461, + 462, 215, 637, 461, 462, 901, 903, 818, 904, 821, + 391, 409, 410, 284, 911, 365, 296, 496, 417, 295, + -132, -132, -132, 440, 441, 442, 443, 916, 818, 774, + 822, 411, 412, 413, 414, 309, 415, 416, 418, 313, + -132, -132, -132, -132, 685, -132, -132, 738, 85, 712, + 940, 87, 53, 54, 75, 829, 946, 2, 53, 54, + 688, 75, 87, 150, 151, -612, -612, -612, 296, 501, + 502, 503, 504, 505, 152, 153, 154, 818, 155, 823, + 442, 443, 157, 483, 318, 77, 257, 656, 657, 658, + 659, 660, -132, 322, 158, 967, 159, 216, 969, 27, + 28, 333, 971, 418, 30, 161, 632, 633, -132, 341, + 679, 219, -132, 162, -132, -614, -614, -614, 979, 440, + 629, 442, 443, 87, 715, 217, -615, -615, -615, 643, + 644, 964, 219, 965, 964, 41, 975, 348, 964, 79, + 983, 964, 426, 988, 77, -130, 163, 116, 296, 733, + 429, 48, 848, 849, 435, 716, 301, -22, 116, -24, + 746, 258, -436, 496, 777, 220, 808, 788, 810, 839, + -130, -130, -130, 815, 367, 817, 249, 841, 846, -109, + -109, -320, -320, 68, 858, -132, 220, 842, 859, 860, + -130, -130, -130, -130, 68, -130, -130, 864, 79, 329, + 218, -320, -320, -320, -320, 513, -320, -320, 870, 872, + -132, -132, -132, 77, 973, 908, 914, 85, 915, 116, + 77, 917, 920, 921, -326, -326, 330, 934, 369, 289, + -132, -132, -132, -132, 931, -132, -132, 778, 357, 359, + 361, 362, -130, 364, -326, -326, -326, -326, 366, -326, + -326, 368, 85, 370, 723, 68, 372, 262, -130, 523, + 373, 375, -130, 377, -130, 477, 381, 79, 383, 779, + 85, 684, 527, -320, 79, 298, 526, 976, 907, 70, + 802, 85, -132, 879, -134, 630, 639, 987, 730, 869, + 70, 765, 87, 215, 766, 700, 85, 0, -132, 0, + 0, 0, -132, 0, -132, 0, 535, 73, 0, -134, + -134, -134, 0, 0, 0, 0, -326, -131, 73, 544, + 545, 546, 547, 548, 549, 550, 551, 87, 0, -134, + -134, -134, -134, 0, -134, -134, 0, 0, 0, 0, + 0, 0, -131, -131, -131, 87, 0, 0, 0, 0, + 0, 70, 85, 0, 85, 0, 87, 0, 0, 219, + 0, 0, -131, -131, -131, -131, 0, -131, -131, 0, + 0, 87, 0, 81, 0, 0, 0, 0, 0, 73, + 0, -134, 75, 0, 0, 0, 0, 0, 116, 216, + 0, 0, 0, 75, 0, 0, 0, -134, 0, 221, + 85, -134, 0, -134, 85, 0, 0, 0, 723, 85, + 85, 0, 0, 220, -131, 0, 0, 217, 85, 85, + 221, 0, 0, 116, 68, 0, 0, 87, 0, 87, + -131, 0, 81, 0, -131, 0, -131, 0, 0, 85, + 0, 116, 0, 85, 0, 0, 0, 0, 0, 85, + 0, 0, 116, 0, 75, 0, 0, 0, 0, 68, + 0, 0, 371, 0, 0, 0, 0, 116, 0, 115, + 0, 0, 0, 0, 0, 87, 0, 68, 0, 87, + 0, 0, 85, 0, 87, 87, 0, 0, 68, 0, + 85, 0, 218, 87, 87, 233, 0, 0, 0, 723, + 0, 81, 85, 68, 0, 0, 0, 0, 81, 0, + 0, 0, 0, 0, 87, 0, 233, 0, 87, 0, + 70, 0, 0, 116, 87, 116, 0, 0, 115, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 52, 0, 0, 0, 0, 267, 524, 518, 474, 0, - 2, 0, 4, 5, 0, 6, 150, 151, 9, 0, - 0, 0, 0, 560, 11, 12, 13, 152, 153, 154, - 0, 155, 0, 0, 0, 157, 0, 0, 569, 0, - 0, 0, 0, 573, 0, 0, 0, 158, 0, 159, - 0, 0, 27, 28, 626, 0, 160, 30, 161, 0, - 0, 0, 585, 586, 0, 0, 162, 0, 0, 0, - 0, 0, 0, 0, 36, 0, 38, 39, 0, 489, - 642, 0, 0, 491, 492, 493, 647, 0, 41, 653, - 0, 654, 0, 0, 0, 0, 0, 0, 0, 163, - 45, 494, 495, 48, 0, 0, 51, 0, 0, 0, - 496, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 678, 52, 680, 0, 0, 0, 55, 0, 56, 0, - 57, 0, 0, 689, 0, 0, 0, 0, 0, 694, - 695, 0, 0, 699, 0, 702, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 497, 498, 499, - 500, 501, 502, 503, 504, 505, 0, 0, 0, 0, - 0, 282, 713, 0, 0, 0, 0, 0, 0, 0, - 0, 731, 0, 0, 0, 0, 0, 282, 0, 0, - -3, 1, 0, -26, -26, 2, 3, 4, 5, 0, - 6, 7, 8, 9, 10, 0, 0, 0, 0, 11, - 12, 13, 14, 15, 16, 17, 18, 0, 0, 0, - 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, - 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, - 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, - 757, 32, 33, 34, 0, 0, 0, 35, 0, 36, - 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 40, 41, 42, 43, 0, 0, 681, 336, - 682, 0, 0, 0, 44, 45, 46, 47, 48, 49, - 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, - 779, 0, 704, 0, -330, -330, 52, 708, 53, 54, - 784, 55, 0, 56, 0, 57, 709, 0, 0, 796, - 0, 0, 0, 0, -330, -330, -330, -330, 0, -330, - -330, 0, 718, 0, 0, 256, 0, 0, 0, 0, - 0, 0, 0, -300, -300, -300, -300, -300, -300, -300, - -300, -300, 0, 812, 0, 814, -300, -300, -300, -300, - -300, -300, -300, -300, 0, 823, 2, 0, 826, 828, - 829, 0, 150, 151, 832, 0, 0, 835, 0, 0, - 0, 0, 0, 152, 153, 154, 0, 155, 0, 0, - 0, 157, 0, 0, 0, -330, 187, 298, 0, 0, - 851, 754, 755, 158, 0, 159, 207, 208, 27, 28, - 0, 0, 0, 30, 161, 0, 0, 0, 0, 0, - 0, 474, 162, 0, 0, 0, 0, 0, 0, 489, - 490, 0, 0, 491, 492, 493, 266, 0, 879, 0, - 0, 270, 279, 0, 787, 884, 0, 0, 887, 0, - 0, 494, 495, 0, 474, 163, 0, 780, 0, 48, - 496, 782, 783, 896, 897, 0, 0, 0, 0, 0, - 0, 0, 789, 0, 704, 908, 0, 0, 903, 797, - 789, 0, 0, 0, 0, 804, 718, 0, 0, 0, - 0, 0, 0, 0, 0, 807, 0, 0, 0, 0, - 0, 0, 0, 927, 0, 581, 0, 497, 498, 499, - 500, 501, 502, 503, 504, 505, 942, 466, 0, 0, - 0, 0, 0, 0, 0, 947, 948, 0, 472, 951, - 0, 0, 953, 954, 0, 478, 0, 0, 0, 0, - 0, 0, 479, 0, 0, 0, 0, 0, 960, 0, - 480, 481, 0, 0, 0, 0, 853, 854, 0, 0, + 0, 77, 0, 0, 118, 0, 0, 0, 73, 0, + 0, 0, 77, 0, 0, 70, 0, 87, 379, 68, + 0, 68, 0, 0, 0, 87, 0, 0, 0, 0, + 235, 116, 0, 70, 0, 116, 0, 87, 0, 0, + 116, 116, 0, 73, 70, 0, 0, 0, 0, 116, + 116, 235, 0, 0, 0, 79, 0, 115, 0, 70, + 0, 73, 0, 118, 115, 0, 79, 68, 0, 0, + 116, 68, 73, 77, 116, 0, 68, 68, 0, 0, + 116, 0, 0, 75, 0, 68, 68, 73, 0, 0, + 0, 0, 0, 382, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 385, 68, 221, 0, 0, + 68, 219, 0, 116, 0, 70, 68, 70, 75, 0, + 0, 116, 0, 0, 0, 0, 0, 79, 65, 0, + -328, -328, 118, 116, 0, 0, 75, 0, 0, 118, + 0, 0, 0, 73, 0, 73, 0, 75, 0, 68, + -328, -328, -328, -328, 213, -328, -328, 68, 0, 0, + 0, 0, 75, 70, 66, 220, 0, 70, 0, 68, + 0, 0, 70, 70, 0, 213, 0, 0, 0, 0, + 0, 70, 70, 0, 0, 0, 0, 65, 0, 0, + 214, 73, 0, 0, 0, 73, 0, 0, 0, 0, + 73, 73, 70, 233, 0, 0, 70, 0, 0, 73, + 73, 214, 70, 0, 0, 0, 0, 0, 75, 0, + 75, 0, -328, 66, 298, 0, 0, 0, 0, 0, + 73, 0, 0, 0, 73, 0, 0, 0, 0, 0, + 73, 0, 77, 0, 0, 70, 0, 0, 0, 0, + 0, 0, 0, 70, 0, 0, 65, 0, 0, 0, + 83, 0, 0, 65, 0, 70, 75, 0, 0, 0, + 75, 0, 0, 73, 0, 75, 75, 77, 235, 0, + 0, 73, 0, 0, 75, 75, 222, 0, 91, 81, + 0, 347, 66, 73, 0, 77, 79, 0, 0, 66, + 81, 0, 0, 0, 0, 75, 77, 222, 0, 75, + 0, 0, 0, 0, 225, 75, -331, -331, 348, 83, + 0, 77, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 79, 0, 0, 0, 259, -331, -331, -331, -331, + 0, -331, -331, 0, 0, 0, 0, 91, 75, 79, + 0, 0, 0, 0, 0, 0, 75, 0, 0, 0, + 79, 81, 0, 0, 0, 0, 0, 308, 75, 0, + 0, 491, 492, 493, 0, 79, 0, 77, 0, 77, + 0, 0, 0, 0, 0, 115, 0, 0, 83, 494, + 495, 0, -319, -319, 309, 83, 115, 0, 496, 221, + 0, 0, 213, 0, 349, 0, 0, 0, -331, 0, + 298, 0, -319, -319, -319, -319, 91, -319, -319, 0, + 0, 0, 0, 91, 0, 77, 0, 0, 0, 77, + 0, 79, 0, 79, 77, 77, 0, 0, 214, 0, + 0, 0, 0, 77, 77, 0, 497, 498, 499, 500, + 501, 502, 503, 504, 505, -135, 0, 115, 0, 0, + 118, 0, 0, 0, 77, 92, 0, 0, 77, 0, + 0, 118, 0, 0, 77, 0, 0, 0, 0, 79, + -135, -135, -135, 79, -319, 0, 298, 0, 79, 79, + 0, 226, 0, 0, -133, 233, 0, 79, 79, 0, + -135, -135, -135, -135, 0, -135, -135, 77, 0, 0, + 0, 0, 226, 0, 0, 77, 0, 0, 79, -133, + -133, -133, 79, 0, 92, 0, 0, 77, 79, 0, + 81, 0, 118, 0, 222, 0, 0, 0, 0, -133, + -133, -133, -133, 0, -133, -133, 0, 0, 0, 0, + 0, 0, -135, 0, 0, 0, 0, 0, 0, 0, + 0, 79, 575, 0, 0, 81, 0, 0, -135, 79, + 235, 390, -135, 0, -135, 0, 93, 0, 0, 0, + 0, 79, 0, 81, 65, 0, 0, 0, 0, 0, + 0, -133, 0, 92, 81, 65, -333, -333, 391, 0, + 92, 0, 227, 0, 0, 0, 0, -133, 0, 81, + 0, -133, 0, -133, 0, 0, -333, -333, -333, -333, + 66, -333, -333, 260, 312, 0, 115, 0, 0, 0, + 0, 66, 0, 0, 0, 93, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, -321, + -321, 313, 0, 0, 0, 0, 65, 0, 0, 0, + 0, 115, 0, 0, 0, 81, 0, 81, 0, -321, + -321, -321, -321, 0, -321, -321, 0, 0, 0, 115, + 0, 0, 0, 0, 0, 0, 0, 0, -333, 0, + 115, 0, 66, 0, 213, 0, 0, 0, 0, 0, + 0, 118, 0, 0, 93, 115, 0, 0, 0, 104, + 0, 93, 0, 81, 0, 0, 83, 81, 0, 0, + 0, 0, 81, 81, 0, 0, 0, 83, 0, 0, + 214, 81, 81, 0, 0, 0, 118, 0, 0, 226, + 0, -321, 0, 298, 91, 0, 317, 0, 0, 0, + 0, 0, 81, 0, 118, 91, 81, 0, 0, 0, + 0, 115, 81, 115, 0, 118, 0, 0, 104, 0, + 0, -323, -323, 318, 0, 0, 0, 0, 0, 0, + 118, 0, 0, 0, 96, 0, 0, 0, 83, 0, + 0, -323, -323, -323, -323, 81, -323, -323, 0, 0, + 0, 0, 0, 81, 0, 0, 0, 0, 0, 115, + 228, 0, 0, 115, 0, 81, 91, 0, 115, 115, + 0, 0, 0, 0, 0, 65, 222, 115, 115, 0, + 0, 228, 0, 0, 0, 0, 118, 104, 118, 0, + 0, 0, 0, 96, 104, 0, 0, 0, 115, 0, + 576, 0, 115, 0, 259, 0, 0, 0, 115, 0, + 65, 66, 0, -323, 0, 298, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, + 0, 0, 0, 0, 118, 0, 0, 0, 118, 65, + 0, 115, 0, 118, 118, 0, 66, 0, 0, 115, + 0, 0, 118, 118, 65, 387, 0, 0, 0, 0, + 0, 115, 96, 0, 66, 0, 0, 0, 0, 96, + 0, 92, 0, 118, 0, 66, 0, 118, 0, 0, + -329, -329, 92, 118, 0, 0, 0, 0, 0, 0, + 66, 0, 0, 0, 98, 0, 0, 0, 0, 0, + -329, -329, -329, -329, 325, -329, -329, 83, 0, 0, + 65, 0, 65, 0, 0, 0, 118, 0, 0, 0, + 229, 0, 0, 0, 118, 0, 0, 0, 0, -325, + -325, 326, 0, 0, 0, 91, 118, 0, 0, 0, + 0, 261, 83, 92, 0, 0, 66, 0, 66, -325, + -325, -325, -325, 98, -325, -325, 0, 0, 65, 0, + 83, 0, 65, 0, 0, 0, 0, 65, 65, 0, + 91, 83, -329, 0, 298, 0, 65, 65, 0, 0, + 0, 226, 93, 0, 0, 0, 83, 0, 91, 0, + 0, 0, 0, 93, 66, 0, 0, 65, 66, 91, + 0, 65, 0, 66, 66, 0, 101, 65, 228, 0, + 0, 0, 66, 66, 91, 0, 0, 0, 0, 0, + 0, -325, 98, 298, 0, 0, 0, 0, 0, 98, + 0, 0, 230, 66, 0, 0, 0, 66, 0, 0, + 65, 0, 83, 66, 83, 0, 0, 0, 65, 0, + 0, 0, 0, 230, 93, 0, 332, 0, 0, 0, + 65, 0, 0, 0, 0, 101, 0, 0, 0, 0, + 91, 0, 91, 0, 0, 0, 66, 0, 0, 0, + 0, -327, -327, 333, 66, 0, 0, 0, 0, 0, + 83, 0, 260, 0, 83, 0, 66, 0, 425, 83, + 83, -327, -327, -327, -327, 434, -327, -327, 83, 83, + 0, 0, 92, 0, 0, 104, 0, 0, 91, 0, + 0, 0, 91, -322, -322, 426, 104, 91, 91, 83, + -336, -336, 435, 83, 101, 0, 91, 91, 0, 83, + 0, 101, 0, -322, -322, -322, -322, 92, -322, -322, + -336, -336, -336, -336, 0, -336, -336, 91, 0, 0, + 0, 91, 0, 0, 0, 92, 0, 91, 578, 0, + 0, 0, 83, -327, 0, 298, 92, 0, 0, 0, + 83, 0, 0, 103, 0, 0, 0, 104, 0, 0, + 96, 92, 83, 0, 0, 0, 0, 0, 0, 0, + 91, 96, 0, 0, 0, 105, 0, 0, 91, 232, + 0, 0, 0, 0, 0, -322, 0, 298, 0, 0, + 91, 0, -336, 93, 298, 0, 0, 0, 0, 0, + 232, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 103, 0, 0, 0, 0, 92, 0, 92, + 0, 0, 0, 0, 0, 0, 0, 0, 93, 0, + 0, 0, 96, 0, 105, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 93, 0, 0, 0, + 230, 0, 0, 0, 0, 0, 0, 93, 0, 0, + 0, 0, 0, 0, 0, 92, 0, 0, 0, 92, + 228, 0, 93, 0, 92, 92, 0, 0, 106, 0, + 0, 103, 0, 92, 92, 0, 0, 0, 103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 970, 0, 0, 718, 0, 0, 0, 0, - 0, 0, 875, 0, 875, 535, 536, 537, 538, 539, - 540, 541, 542, 543, 875, 0, 875, 0, 544, 545, - 546, 547, 548, 549, 550, 551, 0, 0, 0, 0, - 0, 0, 0, 2, 0, 0, 894, 0, 0, 150, - 151, 898, 0, 0, 0, 0, 904, 529, 0, 797, - 152, 153, 154, 900, 155, 0, 0, 0, 157, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 158, 567, 159, 270, 0, 27, 28, 0, 489, 490, - 30, 161, 491, 492, 493, 0, 0, 0, 0, 162, - 0, 0, 943, 0, 0, 946, 0, 0, 0, 0, - 494, 495, 950, 588, 590, 0, 0, 594, 0, 496, - 0, 41, 0, 0, 595, 0, 0, 0, 596, 0, - 0, 0, 163, 597, 0, 0, 48, 598, 0, 0, - 0, 599, 0, 0, 966, 600, 0, 0, 601, 0, - 0, 0, 602, 0, 0, 945, 603, 0, 0, 0, - 0, 0, 0, 605, 811, 0, 497, 498, 499, 500, + 0, 0, 0, 105, 92, 0, 0, 0, 92, 0, + 105, 0, 0, 0, 92, 2, 0, 0, 0, 0, + 98, 150, 151, 0, 0, 0, 104, 0, 93, 0, + 93, 98, 152, 153, 154, 0, 155, 106, 0, 0, + 157, 0, 0, 0, 0, 0, 0, 92, 0, 0, + 0, 0, 158, 114, 159, 92, 0, 27, 28, 0, + 0, 104, 30, 161, 0, 0, 0, 92, 0, 0, + 0, 162, 0, 0, 0, 0, 93, 0, 0, 104, + 93, 0, 0, 0, 0, 93, 93, 0, 0, 0, + 104, 0, 98, 789, 93, 93, 0, 0, 0, 0, + 0, 96, 0, 0, 163, 104, 106, 0, 0, 48, + 0, 0, 114, 106, 0, 93, 0, 0, 0, 93, + 0, 0, 0, 0, 0, 93, 0, 232, 790, 0, + 261, 0, 101, 0, 0, 0, 96, 0, 0, 0, + 0, 0, 0, 101, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 96, 0, 0, 0, 93, 0, + 0, 104, 0, 104, 0, 96, 93, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 93, 0, + 96, 114, 0, 0, 0, 0, 0, 0, 114, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 398, + 0, 0, 0, 0, 101, 0, 0, 0, 0, 104, + 0, 0, 0, 104, 0, 0, 0, 0, 104, 104, + 0, 0, 0, 0, -337, -337, 399, 104, 104, 0, + 0, 0, 0, 0, 0, 0, 96, 0, 96, 0, + 0, 0, 230, 0, -337, -337, -337, -337, 104, -337, + -337, 0, 104, 0, 0, 0, 0, 0, 104, 0, + 0, 98, 0, -286, -286, -286, -286, -286, -286, -286, + -286, -286, 0, 0, 0, 0, -286, -286, -286, -286, + -286, -286, -286, -286, 96, 0, 0, 0, 96, 0, + 0, 104, 0, 96, 96, 0, 98, 0, 0, 104, + 0, 0, 96, 96, 0, 0, 0, 0, 0, 103, + 0, 104, 400, 0, 98, 0, -337, 0, 298, 0, + 103, 0, 0, 96, 0, 98, 0, 96, 2, 0, + 0, 105, 0, 96, 150, 151, 0, 0, 0, 0, + 98, 0, 105, 0, 0, 152, 153, 154, 0, 155, + 0, 0, 0, 157, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 158, 96, 159, 0, 0, + 27, 28, 0, 101, 96, 30, 161, 0, 0, 0, + 0, 103, 0, 0, 162, 0, 96, 489, 490, 0, + 0, 491, 492, 493, 0, 0, 98, 0, 98, 0, + 0, 0, 0, 105, 0, 0, 41, 0, 101, 494, + 495, 0, 0, 0, 0, 0, 0, 163, 496, 232, + 0, 0, 48, 0, 0, 0, 101, 0, 0, 0, + 0, 0, 0, 0, 106, 0, 0, 101, 0, 0, + 0, 0, 53, 54, 98, 106, 0, 0, 98, 0, + 0, 0, 101, 98, 98, 0, 0, 0, 0, 0, + 0, 0, 98, 98, 0, 0, 497, 498, 499, 500, 501, 502, 503, 504, 505, 0, 0, 0, 0, 0, - 0, 0, 987, 988, 0, 0, 0, 0, 489, 490, - 0, 0, 491, 492, 493, 0, 0, 0, 0, 0, - 0, 607, 0, 608, 0, 0, 609, 0, 0, 610, - 494, 495, 0, 428, 611, 0, 0, 0, 0, 496, - 614, 0, 0, 0, 0, 0, 0, 615, 616, 617, - 618, 619, 620, 621, 0, 0, 0, 0, -332, -332, - 429, 623, 0, 0, 624, 0, 0, 0, 0, 0, - 625, 0, 0, 0, 0, 0, 0, 0, -332, -332, - -332, -332, 0, -332, -332, 0, 497, 498, 499, 500, - 501, 502, 503, 504, 505, 0, 0, -302, -302, -302, - -302, -302, -302, -302, -302, -302, 0, 0, 0, 0, - -302, -302, -302, -302, -302, -302, -302, -302, 0, 0, - 0, 0, 0, 0, 0, 661, 662, 663, 664, 665, - 666, 667, 668, 669, 670, 671, 672, 673, 674, 675, - 676, 677, -615, -615, -615, 0, 0, 2, 0, -332, - 0, 298, 0, 150, 151, 0, 0, 0, 690, 0, - 0, 0, 0, 0, 152, 153, 154, 0, 155, 0, - 0, 0, 157, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 158, 0, 159, 0, 0, 27, - 28, 0, 0, 0, 30, 161, 0, 0, 0, 722, - 0, 727, 0, 162, 0, 0, 734, 0, 299, 302, - 0, 310, 0, 314, 0, 735, 319, 0, 323, 0, - 327, 0, 0, 0, 334, 41, 337, 0, 590, 0, - 351, 0, 0, 0, 386, 389, 163, 0, 0, 396, - 48, 401, 0, 0, 407, 0, 0, 0, 0, 0, - 0, 489, 490, 0, 0, 491, 492, 493, 427, 431, - 0, 437, 0, 751, 0, 0, 0, 0, 0, 0, - 0, 756, 930, 494, 495, 0, 0, 0, 0, 762, - 0, 0, 496, 0, 767, 535, 536, 537, 538, 539, - 540, 541, 542, 543, 0, 0, 0, 0, 544, 545, - 546, 547, 548, 549, 550, 551, 0, 0, 0, 0, - 299, 302, 310, 314, 319, 323, 327, 0, 334, 337, - 0, 351, 386, 389, 0, 396, 0, 401, 407, 497, - 498, 499, 500, 501, 502, 503, 504, 505, 0, 0, - 427, 431, 437, 0, 0, 0, 0, 0, 0, 0, - 0, 801, 0, 722, 0, 0, 299, 302, 310, 314, - 319, 323, 327, 0, 334, 337, 0, 351, 386, 389, - 0, 396, 401, 407, 0, 0, 427, 431, 437, 0, - 0, 0, 590, 0, 398, 0, 0, 0, 824, 0, - 0, 0, 0, 0, 831, 0, 0, 0, 0, 0, - 836, 351, 386, 0, 401, 431, 0, 838, 0, -335, - -335, 399, 842, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -335, - -335, -335, -335, 0, -335, -335, 0, 0, 0, 0, - 0, 0, 722, 0, 727, 0, 0, 0, -284, -284, - -284, -284, -284, -284, -284, -284, -284, 0, 0, 0, - 0, -284, -284, -284, -284, -284, -284, -284, -284, 0, - 0, 0, 0, 0, 0, 891, 0, 0, 0, 0, - 893, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 400, 0, 0, 910, - -335, 0, 298, 0, 0, 0, 0, 0, -2, 287, - 327, -26, -26, 2, 3, 4, 5, 0, 6, 7, - 8, 9, 10, 0, 0, 0, 928, 11, 12, 13, - 14, 15, 16, 17, 18, 0, 0, 0, 19, 0, - 0, 0, 20, 21, 0, 22, 0, 0, 0, 0, - 23, 24, 25, 26, 0, 27, 28, 0, 0, 29, - 30, 31, 0, 0, 0, 0, 957, 0, 0, 32, - 33, 34, 0, 0, 0, 35, 0, 36, 37, 38, - 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 40, 41, 42, 43, 0, 0, 0, 0, 0, 0, - 0, 0, 44, 45, 46, 47, 48, 49, 50, 51, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 52, 0, 53, 54, 0, 55, - 0, 56, 447, 57, -106, -106, 2, 3, 4, 5, - 0, 6, 7, 448, 9, 10, -113, -113, -113, -113, - 11, 12, 13, 14, 15, 16, 449, 450, 0, 0, - 0, 19, 0, 0, 0, 20, 21, 0, 22, -113, - -113, -113, -113, 23, 24, 25, 26, -113, 27, 28, - 0, 0, 29, 30, 31, 0, 0, 0, 0, 0, - 0, 0, 32, 33, 34, -113, -113, -113, 35, 0, - 36, 37, 38, 39, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 40, 41, 42, 43, 0, 386, 0, - 0, 401, 0, 0, 0, 44, 45, 46, 47, 48, - 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, - 54, 0, 55, 0, 56, 447, 57, -106, -106, 2, - 3, 4, 5, 0, 6, 7, 448, 9, 10, 0, - 0, -523, 0, 11, 12, 13, 14, 15, 16, 449, - 450, 0, 0, 0, 19, 0, 0, 0, 20, 21, - 0, 22, -523, -523, -523, 0, 23, 24, 25, 26, - 0, 27, 28, 0, 0, 29, 30, 31, 0, 0, - 0, 0, 0, 0, 0, 32, 33, 34, 0, 0, - 0, 35, 0, 36, 37, 38, 39, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 40, 41, 42, 43, - 0, 0, 0, 0, 0, 0, 0, 0, 44, 45, - 46, 47, 48, 49, 50, 51, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 431, 0, 0, 0, - 52, 0, 53, 54, 0, 55, 0, 56, 447, 57, - -106, -106, 2, 3, 4, 5, 0, 6, 7, 448, - 9, 10, 0, 0, -524, 0, 11, 12, 13, 14, - 15, 16, 449, 450, 0, 0, 0, 19, 0, 0, - 0, 20, 21, 0, 22, -524, -524, -524, 0, 23, - 24, 25, 26, 0, 27, 28, 0, 0, 29, 30, - 31, 0, 0, 0, 0, 0, 0, 0, 32, 33, - 34, 0, 0, 0, 35, 0, 36, 37, 38, 39, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, - 41, 42, 43, 0, 0, 0, 0, 0, 0, 0, - 0, 44, 45, 46, 47, 48, 49, 50, 51, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 52, 0, 53, 54, 0, 55, 0, - 56, 447, 57, -106, -106, 2, 3, 4, 5, 0, - 6, 7, 448, 9, 10, 0, 0, -112, 0, 11, - 12, 13, 14, 15, 16, 449, 450, 0, 0, 0, - 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, - 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, - 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, - 0, 32, 33, 34, -112, -112, -112, 35, 0, 36, - 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, - 0, 0, 0, 0, 44, 45, 46, 47, 48, 49, - 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 52, 0, 53, 54, - 0, 55, 0, 56, 447, 57, -106, -106, 2, 3, - 4, 5, 0, 6, 7, 448, 9, 10, -112, -112, - -112, -112, 11, 12, 13, 14, 15, 16, 449, 450, - 0, 0, 0, 19, 0, 0, 0, 20, 21, 0, - 22, 0, 0, 0, 0, 23, 24, 25, 26, 0, - 27, 28, 0, 0, 29, 30, 31, 0, 0, 0, - 0, 0, 0, 0, 32, 33, 34, 0, 0, 0, - 35, 0, 36, 37, 38, 39, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 40, 41, 42, 43, 0, - 0, 0, 0, 0, 0, 0, 0, 44, 45, 46, - 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, - 0, 53, 54, 0, 55, 0, 56, 447, 57, -106, - -106, 2, 3, 4, 5, 0, 6, 7, 448, 9, - 10, 0, 0, -112, 0, 11, 12, 13, 14, 15, - 16, 449, 450, 0, 0, 0, 19, 0, 0, 0, - 20, 21, 0, 22, -112, -112, -112, 0, 23, 24, - 25, 26, 0, 27, 28, 0, 0, 29, 30, 31, - 0, 0, 0, 0, 0, 0, 0, 32, 33, 34, - 0, 0, 0, 35, 0, 36, 37, 38, 39, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 40, 41, - 42, 43, 0, 0, 0, 0, 0, 0, 0, 0, - 44, 45, 46, 47, 48, 49, 50, 51, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 52, 0, 53, 54, 0, 55, 0, 56, - 447, 57, -106, -106, 2, 3, 4, 5, 0, 6, - 7, 448, 9, 10, 0, 0, -574, 0, 11, 12, - 13, 14, 15, 16, 449, 450, 0, 0, 0, 19, - 0, 0, 0, 20, 21, 0, 22, -574, -574, 0, - 0, 23, 24, 25, 26, 0, 27, 28, 0, 0, - 29, 30, 31, 0, 0, 0, 0, 0, 0, 0, - 32, 33, 34, 0, 0, 0, 35, 0, 36, 37, - 38, 39, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 40, 41, 42, 43, 0, 0, 0, 0, 0, - 0, 0, 0, 44, 45, 46, 47, 48, 49, 50, - 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 52, 0, 53, 54, 0, - 55, 0, 56, 447, 57, -106, -106, 2, 3, 4, - 5, 0, 6, 7, 448, 9, 10, 0, 0, -575, - 0, 11, 12, 13, 14, 15, 16, 449, 450, 0, - 0, 0, 19, 0, 0, 0, 20, 21, 0, 22, - -575, -575, 0, 0, 23, 24, 25, 26, 0, 27, - 28, 0, 0, 29, 30, 31, 0, 0, 0, 0, - 0, 0, 0, 32, 33, 34, 0, 0, 0, 35, - 0, 36, 37, 38, 39, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 40, 41, 42, 43, 0, 0, - 0, 0, 0, 0, 0, 0, 44, 45, 46, 47, - 48, 49, 50, 51, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 52, 0, - 53, 54, 0, 55, 0, 56, 447, 57, -106, -106, - 2, 3, 4, 5, 0, 6, 7, 448, 9, 10, - 0, 0, -112, 0, 11, 12, 13, 14, 15, 16, - 449, 450, 0, 0, 0, 19, 0, 0, 0, 20, - 21, 0, 22, 0, -112, -112, 0, 23, 24, 25, - 26, 0, 27, 28, 0, 0, 29, 30, 31, 0, - 0, 0, 0, 0, 0, 0, 32, 33, 34, 0, - 0, 0, 35, 0, 36, 37, 38, 39, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 40, 41, 42, - 43, 0, 0, 0, 0, 0, 0, 0, 0, 44, - 45, 46, 47, 48, 49, 50, 51, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 52, 0, 53, 54, 0, 55, 0, 56, 447, - 57, -106, -106, 2, 3, 4, 5, 0, 6, 7, - 448, 9, 10, 0, 0, -112, 0, 11, 12, 13, - 14, 15, 16, 449, 450, 0, 0, 0, 19, 0, - 0, 0, 20, 21, 0, 22, -112, -112, 0, 0, - 23, 24, 25, 26, 0, 27, 28, 0, 0, 29, - 30, 31, 0, 0, 0, 0, 0, 0, 0, 32, - 33, 34, 0, 0, 0, 35, 0, 36, 37, 38, - 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 40, 41, 42, 43, 0, 0, 0, 0, 0, 0, - 0, 0, 44, 45, 46, 47, 48, 49, 50, 51, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 52, 0, 53, 54, 0, 55, - 0, 56, 447, 57, -106, -106, 2, 3, 4, 5, - 0, 6, 7, 448, 9, 10, 0, 0, -112, -112, - 11, 12, 13, 14, 15, 16, 449, 450, 0, 0, - 0, 19, 0, 0, 0, 20, 21, 0, 22, 0, - 0, 0, 0, 23, 24, 25, 26, 0, 27, 28, - 0, 0, 29, 30, 31, 0, 0, 0, 0, 0, - 0, 0, 32, 33, 34, 0, 0, 0, 35, 0, - 36, 37, 38, 39, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 40, 41, 42, 43, 0, 0, 0, - 0, 0, 0, 0, 0, 44, 45, 46, 47, 48, - 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, - 54, 0, 55, 0, 56, 447, 57, -106, -106, 2, - 3, 4, 5, 0, 6, 7, 448, 9, 10, 0, - 0, -112, 0, 11, 12, 13, 14, 15, 16, 449, - 450, 0, 0, 0, 19, 0, 0, 0, 20, 21, - 0, 22, 0, 0, 0, -112, 23, 24, 25, 26, - 0, 27, 28, 0, 0, 29, 30, 31, 0, 0, - 0, 0, 0, 0, 0, 32, 33, 34, 0, 0, - 0, 35, 0, 36, 37, 38, 39, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 40, 41, 42, 43, - 0, 0, 0, 0, 0, 0, 0, 0, 44, 45, - 46, 47, 48, 49, 50, 51, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 52, 0, 53, 54, 0, 55, 0, 56, 447, 57, - -106, -106, 2, 3, 4, 5, 0, 6, 7, 448, - 9, 10, 0, 0, -112, 0, 11, 12, 13, 14, - 15, 16, 449, 450, 0, 0, 0, 19, 0, 0, - 0, 20, 21, 0, 22, 0, 0, 0, 0, 23, - 24, 25, 26, 0, 27, 28, 0, 0, 29, 30, - 31, 0, 0, 0, 0, 0, 0, 0, 32, 33, - 34, 0, 0, -112, 35, 0, 36, 37, 38, 39, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, - 41, 42, 43, 0, 0, 0, 0, 0, 0, 0, - 0, 44, 45, 46, 47, 48, 49, 50, 51, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 52, 0, 53, 54, 0, 55, 0, - 56, 447, 57, -106, -106, 2, 3, 4, 5, 0, - 6, 7, 448, 9, 10, 0, 0, -112, 0, 11, - 12, 13, 14, 15, 16, 449, 450, 0, 0, 0, - 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, - 0, 0, 23, 24, 25, 26, -112, 27, 28, 0, - 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, - 0, 32, 33, 34, 0, 0, 0, 35, 0, 36, - 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, - 0, 0, 0, 0, 44, 45, 46, 47, 48, 49, - 50, 51, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 52, 0, 53, 54, - 0, 55, 0, 56, 447, 57, -106, -106, 2, 3, - 4, 5, 0, 6, 7, 448, 9, 10, 0, 0, - -112, 0, 11, 12, 13, 14, 15, 16, 449, 450, - 0, 0, 0, 19, 0, 0, 0, 20, 21, 0, - 22, 0, 0, 0, 0, 23, 24, 25, 26, 0, - 27, 28, 0, 0, 29, 30, 31, 0, 0, 0, - 0, 0, 0, 0, 32, 33, 34, 0, 0, 0, - 35, 0, 36, 37, 38, 39, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 40, 41, 42, 43, 0, - 0, 0, 0, 0, 0, 0, 0, 44, 45, 46, - 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, - 0, 53, 54, 0, 55, 0, 56, 2, 57, 4, - 5, 0, 6, 150, 151, 9, 0, 0, 0, 0, - 0, 11, 12, 13, 152, 153, 154, 0, 155, 0, - 0, 156, 157, 0, 0, 0, 20, 21, 0, 0, - 0, 0, 0, 0, 158, 0, 159, 0, 0, 27, - 28, 0, 0, 160, 30, 161, 0, 0, 0, 0, - 0, 0, 0, 162, 0, 0, 0, 0, 0, 0, - 0, 36, 0, 38, 39, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 41, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 163, 45, 0, 0, - 48, 0, 0, 51, 272, 273, 0, 0, 0, 0, - 0, 164, 165, 0, 0, 0, 0, 0, 52, 274, - 0, 0, 0, 55, 0, 56, 2, 57, 4, 5, + 0, 655, 0, 98, 0, 0, 0, 98, 0, 0, + 140, 141, 0, 98, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 106, 489, 101, 114, + 101, 491, 492, 493, 0, 0, 0, 0, 0, 0, + 114, 0, 0, 0, 0, 0, 98, 0, 0, 494, + 495, 0, 0, 0, 98, 0, 489, 490, 496, 0, + 491, 492, 493, 0, 0, 0, 98, 0, 0, 292, + 103, 0, 0, 0, 0, 0, 101, 0, 494, 495, + 101, 0, 0, 0, 0, 101, 101, 496, 0, 0, + 0, 0, 105, 0, 101, 101, 0, 0, 0, 0, + 0, 114, 0, 0, 0, 103, 497, 498, 499, 500, + 501, 502, 503, 504, 505, 101, 0, 0, 0, 101, + 0, 0, 0, 103, 0, 101, 0, 105, 0, 0, + 0, 0, 0, 581, 103, 497, 498, 499, 500, 501, + 502, 503, 504, 505, 2, 105, 0, 0, 0, 103, + 150, 151, 0, 0, 473, 0, 105, 0, 101, 0, + 0, 152, 153, 154, 0, 155, 101, 0, 0, 157, + 0, 105, 0, 0, 0, 0, 0, 0, 101, 0, + 0, 158, 0, 159, 0, 0, 27, 28, 0, 0, + 0, 30, 161, 0, 0, 106, 0, 0, 0, 0, + 162, 0, 0, 0, 0, 103, 0, 103, 0, 0, + 0, 510, 0, 512, 0, 0, 0, 0, 0, 517, + 0, 0, 41, 0, 0, 0, 0, 105, 0, 105, + 106, 0, 0, 163, 0, 0, 0, 0, 48, 0, + 0, 0, 559, 0, 0, 0, 0, 0, 106, 0, + 528, 0, 0, 103, 0, 0, 0, 103, 534, 106, + 0, 556, 103, 103, 0, 0, 0, 0, 0, 0, + 114, 103, 103, 0, 106, 105, 568, 0, 0, 105, + 0, 0, 0, 0, 105, 105, 0, 0, 0, 0, + 0, 0, 103, 105, 105, 0, 103, 584, 0, 0, + 0, 0, 103, 0, 0, 114, 0, 0, 0, 0, + 0, 0, 0, 0, 105, 0, 0, 0, 105, 0, + 0, 0, 0, 114, 105, 0, 0, 0, 0, 0, + 106, 0, 106, 0, 114, 103, 0, 0, 0, 0, + 0, 0, 0, 103, 0, 0, 0, 0, 0, 114, + 0, 0, 0, 0, 0, 103, 0, 105, 0, 0, + 0, 0, 0, 0, 321, 105, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 105, 106, 0, + 0, 0, 106, 0, 0, 0, 0, 106, 106, -324, + -324, 322, 0, 0, 0, 0, 106, 106, 0, 0, + 0, 0, 0, 0, 0, 114, 0, 114, 0, -324, + -324, -324, -324, 0, -324, -324, 0, 106, 0, 0, + 0, 106, 0, 0, 0, 0, 0, 106, -271, -271, + -271, -271, -271, -271, -271, -271, -271, 0, 0, 0, + 0, -271, -271, -271, -271, -271, -271, -271, -271, 0, + 626, 0, 0, 114, 0, 0, 0, 114, 0, 0, + 106, 0, 114, 114, 0, 0, 0, 0, 106, 0, + 0, 114, 114, 0, 0, 0, 642, 0, 0, 0, + 106, -324, 647, 298, 0, 653, 0, 654, 0, 0, + 0, 0, 114, 0, 0, 0, 114, 0, 0, 200, + 202, 204, 114, 0, 0, 0, 0, 0, 0, 0, + 0, 212, 0, 0, 0, 0, 678, 0, 680, 0, + 0, 0, 0, 0, 0, 247, 0, 248, 250, 689, + 0, 0, 256, 0, 0, 114, 695, 0, 0, 699, + 0, 702, 282, 114, 0, 0, 0, 0, 0, 0, + 0, 0, 303, 0, 303, 114, 303, 303, 0, 303, + 0, 303, 0, 303, 0, 303, 0, 303, 713, 303, + 0, 303, 0, 303, 356, 303, 0, 731, 0, 303, + 0, 0, 303, 0, 0, 303, 311, 303, 315, 316, + 0, 320, 0, 324, 0, 328, 0, 331, 0, 335, + 0, 338, 303, 345, 303, 352, 378, 384, 0, 0, + 0, 392, 0, 0, 397, 0, 0, 403, 0, 408, + 0, 0, 0, 2, 0, 4, 5, 0, 6, 150, + 151, 9, 474, 474, 432, 0, 438, 11, 12, 13, + 152, 153, 154, 0, 155, 0, 757, 156, 157, 0, + 0, 482, 20, 21, 0, 0, 0, 0, 0, 0, + 158, 0, 159, 0, 0, 27, 28, 0, 0, 160, + 30, 161, 0, 0, 0, 0, 0, 0, 0, 162, + 0, 0, 0, 0, 0, 0, 0, 36, 0, 38, + 39, 474, 0, 0, 0, 518, 780, 0, 0, 0, + 0, 41, 0, 0, 785, 0, 786, 0, 0, 0, + 0, 0, 163, 45, 0, 798, 0, 48, 0, 0, + 51, 589, 524, 518, 474, 0, 0, 0, 164, 165, + 0, 0, 0, 0, 0, 52, 166, 0, 0, 560, + 55, 0, 56, 0, 57, 0, 0, 0, 0, 814, + 0, 816, 0, 0, 569, 0, 0, 0, 0, 573, + 0, 825, 0, 0, 828, 830, 831, 0, 0, 0, + 834, 0, 0, 837, 0, 0, 0, 0, 585, 586, + 0, 0, 0, 0, 0, 2, 0, 4, 5, 0, + 6, 150, 151, 9, 0, 0, 0, 0, 853, 11, + 12, 13, 152, 153, 154, 0, 155, 0, 0, 156, + 157, 0, 0, 0, 20, 21, 0, 0, 0, 0, + 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, + 0, 160, 30, 161, 0, 0, 881, 0, 0, 0, + 0, 162, 0, 886, 0, 0, 889, 0, 0, 36, + 0, 38, 39, 0, 489, 490, 0, 0, 491, 492, + 493, 898, 899, 41, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 910, 163, 45, 494, 495, 0, 48, + 0, 0, 51, 272, 273, 496, 0, 282, 0, 0, + 164, 165, 0, 0, 0, 0, 0, 52, 274, 0, + 0, 929, 55, 282, 56, 0, 57, 0, 0, 0, + 0, 0, 0, 0, 944, 0, 0, 0, 0, 0, + 0, 0, 0, 949, 950, 0, 0, 953, 0, 0, + 955, 956, 0, 497, 498, 499, 500, 501, 502, 503, + 504, 505, 0, 0, 0, 0, 962, 0, 535, 536, + 537, 538, 539, 540, 541, 542, 543, 0, 0, 0, + 0, 544, 545, 546, 547, 548, 549, 550, 551, 0, + 972, 299, 302, 0, 310, 0, 314, 0, 0, 319, + 0, 323, 0, 327, 0, 0, 0, 334, 0, 337, + 0, 0, 0, 351, 681, 0, 682, 386, 389, 0, + 0, 0, 396, 648, 401, 0, 0, 407, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 704, 0, + 0, 427, 431, 708, 437, 0, 0, 0, 0, 0, + 0, 0, 709, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 718, 0, + 0, 256, 0, 0, 187, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 207, 208, 0, 0, 0, 0, + 0, 0, 0, 299, 302, 310, 314, 319, 323, 327, + 0, 334, 337, 0, 351, 386, 389, 0, 396, 0, + 401, 407, 0, 0, 266, 0, 0, 0, 0, 270, + 279, 0, 0, 427, 431, 437, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 754, 755, 299, + 302, 310, 314, 319, 323, 327, 0, 334, 337, 0, + 351, 386, 389, 0, 396, 401, 407, 474, 0, 427, + 431, 437, 535, 536, 537, 538, 539, 540, 541, 542, + 543, 0, 0, 0, 0, 544, 545, 546, 547, 548, + 549, 550, 551, 0, 351, 386, 0, 401, 431, 0, + 474, 0, 0, 781, 0, 466, 0, 783, 784, 0, + 0, 0, 0, 0, 0, 0, 472, 0, 791, 0, + 704, 902, 0, 478, 0, 799, 791, 0, 0, 0, + 479, 806, 718, 0, 0, 0, 0, 0, 480, 481, + 0, 809, 0, 0, 0, 0, 2, 0, 4, 5, 0, 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, 12, 13, 152, 153, 154, 0, 155, 0, 0, 156, 157, 0, 0, 0, 20, 21, 0, 0, 0, 0, 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, 0, 160, 30, 161, 0, 0, 0, 0, 0, - 0, 0, 162, 0, 0, 0, 0, 0, 0, 0, - 36, 0, 38, 39, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 41, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 163, 45, 0, 0, 48, - 0, 0, 51, 589, 0, 0, 0, 0, 0, 0, + 0, 0, 162, 327, 855, 856, 0, 0, 0, 0, + 36, 0, 38, 39, 0, 529, 0, 0, 0, 0, + 0, 0, 0, 718, 41, 0, 0, 0, 0, 0, + 877, 0, 877, 0, 0, 163, 45, 0, 0, 567, + 48, 270, 877, 51, 877, 0, 0, 0, 0, 0, + 0, 164, 165, 0, 0, 0, 0, 0, 52, 274, + 0, 0, 717, 55, 896, 56, 0, 57, 0, 900, + 0, 588, 590, 0, 906, 594, 0, 799, 0, 0, + 0, 0, 595, 0, 0, 0, 596, 0, 0, 0, + 0, 597, 0, 0, 0, 598, 0, 0, 0, 599, + 0, 0, 0, 600, 0, 0, 601, 0, 0, 0, + 602, 0, 0, 0, 603, 0, 0, 0, 0, 0, + 945, 605, 0, 948, 0, 0, 2, 0, 0, 0, + 952, 0, 150, 151, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 152, 153, 154, 0, 155, 0, 0, + 0, 157, 0, 0, 0, 0, 0, 0, 0, 607, + 0, 608, 968, 158, 609, 159, 0, 610, 27, 28, + 0, 0, 611, 30, 161, 489, 490, 0, 614, 491, + 492, 493, 162, 0, 0, 615, 616, 617, 618, 619, + 620, 621, 38, 39, 0, 0, 0, 494, 495, 623, + 989, 990, 624, 0, 41, 0, 496, 0, 625, 0, + 0, 386, 0, 0, 401, 163, 0, 0, 0, 0, + 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 52, 0, + 0, 0, 0, 267, 0, 0, 0, 0, 0, 0, + 0, 0, 813, 0, 497, 498, 499, 500, 501, 502, + 503, 504, 505, 661, 662, 663, 664, 665, 666, 667, + 668, 669, 670, 671, 672, 673, 674, 675, 676, 677, + -3, 1, 0, -26, -26, 2, 3, 4, 5, 0, + 6, 7, 8, 9, 10, 0, 690, 0, 0, 11, + 12, 13, 14, 15, 16, 17, 18, 0, 0, 0, + 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, + 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, + 0, 29, 30, 31, 0, 0, 0, 722, 0, 727, + 0, 32, 33, 34, 734, 0, 0, 35, 0, 36, + 37, 38, 39, 735, 0, 0, 0, 0, 0, 431, + 0, 0, 40, 41, 42, 43, 590, 0, 0, 0, + 0, 0, 0, 0, 44, 45, 0, 46, 47, 48, + 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, + 54, 751, 55, 0, 56, 0, 57, 0, 0, 756, + 0, 0, 0, 0, 0, 0, 0, 762, 2, 0, + 4, 5, 767, 6, 150, 151, 9, 0, 0, 0, + 0, 0, 11, 12, 13, 152, 153, 154, 0, 155, + 0, 0, 156, 157, 0, 0, 0, 20, 21, 0, + 0, 0, 0, 0, 0, 158, 0, 159, 0, 0, + 27, 28, 0, 0, 160, 30, 161, 0, 0, 0, + 0, 0, 0, 0, 162, 0, 0, 0, 0, 0, + 0, 0, 36, 0, 38, 39, 0, 0, 0, 803, + 0, 722, 0, 0, 0, 0, 41, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 163, 45, 0, + 0, 0, 48, 0, 0, 51, 272, 0, 0, 0, + 590, 0, 0, 164, 165, 0, 826, 0, 393, 0, + 52, 274, 833, 0, 0, 55, 0, 56, 838, 57, + 0, 0, 0, 0, 0, 0, 840, 0, 0, 0, + 0, 844, 0, -335, -335, 394, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, -335, -335, -335, -335, 0, -335, -335, + 0, 0, 722, 0, 727, 0, 0, 0, 0, 0, + 0, 0, -282, -282, -282, -282, -282, -282, -282, -282, + -282, 0, 0, 0, 0, -282, -282, -282, -282, -282, + -282, -282, -282, 0, 0, 893, 0, 0, 0, 0, + 895, 0, 0, 0, 0, 0, 0, 0, 0, 0, + -2, 287, 0, -26, -26, 2, 3, 4, 5, 912, + 6, 7, 8, 9, 10, -335, 0, 298, 0, 11, + 12, 13, 14, 15, 16, 17, 18, 0, 0, 0, + 19, 0, 0, 0, 20, 21, 930, 22, 0, 0, + 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, + 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, + 0, 32, 33, 34, 0, 0, 0, 35, 0, 36, + 37, 38, 39, 0, 0, 0, 959, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, + 0, 0, 0, 0, 44, 45, 0, 46, 47, 48, + 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, + 54, 0, 55, 0, 56, 447, 57, -108, -108, 2, + 3, 4, 5, 0, 6, 7, 448, 9, 10, -115, + -115, -115, -115, 11, 12, 13, 14, 15, 16, 449, + 450, 0, 0, 0, 19, 0, 0, 0, 20, 21, + 0, 22, -115, -115, -115, -115, 23, 24, 25, 26, + -115, 27, 28, 0, 0, 29, 30, 31, 0, 0, + 0, 0, 0, 0, 0, 32, 33, 34, -115, -115, + -115, 35, 0, 36, 37, 38, 39, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 40, 41, 42, 43, + 0, 0, 0, 0, 0, 0, 0, 0, 44, 45, + 0, 46, 47, 48, 49, 50, 51, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 52, 0, 53, 54, 0, 55, 0, 56, 447, + 57, -108, -108, 2, 3, 4, 5, 0, 6, 7, + 448, 9, 10, 0, 0, -524, 0, 11, 12, 13, + 14, 15, 16, 449, 450, 0, 0, 0, 19, 0, + 0, 0, 20, 21, 0, 22, -524, -524, -524, 0, + 23, 24, 25, 26, 0, 27, 28, 0, 0, 29, + 30, 31, 0, 0, 0, 0, 0, 0, 0, 32, + 33, 34, 0, 0, 0, 35, 0, 36, 37, 38, + 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 40, 41, 42, 43, 0, 0, 0, 0, 0, 0, + 0, 0, 44, 45, 0, 46, 47, 48, 49, 50, + 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 52, 0, 53, 54, 0, + 55, 0, 56, 447, 57, -108, -108, 2, 3, 4, + 5, 0, 6, 7, 448, 9, 10, 0, 0, -525, + 0, 11, 12, 13, 14, 15, 16, 449, 450, 0, + 0, 0, 19, 0, 0, 0, 20, 21, 0, 22, + -525, -525, -525, 0, 23, 24, 25, 26, 0, 27, + 28, 0, 0, 29, 30, 31, 0, 0, 0, 0, + 0, 0, 0, 32, 33, 34, 0, 0, 0, 35, + 0, 36, 37, 38, 39, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 40, 41, 42, 43, 0, 0, + 0, 0, 0, 0, 0, 0, 44, 45, 0, 46, + 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, + 0, 53, 54, 0, 55, 0, 56, 447, 57, -108, + -108, 2, 3, 4, 5, 0, 6, 7, 448, 9, + 10, 0, 0, -114, 0, 11, 12, 13, 14, 15, + 16, 449, 450, 0, 0, 0, 19, 0, 0, 0, + 20, 21, 0, 22, 0, 0, 0, 0, 23, 24, + 25, 26, 0, 27, 28, 0, 0, 29, 30, 31, + 0, 0, 0, 0, 0, 0, 0, 32, 33, 34, + -114, -114, -114, 35, 0, 36, 37, 38, 39, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 40, 41, + 42, 43, 0, 0, 0, 0, 0, 0, 0, 0, + 44, 45, 0, 46, 47, 48, 49, 50, 51, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 52, 0, 53, 54, 0, 55, 0, + 56, 447, 57, -108, -108, 2, 3, 4, 5, 0, + 6, 7, 448, 9, 10, -114, -114, -114, -114, 11, + 12, 13, 14, 15, 16, 449, 450, 0, 0, 0, + 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, + 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, + 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, + 0, 32, 33, 34, 0, 0, 0, 35, 0, 36, + 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, + 0, 0, 0, 0, 44, 45, 0, 46, 47, 48, + 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, + 54, 0, 55, 0, 56, 447, 57, -108, -108, 2, + 3, 4, 5, 0, 6, 7, 448, 9, 10, 0, + 0, -114, 0, 11, 12, 13, 14, 15, 16, 449, + 450, 0, 0, 0, 19, 0, 0, 0, 20, 21, + 0, 22, -114, -114, -114, 0, 23, 24, 25, 26, + 0, 27, 28, 0, 0, 29, 30, 31, 0, 0, + 0, 0, 0, 0, 0, 32, 33, 34, 0, 0, + 0, 35, 0, 36, 37, 38, 39, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 40, 41, 42, 43, + 0, 0, 0, 0, 0, 0, 0, 0, 44, 45, + 0, 46, 47, 48, 49, 50, 51, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 52, 0, 53, 54, 0, 55, 0, 56, 447, + 57, -108, -108, 2, 3, 4, 5, 0, 6, 7, + 448, 9, 10, 0, 0, -575, 0, 11, 12, 13, + 14, 15, 16, 449, 450, 0, 0, 0, 19, 0, + 0, 0, 20, 21, 0, 22, -575, -575, 0, 0, + 23, 24, 25, 26, 0, 27, 28, 0, 0, 29, + 30, 31, 0, 0, 0, 0, 0, 0, 0, 32, + 33, 34, 0, 0, 0, 35, 0, 36, 37, 38, + 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 40, 41, 42, 43, 0, 0, 0, 0, 0, 0, + 0, 0, 44, 45, 0, 46, 47, 48, 49, 50, + 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 52, 0, 53, 54, 0, + 55, 0, 56, 447, 57, -108, -108, 2, 3, 4, + 5, 0, 6, 7, 448, 9, 10, 0, 0, -576, + 0, 11, 12, 13, 14, 15, 16, 449, 450, 0, + 0, 0, 19, 0, 0, 0, 20, 21, 0, 22, + -576, -576, 0, 0, 23, 24, 25, 26, 0, 27, + 28, 0, 0, 29, 30, 31, 0, 0, 0, 0, + 0, 0, 0, 32, 33, 34, 0, 0, 0, 35, + 0, 36, 37, 38, 39, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 40, 41, 42, 43, 0, 0, + 0, 0, 0, 0, 0, 0, 44, 45, 0, 46, + 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, + 0, 53, 54, 0, 55, 0, 56, 447, 57, -108, + -108, 2, 3, 4, 5, 0, 6, 7, 448, 9, + 10, 0, 0, -114, 0, 11, 12, 13, 14, 15, + 16, 449, 450, 0, 0, 0, 19, 0, 0, 0, + 20, 21, 0, 22, 0, -114, -114, 0, 23, 24, + 25, 26, 0, 27, 28, 0, 0, 29, 30, 31, + 0, 0, 0, 0, 0, 0, 0, 32, 33, 34, + 0, 0, 0, 35, 0, 36, 37, 38, 39, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 40, 41, + 42, 43, 0, 0, 0, 0, 0, 0, 0, 0, + 44, 45, 0, 46, 47, 48, 49, 50, 51, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 52, 0, 53, 54, 0, 55, 0, + 56, 447, 57, -108, -108, 2, 3, 4, 5, 0, + 6, 7, 448, 9, 10, 0, 0, -114, 0, 11, + 12, 13, 14, 15, 16, 449, 450, 0, 0, 0, + 19, 0, 0, 0, 20, 21, 0, 22, -114, -114, + 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, + 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, + 0, 32, 33, 34, 0, 0, 0, 35, 0, 36, + 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, + 0, 0, 0, 0, 44, 45, 0, 46, 47, 48, + 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, + 54, 0, 55, 0, 56, 447, 57, -108, -108, 2, + 3, 4, 5, 0, 6, 7, 448, 9, 10, 0, + 0, -114, -114, 11, 12, 13, 14, 15, 16, 449, + 450, 0, 0, 0, 19, 0, 0, 0, 20, 21, + 0, 22, 0, 0, 0, 0, 23, 24, 25, 26, + 0, 27, 28, 0, 0, 29, 30, 31, 0, 0, + 0, 0, 0, 0, 0, 32, 33, 34, 0, 0, + 0, 35, 0, 36, 37, 38, 39, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 40, 41, 42, 43, + 0, 0, 0, 0, 0, 0, 0, 0, 44, 45, + 0, 46, 47, 48, 49, 50, 51, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 52, 0, 53, 54, 0, 55, 0, 56, 447, + 57, -108, -108, 2, 3, 4, 5, 0, 6, 7, + 448, 9, 10, 0, 0, -114, 0, 11, 12, 13, + 14, 15, 16, 449, 450, 0, 0, 0, 19, 0, + 0, 0, 20, 21, 0, 22, 0, 0, 0, -114, + 23, 24, 25, 26, 0, 27, 28, 0, 0, 29, + 30, 31, 0, 0, 0, 0, 0, 0, 0, 32, + 33, 34, 0, 0, 0, 35, 0, 36, 37, 38, + 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 40, 41, 42, 43, 0, 0, 0, 0, 0, 0, + 0, 0, 44, 45, 0, 46, 47, 48, 49, 50, + 51, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 52, 0, 53, 54, 0, + 55, 0, 56, 447, 57, -108, -108, 2, 3, 4, + 5, 0, 6, 7, 448, 9, 10, 0, 0, -114, + 0, 11, 12, 13, 14, 15, 16, 449, 450, 0, + 0, 0, 19, 0, 0, 0, 20, 21, 0, 22, + 0, 0, 0, 0, 23, 24, 25, 26, 0, 27, + 28, 0, 0, 29, 30, 31, 0, 0, 0, 0, + 0, 0, 0, 32, 33, 34, 0, 0, -114, 35, + 0, 36, 37, 38, 39, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 40, 41, 42, 43, 0, 0, + 0, 0, 0, 0, 0, 0, 44, 45, 0, 46, + 47, 48, 49, 50, 51, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 52, + 0, 53, 54, 0, 55, 0, 56, 447, 57, -108, + -108, 2, 3, 4, 5, 0, 6, 7, 448, 9, + 10, 0, 0, -114, 0, 11, 12, 13, 14, 15, + 16, 449, 450, 0, 0, 0, 19, 0, 0, 0, + 20, 21, 0, 22, 0, 0, 0, 0, 23, 24, + 25, 26, -114, 27, 28, 0, 0, 29, 30, 31, + 0, 0, 0, 0, 0, 0, 0, 32, 33, 34, + 0, 0, 0, 35, 0, 36, 37, 38, 39, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 40, 41, + 42, 43, 0, 0, 0, 0, 0, 0, 0, 0, + 44, 45, 0, 46, 47, 48, 49, 50, 51, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 52, 0, 53, 54, 0, 55, 0, + 56, 447, 57, -108, -108, 2, 3, 4, 5, 0, + 6, 7, 448, 9, 10, 0, 0, -114, 0, 11, + 12, 13, 14, 15, 16, 449, 450, 0, 0, 0, + 19, 0, 0, 0, 20, 21, 0, 22, 0, 0, + 0, 0, 23, 24, 25, 26, 0, 27, 28, 0, + 0, 29, 30, 31, 0, 0, 0, 0, 0, 0, + 0, 32, 33, 34, 0, 0, 0, 35, 0, 36, + 37, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 40, 41, 42, 43, 0, 0, 0, 0, + 0, 0, 0, 0, 44, 45, 0, 46, 47, 48, + 49, 50, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 52, 0, 53, + 54, 0, 55, 0, 56, 2, 57, 4, 5, 0, + 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, + 12, 13, 152, 153, 154, 0, 155, 0, 0, 156, + 157, 0, 0, 0, 20, 21, 0, 0, 0, 0, + 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, + 0, 160, 30, 161, 0, 0, 0, 0, 0, 0, + 0, 162, 0, 0, 0, 0, 0, 0, 0, 36, + 0, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 163, 45, 0, 0, 0, 48, + 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, 164, 165, 0, 0, 0, 0, 0, 52, 166, 0, 0, 0, 55, 0, 56, 2, 57, 4, 5, 0, 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, @@ -2260,636 +2278,695 @@ static const yytype_int16 yytable[] = 0, 162, 0, 0, 0, 0, 0, 0, 0, 36, 0, 38, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 163, 45, 0, 0, 48, 0, - 0, 51, 0, 0, 0, 0, 0, 0, 0, 164, - 165, 0, 0, 0, 0, 0, 52, 274, 0, 0, - 717, 55, 0, 56, 2, 57, 4, 5, 0, 6, - 150, 151, 9, 0, 0, 0, 0, 0, 11, 12, - 13, 152, 153, 154, 0, 155, 0, 0, 156, 157, - 0, 0, 0, 20, 21, 0, 0, 0, 0, 0, - 0, 158, 0, 159, 0, 0, 27, 28, 0, 0, - 160, 30, 161, 0, 0, 0, 0, 0, 0, 0, - 162, 0, 0, 0, 0, 0, 0, 0, 36, 0, - 38, 39, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 41, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 163, 45, 0, 0, 48, 0, 0, - 51, 272, 0, 0, 0, 0, 0, 0, 164, 165, - 0, 0, 0, 0, 0, 52, 274, 0, 0, 0, - 55, 0, 56, 2, 57, 4, 5, 0, 6, 150, - 151, 9, 0, 0, 0, 0, 0, 11, 12, 13, - 152, 153, 154, 0, 155, 0, 0, 156, 157, 0, - 0, 0, 20, 21, 0, 0, 0, 0, 0, 0, - 158, 0, 159, 0, 0, 27, 28, 0, 0, 160, - 30, 161, 0, 0, 0, 0, 0, 0, 0, 162, - 0, 0, 0, 0, 0, 0, 0, 36, 0, 38, - 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 41, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 163, 45, 0, 0, 48, 0, 0, 51, - 0, 0, 0, 0, 0, 0, 0, 164, 165, 0, - 0, 0, 0, 0, 52, 166, 0, 0, 0, 55, - 0, 56, 2, 57, 4, 5, 0, 6, 150, 151, - 9, 0, 0, 0, 0, 0, 11, 12, 13, 152, - 153, 154, 0, 155, 0, 0, 156, 157, 0, 0, - 0, 20, 21, 0, 0, 0, 0, 0, 0, 158, - 0, 159, 0, 0, 27, 28, 0, 0, 160, 30, - 161, 0, 0, 0, 0, 0, 0, 0, 162, 0, - 0, 0, 0, 0, 0, 0, 36, 0, 38, 39, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 41, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 163, 45, 0, 0, 48, 0, 0, 51, 0, - 0, 0, 0, 0, 0, 0, 164, 165, 0, 0, - 0, 0, 0, 52, 269, 0, 0, 0, 55, 0, - 56, 2, 57, 4, 5, 0, 6, 150, 151, 9, - 0, 0, 0, 0, 0, 11, 12, 13, 152, 153, - 154, 0, 155, 0, 0, 156, 157, 0, 0, 0, - 20, 21, 0, 0, 0, 0, 0, 0, 158, 0, - 159, 0, 0, 27, 28, 0, 0, 160, 30, 161, - 0, 0, 0, 0, 0, 0, 0, 162, 0, 0, - 0, 0, 0, 0, 0, 36, 0, 38, 39, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 41, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 163, 45, 0, 0, 48, 0, 0, 51, 0, 0, - 0, 0, 0, 0, 0, 164, 165, 0, 0, 0, - 0, 0, 52, 726, 0, 0, 0, 55, 0, 56, - 2, 57, 4, 5, 0, 6, 150, 151, 9, 0, - 0, 0, 0, 0, 11, 12, 13, 152, 153, 154, - 0, 155, 0, 0, 156, 157, 0, 0, 0, 20, - 21, 0, 0, 0, 0, 0, 0, 158, 0, 159, - 0, 0, 27, 28, 0, 0, 160, 30, 161, 0, - 0, 0, 0, 0, 0, 0, 162, 0, 0, 0, - 0, 0, 0, 0, 36, 0, 38, 39, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 163, - 45, 0, 0, 48, 0, 0, 51, 0, 0, 0, - 0, 0, 0, 0, 164, 165, 0, 0, 0, 0, - 0, 52, 274, 0, 0, 0, 55, 0, 56, 2, - 57, 4, 354, 0, 355, 150, 151, 9, 0, 0, - 0, 0, 0, 11, 12, 13, 152, 153, 154, 0, - 155, 0, 0, 0, 157, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 158, 0, 159, 0, - 0, 27, 28, 0, 0, 0, 30, 161, 0, 0, - 0, 0, 0, 0, 321, 162, 0, 0, 0, 0, - 0, 0, 0, 36, 0, 38, 39, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 41, 0, -322, - -322, 322, 0, 0, 0, 0, 0, 0, 163, 45, - 0, 0, 48, 0, 0, 0, 0, 0, 0, -322, - -322, -322, -322, 0, -322, -322, 0, 0, 0, 0, - 52, 0, 0, 0, 393, 267, 0, 56, -269, -269, - -269, -269, -269, -269, -269, -269, -269, 0, 0, 0, - 0, -269, -269, -269, -269, -269, -269, -269, -269, -333, - -333, 394, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -333, - -333, -333, -333, 0, -333, -333, 0, 0, 0, 0, - -322, 0, 298, 0, 404, 0, 0, 0, -280, -280, - -280, -280, -280, -280, -280, -280, -280, 0, 0, 0, - 0, -280, -280, -280, -280, -280, -280, -280, -280, -336, - -336, 405, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -336, - -336, -336, -336, 0, -336, -336, 0, 0, 0, 0, - -333, 0, 298, 0, 428, 0, 0, 0, -287, -287, - -287, -287, -287, -287, -287, -287, -287, 0, 0, 0, - 0, -287, -287, -287, -287, -287, -287, -287, -287, -332, - -332, 429, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -332, - -332, -332, -332, 0, -332, -332, 0, 0, 0, 0, - -336, 0, 298, 0, 0, 0, 0, 0, -302, -302, - -302, -302, -302, -302, -302, -302, -302, 0, 0, 0, - 0, -302, -302, -302, -302, -302, -302, -302, -302, 2, - 0, 0, 0, 0, 0, 150, 151, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 152, 153, 154, 0, - 155, 0, 0, 0, 157, 0, 0, 0, 0, 0, - -332, 0, 298, 2, 0, 0, 158, 0, 159, 150, - 151, 27, 28, 0, 0, 0, 30, 161, 0, 0, - 152, 153, 154, 0, 155, 162, 0, 0, 157, 0, - 0, 0, 0, 0, 0, 38, 39, 0, 0, 0, - 158, 0, 159, 0, 0, 27, 28, 41, 0, 0, - 30, 161, 0, 0, 0, 0, 0, 0, 163, 162, - 0, 0, 48, 0, 0, 2, 0, 0, 0, 0, - 0, 150, 151, 0, 0, 0, 0, 0, 0, 0, - 52, 41, 152, 153, 154, 0, 155, 0, 0, 0, - 157, 0, 163, 0, 0, 0, 48, 0, 0, 2, - 559, 0, 158, 0, 159, 150, 151, 27, 28, 0, - 0, 0, 30, 161, 0, 0, 152, 153, 154, 0, - 155, 162, 0, 0, 157, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 158, 0, 159, 0, - 0, 27, 28, 41, 0, 0, 30, 161, 0, 0, - 0, 0, 0, 0, 163, 162, 0, 0, 48, 0, - 0, 2, 803, 0, 0, 0, 0, 150, 151, 0, - 0, 0, 0, 0, 0, 0, 0, 41, 152, 153, - 154, 0, 155, 0, 0, 0, 157, 0, 163, 0, - 0, 0, 48, 0, 0, 2, 872, 0, 158, 0, - 159, 150, 151, 27, 28, 0, 0, 0, 30, 161, - 0, 0, 152, 153, 154, 0, 155, 162, 0, 0, - 157, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 158, 0, 159, 0, 0, 27, 28, 41, - 0, 0, 30, 161, 0, 0, 0, 0, 0, 0, - 163, 162, 0, 0, 48, 0, 0, 0, 949, 0, + 0, 0, 0, 0, 163, 45, 0, 0, 0, 48, + 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, + 164, 165, 0, 0, 0, 0, 0, 52, 269, 0, + 0, 0, 55, 0, 56, 2, 57, 4, 5, 0, + 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, + 12, 13, 152, 153, 154, 0, 155, 0, 0, 156, + 157, 0, 0, 0, 20, 21, 0, 0, 0, 0, + 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, + 0, 160, 30, 161, 0, 0, 0, 0, 0, 0, + 0, 162, 0, 0, 0, 0, 0, 0, 0, 36, 0, 38, 39, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 311, 41, 315, 316, 0, 320, 0, 324, - 0, 328, 0, 331, 163, 335, 0, 338, 48, 345, - 0, 352, 378, 384, 0, 0, 0, 392, 0, 0, - 397, 0, 0, 403, 0, 408, 0, 0, 0, 0, - 535, 536, 537, 538, 539, 540, 541, 542, 543, 0, - 432, 0, 438, 544, 545, 546, 547, 548, 549, 550, - 551, 535, 536, 537, 538, 539, 540, 541, 542, 543, - 0, 0, 0, 0, 544, 545, 546, 547, 548, 549, - 550, 551, 0, 0, 0, 0, 0, 0, 937, 0, - 0, 0, 0, 0, 0, 0, 0, 535, 536, 537, - 538, 539, 540, 541, 542, 543, 0, 0, 0, 964, + 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 163, 45, 0, 0, 0, 48, + 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, + 164, 165, 0, 0, 0, 0, 0, 52, 726, 0, + 0, 0, 55, 0, 56, 2, 57, 4, 5, 0, + 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, + 12, 13, 152, 153, 154, 0, 155, 0, 0, 156, + 157, 0, 0, 0, 20, 21, 0, 0, 0, 0, + 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, + 0, 160, 30, 161, 0, 0, 0, 0, 0, 0, + 0, 162, 0, 0, 0, 0, 0, 0, 0, 36, + 0, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 163, 45, 0, 0, 0, 48, + 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, + 164, 165, 0, 0, 0, 0, 0, 52, 274, 0, + 0, 0, 55, 0, 56, 2, 57, 4, 5, 0, + 6, 150, 151, 9, 0, 0, 0, 0, 0, 11, + 12, 13, 152, 153, 154, 0, 155, 0, 0, 0, + 157, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 158, 0, 159, 0, 0, 27, 28, 0, + 0, 160, 30, 161, 0, 0, 0, 0, 0, 0, + 0, 162, 0, 0, 0, 0, 0, 0, 0, 36, + 0, 38, 39, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 163, 45, 0, 0, 0, 48, + 0, 0, 51, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 2, 0, 4, 354, 52, 355, 150, + 151, 9, 55, 0, 56, 0, 57, 11, 12, 13, + 152, 153, 154, 0, 155, 0, 0, 0, 157, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 158, 0, 159, 0, 0, 27, 28, 0, 0, 0, + 30, 161, 0, 0, 0, 0, 0, 0, 0, 162, + 428, 0, 0, 0, 0, 0, 0, 36, 0, 38, + 39, 0, 489, 490, 0, 0, 491, 492, 493, 0, + 0, 41, 0, 0, 0, -334, -334, 429, 0, 0, + 0, 0, 163, 45, 494, 495, 0, 48, 0, 0, + 0, 0, 0, 496, 0, -334, -334, -334, -334, 0, + -334, -334, 0, 0, 0, 52, 0, 0, 0, 0, + 267, 0, 56, 0, -304, -304, -304, -304, -304, -304, + -304, -304, -304, 0, 0, 404, 0, -304, -304, -304, + -304, -304, -304, -304, -304, 0, 0, 0, 0, 0, + 0, 497, 498, 499, 500, 501, 502, 503, 504, 505, + -338, -338, 405, 0, 53, 54, 0, 0, 0, 0, + -616, -616, -616, 0, 0, 0, 0, -334, 0, 298, + -338, -338, -338, -338, 0, -338, -338, 0, 0, 0, + 0, 0, 0, 0, 0, 428, 0, 0, 0, -289, + -289, -289, -289, -289, -289, -289, -289, -289, 0, 0, + 0, 0, -289, -289, -289, -289, -289, -289, -289, -289, + -334, -334, 429, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + -334, -334, -334, -334, 0, -334, -334, 0, 0, 0, + 0, 0, -338, 0, 298, 336, 0, 0, 0, -304, + -304, -304, -304, -304, -304, -304, -304, -304, 0, 0, + 0, 0, -304, -304, -304, -304, -304, -304, -304, -304, + -332, -332, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + -332, -332, -332, -332, 0, -332, -332, 0, 0, 0, + 0, 0, -334, 0, 298, 0, 0, 0, 0, -302, + -302, -302, -302, -302, -302, -302, -302, -302, 0, 0, + 0, 0, -302, -302, -302, -302, -302, -302, -302, -302, + 2, 0, 0, 0, 0, 0, 150, 151, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 152, 153, 154, + 0, 155, 0, 0, 0, 157, 0, 0, 0, 0, + 0, 0, -332, 0, 298, 0, 0, 158, 0, 159, + 0, 0, 27, 28, 2, 0, 0, 30, 161, 0, + 150, 151, 0, 0, 0, 0, 162, 0, 0, 0, + 0, 152, 153, 154, 0, 155, 0, 0, 0, 157, + 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, + 0, 158, 0, 159, 0, 0, 27, 28, 0, 163, + 0, 30, 161, 0, 48, 0, 0, 0, 2, 0, + 162, 0, 0, 0, 150, 151, 0, 0, 0, 0, + 0, 0, 0, 854, 0, 152, 153, 154, 0, 155, + 0, 0, 789, 157, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 163, 0, 158, 0, 159, 48, 0, + 27, 28, 2, 0, 0, 30, 161, 0, 150, 151, + 0, 0, 0, 0, 162, 0, 0, 905, 0, 152, + 153, 154, 0, 155, 0, 0, 0, 157, 0, 0, + 0, 0, 0, 0, 0, 0, 41, 0, 0, 158, + 0, 159, 0, 0, 27, 28, 0, 163, 0, 30, + 161, 0, 48, 0, 0, 0, 2, 0, 162, 0, + 0, 0, 150, 151, 0, 0, 0, 0, 38, 39, + 0, 947, 0, 152, 153, 154, 0, 155, 0, 0, + 41, 157, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 163, 0, 158, 0, 159, 48, 0, 27, 28, + 2, 0, 0, 30, 161, 0, 150, 151, 0, 0, + 0, 0, 162, 0, 52, 0, 0, 152, 153, 154, + 0, 155, 0, 0, 0, 157, 0, 0, 0, 0, + 0, 0, 0, 0, 41, 0, 0, 158, 0, 159, + 0, 0, 27, 28, 0, 163, 0, 30, 161, 0, + 48, 0, 0, 0, 805, 0, 162, 0, 2, 0, + 0, 0, 0, 0, 150, 151, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 152, 153, 154, 41, 155, + 0, 0, 0, 157, 0, 0, 0, 0, 0, 163, + 0, 0, 0, 0, 48, 158, 0, 159, 874, 0, + 27, 28, 2, 0, 0, 30, 161, 0, 150, 151, + 0, 0, 0, 0, 162, 0, 0, 0, 0, 152, + 153, 154, 0, 155, 0, 0, 0, 157, 0, 0, + 0, 0, 0, 0, 0, 0, 41, 0, 0, 158, + 0, 159, 0, 0, 27, 28, 0, 163, 0, 30, + 161, 0, 48, 0, 0, 0, 951, 0, 162, 0, + 2, 0, 0, 0, 0, 0, 150, 151, 38, 39, + 0, 0, 0, 0, 0, 0, 0, 152, 153, 154, + 41, 155, 0, 489, 490, 157, 0, 491, 492, 493, + 0, 163, 0, 0, 0, 0, 48, 158, 0, 159, + 0, 0, 27, 28, 932, 494, 495, 30, 161, 0, + 0, 0, 0, 0, 496, 0, 162, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 535, 536, 537, 538, + 539, 540, 541, 542, 543, 0, 0, 0, 41, 544, + 545, 546, 547, 548, 549, 550, 551, 0, 0, 163, + 0, 0, 0, 0, 48, 0, 0, 0, 0, 0, + 0, 0, 497, 498, 499, 500, 501, 502, 503, 504, + 505, 0, 0, 0, 0, 939, 535, 536, 537, 538, + 539, 540, 541, 542, 543, 0, 0, 0, 0, 544, + 545, 546, 547, 548, 549, 550, 551, 535, 536, 537, + 538, 539, 540, 541, 542, 543, 0, 0, 0, 0, 544, 545, 546, 547, 548, 549, 550, 551, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 976 + 0, 0, 0, 0, 0, 966, 0, 0, 0, 0, + 0, 0, 0, 0, 535, 536, 537, 538, 539, 540, + 541, 542, 543, 0, 0, 0, 978, 544, 545, 546, + 547, 548, 549, 550, 551 }; static const yytype_int16 yycheck[] = { - 0, 166, 581, 56, 147, 148, 563, 456, 563, 533, - 474, 655, 563, 444, 445, 705, 464, 465, 467, 592, - 710, 9, 9, 9, 9, 9, 26, 9, 36, 36, - 9, 937, 36, 36, 9, 35, 120, 52, 9, 0, - 9, 36, 126, 650, 17, 120, 36, 47, 36, 513, - 36, 126, 36, 9, 518, 528, 9, 57, 964, 59, - 524, 36, 71, 72, 9, 36, 9, 67, 9, 69, - 976, 71, 72, 46, 74, 0, 76, 684, 78, 9, - 80, 9, 82, 36, 84, 121, 86, 36, 88, 89, - 90, 36, 36, 36, 94, 36, 560, 97, 59, 9, - 100, 26, 102, 10, 269, 120, 36, 116, 36, 274, - 35, 9, 36, 36, 121, 3, 4, 117, 121, 119, - 105, 125, 47, 127, 127, 36, 36, 9, 128, 19, - 118, 119, 57, 121, 59, 135, 118, 119, 36, 127, - 127, 127, 67, 127, 69, 127, 71, 72, 127, 74, - 121, 76, 127, 78, 36, 80, 127, 82, 127, 84, - 717, 86, 717, 88, 89, 90, 717, 3, 4, 94, - 860, 127, 97, 746, 127, 100, 0, 102, 127, 0, - 0, 705, 127, 127, 127, 36, 127, 9, 118, 119, - 36, 639, 117, 125, 119, 36, 840, 127, 121, 630, - 17, 125, 26, 128, 127, 26, 206, 36, 118, 119, - 135, 121, 717, 0, 36, 121, 127, 127, 36, 9, - 118, 119, 36, 47, 41, 17, 47, 36, 52, 127, - 118, 119, 811, 127, 9, 59, 118, 119, 59, 239, - 0, 36, 36, 67, 9, 127, 36, 36, 697, 806, - 36, 806, 36, 0, 36, 806, 125, 402, 127, 732, - 84, 36, 86, 36, 88, 89, 118, 119, 89, 34, - 35, 36, 59, 418, 274, 121, 127, 750, 36, 26, - 121, 127, 118, 119, 125, 36, 127, 36, 761, 54, - 55, 56, 57, 117, 59, 60, 118, 119, 127, 59, - 47, 806, 775, 52, 128, 127, 125, 128, 52, 127, - 58, 135, 59, 127, 135, 105, 780, 51, 127, 783, - 128, 900, 118, 119, 3, 789, 121, 135, 17, 793, - 125, 121, 127, 127, 19, 121, 125, 109, 127, 125, - 804, 127, 89, 127, 121, 127, 25, 121, 121, 274, - 39, 40, 125, 122, 127, 34, 121, 830, 937, 832, - 125, 68, 127, 111, 112, 113, 36, 118, 119, 120, - 121, 120, 121, 0, 118, 119, 120, 36, 604, 17, - 606, 128, 120, 962, 122, 964, 612, 120, 135, 853, - 854, 124, 856, 15, 16, 17, 18, 976, 862, 26, - 38, 39, 402, 120, 124, 878, 85, 124, 87, 882, - 0, 875, 120, 92, 887, 888, 124, 96, 418, 815, - 47, 58, 101, 896, 897, 104, 105, 106, 107, 825, - 36, 827, 59, 36, 898, 114, 26, 116, 120, 118, - 904, 36, 124, 36, 917, 124, 118, 119, 921, 121, - 274, 3, 4, 274, 927, 36, 456, 47, 36, 138, - 118, 119, 89, 121, 36, 3, 4, 467, 120, 59, - 122, 9, 109, 110, 111, 112, 113, 402, 120, 943, - 122, 36, 946, 17, 17, 18, 950, 960, 484, 485, - 486, 487, 488, 418, 3, 4, 34, 35, 36, 89, - 36, 128, 966, 17, 38, 39, 40, 36, 135, 652, - 121, 507, 15, 16, 17, 18, 54, 55, 56, 57, - 120, 59, 60, 19, 38, 39, 40, 274, 528, 582, - 128, 456, 118, 119, 120, 118, 119, 120, 128, 121, - 3, 4, 467, 38, 39, 135, 9, 118, 119, 120, - 118, 119, 120, 120, 9, 117, 118, 119, 121, 0, - 9, 726, 118, 119, 120, 58, 566, 105, 118, 119, - 120, 34, 35, 36, 120, 120, 122, 122, 127, 34, - 35, 36, 9, 121, 19, 26, 0, 125, 120, 127, - 122, 54, 55, 56, 57, 120, 59, 60, 120, 54, - 55, 56, 57, 528, 59, 60, 47, 73, 120, 120, - 122, 122, 26, 120, 9, 122, 121, 122, 59, 121, - 86, 87, 88, 89, 90, 91, 92, 93, 64, 65, - 121, 120, 456, 47, 47, 456, 122, 127, 120, 120, - 98, 566, 105, 467, 122, 59, 467, 274, 89, 17, - 105, 83, 122, 120, 122, 9, 66, 122, 121, 17, - 122, 122, 125, 59, 127, 89, 121, 89, 89, 89, - 125, 89, 127, 89, 89, 89, 236, 89, 89, 148, - 34, 35, 36, 89, 274, 685, 89, 128, 89, 89, - 89, 239, 685, 711, 135, 238, 962, 697, 513, 857, - 54, 55, 56, 57, 528, 59, 60, 528, 9, 456, - 0, 464, 980, 445, 128, 808, 566, 530, 645, 645, - 467, 135, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 732, 34, 35, 36, 26, -1, -1, 563, - 9, -1, 566, -1, -1, 566, -1, -1, -1, -1, - 750, 105, -1, 54, 55, 56, 57, 47, 59, 60, - -1, 761, -1, 816, -1, 34, 35, 121, -1, 59, - -1, 125, 697, 127, -1, 775, -1, -1, -1, -1, - -1, 528, -1, -1, -1, 54, 55, 56, 57, -1, - 59, 60, -1, -1, -1, -1, -1, -1, -1, 89, - -1, -1, -1, -1, 105, -1, -1, 732, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 9, -1, 566, - 121, -1, -1, -1, 125, 750, 127, -1, -1, 456, - 830, -1, 832, 274, -1, -1, 761, -1, 128, -1, - 467, -1, 34, 35, 36, 135, -1, -1, -1, -1, - 775, -1, -1, -1, -1, 0, 125, -1, 127, -1, - 274, -1, 54, 55, 56, 57, 456, 59, 60, -1, - -1, -1, 0, 697, -1, -1, 697, 467, 878, -1, - -1, 26, 882, -1, -1, -1, -1, 887, 888, -1, - -1, -1, -1, 717, -1, -1, 896, 897, 26, -1, - -1, 528, 47, -1, -1, 830, -1, 832, 732, -1, - -1, 732, -1, -1, 59, -1, -1, 917, -1, 47, - -1, 921, -1, -1, -1, -1, 750, 927, -1, 750, - -1, 59, -1, 125, -1, 127, -1, 761, 528, 566, - 761, -1, -1, -1, 89, -1, -1, -1, -1, -1, - 697, 775, -1, 878, 775, -1, -1, 882, -1, -1, - 960, 89, 887, 888, -1, -1, -1, -1, 968, -1, - -1, 896, 897, 9, -1, -1, 566, -1, -1, -1, - 980, -1, 806, 128, 274, 732, -1, -1, -1, -1, - 135, -1, 917, -1, -1, -1, 921, -1, 34, 35, - 128, -1, 927, 750, -1, -1, 830, 135, 832, 830, - -1, 832, -1, -1, 761, 456, -1, -1, 54, 55, - 56, 57, -1, 59, 60, -1, 467, -1, 775, -1, - -1, -1, -1, -1, -1, 960, -1, -1, -1, -1, - -1, -1, 456, 968, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 467, 878, 980, -1, 878, 882, -1, - -1, 882, -1, 887, 888, -1, 887, 888, -1, -1, - 697, -1, 896, 897, -1, 896, 897, -1, -1, -1, - -1, -1, -1, 830, -1, 832, -1, 528, -1, 125, - -1, 127, -1, 917, -1, -1, 917, 921, -1, -1, - 921, -1, -1, 927, -1, 732, 927, 697, -1, -1, - -1, -1, -1, -1, 528, -1, -1, -1, -1, -1, - -1, -1, -1, 750, -1, 566, -1, -1, -1, 274, - -1, 878, -1, -1, 761, 882, 960, -1, -1, 960, - 887, 888, 732, -1, 968, -1, 274, 968, 775, 896, - 897, -1, 566, -1, -1, -1, 980, -1, -1, 980, - 750, 0, -1, -1, -1, -1, 456, -1, -1, -1, - 917, 761, -1, -1, 921, 5, -1, 467, -1, -1, - 927, 11, 12, -1, -1, 775, -1, 26, -1, 0, - -1, -1, 22, 23, 24, -1, 26, -1, -1, 9, - 30, -1, -1, 830, -1, 832, -1, -1, 47, -1, - -1, -1, 42, 960, 44, 26, -1, 47, 48, -1, - 59, 968, 52, 53, 34, 35, 36, -1, -1, -1, - -1, 61, -1, 980, -1, -1, 47, -1, 528, -1, - 830, -1, 832, -1, 54, 55, 56, 57, 59, 59, - 60, 878, -1, 83, -1, 882, 697, -1, -1, -1, - 887, 888, -1, -1, 94, -1, -1, -1, 98, 896, - 897, -1, -1, -1, -1, -1, 566, -1, -1, -1, - -1, -1, -1, 697, -1, -1, -1, -1, 878, 128, - 917, 732, 882, 123, 921, -1, 135, 887, 888, -1, - 927, -1, -1, -1, 9, -1, 896, 897, -1, 750, - -1, 456, -1, -1, -1, 125, -1, 128, 732, -1, - 761, -1, 467, -1, 135, -1, -1, 917, 456, 34, - 35, 921, -1, 960, 775, -1, 750, 927, -1, 467, - -1, 968, 34, 35, -1, -1, -1, 761, -1, 54, - 55, 56, 57, 980, 59, 60, -1, -1, -1, 34, - 35, 775, 54, 55, 56, 57, -1, 59, 60, -1, - 960, -1, -1, -1, -1, -1, -1, 0, 968, 54, - 55, 56, 57, 528, 59, 60, -1, -1, -1, 830, - 980, 832, -1, -1, -1, -1, -1, -1, -1, -1, - 528, -1, -1, 26, -1, -1, -1, 697, -1, -1, - -1, -1, -1, 105, -1, -1, 830, -1, 832, -1, - 125, 566, 127, -1, 47, -1, -1, -1, -1, -1, - -1, -1, -1, 125, -1, 274, 59, 878, 566, -1, - -1, 882, 732, -1, 9, -1, 887, 888, -1, -1, - 125, 0, -1, -1, -1, 896, 897, -1, -1, -1, - 750, -1, -1, 274, 878, -1, -1, -1, 882, 34, - 35, 761, -1, 887, 888, 9, 917, 26, -1, -1, - 921, -1, 896, 897, -1, 775, 927, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, 47, -1, - 34, 35, 36, 917, -1, 128, -1, 921, -1, -1, - 59, -1, 135, 927, -1, -1, -1, -1, -1, 960, - 54, 55, 56, 57, -1, 59, 60, 968, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 980, - 830, -1, 832, -1, -1, -1, 960, -1, -1, -1, - -1, -1, 697, -1, 968, -1, 0, -1, -1, -1, - 125, -1, 127, -1, -1, -1, 980, -1, -1, 697, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 128, - -1, -1, 26, 31, 32, 33, 135, 732, 878, -1, - -1, 125, 882, 9, -1, -1, -1, 887, 888, -1, - -1, 49, 50, 47, 732, 750, 896, 897, -1, -1, - 58, -1, -1, -1, -1, 59, 761, 456, 34, 35, - 36, -1, 750, -1, -1, -1, -1, 917, 467, -1, - 775, 921, -1, 761, -1, -1, -1, 927, 54, 55, - 56, 57, -1, 59, 60, 456, -1, 775, -1, 9, - -1, 274, -1, -1, -1, -1, 467, 105, 106, 107, - 108, 109, 110, 111, 112, 113, -1, 0, -1, -1, - 960, -1, -1, -1, 34, 35, 36, -1, 968, -1, - -1, -1, -1, -1, 128, 830, -1, 832, -1, 528, - 980, 135, -1, 26, 54, 55, 56, 57, -1, 59, - 60, -1, 830, -1, 832, 121, -1, -1, -1, 125, - -1, 127, -1, -1, 47, -1, -1, 528, -1, -1, - -1, -1, -1, -1, -1, 274, 59, 566, -1, -1, - -1, -1, -1, 878, -1, -1, -1, 882, -1, -1, - -1, -1, 887, 888, 0, 105, -1, -1, -1, -1, - 878, 896, 897, -1, 882, 566, -1, -1, -1, 887, - 888, 121, -1, -1, -1, 125, -1, 127, 896, 897, - 26, 9, 917, -1, -1, -1, 921, -1, -1, -1, - -1, -1, 927, -1, -1, -1, -1, -1, -1, 917, - -1, 47, -1, 921, -1, 128, 34, 35, 36, 927, - -1, -1, 135, 59, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 960, 54, 55, 56, 57, - -1, 59, 60, 968, -1, -1, -1, -1, -1, -1, - 274, -1, 960, 456, -1, 980, -1, -1, -1, -1, - 968, -1, -1, -1, 467, -1, -1, -1, -1, -1, - -1, 9, 980, 0, -1, -1, -1, -1, 697, -1, - -1, -1, -1, -1, -1, -1, -1, 105, -1, 0, - -1, -1, 128, -1, -1, -1, 34, 35, 36, 135, - -1, -1, -1, 121, -1, -1, 697, 125, -1, 127, - -1, -1, -1, 732, -1, 26, 54, 55, 56, 57, - -1, 59, 60, -1, -1, 528, 9, 456, -1, -1, - -1, 750, 59, -1, -1, -1, 47, -1, 467, -1, - -1, 732, 761, -1, -1, -1, -1, -1, 59, -1, - -1, 34, 35, 36, -1, -1, 775, -1, -1, 750, - -1, 274, -1, 566, -1, -1, -1, -1, -1, -1, - 761, 54, 55, 56, 57, -1, 59, 60, -1, -1, - -1, -1, -1, -1, 775, -1, -1, 125, -1, 127, - -1, -1, -1, 0, -1, -1, -1, -1, -1, 528, - 9, 128, -1, -1, -1, -1, -1, -1, 135, -1, - -1, 830, -1, 832, -1, -1, -1, 128, -1, 26, - -1, -1, -1, -1, 135, 34, 35, 36, -1, -1, - -1, -1, 456, -1, -1, 9, -1, 566, 274, 830, - 47, 832, 125, 467, 127, 54, 55, 56, 57, -1, - 59, 60, 59, -1, -1, -1, -1, -1, -1, 878, - 34, 35, 36, 882, -1, -1, -1, -1, 887, 888, - -1, -1, -1, -1, -1, -1, -1, 896, 897, -1, - 54, 55, 56, 57, -1, 59, 60, 878, -1, -1, - -1, 882, -1, -1, 697, -1, 887, 888, 917, -1, - -1, -1, 921, -1, 528, 896, 897, -1, 927, -1, - -1, -1, 0, -1, -1, -1, 125, -1, 127, -1, - -1, 128, -1, -1, -1, -1, 917, -1, 135, 732, - 921, -1, -1, -1, 0, -1, 927, -1, 26, -1, - 9, 960, 566, 456, -1, -1, -1, 750, -1, 968, - -1, 125, -1, 127, 467, -1, -1, -1, 761, 47, - -1, 980, -1, 274, -1, 34, 35, 36, 697, 960, - -1, 59, 775, -1, -1, -1, -1, 968, -1, -1, - -1, -1, -1, -1, -1, 54, 55, 56, 57, 980, - 59, 60, -1, 59, 73, 74, 75, 76, 77, 78, - 79, 80, 81, 732, -1, -1, -1, 86, 87, 88, - 89, 90, 91, 92, 93, 528, -1, -1, -1, -1, - 456, 750, -1, -1, -1, -1, -1, 830, -1, 832, - -1, 467, 761, -1, -1, -1, -1, -1, -1, -1, - 128, -1, -1, -1, -1, -1, 775, 135, 127, -1, - -1, -1, -1, 566, -1, -1, 125, -1, 127, -1, - -1, -1, 128, -1, -1, -1, -1, 274, -1, 135, - -1, -1, -1, 697, 0, 878, -1, -1, -1, 882, - -1, -1, -1, -1, 887, 888, -1, -1, -1, -1, - -1, -1, 528, 896, 897, -1, 9, -1, -1, -1, - -1, 830, -1, 832, -1, -1, -1, -1, 732, -1, - -1, -1, -1, -1, 917, -1, -1, -1, 921, -1, - -1, 34, 35, 36, 927, -1, 750, -1, -1, 456, - 566, -1, -1, 59, -1, -1, -1, 761, -1, -1, - 467, 54, 55, 56, 57, 456, 59, 60, -1, 878, - -1, 775, -1, 882, -1, -1, 467, 960, 887, 888, - -1, -1, -1, -1, -1, 968, -1, 896, 897, -1, - -1, -1, -1, 0, -1, -1, -1, 980, -1, -1, - -1, -1, -1, -1, 697, -1, 274, -1, 917, -1, - -1, -1, 921, -1, -1, -1, -1, -1, 927, 27, - 28, 528, 128, 31, 32, 33, 830, -1, 832, 135, - -1, -1, 125, -1, 127, -1, -1, 528, -1, 732, - -1, 49, 50, -1, -1, -1, -1, -1, -1, -1, - 58, 960, 59, -1, -1, -1, -1, 750, -1, 968, - -1, -1, -1, -1, -1, -1, -1, -1, 761, 456, - -1, 980, -1, -1, 878, 566, -1, -1, 882, -1, - 467, 697, 775, 887, 888, -1, -1, -1, -1, -1, - -1, -1, 896, 897, -1, -1, -1, 105, 106, 107, - 108, 109, 110, 111, 112, 113, -1, -1, -1, -1, - -1, -1, 120, 917, -1, -1, 732, 921, -1, -1, - -1, 128, -1, 927, -1, -1, -1, -1, 135, -1, - -1, -1, -1, -1, 750, -1, -1, 830, -1, 832, - -1, 528, -1, -1, 5, 761, -1, -1, -1, -1, - 11, 12, -1, -1, -1, -1, 960, -1, -1, 775, - -1, 22, 23, 24, 968, 26, -1, -1, -1, 30, - -1, -1, -1, -1, -1, -1, 980, -1, -1, 566, - -1, 42, -1, 44, -1, 878, 47, 48, 456, 882, - 697, 52, 53, -1, 887, 888, -1, -1, -1, 467, - 61, -1, -1, 896, 897, -1, 697, -1, -1, -1, - 456, -1, -1, -1, 830, -1, 832, -1, -1, -1, - -1, 467, 83, -1, 917, 732, -1, -1, 921, -1, - -1, -1, -1, 94, 927, -1, -1, 98, -1, -1, - -1, 732, -1, 750, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 761, -1, -1, 118, 119, 750, - 528, -1, 878, -1, -1, -1, 882, 960, 775, -1, - 761, 887, 888, -1, -1, 968, -1, -1, -1, -1, - 896, 897, 528, -1, 775, -1, -1, 980, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 566, -1, - -1, 917, -1, -1, -1, 921, -1, -1, -1, -1, - 697, 927, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 830, -1, 832, -1, -1, -1, -1, - 5, -1, -1, -1, -1, -1, 11, 12, -1, 830, - -1, 832, -1, -1, 960, 732, -1, 22, 23, 24, - 456, 26, 968, -1, -1, 30, -1, -1, -1, -1, - -1, 467, -1, 750, 980, -1, -1, 42, -1, 44, - -1, 878, 47, 48, 761, 882, -1, 52, 53, -1, - 887, 888, -1, -1, -1, -1, 61, 878, 775, 896, - 897, 882, -1, -1, -1, -1, 887, 888, -1, -1, - -1, -1, -1, -1, -1, 896, 897, -1, 83, -1, - 917, -1, -1, -1, 921, -1, -1, -1, -1, 94, - 927, -1, 528, 98, -1, -1, 917, -1, -1, 697, - 921, -1, -1, -1, -1, -1, 927, -1, -1, -1, - -1, -1, 117, 830, -1, 832, -1, -1, -1, 456, - -1, 697, -1, 960, -1, -1, -1, -1, -1, -1, - 467, 968, -1, -1, 732, -1, -1, -1, -1, 960, - -1, -1, -1, 980, -1, -1, -1, 968, -1, -1, - -1, -1, 750, -1, -1, -1, 732, -1, -1, 980, - -1, 878, -1, 761, -1, 882, -1, -1, -1, 5, - 887, 888, -1, -1, 750, 11, 12, 775, -1, 896, - 897, -1, -1, -1, -1, 761, 22, 23, 24, -1, - 26, 528, -1, -1, 30, -1, -1, -1, -1, 775, - 917, -1, -1, -1, 921, -1, 42, -1, 44, -1, - 927, 47, 48, -1, -1, -1, 52, 53, -1, -1, - -1, -1, -1, -1, -1, 61, -1, -1, -1, -1, - -1, -1, 830, -1, 832, -1, -1, -1, -1, -1, - -1, -1, -1, 960, -1, -1, -1, 83, -1, -1, - -1, 968, -1, -1, 830, -1, 832, -1, 94, -1, - -1, 697, 98, 980, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 0, 1, -1, -1, -1, -1, - 878, 117, -1, -1, 882, -1, -1, -1, -1, 887, - 888, -1, -1, -1, -1, -1, 732, -1, 896, 897, - -1, -1, 878, -1, -1, -1, 882, -1, -1, -1, - -1, 887, 888, -1, 750, -1, -1, -1, -1, 917, - 896, 897, -1, 921, -1, 761, -1, -1, -1, 927, - -1, -1, -1, 59, -1, -1, -1, -1, -1, 775, - -1, 917, -1, -1, -1, 921, -1, -1, -1, 27, - 28, 927, -1, 31, 32, 33, -1, -1, -1, -1, - 697, -1, 960, -1, -1, -1, -1, -1, -1, -1, - 968, 49, 50, -1, -1, -1, -1, -1, -1, -1, - 58, -1, 980, -1, 960, -1, -1, -1, -1, -1, - -1, -1, 968, -1, 830, 732, 832, -1, -1, -1, - -1, -1, -1, -1, 980, -1, -1, -1, -1, -1, - -1, -1, -1, 750, -1, -1, -1, -1, 144, -1, - -1, -1, -1, -1, 761, -1, -1, 105, 106, 107, - 108, 109, 110, 111, 112, 113, -1, -1, 775, -1, - 118, 119, 878, 14, 15, 16, 882, -1, -1, -1, - -1, 887, 888, -1, -1, 26, -1, -1, -1, -1, - 896, 897, -1, -1, -1, -1, -1, -1, -1, 40, - -1, 42, 43, -1, -1, 201, 47, 203, -1, -1, - -1, 917, -1, 209, -1, 921, 57, -1, -1, -1, - -1, 927, -1, 830, -1, 832, 67, -1, 69, -1, - 71, 72, -1, 74, -1, 76, -1, 78, -1, 80, - -1, 82, -1, 84, 240, 86, -1, 88, 89, 90, - -1, -1, 248, 94, 960, 251, 97, -1, -1, 100, - -1, 102, 968, -1, -1, -1, -1, -1, -1, -1, - 266, 878, -1, -1, 980, 882, 117, -1, 119, 5, - 887, 888, -1, -1, -1, 11, 12, -1, -1, 896, - 897, 287, -1, -1, -1, -1, 22, 23, 24, -1, - 26, -1, -1, -1, 30, -1, 147, 148, -1, -1, - 917, -1, -1, -1, 921, -1, 42, -1, 44, -1, - 927, 47, 48, -1, -1, 166, 52, 53, -1, -1, - -1, -1, -1, -1, -1, 61, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 71, 72, -1, -1, -1, - -1, -1, -1, 960, -1, -1, -1, 83, -1, -1, - -1, 968, -1, -1, -1, 206, -1, -1, 94, 210, - -1, -1, 98, 980, -1, -1, -1, -1, -1, -1, + 0, 56, 581, 166, 147, 148, 563, 456, 563, 655, + 464, 465, 533, 563, 444, 445, 705, 9, 467, 9, + 592, 710, 9, 3, 4, 717, 26, 71, 72, 36, + 817, 36, 17, 9, 36, 35, 402, 9, 52, 528, + 827, 36, 829, 650, 121, 36, 36, 47, 128, 36, + 127, 9, 418, 36, 9, 135, 9, 57, 121, 59, + 36, 46, 125, 9, 36, 36, 36, 67, 9, 69, + 9, 71, 72, 117, 74, 0, 76, 684, 78, 9, + 80, 36, 82, 36, 84, 9, 86, 122, 88, 89, + 90, 36, 36, 9, 94, 36, 36, 97, 9, 36, + 100, 26, 102, 9, 474, 36, 269, 121, 10, 9, + 35, 274, 36, 36, 106, 122, 808, 117, 9, 119, + 36, 9, 47, 128, 126, 36, 128, 122, 128, 36, + 36, 126, 57, 128, 59, 135, 36, 128, 128, 119, + 120, 128, 67, 513, 69, 36, 71, 72, 518, 74, + 122, 76, 128, 78, 524, 80, 128, 82, 128, 84, + 717, 86, 717, 88, 89, 90, 9, 717, 122, 94, + 128, 0, 97, 862, 746, 100, 0, 102, 119, 120, + 3, 122, 128, 128, 705, 639, 126, 128, 128, 128, + 560, 128, 117, 36, 119, 126, 842, 26, 128, 9, + 630, 52, 25, 128, 128, 128, 206, 0, 119, 120, + 135, 34, 128, 119, 120, 9, 122, 128, 47, 119, + 120, 128, 128, 52, 34, 35, 36, 36, 128, 19, + 59, 119, 120, 26, 813, 36, 9, 128, 67, 239, + 128, 36, 36, 732, 54, 55, 56, 57, 697, 59, + 60, 808, 36, 808, 47, 84, 126, 86, 808, 88, + 89, 750, 85, 36, 87, 0, 59, 3, 4, 92, + 121, 36, 761, 96, 274, 939, 119, 120, 101, 36, + 9, 104, 105, 106, 107, 128, 17, 776, 117, 36, + 36, 114, 0, 116, 36, 118, 89, 36, 58, 128, + 0, 124, 966, 0, 121, 121, 135, 36, 125, 128, + 41, 127, 122, 122, 978, 138, 126, 126, 128, 128, + 126, 122, 9, 902, 59, 119, 120, 128, 17, 26, + 36, 0, 121, 128, 128, 128, 125, 36, 122, 119, + 120, 121, 135, 832, 128, 834, 52, 34, 35, 274, + 47, 59, 112, 113, 114, 128, 604, 26, 606, 59, + 939, 51, 59, 128, 612, 122, 19, 54, 55, 56, + 57, 128, 59, 60, 17, 122, 122, 106, 47, 126, + 126, 128, 128, 119, 120, 964, 128, 966, 122, 128, + 59, 880, 89, 122, 121, 884, 39, 40, 125, 978, + 889, 890, 402, 119, 120, 121, 0, 17, 122, 898, + 899, 781, 119, 120, 784, 121, 122, 126, 418, 128, + 89, 791, 118, 119, 120, 795, 34, 35, 38, 39, + 919, 128, 26, 121, 923, 123, 806, 110, 135, 126, + 929, 128, 119, 120, 121, 274, 54, 55, 56, 57, + 68, 59, 60, 47, 119, 120, 456, 17, 121, 128, + 123, 17, 36, 3, 4, 59, 135, 467, 123, 3, + 4, 119, 120, 962, 122, 9, 125, 402, 38, 39, + 40, 274, 38, 39, 40, 855, 856, 121, 858, 123, + 36, 34, 35, 418, 864, 89, 122, 58, 106, 36, + 34, 35, 36, 15, 16, 17, 18, 877, 121, 652, + 123, 54, 55, 56, 57, 36, 59, 60, 126, 36, + 54, 55, 56, 57, 121, 59, 60, 582, 528, 19, + 900, 456, 119, 120, 128, 122, 906, 5, 119, 120, + 121, 135, 467, 11, 12, 119, 120, 121, 122, 110, + 111, 112, 113, 114, 22, 23, 24, 121, 26, 123, + 17, 18, 30, 726, 36, 0, 566, 484, 485, 486, + 487, 488, 106, 36, 42, 945, 44, 274, 948, 47, + 48, 36, 952, 126, 52, 53, 3, 4, 122, 36, + 507, 26, 126, 61, 128, 119, 120, 121, 968, 15, + 16, 17, 18, 528, 129, 274, 119, 120, 121, 38, + 39, 121, 47, 123, 121, 83, 123, 36, 121, 0, + 123, 121, 36, 123, 59, 9, 94, 456, 122, 123, + 36, 99, 64, 65, 36, 121, 9, 122, 467, 122, + 128, 566, 9, 58, 9, 26, 121, 19, 121, 9, + 34, 35, 36, 122, 89, 122, 124, 128, 47, 3, + 4, 34, 35, 456, 123, 9, 47, 121, 121, 121, + 54, 55, 56, 57, 467, 59, 60, 123, 59, 9, + 274, 54, 55, 56, 57, 685, 59, 60, 99, 17, + 34, 35, 36, 128, 17, 83, 123, 697, 121, 528, + 135, 123, 123, 123, 34, 35, 36, 66, 89, 59, + 54, 55, 56, 57, 123, 59, 60, 684, 89, 89, + 89, 89, 106, 89, 54, 55, 56, 57, 89, 59, + 60, 89, 732, 89, 563, 528, 89, 566, 122, 236, + 89, 89, 126, 89, 128, 148, 89, 128, 89, 685, + 750, 513, 239, 126, 135, 128, 238, 964, 859, 456, + 711, 761, 106, 818, 9, 445, 464, 982, 566, 810, + 467, 645, 697, 566, 645, 530, 776, -1, 122, -1, + -1, -1, 126, -1, 128, -1, 73, 456, -1, 34, + 35, 36, -1, -1, -1, -1, 126, 9, 467, 86, + 87, 88, 89, 90, 91, 92, 93, 732, -1, 54, + 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, + -1, -1, 34, 35, 36, 750, -1, -1, -1, -1, + -1, 528, 832, -1, 834, -1, 761, -1, -1, 274, + -1, -1, 54, 55, 56, 57, -1, 59, 60, -1, + -1, 776, -1, 0, -1, -1, -1, -1, -1, 528, + -1, 106, 456, -1, -1, -1, -1, -1, 697, 566, + -1, -1, -1, 467, -1, -1, -1, 122, -1, 26, + 880, 126, -1, 128, 884, -1, -1, -1, 717, 889, + 890, -1, -1, 274, 106, -1, -1, 566, 898, 899, + 47, -1, -1, 732, 697, -1, -1, 832, -1, 834, + 122, -1, 59, -1, 126, -1, 128, -1, -1, 919, + -1, 750, -1, 923, -1, -1, -1, -1, -1, 929, + -1, -1, 761, -1, 528, -1, -1, -1, -1, 732, + -1, -1, 89, -1, -1, -1, -1, 776, -1, 0, + -1, -1, -1, -1, -1, 880, -1, 750, -1, 884, + -1, -1, 962, -1, 889, 890, -1, -1, 761, -1, + 970, -1, 566, 898, 899, 26, -1, -1, -1, 808, + -1, 128, 982, 776, -1, -1, -1, -1, 135, -1, + -1, -1, -1, -1, 919, -1, 47, -1, 923, -1, + 697, -1, -1, 832, 929, 834, -1, -1, 59, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 116, -1, -1, -1, -1, 121, 237, 238, 239, -1, - 5, -1, 7, 8, -1, 10, 11, 12, 13, -1, - -1, -1, -1, 254, 19, 20, 21, 22, 23, 24, - -1, 26, -1, -1, -1, 30, -1, -1, 269, -1, - -1, -1, -1, 274, -1, -1, -1, 42, -1, 44, - -1, -1, 47, 48, 440, -1, 51, 52, 53, -1, - -1, -1, 293, 294, -1, -1, 61, -1, -1, -1, - -1, -1, -1, -1, 69, -1, 71, 72, -1, 27, - 466, -1, -1, 31, 32, 33, 472, -1, 83, 475, - -1, 477, -1, -1, -1, -1, -1, -1, -1, 94, - 95, 49, 50, 98, -1, -1, 101, -1, -1, -1, - 58, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 506, 116, 508, -1, -1, -1, 121, -1, 123, -1, - 125, -1, -1, 519, -1, -1, -1, -1, -1, 525, - 526, -1, -1, 529, -1, 531, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 105, 106, 107, - 108, 109, 110, 111, 112, 113, -1, -1, -1, -1, - -1, 402, 558, -1, -1, -1, -1, -1, -1, -1, - -1, 567, -1, -1, -1, -1, -1, 418, -1, -1, + -1, 456, -1, -1, 0, -1, -1, -1, 697, -1, + -1, -1, 467, -1, -1, 732, -1, 962, 89, 832, + -1, 834, -1, -1, -1, 970, -1, -1, -1, -1, + 26, 880, -1, 750, -1, 884, -1, 982, -1, -1, + 889, 890, -1, 732, 761, -1, -1, -1, -1, 898, + 899, 47, -1, -1, -1, 456, -1, 128, -1, 776, + -1, 750, -1, 59, 135, -1, 467, 880, -1, -1, + 919, 884, 761, 528, 923, -1, 889, 890, -1, -1, + 929, -1, -1, 697, -1, 898, 899, 776, -1, -1, + -1, -1, -1, 89, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 9, 919, 274, -1, -1, + 923, 566, -1, 962, -1, 832, 929, 834, 732, -1, + -1, 970, -1, -1, -1, -1, -1, 528, 0, -1, + 34, 35, 128, 982, -1, -1, 750, -1, -1, 135, + -1, -1, -1, 832, -1, 834, -1, 761, -1, 962, + 54, 55, 56, 57, 26, 59, 60, 970, -1, -1, + -1, -1, 776, 880, 0, 566, -1, 884, -1, 982, + -1, -1, 889, 890, -1, 47, -1, -1, -1, -1, + -1, 898, 899, -1, -1, -1, -1, 59, -1, -1, + 26, 880, -1, -1, -1, 884, -1, -1, -1, -1, + 889, 890, 919, 274, -1, -1, 923, -1, -1, 898, + 899, 47, 929, -1, -1, -1, -1, -1, 832, -1, + 834, -1, 126, 59, 128, -1, -1, -1, -1, -1, + 919, -1, -1, -1, 923, -1, -1, -1, -1, -1, + 929, -1, 697, -1, -1, 962, -1, -1, -1, -1, + -1, -1, -1, 970, -1, -1, 128, -1, -1, -1, + 0, -1, -1, 135, -1, 982, 880, -1, -1, -1, + 884, -1, -1, 962, -1, 889, 890, 732, 274, -1, + -1, 970, -1, -1, 898, 899, 26, -1, 0, 456, + -1, 9, 128, 982, -1, 750, 697, -1, -1, 135, + 467, -1, -1, -1, -1, 919, 761, 47, -1, 923, + -1, -1, -1, -1, 26, 929, 34, 35, 36, 59, + -1, 776, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 732, -1, -1, -1, 47, 54, 55, 56, 57, + -1, 59, 60, -1, -1, -1, -1, 59, 962, 750, + -1, -1, -1, -1, -1, -1, 970, -1, -1, -1, + 761, 528, -1, -1, -1, -1, -1, 9, 982, -1, + -1, 31, 32, 33, -1, 776, -1, 832, -1, 834, + -1, -1, -1, -1, -1, 456, -1, -1, 128, 49, + 50, -1, 34, 35, 36, 135, 467, -1, 58, 566, + -1, -1, 274, -1, 122, -1, -1, -1, 126, -1, + 128, -1, 54, 55, 56, 57, 128, 59, 60, -1, + -1, -1, -1, 135, -1, 880, -1, -1, -1, 884, + -1, 832, -1, 834, 889, 890, -1, -1, 274, -1, + -1, -1, -1, 898, 899, -1, 106, 107, 108, 109, + 110, 111, 112, 113, 114, 9, -1, 528, -1, -1, + 456, -1, -1, -1, 919, 0, -1, -1, 923, -1, + -1, 467, -1, -1, 929, -1, -1, -1, -1, 880, + 34, 35, 36, 884, 126, -1, 128, -1, 889, 890, + -1, 26, -1, -1, 9, 566, -1, 898, 899, -1, + 54, 55, 56, 57, -1, 59, 60, 962, -1, -1, + -1, -1, 47, -1, -1, 970, -1, -1, 919, 34, + 35, 36, 923, -1, 59, -1, -1, 982, 929, -1, + 697, -1, 528, -1, 274, -1, -1, -1, -1, 54, + 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, + -1, -1, 106, -1, -1, -1, -1, -1, -1, -1, + -1, 962, 274, -1, -1, 732, -1, -1, 122, 970, + 566, 9, 126, -1, 128, -1, 0, -1, -1, -1, + -1, 982, -1, 750, 456, -1, -1, -1, -1, -1, + -1, 106, -1, 128, 761, 467, 34, 35, 36, -1, + 135, -1, 26, -1, -1, -1, -1, 122, -1, 776, + -1, 126, -1, 128, -1, -1, 54, 55, 56, 57, + 456, 59, 60, 47, 9, -1, 697, -1, -1, -1, + -1, 467, -1, -1, -1, 59, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 34, + 35, 36, -1, -1, -1, -1, 528, -1, -1, -1, + -1, 732, -1, -1, -1, 832, -1, 834, -1, 54, + 55, 56, 57, -1, 59, 60, -1, -1, -1, 750, + -1, -1, -1, -1, -1, -1, -1, -1, 126, -1, + 761, -1, 528, -1, 566, -1, -1, -1, -1, -1, + -1, 697, -1, -1, 128, 776, -1, -1, -1, 0, + -1, 135, -1, 880, -1, -1, 456, 884, -1, -1, + -1, -1, 889, 890, -1, -1, -1, 467, -1, -1, + 566, 898, 899, -1, -1, -1, 732, -1, -1, 274, + -1, 126, -1, 128, 456, -1, 9, -1, -1, -1, + -1, -1, 919, -1, 750, 467, 923, -1, -1, -1, + -1, 832, 929, 834, -1, 761, -1, -1, 59, -1, + -1, 34, 35, 36, -1, -1, -1, -1, -1, -1, + 776, -1, -1, -1, 0, -1, -1, -1, 528, -1, + -1, 54, 55, 56, 57, 962, 59, 60, -1, -1, + -1, -1, -1, 970, -1, -1, -1, -1, -1, 880, + 26, -1, -1, 884, -1, 982, 528, -1, 889, 890, + -1, -1, -1, -1, -1, 697, 566, 898, 899, -1, + -1, 47, -1, -1, -1, -1, 832, 128, 834, -1, + -1, -1, -1, 59, 135, -1, -1, -1, 919, -1, + 274, -1, 923, -1, 566, -1, -1, -1, 929, -1, + 732, 697, -1, 126, -1, 128, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 750, -1, + -1, -1, -1, -1, 880, -1, -1, -1, 884, 761, + -1, 962, -1, 889, 890, -1, 732, -1, -1, 970, + -1, -1, 898, 899, 776, 9, -1, -1, -1, -1, + -1, 982, 128, -1, 750, -1, -1, -1, -1, 135, + -1, 456, -1, 919, -1, 761, -1, 923, -1, -1, + 34, 35, 467, 929, -1, -1, -1, -1, -1, -1, + 776, -1, -1, -1, 0, -1, -1, -1, -1, -1, + 54, 55, 56, 57, 9, 59, 60, 697, -1, -1, + 832, -1, 834, -1, -1, -1, 962, -1, -1, -1, + 26, -1, -1, -1, 970, -1, -1, -1, -1, 34, + 35, 36, -1, -1, -1, 697, 982, -1, -1, -1, + -1, 47, 732, 528, -1, -1, 832, -1, 834, 54, + 55, 56, 57, 59, 59, 60, -1, -1, 880, -1, + 750, -1, 884, -1, -1, -1, -1, 889, 890, -1, + 732, 761, 126, -1, 128, -1, 898, 899, -1, -1, + -1, 566, 456, -1, -1, -1, 776, -1, 750, -1, + -1, -1, -1, 467, 880, -1, -1, 919, 884, 761, + -1, 923, -1, 889, 890, -1, 0, 929, 274, -1, + -1, -1, 898, 899, 776, -1, -1, -1, -1, -1, + -1, 126, 128, 128, -1, -1, -1, -1, -1, 135, + -1, -1, 26, 919, -1, -1, -1, 923, -1, -1, + 962, -1, 832, 929, 834, -1, -1, -1, 970, -1, + -1, -1, -1, 47, 528, -1, 9, -1, -1, -1, + 982, -1, -1, -1, -1, 59, -1, -1, -1, -1, + 832, -1, 834, -1, -1, -1, 962, -1, -1, -1, + -1, 34, 35, 36, 970, -1, -1, -1, -1, -1, + 880, -1, 566, -1, 884, -1, 982, -1, 9, 889, + 890, 54, 55, 56, 57, 9, 59, 60, 898, 899, + -1, -1, 697, -1, -1, 456, -1, -1, 880, -1, + -1, -1, 884, 34, 35, 36, 467, 889, 890, 919, + 34, 35, 36, 923, 128, -1, 898, 899, -1, 929, + -1, 135, -1, 54, 55, 56, 57, 732, 59, 60, + 54, 55, 56, 57, -1, 59, 60, 919, -1, -1, + -1, 923, -1, -1, -1, 750, -1, 929, 274, -1, + -1, -1, 962, 126, -1, 128, 761, -1, -1, -1, + 970, -1, -1, 0, -1, -1, -1, 528, -1, -1, + 456, 776, 982, -1, -1, -1, -1, -1, -1, -1, + 962, 467, -1, -1, -1, 0, -1, -1, 970, 26, + -1, -1, -1, -1, -1, 126, -1, 128, -1, -1, + 982, -1, 126, 697, 128, -1, -1, -1, -1, -1, + 47, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 59, -1, -1, -1, -1, 832, -1, 834, + -1, -1, -1, -1, -1, -1, -1, -1, 732, -1, + -1, -1, 528, -1, 59, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 750, -1, -1, -1, + 274, -1, -1, -1, -1, -1, -1, 761, -1, -1, + -1, -1, -1, -1, -1, 880, -1, -1, -1, 884, + 566, -1, 776, -1, 889, 890, -1, -1, 0, -1, + -1, 128, -1, 898, 899, -1, -1, -1, 135, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 128, 919, -1, -1, -1, 923, -1, + 135, -1, -1, -1, 929, 5, -1, -1, -1, -1, + 456, 11, 12, -1, -1, -1, 697, -1, 832, -1, + 834, 467, 22, 23, 24, -1, 26, 59, -1, -1, + 30, -1, -1, -1, -1, -1, -1, 962, -1, -1, + -1, -1, 42, 0, 44, 970, -1, 47, 48, -1, + -1, 732, 52, 53, -1, -1, -1, 982, -1, -1, + -1, 61, -1, -1, -1, -1, 880, -1, -1, 750, + 884, -1, -1, -1, -1, 889, 890, -1, -1, -1, + 761, -1, 528, 83, 898, 899, -1, -1, -1, -1, + -1, 697, -1, -1, 94, 776, 128, -1, -1, 99, + -1, -1, 59, 135, -1, 919, -1, -1, -1, 923, + -1, -1, -1, -1, -1, 929, -1, 274, 118, -1, + 566, -1, 456, -1, -1, -1, 732, -1, -1, -1, + -1, -1, -1, 467, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 750, -1, -1, -1, 962, -1, + -1, 832, -1, 834, -1, 761, 970, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 982, -1, + 776, 128, -1, -1, -1, -1, -1, -1, 135, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 9, + -1, -1, -1, -1, 528, -1, -1, -1, -1, 880, + -1, -1, -1, 884, -1, -1, -1, -1, 889, 890, + -1, -1, -1, -1, 34, 35, 36, 898, 899, -1, + -1, -1, -1, -1, -1, -1, 832, -1, 834, -1, + -1, -1, 566, -1, 54, 55, 56, 57, 919, 59, + 60, -1, 923, -1, -1, -1, -1, -1, 929, -1, + -1, 697, -1, 73, 74, 75, 76, 77, 78, 79, + 80, 81, -1, -1, -1, -1, 86, 87, 88, 89, + 90, 91, 92, 93, 880, -1, -1, -1, 884, -1, + -1, 962, -1, 889, 890, -1, 732, -1, -1, 970, + -1, -1, 898, 899, -1, -1, -1, -1, -1, 456, + -1, 982, 122, -1, 750, -1, 126, -1, 128, -1, + 467, -1, -1, 919, -1, 761, -1, 923, 5, -1, + -1, 456, -1, 929, 11, 12, -1, -1, -1, -1, + 776, -1, 467, -1, -1, 22, 23, 24, -1, 26, + -1, -1, -1, 30, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 42, 962, 44, -1, -1, + 47, 48, -1, 697, 970, 52, 53, -1, -1, -1, + -1, 528, -1, -1, 61, -1, 982, 27, 28, -1, + -1, 31, 32, 33, -1, -1, 832, -1, 834, -1, + -1, -1, -1, 528, -1, -1, 83, -1, 732, 49, + 50, -1, -1, -1, -1, -1, -1, 94, 58, 566, + -1, -1, 99, -1, -1, -1, 750, -1, -1, -1, + -1, -1, -1, -1, 456, -1, -1, 761, -1, -1, + -1, -1, 119, 120, 880, 467, -1, -1, 884, -1, + -1, -1, 776, 889, 890, -1, -1, -1, -1, -1, + -1, -1, 898, 899, -1, -1, 106, 107, 108, 109, + 110, 111, 112, 113, 114, -1, -1, -1, -1, -1, + -1, 121, -1, 919, -1, -1, -1, 923, -1, -1, + 0, 1, -1, 929, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 528, 27, 832, 456, + 834, 31, 32, 33, -1, -1, -1, -1, -1, -1, + 467, -1, -1, -1, -1, -1, 962, -1, -1, 49, + 50, -1, -1, -1, 970, -1, 27, 28, 58, -1, + 31, 32, 33, -1, -1, -1, 982, -1, -1, 59, + 697, -1, -1, -1, -1, -1, 880, -1, 49, 50, + 884, -1, -1, -1, -1, 889, 890, 58, -1, -1, + -1, -1, 697, -1, 898, 899, -1, -1, -1, -1, + -1, 528, -1, -1, -1, 732, 106, 107, 108, 109, + 110, 111, 112, 113, 114, 919, -1, -1, -1, 923, + -1, -1, -1, 750, -1, 929, -1, 732, -1, -1, + -1, -1, -1, 104, 761, 106, 107, 108, 109, 110, + 111, 112, 113, 114, 5, 750, -1, -1, -1, 776, + 11, 12, -1, -1, 144, -1, 761, -1, 962, -1, + -1, 22, 23, 24, -1, 26, 970, -1, -1, 30, + -1, 776, -1, -1, -1, -1, -1, -1, 982, -1, + -1, 42, -1, 44, -1, -1, 47, 48, -1, -1, + -1, 52, 53, -1, -1, 697, -1, -1, -1, -1, + 61, -1, -1, -1, -1, 832, -1, 834, -1, -1, + -1, 201, -1, 203, -1, -1, -1, -1, -1, 209, + -1, -1, 83, -1, -1, -1, -1, 832, -1, 834, + 732, -1, -1, 94, -1, -1, -1, -1, 99, -1, + -1, -1, 103, -1, -1, -1, -1, -1, 750, -1, + 240, -1, -1, 880, -1, -1, -1, 884, 248, 761, + -1, 251, 889, 890, -1, -1, -1, -1, -1, -1, + 697, 898, 899, -1, 776, 880, 266, -1, -1, 884, + -1, -1, -1, -1, 889, 890, -1, -1, -1, -1, + -1, -1, 919, 898, 899, -1, 923, 287, -1, -1, + -1, -1, 929, -1, -1, 732, -1, -1, -1, -1, + -1, -1, -1, -1, 919, -1, -1, -1, 923, -1, + -1, -1, -1, 750, 929, -1, -1, -1, -1, -1, + 832, -1, 834, -1, 761, 962, -1, -1, -1, -1, + -1, -1, -1, 970, -1, -1, -1, -1, -1, 776, + -1, -1, -1, -1, -1, 982, -1, 962, -1, -1, + -1, -1, -1, -1, 9, 970, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 982, 880, -1, + -1, -1, 884, -1, -1, -1, -1, 889, 890, 34, + 35, 36, -1, -1, -1, -1, 898, 899, -1, -1, + -1, -1, -1, -1, -1, 832, -1, 834, -1, 54, + 55, 56, 57, -1, 59, 60, -1, 919, -1, -1, + -1, 923, -1, -1, -1, -1, -1, 929, 73, 74, + 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, + -1, 86, 87, 88, 89, 90, 91, 92, 93, -1, + 440, -1, -1, 880, -1, -1, -1, 884, -1, -1, + 962, -1, 889, 890, -1, -1, -1, -1, 970, -1, + -1, 898, 899, -1, -1, -1, 466, -1, -1, -1, + 982, 126, 472, 128, -1, 475, -1, 477, -1, -1, + -1, -1, 919, -1, -1, -1, 923, -1, -1, 14, + 15, 16, 929, -1, -1, -1, -1, -1, -1, -1, + -1, 26, -1, -1, -1, -1, 506, -1, 508, -1, + -1, -1, -1, -1, -1, 40, -1, 42, 43, 519, + -1, -1, 47, -1, -1, 962, 526, -1, -1, 529, + -1, 531, 57, 970, -1, -1, -1, -1, -1, -1, + -1, -1, 67, -1, 69, 982, 71, 72, -1, 74, + -1, 76, -1, 78, -1, 80, -1, 82, 558, 84, + -1, 86, -1, 88, 89, 90, -1, 567, -1, 94, + -1, -1, 97, -1, -1, 100, 69, 102, 71, 72, + -1, 74, -1, 76, -1, 78, -1, 80, -1, 82, + -1, 84, 117, 86, 119, 88, 89, 90, -1, -1, + -1, 94, -1, -1, 97, -1, -1, 100, -1, 102, + -1, -1, -1, 5, -1, 7, 8, -1, 10, 11, + 12, 13, 147, 148, 117, -1, 119, 19, 20, 21, + 22, 23, 24, -1, 26, -1, 636, 29, 30, -1, + -1, 166, 34, 35, -1, -1, -1, -1, -1, -1, + 42, -1, 44, -1, -1, 47, 48, -1, -1, 51, + 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, + -1, -1, -1, -1, -1, -1, -1, 69, -1, 71, + 72, 206, -1, -1, -1, 210, 686, -1, -1, -1, + -1, 83, -1, -1, 694, -1, 696, -1, -1, -1, + -1, -1, 94, 95, -1, 705, -1, 99, -1, -1, + 102, 103, 237, 238, 239, -1, -1, -1, 110, 111, + -1, -1, -1, -1, -1, 117, 118, -1, -1, 254, + 122, -1, 124, -1, 126, -1, -1, -1, -1, 739, + -1, 741, -1, -1, 269, -1, -1, -1, -1, 274, + -1, 751, -1, -1, 754, 755, 756, -1, -1, -1, + 760, -1, -1, 763, -1, -1, -1, -1, 293, 294, + -1, -1, -1, -1, -1, 5, -1, 7, 8, -1, + 10, 11, 12, 13, -1, -1, -1, -1, 788, 19, + 20, 21, 22, 23, 24, -1, 26, -1, -1, 29, + 30, -1, -1, -1, 34, 35, -1, -1, -1, -1, + -1, -1, 42, -1, 44, -1, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, 826, -1, -1, -1, + -1, 61, -1, 833, -1, -1, 836, -1, -1, 69, + -1, 71, 72, -1, 27, 28, -1, -1, 31, 32, + 33, 851, 852, 83, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 863, 94, 95, 49, 50, -1, 99, + -1, -1, 102, 103, 104, 58, -1, 402, -1, -1, + 110, 111, -1, -1, -1, -1, -1, 117, 118, -1, + -1, 891, 122, 418, 124, -1, 126, -1, -1, -1, + -1, -1, -1, -1, 904, -1, -1, -1, -1, -1, + -1, -1, -1, 913, 914, -1, -1, 917, -1, -1, + 920, 921, -1, 106, 107, 108, 109, 110, 111, 112, + 113, 114, -1, -1, -1, -1, 936, -1, 73, 74, + 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, + -1, 86, 87, 88, 89, 90, 91, 92, 93, -1, + 960, 65, 66, -1, 68, -1, 70, -1, -1, 73, + -1, 75, -1, 77, -1, -1, -1, 81, -1, 83, + -1, -1, -1, 87, 509, -1, 511, 91, 92, -1, + -1, -1, 96, 128, 98, -1, -1, 101, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 533, -1, + -1, 115, 116, 538, 118, -1, -1, -1, -1, -1, + -1, -1, 547, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 563, -1, + -1, 566, -1, -1, 10, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 20, 21, -1, -1, -1, -1, + -1, -1, -1, 167, 168, 169, 170, 171, 172, 173, + -1, 175, 176, -1, 178, 179, 180, -1, 182, -1, + 184, 185, -1, -1, 50, -1, -1, -1, -1, 55, + 56, -1, -1, 197, 198, 199, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 632, 633, 213, + 214, 215, 216, 217, 218, 219, -1, 221, 222, -1, + 224, 225, 226, -1, 228, 229, 230, 652, -1, 233, + 234, 235, 73, 74, 75, 76, 77, 78, 79, 80, + 81, -1, -1, -1, -1, 86, 87, 88, 89, 90, + 91, 92, 93, -1, 258, 259, -1, 261, 262, -1, + 685, -1, -1, 688, -1, 131, -1, 692, 693, -1, + -1, -1, -1, -1, -1, -1, 142, -1, 703, -1, + 705, 122, -1, 149, -1, 710, 711, -1, -1, -1, + 156, 716, 717, -1, -1, -1, -1, -1, 164, 165, + -1, 726, -1, -1, -1, -1, 5, -1, 7, 8, + -1, 10, 11, 12, 13, -1, -1, -1, -1, -1, + 19, 20, 21, 22, 23, 24, -1, 26, -1, -1, + 29, 30, -1, -1, -1, 34, 35, -1, -1, -1, + -1, -1, -1, 42, -1, 44, -1, -1, 47, 48, + -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, + -1, -1, 61, 367, 789, 790, -1, -1, -1, -1, + 69, -1, 71, 72, -1, 241, -1, -1, -1, -1, + -1, -1, -1, 808, 83, -1, -1, -1, -1, -1, + 815, -1, 817, -1, -1, 94, 95, -1, -1, 265, + 99, 267, 827, 102, 829, -1, -1, -1, -1, -1, + -1, 110, 111, -1, -1, -1, -1, -1, 117, 118, + -1, -1, 121, 122, 849, 124, -1, 126, -1, 854, + -1, 297, 298, -1, 859, 301, -1, 862, -1, -1, + -1, -1, 308, -1, -1, -1, 312, -1, -1, -1, + -1, 317, -1, -1, -1, 321, -1, -1, -1, 325, + -1, -1, -1, 329, -1, -1, 332, -1, -1, -1, + 336, -1, -1, -1, 340, -1, -1, -1, -1, -1, + 905, 347, -1, 908, -1, -1, 5, -1, -1, -1, + 915, -1, 11, 12, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 22, 23, 24, -1, 26, -1, -1, + -1, 30, -1, -1, -1, -1, -1, -1, -1, 385, + -1, 387, 947, 42, 390, 44, -1, 393, 47, 48, + -1, -1, 398, 52, 53, 27, 28, -1, 404, 31, + 32, 33, 61, -1, -1, 411, 412, 413, 414, 415, + 416, 417, 71, 72, -1, -1, -1, 49, 50, 425, + 985, 986, 428, -1, 83, -1, 58, -1, 434, -1, + -1, 575, -1, -1, 578, 94, -1, -1, -1, -1, + 99, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 117, -1, + -1, -1, -1, 122, -1, -1, -1, -1, -1, -1, + -1, -1, 104, -1, 106, 107, 108, 109, 110, 111, + 112, 113, 114, 489, 490, 491, 492, 493, 494, 495, + 496, 497, 498, 499, 500, 501, 502, 503, 504, 505, 0, 1, -1, 3, 4, 5, 6, 7, 8, -1, - 10, 11, 12, 13, 14, -1, -1, -1, -1, 19, + 10, 11, 12, 13, 14, -1, 522, -1, -1, 19, + 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, + 30, -1, -1, -1, 34, 35, -1, 37, -1, -1, + -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, 563, -1, 565, + -1, 61, 62, 63, 570, -1, -1, 67, -1, 69, + 70, 71, 72, 579, -1, -1, -1, -1, -1, 723, + -1, -1, 82, 83, 84, 85, 592, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, 97, 98, 99, + 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 117, -1, 119, + 120, 627, 122, -1, 124, -1, 126, -1, -1, 635, + -1, -1, -1, -1, -1, -1, -1, 643, 5, -1, + 7, 8, 648, 10, 11, 12, 13, -1, -1, -1, + -1, -1, 19, 20, 21, 22, 23, 24, -1, 26, + -1, -1, 29, 30, -1, -1, -1, 34, 35, -1, + -1, -1, -1, -1, -1, 42, -1, 44, -1, -1, + 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, + -1, -1, -1, -1, 61, -1, -1, -1, -1, -1, + -1, -1, 69, -1, 71, 72, -1, -1, -1, 715, + -1, 717, -1, -1, -1, -1, 83, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 94, 95, -1, + -1, -1, 99, -1, -1, 102, 103, -1, -1, -1, + 746, -1, -1, 110, 111, -1, 752, -1, 9, -1, + 117, 118, 758, -1, -1, 122, -1, 124, 764, 126, + -1, -1, -1, -1, -1, -1, 772, -1, -1, -1, + -1, 777, -1, 34, 35, 36, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 54, 55, 56, 57, -1, 59, 60, + -1, -1, 808, -1, 810, -1, -1, -1, -1, -1, + -1, -1, 73, 74, 75, 76, 77, 78, 79, 80, + 81, -1, -1, -1, -1, 86, 87, 88, 89, 90, + 91, 92, 93, -1, -1, 841, -1, -1, -1, -1, + 846, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 0, 1, -1, 3, 4, 5, 6, 7, 8, 865, + 10, 11, 12, 13, 14, 126, -1, 128, -1, 19, + 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, + 30, -1, -1, -1, 34, 35, 892, 37, -1, -1, + -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, 62, 63, -1, -1, -1, 67, -1, 69, + 70, 71, 72, -1, -1, -1, 932, -1, -1, -1, + -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, 97, 98, 99, + 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 117, -1, 119, + 120, -1, 122, -1, 124, 1, 126, 3, 4, 5, + 6, 7, 8, -1, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, + -1, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, -1, -1, 51, 52, 53, -1, -1, + -1, -1, -1, -1, -1, 61, 62, 63, 64, 65, + 66, 67, -1, 69, 70, 71, 72, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 82, 83, 84, 85, + -1, -1, -1, -1, -1, -1, -1, -1, 94, 95, + -1, 97, 98, 99, 100, 101, 102, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 117, -1, 119, 120, -1, 122, -1, 124, 1, + 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, + 12, 13, 14, -1, -1, 17, -1, 19, 20, 21, + 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, + -1, -1, 34, 35, -1, 37, 38, 39, 40, -1, + 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, + 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, + 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, + 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, + -1, -1, 94, 95, -1, 97, 98, 99, 100, 101, + 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 117, -1, 119, 120, -1, + 122, -1, 124, 1, 126, 3, 4, 5, 6, 7, + 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, + -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, + -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, + 38, 39, 40, -1, 42, 43, 44, 45, -1, 47, + 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, + -1, -1, -1, 61, 62, 63, -1, -1, -1, 67, + -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, + -1, -1, -1, -1, -1, -1, 94, 95, -1, 97, + 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 117, + -1, 119, 120, -1, 122, -1, 124, 1, 126, 3, + 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, + 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, + 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, + 34, 35, -1, 37, -1, -1, -1, -1, 42, 43, + 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, + -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, + 64, 65, 66, 67, -1, 69, 70, 71, 72, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, + 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, + 94, 95, -1, 97, 98, 99, 100, 101, 102, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 117, -1, 119, 120, -1, 122, -1, + 124, 1, 126, 3, 4, 5, 6, 7, 8, -1, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, -1, -1, -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, - 636, 61, 62, 63, -1, -1, -1, 67, -1, 69, + -1, 61, 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 82, 83, 84, 85, -1, -1, 509, 9, - 511, -1, -1, -1, 94, 95, 96, 97, 98, 99, - 100, 101, -1, -1, -1, -1, -1, -1, -1, -1, - 686, -1, 533, -1, 34, 35, 116, 538, 118, 119, - 696, 121, -1, 123, -1, 125, 547, -1, -1, 705, - -1, -1, -1, -1, 54, 55, 56, 57, -1, 59, - 60, -1, 563, -1, -1, 566, -1, -1, -1, -1, - -1, -1, -1, 73, 74, 75, 76, 77, 78, 79, - 80, 81, -1, 739, -1, 741, 86, 87, 88, 89, - 90, 91, 92, 93, -1, 751, 5, -1, 754, 755, - 756, -1, 11, 12, 760, -1, -1, 763, -1, -1, - -1, -1, -1, 22, 23, 24, -1, 26, -1, -1, - -1, 30, -1, -1, -1, 125, 10, 127, -1, -1, - 786, 632, 633, 42, -1, 44, 20, 21, 47, 48, - -1, -1, -1, 52, 53, -1, -1, -1, -1, -1, - -1, 652, 61, -1, -1, -1, -1, -1, -1, 27, - 28, -1, -1, 31, 32, 33, 50, -1, 824, -1, - -1, 55, 56, -1, 83, 831, -1, -1, 834, -1, - -1, 49, 50, -1, 685, 94, -1, 688, -1, 98, - 58, 692, 693, 849, 850, -1, -1, -1, -1, -1, - -1, -1, 703, -1, 705, 861, -1, -1, 117, 710, - 711, -1, -1, -1, -1, 716, 717, -1, -1, -1, - -1, -1, -1, -1, -1, 726, -1, -1, -1, -1, - -1, -1, -1, 889, -1, 103, -1, 105, 106, 107, - 108, 109, 110, 111, 112, 113, 902, 131, -1, -1, - -1, -1, -1, -1, -1, 911, 912, -1, 142, 915, - -1, -1, 918, 919, -1, 149, -1, -1, -1, -1, - -1, -1, 156, -1, -1, -1, -1, -1, 934, -1, - 164, 165, -1, -1, -1, -1, 787, 788, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 958, -1, -1, 806, -1, -1, -1, -1, - -1, -1, 813, -1, 815, 73, 74, 75, 76, 77, - 78, 79, 80, 81, 825, -1, 827, -1, 86, 87, - 88, 89, 90, 91, 92, 93, -1, -1, -1, -1, - -1, -1, -1, 5, -1, -1, 847, -1, -1, 11, - 12, 852, -1, -1, -1, -1, 857, 241, -1, 860, - 22, 23, 24, 121, 26, -1, -1, -1, 30, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 42, 265, 44, 267, -1, 47, 48, -1, 27, 28, - 52, 53, 31, 32, 33, -1, -1, -1, -1, 61, - -1, -1, 903, -1, -1, 906, -1, -1, -1, -1, - 49, 50, 913, 297, 298, -1, -1, 301, -1, 58, - -1, 83, -1, -1, 308, -1, -1, -1, 312, -1, - -1, -1, 94, 317, -1, -1, 98, 321, -1, -1, - -1, 325, -1, -1, 945, 329, -1, -1, 332, -1, - -1, -1, 336, -1, -1, 117, 340, -1, -1, -1, - -1, -1, -1, 347, 103, -1, 105, 106, 107, 108, - 109, 110, 111, 112, 113, -1, -1, -1, -1, -1, - -1, -1, 983, 984, -1, -1, -1, -1, 27, 28, - -1, -1, 31, 32, 33, -1, -1, -1, -1, -1, - -1, 385, -1, 387, -1, -1, 390, -1, -1, 393, - 49, 50, -1, 9, 398, -1, -1, -1, -1, 58, - 404, -1, -1, -1, -1, -1, -1, 411, 412, 413, - 414, 415, 416, 417, -1, -1, -1, -1, 34, 35, - 36, 425, -1, -1, 428, -1, -1, -1, -1, -1, - 434, -1, -1, -1, -1, -1, -1, -1, 54, 55, - 56, 57, -1, 59, 60, -1, 105, 106, 107, 108, - 109, 110, 111, 112, 113, -1, -1, 73, 74, 75, - 76, 77, 78, 79, 80, 81, -1, -1, -1, -1, - 86, 87, 88, 89, 90, 91, 92, 93, -1, -1, - -1, -1, -1, -1, -1, 489, 490, 491, 492, 493, - 494, 495, 496, 497, 498, 499, 500, 501, 502, 503, - 504, 505, 118, 119, 120, -1, -1, 5, -1, 125, - -1, 127, -1, 11, 12, -1, -1, -1, 522, -1, - -1, -1, -1, -1, 22, 23, 24, -1, 26, -1, - -1, -1, 30, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 42, -1, 44, -1, -1, 47, - 48, -1, -1, -1, 52, 53, -1, -1, -1, 563, - -1, 565, -1, 61, -1, -1, 570, -1, 65, 66, - -1, 68, -1, 70, -1, 579, 73, -1, 75, -1, - 77, -1, -1, -1, 81, 83, 83, -1, 592, -1, - 87, -1, -1, -1, 91, 92, 94, -1, -1, 96, - 98, 98, -1, -1, 101, -1, -1, -1, -1, -1, - -1, 27, 28, -1, -1, 31, 32, 33, 115, 116, - -1, 118, -1, 627, -1, -1, -1, -1, -1, -1, - -1, 635, 48, 49, 50, -1, -1, -1, -1, 643, - -1, -1, 58, -1, 648, 73, 74, 75, 76, 77, - 78, 79, 80, 81, -1, -1, -1, -1, 86, 87, - 88, 89, 90, 91, 92, 93, -1, -1, -1, -1, - 167, 168, 169, 170, 171, 172, 173, -1, 175, 176, - -1, 178, 179, 180, -1, 182, -1, 184, 185, 105, - 106, 107, 108, 109, 110, 111, 112, 113, -1, -1, - 197, 198, 199, -1, -1, -1, -1, -1, -1, -1, - -1, 715, -1, 717, -1, -1, 213, 214, 215, 216, - 217, 218, 219, -1, 221, 222, -1, 224, 225, 226, - -1, 228, 229, 230, -1, -1, 233, 234, 235, -1, - -1, -1, 746, -1, 9, -1, -1, -1, 752, -1, - -1, -1, -1, -1, 758, -1, -1, -1, -1, -1, - 764, 258, 259, -1, 261, 262, -1, 771, -1, 34, - 35, 36, 776, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, - -1, -1, 806, -1, 808, -1, -1, -1, 73, 74, - 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, - -1, 86, 87, 88, 89, 90, 91, 92, 93, -1, - -1, -1, -1, -1, -1, 839, -1, -1, -1, -1, - 844, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 121, -1, -1, 863, - 125, -1, 127, -1, -1, -1, -1, -1, 0, 1, - 367, 3, 4, 5, 6, 7, 8, -1, 10, 11, - 12, 13, 14, -1, -1, -1, 890, 19, 20, 21, - 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, - -1, -1, 34, 35, -1, 37, -1, -1, -1, -1, - 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, - 52, 53, -1, -1, -1, -1, 930, -1, -1, 61, - 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, - 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, - -1, -1, 94, 95, 96, 97, 98, 99, 100, 101, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 116, -1, 118, 119, -1, 121, - -1, 123, 1, 125, 3, 4, 5, 6, 7, 8, - -1, 10, 11, 12, 13, 14, 15, 16, 17, 18, - 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, - -1, 30, -1, -1, -1, 34, 35, -1, 37, 38, - 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, - -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, - -1, -1, 61, 62, 63, 64, 65, 66, 67, -1, - 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 82, 83, 84, 85, -1, 575, -1, - -1, 578, -1, -1, -1, 94, 95, 96, 97, 98, - 99, 100, 101, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 116, -1, 118, - 119, -1, 121, -1, 123, 1, 125, 3, 4, 5, + -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, 97, 98, 99, + 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 117, -1, 119, + 120, -1, 122, -1, 124, 1, 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, @@ -2899,96 +2976,10 @@ static const yytype_int16 yycheck[] = -1, 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, 94, 95, - 96, 97, 98, 99, 100, 101, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 723, -1, -1, -1, - 116, -1, 118, 119, -1, 121, -1, 123, 1, 125, - 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, - 13, 14, -1, -1, 17, -1, 19, 20, 21, 22, - 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, - -1, 34, 35, -1, 37, 38, 39, 40, -1, 42, - 43, 44, 45, -1, 47, 48, -1, -1, 51, 52, - 53, -1, -1, -1, -1, -1, -1, -1, 61, 62, - 63, -1, -1, -1, 67, -1, 69, 70, 71, 72, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, - 83, 84, 85, -1, -1, -1, -1, -1, -1, -1, - -1, 94, 95, 96, 97, 98, 99, 100, 101, -1, + -1, 97, 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 116, -1, 118, 119, -1, 121, -1, - 123, 1, 125, 3, 4, 5, 6, 7, 8, -1, - 10, 11, 12, 13, 14, -1, -1, 17, -1, 19, - 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, - 30, -1, -1, -1, 34, 35, -1, 37, -1, -1, - -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, - -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, - -1, 61, 62, 63, 64, 65, 66, 67, -1, 69, - 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, - -1, -1, -1, -1, 94, 95, 96, 97, 98, 99, - 100, 101, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 116, -1, 118, 119, - -1, 121, -1, 123, 1, 125, 3, 4, 5, 6, - 7, 8, -1, 10, 11, 12, 13, 14, 15, 16, - 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - -1, -1, -1, 30, -1, -1, -1, 34, 35, -1, - 37, -1, -1, -1, -1, 42, 43, 44, 45, -1, - 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, - -1, -1, -1, -1, 61, 62, 63, -1, -1, -1, - 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, - -1, -1, -1, -1, -1, -1, -1, 94, 95, 96, - 97, 98, 99, 100, 101, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 116, - -1, 118, 119, -1, 121, -1, 123, 1, 125, 3, - 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, - 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, - 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, - 34, 35, -1, 37, 38, 39, 40, -1, 42, 43, - 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, - -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, - -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, - 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, - 94, 95, 96, 97, 98, 99, 100, 101, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 116, -1, 118, 119, -1, 121, -1, 123, - 1, 125, 3, 4, 5, 6, 7, 8, -1, 10, - 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, - 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, - -1, -1, -1, 34, 35, -1, 37, 38, 39, -1, - -1, 42, 43, 44, 45, -1, 47, 48, -1, -1, - 51, 52, 53, -1, -1, -1, -1, -1, -1, -1, - 61, 62, 63, -1, -1, -1, 67, -1, 69, 70, - 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 82, 83, 84, 85, -1, -1, -1, -1, -1, - -1, -1, -1, 94, 95, 96, 97, 98, 99, 100, - 101, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 116, -1, 118, 119, -1, - 121, -1, 123, 1, 125, 3, 4, 5, 6, 7, - 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, - -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, - -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, - 38, 39, -1, -1, 42, 43, 44, 45, -1, 47, - 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, - -1, -1, -1, 61, 62, 63, -1, -1, -1, 67, - -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, - -1, -1, -1, -1, -1, -1, 94, 95, 96, 97, - 98, 99, 100, 101, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 116, -1, - 118, 119, -1, 121, -1, 123, 1, 125, 3, 4, - 5, 6, 7, 8, -1, 10, 11, 12, 13, 14, - -1, -1, 17, -1, 19, 20, 21, 22, 23, 24, - 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, - 35, -1, 37, -1, 39, 40, -1, 42, 43, 44, - 45, -1, 47, 48, -1, -1, 51, 52, 53, -1, - -1, -1, -1, -1, -1, -1, 61, 62, 63, -1, - -1, -1, 67, -1, 69, 70, 71, 72, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 82, 83, 84, - 85, -1, -1, -1, -1, -1, -1, -1, -1, 94, - 95, 96, 97, 98, 99, 100, 101, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 116, -1, 118, 119, -1, 121, -1, 123, 1, - 125, 3, 4, 5, 6, 7, 8, -1, 10, 11, + -1, 117, -1, 119, 120, -1, 122, -1, 124, 1, + 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, 38, 39, -1, -1, @@ -2997,95 +2988,109 @@ static const yytype_int16 yycheck[] = 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, - -1, -1, 94, 95, 96, 97, 98, 99, 100, 101, + -1, -1, 94, 95, -1, 97, 98, 99, 100, 101, + 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 117, -1, 119, 120, -1, + 122, -1, 124, 1, 126, 3, 4, 5, 6, 7, + 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, + -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, + -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, + 38, 39, -1, -1, 42, 43, 44, 45, -1, 47, + 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, + -1, -1, -1, 61, 62, 63, -1, -1, -1, 67, + -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, + -1, -1, -1, -1, -1, -1, 94, 95, -1, 97, + 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 117, + -1, 119, 120, -1, 122, -1, 124, 1, 126, 3, + 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, + 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, + 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, + 34, 35, -1, 37, -1, 39, 40, -1, 42, 43, + 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, + -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, + -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, + 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, + 94, 95, -1, 97, 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 116, -1, 118, 119, -1, 121, - -1, 123, 1, 125, 3, 4, 5, 6, 7, 8, - -1, 10, 11, 12, 13, 14, -1, -1, 17, 18, - 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, - -1, 30, -1, -1, -1, 34, 35, -1, 37, -1, - -1, -1, -1, 42, 43, 44, 45, -1, 47, 48, - -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, - -1, -1, 61, 62, 63, -1, -1, -1, 67, -1, - 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 82, 83, 84, 85, -1, -1, -1, - -1, -1, -1, -1, -1, 94, 95, 96, 97, 98, - 99, 100, 101, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 116, -1, 118, - 119, -1, 121, -1, 123, 1, 125, 3, 4, 5, + -1, -1, -1, 117, -1, 119, 120, -1, 122, -1, + 124, 1, 126, 3, 4, 5, 6, 7, 8, -1, + 10, 11, 12, 13, 14, -1, -1, 17, -1, 19, + 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, + 30, -1, -1, -1, 34, 35, -1, 37, 38, 39, + -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, 62, 63, -1, -1, -1, 67, -1, 69, + 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, 97, 98, 99, + 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 117, -1, 119, + 120, -1, 122, -1, 124, 1, 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, 14, -1, - -1, 17, -1, 19, 20, 21, 22, 23, 24, 25, + -1, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, - -1, 37, -1, -1, -1, 41, 42, 43, 44, 45, + -1, 37, -1, -1, -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, 94, 95, - 96, 97, 98, 99, 100, 101, -1, -1, -1, -1, + -1, 97, 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 116, -1, 118, 119, -1, 121, -1, 123, 1, 125, - 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, - 13, 14, -1, -1, 17, -1, 19, 20, 21, 22, - 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, - -1, 34, 35, -1, 37, -1, -1, -1, -1, 42, - 43, 44, 45, -1, 47, 48, -1, -1, 51, 52, - 53, -1, -1, -1, -1, -1, -1, -1, 61, 62, - 63, -1, -1, 66, 67, -1, 69, 70, 71, 72, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, - 83, 84, 85, -1, -1, -1, -1, -1, -1, -1, - -1, 94, 95, 96, 97, 98, 99, 100, 101, -1, + -1, 117, -1, 119, 120, -1, 122, -1, 124, 1, + 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, + 12, 13, 14, -1, -1, 17, -1, 19, 20, 21, + 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, + -1, -1, 34, 35, -1, 37, -1, -1, -1, 41, + 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, + 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, + 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, + 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 82, 83, 84, 85, -1, -1, -1, -1, -1, -1, + -1, -1, 94, 95, -1, 97, 98, 99, 100, 101, + 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 117, -1, 119, 120, -1, + 122, -1, 124, 1, 126, 3, 4, 5, 6, 7, + 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, + -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, + -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, + -1, -1, -1, -1, 42, 43, 44, 45, -1, 47, + 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, + -1, -1, -1, 61, 62, 63, -1, -1, 66, 67, + -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, + -1, -1, -1, -1, -1, -1, 94, 95, -1, 97, + 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, 117, + -1, 119, 120, -1, 122, -1, 124, 1, 126, 3, + 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, + 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, + 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, + 34, 35, -1, 37, -1, -1, -1, -1, 42, 43, + 44, 45, 46, 47, 48, -1, -1, 51, 52, 53, + -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, + -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, + -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, + 84, 85, -1, -1, -1, -1, -1, -1, -1, -1, + 94, 95, -1, 97, 98, 99, 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 116, -1, 118, 119, -1, 121, -1, - 123, 1, 125, 3, 4, 5, 6, 7, 8, -1, + -1, -1, -1, 117, -1, 119, 120, -1, 122, -1, + 124, 1, 126, 3, 4, 5, 6, 7, 8, -1, 10, 11, 12, 13, 14, -1, -1, 17, -1, 19, 20, 21, 22, 23, 24, 25, 26, -1, -1, -1, 30, -1, -1, -1, 34, 35, -1, 37, -1, -1, - -1, -1, 42, 43, 44, 45, 46, 47, 48, -1, + -1, -1, 42, 43, 44, 45, -1, 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, 62, 63, -1, -1, -1, 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, -1, -1, -1, - -1, -1, -1, -1, 94, 95, 96, 97, 98, 99, - 100, 101, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 116, -1, 118, 119, - -1, 121, -1, 123, 1, 125, 3, 4, 5, 6, - 7, 8, -1, 10, 11, 12, 13, 14, -1, -1, - 17, -1, 19, 20, 21, 22, 23, 24, 25, 26, - -1, -1, -1, 30, -1, -1, -1, 34, 35, -1, - 37, -1, -1, -1, -1, 42, 43, 44, 45, -1, - 47, 48, -1, -1, 51, 52, 53, -1, -1, -1, - -1, -1, -1, -1, 61, 62, 63, -1, -1, -1, - 67, -1, 69, 70, 71, 72, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 82, 83, 84, 85, -1, - -1, -1, -1, -1, -1, -1, -1, 94, 95, 96, - 97, 98, 99, 100, 101, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 116, - -1, 118, 119, -1, 121, -1, 123, 5, 125, 7, - 8, -1, 10, 11, 12, 13, -1, -1, -1, -1, - -1, 19, 20, 21, 22, 23, 24, -1, 26, -1, - -1, 29, 30, -1, -1, -1, 34, 35, -1, -1, - -1, -1, -1, -1, 42, -1, 44, -1, -1, 47, - 48, -1, -1, 51, 52, 53, -1, -1, -1, -1, - -1, -1, -1, 61, -1, -1, -1, -1, -1, -1, - -1, 69, -1, 71, 72, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 83, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 94, 95, -1, -1, - 98, -1, -1, 101, 102, 103, -1, -1, -1, -1, - -1, 109, 110, -1, -1, -1, -1, -1, 116, 117, - -1, -1, -1, 121, -1, 123, 5, 125, 7, 8, - -1, 10, 11, 12, 13, -1, -1, -1, -1, -1, - 19, 20, 21, 22, 23, 24, -1, 26, -1, -1, - 29, 30, -1, -1, -1, 34, 35, -1, -1, -1, - -1, -1, -1, 42, -1, 44, -1, -1, 47, 48, - -1, -1, 51, 52, 53, -1, -1, -1, -1, -1, - -1, -1, 61, -1, -1, -1, -1, -1, -1, -1, - 69, -1, 71, 72, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 83, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 94, 95, -1, -1, 98, - -1, -1, 101, 102, -1, -1, -1, -1, -1, -1, - 109, 110, -1, -1, -1, -1, -1, 116, 117, -1, - -1, -1, 121, -1, 123, 5, 125, 7, 8, -1, + -1, -1, -1, -1, 94, 95, -1, 97, 98, 99, + 100, 101, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 117, -1, 119, + 120, -1, 122, -1, 124, 5, 126, 7, 8, -1, 10, 11, 12, 13, -1, -1, -1, -1, -1, 19, 20, 21, 22, 23, 24, -1, 26, -1, -1, 29, 30, -1, -1, -1, 34, 35, -1, -1, -1, -1, @@ -3094,146 +3099,150 @@ static const yytype_int16 yycheck[] = -1, 61, -1, -1, -1, -1, -1, -1, -1, 69, -1, 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 83, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, 94, 95, -1, -1, 98, -1, - -1, 101, -1, -1, -1, -1, -1, -1, -1, 109, - 110, -1, -1, -1, -1, -1, 116, 117, -1, -1, - 120, 121, -1, 123, 5, 125, 7, 8, -1, 10, - 11, 12, 13, -1, -1, -1, -1, -1, 19, 20, - 21, 22, 23, 24, -1, 26, -1, -1, 29, 30, - -1, -1, -1, 34, 35, -1, -1, -1, -1, -1, - -1, 42, -1, 44, -1, -1, 47, 48, -1, -1, - 51, 52, 53, -1, -1, -1, -1, -1, -1, -1, - 61, -1, -1, -1, -1, -1, -1, -1, 69, -1, - 71, 72, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 83, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, 94, 95, -1, -1, 98, -1, -1, - 101, 102, -1, -1, -1, -1, -1, -1, 109, 110, - -1, -1, -1, -1, -1, 116, 117, -1, -1, -1, - 121, -1, 123, 5, 125, 7, 8, -1, 10, 11, - 12, 13, -1, -1, -1, -1, -1, 19, 20, 21, - 22, 23, 24, -1, 26, -1, -1, 29, 30, -1, - -1, -1, 34, 35, -1, -1, -1, -1, -1, -1, - 42, -1, 44, -1, -1, 47, 48, -1, -1, 51, - 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, - -1, -1, -1, -1, -1, -1, -1, 69, -1, 71, - 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 83, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 94, 95, -1, -1, 98, -1, -1, 101, - -1, -1, -1, -1, -1, -1, -1, 109, 110, -1, - -1, -1, -1, -1, 116, 117, -1, -1, -1, 121, - -1, 123, 5, 125, 7, 8, -1, 10, 11, 12, - 13, -1, -1, -1, -1, -1, 19, 20, 21, 22, - 23, 24, -1, 26, -1, -1, 29, 30, -1, -1, - -1, 34, 35, -1, -1, -1, -1, -1, -1, 42, - -1, 44, -1, -1, 47, 48, -1, -1, 51, 52, - 53, -1, -1, -1, -1, -1, -1, -1, 61, -1, - -1, -1, -1, -1, -1, -1, 69, -1, 71, 72, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 83, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, 94, 95, -1, -1, 98, -1, -1, 101, -1, - -1, -1, -1, -1, -1, -1, 109, 110, -1, -1, - -1, -1, -1, 116, 117, -1, -1, -1, 121, -1, - 123, 5, 125, 7, 8, -1, 10, 11, 12, 13, - -1, -1, -1, -1, -1, 19, 20, 21, 22, 23, - 24, -1, 26, -1, -1, 29, 30, -1, -1, -1, - 34, 35, -1, -1, -1, -1, -1, -1, 42, -1, - 44, -1, -1, 47, 48, -1, -1, 51, 52, 53, - -1, -1, -1, -1, -1, -1, -1, 61, -1, -1, - -1, -1, -1, -1, -1, 69, -1, 71, 72, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 83, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - 94, 95, -1, -1, 98, -1, -1, 101, -1, -1, - -1, -1, -1, -1, -1, 109, 110, -1, -1, -1, - -1, -1, 116, 117, -1, -1, -1, 121, -1, 123, - 5, 125, 7, 8, -1, 10, 11, 12, 13, -1, - -1, -1, -1, -1, 19, 20, 21, 22, 23, 24, - -1, 26, -1, -1, 29, 30, -1, -1, -1, 34, - 35, -1, -1, -1, -1, -1, -1, 42, -1, 44, - -1, -1, 47, 48, -1, -1, 51, 52, 53, -1, - -1, -1, -1, -1, -1, -1, 61, -1, -1, -1, - -1, -1, -1, -1, 69, -1, 71, 72, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, 83, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 94, - 95, -1, -1, 98, -1, -1, 101, -1, -1, -1, - -1, -1, -1, -1, 109, 110, -1, -1, -1, -1, - -1, 116, 117, -1, -1, -1, 121, -1, 123, 5, - 125, 7, 8, -1, 10, 11, 12, 13, -1, -1, - -1, -1, -1, 19, 20, 21, 22, 23, 24, -1, - 26, -1, -1, -1, 30, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 42, -1, 44, -1, - -1, 47, 48, -1, -1, -1, 52, 53, -1, -1, - -1, -1, -1, -1, 9, 61, -1, -1, -1, -1, - -1, -1, -1, 69, -1, 71, 72, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, 83, -1, 34, - 35, 36, -1, -1, -1, -1, -1, -1, 94, 95, - -1, -1, 98, -1, -1, -1, -1, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, - 116, -1, -1, -1, 9, 121, -1, 123, 73, 74, - 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, - -1, 86, 87, 88, 89, 90, 91, 92, 93, 34, - 35, 36, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, - 125, -1, 127, -1, 9, -1, -1, -1, 73, 74, - 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, - -1, 86, 87, 88, 89, 90, 91, 92, 93, 34, - 35, 36, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, - 125, -1, 127, -1, 9, -1, -1, -1, 73, 74, - 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, - -1, 86, 87, 88, 89, 90, 91, 92, 93, 34, - 35, 36, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 54, - 55, 56, 57, -1, 59, 60, -1, -1, -1, -1, - 125, -1, 127, -1, -1, -1, -1, -1, 73, 74, - 75, 76, 77, 78, 79, 80, 81, -1, -1, -1, - -1, 86, 87, 88, 89, 90, 91, 92, 93, 5, - -1, -1, -1, -1, -1, 11, 12, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 22, 23, 24, -1, - 26, -1, -1, -1, 30, -1, -1, -1, -1, -1, - 125, -1, 127, 5, -1, -1, 42, -1, 44, 11, - 12, 47, 48, -1, -1, -1, 52, 53, -1, -1, - 22, 23, 24, -1, 26, 61, -1, -1, 30, -1, - -1, -1, -1, -1, -1, 71, 72, -1, -1, -1, - 42, -1, 44, -1, -1, 47, 48, 83, -1, -1, - 52, 53, -1, -1, -1, -1, -1, -1, 94, 61, - -1, -1, 98, -1, -1, 5, -1, -1, -1, -1, - -1, 11, 12, -1, -1, -1, -1, -1, -1, -1, - 116, 83, 22, 23, 24, -1, 26, -1, -1, -1, - 30, -1, 94, -1, -1, -1, 98, -1, -1, 5, - 102, -1, 42, -1, 44, 11, 12, 47, 48, -1, - -1, -1, 52, 53, -1, -1, 22, 23, 24, -1, - 26, 61, -1, -1, 30, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, 42, -1, 44, -1, - -1, 47, 48, 83, -1, -1, 52, 53, -1, -1, - -1, -1, -1, -1, 94, 61, -1, -1, 98, -1, - -1, 5, 102, -1, -1, -1, -1, 11, 12, -1, - -1, -1, -1, -1, -1, -1, -1, 83, 22, 23, - 24, -1, 26, -1, -1, -1, 30, -1, 94, -1, - -1, -1, 98, -1, -1, 5, 102, -1, 42, -1, - 44, 11, 12, 47, 48, -1, -1, -1, 52, 53, - -1, -1, 22, 23, 24, -1, 26, 61, -1, -1, - 30, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 42, -1, 44, -1, -1, 47, 48, 83, - -1, -1, 52, 53, -1, -1, -1, -1, -1, -1, - 94, 61, -1, -1, 98, -1, -1, -1, 102, -1, + -1, -1, -1, -1, 94, 95, -1, -1, -1, 99, + -1, -1, 102, -1, -1, -1, -1, -1, -1, -1, + 110, 111, -1, -1, -1, -1, -1, 117, 118, -1, + -1, -1, 122, -1, 124, 5, 126, 7, 8, -1, + 10, 11, 12, 13, -1, -1, -1, -1, -1, 19, + 20, 21, 22, 23, 24, -1, 26, -1, -1, 29, + 30, -1, -1, -1, 34, 35, -1, -1, -1, -1, + -1, -1, 42, -1, 44, -1, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, -1, -1, -1, -1, -1, -1, -1, 69, -1, 71, 72, -1, -1, -1, -1, -1, -1, -1, - -1, -1, 69, 83, 71, 72, -1, 74, -1, 76, - -1, 78, -1, 80, 94, 82, -1, 84, 98, 86, - -1, 88, 89, 90, -1, -1, -1, 94, -1, -1, - 97, -1, -1, 100, -1, 102, -1, -1, -1, -1, - 73, 74, 75, 76, 77, 78, 79, 80, 81, -1, - 117, -1, 119, 86, 87, 88, 89, 90, 91, 92, - 93, 73, 74, 75, 76, 77, 78, 79, 80, 81, - -1, -1, -1, -1, 86, 87, 88, 89, 90, 91, - 92, 93, -1, -1, -1, -1, -1, -1, 121, -1, - -1, -1, -1, -1, -1, -1, -1, 73, 74, 75, - 76, 77, 78, 79, 80, 81, -1, -1, -1, 121, + -1, -1, -1, 83, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, -1, -1, 99, + -1, -1, 102, -1, -1, -1, -1, -1, -1, -1, + 110, 111, -1, -1, -1, -1, -1, 117, 118, -1, + -1, -1, 122, -1, 124, 5, 126, 7, 8, -1, + 10, 11, 12, 13, -1, -1, -1, -1, -1, 19, + 20, 21, 22, 23, 24, -1, 26, -1, -1, 29, + 30, -1, -1, -1, 34, 35, -1, -1, -1, -1, + -1, -1, 42, -1, 44, -1, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, -1, -1, -1, -1, -1, -1, -1, 69, + -1, 71, 72, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 83, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, -1, -1, 99, + -1, -1, 102, -1, -1, -1, -1, -1, -1, -1, + 110, 111, -1, -1, -1, -1, -1, 117, 118, -1, + -1, -1, 122, -1, 124, 5, 126, 7, 8, -1, + 10, 11, 12, 13, -1, -1, -1, -1, -1, 19, + 20, 21, 22, 23, 24, -1, 26, -1, -1, 29, + 30, -1, -1, -1, 34, 35, -1, -1, -1, -1, + -1, -1, 42, -1, 44, -1, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, -1, -1, -1, -1, -1, -1, -1, 69, + -1, 71, 72, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 83, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, -1, -1, 99, + -1, -1, 102, -1, -1, -1, -1, -1, -1, -1, + 110, 111, -1, -1, -1, -1, -1, 117, 118, -1, + -1, -1, 122, -1, 124, 5, 126, 7, 8, -1, + 10, 11, 12, 13, -1, -1, -1, -1, -1, 19, + 20, 21, 22, 23, 24, -1, 26, -1, -1, -1, + 30, -1, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, 42, -1, 44, -1, -1, 47, 48, -1, + -1, 51, 52, 53, -1, -1, -1, -1, -1, -1, + -1, 61, -1, -1, -1, -1, -1, -1, -1, 69, + -1, 71, 72, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 83, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, 94, 95, -1, -1, -1, 99, + -1, -1, 102, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 5, -1, 7, 8, 117, 10, 11, + 12, 13, 122, -1, 124, -1, 126, 19, 20, 21, + 22, 23, 24, -1, 26, -1, -1, -1, 30, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 42, -1, 44, -1, -1, 47, 48, -1, -1, -1, + 52, 53, -1, -1, -1, -1, -1, -1, -1, 61, + 9, -1, -1, -1, -1, -1, -1, 69, -1, 71, + 72, -1, 27, 28, -1, -1, 31, 32, 33, -1, + -1, 83, -1, -1, -1, 34, 35, 36, -1, -1, + -1, -1, 94, 95, 49, 50, -1, 99, -1, -1, + -1, -1, -1, 58, -1, 54, 55, 56, 57, -1, + 59, 60, -1, -1, -1, 117, -1, -1, -1, -1, + 122, -1, 124, -1, 73, 74, 75, 76, 77, 78, + 79, 80, 81, -1, -1, 9, -1, 86, 87, 88, + 89, 90, 91, 92, 93, -1, -1, -1, -1, -1, + -1, 106, 107, 108, 109, 110, 111, 112, 113, 114, + 34, 35, 36, -1, 119, 120, -1, -1, -1, -1, + 119, 120, 121, -1, -1, -1, -1, 126, -1, 128, + 54, 55, 56, 57, -1, 59, 60, -1, -1, -1, + -1, -1, -1, -1, -1, 9, -1, -1, -1, 73, + 74, 75, 76, 77, 78, 79, 80, 81, -1, -1, + -1, -1, 86, 87, 88, 89, 90, 91, 92, 93, + 34, 35, 36, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 54, 55, 56, 57, -1, 59, 60, -1, -1, -1, + -1, -1, 126, -1, 128, 9, -1, -1, -1, 73, + 74, 75, 76, 77, 78, 79, 80, 81, -1, -1, + -1, -1, 86, 87, 88, 89, 90, 91, 92, 93, + 34, 35, -1, -1, -1, -1, -1, -1, -1, -1, + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, + 54, 55, 56, 57, -1, 59, 60, -1, -1, -1, + -1, -1, 126, -1, 128, -1, -1, -1, -1, 73, + 74, 75, 76, 77, 78, 79, 80, 81, -1, -1, + -1, -1, 86, 87, 88, 89, 90, 91, 92, 93, + 5, -1, -1, -1, -1, -1, 11, 12, -1, -1, + -1, -1, -1, -1, -1, -1, -1, 22, 23, 24, + -1, 26, -1, -1, -1, 30, -1, -1, -1, -1, + -1, -1, 126, -1, 128, -1, -1, 42, -1, 44, + -1, -1, 47, 48, 5, -1, -1, 52, 53, -1, + 11, 12, -1, -1, -1, -1, 61, -1, -1, -1, + -1, 22, 23, 24, -1, 26, -1, -1, -1, 30, + -1, -1, -1, -1, -1, -1, -1, -1, 83, -1, + -1, 42, -1, 44, -1, -1, 47, 48, -1, 94, + -1, 52, 53, -1, 99, -1, -1, -1, 5, -1, + 61, -1, -1, -1, 11, 12, -1, -1, -1, -1, + -1, -1, -1, 118, -1, 22, 23, 24, -1, 26, + -1, -1, 83, 30, -1, -1, -1, -1, -1, -1, + -1, -1, -1, 94, -1, 42, -1, 44, 99, -1, + 47, 48, 5, -1, -1, 52, 53, -1, 11, 12, + -1, -1, -1, -1, 61, -1, -1, 118, -1, 22, + 23, 24, -1, 26, -1, -1, -1, 30, -1, -1, + -1, -1, -1, -1, -1, -1, 83, -1, -1, 42, + -1, 44, -1, -1, 47, 48, -1, 94, -1, 52, + 53, -1, 99, -1, -1, -1, 5, -1, 61, -1, + -1, -1, 11, 12, -1, -1, -1, -1, 71, 72, + -1, 118, -1, 22, 23, 24, -1, 26, -1, -1, + 83, 30, -1, -1, -1, -1, -1, -1, -1, -1, + -1, 94, -1, 42, -1, 44, 99, -1, 47, 48, + 5, -1, -1, 52, 53, -1, 11, 12, -1, -1, + -1, -1, 61, -1, 117, -1, -1, 22, 23, 24, + -1, 26, -1, -1, -1, 30, -1, -1, -1, -1, + -1, -1, -1, -1, 83, -1, -1, 42, -1, 44, + -1, -1, 47, 48, -1, 94, -1, 52, 53, -1, + 99, -1, -1, -1, 103, -1, 61, -1, 5, -1, + -1, -1, -1, -1, 11, 12, -1, -1, -1, -1, + -1, -1, -1, -1, -1, 22, 23, 24, 83, 26, + -1, -1, -1, 30, -1, -1, -1, -1, -1, 94, + -1, -1, -1, -1, 99, 42, -1, 44, 103, -1, + 47, 48, 5, -1, -1, 52, 53, -1, 11, 12, + -1, -1, -1, -1, 61, -1, -1, -1, -1, 22, + 23, 24, -1, 26, -1, -1, -1, 30, -1, -1, + -1, -1, -1, -1, -1, -1, 83, -1, -1, 42, + -1, 44, -1, -1, 47, 48, -1, 94, -1, 52, + 53, -1, 99, -1, -1, -1, 103, -1, 61, -1, + 5, -1, -1, -1, -1, -1, 11, 12, 71, 72, + -1, -1, -1, -1, -1, -1, -1, 22, 23, 24, + 83, 26, -1, 27, 28, 30, -1, 31, 32, 33, + -1, 94, -1, -1, -1, -1, 99, 42, -1, 44, + -1, -1, 47, 48, 48, 49, 50, 52, 53, -1, + -1, -1, -1, -1, 58, -1, 61, -1, -1, -1, + -1, -1, -1, -1, -1, -1, 73, 74, 75, 76, + 77, 78, 79, 80, 81, -1, -1, -1, 83, 86, + 87, 88, 89, 90, 91, 92, 93, -1, -1, 94, + -1, -1, -1, -1, 99, -1, -1, -1, -1, -1, + -1, -1, 106, 107, 108, 109, 110, 111, 112, 113, + 114, -1, -1, -1, -1, 122, 73, 74, 75, 76, + 77, 78, 79, 80, 81, -1, -1, -1, -1, 86, + 87, 88, 89, 90, 91, 92, 93, 73, 74, 75, + 76, 77, 78, 79, 80, 81, -1, -1, -1, -1, 86, 87, 88, 89, 90, 91, 92, 93, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, - -1, -1, -1, -1, -1, 121 + -1, -1, -1, -1, -1, 122, -1, -1, -1, -1, + -1, -1, -1, -1, 73, 74, 75, 76, 77, 78, + 79, 80, 81, -1, -1, -1, 122, 86, 87, 88, + 89, 90, 91, 92, 93 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing @@ -3244,101 +3253,102 @@ static const yytype_uint16 yystos[] = 14, 19, 20, 21, 22, 23, 24, 25, 26, 30, 34, 35, 37, 42, 43, 44, 45, 47, 48, 51, 52, 53, 61, 62, 63, 67, 69, 70, 71, 72, - 82, 83, 84, 85, 94, 95, 96, 97, 98, 99, - 100, 101, 116, 118, 119, 121, 123, 125, 130, 131, - 132, 133, 138, 144, 162, 163, 164, 165, 166, 167, - 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, - 178, 179, 180, 182, 183, 184, 185, 186, 187, 188, - 189, 191, 192, 193, 194, 195, 197, 201, 206, 208, - 209, 210, 212, 224, 226, 227, 229, 230, 231, 232, - 233, 234, 235, 236, 237, 244, 250, 251, 252, 253, - 254, 267, 270, 273, 288, 289, 290, 301, 303, 305, - 315, 318, 320, 331, 336, 339, 341, 348, 359, 365, - 367, 367, 146, 153, 154, 36, 36, 255, 256, 121, + 82, 83, 84, 85, 94, 95, 97, 98, 99, 100, + 101, 102, 117, 119, 120, 122, 124, 126, 131, 132, + 133, 134, 139, 146, 164, 165, 166, 167, 168, 169, + 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, + 180, 181, 182, 184, 185, 186, 187, 188, 189, 190, + 191, 193, 194, 195, 196, 197, 199, 203, 208, 210, + 211, 212, 214, 226, 228, 229, 231, 232, 233, 234, + 235, 236, 237, 238, 239, 246, 252, 253, 254, 255, + 256, 269, 273, 276, 291, 292, 293, 304, 306, 308, + 318, 321, 323, 334, 339, 342, 344, 351, 362, 368, + 370, 370, 148, 155, 156, 36, 36, 257, 258, 122, 11, 12, 22, 23, 24, 26, 29, 30, 42, 44, - 51, 53, 61, 94, 109, 110, 117, 163, 164, 166, - 168, 171, 173, 175, 177, 179, 182, 184, 186, 191, - 192, 193, 197, 200, 206, 210, 213, 218, 224, 226, - 227, 228, 229, 237, 238, 239, 240, 244, 250, 252, - 162, 160, 162, 161, 162, 153, 147, 218, 218, 304, - 271, 153, 162, 163, 164, 166, 168, 171, 173, 175, - 177, 179, 182, 184, 186, 191, 192, 193, 197, 206, - 210, 223, 224, 244, 250, 252, 36, 268, 257, 149, - 349, 145, 153, 184, 186, 358, 10, 162, 162, 123, - 162, 279, 19, 152, 245, 361, 162, 184, 186, 191, - 193, 206, 250, 327, 328, 340, 218, 121, 250, 117, - 218, 249, 102, 103, 117, 181, 203, 204, 205, 218, - 222, 243, 162, 184, 186, 207, 0, 1, 132, 133, - 144, 273, 367, 3, 4, 36, 121, 9, 127, 241, - 242, 9, 241, 162, 184, 186, 190, 250, 9, 36, - 241, 190, 9, 36, 241, 190, 190, 9, 36, 241, - 190, 9, 36, 241, 190, 9, 36, 241, 190, 9, - 36, 190, 9, 36, 241, 190, 9, 241, 190, 250, - 9, 36, 121, 153, 241, 190, 250, 9, 36, 121, - 153, 241, 190, 250, 8, 10, 162, 165, 166, 167, - 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, - 178, 179, 180, 183, 184, 185, 186, 187, 190, 244, - 250, 251, 252, 253, 190, 9, 241, 9, 153, 241, - 9, 36, 190, 9, 36, 153, 241, 190, 9, 36, - 121, 241, 125, 190, 9, 36, 153, 241, 190, 34, - 35, 54, 55, 56, 57, 59, 60, 105, 125, 225, - 153, 153, 153, 153, 153, 9, 36, 241, 9, 36, - 153, 241, 190, 250, 9, 36, 153, 241, 190, 153, - 15, 16, 17, 18, 293, 295, 300, 1, 12, 25, - 26, 132, 144, 155, 156, 157, 158, 273, 367, 17, - 38, 39, 40, 302, 306, 311, 218, 158, 17, 337, - 338, 153, 218, 367, 162, 258, 261, 258, 218, 218, - 218, 218, 162, 195, 214, 219, 215, 216, 217, 27, - 28, 31, 32, 33, 49, 50, 58, 105, 106, 107, - 108, 109, 110, 111, 112, 113, 291, 220, 151, 120, - 367, 120, 367, 184, 259, 260, 261, 367, 162, 272, - 9, 105, 324, 188, 162, 269, 272, 259, 367, 218, - 360, 19, 121, 275, 367, 73, 74, 75, 76, 77, + 51, 53, 61, 94, 110, 111, 118, 165, 166, 168, + 170, 173, 175, 177, 179, 181, 184, 186, 188, 193, + 194, 195, 199, 202, 208, 212, 215, 220, 226, 228, + 229, 230, 231, 239, 240, 241, 242, 246, 252, 254, + 164, 162, 164, 163, 164, 155, 149, 220, 220, 307, + 274, 155, 164, 165, 166, 168, 170, 173, 175, 177, + 179, 181, 184, 186, 188, 193, 194, 195, 199, 208, + 212, 225, 226, 246, 252, 254, 36, 270, 259, 151, + 352, 147, 155, 186, 188, 361, 10, 164, 164, 124, + 164, 282, 19, 154, 247, 364, 164, 186, 188, 193, + 195, 208, 252, 330, 331, 343, 220, 122, 252, 118, + 220, 251, 103, 104, 118, 183, 205, 206, 207, 220, + 224, 245, 164, 186, 188, 209, 0, 1, 133, 134, + 146, 276, 370, 3, 4, 36, 122, 9, 128, 243, + 244, 9, 243, 164, 186, 188, 192, 252, 9, 36, + 243, 192, 9, 36, 243, 192, 192, 9, 36, 243, + 192, 9, 36, 243, 192, 9, 36, 243, 192, 9, + 36, 192, 9, 36, 243, 192, 9, 243, 192, 252, + 9, 36, 122, 155, 243, 192, 252, 9, 36, 122, + 155, 243, 192, 252, 8, 10, 164, 167, 168, 169, + 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, + 180, 181, 182, 185, 186, 187, 188, 189, 192, 246, + 252, 253, 254, 255, 192, 9, 243, 9, 155, 243, + 9, 36, 192, 9, 36, 155, 243, 192, 9, 36, + 122, 243, 126, 192, 9, 36, 155, 243, 192, 34, + 35, 54, 55, 56, 57, 59, 60, 106, 126, 227, + 155, 155, 155, 155, 155, 9, 36, 243, 9, 36, + 155, 243, 192, 252, 9, 36, 155, 243, 192, 155, + 15, 16, 17, 18, 296, 298, 303, 1, 12, 25, + 26, 133, 146, 157, 158, 159, 160, 276, 370, 17, + 38, 39, 40, 305, 309, 314, 220, 160, 17, 340, + 341, 155, 220, 370, 164, 260, 263, 260, 220, 220, + 220, 220, 164, 197, 216, 221, 217, 218, 219, 27, + 28, 31, 32, 33, 49, 50, 58, 106, 107, 108, + 109, 110, 111, 112, 113, 114, 294, 222, 153, 121, + 370, 121, 370, 186, 261, 262, 263, 370, 164, 275, + 9, 106, 327, 190, 164, 271, 275, 261, 370, 220, + 363, 19, 122, 278, 370, 73, 74, 75, 76, 77, 78, 79, 80, 81, 86, 87, 88, 89, 90, 91, - 92, 93, 140, 141, 142, 121, 367, 109, 122, 102, - 162, 247, 248, 68, 362, 52, 120, 218, 367, 162, - 120, 122, 124, 162, 184, 191, 193, 195, 206, 120, - 124, 103, 120, 124, 367, 162, 162, 196, 218, 102, - 218, 221, 120, 126, 218, 218, 218, 218, 218, 218, - 218, 218, 218, 218, 198, 218, 199, 218, 218, 218, - 218, 218, 211, 207, 218, 218, 218, 218, 218, 218, - 218, 218, 207, 218, 218, 218, 367, 296, 300, 16, - 293, 300, 3, 4, 155, 307, 312, 38, 302, 311, - 39, 302, 367, 38, 39, 342, 345, 367, 127, 140, - 265, 266, 120, 367, 367, 120, 141, 141, 141, 141, - 141, 218, 218, 218, 218, 218, 218, 218, 218, 218, - 218, 218, 218, 218, 218, 218, 218, 218, 367, 141, - 367, 162, 162, 140, 265, 120, 148, 140, 120, 367, - 218, 140, 52, 120, 367, 367, 150, 158, 159, 367, - 362, 117, 367, 274, 162, 278, 279, 281, 162, 162, - 276, 280, 19, 367, 140, 128, 120, 120, 162, 200, - 204, 213, 218, 250, 363, 364, 117, 218, 329, 330, - 327, 367, 366, 122, 218, 218, 218, 222, 205, 134, - 136, 135, 137, 202, 205, 221, 127, 202, 202, 202, - 294, 218, 298, 300, 162, 162, 218, 367, 309, 302, - 314, 316, 218, 346, 38, 338, 345, 218, 262, 263, - 142, 120, 126, 261, 203, 292, 9, 142, 260, 367, - 162, 321, 162, 162, 367, 350, 19, 83, 117, 162, - 283, 286, 287, 282, 279, 281, 367, 162, 277, 281, - 283, 218, 246, 102, 162, 364, 120, 162, 120, 332, - 159, 103, 367, 121, 367, 121, 120, 122, 221, 122, - 122, 122, 159, 367, 218, 121, 367, 121, 367, 367, - 313, 218, 367, 159, 343, 367, 218, 9, 218, 127, - 120, 159, 218, 140, 47, 140, 64, 65, 355, 356, - 357, 367, 117, 162, 162, 140, 122, 120, 120, 140, - 120, 124, 122, 120, 124, 140, 364, 329, 98, 335, - 17, 222, 102, 139, 143, 162, 139, 205, 297, 367, - 139, 139, 308, 159, 367, 159, 317, 367, 347, 344, - 264, 218, 203, 218, 162, 351, 367, 367, 162, 140, - 121, 140, 140, 117, 162, 287, 83, 281, 367, 140, - 218, 333, 122, 120, 140, 122, 159, 299, 122, 122, - 159, 310, 17, 41, 319, 159, 159, 367, 218, 122, - 48, 325, 66, 353, 354, 159, 159, 121, 140, 222, - 284, 285, 367, 162, 140, 117, 162, 367, 367, 102, - 162, 367, 159, 367, 367, 159, 159, 218, 322, 352, - 367, 284, 120, 122, 121, 140, 162, 140, 334, 140, - 367, 17, 159, 122, 285, 284, 121, 140, 159, 326, - 323, 122, 284, 17, 46, 326, 122, 162, 162 + 92, 93, 141, 143, 144, 122, 370, 110, 123, 103, + 164, 249, 250, 68, 365, 52, 121, 220, 370, 164, + 121, 123, 125, 164, 186, 193, 195, 197, 208, 121, + 125, 104, 121, 125, 370, 164, 164, 198, 220, 103, + 220, 223, 121, 127, 220, 220, 220, 220, 220, 220, + 220, 220, 220, 220, 200, 220, 201, 220, 220, 220, + 220, 220, 213, 209, 220, 220, 220, 220, 220, 220, + 220, 220, 209, 220, 220, 220, 370, 299, 303, 16, + 296, 303, 3, 4, 157, 310, 315, 38, 305, 314, + 39, 305, 370, 38, 39, 345, 348, 370, 128, 141, + 267, 268, 121, 370, 370, 121, 143, 143, 143, 143, + 143, 220, 220, 220, 220, 220, 220, 220, 220, 220, + 220, 220, 220, 220, 220, 220, 220, 220, 370, 143, + 370, 164, 164, 141, 267, 121, 150, 141, 121, 370, + 220, 141, 52, 121, 272, 370, 152, 160, 161, 370, + 365, 118, 370, 277, 164, 281, 282, 284, 164, 164, + 279, 283, 19, 370, 141, 129, 121, 121, 164, 202, + 206, 215, 220, 252, 366, 367, 118, 220, 332, 333, + 330, 370, 369, 123, 220, 220, 220, 224, 207, 135, + 137, 136, 138, 204, 207, 223, 128, 204, 204, 204, + 297, 220, 301, 303, 164, 164, 220, 370, 312, 305, + 317, 319, 220, 349, 38, 341, 348, 220, 264, 265, + 142, 144, 121, 127, 263, 205, 295, 9, 142, 262, + 370, 164, 324, 164, 164, 370, 370, 353, 19, 83, + 118, 164, 286, 289, 290, 285, 282, 284, 370, 164, + 280, 284, 286, 220, 248, 103, 164, 367, 121, 164, + 121, 335, 161, 104, 370, 122, 370, 122, 121, 123, + 223, 123, 123, 123, 161, 370, 220, 122, 370, 122, + 370, 370, 316, 220, 370, 161, 346, 370, 220, 9, + 220, 128, 121, 161, 220, 141, 47, 141, 64, 65, + 358, 359, 360, 370, 118, 164, 164, 141, 123, 121, + 121, 141, 121, 125, 123, 121, 125, 141, 367, 332, + 99, 338, 17, 224, 103, 140, 145, 164, 140, 207, + 300, 370, 140, 140, 311, 161, 370, 161, 320, 370, + 350, 347, 266, 220, 205, 220, 164, 354, 370, 370, + 164, 141, 122, 141, 141, 118, 164, 290, 83, 284, + 370, 141, 220, 336, 123, 121, 141, 123, 161, 302, + 123, 123, 161, 313, 17, 41, 322, 161, 161, 370, + 220, 123, 48, 328, 66, 356, 357, 161, 161, 122, + 141, 224, 287, 288, 370, 164, 141, 118, 164, 370, + 370, 103, 164, 370, 161, 370, 370, 161, 161, 220, + 325, 355, 370, 287, 121, 123, 122, 141, 164, 141, + 337, 141, 370, 17, 161, 123, 288, 287, 122, 141, + 161, 329, 326, 123, 287, 17, 46, 329, 123, 164, + 164 }; #define yyerrok (yyerrstatus = 0) @@ -3856,12 +3866,12 @@ yydestruct (yymsg, yytype, yyvaluep, pComp) case 19: /* "LITERAL" */ #line 261 "harbour.y" { if( (yyvaluep->valChar).dealloc ) hb_xfree( (yyvaluep->valChar).string ); }; -#line 3860 "harboury.c" +#line 3870 "harboury.c" break; case 95: /* "CBSTART" */ #line 260 "harbour.y" { if( (yyvaluep->asCodeblock).string ) hb_xfree( (yyvaluep->asCodeblock).string ); }; -#line 3865 "harboury.c" +#line 3875 "harboury.c" break; default: @@ -4259,131 +4269,126 @@ yyreduce: case 36: #line 318 "harbour.y" - { HB_COMP_PARAM->cVarType = 'N'; ;} - break; - - case 37: -#line 319 "harbour.y" - { HB_COMP_PARAM->cVarType = 'C'; ;} + { HB_COMP_PARAM->cVarType = ' '; ;} break; case 38: -#line 320 "harbour.y" - { HB_COMP_PARAM->cVarType = 'D'; ;} +#line 322 "harbour.y" + { HB_COMP_PARAM->cVarType = 'N'; ;} break; case 39: -#line 321 "harbour.y" - { HB_COMP_PARAM->cVarType = 'L'; ;} +#line 323 "harbour.y" + { HB_COMP_PARAM->cVarType = 'C'; ;} break; case 40: -#line 322 "harbour.y" - { HB_COMP_PARAM->cVarType = 'B'; ;} +#line 324 "harbour.y" + { HB_COMP_PARAM->cVarType = 'D'; ;} break; case 41: -#line 323 "harbour.y" - { HB_COMP_PARAM->cVarType = 'O'; ;} +#line 325 "harbour.y" + { HB_COMP_PARAM->cVarType = 'L'; ;} break; case 42: -#line 324 "harbour.y" - { HB_COMP_PARAM->cVarType = 'S'; HB_COMP_PARAM->szFromClass = (yyvsp[(2) - (2)].string); ;} +#line 326 "harbour.y" + { HB_COMP_PARAM->cVarType = 'B'; ;} break; case 43: -#line 325 "harbour.y" - { HB_COMP_PARAM->cVarType = ' '; ;} +#line 327 "harbour.y" + { HB_COMP_PARAM->cVarType = 'O'; ;} + break; + + case 44: +#line 328 "harbour.y" + { HB_COMP_PARAM->cVarType = 'S'; HB_COMP_PARAM->szFromClass = (yyvsp[(2) - (2)].string); ;} break; case 45: #line 329 "harbour.y" - { HB_COMP_PARAM->cVarType = 'A'; ;} - break; - - case 46: -#line 330 "harbour.y" - { HB_COMP_PARAM->cVarType = 'n'; ;} + { HB_COMP_PARAM->cVarType = ' '; ;} break; case 47: -#line 331 "harbour.y" - { HB_COMP_PARAM->cVarType = 'c'; ;} +#line 333 "harbour.y" + { HB_COMP_PARAM->cVarType = 'A'; ;} break; case 48: -#line 332 "harbour.y" - { HB_COMP_PARAM->cVarType = 'd'; ;} +#line 334 "harbour.y" + { HB_COMP_PARAM->cVarType = 'n'; ;} break; case 49: -#line 333 "harbour.y" - { HB_COMP_PARAM->cVarType = 'l'; ;} +#line 335 "harbour.y" + { HB_COMP_PARAM->cVarType = 'c'; ;} break; case 50: -#line 334 "harbour.y" - { HB_COMP_PARAM->cVarType = 'a'; ;} +#line 336 "harbour.y" + { HB_COMP_PARAM->cVarType = 'd'; ;} break; case 51: -#line 335 "harbour.y" - { HB_COMP_PARAM->cVarType = 'b'; ;} +#line 337 "harbour.y" + { HB_COMP_PARAM->cVarType = 'l'; ;} break; case 52: -#line 336 "harbour.y" - { HB_COMP_PARAM->cVarType = 'o'; ;} +#line 338 "harbour.y" + { HB_COMP_PARAM->cVarType = 'a'; ;} break; case 53: -#line 337 "harbour.y" - { HB_COMP_PARAM->cVarType = 's'; HB_COMP_PARAM->szFromClass = (yyvsp[(2) - (2)].string); ;} +#line 339 "harbour.y" + { HB_COMP_PARAM->cVarType = 'b'; ;} break; case 54: #line 340 "harbour.y" - { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); (yyval.iNumber) = 1; ;} + { HB_COMP_PARAM->cVarType = 'o'; ;} break; case 55: #line 341 "harbour.y" - { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType ); (yyval.iNumber)++; ;} + { HB_COMP_PARAM->cVarType = 's'; HB_COMP_PARAM->szFromClass = (yyvsp[(2) - (2)].string); ;} + break; + + case 56: +#line 344 "harbour.y" + { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); (yyval.iNumber) = 1; ;} break; case 57: -#line 350 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} - break; - - case 58: -#line 351 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} +#line 345 "harbour.y" + { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType ); (yyval.iNumber)++; ;} break; case 59: -#line 352 "harbour.y" +#line 354 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; case 60: -#line 353 "harbour.y" +#line 355 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; case 61: -#line 354 "harbour.y" - { if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_XBASE ) ) - HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); - else - HB_COMP_EXPR_DELETE( HB_COMP_ERROR_SYNTAX( (yyvsp[(1) - (2)].asExpr) ) ); - HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; - ;} +#line 356 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; case 62: -#line 360 "harbour.y" +#line 357 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} + break; + + case 63: +#line 358 "harbour.y" { if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_XBASE ) ) HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); else @@ -4392,54 +4397,64 @@ yyreduce: ;} break; - case 63: -#line 366 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} - break; - case 64: -#line 367 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} +#line 364 "harbour.y" + { if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_XBASE ) ) + HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); + else + HB_COMP_EXPR_DELETE( HB_COMP_ERROR_SYNTAX( (yyvsp[(1) - (2)].asExpr) ) ); + HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; + ;} break; case 65: -#line 368 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} - break; - - case 66: -#line 369 "harbour.y" - { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} - break; - - case 67: #line 370 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 68: + case 66: #line 371 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 69: + case 67: #line 372 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 70: + case 68: #line 373 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} + break; + + case 69: +#line 374 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} + break; + + case 70: +#line 375 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} + break; + + case 71: +#line 376 "harbour.y" + { HB_COMP_EXPR_DELETE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} + break; + + case 72: +#line 377 "harbour.y" { hb_compGenBreak( HB_COMP_PARAM ); hb_compGenPCode2( HB_P_DOSHORT, 0, HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->bFlags |= FUN_BREAK_CODE; ;} break; - case 71: -#line 375 "harbour.y" + case 73: +#line 379 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 72: -#line 376 "harbour.y" + case 74: +#line 380 "harbour.y" { hb_compGenBreak( HB_COMP_PARAM ); HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); hb_compGenPCode2( HB_P_DOSHORT, 1, HB_COMP_PARAM ); @@ -4447,18 +4462,18 @@ yyreduce: ;} break; - case 73: -#line 381 "harbour.y" + case 75: +#line 385 "harbour.y" { hb_compLoopExit( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->bFlags |= FUN_BREAK_CODE; ;} break; - case 74: -#line 382 "harbour.y" + case 76: +#line 386 "harbour.y" { hb_compLoopLoop( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->bFlags |= FUN_BREAK_CODE; ;} break; - case 75: -#line 383 "harbour.y" + case 77: +#line 387 "harbour.y" { if( HB_COMP_PARAM->wSeqCounter ) { @@ -4473,13 +4488,13 @@ yyreduce: ;} break; - case 76: -#line 395 "harbour.y" + case 78: +#line 399 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->cVarType = ' '; ;} break; - case 77: -#line 397 "harbour.y" + case 79: +#line 401 "harbour.y" { HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' '; @@ -4499,34 +4514,34 @@ yyreduce: ;} break; - case 78: -#line 414 "harbour.y" + case 80: +#line 418 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = VS_PUBLIC; ;} break; - case 79: -#line 416 "harbour.y" + case 81: +#line 420 "harbour.y" { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPUBLIC" ); HB_COMP_PARAM->cVarType = ' '; HB_COMP_PARAM->iVarScope = VS_NONE; HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 81: -#line 420 "harbour.y" + case 83: +#line 424 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = VS_PRIVATE; ;} break; - case 82: -#line 422 "harbour.y" + case 84: +#line 426 "harbour.y" { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPRIVATE" ); HB_COMP_PARAM->cVarType = ' '; HB_COMP_PARAM->iVarScope = VS_NONE; HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 89: -#line 431 "harbour.y" + case 91: +#line 435 "harbour.y" { if( HB_COMP_PARAM->szAnnounce == NULL ) { @@ -4543,13 +4558,13 @@ yyreduce: ;} break; - case 91: -#line 445 "harbour.y" + case 93: +#line 449 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_WITH_RETURN; ;} break; - case 92: -#line 448 "harbour.y" + case 94: +#line 452 "harbour.y" { if( (yyvsp[(1) - (1)].valChar).dealloc ) { @@ -4560,8 +4575,8 @@ yyreduce: ;} break; - case 93: -#line 456 "harbour.y" + case 95: +#line 460 "harbour.y" { { char szFileName[ _POSIX_PATH_MAX + 1 ]; @@ -4575,38 +4590,38 @@ yyreduce: ;} break; - case 94: -#line 469 "harbour.y" + case 96: +#line 473 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 96: -#line 472 "harbour.y" - { (yyval.lNumber) = 0; ;} - break; - - case 97: -#line 473 "harbour.y" - { (yyval.lNumber) = 1; ;} - break; - case 98: -#line 474 "harbour.y" - { (yyval.lNumber) = 1; ;} +#line 476 "harbour.y" + { (yyval.lNumber) = 0; ;} break; case 99: -#line 475 "harbour.y" - { (yyval.lNumber) = 0; ;} +#line 477 "harbour.y" + { (yyval.lNumber) = 1; ;} break; case 100: -#line 476 "harbour.y" - { (yyval.lNumber) = 0; hb_compCheckUnclosedStru( HB_COMP_PARAM ); ;} +#line 478 "harbour.y" + { (yyval.lNumber) = 1; ;} break; case 101: -#line 477 "harbour.y" +#line 479 "harbour.y" + { (yyval.lNumber) = 0; ;} + break; + + case 102: +#line 480 "harbour.y" + { (yyval.lNumber) = 0; hb_compCheckUnclosedStru( HB_COMP_PARAM ); ;} + break; + + case 103: +#line 481 "harbour.y" { if( HB_COMP_PARAM->ilastLineErr && HB_COMP_PARAM->ilastLineErr == HB_COMP_PARAM->currLine ) { yyclearin; @@ -4619,133 +4634,133 @@ yyreduce: ;} break; - case 111: -#line 502 "harbour.y" + case 113: +#line 506 "harbour.y" { (yyval.lNumber) += (yyvsp[(2) - (2)].lNumber); ;} break; - case 112: -#line 505 "harbour.y" - { (yyval.lNumber) = 0; ;} - break; - case 114: #line 509 "harbour.y" - { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), 0 ); ;} - break; - - case 115: -#line 510 "harbour.y" - { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), 0 ); ;} + { (yyval.lNumber) = 0; ;} break; case 116: #line 513 "harbour.y" - { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), HB_FS_DEFERRED ); ;} + { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), 0 ); ;} break; case 117: #line 514 "harbour.y" - { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), HB_FS_DEFERRED ); ;} + { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), 0 ); ;} + break; + + case 118: +#line 517 "harbour.y" + { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), HB_FS_DEFERRED ); ;} break; case 119: #line 518 "harbour.y" - { (yyval.string) = "STEP"; ;} - break; - - case 120: -#line 519 "harbour.y" - { (yyval.string) = "TO"; ;} + { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), HB_FS_DEFERRED ); ;} break; case 121: -#line 520 "harbour.y" - { (yyval.string) = "LOOP"; ;} +#line 522 "harbour.y" + { (yyval.string) = "STEP"; ;} break; case 122: -#line 521 "harbour.y" - { (yyval.string) = "EXIT"; ;} +#line 523 "harbour.y" + { (yyval.string) = "TO"; ;} break; case 123: -#line 522 "harbour.y" - { (yyval.string) = "IN"; ;} +#line 524 "harbour.y" + { (yyval.string) = "LOOP"; ;} break; case 124: -#line 523 "harbour.y" - { (yyval.string) = (yyvsp[(1) - (1)].string); ;} +#line 525 "harbour.y" + { (yyval.string) = "EXIT"; ;} break; case 125: -#line 524 "harbour.y" - { (yyval.string) = (yyvsp[(1) - (1)].string); ;} +#line 526 "harbour.y" + { (yyval.string) = "IN"; ;} break; case 126: -#line 525 "harbour.y" - { (yyval.string) = (yyvsp[(1) - (1)].string); ;} - break; - - case 127: -#line 526 "harbour.y" - { (yyval.string) = (yyvsp[(1) - (1)].string); ;} - break; - - case 128: #line 527 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 129: + case 127: #line 528 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 130: + case 128: #line 529 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 131: + case 129: #line 530 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 132: + case 130: #line 531 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 133: + case 131: #line 532 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 134: + case 132: #line 533 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; - case 135: + case 133: #line 534 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; + case 134: +#line 535 "harbour.y" + { (yyval.string) = (yyvsp[(1) - (1)].string); ;} + break; + + case 135: +#line 536 "harbour.y" + { (yyval.string) = (yyvsp[(1) - (1)].string); ;} + break; + case 136: -#line 539 "harbour.y" - { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[(1) - (1)].valDouble).dNumber, (yyvsp[(1) - (1)].valDouble).bWidth, (yyvsp[(1) - (1)].valDouble).bDec, HB_COMP_PARAM ); ;} +#line 537 "harbour.y" + { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; case 137: -#line 540 "harbour.y" - { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); ;} +#line 538 "harbour.y" + { (yyval.string) = (yyvsp[(1) - (1)].string); ;} break; case 138: #line 543 "harbour.y" + { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[(1) - (1)].valDouble).dNumber, (yyvsp[(1) - (1)].valDouble).bWidth, (yyvsp[(1) - (1)].valDouble).bDec, HB_COMP_PARAM ); ;} + break; + + case 139: +#line 544 "harbour.y" + { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); ;} + break; + + case 140: +#line 547 "harbour.y" { (yyval.asExpr) = hb_compExprNewDate( (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); if( (yyvsp[(1) - (1)].valLong).lNumber == 0 ) { @@ -4754,989 +4769,989 @@ yyreduce: ;} break; - case 139: -#line 551 "harbour.y" + case 141: +#line 555 "harbour.y" { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (2)].valLong).lNumber, HB_COMP_PARAM ); ;} break; - case 140: -#line 552 "harbour.y" + case 142: +#line 556 "harbour.y" { (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, hb_compExprNewDouble( (yyvsp[(1) - (2)].valDouble).dNumber, (yyvsp[(1) - (2)].valDouble).bWidth, (yyvsp[(1) - (2)].valDouble).bDec, HB_COMP_PARAM ) ); ;} break; - case 141: -#line 557 "harbour.y" + case 143: +#line 561 "harbour.y" { (yyval.asExpr) = hb_compExprNewNil( HB_COMP_PARAM ); ;} break; - case 143: -#line 565 "harbour.y" + case 145: +#line 569 "harbour.y" { (yyval.asExpr) = hb_compExprNewString( (yyvsp[(1) - (1)].valChar).string, (yyvsp[(1) - (1)].valChar).length, (yyvsp[(1) - (1)].valChar).dealloc, HB_COMP_PARAM ); (yyvsp[(1) - (1)].valChar).dealloc = FALSE; ;} break; - case 146: -#line 581 "harbour.y" + case 148: +#line 585 "harbour.y" { (yyval.asExpr) = hb_compExprNewLogical( TRUE, HB_COMP_PARAM ); ;} break; - case 147: -#line 582 "harbour.y" + case 149: +#line 586 "harbour.y" { (yyval.asExpr) = hb_compExprNewLogical( FALSE, HB_COMP_PARAM ); ;} break; - case 149: -#line 590 "harbour.y" + case 151: +#line 594 "harbour.y" { (yyval.asExpr) = hb_compExprNewSelf( HB_COMP_PARAM ); ;} break; - case 151: -#line 604 "harbour.y" + case 153: +#line 608 "harbour.y" { (yyval.asExpr) = hb_compExprNewArray( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 153: -#line 612 "harbour.y" + case 155: +#line 616 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 155: -#line 618 "harbour.y" + case 157: +#line 622 "harbour.y" { (yyval.asExpr) = hb_compExprNewHash( NULL, HB_COMP_PARAM ); ;} break; - case 156: -#line 619 "harbour.y" + case 158: +#line 623 "harbour.y" { (yyval.asExpr) = hb_compExprNewHash( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 158: -#line 625 "harbour.y" + case 160: +#line 629 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr) ); ;} break; - case 159: -#line 626 "harbour.y" + case 161: +#line 630 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprAddListExpr( (yyvsp[(1) - (5)].asExpr), (yyvsp[(3) - (5)].asExpr) ), (yyvsp[(5) - (5)].asExpr) ); ;} break; - case 160: -#line 631 "harbour.y" + case 162: +#line 635 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 161: -#line 634 "harbour.y" + case 163: +#line 638 "harbour.y" { (yyval.asExpr) = hb_compExprNewAlias( (yyvsp[(1) - (2)].string), HB_COMP_PARAM ); ;} break; - case 162: -#line 639 "harbour.y" + case 164: +#line 643 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( NULL, '&', (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 163: -#line 640 "harbour.y" + case 165: +#line 644 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( NULL, 0, (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 165: -#line 648 "harbour.y" + case 167: +#line 652 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( (yyvsp[(2) - (2)].asExpr), 0, NULL, HB_COMP_PARAM ); ;} break; - case 167: -#line 658 "harbour.y" + case 169: +#line 662 "harbour.y" { (yyval.asExpr) = hb_compExprNewAlias( "FIELD", HB_COMP_PARAM ); ;} break; - case 168: -#line 659 "harbour.y" + case 170: +#line 663 "harbour.y" { (yyval.asExpr) = (yyvsp[(3) - (3)].asExpr); ;} break; - case 169: -#line 664 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - - case 170: -#line 665 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - case 171: -#line 666 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - - case 172: -#line 667 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - - case 173: #line 668 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 174: + case 172: #line 669 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + break; + + case 173: +#line 670 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + break; + + case 174: +#line 671 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; case 175: -#line 670 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} +#line 672 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; case 176: -#line 671 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} - break; - - case 177: -#line 672 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} - break; - - case 178: #line 673 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; - case 179: + case 177: #line 674 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; - case 180: + case 178: #line 675 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; - case 181: + case 179: #line 676 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; - case 182: + case 180: #line 677 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; + case 181: +#line 678 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + break; + + case 182: +#line 679 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + break; + case 183: #line 680 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + break; + + case 184: +#line 681 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + break; + + case 185: +#line 684 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 186: -#line 685 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 187: -#line 686 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - case 188: -#line 687 "harbour.y" +#line 689 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 189: -#line 688 "harbour.y" +#line 690 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 190: -#line 689 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} +#line 691 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 191: -#line 690 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} +#line 692 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 192: -#line 691 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} - break; - - case 193: -#line 692 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} - break; - - case 194: #line 693 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 195: + case 193: #line 694 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 196: + case 194: #line 695 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 197: + case 195: #line 696 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 198: + case 196: #line 697 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 199: + case 197: #line 698 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 200: + case 198: #line 699 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 201: + case 199: #line 700 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 202: + case 200: #line 701 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; - case 203: + case 201: #line 702 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} + break; + + case 202: +#line 703 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} + break; + + case 203: +#line 704 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; case 204: -#line 703 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} +#line 705 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); ;} break; case 205: -#line 704 "harbour.y" +#line 706 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 206: -#line 713 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} +#line 707 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 207: -#line 714 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} +#line 708 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 208: -#line 715 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 209: -#line 716 "harbour.y" - { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 210: #line 717 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; - case 211: + case 209: #line 718 "harbour.y" - { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 210: +#line 719 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 211: +#line 720 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 212: -#line 723 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} +#line 721 "harbour.y" + { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 213: -#line 724 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} +#line 722 "harbour.y" + { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} break; case 214: -#line 725 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - - case 215: -#line 726 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} - break; - - case 216: #line 727 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 217: + case 215: #line 728 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 218: + case 216: #line 729 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 219: + case 217: #line 730 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 220: + case 218: #line 731 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 221: + case 219: #line 732 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 222: + case 220: #line 733 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 223: + case 221: #line 734 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 224: + case 222: #line 735 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 225: + case 223: #line 736 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 226: + case 224: #line 737 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 227: + case 225: #line 738 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 228: + case 226: #line 739 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 229: + case 227: #line 740 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 231: -#line 746 "harbour.y" - { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} + case 228: +#line 741 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 232: -#line 746 "harbour.y" - { (yyval.asExpr) = hb_compExprNewFunCall( hb_compExprNewFunName( (yyvsp[(1) - (5)].string), HB_COMP_PARAM ), (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->iPassByRef = (yyvsp[(3) - (5)].bTrue); ;} + case 229: +#line 742 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + break; + + case 230: +#line 743 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + break; + + case 231: +#line 744 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + break; + + case 233: +#line 750 "harbour.y" + { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} break; case 234: #line 750 "harbour.y" - { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} - break; - - case 235: -#line 750 "harbour.y" - { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(1) - (5)].asExpr), (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->iPassByRef = (yyvsp[(3) - (5)].bTrue); ;} + { (yyval.asExpr) = hb_compExprNewFunCall( hb_compExprNewFunName( (yyvsp[(1) - (5)].string), HB_COMP_PARAM ), (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->iPassByRef = (yyvsp[(3) - (5)].bTrue); ;} break; case 236: -#line 751 "harbour.y" +#line 754 "harbour.y" { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} break; case 237: -#line 751 "harbour.y" +#line 754 "harbour.y" { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(1) - (5)].asExpr), (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->iPassByRef = (yyvsp[(3) - (5)].bTrue); ;} break; case 238: #line 755 "harbour.y" - { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} + break; + + case 239: +#line 755 "harbour.y" + { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(1) - (5)].asExpr), (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->iPassByRef = (yyvsp[(3) - (5)].bTrue); ;} break; case 240: -#line 761 "harbour.y" +#line 759 "harbour.y" + { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); ;} + break; + + case 242: +#line 765 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; - case 241: -#line 762 "harbour.y" + case 243: +#line 766 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; - case 244: -#line 769 "harbour.y" + case 246: +#line 773 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewVarRef( (yyvsp[(2) - (2)].string), HB_COMP_PARAM ) ); ;} break; - case 245: -#line 770 "harbour.y" - { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); ;} - break; - - case 246: -#line 771 "harbour.y" - { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); ;} - break; - case 247: -#line 772 "harbour.y" +#line 774 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); ;} break; case 248: -#line 773 "harbour.y" - { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr)->value.asList.reference = TRUE; ;} +#line 775 "harbour.y" + { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); ;} break; case 249: #line 776 "harbour.y" - { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); ;} + break; + + case 250: +#line 777 "harbour.y" + { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr)->value.asList.reference = TRUE; ;} break; case 251: -#line 782 "harbour.y" - { (yyval.asExpr) = ((yyvsp[(3) - (3)].asMessage).bMacro ? hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), NULL, (yyvsp[(3) - (3)].asMessage).value.macro, HB_COMP_PARAM ) : hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asMessage).value.string, NULL, HB_COMP_PARAM )); ;} - break; - - case 252: -#line 783 "harbour.y" - { (yyval.asExpr) = ((yyvsp[(3) - (3)].asMessage).bMacro ? hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), NULL, (yyvsp[(3) - (3)].asMessage).value.macro, HB_COMP_PARAM ) : hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asMessage).value.string, NULL, HB_COMP_PARAM )); ;} +#line 780 "harbour.y" + { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); ;} break; case 253: -#line 784 "harbour.y" +#line 786 "harbour.y" + { (yyval.asExpr) = ((yyvsp[(3) - (3)].asMessage).bMacro ? hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), NULL, (yyvsp[(3) - (3)].asMessage).value.macro, HB_COMP_PARAM ) : hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asMessage).value.string, NULL, HB_COMP_PARAM )); ;} + break; + + case 254: +#line 787 "harbour.y" + { (yyval.asExpr) = ((yyvsp[(3) - (3)].asMessage).bMacro ? hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), NULL, (yyvsp[(3) - (3)].asMessage).value.macro, HB_COMP_PARAM ) : hb_compExprNewSend( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asMessage).value.string, NULL, HB_COMP_PARAM )); ;} + break; + + case 255: +#line 788 "harbour.y" { if( HB_COMP_PARAM->wWithObjectCnt == 0 ) hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_WITHOBJECT, NULL, NULL ); (yyval.asExpr) = ((yyvsp[(2) - (2)].asMessage).bMacro ? hb_compExprNewSend( NULL, NULL, (yyvsp[(2) - (2)].asMessage).value.macro, HB_COMP_PARAM ) : hb_compExprNewSend( NULL, (yyvsp[(2) - (2)].asMessage).value.string, NULL, HB_COMP_PARAM )); ;} break; - case 254: -#line 790 "harbour.y" - { (yyval.asMessage).value.string = (yyvsp[(1) - (1)].string); (yyval.asMessage).bMacro=FALSE; ;} - break; - - case 255: -#line 791 "harbour.y" - { (yyval.asMessage).value.macro = (yyvsp[(1) - (1)].asExpr); (yyval.asMessage).bMacro=TRUE; ;} - break; - case 256: -#line 792 "harbour.y" - { (yyval.asMessage).value.macro = (yyvsp[(1) - (1)].asExpr); (yyval.asMessage).bMacro=TRUE; ;} +#line 794 "harbour.y" + { (yyval.asMessage).value.string = (yyvsp[(1) - (1)].string); (yyval.asMessage).bMacro=FALSE; ;} break; case 257: #line 795 "harbour.y" - { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(3) - (4)].string), HB_COMP_PARAM ); ;} + { (yyval.asMessage).value.macro = (yyvsp[(1) - (1)].asExpr); (yyval.asMessage).bMacro=TRUE; ;} + break; + + case 258: +#line 796 "harbour.y" + { (yyval.asMessage).value.macro = (yyvsp[(1) - (1)].asExpr); (yyval.asMessage).bMacro=TRUE; ;} break; case 259: -#line 803 "harbour.y" +#line 799 "harbour.y" + { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(3) - (4)].string), HB_COMP_PARAM ); ;} + break; + + case 261: +#line 807 "harbour.y" {(yyval.bTrue)=HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL;;} break; - case 260: -#line 803 "harbour.y" + case 262: +#line 807 "harbour.y" { (yyval.asExpr) = hb_compExprNewMethodCall( (yyvsp[(1) - (5)].asExpr), (yyvsp[(4) - (5)].asExpr) ); HB_COMP_PARAM->iPassByRef=(yyvsp[(3) - (5)].bTrue); ;} break; - case 269: -#line 822 "harbour.y" + case 271: +#line 826 "harbour.y" {HB_COMP_PARAM->cVarType = ' ';;} break; - case 270: -#line 822 "harbour.y" + case 272: +#line 826 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; - case 280: -#line 832 "harbour.y" + case 282: +#line 836 "harbour.y" {HB_COMP_PARAM->cVarType = ' ';;} break; - case 281: -#line 832 "harbour.y" + case 283: +#line 836 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; - case 284: -#line 835 "harbour.y" + case 286: +#line 839 "harbour.y" {HB_COMP_PARAM->cVarType = ' ';;} break; - case 285: -#line 835 "harbour.y" - { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} - break; - case 287: -#line 837 "harbour.y" - {HB_COMP_PARAM->cVarType = ' ';;} - break; - - case 288: -#line 837 "harbour.y" +#line 839 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; - case 300: -#line 851 "harbour.y" - { HB_COMP_PARAM->cVarType = ' ';;} + case 289: +#line 841 "harbour.y" + {HB_COMP_PARAM->cVarType = ' ';;} break; - case 301: -#line 851 "harbour.y" + case 290: +#line 841 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; case 302: -#line 852 "harbour.y" +#line 855 "harbour.y" { HB_COMP_PARAM->cVarType = ' ';;} break; case 303: -#line 852 "harbour.y" +#line 855 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; + case 304: +#line 856 "harbour.y" + { HB_COMP_PARAM->cVarType = ' ';;} + break; + case 305: #line 856 "harbour.y" - { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); ;} + { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); ;} break; case 307: #line 860 "harbour.y" - { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); ;} break; case 309: #line 864 "harbour.y" + { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); ;} + break; + + case 311: +#line 868 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 315: -#line 870 "harbour.y" + case 317: +#line 874 "harbour.y" { (yyval.asExpr) = hb_compExprListStrip( (yyvsp[(1) - (1)].asExpr), NULL ); ;} break; - case 337: -#line 903 "harbour.y" - { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 338: -#line 904 "harbour.y" - { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); ;} - break; - case 339: #line 907 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} + { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); ;} break; case 340: -#line 910 "harbour.y" - { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} +#line 908 "harbour.y" + { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); ;} break; case 341: #line 911 "harbour.y" - { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; case 342: #line 914 "harbour.y" - { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 343: #line 915 "harbour.y" - { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 344: -#line 916 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} +#line 918 "harbour.y" + { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 345: #line 919 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 346: #line 920 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; case 347: -#line 921 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 348: -#line 922 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 349: #line 923 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 350: + case 348: #line 924 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 351: + case 349: #line 925 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 352: + case 350: #line 926 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 353: + case 351: #line 927 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 354: + case 352: #line 928 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 355: + case 353: #line 929 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 356: + case 354: #line 930 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 357: + case 355: #line 931 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 358: + case 356: #line 932 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 359: + case 357: #line 933 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' ';;} + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 360: + case 358: #line 934 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' ';;} + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 361: + case 359: #line 935 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 362: + case 360: #line 936 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 363: + case 361: #line 937 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' ';;} break; - case 364: + case 362: #line 938 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' ';;} break; - case 365: + case 363: #line 939 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; + case 364: +#line 940 "harbour.y" + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 365: +#line 941 "harbour.y" + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + break; + case 366: #line 942 "harbour.y" - { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' ';;} break; case 367: -#line 945 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 943 "harbour.y" + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 368: -#line 948 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 946 "harbour.y" + { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 369: -#line 951 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 949 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 370: -#line 954 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 952 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 371: -#line 957 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 955 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 372: -#line 960 "harbour.y" +#line 958 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 373: +#line 961 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 374: +#line 964 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewExpEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 379: -#line 971 "harbour.y" + case 381: +#line 975 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 380: -#line 972 "harbour.y" + case 382: +#line 976 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 381: -#line 973 "harbour.y" + case 383: +#line 977 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMult( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; - case 382: -#line 974 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 383: -#line 975 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} - break; - case 384: -#line 976 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 978 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 385: #line 979 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 386: #line 980 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 387: #line 983 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 388: #line 984 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 389: -#line 985 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 987 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 390: -#line 986 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 988 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 391: -#line 987 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 989 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 392: -#line 988 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 990 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 393: -#line 989 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 991 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 394: -#line 990 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 992 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 395: -#line 991 "harbour.y" - { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 993 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 396: +#line 994 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 397: -#line 1000 "harbour.y" - { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(0) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - - case 398: -#line 1001 "harbour.y" - { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} +#line 995 "harbour.y" + { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 399: -#line 1002 "harbour.y" - { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ); ;} +#line 1004 "harbour.y" + { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(0) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 400: #line 1005 "harbour.y" - { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} + { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 401: #line 1006 "harbour.y" - { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} + { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ); ;} break; case 402: #line 1009 "harbour.y" - { (yyval.asExpr) = hb_compExprNewCodeBlock( (yyvsp[(1) - (1)].asCodeblock).string, (yyvsp[(1) - (1)].asCodeblock).length, (yyvsp[(1) - (1)].asCodeblock).flags, HB_COMP_PARAM ); (yyvsp[(1) - (1)].asCodeblock).string = NULL; ;} + { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; case 403: #line 1010 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (6)].asExpr); ;} + { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; case 404: -#line 1015 "harbour.y" - { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (1)].asExpr), (yyvsp[(1) - (1)].asExpr) ); ;} +#line 1013 "harbour.y" + { (yyval.asExpr) = hb_compExprNewCodeBlock( (yyvsp[(1) - (1)].asCodeblock).string, (yyvsp[(1) - (1)].asCodeblock).length, (yyvsp[(1) - (1)].asCodeblock).flags, HB_COMP_PARAM ); (yyvsp[(1) - (1)].asCodeblock).string = NULL; ;} break; case 405: -#line 1016 "harbour.y" - { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} +#line 1014 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (6)].asExpr); ;} break; case 406: -#line 1021 "harbour.y" - { (yyval.asExpr) = NULL; ;} +#line 1019 "harbour.y" + { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (1)].asExpr), (yyvsp[(1) - (1)].asExpr) ); ;} break; case 407: -#line 1022 "harbour.y" - { (yyval.asExpr) = NULL; (yyvsp[(0) - (1)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; ;} +#line 1020 "harbour.y" + { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; case 408: -#line 1023 "harbour.y" - { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); ;} +#line 1025 "harbour.y" + { (yyval.asExpr) = NULL; ;} break; case 409: -#line 1024 "harbour.y" - { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); (yyvsp[(0) - (3)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; ;} +#line 1026 "harbour.y" + { (yyval.asExpr) = NULL; (yyvsp[(0) - (1)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; ;} break; case 410: #line 1027 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (2)].asExpr), (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType, HB_COMP_PARAM ); HB_COMP_PARAM->cVarType = ' '; ;} + { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); ;} break; case 411: #line 1028 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (4)].asExpr), (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType, HB_COMP_PARAM ); HB_COMP_PARAM->cVarType = ' '; ;} + { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); (yyvsp[(0) - (3)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; ;} break; case 412: #line 1031 "harbour.y" - { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} + { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (2)].asExpr), (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType, HB_COMP_PARAM ); HB_COMP_PARAM->cVarType = ' '; ;} break; case 413: #line 1032 "harbour.y" - { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} + { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (4)].asExpr), (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType, HB_COMP_PARAM ); HB_COMP_PARAM->cVarType = ' '; ;} break; case 414: -#line 1034 "harbour.y" - { (yyval.asExpr) = (yyvsp[(2) - (3)].asExpr) ;} +#line 1035 "harbour.y" + { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} + break; + + case 415: +#line 1036 "harbour.y" + { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; case 416: -#line 1047 "harbour.y" - { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(3) - (8)].asExpr), HB_COMP_PARAM ), (yyvsp[(5) - (8)].asExpr) ), (yyvsp[(7) - (8)].asExpr) ) ); ;} +#line 1038 "harbour.y" + { (yyval.asExpr) = (yyvsp[(2) - (3)].asExpr) ;} break; case 418: -#line 1053 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_LOCAL; hb_compLinePush( HB_COMP_PARAM ); ;} - break; - - case 419: -#line 1054 "harbour.y" - { HB_COMP_PARAM->cVarType = ' '; ;} +#line 1051 "harbour.y" + { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(3) - (8)].asExpr), HB_COMP_PARAM ), (yyvsp[(5) - (8)].asExpr) ), (yyvsp[(7) - (8)].asExpr) ) ); ;} break; case 420: -#line 1055 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_STATIC; hb_compLinePush( HB_COMP_PARAM ); ;} +#line 1057 "harbour.y" + { HB_COMP_PARAM->iVarScope = VS_LOCAL; hb_compLinePush( HB_COMP_PARAM ); ;} break; case 421: -#line 1056 "harbour.y" +#line 1058 "harbour.y" { HB_COMP_PARAM->cVarType = ' '; ;} break; case 422: -#line 1057 "harbour.y" +#line 1059 "harbour.y" + { HB_COMP_PARAM->iVarScope = VS_STATIC; hb_compLinePush( HB_COMP_PARAM ); ;} + break; + + case 423: +#line 1060 "harbour.y" + { HB_COMP_PARAM->cVarType = ' '; ;} + break; + + case 424: +#line 1061 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->bFlags & FUN_USES_LOCAL_PARAMS ) hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_PARAMETERS_NOT_ALLOWED, NULL, NULL ); else @@ -5747,19 +5762,9 @@ yyreduce: ;} break; - case 423: -#line 1064 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_NONE; ;} - break; - - case 424: -#line 1067 "harbour.y" - { (yyval.iNumber) = 1; ;} - break; - case 425: #line 1068 "harbour.y" - { (yyval.iNumber)++; ;} + { HB_COMP_PARAM->iVarScope = VS_NONE; ;} break; case 426: @@ -5772,30 +5777,30 @@ yyreduce: { (yyval.iNumber)++; ;} break; + case 428: +#line 1075 "harbour.y" + { (yyval.iNumber) = 1; ;} + break; + case 429: -#line 1082 "harbour.y" +#line 1076 "harbour.y" + { (yyval.iNumber)++; ;} + break; + + case 431: +#line 1086 "harbour.y" { hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ), FALSE ); ;} break; - case 430: -#line 1084 "harbour.y" + case 432: +#line 1088 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (4)].asExpr), HB_COMP_PARAM ), TRUE ); ;} break; - case 431: -#line 1088 "harbour.y" - { - USHORT uCount = (USHORT) hb_compExprListLen( (yyvsp[(2) - (2)].asExpr) ); - HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); - hb_compGenPCode3( HB_P_ARRAYDIM, HB_LOBYTE( uCount ), HB_HIBYTE( uCount ), HB_COMP_PARAM ); - hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ), TRUE ); - ;} - break; - - case 432: -#line 1095 "harbour.y" + case 433: +#line 1092 "harbour.y" { USHORT uCount = (USHORT) hb_compExprListLen( (yyvsp[(2) - (3)].asExpr) ); HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ) ); @@ -5804,19 +5809,18 @@ yyreduce: ;} break; - case 433: -#line 1103 "harbour.y" + case 434: +#line 1100 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 434: -#line 1104 "harbour.y" + case 435: +#line 1101 "harbour.y" { if( HB_COMP_PARAM->iVarScope == VS_STATIC ) { hb_compStaticDefStart( HB_COMP_PARAM ); /* switch to statics pcode buffer */ - hb_compStaticDefEnd( HB_COMP_PARAM ); - hb_compGenStaticName( (yyvsp[(1) - (3)].string), HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, (yyvsp[(1) - (3)].string) ); } else if( HB_COMP_PARAM->iVarScope == VS_PUBLIC || HB_COMP_PARAM->iVarScope == VS_PRIVATE ) { @@ -5825,20 +5829,20 @@ yyreduce: ;} break; - case 435: -#line 1117 "harbour.y" + case 436: +#line 1112 "harbour.y" { (yyval.iNumber) = HB_COMP_PARAM->iVarScope; hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 436: -#line 1120 "harbour.y" + case 437: +#line 1115 "harbour.y" {HB_COMP_PARAM->cVarType = ' ';;} break; - case 437: -#line 1121 "harbour.y" + case 438: +#line 1116 "harbour.y" { HB_COMP_PARAM->cCastType = HB_COMP_PARAM->cVarType; HB_COMP_PARAM->cVarType = ' '; @@ -5848,8 +5852,7 @@ yyreduce: { hb_compStaticDefStart( HB_COMP_PARAM ); /* switch to statics pcode buffer */ HB_COMP_EXPR_DELETE( hb_compExprGenStatement( hb_compExprAssignStatic( hb_compExprNewVar( (yyvsp[(1) - (6)].string), HB_COMP_PARAM ), (yyvsp[(6) - (6)].asExpr), HB_COMP_PARAM ), HB_COMP_PARAM ) ); - hb_compStaticDefEnd( HB_COMP_PARAM ); - hb_compGenStaticName( (yyvsp[(1) - (6)].string), HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, (yyvsp[(1) - (6)].string) ); } else if( HB_COMP_PARAM->iVarScope == VS_PUBLIC || HB_COMP_PARAM->iVarScope == VS_PRIVATE ) { @@ -5864,82 +5867,85 @@ yyreduce: ;} break; - case 438: -#line 1145 "harbour.y" - { hb_compVariableDim( (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} - break; - case 439: -#line 1146 "harbour.y" +#line 1139 "harbour.y" { hb_compVariableDim( (yyvsp[(1) - (3)].string), (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); ;} break; case 441: -#line 1155 "harbour.y" +#line 1148 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; case 442: -#line 1156 "harbour.y" +#line 1149 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; case 443: -#line 1157 "harbour.y" +#line 1150 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr) ); ;} break; case 444: -#line 1161 "harbour.y" +#line 1153 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_FIELD; ;} break; case 445: -#line 1161 "harbour.y" - { HB_COMP_PARAM->cVarType = ' '; ;} +#line 1155 "harbour.y" + { + if( (yyvsp[(4) - (5)].string) ) hb_compFieldSetAlias( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), (yyvsp[(3) - (5)].iNumber) ); + HB_COMP_PARAM->cVarType = ' '; + ;} break; case 446: -#line 1164 "harbour.y" +#line 1161 "harbour.y" { (yyval.iNumber)=hb_compFieldsCount( HB_COMP_PARAM ); hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); ;} break; case 447: -#line 1165 "harbour.y" +#line 1162 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType ); ;} break; case 448: -#line 1166 "harbour.y" - { hb_compFieldSetAlias( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), (yyvsp[(1) - (3)].iNumber) ); ;} +#line 1165 "harbour.y" + { (yyval.string) = NULL; ;} break; case 449: -#line 1169 "harbour.y" - { HB_COMP_PARAM->iVarScope = VS_MEMVAR; ;} +#line 1166 "harbour.y" + { (yyval.string) = (yyvsp[(2) - (2)].string); ;} break; case 450: #line 1169 "harbour.y" - { HB_COMP_PARAM->cVarType = ' '; ;} + { HB_COMP_PARAM->iVarScope = VS_MEMVAR; ;} break; case 451: +#line 1169 "harbour.y" + { HB_COMP_PARAM->cVarType = ' '; ;} + break; + + case 452: #line 1172 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 452: + case 453: #line 1173 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 453: + case 454: #line 1176 "harbour.y" { hb_compDeclaredAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string) ); HB_COMP_PARAM->szDeclaredFun = (yyvsp[(2) - (3)].string); ;} break; - case 454: + case 455: #line 1177 "harbour.y" { if( HB_COMP_PARAM->pLastDeclared ) @@ -5965,42 +5971,42 @@ yyreduce: ;} break; - case 455: + case 456: #line 1199 "harbour.y" { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[(2) - (2)].string) ); ;} break; - case 456: + case 457: #line 1199 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_NONE; ;} break; - case 457: + case 458: #line 1200 "harbour.y" { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string) ); HB_COMP_PARAM->iVarScope = VS_NONE; ;} break; - case 458: + case 459: #line 1201 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_NONE; ;} break; - case 459: + case 460: #line 1202 "harbour.y" { HB_COMP_PARAM->cDataListType = HB_COMP_PARAM->cVarType; ;} break; - case 460: + case 461: #line 1202 "harbour.y" { HB_COMP_PARAM->cDataListType = 0; HB_COMP_PARAM->iVarScope = VS_NONE; ;} break; - case 467: + case 468: #line 1215 "harbour.y" { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[(1) - (2)].string) ); ;} break; - case 468: + case 469: #line 1216 "harbour.y" { if( HB_COMP_PARAM->pLastMethod ) @@ -6023,12 +6029,12 @@ yyreduce: ;} break; - case 469: + case 470: #line 1237 "harbour.y" { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[(1) - (1)].string) ); ;} break; - case 470: + case 471: #line 1238 "harbour.y" { if( HB_COMP_PARAM->pLastMethod ) @@ -6085,174 +6091,174 @@ yyreduce: ;} break; - case 477: + case 478: #line 1303 "harbour.y" { HB_COMP_EXPR_DELETE( (yyvsp[(1) - (1)].asExpr) ); ;} break; - case 478: + case 479: #line 1306 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 479: + case 480: #line 1307 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_BYREF ); ;} break; - case 480: + case 481: #line 1308 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (5)].string), 'F' ); ;} break; - case 481: + case 482: #line 1309 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType ); ;} break; - case 482: + case 483: #line 1310 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_BYREF ); ;} break; - case 483: + case 484: #line 1311 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (7)].string), 'F' ); ;} break; - case 484: + case 485: #line 1314 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL ); ;} break; - case 485: + case 486: #line 1315 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF ); ;} break; - case 486: + case 487: #line 1316 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (6)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF ); ;} break; - case 487: + case 488: #line 1317 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL ); ;} break; - case 488: + case 489: #line 1318 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(5) - (6)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF ); ;} break; - case 489: + case 490: #line 1319 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(5) - (8)].string), HB_COMP_PARAM->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF ); ;} break; - case 498: + case 499: #line 1332 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (2)].iNumber), HB_COMP_PARAM ); ;} break; - case 499: + case 500: #line 1333 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (3)].iNumber), HB_COMP_PARAM ); ;} break; - case 500: + case 501: #line 1334 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (3)].iNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (3)].pVoid) ); ;} break; - case 501: + case 502: #line 1335 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (4)].iNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (4)].pVoid) ); ;} break; - case 502: + case 503: #line 1339 "harbour.y" { ++HB_COMP_PARAM->wIfCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 503: + case 504: #line 1341 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(2) - (4)].asExpr), HB_COMP_PARAM ) ); (yyval.iNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); ;} break; - case 504: + case 505: #line 1343 "harbour.y" { (yyval.iNumber) = hb_compGenJump( 0, HB_COMP_PARAM ); hb_compGenJumpHere( (yyvsp[(5) - (6)].iNumber), HB_COMP_PARAM ); ;} break; - case 505: + case 506: #line 1346 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 507: + case 508: #line 1350 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); ;} break; - case 508: + case 509: #line 1352 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); (yyval.iNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); ;} break; - case 509: + case 510: #line 1356 "harbour.y" { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, NULL, hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[(5) - (6)].iNumber), HB_COMP_PARAM ); ;} break; - case 510: + case 511: #line 1360 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); ;} break; - case 511: + case 512: #line 1362 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ) ); (yyval.iNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); ;} break; - case 512: + case 513: #line 1366 "harbour.y" { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, (yyvsp[(1) - (7)].pVoid), hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[(6) - (7)].iNumber), HB_COMP_PARAM ); ;} break; - case 513: + case 514: #line 1371 "harbour.y" { if( HB_COMP_PARAM->wIfCounter ) --HB_COMP_PARAM->wIfCounter; HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); ;} break; - case 514: + case 515: #line 1374 "harbour.y" { if( HB_COMP_PARAM->wIfCounter ) --HB_COMP_PARAM->wIfCounter; HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); ;} break; - case 515: + case 516: #line 1381 "harbour.y" { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (3)].pVoid) ); ;} break; - case 518: + case 519: #line 1393 "harbour.y" { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (4)].pVoid) ); ;} break; - case 519: + case 520: #line 1397 "harbour.y" { if( HB_COMP_PARAM->wCaseCounter ) --HB_COMP_PARAM->wCaseCounter; @@ -6260,7 +6266,7 @@ yyreduce: ;} break; - case 520: + case 521: #line 1402 "harbour.y" { if( HB_COMP_PARAM->wCaseCounter ) --HB_COMP_PARAM->wCaseCounter; @@ -6268,12 +6274,12 @@ yyreduce: ;} break; - case 521: + case 522: #line 1408 "harbour.y" { ++HB_COMP_PARAM->wCaseCounter; hb_compLinePushIfDebugger( HB_COMP_PARAM );;} break; - case 524: + case 525: #line 1412 "harbour.y" { if( (yyvsp[(2) - (2)].lNumber) > 0 ) @@ -6283,12 +6289,12 @@ yyreduce: ;} break; - case 525: + case 526: #line 1420 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 526: + case 527: #line 1421 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); @@ -6296,7 +6302,7 @@ yyreduce: ;} break; - case 527: + case 528: #line 1426 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; @@ -6305,12 +6311,12 @@ yyreduce: ;} break; - case 528: + case 529: #line 1432 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 529: + case 530: #line 1433 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ) ); @@ -6318,7 +6324,7 @@ yyreduce: ;} break; - case 530: + case 531: #line 1438 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; @@ -6327,22 +6333,22 @@ yyreduce: ;} break; - case 531: + case 532: #line 1445 "harbour.y" {hb_compLinePushIfDebugger( HB_COMP_PARAM ); ;} break; - case 532: + case 533: #line 1445 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 534: + case 535: #line 1447 "harbour.y" { hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_MAYHEM_IN_CASE, NULL, NULL ); ;} break; - case 536: + case 537: #line 1452 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ) ); @@ -6350,7 +6356,7 @@ yyreduce: ;} break; - case 537: + case 538: #line 1457 "harbour.y" { hb_compLoopHere( HB_COMP_PARAM ); @@ -6358,7 +6364,7 @@ yyreduce: ;} break; - case 538: + case 539: #line 1462 "harbour.y" { hb_compGenJumpHere( (yyvsp[(4) - (7)].lNumber), HB_COMP_PARAM ); @@ -6369,22 +6375,22 @@ yyreduce: ;} break; - case 539: + case 540: #line 1471 "harbour.y" { (yyval.lNumber) = HB_COMP_PARAM->functions.pLast->lPCodePos; hb_compLinePushIfInside( HB_COMP_PARAM ); ++HB_COMP_PARAM->wWhileCounter; hb_compLoopStart( HB_COMP_PARAM ); ;} break; - case 540: + case 541: #line 1474 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 541: + case 542: #line 1475 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 542: + case 543: #line 1479 "harbour.y" { /* 5 */ hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -6399,7 +6405,7 @@ yyreduce: ;} break; - case 543: + case 544: #line 1491 "harbour.y" { /* 9 */ hb_compLoopStart( HB_COMP_PARAM ); @@ -6407,14 +6413,14 @@ yyreduce: ;} break; - case 544: + case 545: #line 1496 "harbour.y" { /* 11 */ (yyval.lNumber) = HB_COMP_PARAM->functions.pLast->lPCodePos; ;} break; - case 545: + case 546: #line 1500 "harbour.y" { int iSign, iLine; @@ -6452,80 +6458,80 @@ yyreduce: ;} break; - case 548: + case 549: #line 1540 "harbour.y" { (yyval.asExpr) = NULL; ;} break; - case 549: + case 550: #line 1541 "harbour.y" { (yyval.asExpr) = hb_compExprReduce( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); ;} break; - case 550: + case 551: #line 1544 "harbour.y" { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->wForCounter ) --HB_COMP_PARAM->wForCounter; ;} break; - case 551: + case 552: #line 1547 "harbour.y" { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->wForCounter ) --HB_COMP_PARAM->wForCounter; ;} break; - case 552: + case 553: #line 1550 "harbour.y" { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->wForCounter ) --HB_COMP_PARAM->wForCounter; ;} break; - case 553: + case 554: #line 1553 "harbour.y" { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->wForCounter ) --HB_COMP_PARAM->wForCounter; ;} break; - case 554: + case 555: #line 1558 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 555: + case 556: #line 1559 "harbour.y" { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; - case 556: + case 557: #line 1562 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; - case 557: + case 558: #line 1563 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; - case 558: + case 559: #line 1566 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(2) - (2)].string), HB_COMP_PARAM ); ;} break; - case 560: + case 561: #line 1570 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; - case 561: + case 562: #line 1571 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; - case 562: + case 563: #line 1576 "harbour.y" { ++HB_COMP_PARAM->wForCounter; /* 5 */ @@ -6534,7 +6540,7 @@ yyreduce: ;} break; - case 563: + case 564: #line 1582 "harbour.y" { /* 7 @@ -6546,7 +6552,7 @@ yyreduce: ;} break; - case 564: + case 565: #line 1591 "harbour.y" { /* 9 @@ -6555,7 +6561,7 @@ yyreduce: ;} break; - case 565: + case 566: #line 1597 "harbour.y" { hb_compLoopHere( HB_COMP_PARAM ); @@ -6571,17 +6577,17 @@ yyreduce: ;} break; - case 566: + case 567: #line 1611 "harbour.y" { (yyval.iNumber) = 1; ;} break; - case 567: + case 568: #line 1612 "harbour.y" { (yyval.iNumber) = -1; ;} break; - case 568: + case 569: #line 1616 "harbour.y" { hb_compLoopStart( HB_COMP_PARAM ); @@ -6590,7 +6596,7 @@ yyreduce: ;} break; - case 569: + case 570: #line 1623 "harbour.y" { hb_compSwitchEnd( HB_COMP_PARAM ); @@ -6598,14 +6604,14 @@ yyreduce: ;} break; - case 570: + case 571: #line 1630 "harbour.y" { hb_compGenPCode1( HB_P_POP, HB_COMP_PARAM ); ;} break; - case 571: + case 572: #line 1636 "harbour.y" { if( HB_COMP_PARAM->wSwitchCounter ) --HB_COMP_PARAM->wSwitchCounter; @@ -6613,21 +6619,21 @@ yyreduce: ;} break; - case 572: + case 573: #line 1643 "harbour.y" { ++HB_COMP_PARAM->wSwitchCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); ;} break; - case 573: + case 574: #line 1647 "harbour.y" { HB_COMP_EXPR_DELETE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); ;} break; - case 575: + case 576: #line 1653 "harbour.y" { if( (yyvsp[(2) - (2)].lNumber) > 0 ) @@ -6637,27 +6643,27 @@ yyreduce: ;} break; - case 576: + case 577: #line 1661 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); ;} break; - case 578: + case 579: #line 1664 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); ;} break; - case 582: + case 583: #line 1672 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, NULL ); hb_compLinePush( HB_COMP_PARAM ); ;} break; - case 583: + case 584: #line 1672 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 585: + case 586: #line 1677 "harbour.y" { /* 2 */ hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -6666,7 +6672,7 @@ yyreduce: ;} break; - case 586: + case 587: #line 1684 "harbour.y" { /* 5 */ /* Set jump address for HB_P_SEQBEGIN opcode - this address @@ -6677,7 +6683,7 @@ yyreduce: ;} break; - case 587: + case 588: #line 1692 "harbour.y" { /* 7 */ /* Replace END address with RECOVER address in @@ -6690,7 +6696,7 @@ yyreduce: ;} break; - case 588: + case 589: #line 1702 "harbour.y" { /* 9 */ HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); @@ -6715,12 +6721,12 @@ yyreduce: ;} break; - case 590: + case 591: #line 1726 "harbour.y" { (yyval.lNumber) = 0; ;} break; - case 592: + case 593: #line 1731 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); @@ -6729,12 +6735,12 @@ yyreduce: ;} break; - case 593: + case 594: #line 1738 "harbour.y" { (yyval.lNumber) = 0; HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; ;} break; - case 596: + case 597: #line 1744 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; @@ -6746,7 +6752,7 @@ yyreduce: ;} break; - case 597: + case 598: #line 1755 "harbour.y" { HB_COMP_PARAM->functions.pLast->bFlags &= ~ FUN_BREAK_CODE; @@ -6759,12 +6765,12 @@ yyreduce: ;} break; - case 600: + case 601: #line 1777 "harbour.y" { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL; ;} break; - case 601: + case 602: #line 1779 "harbour.y" { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(2) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ); @@ -6772,12 +6778,12 @@ yyreduce: ;} break; - case 602: + case 603: #line 1784 "harbour.y" { (yyval.bTrue) = HB_COMP_PARAM->iPassByRef;HB_COMP_PARAM->iPassByRef=HB_PASSBYREF_FUNCALL; ;} break; - case 603: + case 604: #line 1786 "harbour.y" { hb_compAutoOpenAdd( HB_COMP_PARAM, (yyvsp[(1) - (3)].string) ); @@ -6787,47 +6793,47 @@ yyreduce: ;} break; - case 604: + case 605: #line 1794 "harbour.y" { (yyval.asExpr) = NULL; ;} break; - case 605: + case 606: #line 1795 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); ;} break; - case 606: + case 607: #line 1798 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), hb_compExprNewNil( HB_COMP_PARAM ) ); ;} break; - case 607: + case 608: #line 1799 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), (yyvsp[(2) - (2)].asExpr) ); ;} break; - case 608: + case 609: #line 1800 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); ;} break; - case 609: + case 610: #line 1801 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (2)].asExpr), hb_compExprNewNil( HB_COMP_PARAM ) ); ;} break; - case 610: + case 611: #line 1802 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); ;} break; - case 611: + case 612: #line 1805 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); ;} break; - case 616: + case 617: #line 1813 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -6838,7 +6844,7 @@ yyreduce: ;} break; - case 617: + case 618: #line 1822 "harbour.y" { if( HB_COMP_PARAM->wWithObjectCnt ) --HB_COMP_PARAM->wWithObjectCnt; @@ -6853,14 +6859,14 @@ yyreduce: ;} break; - case 618: + case 619: #line 1835 "harbour.y" { HB_COMP_PARAM->fError = FALSE; ;} break; /* Line 1268 of yacc.c. */ -#line 6864 "harboury.c" +#line 6870 "harboury.c" default: break; } YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); @@ -7445,7 +7451,7 @@ static void hb_compVariableDim( char * szName, HB_EXPR_PTR pInitValue, HB_COMP_D hb_compExprGenPop( pVar, HB_COMP_PARAM ); /* delete all used expressions */ HB_COMP_EXPR_DELETE( pAssign ); - hb_compStaticDefEnd( HB_COMP_PARAM ); + hb_compStaticDefEnd( HB_COMP_PARAM, szName ); } else { diff --git a/harbour/source/compiler/harbour.yyh b/harbour/source/compiler/harbour.yyh index 5138dfc878..96b06884c1 100644 --- a/harbour/source/compiler/harbour.yyh +++ b/harbour/source/compiler/harbour.yyh @@ -132,17 +132,18 @@ AS_OBJECT_ARRAY = 348, PROCREQ = 349, CBSTART = 350, - DOIDENT = 351, - FOREACH = 352, - DESCEND = 353, - DOSWITCH = 354, - WITHOBJECT = 355, - NUM_DATE = 356, - EPSILON = 357, - HASHOP = 358, - POST = 359, - UNARY = 360, - PRE = 361 + BEGINCODE = 351, + DOIDENT = 352, + FOREACH = 353, + DESCEND = 354, + DOSWITCH = 355, + WITHOBJECT = 356, + NUM_DATE = 357, + EPSILON = 358, + HASHOP = 359, + POST = 360, + UNARY = 361, + PRE = 362 }; #endif /* Tokens. */ @@ -239,17 +240,18 @@ #define AS_OBJECT_ARRAY 348 #define PROCREQ 349 #define CBSTART 350 -#define DOIDENT 351 -#define FOREACH 352 -#define DESCEND 353 -#define DOSWITCH 354 -#define WITHOBJECT 355 -#define NUM_DATE 356 -#define EPSILON 357 -#define HASHOP 358 -#define POST 359 -#define UNARY 360 -#define PRE 361 +#define BEGINCODE 351 +#define DOIDENT 352 +#define FOREACH 353 +#define DESCEND 354 +#define DOSWITCH 355 +#define WITHOBJECT 356 +#define NUM_DATE 357 +#define EPSILON 358 +#define HASHOP 359 +#define POST 360 +#define UNARY 361 +#define PRE 362 @@ -299,7 +301,7 @@ typedef union YYSTYPE } asMessage; } /* Line 1533 of yacc.c. */ -#line 303 "harboury.h" +#line 305 "harboury.h" YYSTYPE; # define yystype YYSTYPE /* obsolescent; will be withdrawn */ # define YYSTYPE_IS_DECLARED 1 diff --git a/harbour/source/compiler/hbmain.c b/harbour/source/compiler/hbmain.c index 5f2d36b921..2ed7921afd 100644 --- a/harbour/source/compiler/hbmain.c +++ b/harbour/source/compiler/hbmain.c @@ -68,25 +68,11 @@ #endif static int hb_compCompile( HB_COMP_DECL, char * szPrg, BOOL bSingleFile ); - -static int hb_compStaticGetPos( char *, PFUNCTION ); /* return if passed name is a static variable */ -static int hb_compFieldGetPos( char *, PFUNCTION ); /* return if passed name is a field variable */ -static int hb_compMemvarGetPos( char *, PFUNCTION ); /* return if passed name is a memvar variable */ - -static void hb_compGenFieldPCode( HB_COMP_DECL, BYTE , int, char *, PFUNCTION ); /* generates the pcode for database field */ -static void hb_compGenVariablePCode( HB_COMP_DECL, BYTE , char * ); /* generates the pcode for undeclared variable */ - -static PFUNCTION hb_compFunctionNew( HB_COMP_DECL, char *, HB_SYMBOLSCOPE ); /* creates and initialises the _FUNC structure */ -static void hb_compCheckDuplVars( HB_COMP_DECL, PVAR pVars, char * szVarName ); /*checks for duplicate variables definitions */ static int hb_compProcessRSPFile( HB_COMP_DECL, char * ); /* process response file */ - -static void hb_compOptimizeJumps( HB_COMP_DECL ); -static void hb_compOptimizeFrames( HB_COMP_DECL, PFUNCTION pFunc ); +static int hb_compAutoOpen( HB_COMP_DECL, char * szPrg, BOOL * bSkipGen, BOOL bSingleFile ); static void hb_compDeclaredInit( HB_COMP_DECL ); -static int hb_compAutoOpen( HB_COMP_DECL, char * szPrg, BOOL * bSkipGen, BOOL bSingleFile ); - /* global variables */ FILE * hb_comp_errFile = NULL; @@ -132,7 +118,7 @@ int hb_compMain( int argc, char * argv[], BYTE ** pBufPtr, ULONG * pulSize ) hb_comp_errFile = stdout; #endif - HB_TRACE(HB_TR_DEBUG, ("main()")); + HB_TRACE(HB_TR_DEBUG, ("hb_compMain()")); HB_COMP_PARAM = hb_comp_new(); @@ -316,148 +302,132 @@ static int hb_compProcessRSPFile( HB_COMP_DECL, char * szRspName ) /* ------------------------------------------------------------------------- */ -/* - * This function adds the name of called function into the list - * as they have to be placed on the symbol table later than the first - * public symbol - */ -static PFUNCALL hb_compFunCallAdd( HB_COMP_DECL, char * szFunctionName ) +static PCOMSYMBOL hb_compSymbolAdd( HB_COMP_DECL, char * szSymbolName, USHORT * pwPos, BOOL bFunction ) { - PFUNCALL pFunc = ( PFUNCALL ) hb_xgrab( sizeof( _FUNCALL ) ); + PCOMSYMBOL pSym; - pFunc->szName = szFunctionName; - pFunc->pNext = NULL; - if( ! HB_COMP_PARAM->funcalls.iCount ) + if( szSymbolName[ 0 ] ) { - HB_COMP_PARAM->funcalls.pFirst = pFunc; - HB_COMP_PARAM->funcalls.pLast = pFunc; - } - else - { - HB_COMP_PARAM->funcalls.pLast->pNext = pFunc; - HB_COMP_PARAM->funcalls.pLast = pFunc; - } - HB_COMP_PARAM->funcalls.iCount++; + /* Create a symbol for non-empty names only. + * NOTE: an empty name is passed for a fake starting function when + * '-n' switch is used + */ + pSym = ( PCOMSYMBOL ) hb_xgrab( sizeof( COMSYMBOL ) ); - return pFunc; -} + pSym->szName = szSymbolName; + pSym->cScope = 0; + pSym->cType = HB_COMP_PARAM->cVarType; + pSym->pNext = NULL; + pSym->bFunc = bFunction; -/* - * This function adds the name of external symbol into the list of externals - * as they have to be placed on the symbol table later than the first - * public symbol - */ -void hb_compExternAdd( HB_COMP_DECL, char * szExternName, HB_SYMBOLSCOPE cScope ) /* defines a new extern name */ -{ - PEXTERN pExtern = ( PEXTERN ) hb_xgrab( sizeof( _EXTERN ) ), pLast; - - if( strcmp( "_GET_", szExternName ) == 0 ) - { - /* special function to implement @ GET statement */ - hb_compExternAdd( HB_COMP_PARAM, "__GETA", 0 ); - pExtern->szName = "__GET"; - } - else - { - pExtern->szName = szExternName; - } - pExtern->cScope = cScope; - pExtern->pNext = NULL; - - if( HB_COMP_PARAM->externs == NULL ) - HB_COMP_PARAM->externs = pExtern; - else - { - pLast = HB_COMP_PARAM->externs; - while( pLast->pNext ) - pLast = pLast->pNext; - pLast->pNext = pExtern; - } -} - -void hb_compDeclaredParameterAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) -{ - /* Nothing to do since no warnings requested.*/ - if ( HB_COMP_PARAM->iWarnings < 3 ) - { - HB_SYMBOL_UNUSED( szVarName ); - return; - } - - /* Either a Declared Function Parameter or a Declared Method Parameter. */ - if( HB_COMP_PARAM->szDeclaredFun ) - { - /* Find the Declared Function owner of this parameter. */ - PCOMDECLARED pDeclared = hb_compDeclaredFind( HB_COMP_PARAM, HB_COMP_PARAM->szDeclaredFun ); - - if ( pDeclared ) + if( ! HB_COMP_PARAM->symbols.iCount ) { - pDeclared->iParamCount++; - - - /* TOFIX: these allocations causes memory leaks */ - if ( pDeclared->cParamTypes ) - { - pDeclared->cParamTypes = ( BYTE * ) hb_xrealloc( pDeclared->cParamTypes, pDeclared->iParamCount ); - pDeclared->pParamClasses = ( PCOMCLASS * ) hb_xrealloc( pDeclared->pParamClasses, pDeclared->iParamCount * sizeof( PCOMCLASS ) ); - } - else - { - pDeclared->cParamTypes = ( BYTE * ) hb_xgrab( 1 ); - pDeclared->pParamClasses = ( PCOMCLASS * ) hb_xgrab( sizeof( PCOMCLASS ) ); - } - - pDeclared->cParamTypes[ pDeclared->iParamCount - 1 ] = cValueType; - - if ( toupper( cValueType ) == 'S' ) - { - pDeclared->pParamClasses[ pDeclared->iParamCount - 1 ] = hb_compClassFind( HB_COMP_PARAM, HB_COMP_PARAM->szFromClass ); - - /* Resetting */ - HB_COMP_PARAM->szFromClass = NULL; - } - } - } - else /* Declared Method Parameter */ - { - /* - printf( "\nAdding parameter: %s Type: %c In Method: %s Class: %s FROM CLASS: %s\n", szVarName, cValueType, HB_COMP_PARAM->pLastMethod->szName, HB_COMP_PARAM->pLastClass->szName, HB_COMP_PARAM->szFromClass ); - */ - - HB_COMP_PARAM->pLastMethod->iParamCount++; - - /* TOFIX: these allocations causes memory leaks */ - if ( HB_COMP_PARAM->pLastMethod->cParamTypes ) - { - HB_COMP_PARAM->pLastMethod->cParamTypes = ( BYTE * ) hb_xrealloc( HB_COMP_PARAM->pLastMethod->cParamTypes, HB_COMP_PARAM->pLastMethod->iParamCount ); - HB_COMP_PARAM->pLastMethod->pParamClasses = ( PCOMCLASS * ) hb_xrealloc( HB_COMP_PARAM->pLastMethod->pParamClasses, HB_COMP_PARAM->pLastMethod->iParamCount * sizeof( COMCLASS ) ); + HB_COMP_PARAM->symbols.pFirst = pSym; + HB_COMP_PARAM->symbols.pLast = pSym; } else { - HB_COMP_PARAM->pLastMethod->cParamTypes = ( BYTE * ) hb_xgrab( 1 ); - HB_COMP_PARAM->pLastMethod->pParamClasses = ( PCOMCLASS * ) hb_xgrab( sizeof( COMCLASS ) ); + ( ( PCOMSYMBOL ) HB_COMP_PARAM->symbols.pLast )->pNext = pSym; + HB_COMP_PARAM->symbols.pLast = pSym; } + HB_COMP_PARAM->symbols.iCount++; - HB_COMP_PARAM->pLastMethod->cParamTypes[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ] = cValueType; - - if ( toupper( cValueType ) == 'S' ) - { - HB_COMP_PARAM->pLastMethod->pParamClasses[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ] = hb_compClassFind( HB_COMP_PARAM, HB_COMP_PARAM->szFromClass ); - - /* - printf( "\nParameter: %s FROM CLASS: %s\n", szVarName, HB_COMP_PARAM->pLastMethod->pParamClasses[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ]->szName ); - */ - - /* Resetting */ - HB_COMP_PARAM->szFromClass = NULL; - } + if( pwPos ) + *pwPos = HB_COMP_PARAM->symbols.iCount -1; /* position number starts form 0 */ } + else + pSym = NULL; + + return pSym; +} + +static PCOMSYMBOL hb_compSymbolFind( HB_COMP_DECL, char * szSymbolName, USHORT * pwPos, BOOL bFunction ) +{ + PCOMSYMBOL pSym = HB_COMP_PARAM->symbols.pFirst; + USHORT wCnt = 0; + + if( pwPos ) + *pwPos = 0; + while( pSym ) + { + if( ! strcmp( pSym->szName, szSymbolName ) ) + { + if( bFunction == pSym->bFunc ) + { + if( pwPos ) + *pwPos = wCnt; + return pSym; + } + } + + if( pSym->pNext ) + { + pSym = pSym->pNext; + ++wCnt; + } + else + return NULL; + } + return NULL; +} + +/* NOTE: Name of symbols are released in hbident.c on exit */ +static PCOMSYMBOL hb_compSymbolKill( PCOMSYMBOL pSym ) +{ + PCOMSYMBOL pNext = pSym->pNext; + + hb_xfree( ( void * ) pSym ); + + return pNext; +} + +/* returns a symbol name based on its index on the symbol table + * index starts from 0 + */ +char * hb_compSymbolName( HB_COMP_DECL, USHORT uiSymbol ) +{ + PCOMSYMBOL pSym = HB_COMP_PARAM->symbols.pFirst; + + while( pSym ) + { + if( uiSymbol-- == 0 ) + return pSym->szName; + pSym = pSym->pNext; + } + return NULL; +} + +static void hb_compCheckDuplVars( HB_COMP_DECL, PVAR pVar, char * szVarName ) +{ + while( pVar ) + { + if( ! strcmp( pVar->szName, szVarName ) ) + { + HB_COMP_ERROR_DUPLVAR( szVarName ); + break; + } + else + pVar = pVar->pNext; + } +} + +static USHORT hb_compVarListAdd( PVAR * pVarLst, PVAR pVar ) +{ + USHORT uiVar = 1; + while( *pVarLst ) + { + pVarLst = &( *pVarLst )->pNext; + ++uiVar; + } + *pVarLst = pVar; + + return uiVar; } void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) { - PVAR pVar, pLastVar; PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; + PVAR pVar; BOOL bFreeVar = TRUE; HB_SYMBOL_UNUSED( cValueType ); @@ -511,12 +481,16 @@ void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) /* NOTE: Clipper warns if PARAMETER variable duplicates the MEMVAR * declaration */ - if( !( HB_COMP_PARAM->iVarScope == VS_PRIVATE || HB_COMP_PARAM->iVarScope == VS_PUBLIC ) ) + if( !( HB_COMP_PARAM->iVarScope == VS_PRIVATE || + HB_COMP_PARAM->iVarScope == VS_PUBLIC ) ) hb_compCheckDuplVars( HB_COMP_PARAM, pFunc->pMemvars, szVarName ); } - else + else if( HB_COMP_PARAM->iVarScope != VS_PARAMETER ) + { + fprintf( hb_comp_errFile, "Wrong type of codeblock parameter, is: %d, should be: %d\r\n", HB_COMP_PARAM->iVarScope, VS_PARAMETER ); /* variable defined in a codeblock */ HB_COMP_PARAM->iVarScope = VS_PARAMETER; + } hb_compCheckDuplVars( HB_COMP_PARAM, pFunc->pLocals, szVarName ); @@ -528,19 +502,17 @@ void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) pVar->pNext = NULL; pVar->iDeclLine = HB_COMP_PARAM->currLine; - if ( toupper( cValueType ) == 'S' ) + if( toupper( cValueType ) == 'S' ) { /* printf( "\nVariable %s is of Class: %s\n", szVarName, HB_COMP_PARAM->szFromClass ); */ - pVar->pClass = hb_compClassFind( HB_COMP_PARAM, HB_COMP_PARAM->szFromClass ); if( ! pVar->pClass ) { hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_CLASS_NOT_FOUND, HB_COMP_PARAM->szFromClass, szVarName ); pVar->cType = 'O'; } - /* Resetting */ HB_COMP_PARAM->szFromClass = NULL; } @@ -553,23 +525,14 @@ void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) PCOMSYMBOL pSym; USHORT wPos; - /*printf( "\nAdding: %s in Function: %s\n", pVar->szName, pFunc->szName );*/ - if( HB_COMP_PARAM->fAutoMemvarAssume || HB_COMP_PARAM->iVarScope == VS_MEMVAR ) { /* add this variable to the list of MEMVAR variables */ - if( ! pFunc->pMemvars ) - pFunc->pMemvars = pVar; - else - { + if( pFunc->pMemvars ) hb_compCheckDuplVars( HB_COMP_PARAM, pFunc->pMemvars, szVarName ); - - pLastVar = pFunc->pMemvars; - while( pLastVar->pNext ) - pLastVar = pLastVar->pNext; - pLastVar->pNext = pVar; - } + + hb_compVarListAdd( &pFunc->pMemvars, pVar ); bFreeVar = FALSE; } @@ -579,117 +542,64 @@ void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) /* variable declared in MEMVAR statement */ break; - case ( VS_PARAMETER | VS_PRIVATE ): - { - if( ++pFunc->wParamNum > pFunc->wParamCount ) - { - pFunc->wParamCount = pFunc->wParamNum; - } + case( VS_PARAMETER | VS_PRIVATE ): + if( ++pFunc->wParamNum > pFunc->wParamCount ) + pFunc->wParamCount = pFunc->wParamNum; - pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ - if( ! pSym ) - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); + pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ + if( ! pSym ) + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); + pSym->cScope |= HB_FS_MEMVAR; - pSym->cScope |= VS_MEMVAR; + hb_compGenPCode4( HB_P_PARAMETER, HB_LOBYTE( wPos ), HB_HIBYTE( wPos ), HB_LOBYTE( pFunc->wParamNum ), HB_COMP_PARAM ); - /*printf( "\nAdded Symbol: %s Pos: %i\n", pSym->szName, wPos );*/ - - hb_compGenPCode4( HB_P_PARAMETER, HB_LOBYTE( wPos ), HB_HIBYTE( wPos ), HB_LOBYTE( pFunc->wParamNum ), HB_COMP_PARAM ); - } - - if ( HB_COMP_PARAM->iWarnings >= 3 ) + if( HB_COMP_PARAM->iWarnings >= 3 && bFreeVar ) { PVAR pMemVar = pFunc->pMemvars; - - while( pMemVar ) - if( strcmp( pMemVar->szName, pVar->szName ) == 0 ) - break; - else - pMemVar = pMemVar->pNext; - + while( pMemVar && strcmp( pMemVar->szName, pVar->szName ) != 0 ) + pMemVar = pMemVar->pNext; /* Not declared as memvar. */ if( pMemVar == NULL ) { /* add this variable to the list of PRIVATE variables. */ - if( ! pFunc->pPrivates ) - pFunc->pPrivates = pVar; - else - { - pLastVar = pFunc->pPrivates; - - while( pLastVar->pNext ) - pLastVar = pLastVar->pNext; - - pLastVar->pNext = pVar; - } - /*printf( "\nAdded Private: %s Type %c\n", pVar->szName, pVar->cType );*/ + hb_compVarListAdd( &pFunc->pPrivates, pVar ); + bFreeVar = FALSE; } } - else if( bFreeVar ) - { + if( bFreeVar ) hb_xfree( pVar ); - } - break; case VS_PRIVATE: - { - pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ - if( ! pSym ) - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); + pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ + if( ! pSym ) + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); + pSym->cScope |= HB_FS_MEMVAR; - pSym->cScope |= VS_MEMVAR; - - /*printf( "\nAdded Symbol: %s Pos: %i\n", pSym->szName, wPos );*/ - } - - if ( HB_COMP_PARAM->iWarnings >= 3 ) + if( HB_COMP_PARAM->iWarnings >= 3 && bFreeVar ) { PVAR pMemVar = pFunc->pMemvars; - - while( pMemVar ) - if( strcmp( pMemVar->szName, pVar->szName ) == 0 ) - break; - else - pMemVar = pMemVar->pNext; - + while( pMemVar && strcmp( pMemVar->szName, pVar->szName ) != 0 ) + pMemVar = pMemVar->pNext; /* Not declared as memvar. */ if( pMemVar == NULL ) { /* add this variable to the list of PRIVATE variables. */ - if( ! pFunc->pPrivates ) - pFunc->pPrivates = pVar; - else - { - pLastVar = pFunc->pPrivates; - - while( pLastVar->pNext ) - pLastVar = pLastVar->pNext; - - pLastVar->pNext = pVar; - } - /*printf( "\nAdded Private: %s Type %c\n", pVar->szName, pVar->cType );*/ + hb_compVarListAdd( &pFunc->pPrivates, pVar ); + bFreeVar = FALSE; } } - else if( bFreeVar ) - { + if( bFreeVar ) hb_xfree( pVar ); - } - break; case VS_PUBLIC: - { - pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ - if( ! pSym ) - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); - pSym->cScope |= VS_MEMVAR; - if( bFreeVar ) - { - hb_xfree( pVar ); - } - } - + pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); /* check if symbol exists already */ + if( ! pSym ) + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wPos, HB_SYM_MEMVAR ); + pSym->cScope |= HB_FS_MEMVAR; + if( bFreeVar ) + hb_xfree( pVar ); break; } } @@ -699,106 +609,299 @@ void hb_compVariableAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) { case VS_LOCAL: case VS_PARAMETER: - { - USHORT wLocal = 1; + { + USHORT wLocal = hb_compVarListAdd( &pFunc->pLocals, pVar ); - if( ! pFunc->pLocals ) - pFunc->pLocals = pVar; - else - { - pLastVar = pFunc->pLocals; - while( pLastVar->pNext ) - { - pLastVar = pLastVar->pNext; - wLocal++; - } - pLastVar->pNext = pVar; - wLocal++; - } - if( HB_COMP_PARAM->iVarScope == VS_PARAMETER ) - { - ++pFunc->wParamCount; - pFunc->bFlags |= FUN_USES_LOCAL_PARAMS; - } - if( HB_COMP_PARAM->fDebugInfo ) - { - hb_compGenPCode3( HB_P_LOCALNAME, HB_LOBYTE( wLocal ), HB_HIBYTE( wLocal ), HB_COMP_PARAM ); - hb_compGenPCodeN( ( BYTE * ) szVarName, strlen( szVarName ) + 1, HB_COMP_PARAM ); - } + if( HB_COMP_PARAM->iVarScope == VS_PARAMETER ) + { + ++pFunc->wParamCount; + pFunc->bFlags |= FUN_USES_LOCAL_PARAMS; + } + if( HB_COMP_PARAM->fDebugInfo ) + { + hb_compGenPCode3( HB_P_LOCALNAME, HB_LOBYTE( wLocal ), HB_HIBYTE( wLocal ), HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) szVarName, strlen( szVarName ) + 1, HB_COMP_PARAM ); } break; - + } case VS_STATIC: - { - if( ! pFunc->pStatics ) - pFunc->pStatics = pVar; - else - { - pLastVar = pFunc->pStatics; - while( pLastVar->pNext ) - pLastVar = pLastVar->pNext; - - pLastVar->pNext = pVar; - } - } + hb_compVarListAdd( &pFunc->pStatics, pVar ); break; case VS_FIELD: - if( ! pFunc->pFields ) - pFunc->pFields = pVar; - else - { - pLastVar = pFunc->pFields; - while( pLastVar->pNext ) - pLastVar = pLastVar->pNext; - pLastVar->pNext = pVar; - } + hb_compVarListAdd( &pFunc->pFields, pVar ); break; } - } } -void hb_compGenStaticName( char *szVarName, HB_COMP_DECL ) -{ - if( HB_COMP_PARAM->fDebugInfo ) - { - BYTE bGlobal = 0; - PFUNCTION pFunc; - int iVar; - - if( ! HB_COMP_PARAM->fStartProc && HB_COMP_PARAM->functions.iCount <= 1 ) - { - /* Variable declaration is outside of function/procedure body. - File-wide static variable - */ - hb_compStaticDefStart( HB_COMP_PARAM ); - bGlobal = 1; - } - pFunc = HB_COMP_PARAM->functions.pLast; - iVar = hb_compStaticGetPos( szVarName, pFunc ); - - hb_compGenPCode4( HB_P_STATICNAME, bGlobal, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - hb_compGenPCodeN( ( BYTE * ) szVarName, strlen( szVarName ) + 1, HB_COMP_PARAM ); - - if( bGlobal ) - hb_compStaticDefEnd( HB_COMP_PARAM ); - } -} - -/* Check if macrotext variable does not refer to local, static or field. - * Only MEMVAR or undeclared (memvar will be assumed) variables can be used - * in macro text +/* Set the name of an alias for the list of previously declared FIELDs + * + * szAlias -> name of the alias + * iField -> position of the first FIELD name to change */ -static BOOL hb_compIsValidMacroVar( char * szVarName, HB_COMP_DECL ) +void hb_compFieldSetAlias( HB_COMP_DECL, char * szAlias, int iField ) { - return !hb_compLocalGetPos( HB_COMP_PARAM, szVarName ) && - !hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) && - !hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) && - ( HB_COMP_PARAM->fStartProc || - hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) || - ( !hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ) && - !hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ) ) ); + PVAR pVar; + + pVar = HB_COMP_PARAM->functions.pLast->pFields; + while( iField-- && pVar ) + pVar = pVar->pNext; + + while( pVar ) + { + pVar->szAlias = szAlias; + pVar = pVar->pNext; + } +} + +/* This functions counts the number of FIELD declaration in a function + * We will required this information in hb_compFieldSetAlias function + */ +int hb_compFieldsCount( HB_COMP_DECL ) +{ + int iFields = 0; + PVAR pVar = HB_COMP_PARAM->functions.pLast->pFields; + + while( pVar ) + { + ++iFields; + pVar = pVar->pNext; + } + + return iFields; +} + +static PVAR hb_compVariableGet( PVAR pVars, char * szVarName, int * piPos ) +{ + int iVar = 1; + + while( pVars ) + { + if( pVars->szName && ! strcmp( pVars->szName, szVarName ) ) + { + pVars->iUsed |= VU_USED; + *piPos = iVar; + return pVars; + } + pVars = pVars->pNext; + ++iVar; + } + return NULL; +} + +/* returns variable pointer if defined or NULL */ +static PVAR hb_compVariableGetVar( PVAR pVars, USHORT wOrder ) +{ + while( pVars && --wOrder ) + pVars = pVars->pNext; + return pVars; +} + +/* returns the order + 1 of a variable if defined or zero */ +static USHORT hb_compVariableGetPos( PVAR pVars, char * szVarName ) +{ + USHORT wVar = 1; + + while( pVars ) + { + if( pVars->szName && ! strcmp( pVars->szName, szVarName ) ) + { + pVars->iUsed |= VU_USED; + return wVar; + } + pVars = pVars->pNext; + ++wVar; + } + return 0; +} + +PVAR hb_compVariableFind( HB_COMP_DECL, char * szVarName, int * piPos, int * piScope ) +{ + PFUNCTION pFunc, pGlobal, pOutBlock = NULL; + BOOL fStatic = FALSE, fBlock = FALSE, fGlobal = FALSE; + PVAR pVar = NULL; + int iPos = 0, iScope = 0, iLevel = 0; + + if( piPos ) + *piPos = 0; + else + piPos = &iPos; + if( piScope ) + *piScope = HB_VS_UNDECLARED; + else + piScope = &iScope; + + /* check current function/codeblock variables */ + pFunc = HB_COMP_PARAM->functions.pLast; + pGlobal = ( HB_COMP_PARAM->fStartProc || + HB_COMP_PARAM->functions.pFirst == pFunc ) + ? NULL : HB_COMP_PARAM->functions.pFirst; + + while( pFunc ) + { + if( ( pFunc->cScope & HB_FS_INITEXIT ) == HB_FS_INITEXIT ) + { /* static initialization function */ + fStatic = TRUE; + } + else if( pFunc->szName ) + { /* normal function/procedure */ + /* check local parameters */ + pVar = hb_compVariableGet( pFunc->pLocals, szVarName, piPos ); + if( pVar ) + { + *piScope = HB_VS_LOCAL_VAR; + if( fStatic ) + { + /* local variable was referenced in a codeblock during + * initialization of static variable. This cannot be supported + * because static variables are initialized at program + * startup when there is no local variables yet - hence we + * cannot detach this local variable + * For example: + * LOCAL locvar + * STATIC stavar:={ | x | locvar} + * + * NOTE: Clipper creates such a codeblock however at the + * time of codeblock evaluation it generates a runtime error: + * 'bound error: array acccess' + * Called from: (b)STATICS$(0) + */ + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_ILLEGAL_INIT, "(b)", szVarName ); + } + else if( fBlock ) + { + /* We want to access a local variable defined in a function + * that owns this codeblock. We cannot access this variable in + * a normal way because at runtime the stack base will point + * to local variables of EVAL function. + */ + /* NOTE: The list of local variables defined in a function + * and referenced in a codeblock will be stored in a outer + * codeblock only. This makes sure that all variables will be + * detached properly - the inner codeblock can be created + * outside of a function where it was defined when the local + * variables are not accessible. + */ + *piPos = -hb_compVariableGetPos( pOutBlock->pDetached, szVarName ); + if( *piPos == 0 ) + { + /* this variable was not referenced yet - add it to the list */ + pVar = ( PVAR ) hb_xgrab( sizeof( VAR ) ); + + pVar->szName = szVarName; + pVar->szAlias = NULL; + pVar->cType = ' '; + pVar->iUsed = VU_NOT_USED; + pVar->pNext = NULL; + pVar->iDeclLine = HB_COMP_PARAM->currLine; + /* Use negative order to signal that we are accessing a local + * variable from a codeblock + */ + *piPos = -hb_compVarListAdd( &pOutBlock->pDetached, pVar ); + } + *piScope = HB_VS_CBLOCAL_VAR; + } + } + else + { + /* check static variables */ + pVar = hb_compVariableGet( pFunc->pStatics, szVarName, piPos ); + if( pVar ) + { + *piScope = HB_VS_STATIC_VAR; + *piPos += pFunc->iStaticsBase; + } + else + { + /* check FIELDs */ + pVar = hb_compVariableGet( pFunc->pFields, szVarName, piPos ); + if( pVar ) + *piScope = HB_VS_LOCAL_FIELD; + else + { + /* check MEMVARs */ + pVar = hb_compVariableGet( pFunc->pMemvars, szVarName, piPos ); + if( pVar ) + *piScope = HB_VS_LOCAL_MEMVAR; + } + } + } + } + else + { /* codeblock */ + fBlock = TRUE; + /* check local parameters */ + pVar = hb_compVariableGet( pFunc->pLocals, szVarName, piPos ); + if( pVar ) + { + *piScope = HB_VS_LOCAL_VAR; + if( iLevel ) + { + /* this variable is defined in a parent codeblock + * It is not possible to access a parameter of a codeblock + * in which the current codeblock is defined + */ + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_OUTER_VAR, szVarName, NULL ); + } + } + } + + if( pVar ) + break; + + pOutBlock = pFunc; + pFunc = pFunc->pOwner; + if( !pFunc && !fGlobal ) + { + /* instead of making this trick with pGlobal switching it will be + * much cleaner to set pOwner in each compiled function to first + * global pseudo function created when -n compiler switch is used + * [druzus] + */ + pFunc = pGlobal; + fGlobal = TRUE; + } + ++iLevel; + } + + if( pVar && fGlobal ) + *piScope |= HB_VS_FILEWIDE; + + return pVar; +} + +/* return local variable name using its order after final fixing */ +char * hb_compLocalVariableName( PFUNCTION pFunc, USHORT wVar ) +{ + PVAR pVar; + + if( pFunc->wParamCount && !( pFunc->bFlags & FUN_USES_LOCAL_PARAMS ) ) + wVar -= pFunc->wParamCount; + pVar = hb_compVariableGetVar( pFunc->pLocals, wVar ); + + return pVar ? pVar->szName : NULL; +} + +char * hb_compStaticVariableName( HB_COMP_DECL, USHORT wVar ) +{ + PVAR pVar; + PFUNCTION pTmp = HB_COMP_PARAM->functions.pFirst; + + while( pTmp->pNext && pTmp->pNext->iStaticsBase < wVar ) + pTmp = pTmp->pNext; + pVar = hb_compVariableGetVar( pTmp->pStatics, wVar - pTmp->iStaticsBase ); + + return pVar ? pVar->szName : NULL; +} + +int hb_compVariableScope( HB_COMP_DECL, char * szVarName ) +{ + int iScope; + + hb_compVariableFind( HB_COMP_PARAM, szVarName, NULL, &iScope ); + + return iScope; } BOOL hb_compIsValidMacroText( HB_COMP_DECL, char * szText, ULONG ulLen ) @@ -811,7 +914,7 @@ BOOL hb_compIsValidMacroText( HB_COMP_DECL, char * szText, ULONG ulLen ) if( szText[ ul++ ] == '&' ) { char szSymName[ HB_SYMBOL_NAME_LEN + 1 ]; - int iSize = 0; + int iSize = 0, iScope; /* Check if macro operator is used inside a string * Macro operator is ignored if it is the last char or @@ -841,11 +944,14 @@ BOOL hb_compIsValidMacroText( HB_COMP_DECL, char * szText, ULONG ulLen ) /* NOTE: All variables are assumed memvars in macro compiler - * there is no need to check for a valid name but to be Clipper - * compatible we should check if local, static or field name - * is not use and generate error in such case + * compatible we should check if macrotext variable does not refer + * to local, static or field and generate error in such case. + * Only MEMVAR or undeclared (memvar will be assumed) + * variables can be used in macro text. */ fFound = TRUE; - if( ! hb_compIsValidMacroVar( szSymName, HB_COMP_PARAM ) ) + iScope = hb_compVariableScope( HB_COMP_PARAM, szSymName ); + if( iScope != HB_VS_UNDECLARED && !( iScope & HB_VS_LOCAL_MEMVAR ) ) { hb_compErrorMacro( HB_COMP_PARAM, szText ); break; @@ -859,34 +965,11 @@ BOOL hb_compIsValidMacroText( HB_COMP_DECL, char * szText, ULONG ulLen ) return fFound; } -int hb_compVariableScope( HB_COMP_DECL, char * szVarName ) -{ - int iScope = 0; /* undeclared */ - int iLocalPos; - iLocalPos = hb_compLocalGetPos( HB_COMP_PARAM, szVarName ); - if( iLocalPos > 0 ) - iScope = HB_VS_LOCAL_VAR; - else if( iLocalPos < 0 ) - iScope = HB_VS_CBLOCAL_VAR; - else if( hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) > 0 ) - iScope = HB_VS_STATIC_VAR; - else if( hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) > 0 ) - iScope = HB_VS_LOCAL_FIELD; - else if( hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pLast ) > 0 ) - iScope = HB_VS_LOCAL_MEMVAR; - else if( ! HB_COMP_PARAM->fStartProc ) - { - /* Check file-wide variables */ - if( hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ) > 0 ) - iScope = HB_VS_GLOBAL_MEMVAR; - else if( hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ) > 0 ) - iScope = HB_VS_GLOBAL_FIELD; - else if( hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ) > 0 ) - iScope = HB_VS_GLOBAL_STATIC; - } - return iScope; -} + +/* + * DECLARATIONS + */ PCOMCLASS hb_compClassAdd( HB_COMP_DECL, char * szClassName ) { @@ -1437,6 +1520,23 @@ static void hb_compDeclaredInit( HB_COMP_DECL ) HB_COMP_PARAM->pReleaseClass = NULL; } +/* returns a symbol pointer from the symbol table + * and sets its position in the symbol table. + * NOTE: symbol's position number starts from 0 + */ +static PCOMDECLARED hb_compDeclaredFind( HB_COMP_DECL, char * szDeclaredName ) +{ + PCOMDECLARED pSym = HB_COMP_PARAM->pFirstDeclared; + + while( pSym ) + { + if( ! strcmp( pSym->szName, szDeclaredName ) ) + return pSym; + pSym = pSym->pNext; + } + return NULL; +} + PCOMDECLARED hb_compDeclaredAdd( HB_COMP_DECL, char * szDeclaredName ) { PCOMDECLARED pDeclared; @@ -1478,1903 +1578,89 @@ PCOMDECLARED hb_compDeclaredAdd( HB_COMP_DECL, char * szDeclaredName ) return pDeclared; } -PCOMSYMBOL hb_compSymbolAdd( HB_COMP_DECL, char * szSymbolName, USHORT * pwPos, BOOL bFunction ) +void hb_compDeclaredParameterAdd( HB_COMP_DECL, char * szVarName, BYTE cValueType ) { - PCOMSYMBOL pSym; - - if( szSymbolName[ 0 ] ) + /* Nothing to do since no warnings requested.*/ + if ( HB_COMP_PARAM->iWarnings < 3 ) { - /* Create a symbol for non-empty names only. - * NOTE: an empty name is passed for a fake starting function when - * '-n' switch is used - */ - pSym = ( PCOMSYMBOL ) hb_xgrab( sizeof( COMSYMBOL ) ); - - pSym->szName = szSymbolName; - pSym->cScope = 0; - pSym->cType = HB_COMP_PARAM->cVarType; - pSym->pNext = NULL; - pSym->bFunc = bFunction; - - if( ! HB_COMP_PARAM->symbols.iCount ) - { - HB_COMP_PARAM->symbols.pFirst = pSym; - HB_COMP_PARAM->symbols.pLast = pSym; - } - else - { - ( ( PCOMSYMBOL ) HB_COMP_PARAM->symbols.pLast )->pNext = pSym; - HB_COMP_PARAM->symbols.pLast = pSym; - } - HB_COMP_PARAM->symbols.iCount++; - - if( pwPos ) - *pwPos = HB_COMP_PARAM->symbols.iCount -1; /* position number starts form 0 */ - } - else - pSym = NULL; - - return pSym; -} - -/* - * This function creates and initialises the _FUNC structure - */ -static PFUNCTION hb_compFunctionNew( HB_COMP_DECL, char * szName, HB_SYMBOLSCOPE cScope ) -{ - PFUNCTION pFunc; - - pFunc = ( PFUNCTION ) hb_xgrab( sizeof( _FUNC ) ); - pFunc->szName = szName; - pFunc->cScope = cScope; - pFunc->pLocals = NULL; - pFunc->pStatics = NULL; - pFunc->pFields = NULL; - pFunc->pMemvars = NULL; - pFunc->pPrivates = NULL; - pFunc->pCode = NULL; - pFunc->lPCodeSize = 0; - pFunc->lPCodePos = 0; - pFunc->pNext = NULL; - pFunc->wParamCount = 0; - pFunc->wParamNum = 0; - pFunc->iStaticsBase = HB_COMP_PARAM->iStaticCnt; - pFunc->pOwner = NULL; - pFunc->bFlags = 0; - pFunc->iNOOPs = 0; - pFunc->iJumps = 0; - pFunc->pNOOPs = NULL; - pFunc->pJumps = NULL; - pFunc->bLateEval = TRUE; - pFunc->fVParams = FALSE; - pFunc->bError = FALSE; - pFunc->pEnum = NULL; - - return pFunc; -} - -static PINLINE hb_compInlineNew( HB_COMP_DECL, char * szName, int iLine ) -{ - PINLINE pInline; - - pInline = ( PINLINE ) hb_xgrab( sizeof( _INLINE ) ); - - pInline->szName = szName; - pInline->pCode = NULL; - pInline->lPCodeSize = 0; - pInline->pNext = NULL; - pInline->szFileName = hb_compIdentifierNew( HB_COMP_PARAM, - hb_pp_fileName( HB_COMP_PARAM->pLex->pPP ), HB_IDENT_COPY ); - pInline->iLine = iLine; - - return pInline; -} - -/* - * Stores a Clipper defined function/procedure - * szFunName - name of a function - * cScope - scope of a function - * iType - FUN_PROCEDURE if a procedure or 0 - */ -void hb_compFunctionAdd( HB_COMP_DECL, char * szFunName, HB_SYMBOLSCOPE cScope, int iType ) -{ - PCOMSYMBOL pSym; - PFUNCTION pFunc; - char * szFunction; - - hb_compFinalizeFunction( HB_COMP_PARAM ); /* fix all previous function returns offsets */ - - if( cScope & (HB_FS_INIT | HB_FS_EXIT) ) - { - char szNewName[ HB_SYMBOL_NAME_LEN + 1 ]; - int iLen; - - iLen = strlen( szFunName ); - if( iLen >= HB_SYMBOL_NAME_LEN ) - iLen = HB_SYMBOL_NAME_LEN - 1; - memcpy( szNewName, szFunName, iLen ); - szNewName[ iLen ] ='$'; - szNewName[ iLen + 1 ] = '\0'; - szFunName = hb_compIdentifierNew( HB_COMP_PARAM, szNewName, HB_IDENT_COPY ); - } - pFunc = hb_compFunctionFind( HB_COMP_PARAM, szFunName ); - if( pFunc ) - { - /* The name of a function/procedure is already defined */ - if( pFunc != HB_COMP_PARAM->functions.pFirst || HB_COMP_PARAM->fStartProc ) - /* it is not a starting procedure that was automatically created */ - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_FUNC_DUPL, szFunName, NULL ); - } - - szFunction = hb_compReservedName( szFunName ); - if( szFunction && !( HB_COMP_PARAM->functions.iCount == 0 && !HB_COMP_PARAM->fStartProc ) ) - { - /* We are ignoring it when it is the name of PRG file and we are - * not creating implicit starting procedure - */ - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_FUNC_RESERVED, szFunction, szFunName ); - } - - HB_COMP_PARAM->iFunctionCnt++; - - pSym = hb_compSymbolFind( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); - if( ! pSym ) - { - /* there is not a symbol on the symbol table for this function name */ - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); - } - if( pSym ) - pSym->cScope |= cScope | HB_FS_LOCAL; - - pFunc = hb_compFunctionNew( HB_COMP_PARAM, szFunName, cScope ); - pFunc->bFlags |= iType; - - if( HB_COMP_PARAM->functions.iCount == 0 ) - { - HB_COMP_PARAM->functions.pFirst = pFunc; - HB_COMP_PARAM->functions.pLast = pFunc; - } - else - { - HB_COMP_PARAM->functions.pLast->pNext = pFunc; - HB_COMP_PARAM->functions.pLast = pFunc; - } - HB_COMP_PARAM->functions.iCount++; - - HB_COMP_PARAM->lastLinePos = 0; /* optimization of line numbers opcode generation */ - HB_COMP_PARAM->ilastLineErr = 0; /* position of last syntax error (line number) */ - - hb_compGenPCode3( HB_P_FRAME, 0, 0, HB_COMP_PARAM ); /* frame for locals and parameters */ - hb_compGenPCode3( HB_P_SFRAME, 0, 0, HB_COMP_PARAM ); /* frame for statics variables */ - - if( HB_COMP_PARAM->fDebugInfo ) - hb_compGenModuleName( HB_COMP_PARAM, szFunName ); - else - HB_COMP_PARAM->lastLine = -1; -} - -PINLINE hb_compInlineAdd( HB_COMP_DECL, char * szFunName, int iLine ) -{ - PINLINE pInline; - PCOMSYMBOL pSym; - - if( szFunName ) - { - pSym = hb_compSymbolFind( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); - if( ! pSym ) - { - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); - } - if( pSym ) - { - pSym->cScope |= HB_FS_STATIC | HB_FS_LOCAL; - } - } - pInline = hb_compInlineNew( pComp, szFunName, iLine ); - - if( HB_COMP_PARAM->inlines.iCount == 0 ) - { - HB_COMP_PARAM->inlines.pFirst = pInline; - HB_COMP_PARAM->inlines.pLast = pInline; - } - else - { - HB_COMP_PARAM->inlines.pLast->pNext = pInline; - HB_COMP_PARAM->inlines.pLast = pInline; - } - - HB_COMP_PARAM->inlines.iCount++; - - return pInline; -} - -/* create an ANNOUNCEd procedure - */ -void hb_compAnnounce( HB_COMP_DECL, char * szFunName ) -{ - PFUNCTION pFunc; - - pFunc = hb_compFunctionFind( HB_COMP_PARAM, szFunName ); - if( pFunc ) - { - /* there is a function/procedure defined already - ANNOUNCEd procedure - * have to be a public symbol - check if existing symbol is public - */ - if( pFunc->cScope & HB_FS_STATIC ) - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_FUNC_ANNOUNCE, szFunName, NULL ); - } - else - { - PCOMSYMBOL pSym; - - /* create a new procedure - */ - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); - pSym->cScope = HB_FS_PUBLIC | HB_FS_LOCAL; - - pFunc = hb_compFunctionNew( HB_COMP_PARAM, szFunName, pSym->cScope ); - pFunc->bFlags |= FUN_PROCEDURE; - - if( HB_COMP_PARAM->functions.iCount == 0 ) - { - HB_COMP_PARAM->functions.pFirst = pFunc; - HB_COMP_PARAM->functions.pLast = pFunc; - } - else - { - HB_COMP_PARAM->functions.pLast->pNext = pFunc; - HB_COMP_PARAM->functions.pLast = pFunc; - } - HB_COMP_PARAM->functions.iCount++; - HB_COMP_PARAM->iFunctionCnt++; - - /* this function have a very limited functionality - */ - hb_compGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); - } -} - -/* NOTE: Names of variables and functions are released in hbident.c on exit */ -PFUNCTION hb_compFunctionKill( HB_COMP_DECL, PFUNCTION pFunc ) -{ - PFUNCTION pNext = pFunc->pNext; - PVAR pVar; - HB_ENUMERATOR_PTR pEVar; - - while( pFunc->pLocals ) - { - pVar = pFunc->pLocals; - pFunc->pLocals = pVar->pNext; - hb_xfree( ( void * ) pVar ); - } - - while( pFunc->pStatics ) - { - pVar = pFunc->pStatics; - pFunc->pStatics = pVar->pNext; - hb_xfree( ( void * ) pVar ); - } - - while( pFunc->pFields ) - { - pVar = pFunc->pFields; - pFunc->pFields = pVar->pNext; - hb_xfree( ( void * ) pVar ); - } - - while( pFunc->pMemvars ) - { - pVar = pFunc->pMemvars; - pFunc->pMemvars = pVar->pNext; - hb_xfree( ( void * ) pVar ); - } - - while( pFunc->pPrivates ) - { - pVar = pFunc->pPrivates; - pFunc->pPrivates = pVar->pNext; - hb_xfree( ( void * ) pVar ); - } - - while( pFunc->pEnum ) - { - pEVar = pFunc->pEnum; - pFunc->pEnum = pEVar->pNext; - hb_xfree( pEVar ); - } - - /* Release the NOOP array. */ - if( pFunc->pNOOPs ) - hb_xfree( ( void * ) pFunc->pNOOPs ); - - /* Release the Jumps array. */ - if( pFunc->pJumps ) - hb_xfree( ( void * ) pFunc->pJumps ); - - hb_xfree( ( void * ) pFunc->pCode ); - hb_xfree( ( void * ) pFunc ); - - hb_compLoopKill( HB_COMP_PARAM ); - hb_compSwitchKill( HB_COMP_PARAM ); - hb_compElseIfKill( HB_COMP_PARAM ); - - return pNext; -} - -/* NOTE: Name of symbols are released in hbident.c on exit */ -PCOMSYMBOL hb_compSymbolKill( PCOMSYMBOL pSym ) -{ - PCOMSYMBOL pNext = pSym->pNext; - - hb_xfree( ( void * ) pSym ); - - return pNext; -} - -void hb_compGenBreak( HB_COMP_DECL ) -{ - hb_compGenPushSymbol( "BREAK", HB_SYM_FUNCNAME, HB_COMP_PARAM ); - hb_compGenPushNil( HB_COMP_PARAM ); -} - -void hb_compExternGen( HB_COMP_DECL ) /* generates the symbols for the EXTERN names */ -{ - PEXTERN pDelete; - - if( HB_COMP_PARAM->fDebugInfo ) - hb_compExternAdd( HB_COMP_PARAM, "__DBGENTRY", 0 ); - - while( HB_COMP_PARAM->externs ) - { - PCOMSYMBOL pSym = hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName, NULL, HB_SYM_FUNCNAME ); - if( pSym ) - { - if( ! hb_compFunCallFind( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ) ) - hb_compFunCallAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ); - } - else - { - pSym = hb_compSymbolAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName, NULL, HB_SYM_FUNCNAME ); - hb_compFunCallAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ); - } - pSym->cScope |= HB_COMP_PARAM->externs->cScope; - pDelete = HB_COMP_PARAM->externs; - HB_COMP_PARAM->externs = HB_COMP_PARAM->externs->pNext; - hb_xfree( ( void * ) pDelete ); - } -} - -PFUNCALL hb_compFunCallFind( HB_COMP_DECL, char * szFunctionName ) /* returns a previously called defined function */ -{ - PFUNCALL pFunc = HB_COMP_PARAM->funcalls.pFirst; - - while( pFunc ) - { - if( ! strcmp( pFunc->szName, szFunctionName ) ) - break; - pFunc = pFunc->pNext; - } - return pFunc; -} - -PFUNCTION hb_compFunctionFind( HB_COMP_DECL, char * szFunctionName ) /* returns a previously defined function */ -{ - PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; - - while( pFunc ) - { - if( ! strcmp( pFunc->szName, szFunctionName ) ) - break; - pFunc = pFunc->pNext; - } - return pFunc; -} - -PINLINE hb_compInlineFind( HB_COMP_DECL, char * szFunctionName ) -{ - PINLINE pInline = HB_COMP_PARAM->inlines.pFirst; - - while( pInline ) - { - if( pInline->szName && strcmp( pInline->szName, szFunctionName ) == 0 ) - break; - pInline = pInline->pNext; - } - return pInline; -} - -/* return variable using its order after final fixing */ -PVAR hb_compLocalVariableFind( PFUNCTION pFunc, USHORT wVar ) -{ - if( pFunc->wParamCount && !(pFunc->bFlags & FUN_USES_LOCAL_PARAMS) ) - { - wVar -= pFunc->wParamCount; - } - return hb_compVariableFind( pFunc->pLocals, wVar ); -} - -PVAR hb_compVariableFind( PVAR pVars, USHORT wOrder ) /* returns variable if defined or zero */ -{ - USHORT w = 1; - - if( pVars ) - while( pVars->pNext && w++ < wOrder ) - pVars = pVars->pNext; - - return pVars; -} - -USHORT hb_compVariableGetPos( PVAR pVars, char * szVarName ) /* returns the order + 1 of a variable if defined or zero */ -{ - USHORT wVar = 1; - - while( pVars ) - { - if( pVars->szName && ! strcmp( pVars->szName, szVarName ) ) - { - pVars->iUsed |= VU_USED; - - return wVar; - } - else - { - if( pVars->pNext ) - { - pVars = pVars->pNext; - wVar++; - } - else - return 0; - } - } - return 0; -} - -int hb_compLocalGetPos( HB_COMP_DECL, char * szVarName ) /* returns the order + 1 of a variable if defined or zero */ -{ - int iVar; - PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; - - if( ! szVarName ) - return 0; - - if( pFunc->szName ) - { - /* we are in a function/procedure -we don't need any tricks */ - if( pFunc->pOwner ) - pFunc =pFunc->pOwner; - iVar = hb_compVariableGetPos( pFunc->pLocals, szVarName ); - } - else - { - /* we are in a codeblock */ - iVar = hb_compVariableGetPos( pFunc->pLocals, szVarName ); - if( iVar == 0 ) - { - /* this is not a current codeblock parameter - * we have to check the list of nested codeblocks up to a function - * where the codeblock is defined - */ - PFUNCTION pOutBlock = pFunc; /* the outermost codeblock */ - BOOL bStatic; - - pFunc = pFunc->pOwner; - while( pFunc ) - { - bStatic = FALSE; - if( ( pFunc->cScope & HB_FS_INITEXIT ) == HB_FS_INITEXIT ) - { - /* we are in a codeblock used to initialize a static variable - - * skip to a function where this static variable was declared - */ - pFunc = pFunc->pOwner; - bStatic = TRUE; - } - - iVar = hb_compVariableGetPos( pFunc->pLocals, szVarName ); - if( iVar ) - { - if( pFunc->pOwner ) - { - /* this variable is defined in a parent codeblock - * It is not possible to access a parameter of a codeblock in which - * the current codeblock is defined - */ - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_OUTER_VAR, szVarName, NULL ); - return iVar; - } - else if( bStatic ) - { - /* local variable was referenced in a codeblock during - * initialization of static variable. This cannot be supported - * because static variables are initialized at program - * startup when there is no local variables yet - hence we - * cannot detach this local variable - * For example: - * LOCAL locvar - * STATIC stavar:={ | x | locvar} - * - * NOTE: Clipper creates such a codeblock however at the - * time of codeblock evaluation it generates a runtime error: - * 'bound error: array acccess' - * Called from: (b)STATICS$(0) - */ - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_ILLEGAL_INIT, "(b)", szVarName ); - return iVar; - } - else - { - /* We want to access a local variable defined in a function - * that owns this codeblock. We cannot access this variable in - * a normal way because at runtime the stack base will point - * to local variables of EVAL function. - * The codeblock cannot have static variables then we can - * use this structure to store temporarily all referenced - * local variables - */ - /* NOTE: The list of local variables defined in a function - * and referenced in a codeblock will be stored in a outer - * codeblock only. This makes sure that all variables will be - * detached properly - the inner codeblock can be created - * outside of a function where it was defined when the local - * variables are not accessible. - */ - iVar = -hb_compVariableGetPos( pOutBlock->pStatics, szVarName ); - if( iVar == 0 ) - { - /* this variable was not referenced yet - add it to the list */ - PVAR pVar; - - pVar = ( PVAR ) hb_xgrab( sizeof( VAR ) ); - pVar->szName = szVarName; - pVar->cType = ' '; - pVar->iUsed = VU_NOT_USED; - pVar->pNext = NULL; - pVar->iDeclLine = HB_COMP_PARAM->currLine; - - /* Use negative order to signal that we are accessing a local - * variable from a codeblock - */ - iVar = -1; /* first variable */ - if( ! pOutBlock->pStatics ) - pOutBlock->pStatics = pVar; - else - { - PVAR pLastVar = pOutBlock->pStatics; - - --iVar; /* this will be at least second variable */ - while( pLastVar->pNext ) - { - pLastVar = pLastVar->pNext; - --iVar; - } - pLastVar->pNext = pVar; - } - } - return iVar; - } - } - pOutBlock = pFunc; - pFunc = pFunc->pOwner; - } - } - } - return iVar; -} - -/* Checks if passed variable name is declared as STATIC - * Returns 0 if not found in STATIC list or its position in this list if found - * - * All static variables are hold in a single array at runtime then positions - * are numbered for whole PRG module. - */ -static int hb_compStaticGetPos( char * szVarName, PFUNCTION pFunc ) -{ - int iVar; - - while( pFunc->pOwner ) /* pOwner is not NULL if STATIC var := value is used */ - pFunc = pFunc->pOwner; - - if( pFunc->szName ) - /* we are in a function/procedure -we don't need any tricks */ - iVar = hb_compVariableGetPos( pFunc->pStatics, szVarName ); - else - { - /* we have to check the list of nested codeblock up to a function - * where the codeblock is defined - */ - while( pFunc->pOwner ) - pFunc = pFunc->pOwner; - iVar = hb_compVariableGetPos( pFunc->pStatics, szVarName ); - } - if( iVar ) - iVar += pFunc->iStaticsBase; - - return iVar; -} - -char * hb_compStaticGetName( HB_COMP_DECL, USHORT wVar ) -{ - PVAR pVar; - PFUNCTION pTmp = HB_COMP_PARAM->functions.pFirst; - - while( pTmp->pNext && pTmp->pNext->iStaticsBase < wVar ) - pTmp = pTmp->pNext; - pVar = hb_compVariableFind( pTmp->pStatics, wVar - pTmp->iStaticsBase ); - - return pVar ? pVar->szName : NULL; -} - -/* Checks if passed variable name is declared as FIELD - * Returns 0 if not found in FIELD list or its position in this list if found - */ -static int hb_compFieldGetPos( char * szVarName, PFUNCTION pFunc ) -{ - int iVar; - - if( pFunc->szName ) - /* we are in a function/procedure -we don't need any tricks */ - iVar = hb_compVariableGetPos( pFunc->pFields, szVarName ); - else - { - /* we have to check the list of nested codeblock up to a function - * where the codeblock is defined - */ - while( pFunc->pOwner ) - pFunc = pFunc->pOwner; - iVar = hb_compVariableGetPos( pFunc->pFields, szVarName ); - } - return iVar; -} - -/* Checks if passed variable name is declared as MEMVAR - * Returns 0 if not found in MEMVAR list or its position in this list if found - */ -static int hb_compMemvarGetPos( char * szVarName, PFUNCTION pFunc ) -{ - int iVar; - - if( pFunc->szName ) - /* we are in a function/procedure -we don't need any tricks */ - iVar = hb_compVariableGetPos( pFunc->pMemvars, szVarName ); - else - { - /* we have to check the list of nested codeblock up to a function - * where the codeblock is defined - */ - while( pFunc->pOwner ) - pFunc = pFunc->pOwner; - iVar = hb_compVariableGetPos( pFunc->pMemvars, szVarName ); - } - return iVar; -} - -/* returns a symbol pointer from the symbol table - * and sets its position in the symbol table. - * NOTE: symbol's position number starts from 0 - */ -PCOMDECLARED hb_compDeclaredFind( HB_COMP_DECL, char * szDeclaredName ) -{ - PCOMDECLARED pSym = HB_COMP_PARAM->pFirstDeclared; - - while( pSym ) - { - if( ! strcmp( pSym->szName, szDeclaredName ) ) - return pSym; - else - { - if( pSym->pNext ) - pSym = pSym->pNext; - else - return NULL; - } - } - return NULL; -} - -PCOMSYMBOL hb_compSymbolFind( HB_COMP_DECL, char * szSymbolName, USHORT * pwPos, BOOL bFunction ) -{ - PCOMSYMBOL pSym = HB_COMP_PARAM->symbols.pFirst; - USHORT wCnt = 0; - - if( pwPos ) - *pwPos = 0; - while( pSym ) - { - if( ! strcmp( pSym->szName, szSymbolName ) ) - { - if( bFunction == pSym->bFunc ) - { - if( pwPos ) - *pwPos = wCnt; - return pSym; - } - } - - if( pSym->pNext ) - { - pSym = pSym->pNext; - ++wCnt; - } - else - return NULL; - } - return NULL; -} - -/* returns a symbol based on its index on the symbol table - * index starts from 0 -*/ -PCOMSYMBOL hb_compSymbolGetPos( HB_COMP_DECL, USHORT wSymbol ) -{ - PCOMSYMBOL pSym = HB_COMP_PARAM->symbols.pFirst; - USHORT w = 0; - - while( w++ < wSymbol && pSym->pNext ) - pSym = pSym->pNext; - - return pSym; -} - -USHORT hb_compFunctionGetPos( HB_COMP_DECL, char * szFunctionName ) /* return 0 if not found or order + 1 */ -{ - PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; - USHORT wFunction = HB_COMP_PARAM->fStartProc; - - while( pFunc ) - { - if( ! strcmp( pFunc->szName, szFunctionName ) && pFunc != HB_COMP_PARAM->functions.pFirst ) - return wFunction; - else - { - if( pFunc->pNext ) - { - pFunc = pFunc->pNext; - wFunction++; - } - else - return 0; - } - } - return 0; -} - -static void hb_compNOOPadd( PFUNCTION pFunc, ULONG ulPos ) -{ - pFunc->pCode[ ulPos ] = HB_P_NOOP; - - if( pFunc->iNOOPs ) - pFunc->pNOOPs = ( ULONG * ) hb_xrealloc( pFunc->pNOOPs, sizeof( ULONG ) * ( pFunc->iNOOPs + 1 ) ); - else - pFunc->pNOOPs = ( ULONG * ) hb_xgrab( sizeof( ULONG ) ); - pFunc->pNOOPs[ pFunc->iNOOPs++ ] = ulPos; -} - -/* NOTE: To disable jump optimization, just make this function a dummy one. - [vszakats] */ - -static void hb_compPrepareOptimize( HB_COMP_DECL ) -{ - if( HB_COMP_ISSUPPORTED(HB_COMPFLAG_OPTJUMP) ) - { - PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; - - if( pFunc->iJumps ) - pFunc->pJumps = ( ULONG * ) hb_xrealloc( pFunc->pJumps, sizeof( ULONG ) * ( pFunc->iJumps + 1 ) ); - else - pFunc->pJumps = ( ULONG * ) hb_xgrab( sizeof( ULONG ) ); - pFunc->pJumps[ pFunc->iJumps++ ] = ( ULONG ) ( pFunc->lPCodePos - 4 ); - } -} - -ULONG hb_compGenJump( LONG lOffset, HB_COMP_DECL ) -{ - if( !HB_LIM_INT24( lOffset ) ) - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); - - hb_compGenPCode4( HB_P_JUMPFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); - hb_compPrepareOptimize( HB_COMP_PARAM ); - - return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; -} - -ULONG hb_compGenJumpFalse( LONG lOffset, HB_COMP_DECL ) -{ - if( !HB_LIM_INT24( lOffset ) ) - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); - - hb_compGenPCode4( HB_P_JUMPFALSEFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); - hb_compPrepareOptimize( HB_COMP_PARAM ); - - return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; -} - -ULONG hb_compGenJumpTrue( LONG lOffset, HB_COMP_DECL ) -{ - if( !HB_LIM_INT24( lOffset ) ) - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); - - hb_compGenPCode4( HB_P_JUMPTRUEFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); - hb_compPrepareOptimize( HB_COMP_PARAM ); - - return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; -} - -void hb_compGenJumpThere( ULONG ulFrom, ULONG ulTo, HB_COMP_DECL ) -{ - BYTE * pCode = HB_COMP_PARAM->functions.pLast->pCode; - LONG lOffset = ulTo - ulFrom + 1; - - if( HB_LIM_INT24( lOffset ) ) - { - HB_PUT_LE_UINT24( &pCode[ ulFrom ], lOffset ); - } - else - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); -} - -void hb_compGenJumpHere( ULONG ulOffset, HB_COMP_DECL ) -{ - hb_compGenJumpThere( ulOffset, HB_COMP_PARAM->functions.pLast->lPCodePos, HB_COMP_PARAM ); -} - -/* generates the pcode with the currently compiled module and function name */ -void hb_compGenModuleName( HB_COMP_DECL, char * szFunName ) -{ - hb_compGenPCode1( HB_P_MODULENAME, HB_COMP_PARAM ); - hb_compGenPCodeN( ( BYTE * ) HB_COMP_PARAM->currModule, - strlen( HB_COMP_PARAM->currModule ), HB_COMP_PARAM ); - hb_compGenPCode1( ':', HB_COMP_PARAM ); - if( szFunName && *szFunName ) - hb_compGenPCodeN( ( BYTE * ) szFunName, strlen( szFunName ) + 1, HB_COMP_PARAM ); - else /* special version "filename:" when the file changes within function */ - hb_compGenPCode1( '\0', HB_COMP_PARAM ); - HB_COMP_PARAM->lastModule = HB_COMP_PARAM->currModule; - HB_COMP_PARAM->lastLine = -1; -} - -void hb_compLinePush( HB_COMP_DECL ) /* generates the pcode with the currently compiled source code line */ -{ - if( HB_COMP_PARAM->fLineNumbers ) - { - if( HB_COMP_PARAM->fDebugInfo && HB_COMP_PARAM->lastModule != HB_COMP_PARAM->currModule ) - { - if( HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos ] == HB_P_LINE && - HB_COMP_PARAM->functions.pLast->lPCodePos - HB_COMP_PARAM->lastLinePos == 3 ) - HB_COMP_PARAM->functions.pLast->lPCodePos -= 3; - hb_compGenModuleName( HB_COMP_PARAM, NULL ); - } - - if( HB_COMP_PARAM->currLine != HB_COMP_PARAM->lastLine ) - { - if( HB_COMP_PARAM->functions.pLast->lPCodePos - HB_COMP_PARAM->lastLinePos == 3 && - HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos ] == HB_P_LINE ) - { - HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos + 1 ] = HB_LOBYTE( HB_COMP_PARAM->currLine ); - HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos + 2 ] = HB_HIBYTE( HB_COMP_PARAM->currLine ); - } - else - { - HB_COMP_PARAM->lastLinePos = HB_COMP_PARAM->functions.pLast->lPCodePos; - hb_compGenPCode3( HB_P_LINE, HB_LOBYTE( HB_COMP_PARAM->currLine ), - HB_HIBYTE( HB_COMP_PARAM->currLine ), HB_COMP_PARAM ); - } - HB_COMP_PARAM->lastLine = HB_COMP_PARAM->currLine; - } - } - - if( HB_COMP_PARAM->functions.pLast->bFlags & FUN_BREAK_CODE ) - { - /* previous line contained RETURN/BREAK/LOOP/EXIT statement */ - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_UNREACHABLE, NULL, NULL ); - /* clear RETURN/BREAK flag */ - HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( /*FUN_WITH_RETURN |*/ FUN_BREAK_CODE ); - } -} - -/* - * Test if we can generate statement (without line pushing) - */ -void hb_compStatmentStart( HB_COMP_DECL ) -{ - if( ( HB_COMP_PARAM->functions.pLast->bFlags & FUN_STATEMENTS ) == 0 ) - { - if( ! HB_COMP_PARAM->fStartProc && HB_COMP_PARAM->functions.iCount <= 1 && - HB_COMP_PARAM->functions.pLast != HB_COMP_PARAM->pInitFunc && - HB_COMP_PARAM->functions.pLast->szName ) - { - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_OUTSIDE, NULL, NULL ); - return; - } - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_STATEMENTS; - } -} - -void hb_compLinePushIfInside( HB_COMP_DECL ) /* generates the pcode with the currently compiled source code line */ -{ - hb_compStatmentStart( HB_COMP_PARAM ); - hb_compLinePush( HB_COMP_PARAM ); -} - -/* Generates the pcode with the currently compiled source code line - * if debug code was requested only - */ -void hb_compLinePushIfDebugger( HB_COMP_DECL ) -{ - hb_compStatmentStart( HB_COMP_PARAM ); - - if( HB_COMP_PARAM->fDebugInfo ) - hb_compLinePush( HB_COMP_PARAM ); - else - { - if( HB_COMP_PARAM->functions.pLast->bFlags & FUN_BREAK_CODE ) - { - /* previous line contained RETURN/BREAK/LOOP/EXIT statement */ - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_UNREACHABLE, NULL, NULL ); - } - HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( /*FUN_WITH_RETURN |*/ FUN_BREAK_CODE ); /* clear RETURN flag */ - } -} - -/* - * Function generates passed pcode for passed runtime variable - * (field or memvar) - */ -static void hb_compGenVarPCode( BYTE bPCode, char * szVarName, HB_COMP_DECL ) -{ - USHORT wVar; - PCOMSYMBOL pSym; - - /* Check if this variable name is placed into the symbol table - */ - pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wVar, HB_SYM_MEMVAR ); - if( ! pSym ) - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wVar, HB_SYM_MEMVAR ); - pSym->cScope |= VS_MEMVAR; - - if( bPCode == HB_P_PUSHALIASEDFIELD && wVar <= 255 ) - hb_compGenPCode2( HB_P_PUSHALIASEDFIELDNEAR, ( BYTE ) wVar, HB_COMP_PARAM ); - else if( bPCode == HB_P_POPALIASEDFIELD && wVar <= 255 ) - hb_compGenPCode2( HB_P_POPALIASEDFIELDNEAR, ( BYTE ) wVar, HB_COMP_PARAM ); - else - hb_compGenPCode3( bPCode, HB_LOBYTE( wVar ), HB_HIBYTE( wVar ), HB_COMP_PARAM ); -} - -/* - * Function generates pcode for undeclared variable - */ -static void hb_compGenVariablePCode( HB_COMP_DECL, BYTE bPCode, char * szVarName ) -{ - BOOL bGenCode; - /* - * NOTE: - * Clipper always assumes a memvar variable if undeclared variable - * is popped (a value is asssigned to a variable). - */ - if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_HARBOUR ) ) - bGenCode = HB_COMP_PARAM->fForceMemvars; /* harbour compatibility */ - else - bGenCode = ( HB_COMP_PARAM->fForceMemvars || bPCode == HB_P_POPVARIABLE ); - - if( bGenCode ) - { - /* -v switch was used -> assume it is a memvar variable - */ - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_MEMVAR_ASSUMED, szVarName, NULL ); - - if( bPCode == HB_P_POPVARIABLE ) - bPCode = HB_P_POPMEMVAR; - else if( bPCode == HB_P_PUSHVARIABLE ) - bPCode = HB_P_PUSHMEMVAR; - else - bPCode = HB_P_PUSHMEMVARREF; - } - else - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_AMBIGUOUS_VAR, szVarName, NULL ); - - hb_compGenVarPCode( bPCode, szVarName, HB_COMP_PARAM ); -} - -/* Generate a pcode for a field variable - */ -static void hb_compGenFieldPCode( HB_COMP_DECL, BYTE bPCode, int wVar, char * szVarName, PFUNCTION pFunc ) -{ - PVAR pField; - - if( ! pFunc->szName ) - { - /* we have to check the list of nested codeblock up to a function - * where the codeblock is defined - */ - while( pFunc->pOwner ) - pFunc = pFunc->pOwner; - } - - pField = hb_compVariableFind( pFunc->pFields, wVar ); - - if( pField->szAlias ) - { /* the alias was specified in FIELD declaration - * Push alias symbol before the field symbol - */ - if( bPCode == HB_P_POPFIELD ) - bPCode = HB_P_POPALIASEDFIELD; - else if( bPCode == HB_P_PUSHFIELD ) - bPCode = HB_P_PUSHALIASEDFIELD; - - hb_compGenPushSymbol( pField->szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); - } - hb_compGenVarPCode( bPCode, szVarName, HB_COMP_PARAM ); -} - -/* sends a message to an object */ -/* bIsObject = TRUE if we are sending a message to real object - bIsObject is FALSE if we are sending a message to an object specified - with WITH OBJECT statement. -*/ -void hb_compGenMessage( char * szMsgName, BOOL bIsObject, HB_COMP_DECL ) -{ - USHORT wSym; - PCOMSYMBOL pSym; - - if( szMsgName ) - { - pSym = hb_compSymbolFind( HB_COMP_PARAM, szMsgName, &wSym, HB_SYM_MSGNAME ); - - if( ! pSym ) /* the symbol was not found on the symbol table */ - pSym = hb_compSymbolAdd( HB_COMP_PARAM, szMsgName, &wSym, HB_SYM_MSGNAME ); - pSym->cScope |= HB_FS_MESSAGE; - if( bIsObject ) - hb_compGenPCode3( HB_P_MESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); - else - hb_compGenPCode3( HB_P_WITHOBJECTMESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); - } - else - { - wSym = 0xFFFF; - hb_compGenPCode3( HB_P_WITHOBJECTMESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); - } -} - -void hb_compGenMessageData( char * szMsg, BOOL bIsObject, HB_COMP_DECL ) /* generates an underscore-symbol name for a data assignment */ -{ - char szResult[ HB_SYMBOL_NAME_LEN + 1 ]; - int iLen = strlen( szMsg ); - - if( iLen >= HB_SYMBOL_NAME_LEN ) - iLen = HB_SYMBOL_NAME_LEN - 1; - szResult[ 0 ] = '_'; - memcpy( szResult + 1, szMsg, iLen ); - szResult[ iLen + 1 ] = '\0'; - - hb_compGenMessage( hb_compIdentifierNew( HB_COMP_PARAM, szResult, HB_IDENT_COPY ), bIsObject, HB_COMP_PARAM ); -} - -static void hb_compCheckEarlyMacroEval( HB_COMP_DECL, char *szVarName ) -{ - int iScope = hb_compVariableScope( HB_COMP_PARAM, szVarName ); - - if( iScope == HB_VS_CBLOCAL_VAR || - iScope == HB_VS_STATIC_VAR || - iScope == HB_VS_GLOBAL_STATIC || - iScope == HB_VS_LOCAL_FIELD || - iScope == HB_VS_GLOBAL_FIELD || - iScope == HB_VS_LOCAL_MEMVAR || - iScope == HB_VS_GLOBAL_MEMVAR ) - { - hb_compErrorCodeblock( HB_COMP_PARAM, szVarName ); - } -} - -/* Check variable in the following order: - * LOCAL variable - * local STATIC variable - * local FIELD variable - * local MEMVAR variable - * global STATIC variable - * global FIELD variable - * global MEMVAR variable - * (if not found - it is an undeclared variable) - */ -void hb_compGenPopVar( char * szVarName, HB_COMP_DECL ) /* generates the pcode to pop a value from the virtual machine stack onto a variable */ -{ - int iVar; - - if( ! HB_COMP_PARAM->functions.pLast->bLateEval ) - { - /* pseudo-generation of pcode for a codeblock with macro symbol */ - hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); + HB_SYMBOL_UNUSED( szVarName ); return; } - - iVar = hb_compLocalGetPos( HB_COMP_PARAM, szVarName ); - if( iVar ) - { - /* local variable - */ - /* local variables used in a coddeblock will not be adjusted - * if PARAMETERS statement will be used then it is safe to - * use 2 bytes for LOCALNEAR - */ - if( HB_LIM_INT8( iVar ) && !HB_COMP_PARAM->functions.pLast->szName ) - hb_compGenPCode2( HB_P_POPLOCALNEAR, ( BYTE ) iVar, HB_COMP_PARAM ); - else - hb_compGenPCode3( HB_P_POPLOCAL, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - } - else - { - PFUNCTION pFunc; - /* Check if we are generating a pop code for static variable - * initialization function - if YES then we have to switch to a function - * where the static variable was declared - */ - if( ( HB_COMP_PARAM->functions.pLast->cScope & HB_FS_INITEXIT ) == HB_FS_INITEXIT ) - pFunc = HB_COMP_PARAM->functions.pLast->pOwner; - else - pFunc = HB_COMP_PARAM->functions.pLast; - iVar = hb_compStaticGetPos( szVarName, pFunc ); - if( iVar ) + /* Either a Declared Function Parameter or a Declared Method Parameter. */ + if( HB_COMP_PARAM->szDeclaredFun ) + { + /* Find the Declared Function owner of this parameter. */ + PCOMDECLARED pDeclared = hb_compDeclaredFind( HB_COMP_PARAM, HB_COMP_PARAM->szDeclaredFun ); + + if ( pDeclared ) { - /* Static variable declared in current function - */ - hb_compGenPCode3( HB_P_POPSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - pFunc->bFlags |= FUN_USES_STATICS; - } - else - { - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) + pDeclared->iParamCount++; + + + /* TOFIX: these allocations causes memory leaks */ + if ( pDeclared->cParamTypes ) { - /* field declared in current function - */ - hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_POPFIELD, iVar, szVarName, HB_COMP_PARAM->functions.pLast ); + pDeclared->cParamTypes = ( BYTE * ) hb_xrealloc( pDeclared->cParamTypes, pDeclared->iParamCount ); + pDeclared->pParamClasses = ( PCOMCLASS * ) hb_xrealloc( pDeclared->pParamClasses, pDeclared->iParamCount * sizeof( PCOMCLASS ) ); } else { - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* Memvar variable declared in current functions - */ - hb_compGenVarPCode( HB_P_POPMEMVAR, szVarName, HB_COMP_PARAM ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global static variable - */ - hb_compGenPCode3( HB_P_POPSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global field declaration - */ - hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_POPFIELD, iVar, szVarName, HB_COMP_PARAM->functions.pFirst ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global Memvar variable declaration - */ - hb_compGenVarPCode( HB_P_POPMEMVAR, szVarName, HB_COMP_PARAM ); - } - else - { - /* undeclared variable - */ - hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_POPVARIABLE, szVarName ); - } - } - } - } + pDeclared->cParamTypes = ( BYTE * ) hb_xgrab( 1 ); + pDeclared->pParamClasses = ( PCOMCLASS * ) hb_xgrab( sizeof( PCOMCLASS ) ); } + + pDeclared->cParamTypes[ pDeclared->iParamCount - 1 ] = cValueType; + + if ( toupper( cValueType ) == 'S' ) + { + pDeclared->pParamClasses[ pDeclared->iParamCount - 1 ] = hb_compClassFind( HB_COMP_PARAM, HB_COMP_PARAM->szFromClass ); + + /* Resetting */ + HB_COMP_PARAM->szFromClass = NULL; + } + } + } + else /* Declared Method Parameter */ + { + /* + printf( "\nAdding parameter: %s Type: %c In Method: %s Class: %s FROM CLASS: %s\n", szVarName, cValueType, HB_COMP_PARAM->pLastMethod->szName, HB_COMP_PARAM->pLastClass->szName, HB_COMP_PARAM->szFromClass ); + */ + + HB_COMP_PARAM->pLastMethod->iParamCount++; + + /* TOFIX: these allocations causes memory leaks */ + if ( HB_COMP_PARAM->pLastMethod->cParamTypes ) + { + HB_COMP_PARAM->pLastMethod->cParamTypes = ( BYTE * ) hb_xrealloc( HB_COMP_PARAM->pLastMethod->cParamTypes, HB_COMP_PARAM->pLastMethod->iParamCount ); + HB_COMP_PARAM->pLastMethod->pParamClasses = ( PCOMCLASS * ) hb_xrealloc( HB_COMP_PARAM->pLastMethod->pParamClasses, HB_COMP_PARAM->pLastMethod->iParamCount * sizeof( COMCLASS ) ); + } + else + { + HB_COMP_PARAM->pLastMethod->cParamTypes = ( BYTE * ) hb_xgrab( 1 ); + HB_COMP_PARAM->pLastMethod->pParamClasses = ( PCOMCLASS * ) hb_xgrab( sizeof( COMCLASS ) ); + } + + HB_COMP_PARAM->pLastMethod->cParamTypes[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ] = cValueType; + + if ( toupper( cValueType ) == 'S' ) + { + HB_COMP_PARAM->pLastMethod->pParamClasses[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ] = hb_compClassFind( HB_COMP_PARAM, HB_COMP_PARAM->szFromClass ); + + /* + printf( "\nParameter: %s FROM CLASS: %s\n", szVarName, HB_COMP_PARAM->pLastMethod->pParamClasses[ HB_COMP_PARAM->pLastMethod->iParamCount - 1 ]->szName ); + */ + + /* Resetting */ + HB_COMP_PARAM->szFromClass = NULL; } } } -/* generates the pcode to pop a value from the virtual machine stack onto - * an aliased variable + +/* + * FUNCTIONS */ -void hb_compGenPopAliasedVar( char * szVarName, - BOOL bPushAliasValue, - char * szAlias, - long lWorkarea, - HB_COMP_DECL ) -{ - if( bPushAliasValue ) - { - if( szAlias ) - { - int iLen = strlen( szAlias ); - if( szAlias[ 0 ] == 'M' && ( iLen == 1 || - ( iLen >= 4 && iLen <= 6 && - memcmp( szAlias, "MEMVAR", iLen ) == 0 ) ) ) - { /* M->variable or MEMV[A[R]]->variable */ - hb_compGenVarPCode( HB_P_POPMEMVAR, szVarName, HB_COMP_PARAM ); - } - else if( iLen >= 4 && iLen <= 5 && - memcmp( szAlias, "FIELD", iLen ) == 0 ) - { /* FIEL[D]->variable */ - hb_compGenVarPCode( HB_P_POPFIELD, szVarName, HB_COMP_PARAM ); - } - else - { /* database alias */ - hb_compGenPushSymbol( szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); - hb_compGenVarPCode( HB_P_POPALIASEDFIELD, szVarName, HB_COMP_PARAM ); - } - } - else - { - hb_compGenPushLong( lWorkarea, HB_COMP_PARAM ); - hb_compGenVarPCode( HB_P_POPALIASEDFIELD, szVarName, HB_COMP_PARAM ); - } - } - else - /* Alias is already placed on stack - * NOTE: An alias will be determined at runtime then we cannot decide - * here if passed name is either a field or a memvar - */ - hb_compGenVarPCode( HB_P_POPALIASEDVAR, szVarName, HB_COMP_PARAM ); -} - -/* generates the pcode to push a nonaliased variable value to the virtual - * machine stack - * bMacroVar is TRUE if macro &szVarName context - */ -void hb_compGenPushVar( char * szVarName, BOOL bMacroVar, HB_COMP_DECL ) -{ - int iVar; - - if( ! HB_COMP_PARAM->functions.pLast->bLateEval && ! bMacroVar ) - { - /* pseudo-generation of pcode for a codeblock with macro symbol */ - hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); - return; - } - - iVar = hb_compLocalGetPos( HB_COMP_PARAM, szVarName ); - if( iVar ) - { - /* local variable - */ - /* local variables used in a coddeblock will not be adjusted - * if PARAMETERS statement will be used then it is safe to - * use 2 bytes for LOCALNEAR - */ - if( HB_LIM_INT8( iVar ) && !HB_COMP_PARAM->functions.pLast->szName ) - hb_compGenPCode2( HB_P_PUSHLOCALNEAR, ( BYTE ) iVar, HB_COMP_PARAM ); - else - hb_compGenPCode3( HB_P_PUSHLOCAL, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - } - else - { - iVar = hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* Static variable declared in current function - */ - hb_compGenPCode3( HB_P_PUSHSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; - } - else - { - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* field declared in current function - */ - hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_PUSHFIELD, iVar, szVarName, HB_COMP_PARAM->functions.pLast ); - } - else - { - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* Memvar variable declared in current functions - */ - hb_compGenVarPCode( HB_P_PUSHMEMVAR, szVarName, HB_COMP_PARAM ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global static variable - */ - hb_compGenPCode3( HB_P_PUSHSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global field declaration - */ - hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_PUSHFIELD, iVar, szVarName, HB_COMP_PARAM->functions.pFirst ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global Memvar variable declaration */ - hb_compGenVarPCode( HB_P_PUSHMEMVAR, szVarName, HB_COMP_PARAM ); - } - else - { - /* undeclared variable - */ - hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHVARIABLE, szVarName ); - } - } - } - } - } - } - } -} - -void hb_compGenPushMemvarRef( char * szVarName, HB_COMP_DECL ) /* generates the pcode to push memvar variable by reference to the virtual machine stack */ -{ - hb_compGenVarPCode( HB_P_PUSHMEMVARREF, szVarName, HB_COMP_PARAM ); -} - -void hb_compGenPushVarRef( char * szVarName, HB_COMP_DECL ) /* generates the pcode to push a variable by reference to the virtual machine stack */ -{ - int iVar; - - if( ! HB_COMP_PARAM->functions.pLast->bLateEval ) - { - /* pseudo-generation of pcode for a codeblock with macro symbol */ - hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); - return; - } - - iVar = hb_compLocalGetPos( HB_COMP_PARAM, szVarName ); - if( iVar ) - { - /* local variable - */ - hb_compGenPCode3( HB_P_PUSHLOCALREF, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - } - else - { - iVar = hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* Static variable declared in current function - */ - hb_compGenPCode3( HB_P_PUSHSTATICREF, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; - } - else - { - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* pushing fields by reference is not allowed */ - hb_compErrorRefer( HB_COMP_PARAM, NULL, szVarName ); - } - else - { - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pLast ); - if( iVar ) - { - /* Memvar variable declared in current functions - */ - hb_compGenVarPCode( HB_P_PUSHMEMVARREF, szVarName, HB_COMP_PARAM ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compStaticGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global static variable - */ - hb_compGenPCode3( HB_P_PUSHSTATICREF, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); - HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compFieldGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* pushing fields by reference is not allowed */ - hb_compErrorRefer( HB_COMP_PARAM, NULL, szVarName ); - } - else - { - if( ! HB_COMP_PARAM->fStartProc ) - iVar = hb_compMemvarGetPos( szVarName, HB_COMP_PARAM->functions.pFirst ); - if( iVar ) - { - /* Global Memvar variable declaration - */ - hb_compGenVarPCode( HB_P_PUSHMEMVARREF, szVarName, HB_COMP_PARAM ); - } - else - { - /* undeclared variable - field cannot be passed by the - * reference - assume the memvar - */ - hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHMEMVARREF, szVarName ); - } - } - } - } - } - } - } -} - - /* generates the pcode to push an aliased variable value to the virtual - * machine stack - */ -void hb_compGenPushAliasedVar( char * szVarName, - BOOL bPushAliasValue, - char * szAlias, - long lWorkarea, - HB_COMP_DECL ) -{ - if( bPushAliasValue ) - { - if( szAlias ) - { - int iLen = strlen( szAlias ); - /* myalias->var - * FIELD->var - * MEMVAR->var - */ - if( szAlias[ 0 ] == 'M' && ( iLen == 1 || - ( iLen >= 4 && iLen <= 6 && - memcmp( szAlias, "MEMVAR", iLen ) == 0 ) ) ) - { /* M->variable or MEMV[A[R]]->variable */ - hb_compGenVarPCode( HB_P_PUSHMEMVAR, szVarName, HB_COMP_PARAM ); - } - else if( iLen >= 4 && iLen <= 5 && - memcmp( szAlias, "FIELD", iLen ) == 0 ) - { /* FIEL[D]->variable */ - hb_compGenVarPCode( HB_P_PUSHFIELD, szVarName, HB_COMP_PARAM ); - } - else - { /* database alias */ - hb_compGenPushSymbol( szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); - hb_compGenVarPCode( HB_P_PUSHALIASEDFIELD, szVarName, HB_COMP_PARAM ); - } - } - else - { - hb_compGenPushLong( lWorkarea, HB_COMP_PARAM ); - hb_compGenVarPCode( HB_P_PUSHALIASEDFIELD, szVarName, HB_COMP_PARAM ); - } - } - else - /* Alias is already placed on stack - * NOTE: An alias will be determined at runtime then we cannot decide - * here if passed name is either a field or a memvar - */ - hb_compGenVarPCode( HB_P_PUSHALIASEDVAR, szVarName, HB_COMP_PARAM ); -} - -void hb_compGenPushLogical( int iTrueFalse, HB_COMP_DECL ) /* pushes a logical value on the virtual machine stack */ -{ - hb_compGenPCode1( iTrueFalse ? HB_P_TRUE : HB_P_FALSE, HB_COMP_PARAM ); -} - -void hb_compGenPushNil( HB_COMP_DECL ) -{ - hb_compGenPCode1( HB_P_PUSHNIL, HB_COMP_PARAM ); -} - -/* generates the pcode to push a double number on the virtual machine stack */ -void hb_compGenPushDouble( double dNumber, BYTE bWidth, BYTE bDec, HB_COMP_DECL ) -{ - BYTE pBuffer[ sizeof( double ) + sizeof( BYTE ) + sizeof( BYTE ) + 1 ]; - - pBuffer[ 0 ] = HB_P_PUSHDOUBLE; - HB_PUT_LE_DOUBLE( &( pBuffer[ 1 ] ), dNumber ); - - pBuffer[ 1 + sizeof( double ) ] = bWidth; - pBuffer[ 1 + sizeof( double ) + sizeof( BYTE ) ] = bDec; - - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); -} - -void hb_compGenPushFunCall( char * szFunName, HB_COMP_DECL ) -{ - char * szFunction; - USHORT wSym; - - /* if abbreviated function name was used - change it for whole name */ - szFunction = hb_compReservedName( szFunName ); - if( szFunction ) - szFunName = szFunction; - - if( hb_compSymbolFind( HB_COMP_PARAM, szFunName, &wSym, HB_SYM_FUNCNAME ) != NULL ) - { - if( ! hb_compFunCallFind( HB_COMP_PARAM, szFunName ) ) - hb_compFunCallAdd( HB_COMP_PARAM, szFunName ); - } - else - { - hb_compSymbolAdd( HB_COMP_PARAM, szFunName, &wSym, HB_SYM_FUNCNAME ); - hb_compFunCallAdd( HB_COMP_PARAM, szFunName ); - } - hb_compGenPCode3( HB_P_PUSHFUNCSYM, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); -} - -void hb_compGenPushFunSym( char * szFunName, HB_COMP_DECL ) -{ - char * szFunction; - - /* if abbreviated function name was used - change it for whole name */ - szFunction = hb_compReservedName( szFunName ); - hb_compGenPushSymbol( szFunction ? szFunction : szFunName, - HB_SYM_FUNCNAME, HB_COMP_PARAM ); -} - -void hb_compGenPushFunRef( char * szFunName, HB_COMP_DECL ) -{ - char * szFunction; - - /* if abbreviated function name was used - change it for whole name */ - szFunction = hb_compReservedName( szFunName ); - hb_compGenPushSymbol( szFunction ? szFunction : szFunName, - HB_SYM_FUNCNAME, HB_COMP_PARAM ); -} - -/* generates the pcode to push a symbol on the virtual machine stack */ -void hb_compGenPushSymbol( char * szSymbolName, BOOL bFunction, HB_COMP_DECL ) -{ - USHORT wSym; - - if( hb_compSymbolFind( HB_COMP_PARAM, szSymbolName, &wSym, bFunction ) != NULL ) /* the symbol was found on the symbol table */ - { - if( bFunction && ! hb_compFunCallFind( HB_COMP_PARAM, szSymbolName ) ) - hb_compFunCallAdd( HB_COMP_PARAM, szSymbolName ); - } - else - { - hb_compSymbolAdd( HB_COMP_PARAM, szSymbolName, &wSym, bFunction ); - if( bFunction ) - hb_compFunCallAdd( HB_COMP_PARAM, szSymbolName ); - } - - if( wSym > 255 ) - hb_compGenPCode3( HB_P_PUSHSYM, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); - else - hb_compGenPCode2( HB_P_PUSHSYMNEAR, ( BYTE ) wSym, HB_COMP_PARAM ); -} - -/* generates the pcode to push a long number on the virtual machine stack */ -void hb_compGenPushLong( HB_LONG lNumber, HB_COMP_DECL ) -{ - if( HB_COMP_PARAM->fLongOptimize ) - { - if( lNumber == 0 ) - hb_compGenPCode1( HB_P_ZERO, HB_COMP_PARAM ); - else if( lNumber == 1 ) - hb_compGenPCode1( HB_P_ONE, HB_COMP_PARAM ); - else if( HB_LIM_INT8( lNumber ) ) - hb_compGenPCode2( HB_P_PUSHBYTE, (BYTE) lNumber, HB_COMP_PARAM ); - else if( HB_LIM_INT16( lNumber ) ) - hb_compGenPCode3( HB_P_PUSHINT, HB_LOBYTE( lNumber ), HB_HIBYTE( lNumber ), HB_COMP_PARAM ); - else if( HB_LIM_INT32( lNumber ) ) - { - BYTE pBuffer[ 5 ]; - pBuffer[ 0 ] = HB_P_PUSHLONG; - HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); - } - else - { - BYTE pBuffer[ 9 ]; - pBuffer[ 0 ] = HB_P_PUSHLONGLONG; - HB_PUT_LE_UINT64( pBuffer + 1, lNumber ); - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); - } - } - else - { - if( HB_LIM_INT32( lNumber ) ) - { - BYTE pBuffer[ 5 ]; - pBuffer[ 0 ] = HB_P_PUSHLONG; - HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); - } - else - { - BYTE pBuffer[ 9 ]; - pBuffer[ 0 ] = HB_P_PUSHLONGLONG; - HB_PUT_LE_UINT64( pBuffer + 1, lNumber ); - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); - } - } -} - -void hb_compGenPushDate( HB_LONG lNumber, HB_COMP_DECL ) -{ - BYTE pBuffer[ 5 ]; - - pBuffer[ 0 ] = HB_P_PUSHDATE; - HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); - hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); -} - -/* generates the pcode to push a string on the virtual machine stack */ -void hb_compGenPushString( char * szText, ULONG ulStrLen, HB_COMP_DECL ) -{ - if( HB_COMP_PARAM->iHidden ) - { - --ulStrLen; - szText = hb_compEncodeString( HB_COMP_PARAM->iHidden, szText, &ulStrLen ); - hb_compGenPCode4( HB_P_PUSHSTRHIDDEN, ( BYTE ) HB_COMP_PARAM->iHidden, - HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_COMP_PARAM ); - hb_compGenPCodeN( ( BYTE * ) szText, ulStrLen, HB_COMP_PARAM ); - hb_xfree( szText ); - } - else - { - if( ulStrLen > UINT24_MAX ) - hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_STRING_TOO_LONG, NULL, NULL ); - else - { - if( ulStrLen > USHRT_MAX ) - hb_compGenPCode4( HB_P_PUSHSTRLARGE, HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_ULBYTE( ulStrLen ), HB_COMP_PARAM ); - else if( ulStrLen > UCHAR_MAX ) - hb_compGenPCode3( HB_P_PUSHSTR, HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_COMP_PARAM ); - else - hb_compGenPCode2( HB_P_PUSHSTRSHORT, ( BYTE ) ulStrLen, HB_COMP_PARAM ); - hb_compGenPCodeN( ( BYTE * ) szText, ulStrLen, HB_COMP_PARAM ); - } - } -} - -static void hb_compCheckDuplVars( HB_COMP_DECL, PVAR pVar, char * szVarName ) -{ - while( pVar ) - { - if( ! strcmp( pVar->szName, szVarName ) ) - { - HB_COMP_ERROR_DUPLVAR( szVarName ); - break; - } - else - pVar = pVar->pNext; - } -} - -void hb_compFinalizeFunction( HB_COMP_DECL ) /* fixes all last defined function returns jumps offsets */ -{ - PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; - - if( pFunc ) - { - if( ( pFunc->bFlags & FUN_WITH_RETURN ) == 0 ) - { - /* The last statement in a function/procedure was not a RETURN - * Generate end-of-procedure pcode - */ - hb_compGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); - } - - if( !pFunc->bError ) - { - if( pFunc->wParamCount && !( pFunc->bFlags & FUN_USES_LOCAL_PARAMS ) ) - { - /* There was a PARAMETERS statement used. - * NOTE: This fixes local variables references in a case when - * there is PARAMETERS statement after a LOCAL variable declarations. - * All local variables are numbered from 1 - which means use first - * item from the eval stack. However if PARAMETERS statement is used - * then there are additional items on the eval stack - the - * function arguments. Then first local variable is at the position - * (1 + ). We cannot fix this numbering - * because the PARAMETERS statement can be used even at the end - * of function body when all local variables are already created. - */ - hb_compFixFuncPCode( HB_COMP_PARAM, pFunc ); - } - - hb_compOptimizeJumps( HB_COMP_PARAM ); - } - - if( HB_COMP_PARAM->iWarnings ) - { - PVAR pVar; - - pVar = pFunc->pLocals; - while( pVar ) - { - if( pVar->szName && pFunc->szName && pFunc->szName[0] && (! ( pVar->iUsed & VU_USED )) ) - { - char szFun[ 256 ]; - snprintf( szFun, sizeof( szFun ), "%s(%i)", pFunc->szName, pVar->iDeclLine ); - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAR_NOT_USED, pVar->szName, szFun ); - } - - pVar = pVar->pNext; - } - - pVar = pFunc->pStatics; - while( pVar ) - { - if( pVar->szName && pFunc->szName && pFunc->szName[0] && ! ( pVar->iUsed & VU_USED ) ) - { - char szFun[ 256 ]; - snprintf( szFun, sizeof( szFun ), "%s(%i)", pFunc->szName, pVar->iDeclLine ); - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAR_NOT_USED, pVar->szName, szFun ); - } - - pVar = pVar->pNext; - } - - /* Check if the function returned some value - */ - if( (pFunc->bFlags & FUN_WITH_RETURN) == 0 && - (pFunc->bFlags & FUN_PROCEDURE) == 0 ) - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_FUN_WITH_NO_RETURN, - pFunc->szName, NULL ); - } - } -} - -static void hb_compOptimizeFrames( HB_COMP_DECL, PFUNCTION pFunc ) -{ - USHORT w; - - if( pFunc == NULL ) - return; - - if( pFunc == HB_COMP_PARAM->pInitFunc ) - { - if( pFunc->pCode[ 0 ] == HB_P_STATICS && - pFunc->pCode[ 5 ] == HB_P_SFRAME ) - { - hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->pInitFunc->szName, &w, HB_SYM_FUNCNAME ); - pFunc->pCode[ 1 ] = HB_LOBYTE( w ); - pFunc->pCode[ 2 ] = HB_HIBYTE( w ); - pFunc->pCode[ 6 ] = HB_LOBYTE( w ); - pFunc->pCode[ 7 ] = HB_HIBYTE( w ); - - /* Remove the SFRAME pcode if there's no global static - initialization: */ - - /* NOTE: For some reason this will not work for the static init - function, so I'm using an ugly hack instead. [vszakats] */ -/* if( !( pFunc->bFlags & FUN_USES_STATICS ) ) */ - if( pFunc->pCode[ 8 ] == HB_P_ENDPROC ) - { - pFunc->lPCodePos -= 3; - memmove( pFunc->pCode + 5, pFunc->pCode + 8, pFunc->lPCodePos - 5 ); - } - else - /* Check Global Statics. */ - { - /* PVAR pVar = pFunc->pStatics; */ - PVAR pVar = HB_COMP_PARAM->functions.pFirst->pStatics; - - while( pVar ) - { - /*printf( "\nChecking: %s Used: %i\n", pVar->szName, pVar->iUsed );*/ - - if ( ! ( pVar->iUsed & VU_USED ) && (pVar->iUsed & VU_INITIALIZED) ) - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAL_NOT_USED, pVar->szName, NULL ); - - /* May have been initialized in previous execution of the function. - else if ( ( pVar->iUsed & VU_USED ) && ! ( pVar->iUsed & VU_INITIALIZED ) ) - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_NOT_INITIALIZED, pVar->szName, NULL ); - */ - pVar = pVar->pNext; - } - } - } - } - else if( pFunc->pCode[ 0 ] == HB_P_FRAME && pFunc->pCode[ 3 ] == HB_P_SFRAME ) - { - PVAR pLocal; - int iLocals = 0, iOffset = 0; - BOOL bSkipFRAME; - BOOL bSkipSFRAME; - - pLocal = pFunc->pLocals; - - while( pLocal ) - { - pLocal = pLocal->pNext; - iLocals++; - } - - if( pFunc->bFlags & FUN_USES_STATICS ) - { - hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->pInitFunc->szName, &w, HB_SYM_FUNCNAME ); - pFunc->pCode[ 4 ] = HB_LOBYTE( w ); - pFunc->pCode[ 5 ] = HB_HIBYTE( w ); - bSkipSFRAME = FALSE; - } - else - bSkipSFRAME = TRUE; - - if( iLocals || pFunc->wParamCount ) - { - /* Parameters declared with PARAMETERS statement are not - * placed in the local variable list. - */ - if( pFunc->bFlags & FUN_USES_LOCAL_PARAMS ) - iLocals -= pFunc->wParamCount; - - if( iLocals > 255 ) - { - /* more then 255 local variables, - * make a room for HB_P_LARGE[V]FRAME - */ - hb_compGenPCode1( 0, HB_COMP_PARAM ); - memmove( pFunc->pCode + 4, pFunc->pCode + 3, pFunc->lPCodePos - 4 ); - pFunc->pCode[ 0 ] = HB_P_LARGEFRAME; - pFunc->pCode[ 1 ] = HB_LOBYTE( iLocals ); - pFunc->pCode[ 2 ] = HB_HIBYTE( iLocals ); - pFunc->pCode[ 3 ] = ( BYTE )( pFunc->wParamCount ); - iOffset = 1; - } - else - { - pFunc->pCode[ 1 ] = ( BYTE )( iLocals ); - pFunc->pCode[ 2 ] = ( BYTE )( pFunc->wParamCount ); - } - bSkipFRAME = FALSE; - } - else - /* Skip LOCALs frame only when function is not declared with - * variable number of parameters (HB_P_[LARGE]VFRAME) - */ - bSkipFRAME = !pFunc->fVParams; - - /* Remove the frame pcodes if they are not needed */ - if( bSkipFRAME ) - { - if( bSkipSFRAME ) - { - pFunc->lPCodePos -= 6; - memmove( pFunc->pCode, pFunc->pCode + 6, pFunc->lPCodePos ); - } - else - { - pFunc->lPCodePos -= 3; - memmove( pFunc->pCode, pFunc->pCode + 3, pFunc->lPCodePos ); - } - } - else - { - if( pFunc->fVParams ) - pFunc->pCode[ 0 ] = iOffset ? HB_P_LARGEVFRAME : HB_P_VFRAME; - - if( bSkipSFRAME ) - { - pFunc->lPCodePos -= 3; - memmove( pFunc->pCode + 3 + iOffset, pFunc->pCode + 6 + iOffset, - pFunc->lPCodePos - 3 - iOffset ); - } - } - } -} static int hb_compSort_ULONG( const void * pLeft, const void * pRight ) { @@ -3389,123 +1675,6 @@ static int hb_compSort_ULONG( const void * pLeft, const void * pRight ) return 1; } -void hb_compNOOPfill( PFUNCTION pFunc, ULONG ulFrom, int iCount, BOOL fPop, BOOL fCheck ) -{ - ULONG ul; - - while( iCount-- ) - { - if( fPop ) - { - pFunc->pCode[ ulFrom ] = HB_P_POP; - fPop = FALSE; - } - else if( fCheck && pFunc->pCode[ ulFrom ] == HB_P_NOOP && pFunc->iNOOPs ) - { - for( ul = 0; ul < pFunc->iNOOPs; ++ul ) - { - if( pFunc->pNOOPs[ ul ] == ulFrom ) - break; - } - if( ul == pFunc->iNOOPs ) - hb_compNOOPadd( pFunc, ulFrom ); - } - else - hb_compNOOPadd( pFunc, ulFrom ); - ++ulFrom; - } -} - -/* - * Warning - when jump optimization is disabled this function can be used - * _ONLY_ in very limited situations when there is no jumps over the - * removed block - */ -static void hb_compRemovePCODE( HB_COMP_DECL, ULONG ulPos, ULONG ulCount ) -{ - PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; - ULONG ul; - - if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_OPTJUMP ) ) - { - /* - * We can safely remove the dead code when Jump Optimization - * is enabled by replacing it with HB_P_NOOP opcodes - which - * will be later eliminated and jump data updated. - */ - hb_compNOOPfill( pFunc, ulPos, ulCount, FALSE, TRUE ); - } - else - { - memmove( pFunc->pCode + ulPos, pFunc->pCode + ulPos + ulCount, - pFunc->lPCodePos - ulPos - ulCount ); - pFunc->lPCodePos -= ulCount; - - for( ul = pFunc->iNOOPs; ul; --ul ) - { - if( pFunc->pNOOPs[ ul ] >= ulPos ) - { - if( pFunc->pNOOPs[ ul ] < ulPos + ulCount ) - { - memmove( &pFunc->pNOOPs[ ul ], &pFunc->pNOOPs[ ul + 1 ], - pFunc->iNOOPs - ul ); - pFunc->iNOOPs--; - } - else - { - pFunc->pNOOPs[ ul ] -= ulCount; - } - } - } - } -} - -BOOL hb_compIsJump( HB_COMP_DECL, PFUNCTION pFunc, ULONG ulPos ) -{ - ULONG iJump; - /* - * Do not allow any optimization (code striping) when Jump Optimization - * is disabled and we do not have any information about jump addreses - */ - if( ! HB_COMP_ISSUPPORTED( HB_COMPFLAG_OPTJUMP ) ) - return TRUE; - - for( iJump = 0; iJump < pFunc->iJumps; iJump++ ) - { - ULONG ulJumpAddr = pFunc->pJumps[ iJump ]; - switch( pFunc->pCode[ ulJumpAddr ] ) - { - case HB_P_JUMPNEAR: - case HB_P_JUMPFALSENEAR: - case HB_P_JUMPTRUENEAR: - ulJumpAddr += ( signed char ) pFunc->pCode[ ulJumpAddr + 1 ]; - break; - - case HB_P_JUMP: - case HB_P_JUMPFALSE: - case HB_P_JUMPTRUE: - ulJumpAddr += HB_PCODE_MKSHORT( &pFunc->pCode[ ulJumpAddr + 1 ] ); - break; - - /* Jump can be replaced by series of NOOPs or POP and NOOPs - * and not stripped yet - */ - case HB_P_NOOP: - case HB_P_POP: - ulJumpAddr = ulPos + 1; - break; - - default: - ulJumpAddr += HB_PCODE_MKINT24( &pFunc->pCode[ ulJumpAddr + 1 ] ); - break; - } - if( ulJumpAddr == ulPos ) - return TRUE; - } - - return FALSE; -} - /* Jump Optimizer and dummy code eliminator */ static void hb_compOptimizeJumps( HB_COMP_DECL ) { @@ -3831,6 +2000,1573 @@ static void hb_compOptimizeJumps( HB_COMP_DECL ) } } +static void hb_compOptimizeFrames( HB_COMP_DECL, PFUNCTION pFunc ) +{ + USHORT w; + + if( pFunc == NULL ) + return; + + if( pFunc == HB_COMP_PARAM->pInitFunc ) + { + if( pFunc->pCode[ 0 ] == HB_P_STATICS && + pFunc->pCode[ 5 ] == HB_P_SFRAME ) + { + hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->pInitFunc->szName, &w, HB_SYM_FUNCNAME ); + pFunc->pCode[ 1 ] = HB_LOBYTE( w ); + pFunc->pCode[ 2 ] = HB_HIBYTE( w ); + pFunc->pCode[ 6 ] = HB_LOBYTE( w ); + pFunc->pCode[ 7 ] = HB_HIBYTE( w ); + + /* Remove the SFRAME pcode if there's no global static + initialization: */ + + /* NOTE: For some reason this will not work for the static init + function, so I'm using an ugly hack instead. [vszakats] */ +/* if( !( pFunc->bFlags & FUN_USES_STATICS ) ) */ + if( pFunc->pCode[ 8 ] == HB_P_ENDPROC ) + { + pFunc->lPCodePos -= 3; + memmove( pFunc->pCode + 5, pFunc->pCode + 8, pFunc->lPCodePos - 5 ); + } + else /* Check Global Statics. */ + { + /* PVAR pVar = pFunc->pStatics; */ + PVAR pVar = HB_COMP_PARAM->functions.pFirst->pStatics; + + while( pVar ) + { + /*printf( "\nChecking: %s Used: %i\n", pVar->szName, pVar->iUsed );*/ + + if ( ! ( pVar->iUsed & VU_USED ) && (pVar->iUsed & VU_INITIALIZED) ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAL_NOT_USED, pVar->szName, NULL ); + + /* May have been initialized in previous execution of the function. + else if ( ( pVar->iUsed & VU_USED ) && ! ( pVar->iUsed & VU_INITIALIZED ) ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_NOT_INITIALIZED, pVar->szName, NULL ); + */ + pVar = pVar->pNext; + } + } + } + } + else if( pFunc->pCode[ 0 ] == HB_P_FRAME && pFunc->pCode[ 3 ] == HB_P_SFRAME ) + { + PVAR pLocal; + int iLocals = 0, iOffset = 0; + BOOL bSkipFRAME; + BOOL bSkipSFRAME; + + pLocal = pFunc->pLocals; + + while( pLocal ) + { + pLocal = pLocal->pNext; + iLocals++; + } + + if( pFunc->bFlags & FUN_USES_STATICS ) + { + hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->pInitFunc->szName, &w, HB_SYM_FUNCNAME ); + pFunc->pCode[ 4 ] = HB_LOBYTE( w ); + pFunc->pCode[ 5 ] = HB_HIBYTE( w ); + bSkipSFRAME = FALSE; + } + else + bSkipSFRAME = TRUE; + + if( iLocals || pFunc->wParamCount ) + { + /* Parameters declared with PARAMETERS statement are not + * placed in the local variable list. + */ + if( pFunc->bFlags & FUN_USES_LOCAL_PARAMS ) + iLocals -= pFunc->wParamCount; + + if( iLocals > 255 ) + { + /* more then 255 local variables, + * make a room for HB_P_LARGE[V]FRAME + */ + hb_compGenPCode1( 0, HB_COMP_PARAM ); + memmove( pFunc->pCode + 4, pFunc->pCode + 3, pFunc->lPCodePos - 4 ); + pFunc->pCode[ 0 ] = HB_P_LARGEFRAME; + pFunc->pCode[ 1 ] = HB_LOBYTE( iLocals ); + pFunc->pCode[ 2 ] = HB_HIBYTE( iLocals ); + pFunc->pCode[ 3 ] = ( BYTE )( pFunc->wParamCount ); + iOffset = 1; + } + else + { + pFunc->pCode[ 1 ] = ( BYTE )( iLocals ); + pFunc->pCode[ 2 ] = ( BYTE )( pFunc->wParamCount ); + } + bSkipFRAME = FALSE; + } + else + /* Skip LOCALs frame only when function is not declared with + * variable number of parameters (HB_P_[LARGE]VFRAME) + */ + bSkipFRAME = !pFunc->fVParams; + + /* Remove the frame pcodes if they are not needed */ + if( bSkipFRAME ) + { + if( bSkipSFRAME ) + { + pFunc->lPCodePos -= 6; + memmove( pFunc->pCode, pFunc->pCode + 6, pFunc->lPCodePos ); + } + else + { + pFunc->lPCodePos -= 3; + memmove( pFunc->pCode, pFunc->pCode + 3, pFunc->lPCodePos ); + } + } + else + { + if( pFunc->fVParams ) + pFunc->pCode[ 0 ] = iOffset ? HB_P_LARGEVFRAME : HB_P_VFRAME; + + if( bSkipSFRAME ) + { + pFunc->lPCodePos -= 3; + memmove( pFunc->pCode + 3 + iOffset, pFunc->pCode + 6 + iOffset, + pFunc->lPCodePos - 3 - iOffset ); + } + } + } +} + +static void hb_compFinalizeFunction( HB_COMP_DECL ) /* fixes all last defined function returns jumps offsets */ +{ + PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; + + if( pFunc ) + { + if( ( pFunc->bFlags & FUN_WITH_RETURN ) == 0 ) + { + /* The last statement in a function/procedure was not a RETURN + * Generate end-of-procedure pcode + */ + hb_compGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); + } + + if( !pFunc->bError ) + { + if( pFunc->wParamCount && !( pFunc->bFlags & FUN_USES_LOCAL_PARAMS ) ) + { + /* There was a PARAMETERS statement used. + * NOTE: This fixes local variables references in a case when + * there is PARAMETERS statement after a LOCAL variable declarations. + * All local variables are numbered from 1 - which means use first + * item from the eval stack. However if PARAMETERS statement is used + * then there are additional items on the eval stack - the + * function arguments. Then first local variable is at the position + * (1 + ). We cannot fix this numbering + * because the PARAMETERS statement can be used even at the end + * of function body when all local variables are already created. + */ + hb_compFixFuncPCode( HB_COMP_PARAM, pFunc ); + } + + hb_compOptimizeJumps( HB_COMP_PARAM ); + } + + if( HB_COMP_PARAM->iWarnings ) + { + PVAR pVar; + + pVar = pFunc->pLocals; + while( pVar ) + { + if( pVar->szName && pFunc->szName && pFunc->szName[0] && (! ( pVar->iUsed & VU_USED )) ) + { + char szFun[ 256 ]; + snprintf( szFun, sizeof( szFun ), "%s(%i)", pFunc->szName, pVar->iDeclLine ); + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAR_NOT_USED, pVar->szName, szFun ); + } + + pVar = pVar->pNext; + } + + pVar = pFunc->pStatics; + while( pVar ) + { + if( pVar->szName && pFunc->szName && pFunc->szName[0] && ! ( pVar->iUsed & VU_USED ) ) + { + char szFun[ 256 ]; + snprintf( szFun, sizeof( szFun ), "%s(%i)", pFunc->szName, pVar->iDeclLine ); + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAR_NOT_USED, pVar->szName, szFun ); + } + + pVar = pVar->pNext; + } + + /* Check if the function returned some value + */ + if( (pFunc->bFlags & FUN_WITH_RETURN) == 0 && + (pFunc->bFlags & FUN_PROCEDURE) == 0 ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_FUN_WITH_NO_RETURN, + pFunc->szName, NULL ); + } + } +} + +/* + * This function creates and initialises the _FUNC structure + */ +static PFUNCTION hb_compFunctionNew( HB_COMP_DECL, char * szName, HB_SYMBOLSCOPE cScope ) +{ + PFUNCTION pFunc; + + pFunc = ( PFUNCTION ) hb_xgrab( sizeof( _FUNC ) ); + pFunc->szName = szName; + pFunc->cScope = cScope; + pFunc->pLocals = NULL; + pFunc->pStatics = NULL; + pFunc->pFields = NULL; + pFunc->pMemvars = NULL; + pFunc->pDetached = NULL; + pFunc->pPrivates = NULL; + pFunc->pCode = NULL; + pFunc->lPCodeSize = 0; + pFunc->lPCodePos = 0; + pFunc->pNext = NULL; + pFunc->wParamCount = 0; + pFunc->wParamNum = 0; + pFunc->iStaticsBase = HB_COMP_PARAM->iStaticCnt; + pFunc->pOwner = NULL; + pFunc->bFlags = 0; + pFunc->iNOOPs = 0; + pFunc->iJumps = 0; + pFunc->pNOOPs = NULL; + pFunc->pJumps = NULL; + pFunc->bLateEval = TRUE; + pFunc->fVParams = FALSE; + pFunc->bError = FALSE; + pFunc->pEnum = NULL; + + return pFunc; +} + +static PINLINE hb_compInlineNew( HB_COMP_DECL, char * szName, int iLine ) +{ + PINLINE pInline; + + pInline = ( PINLINE ) hb_xgrab( sizeof( _INLINE ) ); + + pInline->szName = szName; + pInline->pCode = NULL; + pInline->lPCodeSize = 0; + pInline->pNext = NULL; + pInline->szFileName = hb_compIdentifierNew( HB_COMP_PARAM, + hb_pp_fileName( HB_COMP_PARAM->pLex->pPP ), HB_IDENT_COPY ); + pInline->iLine = iLine; + + return pInline; +} + +/* NOTE: Names of variables and functions are released in hbident.c on exit */ +static PFUNCTION hb_compFunctionKill( PFUNCTION pFunc ) +{ + PFUNCTION pNext = pFunc->pNext; + HB_ENUMERATOR_PTR pEVar; + PVAR pVar; + + while( pFunc->pLocals ) + { + pVar = pFunc->pLocals; + pFunc->pLocals = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pStatics ) + { + pVar = pFunc->pStatics; + pFunc->pStatics = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pFields ) + { + pVar = pFunc->pFields; + pFunc->pFields = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pMemvars ) + { + pVar = pFunc->pMemvars; + pFunc->pMemvars = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pDetached ) + { + pVar = pFunc->pDetached; + pFunc->pDetached = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pPrivates ) + { + pVar = pFunc->pPrivates; + pFunc->pPrivates = pVar->pNext; + hb_xfree( ( void * ) pVar ); + } + + while( pFunc->pEnum ) + { + pEVar = pFunc->pEnum; + pFunc->pEnum = pEVar->pNext; + hb_xfree( pEVar ); + } + + /* Release the NOOP array. */ + if( pFunc->pNOOPs ) + hb_xfree( ( void * ) pFunc->pNOOPs ); + + /* Release the Jumps array. */ + if( pFunc->pJumps ) + hb_xfree( ( void * ) pFunc->pJumps ); + + hb_xfree( ( void * ) pFunc->pCode ); + hb_xfree( ( void * ) pFunc ); + + return pNext; +} + +/* + * This function adds the name of called function into the list + * as they have to be placed on the symbol table later than the + * first public symbol + */ +static PFUNCALL hb_compFunCallAdd( HB_COMP_DECL, char * szFunctionName ) +{ + PFUNCALL pFunc = ( PFUNCALL ) hb_xgrab( sizeof( _FUNCALL ) ); + + pFunc->szName = szFunctionName; + pFunc->pNext = NULL; + if( ! HB_COMP_PARAM->funcalls.iCount ) + { + HB_COMP_PARAM->funcalls.pFirst = pFunc; + HB_COMP_PARAM->funcalls.pLast = pFunc; + } + else + { + HB_COMP_PARAM->funcalls.pLast->pNext = pFunc; + HB_COMP_PARAM->funcalls.pLast = pFunc; + } + HB_COMP_PARAM->funcalls.iCount++; + + return pFunc; +} + +/* + * This function adds the name of external symbol into the list of externals + * as they have to be placed on the symbol table later than the first + * public symbol + */ +void hb_compExternAdd( HB_COMP_DECL, char * szExternName, HB_SYMBOLSCOPE cScope ) /* defines a new extern name */ +{ + PEXTERN pExtern = ( PEXTERN ) hb_xgrab( sizeof( _EXTERN ) ), pLast; + + if( strcmp( "_GET_", szExternName ) == 0 ) + { + /* special function to implement @ GET statement */ + hb_compExternAdd( HB_COMP_PARAM, "__GETA", 0 ); + pExtern->szName = "__GET"; + } + else + { + pExtern->szName = szExternName; + } + pExtern->cScope = cScope; + pExtern->pNext = NULL; + + if( HB_COMP_PARAM->externs == NULL ) + HB_COMP_PARAM->externs = pExtern; + else + { + pLast = HB_COMP_PARAM->externs; + while( pLast->pNext ) + pLast = pLast->pNext; + pLast->pNext = pExtern; + } +} + +/* + * Stores a Clipper defined function/procedure + * szFunName - name of a function + * cScope - scope of a function + * iType - FUN_PROCEDURE if a procedure or 0 + */ +void hb_compFunctionAdd( HB_COMP_DECL, char * szFunName, HB_SYMBOLSCOPE cScope, int iType ) +{ + PCOMSYMBOL pSym; + PFUNCTION pFunc; + char * szFunction; + + hb_compFinalizeFunction( HB_COMP_PARAM ); /* fix all previous function returns offsets */ + + if( cScope & (HB_FS_INIT | HB_FS_EXIT) ) + { + char szNewName[ HB_SYMBOL_NAME_LEN + 1 ]; + int iLen; + + iLen = strlen( szFunName ); + if( iLen >= HB_SYMBOL_NAME_LEN ) + iLen = HB_SYMBOL_NAME_LEN - 1; + memcpy( szNewName, szFunName, iLen ); + szNewName[ iLen ] ='$'; + szNewName[ iLen + 1 ] = '\0'; + szFunName = hb_compIdentifierNew( HB_COMP_PARAM, szNewName, HB_IDENT_COPY ); + } + pFunc = hb_compFunctionFind( HB_COMP_PARAM, szFunName ); + if( pFunc ) + { + /* The name of a function/procedure is already defined */ + if( pFunc != HB_COMP_PARAM->functions.pFirst || HB_COMP_PARAM->fStartProc ) + /* it is not a starting procedure that was automatically created */ + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_FUNC_DUPL, szFunName, NULL ); + } + + szFunction = hb_compReservedName( szFunName ); + if( szFunction && !( HB_COMP_PARAM->functions.iCount == 0 && !HB_COMP_PARAM->fStartProc ) ) + { + /* We are ignoring it when it is the name of PRG file and we are + * not creating implicit starting procedure + */ + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_FUNC_RESERVED, szFunction, szFunName ); + } + + HB_COMP_PARAM->iFunctionCnt++; + + pSym = hb_compSymbolFind( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); + if( ! pSym ) + { + /* there is not a symbol on the symbol table for this function name */ + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); + } + if( pSym ) + pSym->cScope |= cScope | HB_FS_LOCAL; + + pFunc = hb_compFunctionNew( HB_COMP_PARAM, szFunName, cScope ); + pFunc->bFlags |= iType; + + if( HB_COMP_PARAM->functions.iCount == 0 ) + { + HB_COMP_PARAM->functions.pFirst = pFunc; + HB_COMP_PARAM->functions.pLast = pFunc; + } + else + { + HB_COMP_PARAM->functions.pLast->pNext = pFunc; + HB_COMP_PARAM->functions.pLast = pFunc; + } + HB_COMP_PARAM->functions.iCount++; + + HB_COMP_PARAM->lastLinePos = 0; /* optimization of line numbers opcode generation */ + HB_COMP_PARAM->ilastLineErr = 0; /* position of last syntax error (line number) */ + + hb_compGenPCode3( HB_P_FRAME, 0, 0, HB_COMP_PARAM ); /* frame for locals and parameters */ + hb_compGenPCode3( HB_P_SFRAME, 0, 0, HB_COMP_PARAM ); /* frame for statics variables */ + + if( HB_COMP_PARAM->fDebugInfo ) + hb_compGenModuleName( HB_COMP_PARAM, szFunName ); + else + HB_COMP_PARAM->lastLine = -1; +} + +PINLINE hb_compInlineAdd( HB_COMP_DECL, char * szFunName, int iLine ) +{ + PINLINE pInline; + PCOMSYMBOL pSym; + + if( szFunName ) + { + pSym = hb_compSymbolFind( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); + if( ! pSym ) + { + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); + } + if( pSym ) + { + pSym->cScope |= HB_FS_STATIC | HB_FS_LOCAL; + } + } + pInline = hb_compInlineNew( pComp, szFunName, iLine ); + + if( HB_COMP_PARAM->inlines.iCount == 0 ) + { + HB_COMP_PARAM->inlines.pFirst = pInline; + HB_COMP_PARAM->inlines.pLast = pInline; + } + else + { + HB_COMP_PARAM->inlines.pLast->pNext = pInline; + HB_COMP_PARAM->inlines.pLast = pInline; + } + + HB_COMP_PARAM->inlines.iCount++; + + return pInline; +} + +/* create an ANNOUNCEd procedure + */ +void hb_compAnnounce( HB_COMP_DECL, char * szFunName ) +{ + PFUNCTION pFunc; + + pFunc = hb_compFunctionFind( HB_COMP_PARAM, szFunName ); + if( pFunc ) + { + /* there is a function/procedure defined already - ANNOUNCEd procedure + * have to be a public symbol - check if existing symbol is public + */ + if( pFunc->cScope & HB_FS_STATIC ) + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_FUNC_ANNOUNCE, szFunName, NULL ); + } + else + { + PCOMSYMBOL pSym; + + /* create a new procedure + */ + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szFunName, NULL, HB_SYM_FUNCNAME ); + pSym->cScope = HB_FS_PUBLIC | HB_FS_LOCAL; + + pFunc = hb_compFunctionNew( HB_COMP_PARAM, szFunName, pSym->cScope ); + pFunc->bFlags |= FUN_PROCEDURE; + + if( HB_COMP_PARAM->functions.iCount == 0 ) + { + HB_COMP_PARAM->functions.pFirst = pFunc; + HB_COMP_PARAM->functions.pLast = pFunc; + } + else + { + HB_COMP_PARAM->functions.pLast->pNext = pFunc; + HB_COMP_PARAM->functions.pLast = pFunc; + } + HB_COMP_PARAM->functions.iCount++; + HB_COMP_PARAM->iFunctionCnt++; + + /* this function have a very limited functionality + */ + hb_compGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); + } +} + +void hb_compGenBreak( HB_COMP_DECL ) +{ + hb_compGenPushFunCall( "BREAK", HB_COMP_PARAM ); +} + +void hb_compExternGen( HB_COMP_DECL ) /* generates the symbols for the EXTERN names */ +{ + PEXTERN pDelete; + + if( HB_COMP_PARAM->fDebugInfo ) + hb_compExternAdd( HB_COMP_PARAM, "__DBGENTRY", 0 ); + + while( HB_COMP_PARAM->externs ) + { + PCOMSYMBOL pSym = hb_compSymbolFind( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName, NULL, HB_SYM_FUNCNAME ); + if( pSym ) + { + if( ! hb_compFunCallFind( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ) ) + hb_compFunCallAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ); + } + else + { + pSym = hb_compSymbolAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName, NULL, HB_SYM_FUNCNAME ); + hb_compFunCallAdd( HB_COMP_PARAM, HB_COMP_PARAM->externs->szName ); + } + pSym->cScope |= HB_COMP_PARAM->externs->cScope; + pDelete = HB_COMP_PARAM->externs; + HB_COMP_PARAM->externs = HB_COMP_PARAM->externs->pNext; + hb_xfree( ( void * ) pDelete ); + } +} + +PFUNCALL hb_compFunCallFind( HB_COMP_DECL, char * szFunctionName ) /* returns a previously called defined function */ +{ + PFUNCALL pFunc = HB_COMP_PARAM->funcalls.pFirst; + + while( pFunc ) + { + if( ! strcmp( pFunc->szName, szFunctionName ) ) + break; + pFunc = pFunc->pNext; + } + return pFunc; +} + +PFUNCTION hb_compFunctionFind( HB_COMP_DECL, char * szFunctionName ) /* returns a previously defined function */ +{ + PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; + + while( pFunc ) + { + if( ! strcmp( pFunc->szName, szFunctionName ) ) + break; + pFunc = pFunc->pNext; + } + return pFunc; +} + +PINLINE hb_compInlineFind( HB_COMP_DECL, char * szFunctionName ) +{ + PINLINE pInline = HB_COMP_PARAM->inlines.pFirst; + + while( pInline ) + { + if( pInline->szName && strcmp( pInline->szName, szFunctionName ) == 0 ) + break; + pInline = pInline->pNext; + } + return pInline; +} + +static void hb_compNOOPadd( PFUNCTION pFunc, ULONG ulPos ) +{ + pFunc->pCode[ ulPos ] = HB_P_NOOP; + + if( pFunc->iNOOPs ) + pFunc->pNOOPs = ( ULONG * ) hb_xrealloc( pFunc->pNOOPs, sizeof( ULONG ) * ( pFunc->iNOOPs + 1 ) ); + else + pFunc->pNOOPs = ( ULONG * ) hb_xgrab( sizeof( ULONG ) ); + pFunc->pNOOPs[ pFunc->iNOOPs++ ] = ulPos; +} + +/* NOTE: To disable jump optimization, just make this function a dummy one. + [vszakats] */ + +static void hb_compPrepareOptimize( HB_COMP_DECL ) +{ + if( HB_COMP_ISSUPPORTED(HB_COMPFLAG_OPTJUMP) ) + { + PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; + + if( pFunc->iJumps ) + pFunc->pJumps = ( ULONG * ) hb_xrealloc( pFunc->pJumps, sizeof( ULONG ) * ( pFunc->iJumps + 1 ) ); + else + pFunc->pJumps = ( ULONG * ) hb_xgrab( sizeof( ULONG ) ); + pFunc->pJumps[ pFunc->iJumps++ ] = ( ULONG ) ( pFunc->lPCodePos - 4 ); + } +} + +ULONG hb_compGenJump( LONG lOffset, HB_COMP_DECL ) +{ + if( !HB_LIM_INT24( lOffset ) ) + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); + + hb_compGenPCode4( HB_P_JUMPFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); + hb_compPrepareOptimize( HB_COMP_PARAM ); + + return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; +} + +ULONG hb_compGenJumpFalse( LONG lOffset, HB_COMP_DECL ) +{ + if( !HB_LIM_INT24( lOffset ) ) + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); + + hb_compGenPCode4( HB_P_JUMPFALSEFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); + hb_compPrepareOptimize( HB_COMP_PARAM ); + + return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; +} + +ULONG hb_compGenJumpTrue( LONG lOffset, HB_COMP_DECL ) +{ + if( !HB_LIM_INT24( lOffset ) ) + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); + + hb_compGenPCode4( HB_P_JUMPTRUEFAR, HB_LOBYTE( lOffset ), HB_HIBYTE( lOffset ), ( BYTE ) ( ( lOffset >> 16 ) & 0xFF ), HB_COMP_PARAM ); + hb_compPrepareOptimize( HB_COMP_PARAM ); + + return HB_COMP_PARAM->functions.pLast->lPCodePos - 3; +} + +void hb_compGenJumpThere( ULONG ulFrom, ULONG ulTo, HB_COMP_DECL ) +{ + BYTE * pCode = HB_COMP_PARAM->functions.pLast->pCode; + LONG lOffset = ulTo - ulFrom + 1; + + if( HB_LIM_INT24( lOffset ) ) + { + HB_PUT_LE_UINT24( &pCode[ ulFrom ], lOffset ); + } + else + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'F', HB_COMP_ERR_JUMP_TOO_LONG, NULL, NULL ); +} + +void hb_compGenJumpHere( ULONG ulOffset, HB_COMP_DECL ) +{ + hb_compGenJumpThere( ulOffset, HB_COMP_PARAM->functions.pLast->lPCodePos, HB_COMP_PARAM ); +} + +void hb_compLinePush( HB_COMP_DECL ) /* generates the pcode with the currently compiled source code line */ +{ + if( HB_COMP_PARAM->fLineNumbers ) + { + if( HB_COMP_PARAM->fDebugInfo && HB_COMP_PARAM->lastModule != HB_COMP_PARAM->currModule ) + { + if( HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos ] == HB_P_LINE && + HB_COMP_PARAM->functions.pLast->lPCodePos - HB_COMP_PARAM->lastLinePos == 3 ) + HB_COMP_PARAM->functions.pLast->lPCodePos -= 3; + hb_compGenModuleName( HB_COMP_PARAM, NULL ); + } + + if( HB_COMP_PARAM->currLine != HB_COMP_PARAM->lastLine ) + { + if( HB_COMP_PARAM->functions.pLast->lPCodePos - HB_COMP_PARAM->lastLinePos == 3 && + HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos ] == HB_P_LINE ) + { + HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos + 1 ] = HB_LOBYTE( HB_COMP_PARAM->currLine ); + HB_COMP_PARAM->functions.pLast->pCode[ HB_COMP_PARAM->lastLinePos + 2 ] = HB_HIBYTE( HB_COMP_PARAM->currLine ); + } + else + { + HB_COMP_PARAM->lastLinePos = HB_COMP_PARAM->functions.pLast->lPCodePos; + hb_compGenPCode3( HB_P_LINE, HB_LOBYTE( HB_COMP_PARAM->currLine ), + HB_HIBYTE( HB_COMP_PARAM->currLine ), HB_COMP_PARAM ); + } + HB_COMP_PARAM->lastLine = HB_COMP_PARAM->currLine; + } + } + + if( HB_COMP_PARAM->functions.pLast->bFlags & FUN_BREAK_CODE ) + { + /* previous line contained RETURN/BREAK/LOOP/EXIT statement */ + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_UNREACHABLE, NULL, NULL ); + /* clear RETURN/BREAK flag */ + HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( /*FUN_WITH_RETURN |*/ FUN_BREAK_CODE ); + } +} + +/* + * Test if we can generate statement (without line pushing) + */ +void hb_compStatmentStart( HB_COMP_DECL ) +{ + if( ( HB_COMP_PARAM->functions.pLast->bFlags & FUN_STATEMENTS ) == 0 ) + { + if( ! HB_COMP_PARAM->fStartProc && HB_COMP_PARAM->functions.iCount <= 1 && + HB_COMP_PARAM->functions.pLast != HB_COMP_PARAM->pInitFunc && + HB_COMP_PARAM->functions.pLast->szName ) + { + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_OUTSIDE, NULL, NULL ); + return; + } + HB_COMP_PARAM->functions.pLast->bFlags |= FUN_STATEMENTS; + } +} + +void hb_compLinePushIfInside( HB_COMP_DECL ) /* generates the pcode with the currently compiled source code line */ +{ + hb_compStatmentStart( HB_COMP_PARAM ); + hb_compLinePush( HB_COMP_PARAM ); +} + +/* Generates the pcode with the currently compiled source code line + * if debug code was requested only + */ +void hb_compLinePushIfDebugger( HB_COMP_DECL ) +{ + hb_compStatmentStart( HB_COMP_PARAM ); + + if( HB_COMP_PARAM->fDebugInfo ) + hb_compLinePush( HB_COMP_PARAM ); + else + { + if( HB_COMP_PARAM->functions.pLast->bFlags & FUN_BREAK_CODE ) + { + /* previous line contained RETURN/BREAK/LOOP/EXIT statement */ + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_UNREACHABLE, NULL, NULL ); + } + HB_COMP_PARAM->functions.pLast->bFlags &= ~ ( /*FUN_WITH_RETURN |*/ FUN_BREAK_CODE ); /* clear RETURN flag */ + } +} + +/* generates the pcode with the currently compiled module and function name */ +void hb_compGenModuleName( HB_COMP_DECL, char * szFunName ) +{ + hb_compGenPCode1( HB_P_MODULENAME, HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) HB_COMP_PARAM->currModule, + strlen( HB_COMP_PARAM->currModule ), HB_COMP_PARAM ); + hb_compGenPCode1( ':', HB_COMP_PARAM ); + if( szFunName && *szFunName ) + hb_compGenPCodeN( ( BYTE * ) szFunName, strlen( szFunName ) + 1, HB_COMP_PARAM ); + else /* special version "filename:" when the file changes within function */ + hb_compGenPCode1( '\0', HB_COMP_PARAM ); + HB_COMP_PARAM->lastModule = HB_COMP_PARAM->currModule; + HB_COMP_PARAM->lastLine = -1; +} + +#if 0 +void hb_compGenStaticName( char *szVarName, HB_COMP_DECL ) +{ + if( HB_COMP_PARAM->fDebugInfo ) + { + BYTE bGlobal = 0; + PFUNCTION pFunc; + int iVar; + + if( ! HB_COMP_PARAM->fStartProc && HB_COMP_PARAM->functions.iCount <= 1 ) + { + /* Variable declaration is outside of function/procedure body. + File-wide static variable + */ + hb_compStaticDefStart( HB_COMP_PARAM ); + bGlobal = 1; + } + pFunc = HB_COMP_PARAM->functions.pLast; + iVar = hb_compStaticGetPos( szVarName, pFunc ); + + hb_compGenPCode4( HB_P_STATICNAME, bGlobal, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) szVarName, strlen( szVarName ) + 1, HB_COMP_PARAM ); + + if( bGlobal ) + hb_compStaticDefEnd( HB_COMP_PARAM ); + } +} +#endif + +/* + * Function generates passed pcode for passed runtime variable + * (field or memvar) + */ +static void hb_compGenVarPCode( BYTE bPCode, char * szVarName, HB_COMP_DECL ) +{ + USHORT wVar; + PCOMSYMBOL pSym; + + /* Check if this variable name is placed into the symbol table + */ + pSym = hb_compSymbolFind( HB_COMP_PARAM, szVarName, &wVar, HB_SYM_MEMVAR ); + if( ! pSym ) + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szVarName, &wVar, HB_SYM_MEMVAR ); + pSym->cScope |= HB_FS_MEMVAR; + + if( bPCode == HB_P_PUSHALIASEDFIELD && wVar <= 255 ) + hb_compGenPCode2( HB_P_PUSHALIASEDFIELDNEAR, ( BYTE ) wVar, HB_COMP_PARAM ); + else if( bPCode == HB_P_POPALIASEDFIELD && wVar <= 255 ) + hb_compGenPCode2( HB_P_POPALIASEDFIELDNEAR, ( BYTE ) wVar, HB_COMP_PARAM ); + else + hb_compGenPCode3( bPCode, HB_LOBYTE( wVar ), HB_HIBYTE( wVar ), HB_COMP_PARAM ); +} + +/* + * Function generates pcode for undeclared variable + */ +static void hb_compGenVariablePCode( HB_COMP_DECL, BYTE bPCode, char * szVarName ) +{ + BOOL bGenCode; + /* + * NOTE: + * Clipper always assumes a memvar variable if undeclared variable + * is popped (a value is asssigned to a variable). + */ + if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_HARBOUR ) ) + bGenCode = HB_COMP_PARAM->fForceMemvars; /* harbour compatibility */ + else + bGenCode = ( HB_COMP_PARAM->fForceMemvars || bPCode == HB_P_POPVARIABLE ); + + if( bGenCode ) + { + /* -v switch was used -> assume it is a memvar variable + */ + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_MEMVAR_ASSUMED, szVarName, NULL ); + + if( bPCode == HB_P_POPVARIABLE ) + bPCode = HB_P_POPMEMVAR; + else if( bPCode == HB_P_PUSHVARIABLE ) + bPCode = HB_P_PUSHMEMVAR; + else + bPCode = HB_P_PUSHMEMVARREF; + } + else + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_AMBIGUOUS_VAR, szVarName, NULL ); + + hb_compGenVarPCode( bPCode, szVarName, HB_COMP_PARAM ); +} + +/* Generate a pcode for a field variable + */ +static void hb_compGenFieldPCode( HB_COMP_DECL, BYTE bPCode, PVAR pField ) +{ + if( pField->szAlias ) + { /* the alias was specified in FIELD declaration + * Push alias symbol before the field symbol + */ + if( bPCode == HB_P_POPFIELD ) + bPCode = HB_P_POPALIASEDFIELD; + else if( bPCode == HB_P_PUSHFIELD ) + bPCode = HB_P_PUSHALIASEDFIELD; + + hb_compGenPushSymbol( pField->szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); + } + hb_compGenVarPCode( bPCode, pField->szName, HB_COMP_PARAM ); +} + +/* sends a message to an object */ +/* bIsObject = TRUE if we are sending a message to real object + bIsObject is FALSE if we are sending a message to an object specified + with WITH OBJECT statement. +*/ +void hb_compGenMessage( char * szMsgName, BOOL bIsObject, HB_COMP_DECL ) +{ + USHORT wSym; + PCOMSYMBOL pSym; + + if( szMsgName ) + { + pSym = hb_compSymbolFind( HB_COMP_PARAM, szMsgName, &wSym, HB_SYM_MSGNAME ); + + if( ! pSym ) /* the symbol was not found on the symbol table */ + pSym = hb_compSymbolAdd( HB_COMP_PARAM, szMsgName, &wSym, HB_SYM_MSGNAME ); + pSym->cScope |= HB_FS_MESSAGE; + if( bIsObject ) + hb_compGenPCode3( HB_P_MESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); + else + hb_compGenPCode3( HB_P_WITHOBJECTMESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); + } + else + { + wSym = 0xFFFF; + hb_compGenPCode3( HB_P_WITHOBJECTMESSAGE, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); + } +} + +void hb_compGenMessageData( char * szMsg, BOOL bIsObject, HB_COMP_DECL ) /* generates an underscore-symbol name for a data assignment */ +{ + char szResult[ HB_SYMBOL_NAME_LEN + 1 ]; + int iLen = strlen( szMsg ); + + if( iLen >= HB_SYMBOL_NAME_LEN ) + iLen = HB_SYMBOL_NAME_LEN - 1; + szResult[ 0 ] = '_'; + memcpy( szResult + 1, szMsg, iLen ); + szResult[ iLen + 1 ] = '\0'; + + hb_compGenMessage( hb_compIdentifierNew( HB_COMP_PARAM, szResult, HB_IDENT_COPY ), bIsObject, HB_COMP_PARAM ); +} + +static void hb_compCheckEarlyMacroEval( HB_COMP_DECL, char *szVarName ) +{ + int iScope = hb_compVariableScope( HB_COMP_PARAM, szVarName ); + + if( iScope == HB_VS_CBLOCAL_VAR || + iScope == HB_VS_STATIC_VAR || + iScope == HB_VS_GLOBAL_STATIC || + iScope == HB_VS_LOCAL_FIELD || + iScope == HB_VS_GLOBAL_FIELD || + iScope == HB_VS_LOCAL_MEMVAR || + iScope == HB_VS_GLOBAL_MEMVAR ) + { + hb_compErrorCodeblock( HB_COMP_PARAM, szVarName ); + } +} + +/* Check variable in the following order: + * LOCAL variable + * local STATIC variable + * local FIELD variable + * local MEMVAR variable + * global STATIC variable + * global FIELD variable + * global MEMVAR variable + * (if not found - it is an undeclared variable) + */ +void hb_compGenPopVar( char * szVarName, HB_COMP_DECL ) /* generates the pcode to pop a value from the virtual machine stack onto a variable */ +{ + int iVar, iScope; + PVAR pVar; + + if( ! HB_COMP_PARAM->functions.pLast->bLateEval ) + { + /* pseudo-generation of pcode for a codeblock with macro symbol */ + hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); + return; + } + + pVar = hb_compVariableFind( HB_COMP_PARAM, szVarName, &iVar, &iScope ); + if( pVar ) + { + switch( iScope ) + { + case HB_VS_LOCAL_VAR: + case HB_VS_CBLOCAL_VAR: + /* local variable */ + /* local variables used in a coddeblock will not be adjusted + * if PARAMETERS statement will be used then it is safe to + * use 2 bytes for LOCALNEAR + */ + if( HB_LIM_INT8( iVar ) && !HB_COMP_PARAM->functions.pLast->szName ) + hb_compGenPCode2( HB_P_POPLOCALNEAR, ( BYTE ) iVar, HB_COMP_PARAM ); + else + hb_compGenPCode3( HB_P_POPLOCAL, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + break; + + case HB_VS_STATIC_VAR: + case HB_VS_GLOBAL_STATIC: + /* Static variable */ + hb_compGenPCode3( HB_P_POPSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + { + PFUNCTION pFunc; + /* Check if we are generating a pop code for static variable + * initialization function - if YES then we have to switch to a function + * where the static variable was declared + */ + pFunc = HB_COMP_PARAM->functions.pLast; + if( ( HB_COMP_PARAM->functions.pLast->cScope & HB_FS_INITEXIT ) == HB_FS_INITEXIT ) + pFunc = pFunc->pOwner; + pFunc->bFlags |= FUN_USES_STATICS; + } + break; + + case HB_VS_LOCAL_FIELD: + case HB_VS_GLOBAL_FIELD: + /* declared field */ + hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_POPFIELD, pVar ); + break; + + case HB_VS_LOCAL_MEMVAR: + case HB_VS_GLOBAL_MEMVAR: + /* declared memvar variable */ + hb_compGenVarPCode( HB_P_POPMEMVAR, szVarName, HB_COMP_PARAM ); + break; + + default: + /* undeclared variable */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_POPVARIABLE, szVarName ); + break; + } + } + else + { /* undeclared variable */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_POPVARIABLE, szVarName ); + } +} + +/* generates the pcode to push a nonaliased variable value to the virtual + * machine stack + * bMacroVar is TRUE if macro &szVarName context + */ +void hb_compGenPushVar( char * szVarName, BOOL bMacroVar, HB_COMP_DECL ) +{ + int iVar, iScope; + PVAR pVar; + + if( ! HB_COMP_PARAM->functions.pLast->bLateEval && ! bMacroVar ) + { + /* pseudo-generation of pcode for a codeblock with macro symbol */ + hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); + return; + } + + pVar = hb_compVariableFind( HB_COMP_PARAM, szVarName, &iVar, &iScope ); + if( pVar ) + { + switch( iScope ) + { + case HB_VS_LOCAL_VAR: + case HB_VS_CBLOCAL_VAR: + /* local variable */ + /* local variables used in a coddeblock will not be adjusted + * if PARAMETERS statement will be used then it is safe to + * use 2 bytes for LOCALNEAR + */ + if( HB_LIM_INT8( iVar ) && !HB_COMP_PARAM->functions.pLast->szName ) + hb_compGenPCode2( HB_P_PUSHLOCALNEAR, ( BYTE ) iVar, HB_COMP_PARAM ); + else + hb_compGenPCode3( HB_P_PUSHLOCAL, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + break; + + case HB_VS_STATIC_VAR: + case HB_VS_GLOBAL_STATIC: + /* Static variable */ + hb_compGenPCode3( HB_P_PUSHSTATIC, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; + break; + + case HB_VS_LOCAL_FIELD: + case HB_VS_GLOBAL_FIELD: + /* declared field */ + hb_compGenFieldPCode( HB_COMP_PARAM, HB_P_PUSHFIELD, pVar ); + break; + + case HB_VS_LOCAL_MEMVAR: + case HB_VS_GLOBAL_MEMVAR: + /* declared memvar variable */ + hb_compGenVarPCode( HB_P_PUSHMEMVAR, szVarName, HB_COMP_PARAM ); + break; + + default: + /* undeclared variable */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHVARIABLE, szVarName ); + break; + } + } + else + { /* undeclared variable */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHVARIABLE, szVarName ); + } +} + +void hb_compGenPushVarRef( char * szVarName, HB_COMP_DECL ) /* generates the pcode to push a variable by reference to the virtual machine stack */ +{ + int iVar, iScope; + PVAR pVar; + + if( ! HB_COMP_PARAM->functions.pLast->bLateEval ) + { + /* pseudo-generation of pcode for a codeblock with macro symbol */ + hb_compCheckEarlyMacroEval( HB_COMP_PARAM, szVarName ); + return; + } + + pVar = hb_compVariableFind( HB_COMP_PARAM, szVarName, &iVar, &iScope ); + if( pVar ) + { + switch( iScope ) + { + case HB_VS_LOCAL_VAR: + case HB_VS_CBLOCAL_VAR: + /* local variable */ + hb_compGenPCode3( HB_P_PUSHLOCALREF, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + break; + + case HB_VS_STATIC_VAR: + case HB_VS_GLOBAL_STATIC: + /* Static variable */ + hb_compGenPCode3( HB_P_PUSHSTATICREF, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + HB_COMP_PARAM->functions.pLast->bFlags |= FUN_USES_STATICS; + break; + + case HB_VS_LOCAL_FIELD: + case HB_VS_GLOBAL_FIELD: + /* pushing fields by reference is not allowed */ + hb_compErrorRefer( HB_COMP_PARAM, NULL, szVarName ); + break; + + case HB_VS_LOCAL_MEMVAR: + case HB_VS_GLOBAL_MEMVAR: + /* declared memvar variable */ + hb_compGenVarPCode( HB_P_PUSHMEMVARREF, szVarName, HB_COMP_PARAM ); + break; + + default: + /* undeclared variable */ + /* field cannot be passed by the reference - assume the memvar */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHMEMVARREF, szVarName ); + break; + } + } + else + { /* undeclared variable */ + /* field cannot be passed by the reference - assume the memvar */ + hb_compGenVariablePCode( HB_COMP_PARAM, HB_P_PUSHMEMVARREF, szVarName ); + } +} + +void hb_compGenPushMemvarRef( char * szVarName, HB_COMP_DECL ) /* generates the pcode to push memvar variable by reference to the virtual machine stack */ +{ + hb_compGenVarPCode( HB_P_PUSHMEMVARREF, szVarName, HB_COMP_PARAM ); +} + +/* generates the pcode to pop a value from the virtual machine stack onto + * an aliased variable + */ +void hb_compGenPopAliasedVar( char * szVarName, + BOOL bPushAliasValue, + char * szAlias, + long lWorkarea, + HB_COMP_DECL ) +{ + if( bPushAliasValue ) + { + if( szAlias ) + { + int iLen = strlen( szAlias ); + if( szAlias[ 0 ] == 'M' && ( iLen == 1 || + ( iLen >= 4 && iLen <= 6 && + memcmp( szAlias, "MEMVAR", iLen ) == 0 ) ) ) + { /* M->variable or MEMV[A[R]]->variable */ + hb_compGenVarPCode( HB_P_POPMEMVAR, szVarName, HB_COMP_PARAM ); + } + else if( iLen >= 4 && iLen <= 5 && + memcmp( szAlias, "FIELD", iLen ) == 0 ) + { /* FIEL[D]->variable */ + hb_compGenVarPCode( HB_P_POPFIELD, szVarName, HB_COMP_PARAM ); + } + else + { /* database alias */ + hb_compGenPushSymbol( szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); + hb_compGenVarPCode( HB_P_POPALIASEDFIELD, szVarName, HB_COMP_PARAM ); + } + } + else + { + hb_compGenPushLong( lWorkarea, HB_COMP_PARAM ); + hb_compGenVarPCode( HB_P_POPALIASEDFIELD, szVarName, HB_COMP_PARAM ); + } + } + else + /* Alias is already placed on stack + * NOTE: An alias will be determined at runtime then we cannot decide + * here if passed name is either a field or a memvar + */ + hb_compGenVarPCode( HB_P_POPALIASEDVAR, szVarName, HB_COMP_PARAM ); +} + +/* generates the pcode to push an aliased variable value to the virtual + * machine stack + */ +void hb_compGenPushAliasedVar( char * szVarName, + BOOL bPushAliasValue, + char * szAlias, + long lWorkarea, + HB_COMP_DECL ) +{ + if( bPushAliasValue ) + { + if( szAlias ) + { + int iLen = strlen( szAlias ); + /* myalias->var + * FIELD->var + * MEMVAR->var + */ + if( szAlias[ 0 ] == 'M' && ( iLen == 1 || + ( iLen >= 4 && iLen <= 6 && + memcmp( szAlias, "MEMVAR", iLen ) == 0 ) ) ) + { /* M->variable or MEMV[A[R]]->variable */ + hb_compGenVarPCode( HB_P_PUSHMEMVAR, szVarName, HB_COMP_PARAM ); + } + else if( iLen >= 4 && iLen <= 5 && + memcmp( szAlias, "FIELD", iLen ) == 0 ) + { /* FIEL[D]->variable */ + hb_compGenVarPCode( HB_P_PUSHFIELD, szVarName, HB_COMP_PARAM ); + } + else + { /* database alias */ + hb_compGenPushSymbol( szAlias, HB_SYM_ALIAS, HB_COMP_PARAM ); + hb_compGenVarPCode( HB_P_PUSHALIASEDFIELD, szVarName, HB_COMP_PARAM ); + } + } + else + { + hb_compGenPushLong( lWorkarea, HB_COMP_PARAM ); + hb_compGenVarPCode( HB_P_PUSHALIASEDFIELD, szVarName, HB_COMP_PARAM ); + } + } + else + /* Alias is already placed on stack + * NOTE: An alias will be determined at runtime then we cannot decide + * here if passed name is either a field or a memvar + */ + hb_compGenVarPCode( HB_P_PUSHALIASEDVAR, szVarName, HB_COMP_PARAM ); +} + + +void hb_compGenPushLogical( int iTrueFalse, HB_COMP_DECL ) /* pushes a logical value on the virtual machine stack */ +{ + hb_compGenPCode1( iTrueFalse ? HB_P_TRUE : HB_P_FALSE, HB_COMP_PARAM ); +} + +void hb_compGenPushNil( HB_COMP_DECL ) +{ + hb_compGenPCode1( HB_P_PUSHNIL, HB_COMP_PARAM ); +} + +/* generates the pcode to push a double number on the virtual machine stack */ +void hb_compGenPushDouble( double dNumber, BYTE bWidth, BYTE bDec, HB_COMP_DECL ) +{ + BYTE pBuffer[ sizeof( double ) + sizeof( BYTE ) + sizeof( BYTE ) + 1 ]; + + pBuffer[ 0 ] = HB_P_PUSHDOUBLE; + HB_PUT_LE_DOUBLE( &( pBuffer[ 1 ] ), dNumber ); + + pBuffer[ 1 + sizeof( double ) ] = bWidth; + pBuffer[ 1 + sizeof( double ) + sizeof( BYTE ) ] = bDec; + + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); +} + +void hb_compGenPushFunCall( char * szFunName, HB_COMP_DECL ) +{ + char * szFunction; + USHORT wSym; + + /* if abbreviated function name was used - change it for whole name */ + szFunction = hb_compReservedName( szFunName ); + if( szFunction ) + szFunName = szFunction; + + if( hb_compSymbolFind( HB_COMP_PARAM, szFunName, &wSym, HB_SYM_FUNCNAME ) != NULL ) + { + if( ! hb_compFunCallFind( HB_COMP_PARAM, szFunName ) ) + hb_compFunCallAdd( HB_COMP_PARAM, szFunName ); + } + else + { + hb_compSymbolAdd( HB_COMP_PARAM, szFunName, &wSym, HB_SYM_FUNCNAME ); + hb_compFunCallAdd( HB_COMP_PARAM, szFunName ); + } + hb_compGenPCode3( HB_P_PUSHFUNCSYM, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); +} + +void hb_compGenPushFunSym( char * szFunName, HB_COMP_DECL ) +{ + char * szFunction; + + /* if abbreviated function name was used - change it for whole name */ + szFunction = hb_compReservedName( szFunName ); + hb_compGenPushSymbol( szFunction ? szFunction : szFunName, + HB_SYM_FUNCNAME, HB_COMP_PARAM ); +} + +void hb_compGenPushFunRef( char * szFunName, HB_COMP_DECL ) +{ + char * szFunction; + + /* if abbreviated function name was used - change it for whole name */ + szFunction = hb_compReservedName( szFunName ); + hb_compGenPushSymbol( szFunction ? szFunction : szFunName, + HB_SYM_FUNCNAME, HB_COMP_PARAM ); +} + +/* generates the pcode to push a symbol on the virtual machine stack */ +void hb_compGenPushSymbol( char * szSymbolName, BOOL bFunction, HB_COMP_DECL ) +{ + USHORT wSym; + + if( hb_compSymbolFind( HB_COMP_PARAM, szSymbolName, &wSym, bFunction ) != NULL ) /* the symbol was found on the symbol table */ + { + if( bFunction && ! hb_compFunCallFind( HB_COMP_PARAM, szSymbolName ) ) + hb_compFunCallAdd( HB_COMP_PARAM, szSymbolName ); + } + else + { + hb_compSymbolAdd( HB_COMP_PARAM, szSymbolName, &wSym, bFunction ); + if( bFunction ) + hb_compFunCallAdd( HB_COMP_PARAM, szSymbolName ); + } + + if( wSym > 255 ) + hb_compGenPCode3( HB_P_PUSHSYM, HB_LOBYTE( wSym ), HB_HIBYTE( wSym ), HB_COMP_PARAM ); + else + hb_compGenPCode2( HB_P_PUSHSYMNEAR, ( BYTE ) wSym, HB_COMP_PARAM ); +} + +/* generates the pcode to push a long number on the virtual machine stack */ +void hb_compGenPushLong( HB_LONG lNumber, HB_COMP_DECL ) +{ + if( HB_COMP_PARAM->fLongOptimize ) + { + if( lNumber == 0 ) + hb_compGenPCode1( HB_P_ZERO, HB_COMP_PARAM ); + else if( lNumber == 1 ) + hb_compGenPCode1( HB_P_ONE, HB_COMP_PARAM ); + else if( HB_LIM_INT8( lNumber ) ) + hb_compGenPCode2( HB_P_PUSHBYTE, (BYTE) lNumber, HB_COMP_PARAM ); + else if( HB_LIM_INT16( lNumber ) ) + hb_compGenPCode3( HB_P_PUSHINT, HB_LOBYTE( lNumber ), HB_HIBYTE( lNumber ), HB_COMP_PARAM ); + else if( HB_LIM_INT32( lNumber ) ) + { + BYTE pBuffer[ 5 ]; + pBuffer[ 0 ] = HB_P_PUSHLONG; + HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); + } + else + { + BYTE pBuffer[ 9 ]; + pBuffer[ 0 ] = HB_P_PUSHLONGLONG; + HB_PUT_LE_UINT64( pBuffer + 1, lNumber ); + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); + } + } + else + { + if( HB_LIM_INT32( lNumber ) ) + { + BYTE pBuffer[ 5 ]; + pBuffer[ 0 ] = HB_P_PUSHLONG; + HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); + } + else + { + BYTE pBuffer[ 9 ]; + pBuffer[ 0 ] = HB_P_PUSHLONGLONG; + HB_PUT_LE_UINT64( pBuffer + 1, lNumber ); + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); + } + } +} + +void hb_compGenPushDate( HB_LONG lNumber, HB_COMP_DECL ) +{ + BYTE pBuffer[ 5 ]; + + pBuffer[ 0 ] = HB_P_PUSHDATE; + HB_PUT_LE_UINT32( pBuffer + 1, lNumber ); + hb_compGenPCodeN( pBuffer, sizeof( pBuffer ), HB_COMP_PARAM ); +} + +/* generates the pcode to push a string on the virtual machine stack */ +void hb_compGenPushString( char * szText, ULONG ulStrLen, HB_COMP_DECL ) +{ + if( HB_COMP_PARAM->iHidden ) + { + --ulStrLen; + szText = hb_compEncodeString( HB_COMP_PARAM->iHidden, szText, &ulStrLen ); + hb_compGenPCode4( HB_P_PUSHSTRHIDDEN, ( BYTE ) HB_COMP_PARAM->iHidden, + HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) szText, ulStrLen, HB_COMP_PARAM ); + hb_xfree( szText ); + } + else + { + if( ulStrLen > UINT24_MAX ) + hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_STRING_TOO_LONG, NULL, NULL ); + else + { + if( ulStrLen > USHRT_MAX ) + hb_compGenPCode4( HB_P_PUSHSTRLARGE, HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_ULBYTE( ulStrLen ), HB_COMP_PARAM ); + else if( ulStrLen > UCHAR_MAX ) + hb_compGenPCode3( HB_P_PUSHSTR, HB_LOBYTE( ulStrLen ), HB_HIBYTE( ulStrLen ), HB_COMP_PARAM ); + else + hb_compGenPCode2( HB_P_PUSHSTRSHORT, ( BYTE ) ulStrLen, HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) szText, ulStrLen, HB_COMP_PARAM ); + } + } +} + +void hb_compNOOPfill( PFUNCTION pFunc, ULONG ulFrom, int iCount, BOOL fPop, BOOL fCheck ) +{ + ULONG ul; + + while( iCount-- ) + { + if( fPop ) + { + pFunc->pCode[ ulFrom ] = HB_P_POP; + fPop = FALSE; + } + else if( fCheck && pFunc->pCode[ ulFrom ] == HB_P_NOOP && pFunc->iNOOPs ) + { + for( ul = 0; ul < pFunc->iNOOPs; ++ul ) + { + if( pFunc->pNOOPs[ ul ] == ulFrom ) + break; + } + if( ul == pFunc->iNOOPs ) + hb_compNOOPadd( pFunc, ulFrom ); + } + else + hb_compNOOPadd( pFunc, ulFrom ); + ++ulFrom; + } +} + +/* + * Warning - when jump optimization is disabled this function can be used + * _ONLY_ in very limited situations when there is no jumps over the + * removed block + */ +static void hb_compRemovePCODE( HB_COMP_DECL, ULONG ulPos, ULONG ulCount ) +{ + PFUNCTION pFunc = HB_COMP_PARAM->functions.pLast; + ULONG ul; + + if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_OPTJUMP ) ) + { + /* + * We can safely remove the dead code when Jump Optimization + * is enabled by replacing it with HB_P_NOOP opcodes - which + * will be later eliminated and jump data updated. + */ + hb_compNOOPfill( pFunc, ulPos, ulCount, FALSE, TRUE ); + } + else + { + memmove( pFunc->pCode + ulPos, pFunc->pCode + ulPos + ulCount, + pFunc->lPCodePos - ulPos - ulCount ); + pFunc->lPCodePos -= ulCount; + + for( ul = pFunc->iNOOPs; ul; --ul ) + { + if( pFunc->pNOOPs[ ul ] >= ulPos ) + { + if( pFunc->pNOOPs[ ul ] < ulPos + ulCount ) + { + memmove( &pFunc->pNOOPs[ ul ], &pFunc->pNOOPs[ ul + 1 ], + pFunc->iNOOPs - ul ); + pFunc->iNOOPs--; + } + else + { + pFunc->pNOOPs[ ul ] -= ulCount; + } + } + } + } +} + +BOOL hb_compIsJump( HB_COMP_DECL, PFUNCTION pFunc, ULONG ulPos ) +{ + ULONG iJump; + /* + * Do not allow any optimization (code striping) when Jump Optimization + * is disabled and we do not have any information about jump addreses + */ + if( ! HB_COMP_ISSUPPORTED( HB_COMPFLAG_OPTJUMP ) ) + return TRUE; + + for( iJump = 0; iJump < pFunc->iJumps; iJump++ ) + { + ULONG ulJumpAddr = pFunc->pJumps[ iJump ]; + switch( pFunc->pCode[ ulJumpAddr ] ) + { + case HB_P_JUMPNEAR: + case HB_P_JUMPFALSENEAR: + case HB_P_JUMPTRUENEAR: + ulJumpAddr += ( signed char ) pFunc->pCode[ ulJumpAddr + 1 ]; + break; + + case HB_P_JUMP: + case HB_P_JUMPFALSE: + case HB_P_JUMPTRUE: + ulJumpAddr += HB_PCODE_MKSHORT( &pFunc->pCode[ ulJumpAddr + 1 ] ); + break; + + /* Jump can be replaced by series of NOOPs or POP and NOOPs + * and not stripped yet + */ + case HB_P_NOOP: + case HB_P_POP: + ulJumpAddr = ulPos + 1; + break; + + default: + ulJumpAddr += HB_PCODE_MKINT24( &pFunc->pCode[ ulJumpAddr + 1 ] ); + break; + } + if( ulJumpAddr == ulPos ) + return TRUE; + } + + return FALSE; +} + /* Generate the opcode to open BEGIN/END sequence * This code is simmilar to JUMP opcode - the offset will be filled with * - either the address of HB_P_SEQEND opcode if there is no RECOVER clause @@ -3909,43 +3645,6 @@ void hb_compSequenceFinish( HB_COMP_DECL, ULONG ulStartPos, ULONG ulEndPos, } } -/* Set the name of an alias for the list of previously declared FIELDs - * - * szAlias -> name of the alias - * iField -> position of the first FIELD name to change - */ -void hb_compFieldSetAlias( HB_COMP_DECL, char * szAlias, int iField ) -{ - PVAR pVar; - - pVar = HB_COMP_PARAM->functions.pLast->pFields; - while( iField-- && pVar ) - pVar = pVar->pNext; - - while( pVar ) - { - pVar->szAlias = szAlias; - pVar = pVar->pNext; - } -} - -/* This functions counts the number of FIELD declaration in a function - * We will required this information in hb_compFieldSetAlias function - */ -int hb_compFieldsCount( HB_COMP_DECL ) -{ - int iFields = 0; - PVAR pVar = HB_COMP_PARAM->functions.pLast->pFields; - - while( pVar ) - { - ++iFields; - pVar = pVar->pNext; - } - - return iFields; -} - /* * Start of definition of static variable * We are using here the special function HB_COMP_PARAM->pInitFunc which will store @@ -3995,11 +3694,35 @@ void hb_compStaticDefStart( HB_COMP_DECL ) * End of definition of static variable * Return to previously pcoded function. */ -void hb_compStaticDefEnd( HB_COMP_DECL ) +void hb_compStaticDefEnd( HB_COMP_DECL, char * szVarName ) { HB_COMP_PARAM->functions.pLast = HB_COMP_PARAM->pInitFunc->pOwner; HB_COMP_PARAM->pInitFunc->pOwner = NULL; ++HB_COMP_PARAM->iStaticCnt; + if( HB_COMP_PARAM->fDebugInfo ) + { + BYTE bGlobal = 0; + int iVar; + + if( ! HB_COMP_PARAM->fStartProc && HB_COMP_PARAM->functions.iCount <= 1 ) + { + /* Variable declaration is outside of function/procedure body. + * File-wide static variable + */ + HB_COMP_PARAM->pInitFunc->pOwner = HB_COMP_PARAM->functions.pLast; + HB_COMP_PARAM->functions.pLast = HB_COMP_PARAM->pInitFunc; + bGlobal = 1; + } + + iVar = HB_COMP_PARAM->iStaticCnt; + hb_compGenPCode4( HB_P_STATICNAME, bGlobal, HB_LOBYTE( iVar ), HB_HIBYTE( iVar ), HB_COMP_PARAM ); + hb_compGenPCodeN( ( BYTE * ) szVarName, strlen( szVarName ) + 1, HB_COMP_PARAM ); + if( bGlobal ) + { + HB_COMP_PARAM->functions.pLast = HB_COMP_PARAM->pInitFunc->pOwner; + HB_COMP_PARAM->pInitFunc->pOwner = NULL; + } + } } /* @@ -4048,7 +3771,6 @@ void hb_compCodeBlockStart( HB_COMP_DECL, BOOL bLateEval ) pBlock = hb_compFunctionNew( HB_COMP_PARAM, NULL, HB_FS_STATIC | HB_FS_LOCAL ); pBlock->pOwner = HB_COMP_PARAM->functions.pLast; - pBlock->iStaticsBase = HB_COMP_PARAM->functions.pLast->iStaticsBase; pBlock->bLateEval = bLateEval; HB_COMP_PARAM->functions.pLast = pBlock; @@ -4065,14 +3787,21 @@ void hb_compCodeBlockEnd( HB_COMP_DECL ) USHORT wLocalsCnt, wLocalsLen; USHORT wPos; int iLocalPos; - PVAR pVar, pFree; + PVAR pVar; pCodeblock = HB_COMP_PARAM->functions.pLast; hb_compGenPCode1( HB_P_ENDBLOCK, HB_COMP_PARAM ); /* finish the codeblock */ if( !pCodeblock->bError ) + { + if( pCodeblock->wParamCount && !( pCodeblock->bFlags & FUN_USES_LOCAL_PARAMS ) ) + /* PARAMETERs were used after LOCALs in extended codeblock + * fix generated local indexes + */ + hb_compFixFuncPCode( HB_COMP_PARAM, pCodeblock ); hb_compOptimizeJumps( HB_COMP_PARAM ); + } /* return to pcode buffer of function/codeblock in which the current * codeblock was defined @@ -4088,7 +3817,6 @@ void hb_compCodeBlockEnd( HB_COMP_DECL ) if( pFunc->szName && *pFunc->szName ) pFuncName = pFunc->szName; } - pFunc->bFlags |= ( pCodeblock->bFlags & FUN_USES_STATICS ); /* generate a proper codeblock frame with a codeblock size and with @@ -4097,7 +3825,7 @@ void hb_compCodeBlockEnd( HB_COMP_DECL ) /* Count the number of referenced local variables */ wLocalsLen = 0; - pVar = pCodeblock->pStatics; + pVar = pCodeblock->pDetached; while( pVar ) { if( HB_COMP_PARAM->fDebugInfo ) @@ -4139,7 +3867,7 @@ void hb_compCodeBlockEnd( HB_COMP_DECL ) hb_compGenPCode2( HB_LOBYTE( wLocals ), HB_HIBYTE( wLocals ), HB_COMP_PARAM ); /* generate the table of referenced local variables */ - pVar = pCodeblock->pStatics; + pVar = pCodeblock->pDetached; while( wLocals-- ) { wPos = hb_compVariableGetPos( pFunc->pLocals, pVar->szName ); @@ -4153,62 +3881,44 @@ void hb_compCodeBlockEnd( HB_COMP_DECL ) hb_compGenModuleName( HB_COMP_PARAM, pFuncName ); /* generate the name of referenced local variables */ - pVar = pCodeblock->pStatics; + pVar = pCodeblock->pDetached; iLocalPos = -1; while( wLocalsCnt-- ) { hb_compGenPCode3( HB_P_LOCALNAME, HB_LOBYTE( iLocalPos ), HB_HIBYTE( iLocalPos ), HB_COMP_PARAM ); hb_compGenPCodeN( ( BYTE * ) pVar->szName, strlen( pVar->szName ) + 1, HB_COMP_PARAM ); iLocalPos--; - pFree = pVar; pVar = pVar->pNext; - hb_xfree( ( void * ) pFree ); } } - else + + hb_compGenPCodeN( pCodeblock->pCode, pCodeblock->lPCodePos, HB_COMP_PARAM ); + + if( HB_COMP_PARAM->iWarnings ) { + pVar = pCodeblock->pLocals; + while( pVar ) + { + if( HB_COMP_PARAM->iWarnings && pFunc->szName && pVar->szName && ! ( pVar->iUsed & VU_USED ) ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_BLOCKVAR_NOT_USED, pVar->szName, pFunc->szName ); + pVar = pVar->pNext; + } pVar = pCodeblock->pStatics; while( pVar ) { - pFree = pVar; + if( HB_COMP_PARAM->iWarnings && pFunc->szName && pVar->szName && ! ( pVar->iUsed & VU_USED ) ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_VAR_NOT_USED, pVar->szName, "<||...>" ); pVar = pVar->pNext; - hb_xfree( ( void * ) pFree ); } } - hb_compGenPCodeN( pCodeblock->pCode, pCodeblock->lPCodePos, HB_COMP_PARAM ); - /* this fake-function is no longer needed */ - hb_xfree( ( void * ) pCodeblock->pCode ); - pVar = pCodeblock->pLocals; - while( pVar ) - { - if( HB_COMP_PARAM->iWarnings && pFunc->szName && pVar->szName && ! ( pVar->iUsed & VU_USED ) ) - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_BLOCKVAR_NOT_USED, pVar->szName, pFunc->szName ); - - /* free used variables */ - pFree = pVar; - - pVar = pVar->pNext; - hb_xfree( ( void * ) pFree ); - } - - /* Release the NOOP array. */ - if( pCodeblock->pNOOPs ) - hb_xfree( ( void * ) pCodeblock->pNOOPs ); - - /* Release the Jumps array. */ - if( pCodeblock->pJumps ) - hb_xfree( ( void * ) pCodeblock->pJumps ); - - hb_xfree( ( void * ) pCodeblock ); + hb_compFunctionKill( pCodeblock ); } void hb_compCodeBlockStop( HB_COMP_DECL ) { PFUNCTION pCodeblock; /* pointer to the current codeblock */ - PFUNCTION pFunc;/* pointer to a function that owns a codeblock */ - PVAR pVar, pFree; pCodeblock = HB_COMP_PARAM->functions.pLast; @@ -4216,28 +3926,24 @@ void hb_compCodeBlockStop( HB_COMP_DECL ) * codeblock was defined */ HB_COMP_PARAM->functions.pLast = pCodeblock->pOwner; + hb_compGenPCodeN( pCodeblock->pCode, pCodeblock->lPCodePos, HB_COMP_PARAM ); - /* find the function that owns the codeblock */ - pFunc = pCodeblock->pOwner; - while( pFunc->pOwner ) - pFunc = pFunc->pOwner; - - pVar = pCodeblock->pLocals; - while( pVar ) + if( HB_COMP_PARAM->iWarnings ) { - if( HB_COMP_PARAM->iWarnings && pFunc->szName && pVar->szName && ! ( pVar->iUsed & VU_USED ) ) - hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_BLOCKVAR_NOT_USED, pVar->szName, pFunc->szName ); - - /* free used variables */ - pFree = pVar; - - pVar = pVar->pNext; - hb_xfree( ( void * ) pFree ); + PVAR pVar = pCodeblock->pLocals; + /* find the function that owns the codeblock */ + PFUNCTION pFunc = pCodeblock->pOwner; + while( pFunc->pOwner ) + pFunc = pFunc->pOwner; + while( pVar ) + { + if( pFunc->szName && pVar->szName && ! ( pVar->iUsed & VU_USED ) ) + hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_BLOCKVAR_NOT_USED, pVar->szName, pFunc->szName ); + pVar = pVar->pNext; + } } - hb_compGenPCodeN( pCodeblock->pCode, pCodeblock->lPCodePos, HB_COMP_PARAM ); - hb_xfree( ( void * ) pCodeblock->pCode ); - hb_xfree( ( void * ) pCodeblock ); + hb_compFunctionKill( pCodeblock ); } void hb_compCodeBlockRewind( HB_COMP_DECL ) @@ -4392,7 +4098,10 @@ static void hb_compAddInitFunc( HB_COMP_DECL, PFUNCTION pFunc ) static void hb_compCompileEnd( HB_COMP_DECL ) { hb_compRTVariableKill( HB_COMP_PARAM ); - + hb_compLoopKill( HB_COMP_PARAM ); + hb_compSwitchKill( HB_COMP_PARAM ); + hb_compElseIfKill( HB_COMP_PARAM ); + if( HB_COMP_PARAM->pMainFileName ) { if( HB_COMP_PARAM->pFileName != HB_COMP_PARAM->pMainFileName ) @@ -4411,9 +4120,9 @@ static void hb_compCompileEnd( HB_COMP_DECL ) if( HB_COMP_PARAM->functions.pFirst ) { PFUNCTION pFunc = HB_COMP_PARAM->functions.pFirst; - while( pFunc ) - pFunc = hb_compFunctionKill( HB_COMP_PARAM, pFunc ); + while( pFunc ) + pFunc = hb_compFunctionKill( pFunc ); HB_COMP_PARAM->functions.pFirst = NULL; } @@ -4683,7 +4392,7 @@ static int hb_compCompile( HB_COMP_DECL, char * szPrg, BOOL bSingleFile ) /* remove function frames with no names */ if( ! HB_COMP_PARAM->fStartProc && ! (*pFunPtr)->szName[0] ) { - *pFunPtr = hb_compFunctionKill( HB_COMP_PARAM, *pFunPtr ); + *pFunPtr = hb_compFunctionKill( *pFunPtr ); HB_COMP_PARAM->functions.iCount--; HB_COMP_PARAM->iFunctionCnt--; } diff --git a/harbour/source/rdd/dbfdbt/dbfdbt1.c b/harbour/source/rdd/dbfdbt/dbfdbt1.c index 4547788e52..abb59cc7ee 100644 --- a/harbour/source/rdd/dbfdbt/dbfdbt1.c +++ b/harbour/source/rdd/dbfdbt/dbfdbt1.c @@ -358,7 +358,7 @@ static void hb_dbtWriteMemo( DBTAREAP pArea, ULONG ulBlock, PHB_ITEM pItem, ULON if( pBuff ) { - memcpy( pBuff, pItem->item.asString.value, ulLen ); + memcpy( pBuff, hb_itemGetCPtr( pItem ), ulLen ); pBuff[ ulLen ] = 0x1A; hb_cdpnTranslate( ( char * ) pBuff, hb_cdp_page, pArea->cdPage, ulLen ); hb_fsWriteLarge( pArea->hMemoFile, pBuff, ulLen + 1 ); @@ -366,7 +366,7 @@ static void hb_dbtWriteMemo( DBTAREAP pArea, ULONG ulBlock, PHB_ITEM pItem, ULON } else { - BYTE pBlock[ DBT_BLOCKSIZE ], *pSrc = ( BYTE * ) pItem->item.asString.value; + BYTE pBlock[ DBT_BLOCKSIZE ], *pSrc = ( BYTE * ) hb_itemGetCPtr( pItem ); ULONG ulWritten = 0, ulRest; do @@ -386,7 +386,7 @@ static void hb_dbtWriteMemo( DBTAREAP pArea, ULONG ulBlock, PHB_ITEM pItem, ULON { BYTE pBlock[ DBT_BLOCKSIZE ]; memset( pBlock, 0x1A, DBT_BLOCKSIZE ); - hb_fsWriteLarge( pArea->hMemoFile, ( BYTE * ) pItem->item.asString.value, ulLen ); + hb_fsWriteLarge( pArea->hMemoFile, ( BYTE * ) hb_itemGetCPtr( pItem ), ulLen ); hb_fsWrite( pArea->hMemoFile, pBlock, ( DBT_BLOCKSIZE - ( USHORT ) ( ulLen % DBT_BLOCKSIZE ) ) ); } pArea->fMemoFlush = TRUE; @@ -410,7 +410,7 @@ static BOOL hb_dbtPutMemo( DBTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) HB_TRACE(HB_TR_DEBUG, ("hb_dbtPutMemo(%p, %hu, %p)", pArea, uiIndex, pItem)); - ulLen = pItem->item.asString.length; + ulLen = hb_itemGetCLen( pItem ); if( ulLen > 0 ) { ulBlock = hb_dbfGetMemoBlock( ( DBFAREAP ) pArea, uiIndex ); diff --git a/harbour/source/rtl/hbffind.c b/harbour/source/rtl/hbffind.c index 8acdb46b7b..971f9b5dab 100644 --- a/harbour/source/rtl/hbffind.c +++ b/harbour/source/rtl/hbffind.c @@ -623,7 +623,7 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) { PHB_FFIND_INFO info = ( PHB_FFIND_INFO ) ffind->info; - char dirname[ 2 * _POSIX_PATH_MAX + 1 ]; + char dirname[ _POSIX_PATH_MAX + 1 ]; char string[ _POSIX_PATH_MAX + 1 ]; bFound = FALSE; @@ -652,8 +652,9 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) else { hb_strncpy( info->pattern, string, sizeof( info->pattern ) - 1 ); - hb_strncpy( dirname, ".X", sizeof( dirname ) - 1 ); + dirname[ 0 ] = '.'; dirname[ 1 ] = OS_PATH_DELIMITER; + dirname[ 2 ] = '\0'; } tzset(); @@ -667,7 +668,7 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) while( ( info->entry = readdir( info->dir ) ) != NULL ) { hb_strncpy( string, info->entry->d_name, sizeof( string ) - 1 ); - + #if defined( __WATCOMC__ ) if( hb_strMatchWild( string, info->pattern ) ) #else @@ -681,7 +682,6 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) } /* Fill Harbour found file info */ - if( bFound ) { hb_strncpy( dirname, info->path, sizeof( dirname ) - 1 ); @@ -701,23 +701,25 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) struct stat sStat; if( stat( dirname, &sStat ) != 0 ) #endif - printf("\n%s (%i)", dirname, errno ); + { + strncpy( ffind->szName, info->entry->d_name, _POSIX_PATH_MAX ); + ffind->size = sStat.st_size; - strncpy( ffind->szName, info->entry->d_name, _POSIX_PATH_MAX ); - ffind->size = sStat.st_size; + raw_attr = sStat.st_mode; - raw_attr = sStat.st_mode; + ftime = sStat.st_mtime; + ft = localtime( &ftime ); - ftime = sStat.st_mtime; - ft = localtime( &ftime ); + nYear = ft->tm_year + 1900; + nMonth = ft->tm_mon + 1; + nDay = ft->tm_mday; - nYear = ft->tm_year + 1900; - nMonth = ft->tm_mon + 1; - nDay = ft->tm_mday; - - nHour = ft->tm_hour; - nMin = ft->tm_min; - nSec = ft->tm_sec; + nHour = ft->tm_hour; + nMin = ft->tm_min; + nSec = ft->tm_sec; + } + else + bFound = FALSE; } } @@ -752,14 +754,14 @@ static BOOL hb_fsFindNextLow( PHB_FFIND ffind ) { /* Do the conversions common for all platforms */ - ffind->szName[ _POSIX_PATH_MAX + 1 ] = '\0'; - + ffind->szName[ _POSIX_PATH_MAX ] = '\0'; + ffind->attr = hb_fsAttrFromRaw( raw_attr ); - + ffind->lDate = hb_dateEncode( nYear, nMonth, nDay ); hb_dateStrPut( ffind->szDate, nYear, nMonth, nDay ); ffind->szDate[ 8 ] = '\0'; - + snprintf( ffind->szTime, sizeof( ffind->szTime ), "%02d:%02d:%02d", nHour, nMin, nSec ); }