From 9293e31ed4c0db76f3cb36e5f02635ccac8c492b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw=20Czerpak?= Date: Mon, 6 Oct 2014 22:15:28 +0200 Subject: [PATCH] 2014-10-06 22:15 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * src/compiler/harbour.y * src/macro/macro.y * disabled 4244 and 4702 warnings in MSVC builds - this warnings are from code generated by bison and they are out of our direct control * src/compiler/harbour.yyc * src/compiler/harbour.yyh * src/macro/macro.yyc * src/macro/macro.yyh * regenerated --- ChangeLog.txt | 12 + src/compiler/harbour.y | 7 +- src/compiler/harbour.yyc | 1773 +++++++++++++++++++------------------- src/compiler/harbour.yyh | 2 +- src/macro/macro.y | 3 + src/macro/macro.yyc | 623 +++++++------- src/macro/macro.yyh | 2 +- 7 files changed, 1223 insertions(+), 1199 deletions(-) diff --git a/ChangeLog.txt b/ChangeLog.txt index 43fb309111..d2d2e7ed2f 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,18 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2014-10-06 22:15 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) + * src/compiler/harbour.y + * src/macro/macro.y + * disabled 4244 and 4702 warnings in MSVC builds - this warnings are + from code generated by bison and they are out of our direct control + + * src/compiler/harbour.yyc + * src/compiler/harbour.yyh + * src/macro/macro.yyc + * src/macro/macro.yyh + * regenerated + 2014-10-06 21:10 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * src/rtl/gtxwc/gtxwc.c ! fixed multiple input context initialization in HB_GTI_FONTSEL. diff --git a/src/compiler/harbour.y b/src/compiler/harbour.y index b9252f5f5b..3d2fe428d3 100644 --- a/src/compiler/harbour.y +++ b/src/compiler/harbour.y @@ -48,6 +48,9 @@ #elif defined( __WATCOMC__ ) # pragma warning 13 9 # pragma warning 368 9 +#elif defined( _MSC_VER ) +# pragma warning( disable : 4244 ) +# pragma warning( disable : 4702 ) #endif #undef alloca @@ -1321,8 +1324,8 @@ DecData : IdentName { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_ HB_COMP_PARAM->pLastMethod->cParamTypes = ( HB_BYTE * ) hb_xgrab( 1 ); HB_COMP_PARAM->pLastMethod->pParamClasses = ( PHB_HCLASS * ) hb_xgrab( sizeof( HB_HCLASS ) ); - HB_COMP_PARAM->pLastMethod->cParamTypes[0] = cVarType; - HB_COMP_PARAM->pLastMethod->pParamClasses[0] = pClass; + HB_COMP_PARAM->pLastMethod->cParamTypes[ 0 ] = cVarType; + HB_COMP_PARAM->pLastMethod->pParamClasses[ 0 ] = pClass; if( HB_TOUPPER( cVarType ) == 'S' ) { diff --git a/src/compiler/harbour.yyc b/src/compiler/harbour.yyc index 45e269827c..7e11d12cd9 100644 --- a/src/compiler/harbour.yyc +++ b/src/compiler/harbour.yyc @@ -115,6 +115,9 @@ #elif defined( __WATCOMC__ ) # pragma warning 13 9 # pragma warning 368 9 +#elif defined( _MSC_VER ) +# pragma warning( disable : 4244 ) +# pragma warning( disable : 4702 ) #endif #undef alloca @@ -183,7 +186,7 @@ static PHB_EXPR hb_compCheckPassByRef( HB_COMP_DECL, PHB_EXPR pExpr ); static void hb_compDebugStart( void ) { } -#line 187 "harboury.c" /* yacc.c:339 */ +#line 190 "harboury.c" /* yacc.c:339 */ # ifndef YY_NULLPTR # if defined __cplusplus && 201103L <= __cplusplus @@ -335,7 +338,7 @@ extern int hb_comp_yydebug; typedef union YYSTYPE YYSTYPE; union YYSTYPE { -#line 121 "harbour.y" /* yacc.c:355 */ +#line 124 "harbour.y" /* yacc.c:355 */ const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -374,7 +377,7 @@ union YYSTYPE } asCodeblock; PHB_VARTYPE asVarType; -#line 378 "harboury.c" /* yacc.c:355 */ +#line 381 "harboury.c" /* yacc.c:355 */ }; # define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_DECLARED 1 @@ -387,7 +390,7 @@ int hb_comp_yyparse (PHB_COMP pComp); #endif /* !YY_HB_COMP_YY_HARBOURY_H_INCLUDED */ /* Copy the second part of user declarations. */ -#line 160 "harbour.y" /* yacc.c:358 */ +#line 163 "harbour.y" /* yacc.c:358 */ /* This must be placed after the above union - the union is * typedef-ined to YYSTYPE @@ -395,7 +398,7 @@ int hb_comp_yyparse (PHB_COMP pComp); extern int yylex( YYSTYPE *, HB_COMP_DECL ); /* main lex token function, called by yyparse() */ extern void yyerror( HB_COMP_DECL, const char * ); /* parsing error management function */ -#line 399 "harboury.c" /* yacc.c:358 */ +#line 402 "harboury.c" /* yacc.c:358 */ #ifdef short # undef short @@ -703,68 +706,68 @@ static const yytype_uint8 yytranslate[] = /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 287, 287, 288, 291, 292, 293, 294, 295, 296, - 297, 298, 299, 300, 301, 302, 305, 308, 313, 321, - 321, 322, 322, 323, 323, 324, 324, 327, 328, 329, - 330, 333, 334, 335, 336, 339, 340, 343, 344, 347, - 348, 349, 350, 351, 352, 353, 354, 355, 358, 359, - 360, 361, 362, 363, 364, 365, 366, 369, 370, 378, - 379, 380, 381, 382, 383, 389, 390, 391, 392, 393, - 394, 395, 396, 398, 398, 404, 405, 406, 419, 419, - 440, 442, 440, 446, 448, 446, 452, 453, 454, 455, - 456, 457, 457, 463, 466, 474, 493, 493, 496, 497, - 498, 499, 500, 501, 514, 515, 516, 517, 520, 521, - 522, 523, 526, 527, 530, 531, 534, 535, 538, 539, - 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, - 552, 553, 554, 555, 556, 557, 558, 559, 560, 565, - 566, 569, 572, 575, 576, 581, 584, 589, 595, 600, - 605, 606, 609, 614, 617, 628, 631, 636, 639, 642, - 643, 646, 649, 650, 655, 658, 663, 664, 667, 672, - 675, 678, 679, 686, 687, 692, 693, 694, 695, 696, - 697, 698, 699, 700, 701, 702, 703, 704, 705, 708, - 709, 712, 713, 714, 715, 716, 717, 718, 719, 720, - 721, 722, 723, 724, 725, 726, 727, 728, 729, 730, - 731, 740, 741, 742, 743, 744, 745, 750, 751, 752, - 753, 754, 755, 756, 757, 758, 759, 760, 761, 762, - 763, 764, 765, 766, 767, 770, 774, 777, 778, 782, - 785, 788, 789, 792, 793, 796, 797, 798, 799, 800, - 803, 804, 809, 810, 811, 817, 818, 821, 824, 829, - 832, 841, 842, 843, 844, 845, 846, 847, 848, 849, - 850, 851, 852, 853, 854, 855, 856, 857, 858, 859, - 860, 861, 862, 863, 864, 865, 866, 867, 868, 869, - 870, 871, 872, 875, 876, 877, 878, 879, 880, 883, - 884, 887, 888, 891, 892, 893, 894, 895, 896, 897, - 904, 905, 906, 907, 908, 909, 910, 911, 912, 913, - 914, 915, 916, 917, 918, 919, 920, 921, 922, 923, - 924, 930, 931, 934, 937, 938, 941, 942, 943, 946, - 949, 952, 955, 958, 961, 964, 967, 970, 971, 972, - 973, 974, 975, 978, 979, 980, 981, 982, 983, 986, - 987, 990, 991, 992, 993, 994, 995, 996, 997, 998, - 1001, 1007, 1008, 1009, 1012, 1013, 1016, 1016, 1022, 1023, - 1024, 1025, 1028, 1029, 1032, 1033, 1037, 1040, 1036, 1043, - 1042, 1079, 1080, 1082, 1085, 1094, 1098, 1101, 1101, 1103, - 1103, 1105, 1105, 1107, 1107, 1117, 1118, 1121, 1122, 1130, - 1131, 1133, 1137, 1144, 1162, 1162, 1191, 1197, 1200, 1201, - 1202, 1205, 1205, 1212, 1213, 1216, 1217, 1220, 1220, 1223, - 1224, 1227, 1227, 1246, 1246, 1247, 1248, 1249, 1250, 1250, - 1253, 1254, 1257, 1258, 1259, 1260, 1263, 1263, 1282, 1282, - 1337, 1338, 1339, 1340, 1343, 1344, 1345, 1346, 1347, 1348, - 1349, 1352, 1353, 1356, 1359, 1360, 1361, 1362, 1363, 1364, - 1367, 1368, 1369, 1370, 1371, 1372, 1375, 1376, 1377, 1378, - 1379, 1380, 1381, 1382, 1385, 1386, 1387, 1388, 1392, 1394, - 1391, 1399, 1399, 1403, 1405, 1403, 1413, 1415, 1413, 1424, - 1432, 1433, 1436, 1440, 1444, 1447, 1453, 1460, 1461, 1464, - 1464, 1467, 1468, 1476, 1477, 1476, 1488, 1489, 1488, 1501, - 1501, 1501, 1503, 1503, 1508, 1513, 1507, 1527, 1536, 1540, - 1541, 1545, 1558, 1563, 1544, 1611, 1612, 1615, 1616, 1619, - 1627, 1628, 1629, 1630, 1633, 1634, 1637, 1638, 1641, 1642, - 1645, 1646, 1651, 1657, 1667, 1650, 1686, 1687, 1691, 1690, - 1703, 1710, 1718, 1719, 1723, 1722, 1733, 1734, 1743, 1743, - 1746, 1746, 1749, 1751, 1754, 1754, 1754, 1759, 1767, 1778, - 1788, 1758, 1819, 1820, 1823, 1824, 1832, 1833, 1836, 1845, - 1846, 1847, 1850, 1861, 1879, 1883, 1891, 1892, 1895, 1896, - 1897, 1898, 1899, 1902, 1903, 1904, 1905, 1906, 1910, 1909, - 1932, 1933, 1936, 1937 + 0, 290, 290, 291, 294, 295, 296, 297, 298, 299, + 300, 301, 302, 303, 304, 305, 308, 311, 316, 324, + 324, 325, 325, 326, 326, 327, 327, 330, 331, 332, + 333, 336, 337, 338, 339, 342, 343, 346, 347, 350, + 351, 352, 353, 354, 355, 356, 357, 358, 361, 362, + 363, 364, 365, 366, 367, 368, 369, 372, 373, 381, + 382, 383, 384, 385, 386, 392, 393, 394, 395, 396, + 397, 398, 399, 401, 401, 407, 408, 409, 422, 422, + 443, 445, 443, 449, 451, 449, 455, 456, 457, 458, + 459, 460, 460, 466, 469, 477, 496, 496, 499, 500, + 501, 502, 503, 504, 517, 518, 519, 520, 523, 524, + 525, 526, 529, 530, 533, 534, 537, 538, 541, 542, + 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, + 555, 556, 557, 558, 559, 560, 561, 562, 563, 568, + 569, 572, 575, 578, 579, 584, 587, 592, 598, 603, + 608, 609, 612, 617, 620, 631, 634, 639, 642, 645, + 646, 649, 652, 653, 658, 661, 666, 667, 670, 675, + 678, 681, 682, 689, 690, 695, 696, 697, 698, 699, + 700, 701, 702, 703, 704, 705, 706, 707, 708, 711, + 712, 715, 716, 717, 718, 719, 720, 721, 722, 723, + 724, 725, 726, 727, 728, 729, 730, 731, 732, 733, + 734, 743, 744, 745, 746, 747, 748, 753, 754, 755, + 756, 757, 758, 759, 760, 761, 762, 763, 764, 765, + 766, 767, 768, 769, 770, 773, 777, 780, 781, 785, + 788, 791, 792, 795, 796, 799, 800, 801, 802, 803, + 806, 807, 812, 813, 814, 820, 821, 824, 827, 832, + 835, 844, 845, 846, 847, 848, 849, 850, 851, 852, + 853, 854, 855, 856, 857, 858, 859, 860, 861, 862, + 863, 864, 865, 866, 867, 868, 869, 870, 871, 872, + 873, 874, 875, 878, 879, 880, 881, 882, 883, 886, + 887, 890, 891, 894, 895, 896, 897, 898, 899, 900, + 907, 908, 909, 910, 911, 912, 913, 914, 915, 916, + 917, 918, 919, 920, 921, 922, 923, 924, 925, 926, + 927, 933, 934, 937, 940, 941, 944, 945, 946, 949, + 952, 955, 958, 961, 964, 967, 970, 973, 974, 975, + 976, 977, 978, 981, 982, 983, 984, 985, 986, 989, + 990, 993, 994, 995, 996, 997, 998, 999, 1000, 1001, + 1004, 1010, 1011, 1012, 1015, 1016, 1019, 1019, 1025, 1026, + 1027, 1028, 1031, 1032, 1035, 1036, 1040, 1043, 1039, 1046, + 1045, 1082, 1083, 1085, 1088, 1097, 1101, 1104, 1104, 1106, + 1106, 1108, 1108, 1110, 1110, 1120, 1121, 1124, 1125, 1133, + 1134, 1136, 1140, 1147, 1165, 1165, 1194, 1200, 1203, 1204, + 1205, 1208, 1208, 1215, 1216, 1219, 1220, 1223, 1223, 1226, + 1227, 1230, 1230, 1249, 1249, 1250, 1251, 1252, 1253, 1253, + 1256, 1257, 1260, 1261, 1262, 1263, 1266, 1266, 1285, 1285, + 1340, 1341, 1342, 1343, 1346, 1347, 1348, 1349, 1350, 1351, + 1352, 1355, 1356, 1359, 1362, 1363, 1364, 1365, 1366, 1367, + 1370, 1371, 1372, 1373, 1374, 1375, 1378, 1379, 1380, 1381, + 1382, 1383, 1384, 1385, 1388, 1389, 1390, 1391, 1395, 1397, + 1394, 1402, 1402, 1406, 1408, 1406, 1416, 1418, 1416, 1427, + 1435, 1436, 1439, 1443, 1447, 1450, 1456, 1463, 1464, 1467, + 1467, 1470, 1471, 1479, 1480, 1479, 1491, 1492, 1491, 1504, + 1504, 1504, 1506, 1506, 1511, 1516, 1510, 1530, 1539, 1543, + 1544, 1548, 1561, 1566, 1547, 1614, 1615, 1618, 1619, 1622, + 1630, 1631, 1632, 1633, 1636, 1637, 1640, 1641, 1644, 1645, + 1648, 1649, 1654, 1660, 1670, 1653, 1689, 1690, 1694, 1693, + 1706, 1713, 1721, 1722, 1726, 1725, 1736, 1737, 1746, 1746, + 1749, 1749, 1752, 1754, 1757, 1757, 1757, 1762, 1770, 1781, + 1791, 1761, 1822, 1823, 1826, 1827, 1835, 1836, 1839, 1848, + 1849, 1850, 1853, 1864, 1882, 1886, 1894, 1895, 1898, 1899, + 1900, 1901, 1902, 1905, 1906, 1907, 1908, 1909, 1913, 1912, + 1935, 1936, 1939, 1940 }; #endif @@ -3587,15 +3590,15 @@ yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, PHB_COMP pComp) switch (yytype) { case 19: /* LITERAL */ -#line 283 "harbour.y" /* yacc.c:1257 */ +#line 286 "harbour.y" /* yacc.c:1257 */ { if( ((*yyvaluep).valChar).dealloc ) hb_xfree( ((*yyvaluep).valChar).string ); } -#line 3593 "harboury.c" /* yacc.c:1257 */ +#line 3596 "harboury.c" /* yacc.c:1257 */ break; case 96: /* CBSTART */ -#line 282 "harbour.y" /* yacc.c:1257 */ +#line 285 "harbour.y" /* yacc.c:1257 */ { if( ((*yyvaluep).asCodeblock).string ) hb_xfree( ((*yyvaluep).asCodeblock).string ); } -#line 3599 "harboury.c" /* yacc.c:1257 */ +#line 3602 "harboury.c" /* yacc.c:1257 */ break; @@ -3861,349 +3864,349 @@ yyreduce: switch (yyn) { case 9: -#line 296 "harbour.y" /* yacc.c:1646 */ +#line 299 "harbour.y" /* yacc.c:1646 */ { yyclearin; yyerrok; } -#line 3867 "harboury.c" /* yacc.c:1646 */ +#line 3870 "harboury.c" /* yacc.c:1646 */ break; case 15: -#line 302 "harbour.y" /* yacc.c:1646 */ +#line 305 "harbour.y" /* yacc.c:1646 */ { yyclearin; yyerrok; } -#line 3873 "harboury.c" /* yacc.c:1646 */ +#line 3876 "harboury.c" /* yacc.c:1646 */ break; case 16: -#line 306 "harbour.y" /* yacc.c:1646 */ +#line 309 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->currLine = ( int ) (yyvsp[-1].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; } -#line 3880 "harboury.c" /* yacc.c:1646 */ +#line 3883 "harboury.c" /* yacc.c:1646 */ break; case 17: -#line 309 "harbour.y" /* yacc.c:1646 */ +#line 312 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->currModule = hb_compIdentifierNew( HB_COMP_PARAM, (yyvsp[-1].valChar).string, (yyvsp[-1].valChar).dealloc ? HB_IDENT_FREE : HB_IDENT_STATIC ); HB_COMP_PARAM->currLine = ( int ) (yyvsp[-2].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; (yyvsp[-1].valChar).dealloc = HB_FALSE; } -#line 3889 "harboury.c" /* yacc.c:1646 */ +#line 3892 "harboury.c" /* yacc.c:1646 */ break; case 18: -#line 314 "harbour.y" /* yacc.c:1646 */ +#line 317 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->currModule = hb_compIdentifierNew( HB_COMP_PARAM, (yyvsp[-1].valChar).string, (yyvsp[-1].valChar).dealloc ? HB_IDENT_FREE : HB_IDENT_STATIC ); HB_COMP_PARAM->currLine = ( int ) (yyvsp[-4].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; if( (yyvsp[-3].valChar).dealloc ) { hb_xfree( (yyvsp[-3].valChar).string ); (yyvsp[-3].valChar).dealloc = HB_FALSE; } (yyvsp[-1].valChar).dealloc = HB_FALSE; } -#line 3899 "harboury.c" /* yacc.c:1646 */ +#line 3902 "harboury.c" /* yacc.c:1646 */ break; case 19: -#line 321 "harbour.y" /* yacc.c:1646 */ +#line 324 "harbour.y" /* yacc.c:1646 */ { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[0].string), ( HB_SYMBOLSCOPE ) (yyvsp[-2].iNumber), 0 ); } -#line 3905 "harboury.c" /* yacc.c:1646 */ +#line 3908 "harboury.c" /* yacc.c:1646 */ break; case 21: -#line 322 "harbour.y" /* yacc.c:1646 */ +#line 325 "harbour.y" /* yacc.c:1646 */ { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[0].string), ( HB_SYMBOLSCOPE ) (yyvsp[-2].iNumber), HB_FUNF_PROCEDURE ); } -#line 3911 "harboury.c" /* yacc.c:1646 */ +#line 3914 "harboury.c" /* yacc.c:1646 */ break; case 23: -#line 323 "harbour.y" /* yacc.c:1646 */ +#line 326 "harbour.y" /* yacc.c:1646 */ { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[0].string), ( HB_SYMBOLSCOPE ) (yyvsp[-2].iNumber), 0 ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_PARAMETER; } -#line 3917 "harboury.c" /* yacc.c:1646 */ +#line 3920 "harboury.c" /* yacc.c:1646 */ break; case 25: -#line 324 "harbour.y" /* yacc.c:1646 */ +#line 327 "harbour.y" /* yacc.c:1646 */ { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[0].string), ( HB_SYMBOLSCOPE ) (yyvsp[-2].iNumber), HB_FUNF_PROCEDURE ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_PARAMETER;} -#line 3923 "harboury.c" /* yacc.c:1646 */ +#line 3926 "harboury.c" /* yacc.c:1646 */ break; case 27: -#line 327 "harbour.y" /* yacc.c:1646 */ +#line 330 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = HB_FS_PUBLIC; } -#line 3929 "harboury.c" /* yacc.c:1646 */ +#line 3932 "harboury.c" /* yacc.c:1646 */ break; case 28: -#line 328 "harbour.y" /* yacc.c:1646 */ +#line 331 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = HB_FS_STATIC; } -#line 3935 "harboury.c" /* yacc.c:1646 */ +#line 3938 "harboury.c" /* yacc.c:1646 */ break; case 29: -#line 329 "harbour.y" /* yacc.c:1646 */ +#line 332 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = HB_FS_INIT; } -#line 3941 "harboury.c" /* yacc.c:1646 */ +#line 3944 "harboury.c" /* yacc.c:1646 */ break; case 30: -#line 330 "harbour.y" /* yacc.c:1646 */ +#line 333 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = HB_FS_EXIT; } -#line 3947 "harboury.c" /* yacc.c:1646 */ +#line 3950 "harboury.c" /* yacc.c:1646 */ break; case 31: -#line 333 "harbour.y" /* yacc.c:1646 */ +#line 336 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = 0; } -#line 3953 "harboury.c" /* yacc.c:1646 */ +#line 3956 "harboury.c" /* yacc.c:1646 */ break; case 32: -#line 334 "harbour.y" /* yacc.c:1646 */ +#line 337 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->fVParams = HB_TRUE; (yyval.iNumber) = 0; } -#line 3959 "harboury.c" /* yacc.c:1646 */ +#line 3962 "harboury.c" /* yacc.c:1646 */ break; case 34: -#line 336 "harbour.y" /* yacc.c:1646 */ +#line 339 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->fVParams = HB_TRUE; (yyval.iNumber) = (yyvsp[-2].iNumber); } -#line 3965 "harboury.c" /* yacc.c:1646 */ +#line 3968 "harboury.c" /* yacc.c:1646 */ break; case 35: -#line 339 "harbour.y" /* yacc.c:1646 */ +#line 342 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } -#line 3971 "harboury.c" /* yacc.c:1646 */ +#line 3974 "harboury.c" /* yacc.c:1646 */ break; case 37: -#line 343 "harbour.y" /* yacc.c:1646 */ +#line 346 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } -#line 3977 "harboury.c" /* yacc.c:1646 */ +#line 3980 "harboury.c" /* yacc.c:1646 */ break; case 39: -#line 347 "harbour.y" /* yacc.c:1646 */ +#line 350 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'N', NULL ); } -#line 3983 "harboury.c" /* yacc.c:1646 */ +#line 3986 "harboury.c" /* yacc.c:1646 */ break; case 40: -#line 348 "harbour.y" /* yacc.c:1646 */ +#line 351 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'C', NULL ); } -#line 3989 "harboury.c" /* yacc.c:1646 */ +#line 3992 "harboury.c" /* yacc.c:1646 */ break; case 41: -#line 349 "harbour.y" /* yacc.c:1646 */ +#line 352 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'D', NULL ); } -#line 3995 "harboury.c" /* yacc.c:1646 */ +#line 3998 "harboury.c" /* yacc.c:1646 */ break; case 42: -#line 350 "harbour.y" /* yacc.c:1646 */ +#line 353 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'L', NULL ); } -#line 4001 "harboury.c" /* yacc.c:1646 */ +#line 4004 "harboury.c" /* yacc.c:1646 */ break; case 43: -#line 351 "harbour.y" /* yacc.c:1646 */ +#line 354 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'B', NULL ); } -#line 4007 "harboury.c" /* yacc.c:1646 */ +#line 4010 "harboury.c" /* yacc.c:1646 */ break; case 44: -#line 352 "harbour.y" /* yacc.c:1646 */ +#line 355 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'O', NULL ); } -#line 4013 "harboury.c" /* yacc.c:1646 */ +#line 4016 "harboury.c" /* yacc.c:1646 */ break; case 45: -#line 353 "harbour.y" /* yacc.c:1646 */ +#line 356 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'S', (yyvsp[0].string) ); } -#line 4019 "harboury.c" /* yacc.c:1646 */ +#line 4022 "harboury.c" /* yacc.c:1646 */ break; case 46: -#line 354 "harbour.y" /* yacc.c:1646 */ +#line 357 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } -#line 4025 "harboury.c" /* yacc.c:1646 */ +#line 4028 "harboury.c" /* yacc.c:1646 */ break; case 48: -#line 358 "harbour.y" /* yacc.c:1646 */ +#line 361 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'A', NULL ); } -#line 4031 "harboury.c" /* yacc.c:1646 */ +#line 4034 "harboury.c" /* yacc.c:1646 */ break; case 49: -#line 359 "harbour.y" /* yacc.c:1646 */ +#line 362 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'n', NULL ); } -#line 4037 "harboury.c" /* yacc.c:1646 */ +#line 4040 "harboury.c" /* yacc.c:1646 */ break; case 50: -#line 360 "harbour.y" /* yacc.c:1646 */ +#line 363 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'c', NULL ); } -#line 4043 "harboury.c" /* yacc.c:1646 */ +#line 4046 "harboury.c" /* yacc.c:1646 */ break; case 51: -#line 361 "harbour.y" /* yacc.c:1646 */ +#line 364 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'd', NULL ); } -#line 4049 "harboury.c" /* yacc.c:1646 */ +#line 4052 "harboury.c" /* yacc.c:1646 */ break; case 52: -#line 362 "harbour.y" /* yacc.c:1646 */ +#line 365 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'l', NULL ); } -#line 4055 "harboury.c" /* yacc.c:1646 */ +#line 4058 "harboury.c" /* yacc.c:1646 */ break; case 53: -#line 363 "harbour.y" /* yacc.c:1646 */ +#line 366 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'a', NULL ); } -#line 4061 "harboury.c" /* yacc.c:1646 */ +#line 4064 "harboury.c" /* yacc.c:1646 */ break; case 54: -#line 364 "harbour.y" /* yacc.c:1646 */ +#line 367 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'b', NULL ); } -#line 4067 "harboury.c" /* yacc.c:1646 */ +#line 4070 "harboury.c" /* yacc.c:1646 */ break; case 55: -#line 365 "harbour.y" /* yacc.c:1646 */ +#line 368 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'o', NULL ); } -#line 4073 "harboury.c" /* yacc.c:1646 */ +#line 4076 "harboury.c" /* yacc.c:1646 */ break; case 56: -#line 366 "harbour.y" /* yacc.c:1646 */ +#line 369 "harbour.y" /* yacc.c:1646 */ { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 's', (yyvsp[0].string) ); } -#line 4079 "harboury.c" /* yacc.c:1646 */ +#line 4082 "harboury.c" /* yacc.c:1646 */ break; case 57: -#line 369 "harbour.y" /* yacc.c:1646 */ +#line 372 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); (yyval.iNumber) = 1; } -#line 4085 "harboury.c" /* yacc.c:1646 */ +#line 4088 "harboury.c" /* yacc.c:1646 */ break; case 58: -#line 370 "harbour.y" /* yacc.c:1646 */ +#line 373 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); (yyval.iNumber)++; } -#line 4091 "harboury.c" /* yacc.c:1646 */ +#line 4094 "harboury.c" /* yacc.c:1646 */ break; case 60: -#line 379 "harbour.y" /* yacc.c:1646 */ +#line 382 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4097 "harboury.c" /* yacc.c:1646 */ +#line 4100 "harboury.c" /* yacc.c:1646 */ break; case 61: -#line 380 "harbour.y" /* yacc.c:1646 */ +#line 383 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4103 "harboury.c" /* yacc.c:1646 */ +#line 4106 "harboury.c" /* yacc.c:1646 */ break; case 62: -#line 381 "harbour.y" /* yacc.c:1646 */ +#line 384 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4109 "harboury.c" /* yacc.c:1646 */ +#line 4112 "harboury.c" /* yacc.c:1646 */ break; case 63: -#line 382 "harbour.y" /* yacc.c:1646 */ +#line 385 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4115 "harboury.c" /* yacc.c:1646 */ +#line 4118 "harboury.c" /* yacc.c:1646 */ break; case 64: -#line 383 "harbour.y" /* yacc.c:1646 */ +#line 386 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_XBASE ) ) HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); else HB_COMP_EXPR_FREE( HB_COMP_ERROR_SYNTAX( (yyvsp[-1].asExpr) ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4126 "harboury.c" /* yacc.c:1646 */ +#line 4129 "harboury.c" /* yacc.c:1646 */ break; case 65: -#line 389 "harbour.y" /* yacc.c:1646 */ +#line 392 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4132 "harboury.c" /* yacc.c:1646 */ +#line 4135 "harboury.c" /* yacc.c:1646 */ break; case 66: -#line 390 "harbour.y" /* yacc.c:1646 */ +#line 393 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4138 "harboury.c" /* yacc.c:1646 */ +#line 4141 "harboury.c" /* yacc.c:1646 */ break; case 67: -#line 391 "harbour.y" /* yacc.c:1646 */ +#line 394 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4144 "harboury.c" /* yacc.c:1646 */ +#line 4147 "harboury.c" /* yacc.c:1646 */ break; case 68: -#line 392 "harbour.y" /* yacc.c:1646 */ +#line 395 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4150 "harboury.c" /* yacc.c:1646 */ +#line 4153 "harboury.c" /* yacc.c:1646 */ break; case 69: -#line 393 "harbour.y" /* yacc.c:1646 */ +#line 396 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4156 "harboury.c" /* yacc.c:1646 */ +#line 4159 "harboury.c" /* yacc.c:1646 */ break; case 70: -#line 394 "harbour.y" /* yacc.c:1646 */ +#line 397 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4162 "harboury.c" /* yacc.c:1646 */ +#line 4165 "harboury.c" /* yacc.c:1646 */ break; case 71: -#line 395 "harbour.y" /* yacc.c:1646 */ +#line 398 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4168 "harboury.c" /* yacc.c:1646 */ +#line 4171 "harboury.c" /* yacc.c:1646 */ break; case 72: -#line 396 "harbour.y" /* yacc.c:1646 */ +#line 399 "harbour.y" /* yacc.c:1646 */ { hb_compGenBreak( HB_COMP_PARAM ); hb_compGenPCode2( HB_P_DOSHORT, 0, HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_BREAK_CODE; } -#line 4175 "harboury.c" /* yacc.c:1646 */ +#line 4178 "harboury.c" /* yacc.c:1646 */ break; case 73: -#line 398 "harbour.y" /* yacc.c:1646 */ +#line 401 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 4181 "harboury.c" /* yacc.c:1646 */ +#line 4184 "harboury.c" /* yacc.c:1646 */ break; case 74: -#line 399 "harbour.y" /* yacc.c:1646 */ +#line 402 "harbour.y" /* yacc.c:1646 */ { hb_compGenBreak( HB_COMP_PARAM ); HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); hb_compGenPCode2( HB_P_DOSHORT, 1, HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_BREAK_CODE; } -#line 4191 "harboury.c" /* yacc.c:1646 */ +#line 4194 "harboury.c" /* yacc.c:1646 */ break; case 75: -#line 404 "harbour.y" /* yacc.c:1646 */ +#line 407 "harbour.y" /* yacc.c:1646 */ { hb_compLoopExit( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_BREAK_CODE; } -#line 4197 "harboury.c" /* yacc.c:1646 */ +#line 4200 "harboury.c" /* yacc.c:1646 */ break; case 76: -#line 405 "harbour.y" /* yacc.c:1646 */ +#line 408 "harbour.y" /* yacc.c:1646 */ { hb_compLoopLoop( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_BREAK_CODE; } -#line 4203 "harboury.c" /* yacc.c:1646 */ +#line 4206 "harboury.c" /* yacc.c:1646 */ break; case 77: -#line 406 "harbour.y" /* yacc.c:1646 */ +#line 409 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wSeqCounter ) { @@ -4217,17 +4220,17 @@ yyreduce: } HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE; } -#line 4221 "harboury.c" /* yacc.c:1646 */ +#line 4224 "harboury.c" /* yacc.c:1646 */ break; case 78: -#line 419 "harbour.y" /* yacc.c:1646 */ +#line 422 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 4227 "harboury.c" /* yacc.c:1646 */ +#line 4230 "harboury.c" /* yacc.c:1646 */ break; case 79: -#line 421 "harbour.y" /* yacc.c:1646 */ +#line 424 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wSeqCounter ) { @@ -4247,52 +4250,52 @@ yyreduce: } HB_COMP_PARAM->functions.pLast->funFlags |= HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE; } -#line 4251 "harboury.c" /* yacc.c:1646 */ +#line 4254 "harboury.c" /* yacc.c:1646 */ break; case 80: -#line 440 "harbour.y" /* yacc.c:1646 */ +#line 443 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_PUBLIC; } -#line 4257 "harboury.c" /* yacc.c:1646 */ +#line 4260 "harboury.c" /* yacc.c:1646 */ break; case 81: -#line 442 "harbour.y" /* yacc.c:1646 */ +#line 445 "harbour.y" /* yacc.c:1646 */ { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPUBLIC" ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4266 "harboury.c" /* yacc.c:1646 */ +#line 4269 "harboury.c" /* yacc.c:1646 */ break; case 83: -#line 446 "harbour.y" /* yacc.c:1646 */ +#line 449 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_PRIVATE; } -#line 4272 "harboury.c" /* yacc.c:1646 */ +#line 4275 "harboury.c" /* yacc.c:1646 */ break; case 84: -#line 448 "harbour.y" /* yacc.c:1646 */ +#line 451 "harbour.y" /* yacc.c:1646 */ { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPRIVATE" ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 4281 "harboury.c" /* yacc.c:1646 */ +#line 4284 "harboury.c" /* yacc.c:1646 */ break; case 91: -#line 457 "harbour.y" /* yacc.c:1646 */ +#line 460 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->szAnnounce == NULL ) HB_COMP_PARAM->szAnnounce = (yyvsp[0].string); else hb_compGenWarning( HB_COMP_PARAM, hb_comp_szWarnings, 'W', HB_COMP_WARN_DUPL_ANNOUNCE, (yyvsp[0].string), NULL ); } -#line 4292 "harboury.c" /* yacc.c:1646 */ +#line 4295 "harboury.c" /* yacc.c:1646 */ break; case 94: -#line 466 "harbour.y" /* yacc.c:1646 */ +#line 469 "harbour.y" /* yacc.c:1646 */ { if( (yyvsp[0].valChar).dealloc ) { @@ -4301,11 +4304,11 @@ yyreduce: } hb_compModuleAdd( HB_COMP_PARAM, (yyvsp[0].valChar).string, HB_FALSE ); } -#line 4305 "harboury.c" /* yacc.c:1646 */ +#line 4308 "harboury.c" /* yacc.c:1646 */ break; case 95: -#line 474 "harbour.y" /* yacc.c:1646 */ +#line 477 "harbour.y" /* yacc.c:1646 */ { { char szFileName[ HB_PATH_MAX ]; @@ -4323,47 +4326,47 @@ yyreduce: } } } -#line 4327 "harboury.c" /* yacc.c:1646 */ +#line 4330 "harboury.c" /* yacc.c:1646 */ break; case 96: -#line 493 "harbour.y" /* yacc.c:1646 */ +#line 496 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 4333 "harboury.c" /* yacc.c:1646 */ +#line 4336 "harboury.c" /* yacc.c:1646 */ break; case 98: -#line 496 "harbour.y" /* yacc.c:1646 */ +#line 499 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 0; } -#line 4339 "harboury.c" /* yacc.c:1646 */ +#line 4342 "harboury.c" /* yacc.c:1646 */ break; case 99: -#line 497 "harbour.y" /* yacc.c:1646 */ +#line 500 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 1; } -#line 4345 "harboury.c" /* yacc.c:1646 */ +#line 4348 "harboury.c" /* yacc.c:1646 */ break; case 100: -#line 498 "harbour.y" /* yacc.c:1646 */ +#line 501 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 1; } -#line 4351 "harboury.c" /* yacc.c:1646 */ +#line 4354 "harboury.c" /* yacc.c:1646 */ break; case 101: -#line 499 "harbour.y" /* yacc.c:1646 */ +#line 502 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 0; } -#line 4357 "harboury.c" /* yacc.c:1646 */ +#line 4360 "harboury.c" /* yacc.c:1646 */ break; case 102: -#line 500 "harbour.y" /* yacc.c:1646 */ +#line 503 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 0; hb_compCheckUnclosedStru( HB_COMP_PARAM, HB_COMP_PARAM->functions.pLast ); } -#line 4363 "harboury.c" /* yacc.c:1646 */ +#line 4366 "harboury.c" /* yacc.c:1646 */ break; case 103: -#line 501 "harbour.y" /* yacc.c:1646 */ +#line 504 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->ilastLineErr && HB_COMP_PARAM->ilastLineErr == HB_COMP_PARAM->currLine ) { yyclearin; @@ -4375,1128 +4378,1128 @@ yyreduce: } (yyval.lNumber) = 0; } -#line 4379 "harboury.c" /* yacc.c:1646 */ +#line 4382 "harboury.c" /* yacc.c:1646 */ break; case 113: -#line 527 "harbour.y" /* yacc.c:1646 */ +#line 530 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) += (yyvsp[0].lNumber); } -#line 4385 "harboury.c" /* yacc.c:1646 */ +#line 4388 "harboury.c" /* yacc.c:1646 */ break; case 114: -#line 530 "harbour.y" /* yacc.c:1646 */ +#line 533 "harbour.y" /* yacc.c:1646 */ { (yyval.lNumber) = 0; } -#line 4391 "harboury.c" /* yacc.c:1646 */ +#line 4394 "harboury.c" /* yacc.c:1646 */ break; case 116: -#line 534 "harbour.y" /* yacc.c:1646 */ +#line 537 "harbour.y" /* yacc.c:1646 */ { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[0].string), 0 ); } -#line 4397 "harboury.c" /* yacc.c:1646 */ +#line 4400 "harboury.c" /* yacc.c:1646 */ break; case 117: -#line 535 "harbour.y" /* yacc.c:1646 */ +#line 538 "harbour.y" /* yacc.c:1646 */ { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[0].string), 0 ); } -#line 4403 "harboury.c" /* yacc.c:1646 */ +#line 4406 "harboury.c" /* yacc.c:1646 */ break; case 118: -#line 538 "harbour.y" /* yacc.c:1646 */ +#line 541 "harbour.y" /* yacc.c:1646 */ { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[0].string), HB_FS_DEFERRED ); } -#line 4409 "harboury.c" /* yacc.c:1646 */ +#line 4412 "harboury.c" /* yacc.c:1646 */ break; case 119: -#line 539 "harbour.y" /* yacc.c:1646 */ +#line 542 "harbour.y" /* yacc.c:1646 */ { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[0].string), HB_FS_DEFERRED ); } -#line 4415 "harboury.c" /* yacc.c:1646 */ +#line 4418 "harboury.c" /* yacc.c:1646 */ break; case 121: -#line 543 "harbour.y" /* yacc.c:1646 */ +#line 546 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = "STEP"; } -#line 4421 "harboury.c" /* yacc.c:1646 */ +#line 4424 "harboury.c" /* yacc.c:1646 */ break; case 122: -#line 544 "harbour.y" /* yacc.c:1646 */ +#line 547 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = "TO"; } -#line 4427 "harboury.c" /* yacc.c:1646 */ +#line 4430 "harboury.c" /* yacc.c:1646 */ break; case 123: -#line 545 "harbour.y" /* yacc.c:1646 */ +#line 548 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = "LOOP"; } -#line 4433 "harboury.c" /* yacc.c:1646 */ +#line 4436 "harboury.c" /* yacc.c:1646 */ break; case 124: -#line 546 "harbour.y" /* yacc.c:1646 */ +#line 549 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = "EXIT"; } -#line 4439 "harboury.c" /* yacc.c:1646 */ +#line 4442 "harboury.c" /* yacc.c:1646 */ break; case 125: -#line 547 "harbour.y" /* yacc.c:1646 */ +#line 550 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = "IN"; } -#line 4445 "harboury.c" /* yacc.c:1646 */ +#line 4448 "harboury.c" /* yacc.c:1646 */ break; case 126: -#line 548 "harbour.y" /* yacc.c:1646 */ +#line 551 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4451 "harboury.c" /* yacc.c:1646 */ +#line 4454 "harboury.c" /* yacc.c:1646 */ break; case 127: -#line 549 "harbour.y" /* yacc.c:1646 */ +#line 552 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4457 "harboury.c" /* yacc.c:1646 */ +#line 4460 "harboury.c" /* yacc.c:1646 */ break; case 128: -#line 550 "harbour.y" /* yacc.c:1646 */ +#line 553 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4463 "harboury.c" /* yacc.c:1646 */ +#line 4466 "harboury.c" /* yacc.c:1646 */ break; case 129: -#line 551 "harbour.y" /* yacc.c:1646 */ +#line 554 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4469 "harboury.c" /* yacc.c:1646 */ +#line 4472 "harboury.c" /* yacc.c:1646 */ break; case 130: -#line 552 "harbour.y" /* yacc.c:1646 */ +#line 555 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4475 "harboury.c" /* yacc.c:1646 */ +#line 4478 "harboury.c" /* yacc.c:1646 */ break; case 131: -#line 553 "harbour.y" /* yacc.c:1646 */ +#line 556 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4481 "harboury.c" /* yacc.c:1646 */ +#line 4484 "harboury.c" /* yacc.c:1646 */ break; case 132: -#line 554 "harbour.y" /* yacc.c:1646 */ +#line 557 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4487 "harboury.c" /* yacc.c:1646 */ +#line 4490 "harboury.c" /* yacc.c:1646 */ break; case 133: -#line 555 "harbour.y" /* yacc.c:1646 */ +#line 558 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4493 "harboury.c" /* yacc.c:1646 */ +#line 4496 "harboury.c" /* yacc.c:1646 */ break; case 134: -#line 556 "harbour.y" /* yacc.c:1646 */ +#line 559 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4499 "harboury.c" /* yacc.c:1646 */ +#line 4502 "harboury.c" /* yacc.c:1646 */ break; case 135: -#line 557 "harbour.y" /* yacc.c:1646 */ +#line 560 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4505 "harboury.c" /* yacc.c:1646 */ +#line 4508 "harboury.c" /* yacc.c:1646 */ break; case 136: -#line 558 "harbour.y" /* yacc.c:1646 */ +#line 561 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4511 "harboury.c" /* yacc.c:1646 */ +#line 4514 "harboury.c" /* yacc.c:1646 */ break; case 137: -#line 559 "harbour.y" /* yacc.c:1646 */ +#line 562 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4517 "harboury.c" /* yacc.c:1646 */ +#line 4520 "harboury.c" /* yacc.c:1646 */ break; case 138: -#line 560 "harbour.y" /* yacc.c:1646 */ +#line 563 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 4523 "harboury.c" /* yacc.c:1646 */ +#line 4526 "harboury.c" /* yacc.c:1646 */ break; case 139: -#line 565 "harbour.y" /* yacc.c:1646 */ +#line 568 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[0].valDouble).dNumber, (yyvsp[0].valDouble).bWidth, (yyvsp[0].valDouble).bDec, HB_COMP_PARAM ); } -#line 4529 "harboury.c" /* yacc.c:1646 */ +#line 4532 "harboury.c" /* yacc.c:1646 */ break; case 140: -#line 566 "harbour.y" /* yacc.c:1646 */ +#line 569 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[0].valLong).lNumber, HB_COMP_PARAM ); } -#line 4535 "harboury.c" /* yacc.c:1646 */ +#line 4538 "harboury.c" /* yacc.c:1646 */ break; case 141: -#line 569 "harbour.y" /* yacc.c:1646 */ +#line 572 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewDate( ( long ) (yyvsp[0].valLong).lNumber, HB_COMP_PARAM ); } -#line 4541 "harboury.c" /* yacc.c:1646 */ +#line 4544 "harboury.c" /* yacc.c:1646 */ break; case 142: -#line 572 "harbour.y" /* yacc.c:1646 */ +#line 575 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewTimeStamp( (yyvsp[0].valTimeStamp).date, (yyvsp[0].valTimeStamp).time, HB_COMP_PARAM ); } -#line 4547 "harboury.c" /* yacc.c:1646 */ +#line 4550 "harboury.c" /* yacc.c:1646 */ break; case 143: -#line 575 "harbour.y" /* yacc.c:1646 */ +#line 578 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[-1].valLong).lNumber, HB_COMP_PARAM ); } -#line 4553 "harboury.c" /* yacc.c:1646 */ +#line 4556 "harboury.c" /* yacc.c:1646 */ break; case 144: -#line 576 "harbour.y" /* yacc.c:1646 */ +#line 579 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, hb_compExprNewDouble( (yyvsp[-1].valDouble).dNumber, (yyvsp[-1].valDouble).bWidth, (yyvsp[-1].valDouble).bDec, HB_COMP_PARAM ) ); } -#line 4559 "harboury.c" /* yacc.c:1646 */ +#line 4562 "harboury.c" /* yacc.c:1646 */ break; case 145: -#line 581 "harbour.y" /* yacc.c:1646 */ +#line 584 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNil( HB_COMP_PARAM ); } -#line 4565 "harboury.c" /* yacc.c:1646 */ +#line 4568 "harboury.c" /* yacc.c:1646 */ break; case 147: -#line 589 "harbour.y" /* yacc.c:1646 */ +#line 592 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewString( (yyvsp[0].valChar).string, (yyvsp[0].valChar).length, (yyvsp[0].valChar).dealloc, HB_COMP_PARAM ); (yyvsp[0].valChar).dealloc = HB_FALSE; } -#line 4574 "harboury.c" /* yacc.c:1646 */ +#line 4577 "harboury.c" /* yacc.c:1646 */ break; case 150: -#line 605 "harbour.y" /* yacc.c:1646 */ +#line 608 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLogical( HB_TRUE, HB_COMP_PARAM ); } -#line 4580 "harboury.c" /* yacc.c:1646 */ +#line 4583 "harboury.c" /* yacc.c:1646 */ break; case 151: -#line 606 "harbour.y" /* yacc.c:1646 */ +#line 609 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLogical( HB_FALSE, HB_COMP_PARAM ); } -#line 4586 "harboury.c" /* yacc.c:1646 */ +#line 4589 "harboury.c" /* yacc.c:1646 */ break; case 153: -#line 614 "harbour.y" /* yacc.c:1646 */ +#line 617 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewSelf( HB_COMP_PARAM ); } -#line 4592 "harboury.c" /* yacc.c:1646 */ +#line 4595 "harboury.c" /* yacc.c:1646 */ break; case 155: -#line 628 "harbour.y" /* yacc.c:1646 */ +#line 631 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArray( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 4598 "harboury.c" /* yacc.c:1646 */ +#line 4601 "harboury.c" /* yacc.c:1646 */ break; case 157: -#line 636 "harbour.y" /* yacc.c:1646 */ +#line 639 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4604 "harboury.c" /* yacc.c:1646 */ +#line 4607 "harboury.c" /* yacc.c:1646 */ break; case 159: -#line 642 "harbour.y" /* yacc.c:1646 */ +#line 645 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewHash( NULL, HB_COMP_PARAM ); } -#line 4610 "harboury.c" /* yacc.c:1646 */ +#line 4613 "harboury.c" /* yacc.c:1646 */ break; case 160: -#line 643 "harbour.y" /* yacc.c:1646 */ +#line 646 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewHash( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 4616 "harboury.c" /* yacc.c:1646 */ +#line 4619 "harboury.c" /* yacc.c:1646 */ break; case 162: -#line 649 "harbour.y" /* yacc.c:1646 */ +#line 652 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr) ); } -#line 4622 "harboury.c" /* yacc.c:1646 */ +#line 4625 "harboury.c" /* yacc.c:1646 */ break; case 163: -#line 650 "harbour.y" /* yacc.c:1646 */ +#line 653 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprAddListExpr( (yyvsp[-4].asExpr), (yyvsp[-2].asExpr) ), (yyvsp[0].asExpr) ); } -#line 4628 "harboury.c" /* yacc.c:1646 */ +#line 4631 "harboury.c" /* yacc.c:1646 */ break; case 164: -#line 655 "harbour.y" /* yacc.c:1646 */ +#line 658 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 4634 "harboury.c" /* yacc.c:1646 */ +#line 4637 "harboury.c" /* yacc.c:1646 */ break; case 165: -#line 658 "harbour.y" /* yacc.c:1646 */ +#line 661 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAlias( (yyvsp[-1].string), HB_COMP_PARAM ); } -#line 4640 "harboury.c" /* yacc.c:1646 */ +#line 4643 "harboury.c" /* yacc.c:1646 */ break; case 166: -#line 663 "harbour.y" /* yacc.c:1646 */ +#line 666 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacro( NULL, '&', (yyvsp[0].string), HB_COMP_PARAM ); } -#line 4646 "harboury.c" /* yacc.c:1646 */ +#line 4649 "harboury.c" /* yacc.c:1646 */ break; case 167: -#line 664 "harbour.y" /* yacc.c:1646 */ +#line 667 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacro( NULL, 0, (yyvsp[0].string), HB_COMP_PARAM ); } -#line 4652 "harboury.c" /* yacc.c:1646 */ +#line 4655 "harboury.c" /* yacc.c:1646 */ break; case 169: -#line 672 "harbour.y" /* yacc.c:1646 */ +#line 675 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacro( (yyvsp[0].asExpr), 0, NULL, HB_COMP_PARAM ); } -#line 4658 "harboury.c" /* yacc.c:1646 */ +#line 4661 "harboury.c" /* yacc.c:1646 */ break; case 173: -#line 686 "harbour.y" /* yacc.c:1646 */ +#line 689 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAlias( "FIELD", HB_COMP_PARAM ); } -#line 4664 "harboury.c" /* yacc.c:1646 */ +#line 4667 "harboury.c" /* yacc.c:1646 */ break; case 174: -#line 687 "harbour.y" /* yacc.c:1646 */ +#line 690 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4670 "harboury.c" /* yacc.c:1646 */ +#line 4673 "harboury.c" /* yacc.c:1646 */ break; case 175: -#line 692 "harbour.y" /* yacc.c:1646 */ +#line 695 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4676 "harboury.c" /* yacc.c:1646 */ +#line 4679 "harboury.c" /* yacc.c:1646 */ break; case 176: -#line 693 "harbour.y" /* yacc.c:1646 */ +#line 696 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4682 "harboury.c" /* yacc.c:1646 */ +#line 4685 "harboury.c" /* yacc.c:1646 */ break; case 177: -#line 694 "harbour.y" /* yacc.c:1646 */ +#line 697 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4688 "harboury.c" /* yacc.c:1646 */ +#line 4691 "harboury.c" /* yacc.c:1646 */ break; case 178: -#line 695 "harbour.y" /* yacc.c:1646 */ +#line 698 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4694 "harboury.c" /* yacc.c:1646 */ +#line 4697 "harboury.c" /* yacc.c:1646 */ break; case 179: -#line 696 "harbour.y" /* yacc.c:1646 */ +#line 699 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4700 "harboury.c" /* yacc.c:1646 */ +#line 4703 "harboury.c" /* yacc.c:1646 */ break; case 180: -#line 697 "harbour.y" /* yacc.c:1646 */ +#line 700 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4706 "harboury.c" /* yacc.c:1646 */ +#line 4709 "harboury.c" /* yacc.c:1646 */ break; case 181: -#line 698 "harbour.y" /* yacc.c:1646 */ +#line 701 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4712 "harboury.c" /* yacc.c:1646 */ +#line 4715 "harboury.c" /* yacc.c:1646 */ break; case 182: -#line 699 "harbour.y" /* yacc.c:1646 */ +#line 702 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4718 "harboury.c" /* yacc.c:1646 */ +#line 4721 "harboury.c" /* yacc.c:1646 */ break; case 183: -#line 700 "harbour.y" /* yacc.c:1646 */ +#line 703 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4724 "harboury.c" /* yacc.c:1646 */ +#line 4727 "harboury.c" /* yacc.c:1646 */ break; case 184: -#line 701 "harbour.y" /* yacc.c:1646 */ +#line 704 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4730 "harboury.c" /* yacc.c:1646 */ +#line 4733 "harboury.c" /* yacc.c:1646 */ break; case 185: -#line 702 "harbour.y" /* yacc.c:1646 */ +#line 705 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4736 "harboury.c" /* yacc.c:1646 */ +#line 4739 "harboury.c" /* yacc.c:1646 */ break; case 186: -#line 703 "harbour.y" /* yacc.c:1646 */ +#line 706 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4742 "harboury.c" /* yacc.c:1646 */ +#line 4745 "harboury.c" /* yacc.c:1646 */ break; case 187: -#line 704 "harbour.y" /* yacc.c:1646 */ +#line 707 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4748 "harboury.c" /* yacc.c:1646 */ +#line 4751 "harboury.c" /* yacc.c:1646 */ break; case 188: -#line 705 "harbour.y" /* yacc.c:1646 */ +#line 708 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4754 "harboury.c" /* yacc.c:1646 */ +#line 4757 "harboury.c" /* yacc.c:1646 */ break; case 189: -#line 708 "harbour.y" /* yacc.c:1646 */ +#line 711 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 4760 "harboury.c" /* yacc.c:1646 */ +#line 4763 "harboury.c" /* yacc.c:1646 */ break; case 191: -#line 712 "harbour.y" /* yacc.c:1646 */ +#line 715 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4766 "harboury.c" /* yacc.c:1646 */ +#line 4769 "harboury.c" /* yacc.c:1646 */ break; case 192: -#line 713 "harbour.y" /* yacc.c:1646 */ +#line 716 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4772 "harboury.c" /* yacc.c:1646 */ +#line 4775 "harboury.c" /* yacc.c:1646 */ break; case 193: -#line 714 "harbour.y" /* yacc.c:1646 */ +#line 717 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4778 "harboury.c" /* yacc.c:1646 */ +#line 4781 "harboury.c" /* yacc.c:1646 */ break; case 194: -#line 715 "harbour.y" /* yacc.c:1646 */ +#line 718 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4784 "harboury.c" /* yacc.c:1646 */ +#line 4787 "harboury.c" /* yacc.c:1646 */ break; case 195: -#line 716 "harbour.y" /* yacc.c:1646 */ +#line 719 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4790 "harboury.c" /* yacc.c:1646 */ +#line 4793 "harboury.c" /* yacc.c:1646 */ break; case 196: -#line 717 "harbour.y" /* yacc.c:1646 */ +#line 720 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4796 "harboury.c" /* yacc.c:1646 */ +#line 4799 "harboury.c" /* yacc.c:1646 */ break; case 197: -#line 718 "harbour.y" /* yacc.c:1646 */ +#line 721 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4802 "harboury.c" /* yacc.c:1646 */ +#line 4805 "harboury.c" /* yacc.c:1646 */ break; case 198: -#line 719 "harbour.y" /* yacc.c:1646 */ +#line 722 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4808 "harboury.c" /* yacc.c:1646 */ +#line 4811 "harboury.c" /* yacc.c:1646 */ break; case 199: -#line 720 "harbour.y" /* yacc.c:1646 */ +#line 723 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4814 "harboury.c" /* yacc.c:1646 */ +#line 4817 "harboury.c" /* yacc.c:1646 */ break; case 200: -#line 721 "harbour.y" /* yacc.c:1646 */ +#line 724 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4820 "harboury.c" /* yacc.c:1646 */ +#line 4823 "harboury.c" /* yacc.c:1646 */ break; case 201: -#line 722 "harbour.y" /* yacc.c:1646 */ +#line 725 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4826 "harboury.c" /* yacc.c:1646 */ +#line 4829 "harboury.c" /* yacc.c:1646 */ break; case 202: -#line 723 "harbour.y" /* yacc.c:1646 */ +#line 726 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4832 "harboury.c" /* yacc.c:1646 */ +#line 4835 "harboury.c" /* yacc.c:1646 */ break; case 203: -#line 724 "harbour.y" /* yacc.c:1646 */ +#line 727 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4838 "harboury.c" /* yacc.c:1646 */ +#line 4841 "harboury.c" /* yacc.c:1646 */ break; case 204: -#line 725 "harbour.y" /* yacc.c:1646 */ +#line 728 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4844 "harboury.c" /* yacc.c:1646 */ +#line 4847 "harboury.c" /* yacc.c:1646 */ break; case 205: -#line 726 "harbour.y" /* yacc.c:1646 */ +#line 729 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4850 "harboury.c" /* yacc.c:1646 */ +#line 4853 "harboury.c" /* yacc.c:1646 */ break; case 206: -#line 727 "harbour.y" /* yacc.c:1646 */ +#line 730 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4856 "harboury.c" /* yacc.c:1646 */ +#line 4859 "harboury.c" /* yacc.c:1646 */ break; case 207: -#line 728 "harbour.y" /* yacc.c:1646 */ +#line 731 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[-1].asExpr) ); } -#line 4862 "harboury.c" /* yacc.c:1646 */ +#line 4865 "harboury.c" /* yacc.c:1646 */ break; case 208: -#line 729 "harbour.y" /* yacc.c:1646 */ +#line 732 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4868 "harboury.c" /* yacc.c:1646 */ +#line 4871 "harboury.c" /* yacc.c:1646 */ break; case 209: -#line 730 "harbour.y" /* yacc.c:1646 */ +#line 733 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4874 "harboury.c" /* yacc.c:1646 */ +#line 4877 "harboury.c" /* yacc.c:1646 */ break; case 210: -#line 731 "harbour.y" /* yacc.c:1646 */ +#line 734 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4880 "harboury.c" /* yacc.c:1646 */ +#line 4883 "harboury.c" /* yacc.c:1646 */ break; case 211: -#line 740 "harbour.y" /* yacc.c:1646 */ +#line 743 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4886 "harboury.c" /* yacc.c:1646 */ +#line 4889 "harboury.c" /* yacc.c:1646 */ break; case 212: -#line 741 "harbour.y" /* yacc.c:1646 */ +#line 744 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4892 "harboury.c" /* yacc.c:1646 */ +#line 4895 "harboury.c" /* yacc.c:1646 */ break; case 213: -#line 742 "harbour.y" /* yacc.c:1646 */ +#line 745 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4898 "harboury.c" /* yacc.c:1646 */ +#line 4901 "harboury.c" /* yacc.c:1646 */ break; case 214: -#line 743 "harbour.y" /* yacc.c:1646 */ +#line 746 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4904 "harboury.c" /* yacc.c:1646 */ +#line 4907 "harboury.c" /* yacc.c:1646 */ break; case 215: -#line 744 "harbour.y" /* yacc.c:1646 */ +#line 747 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 4910 "harboury.c" /* yacc.c:1646 */ +#line 4913 "harboury.c" /* yacc.c:1646 */ break; case 216: -#line 745 "harbour.y" /* yacc.c:1646 */ +#line 748 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 4916 "harboury.c" /* yacc.c:1646 */ +#line 4919 "harboury.c" /* yacc.c:1646 */ break; case 217: -#line 750 "harbour.y" /* yacc.c:1646 */ +#line 753 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4922 "harboury.c" /* yacc.c:1646 */ +#line 4925 "harboury.c" /* yacc.c:1646 */ break; case 218: -#line 751 "harbour.y" /* yacc.c:1646 */ +#line 754 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4928 "harboury.c" /* yacc.c:1646 */ +#line 4931 "harboury.c" /* yacc.c:1646 */ break; case 219: -#line 752 "harbour.y" /* yacc.c:1646 */ +#line 755 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4934 "harboury.c" /* yacc.c:1646 */ +#line 4937 "harboury.c" /* yacc.c:1646 */ break; case 220: -#line 753 "harbour.y" /* yacc.c:1646 */ +#line 756 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4940 "harboury.c" /* yacc.c:1646 */ +#line 4943 "harboury.c" /* yacc.c:1646 */ break; case 221: -#line 754 "harbour.y" /* yacc.c:1646 */ +#line 757 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4946 "harboury.c" /* yacc.c:1646 */ +#line 4949 "harboury.c" /* yacc.c:1646 */ break; case 222: -#line 755 "harbour.y" /* yacc.c:1646 */ +#line 758 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4952 "harboury.c" /* yacc.c:1646 */ +#line 4955 "harboury.c" /* yacc.c:1646 */ break; case 223: -#line 756 "harbour.y" /* yacc.c:1646 */ +#line 759 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4958 "harboury.c" /* yacc.c:1646 */ +#line 4961 "harboury.c" /* yacc.c:1646 */ break; case 224: -#line 757 "harbour.y" /* yacc.c:1646 */ +#line 760 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4964 "harboury.c" /* yacc.c:1646 */ +#line 4967 "harboury.c" /* yacc.c:1646 */ break; case 225: -#line 758 "harbour.y" /* yacc.c:1646 */ +#line 761 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4970 "harboury.c" /* yacc.c:1646 */ +#line 4973 "harboury.c" /* yacc.c:1646 */ break; case 226: -#line 759 "harbour.y" /* yacc.c:1646 */ +#line 762 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4976 "harboury.c" /* yacc.c:1646 */ +#line 4979 "harboury.c" /* yacc.c:1646 */ break; case 227: -#line 760 "harbour.y" /* yacc.c:1646 */ +#line 763 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4982 "harboury.c" /* yacc.c:1646 */ +#line 4985 "harboury.c" /* yacc.c:1646 */ break; case 228: -#line 761 "harbour.y" /* yacc.c:1646 */ +#line 764 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4988 "harboury.c" /* yacc.c:1646 */ +#line 4991 "harboury.c" /* yacc.c:1646 */ break; case 229: -#line 762 "harbour.y" /* yacc.c:1646 */ +#line 765 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 4994 "harboury.c" /* yacc.c:1646 */ +#line 4997 "harboury.c" /* yacc.c:1646 */ break; case 230: -#line 763 "harbour.y" /* yacc.c:1646 */ +#line 766 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5000 "harboury.c" /* yacc.c:1646 */ +#line 5003 "harboury.c" /* yacc.c:1646 */ break; case 231: -#line 764 "harbour.y" /* yacc.c:1646 */ +#line 767 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5006 "harboury.c" /* yacc.c:1646 */ +#line 5009 "harboury.c" /* yacc.c:1646 */ break; case 232: -#line 765 "harbour.y" /* yacc.c:1646 */ +#line 768 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5012 "harboury.c" /* yacc.c:1646 */ +#line 5015 "harboury.c" /* yacc.c:1646 */ break; case 233: -#line 766 "harbour.y" /* yacc.c:1646 */ +#line 769 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5018 "harboury.c" /* yacc.c:1646 */ +#line 5021 "harboury.c" /* yacc.c:1646 */ break; case 234: -#line 767 "harbour.y" /* yacc.c:1646 */ +#line 770 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5024 "harboury.c" /* yacc.c:1646 */ +#line 5027 "harboury.c" /* yacc.c:1646 */ break; case 236: -#line 774 "harbour.y" /* yacc.c:1646 */ +#line 777 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewFunCall( hb_compExprNewFunName( (yyvsp[-3].string), HB_COMP_PARAM ), (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 5030 "harboury.c" /* yacc.c:1646 */ +#line 5033 "harboury.c" /* yacc.c:1646 */ break; case 238: -#line 778 "harbour.y" /* yacc.c:1646 */ +#line 781 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[-3].asExpr), (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 5036 "harboury.c" /* yacc.c:1646 */ +#line 5039 "harboury.c" /* yacc.c:1646 */ break; case 239: -#line 782 "harbour.y" /* yacc.c:1646 */ +#line 785 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[0].asExpr) ); } -#line 5042 "harboury.c" /* yacc.c:1646 */ +#line 5045 "harboury.c" /* yacc.c:1646 */ break; case 241: -#line 788 "harbour.y" /* yacc.c:1646 */ +#line 791 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5048 "harboury.c" /* yacc.c:1646 */ +#line 5051 "harboury.c" /* yacc.c:1646 */ break; case 242: -#line 789 "harbour.y" /* yacc.c:1646 */ +#line 792 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 5054 "harboury.c" /* yacc.c:1646 */ +#line 5057 "harboury.c" /* yacc.c:1646 */ break; case 245: -#line 796 "harbour.y" /* yacc.c:1646 */ +#line 799 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewVarRef( (yyvsp[0].string), HB_COMP_PARAM ) ); } -#line 5060 "harboury.c" /* yacc.c:1646 */ +#line 5063 "harboury.c" /* yacc.c:1646 */ break; case 246: -#line 797 "harbour.y" /* yacc.c:1646 */ +#line 800 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ) ); } -#line 5066 "harboury.c" /* yacc.c:1646 */ +#line 5069 "harboury.c" /* yacc.c:1646 */ break; case 247: -#line 798 "harbour.y" /* yacc.c:1646 */ +#line 801 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ) ); } -#line 5072 "harboury.c" /* yacc.c:1646 */ +#line 5075 "harboury.c" /* yacc.c:1646 */ break; case 248: -#line 799 "harbour.y" /* yacc.c:1646 */ +#line 802 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ) ); } -#line 5078 "harboury.c" /* yacc.c:1646 */ +#line 5081 "harboury.c" /* yacc.c:1646 */ break; case 249: -#line 800 "harbour.y" /* yacc.c:1646 */ +#line 803 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[0].asExpr) ); (yyval.asExpr)->value.asList.reference = HB_TRUE; } -#line 5084 "harboury.c" /* yacc.c:1646 */ +#line 5087 "harboury.c" /* yacc.c:1646 */ break; case 250: -#line 803 "harbour.y" /* yacc.c:1646 */ +#line 806 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } -#line 5090 "harboury.c" /* yacc.c:1646 */ +#line 5093 "harboury.c" /* yacc.c:1646 */ break; case 252: -#line 809 "harbour.y" /* yacc.c:1646 */ +#line 812 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compCheckMethod( HB_COMP_PARAM, hb_compExprNewMethodObject( (yyvsp[0].asExpr), (yyvsp[-2].asExpr) ) ); } -#line 5096 "harboury.c" /* yacc.c:1646 */ +#line 5099 "harboury.c" /* yacc.c:1646 */ break; case 253: -#line 810 "harbour.y" /* yacc.c:1646 */ +#line 813 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMethodObject( (yyvsp[0].asExpr), (yyvsp[-2].asExpr) ); } -#line 5102 "harboury.c" /* yacc.c:1646 */ +#line 5105 "harboury.c" /* yacc.c:1646 */ break; case 254: -#line 811 "harbour.y" /* yacc.c:1646 */ +#line 814 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wWithObjectCnt == 0 ) hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_WITHOBJECT, NULL, NULL ); (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5111 "harboury.c" /* yacc.c:1646 */ +#line 5114 "harboury.c" /* yacc.c:1646 */ break; case 255: -#line 817 "harbour.y" /* yacc.c:1646 */ +#line 820 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewSend( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 5117 "harboury.c" /* yacc.c:1646 */ +#line 5120 "harboury.c" /* yacc.c:1646 */ break; case 256: -#line 818 "harbour.y" /* yacc.c:1646 */ +#line 821 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5123 "harboury.c" /* yacc.c:1646 */ +#line 5126 "harboury.c" /* yacc.c:1646 */ break; case 257: -#line 821 "harbour.y" /* yacc.c:1646 */ +#line 824 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[-1].string), HB_COMP_PARAM ); } -#line 5129 "harboury.c" /* yacc.c:1646 */ +#line 5132 "harboury.c" /* yacc.c:1646 */ break; case 259: -#line 829 "harbour.y" /* yacc.c:1646 */ +#line 832 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMethodCall( (yyvsp[-3].asExpr), (yyvsp[-1].asExpr) ); } -#line 5135 "harboury.c" /* yacc.c:1646 */ +#line 5138 "harboury.c" /* yacc.c:1646 */ break; case 269: -#line 849 "harbour.y" /* yacc.c:1646 */ +#line 852 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5141 "harboury.c" /* yacc.c:1646 */ +#line 5144 "harboury.c" /* yacc.c:1646 */ break; case 279: -#line 859 "harbour.y" /* yacc.c:1646 */ +#line 862 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5147 "harboury.c" /* yacc.c:1646 */ +#line 5150 "harboury.c" /* yacc.c:1646 */ break; case 282: -#line 862 "harbour.y" /* yacc.c:1646 */ +#line 865 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5153 "harboury.c" /* yacc.c:1646 */ +#line 5156 "harboury.c" /* yacc.c:1646 */ break; case 284: -#line 864 "harbour.y" /* yacc.c:1646 */ +#line 867 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5159 "harboury.c" /* yacc.c:1646 */ +#line 5162 "harboury.c" /* yacc.c:1646 */ break; case 296: -#line 878 "harbour.y" /* yacc.c:1646 */ +#line 881 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5165 "harboury.c" /* yacc.c:1646 */ +#line 5168 "harboury.c" /* yacc.c:1646 */ break; case 297: -#line 879 "harbour.y" /* yacc.c:1646 */ +#line 882 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5171 "harboury.c" /* yacc.c:1646 */ +#line 5174 "harboury.c" /* yacc.c:1646 */ break; case 299: -#line 883 "harbour.y" /* yacc.c:1646 */ +#line 886 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } -#line 5177 "harboury.c" /* yacc.c:1646 */ +#line 5180 "harboury.c" /* yacc.c:1646 */ break; case 301: -#line 887 "harbour.y" /* yacc.c:1646 */ +#line 890 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); } -#line 5183 "harboury.c" /* yacc.c:1646 */ +#line 5186 "harboury.c" /* yacc.c:1646 */ break; case 303: -#line 891 "harbour.y" /* yacc.c:1646 */ +#line 894 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 5189 "harboury.c" /* yacc.c:1646 */ +#line 5192 "harboury.c" /* yacc.c:1646 */ break; case 309: -#line 897 "harbour.y" /* yacc.c:1646 */ +#line 900 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprListStrip( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5195 "harboury.c" /* yacc.c:1646 */ +#line 5198 "harboury.c" /* yacc.c:1646 */ break; case 331: -#line 930 "harbour.y" /* yacc.c:1646 */ +#line 933 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 5201 "harboury.c" /* yacc.c:1646 */ +#line 5204 "harboury.c" /* yacc.c:1646 */ break; case 332: -#line 931 "harbour.y" /* yacc.c:1646 */ +#line 934 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 5207 "harboury.c" /* yacc.c:1646 */ +#line 5210 "harboury.c" /* yacc.c:1646 */ break; case 333: -#line 934 "harbour.y" /* yacc.c:1646 */ +#line 937 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5213 "harboury.c" /* yacc.c:1646 */ +#line 5216 "harboury.c" /* yacc.c:1646 */ break; case 334: -#line 937 "harbour.y" /* yacc.c:1646 */ +#line 940 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5219 "harboury.c" /* yacc.c:1646 */ +#line 5222 "harboury.c" /* yacc.c:1646 */ break; case 335: -#line 938 "harbour.y" /* yacc.c:1646 */ +#line 941 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5225 "harboury.c" /* yacc.c:1646 */ +#line 5228 "harboury.c" /* yacc.c:1646 */ break; case 336: -#line 941 "harbour.y" /* yacc.c:1646 */ +#line 944 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5231 "harboury.c" /* yacc.c:1646 */ +#line 5234 "harboury.c" /* yacc.c:1646 */ break; case 337: -#line 942 "harbour.y" /* yacc.c:1646 */ +#line 945 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5237 "harboury.c" /* yacc.c:1646 */ +#line 5240 "harboury.c" /* yacc.c:1646 */ break; case 338: -#line 943 "harbour.y" /* yacc.c:1646 */ +#line 946 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5243 "harboury.c" /* yacc.c:1646 */ +#line 5246 "harboury.c" /* yacc.c:1646 */ break; case 339: -#line 946 "harbour.y" /* yacc.c:1646 */ +#line 949 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAssign( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5249 "harboury.c" /* yacc.c:1646 */ +#line 5252 "harboury.c" /* yacc.c:1646 */ break; case 340: -#line 949 "harbour.y" /* yacc.c:1646 */ +#line 952 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAssign( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5255 "harboury.c" /* yacc.c:1646 */ +#line 5258 "harboury.c" /* yacc.c:1646 */ break; case 341: -#line 952 "harbour.y" /* yacc.c:1646 */ +#line 955 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5261 "harboury.c" /* yacc.c:1646 */ +#line 5264 "harboury.c" /* yacc.c:1646 */ break; case 342: -#line 955 "harbour.y" /* yacc.c:1646 */ +#line 958 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5267 "harboury.c" /* yacc.c:1646 */ +#line 5270 "harboury.c" /* yacc.c:1646 */ break; case 343: -#line 958 "harbour.y" /* yacc.c:1646 */ +#line 961 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5273 "harboury.c" /* yacc.c:1646 */ +#line 5276 "harboury.c" /* yacc.c:1646 */ break; case 344: -#line 961 "harbour.y" /* yacc.c:1646 */ +#line 964 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5279 "harboury.c" /* yacc.c:1646 */ +#line 5282 "harboury.c" /* yacc.c:1646 */ break; case 345: -#line 964 "harbour.y" /* yacc.c:1646 */ +#line 967 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5285 "harboury.c" /* yacc.c:1646 */ +#line 5288 "harboury.c" /* yacc.c:1646 */ break; case 346: -#line 967 "harbour.y" /* yacc.c:1646 */ +#line 970 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewExpEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5291 "harboury.c" /* yacc.c:1646 */ +#line 5294 "harboury.c" /* yacc.c:1646 */ break; case 353: -#line 978 "harbour.y" /* yacc.c:1646 */ +#line 981 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlus( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5297 "harboury.c" /* yacc.c:1646 */ +#line 5300 "harboury.c" /* yacc.c:1646 */ break; case 354: -#line 979 "harbour.y" /* yacc.c:1646 */ +#line 982 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinus( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5303 "harboury.c" /* yacc.c:1646 */ +#line 5306 "harboury.c" /* yacc.c:1646 */ break; case 355: -#line 980 "harbour.y" /* yacc.c:1646 */ +#line 983 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMult( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5309 "harboury.c" /* yacc.c:1646 */ +#line 5312 "harboury.c" /* yacc.c:1646 */ break; case 356: -#line 981 "harbour.y" /* yacc.c:1646 */ +#line 984 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5315 "harboury.c" /* yacc.c:1646 */ +#line 5318 "harboury.c" /* yacc.c:1646 */ break; case 357: -#line 982 "harbour.y" /* yacc.c:1646 */ +#line 985 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5321 "harboury.c" /* yacc.c:1646 */ +#line 5324 "harboury.c" /* yacc.c:1646 */ break; case 358: -#line 983 "harbour.y" /* yacc.c:1646 */ +#line 986 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5327 "harboury.c" /* yacc.c:1646 */ +#line 5330 "harboury.c" /* yacc.c:1646 */ break; case 359: -#line 986 "harbour.y" /* yacc.c:1646 */ +#line 989 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5333 "harboury.c" /* yacc.c:1646 */ +#line 5336 "harboury.c" /* yacc.c:1646 */ break; case 360: -#line 987 "harbour.y" /* yacc.c:1646 */ +#line 990 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5339 "harboury.c" /* yacc.c:1646 */ +#line 5342 "harboury.c" /* yacc.c:1646 */ break; case 361: -#line 990 "harbour.y" /* yacc.c:1646 */ +#line 993 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5345 "harboury.c" /* yacc.c:1646 */ +#line 5348 "harboury.c" /* yacc.c:1646 */ break; case 362: -#line 991 "harbour.y" /* yacc.c:1646 */ +#line 994 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5351 "harboury.c" /* yacc.c:1646 */ +#line 5354 "harboury.c" /* yacc.c:1646 */ break; case 363: -#line 992 "harbour.y" /* yacc.c:1646 */ +#line 995 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5357 "harboury.c" /* yacc.c:1646 */ +#line 5360 "harboury.c" /* yacc.c:1646 */ break; case 364: -#line 993 "harbour.y" /* yacc.c:1646 */ +#line 996 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5363 "harboury.c" /* yacc.c:1646 */ +#line 5366 "harboury.c" /* yacc.c:1646 */ break; case 365: -#line 994 "harbour.y" /* yacc.c:1646 */ +#line 997 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5369 "harboury.c" /* yacc.c:1646 */ +#line 5372 "harboury.c" /* yacc.c:1646 */ break; case 366: -#line 995 "harbour.y" /* yacc.c:1646 */ +#line 998 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5375 "harboury.c" /* yacc.c:1646 */ +#line 5378 "harboury.c" /* yacc.c:1646 */ break; case 367: -#line 996 "harbour.y" /* yacc.c:1646 */ +#line 999 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5381 "harboury.c" /* yacc.c:1646 */ +#line 5384 "harboury.c" /* yacc.c:1646 */ break; case 368: -#line 997 "harbour.y" /* yacc.c:1646 */ +#line 1000 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5387 "harboury.c" /* yacc.c:1646 */ +#line 5390 "harboury.c" /* yacc.c:1646 */ break; case 369: -#line 998 "harbour.y" /* yacc.c:1646 */ +#line 1001 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5393 "harboury.c" /* yacc.c:1646 */ +#line 5396 "harboury.c" /* yacc.c:1646 */ break; case 371: -#line 1007 "harbour.y" /* yacc.c:1646 */ +#line 1010 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5399 "harboury.c" /* yacc.c:1646 */ +#line 5402 "harboury.c" /* yacc.c:1646 */ break; case 372: -#line 1008 "harbour.y" /* yacc.c:1646 */ +#line 1011 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5405 "harboury.c" /* yacc.c:1646 */ +#line 5408 "harboury.c" /* yacc.c:1646 */ break; case 373: -#line 1009 "harbour.y" /* yacc.c:1646 */ +#line 1012 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[-3].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5411 "harboury.c" /* yacc.c:1646 */ +#line 5414 "harboury.c" /* yacc.c:1646 */ break; case 374: -#line 1012 "harbour.y" /* yacc.c:1646 */ +#line 1015 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5417 "harboury.c" /* yacc.c:1646 */ +#line 5420 "harboury.c" /* yacc.c:1646 */ break; case 375: -#line 1013 "harbour.y" /* yacc.c:1646 */ +#line 1016 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 5423 "harboury.c" /* yacc.c:1646 */ +#line 5426 "harboury.c" /* yacc.c:1646 */ break; case 376: -#line 1016 "harbour.y" /* yacc.c:1646 */ +#line 1019 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewCodeBlock( (yyvsp[0].asCodeblock).string, (yyvsp[0].asCodeblock).length, (yyvsp[0].asCodeblock).flags, HB_COMP_PARAM ); (yyvsp[0].asCodeblock).string = NULL; } -#line 5429 "harboury.c" /* yacc.c:1646 */ +#line 5432 "harboury.c" /* yacc.c:1646 */ break; case 377: -#line 1017 "harbour.y" /* yacc.c:1646 */ +#line 1020 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-2].asExpr); } -#line 5435 "harboury.c" /* yacc.c:1646 */ +#line 5438 "harboury.c" /* yacc.c:1646 */ break; case 378: -#line 1022 "harbour.y" /* yacc.c:1646 */ +#line 1025 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; } -#line 5441 "harboury.c" /* yacc.c:1646 */ +#line 5444 "harboury.c" /* yacc.c:1646 */ break; case 379: -#line 1023 "harbour.y" /* yacc.c:1646 */ +#line 1026 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; (yyvsp[-1].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } -#line 5447 "harboury.c" /* yacc.c:1646 */ +#line 5450 "harboury.c" /* yacc.c:1646 */ break; case 380: -#line 1024 "harbour.y" /* yacc.c:1646 */ +#line 1027 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 5453 "harboury.c" /* yacc.c:1646 */ +#line 5456 "harboury.c" /* yacc.c:1646 */ break; case 381: -#line 1025 "harbour.y" /* yacc.c:1646 */ +#line 1028 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-2].asExpr); (yyvsp[-3].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } -#line 5459 "harboury.c" /* yacc.c:1646 */ +#line 5462 "harboury.c" /* yacc.c:1646 */ break; case 382: -#line 1028 "harbour.y" /* yacc.c:1646 */ +#line 1031 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[-2].asExpr), (yyvsp[-1].string), (yyvsp[0].asVarType)->cVarType, HB_COMP_PARAM ); } -#line 5465 "harboury.c" /* yacc.c:1646 */ +#line 5468 "harboury.c" /* yacc.c:1646 */ break; case 383: -#line 1029 "harbour.y" /* yacc.c:1646 */ +#line 1032 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[-4].asExpr), (yyvsp[-1].string), (yyvsp[0].asVarType)->cVarType, HB_COMP_PARAM ); } -#line 5471 "harboury.c" /* yacc.c:1646 */ +#line 5474 "harboury.c" /* yacc.c:1646 */ break; case 384: -#line 1032 "harbour.y" /* yacc.c:1646 */ +#line 1035 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-1) - (1)].asExpr), (yyvsp[0].asExpr) ); } -#line 5477 "harboury.c" /* yacc.c:1646 */ +#line 5480 "harboury.c" /* yacc.c:1646 */ break; case 385: -#line 1033 "harbour.y" /* yacc.c:1646 */ +#line 1036 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-1) - (3)].asExpr), (yyvsp[0].asExpr) ); } -#line 5483 "harboury.c" /* yacc.c:1646 */ +#line 5486 "harboury.c" /* yacc.c:1646 */ break; case 386: -#line 1037 "harbour.y" /* yacc.c:1646 */ +#line 1040 "harbour.y" /* yacc.c:1646 */ { (yyval.bTrue) = HB_COMP_PARAM->functions.pLast->bBlock; HB_COMP_PARAM->functions.pLast->bBlock = HB_TRUE; } -#line 5490 "harboury.c" /* yacc.c:1646 */ +#line 5493 "harboury.c" /* yacc.c:1646 */ break; case 387: -#line 1040 "harbour.y" /* yacc.c:1646 */ +#line 1043 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->bBlock = (yyvsp[-1].bTrue); } -#line 5496 "harboury.c" /* yacc.c:1646 */ +#line 5499 "harboury.c" /* yacc.c:1646 */ break; case 389: -#line 1043 "harbour.y" /* yacc.c:1646 */ +#line 1046 "harbour.y" /* yacc.c:1646 */ { /* 3 */ PHB_CBVAR pVar; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -5522,11 +5525,11 @@ yyreduce: pVar =pVar->pNext; } } -#line 5526 "harboury.c" /* yacc.c:1646 */ +#line 5529 "harboury.c" /* yacc.c:1646 */ break; case 390: -#line 1069 "harbour.y" /* yacc.c:1646 */ +#line 1072 "harbour.y" /* yacc.c:1646 */ { /* 6 */ hb_compCodeBlockEnd( HB_COMP_PARAM ); (yyval.asExpr) = hb_compExprSetCodeblockBody( (yyvsp[-4].asExpr), @@ -5535,53 +5538,53 @@ yyreduce: HB_COMP_PARAM->functions.pLast->nPCodePos = (yyvsp[-2].sNumber); HB_COMP_PARAM->lastLine = (yyvsp[-3].sNumber); } -#line 5539 "harboury.c" /* yacc.c:1646 */ +#line 5542 "harboury.c" /* yacc.c:1646 */ break; case 391: -#line 1079 "harbour.y" /* yacc.c:1646 */ +#line 1082 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5545 "harboury.c" /* yacc.c:1646 */ +#line 5548 "harboury.c" /* yacc.c:1646 */ break; case 392: -#line 1080 "harbour.y" /* yacc.c:1646 */ +#line 1083 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 5551 "harboury.c" /* yacc.c:1646 */ +#line 5554 "harboury.c" /* yacc.c:1646 */ break; case 393: -#line 1082 "harbour.y" /* yacc.c:1646 */ +#line 1085 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-1].asExpr); } -#line 5557 "harboury.c" /* yacc.c:1646 */ +#line 5560 "harboury.c" /* yacc.c:1646 */ break; case 395: -#line 1095 "harbour.y" /* yacc.c:1646 */ +#line 1098 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[-5].asExpr), HB_COMP_PARAM ), (yyvsp[-3].asExpr) ), (yyvsp[-1].asExpr) ) ); } -#line 5563 "harboury.c" /* yacc.c:1646 */ +#line 5566 "harboury.c" /* yacc.c:1646 */ break; case 397: -#line 1101 "harbour.y" /* yacc.c:1646 */ +#line 1104 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_LOCAL; hb_compLinePush( HB_COMP_PARAM ); } -#line 5569 "harboury.c" /* yacc.c:1646 */ +#line 5572 "harboury.c" /* yacc.c:1646 */ break; case 399: -#line 1103 "harbour.y" /* yacc.c:1646 */ +#line 1106 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_STATIC; hb_compLinePush( HB_COMP_PARAM ); } -#line 5575 "harboury.c" /* yacc.c:1646 */ +#line 5578 "harboury.c" /* yacc.c:1646 */ break; case 401: -#line 1105 "harbour.y" /* yacc.c:1646 */ +#line 1108 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_TH_STATIC; hb_compLinePush( HB_COMP_PARAM ); } -#line 5581 "harboury.c" /* yacc.c:1646 */ +#line 5584 "harboury.c" /* yacc.c:1646 */ break; case 403: -#line 1107 "harbour.y" /* yacc.c:1646 */ +#line 1110 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->funFlags & HB_FUNF_USES_LOCAL_PARAMS ) hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_PARAMETERS_NOT_ALLOWED, NULL, NULL ); else @@ -5590,64 +5593,64 @@ yyreduce: HB_COMP_PARAM->iVarScope = ( HB_VSCOMP_PRIVATE | HB_VSCOMP_PARAMETER ); } } -#line 5594 "harboury.c" /* yacc.c:1646 */ +#line 5597 "harboury.c" /* yacc.c:1646 */ break; case 404: -#line 1114 "harbour.y" /* yacc.c:1646 */ +#line 1117 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5600 "harboury.c" /* yacc.c:1646 */ +#line 5603 "harboury.c" /* yacc.c:1646 */ break; case 405: -#line 1117 "harbour.y" /* yacc.c:1646 */ +#line 1120 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = 1; } -#line 5606 "harboury.c" /* yacc.c:1646 */ +#line 5609 "harboury.c" /* yacc.c:1646 */ break; case 406: -#line 1118 "harbour.y" /* yacc.c:1646 */ +#line 1121 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber)++; } -#line 5612 "harboury.c" /* yacc.c:1646 */ +#line 5615 "harboury.c" /* yacc.c:1646 */ break; case 407: -#line 1121 "harbour.y" /* yacc.c:1646 */ +#line 1124 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = 1; } -#line 5618 "harboury.c" /* yacc.c:1646 */ +#line 5621 "harboury.c" /* yacc.c:1646 */ break; case 408: -#line 1122 "harbour.y" /* yacc.c:1646 */ +#line 1125 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber)++; } -#line 5624 "harboury.c" /* yacc.c:1646 */ +#line 5627 "harboury.c" /* yacc.c:1646 */ break; case 410: -#line 1132 "harbour.y" /* yacc.c:1646 */ +#line 1135 "harbour.y" /* yacc.c:1646 */ { hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[-1].asExpr), HB_COMP_PARAM ), HB_FALSE ); } -#line 5630 "harboury.c" /* yacc.c:1646 */ +#line 5633 "harboury.c" /* yacc.c:1646 */ break; case 411: -#line 1134 "harbour.y" /* yacc.c:1646 */ +#line 1137 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[0].asExpr), HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[-3].asExpr), HB_COMP_PARAM ), HB_TRUE ); } -#line 5638 "harboury.c" /* yacc.c:1646 */ +#line 5641 "harboury.c" /* yacc.c:1646 */ break; case 412: -#line 1138 "harbour.y" /* yacc.c:1646 */ +#line 1141 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compArrayDimPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[-2].asExpr), HB_COMP_PARAM ), HB_TRUE ); } -#line 5647 "harboury.c" /* yacc.c:1646 */ +#line 5650 "harboury.c" /* yacc.c:1646 */ break; case 413: -#line 1145 "harbour.y" /* yacc.c:1646 */ +#line 1148 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); if( HB_COMP_PARAM->iVarScope & HB_VSCOMP_STATIC ) @@ -5665,19 +5668,19 @@ yyreduce: HB_COMP_EXPR_FREE( hb_compExprGenPush( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ) ); } } -#line 5669 "harboury.c" /* yacc.c:1646 */ +#line 5672 "harboury.c" /* yacc.c:1646 */ break; case 414: -#line 1162 "harbour.y" /* yacc.c:1646 */ +#line 1165 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = HB_COMP_PARAM->iVarScope; hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5677 "harboury.c" /* yacc.c:1646 */ +#line 5680 "harboury.c" /* yacc.c:1646 */ break; case 415: -#line 1166 "harbour.y" /* yacc.c:1646 */ +#line 1169 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = (yyvsp[-2].iNumber); if( HB_COMP_PARAM->iVarScope & HB_VSCOMP_STATIC ) @@ -5702,97 +5705,97 @@ yyreduce: } HB_COMP_PARAM->iVarScope = (yyvsp[-2].iNumber); } -#line 5706 "harboury.c" /* yacc.c:1646 */ +#line 5709 "harboury.c" /* yacc.c:1646 */ break; case 416: -#line 1191 "harbour.y" /* yacc.c:1646 */ +#line 1194 "harbour.y" /* yacc.c:1646 */ { hb_compVariableDim( (yyvsp[-2].string), (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 5712 "harboury.c" /* yacc.c:1646 */ +#line 5715 "harboury.c" /* yacc.c:1646 */ break; case 418: -#line 1200 "harbour.y" /* yacc.c:1646 */ +#line 1203 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 5718 "harboury.c" /* yacc.c:1646 */ +#line 5721 "harboury.c" /* yacc.c:1646 */ break; case 419: -#line 1201 "harbour.y" /* yacc.c:1646 */ +#line 1204 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 5724 "harboury.c" /* yacc.c:1646 */ +#line 5727 "harboury.c" /* yacc.c:1646 */ break; case 420: -#line 1202 "harbour.y" /* yacc.c:1646 */ +#line 1205 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-3].asExpr), (yyvsp[0].asExpr) ); } -#line 5730 "harboury.c" /* yacc.c:1646 */ +#line 5733 "harboury.c" /* yacc.c:1646 */ break; case 421: -#line 1205 "harbour.y" /* yacc.c:1646 */ +#line 1208 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_FIELD; } -#line 5736 "harboury.c" /* yacc.c:1646 */ +#line 5739 "harboury.c" /* yacc.c:1646 */ break; case 422: -#line 1207 "harbour.y" /* yacc.c:1646 */ +#line 1210 "harbour.y" /* yacc.c:1646 */ { if( (yyvsp[-1].string) ) hb_compFieldSetAlias( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[-2].iNumber) ); } -#line 5744 "harboury.c" /* yacc.c:1646 */ +#line 5747 "harboury.c" /* yacc.c:1646 */ break; case 423: -#line 1212 "harbour.y" /* yacc.c:1646 */ +#line 1215 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = hb_compFieldsCount( HB_COMP_PARAM ); hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5750 "harboury.c" /* yacc.c:1646 */ +#line 5753 "harboury.c" /* yacc.c:1646 */ break; case 424: -#line 1213 "harbour.y" /* yacc.c:1646 */ +#line 1216 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5756 "harboury.c" /* yacc.c:1646 */ +#line 5759 "harboury.c" /* yacc.c:1646 */ break; case 425: -#line 1216 "harbour.y" /* yacc.c:1646 */ +#line 1219 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = NULL; } -#line 5762 "harboury.c" /* yacc.c:1646 */ +#line 5765 "harboury.c" /* yacc.c:1646 */ break; case 426: -#line 1217 "harbour.y" /* yacc.c:1646 */ +#line 1220 "harbour.y" /* yacc.c:1646 */ { (yyval.string) = (yyvsp[0].string); } -#line 5768 "harboury.c" /* yacc.c:1646 */ +#line 5771 "harboury.c" /* yacc.c:1646 */ break; case 427: -#line 1220 "harbour.y" /* yacc.c:1646 */ +#line 1223 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_MEMVAR; } -#line 5774 "harboury.c" /* yacc.c:1646 */ +#line 5777 "harboury.c" /* yacc.c:1646 */ break; case 429: -#line 1223 "harbour.y" /* yacc.c:1646 */ +#line 1226 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5780 "harboury.c" /* yacc.c:1646 */ +#line 5783 "harboury.c" /* yacc.c:1646 */ break; case 430: -#line 1224 "harbour.y" /* yacc.c:1646 */ +#line 1227 "harbour.y" /* yacc.c:1646 */ { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5786 "harboury.c" /* yacc.c:1646 */ +#line 5789 "harboury.c" /* yacc.c:1646 */ break; case 431: -#line 1227 "harbour.y" /* yacc.c:1646 */ +#line 1230 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredAdd( HB_COMP_PARAM, (yyvsp[-1].string) ); HB_COMP_PARAM->szDeclaredFun = (yyvsp[-1].string); } -#line 5792 "harboury.c" /* yacc.c:1646 */ +#line 5795 "harboury.c" /* yacc.c:1646 */ break; case 432: -#line 1228 "harbour.y" /* yacc.c:1646 */ +#line 1231 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->pLastDeclared ) { @@ -5811,59 +5814,59 @@ yyreduce: HB_COMP_PARAM->szDeclaredFun = NULL; HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5815 "harboury.c" /* yacc.c:1646 */ +#line 5818 "harboury.c" /* yacc.c:1646 */ break; case 433: -#line 1246 "harbour.y" /* yacc.c:1646 */ +#line 1249 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[0].string), NULL ); } -#line 5821 "harboury.c" /* yacc.c:1646 */ +#line 5824 "harboury.c" /* yacc.c:1646 */ break; case 434: -#line 1246 "harbour.y" /* yacc.c:1646 */ +#line 1249 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5827 "harboury.c" /* yacc.c:1646 */ +#line 5830 "harboury.c" /* yacc.c:1646 */ break; case 435: -#line 1247 "harbour.y" /* yacc.c:1646 */ +#line 1250 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[-1].string), NULL ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5833 "harboury.c" /* yacc.c:1646 */ +#line 5836 "harboury.c" /* yacc.c:1646 */ break; case 436: -#line 1248 "harbour.y" /* yacc.c:1646 */ +#line 1251 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[-2].string), (yyvsp[-1].string) ); HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5839 "harboury.c" /* yacc.c:1646 */ +#line 5842 "harboury.c" /* yacc.c:1646 */ break; case 437: -#line 1249 "harbour.y" /* yacc.c:1646 */ +#line 1252 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5845 "harboury.c" /* yacc.c:1646 */ +#line 5848 "harboury.c" /* yacc.c:1646 */ break; case 438: -#line 1250 "harbour.y" /* yacc.c:1646 */ +#line 1253 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->cDataListType = (yyvsp[0].asVarType)->cVarType; } -#line 5851 "harboury.c" /* yacc.c:1646 */ +#line 5854 "harboury.c" /* yacc.c:1646 */ break; case 439: -#line 1250 "harbour.y" /* yacc.c:1646 */ +#line 1253 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->cDataListType = 0; HB_COMP_PARAM->iVarScope = HB_VSCOMP_NONE; } -#line 5857 "harboury.c" /* yacc.c:1646 */ +#line 5860 "harboury.c" /* yacc.c:1646 */ break; case 446: -#line 1263 "harbour.y" /* yacc.c:1646 */ +#line 1266 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[-1].string) ); } -#line 5863 "harboury.c" /* yacc.c:1646 */ +#line 5866 "harboury.c" /* yacc.c:1646 */ break; case 447: -#line 1264 "harbour.y" /* yacc.c:1646 */ +#line 1267 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->pLastMethod ) { @@ -5880,17 +5883,17 @@ yyreduce: } HB_COMP_PARAM->pLastMethod = NULL; } -#line 5884 "harboury.c" /* yacc.c:1646 */ +#line 5887 "harboury.c" /* yacc.c:1646 */ break; case 448: -#line 1282 "harbour.y" /* yacc.c:1646 */ +#line 1285 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[0].string) ); } -#line 5890 "harboury.c" /* yacc.c:1646 */ +#line 5893 "harboury.c" /* yacc.c:1646 */ break; case 449: -#line 1283 "harbour.y" /* yacc.c:1646 */ +#line 1286 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->pLastMethod ) { @@ -5932,8 +5935,8 @@ yyreduce: HB_COMP_PARAM->pLastMethod->cParamTypes = ( HB_BYTE * ) hb_xgrab( 1 ); HB_COMP_PARAM->pLastMethod->pParamClasses = ( PHB_HCLASS * ) hb_xgrab( sizeof( HB_HCLASS ) ); - HB_COMP_PARAM->pLastMethod->cParamTypes[0] = cVarType; - HB_COMP_PARAM->pLastMethod->pParamClasses[0] = pClass; + HB_COMP_PARAM->pLastMethod->cParamTypes[ 0 ] = cVarType; + HB_COMP_PARAM->pLastMethod->pParamClasses[ 0 ] = pClass; if( HB_TOUPPER( cVarType ) == 'S' ) { @@ -5943,315 +5946,315 @@ yyreduce: HB_COMP_PARAM->pLastMethod = NULL; } -#line 5947 "harboury.c" /* yacc.c:1646 */ +#line 5950 "harboury.c" /* yacc.c:1646 */ break; case 463: -#line 1356 "harbour.y" /* yacc.c:1646 */ +#line 1359 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[0].asExpr) ); } -#line 5953 "harboury.c" /* yacc.c:1646 */ +#line 5956 "harboury.c" /* yacc.c:1646 */ break; case 464: -#line 1359 "harbour.y" /* yacc.c:1646 */ +#line 1362 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5959 "harboury.c" /* yacc.c:1646 */ +#line 5962 "harboury.c" /* yacc.c:1646 */ break; case 465: -#line 1360 "harbour.y" /* yacc.c:1646 */ +#line 1363 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 5965 "harboury.c" /* yacc.c:1646 */ +#line 5968 "harboury.c" /* yacc.c:1646 */ break; case 466: -#line 1361 "harbour.y" /* yacc.c:1646 */ +#line 1364 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-3].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F', NULL ) ); } -#line 5971 "harboury.c" /* yacc.c:1646 */ +#line 5974 "harboury.c" /* yacc.c:1646 */ break; case 467: -#line 1362 "harbour.y" /* yacc.c:1646 */ +#line 1365 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), (yyvsp[0].asVarType) ); } -#line 5977 "harboury.c" /* yacc.c:1646 */ +#line 5980 "harboury.c" /* yacc.c:1646 */ break; case 468: -#line 1363 "harbour.y" /* yacc.c:1646 */ +#line 1366 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 5983 "harboury.c" /* yacc.c:1646 */ +#line 5986 "harboury.c" /* yacc.c:1646 */ break; case 469: -#line 1364 "harbour.y" /* yacc.c:1646 */ +#line 1367 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-3].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F', NULL ) ); } -#line 5989 "harboury.c" /* yacc.c:1646 */ +#line 5992 "harboury.c" /* yacc.c:1646 */ break; case 470: -#line 1367 "harbour.y" /* yacc.c:1646 */ +#line 1370 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_OPTIONAL, NULL ) ); } -#line 5995 "harboury.c" /* yacc.c:1646 */ +#line 5998 "harboury.c" /* yacc.c:1646 */ break; case 471: -#line 1368 "harbour.y" /* yacc.c:1646 */ +#line 1371 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_OPTIONAL + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 6001 "harboury.c" /* yacc.c:1646 */ +#line 6004 "harboury.c" /* yacc.c:1646 */ break; case 472: -#line 1369 "harbour.y" /* yacc.c:1646 */ +#line 1372 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-3].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F' + HB_VT_OFFSET_OPTIONAL + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 6007 "harboury.c" /* yacc.c:1646 */ +#line 6010 "harboury.c" /* yacc.c:1646 */ break; case 473: -#line 1370 "harbour.y" /* yacc.c:1646 */ +#line 1373 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_OPTIONAL, NULL ) ); } -#line 6013 "harboury.c" /* yacc.c:1646 */ +#line 6016 "harboury.c" /* yacc.c:1646 */ break; case 474: -#line 1371 "harbour.y" /* yacc.c:1646 */ +#line 1374 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-1].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[0].asVarType)->cVarType + HB_VT_OFFSET_OPTIONAL + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 6019 "harboury.c" /* yacc.c:1646 */ +#line 6022 "harboury.c" /* yacc.c:1646 */ break; case 475: -#line 1372 "harbour.y" /* yacc.c:1646 */ +#line 1375 "harbour.y" /* yacc.c:1646 */ { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[-3].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F' + HB_VT_OFFSET_OPTIONAL + HB_VT_OFFSET_BYREF, NULL ) ); } -#line 6025 "harboury.c" /* yacc.c:1646 */ +#line 6028 "harboury.c" /* yacc.c:1646 */ break; case 484: -#line 1385 "harbour.y" /* yacc.c:1646 */ +#line 1388 "harbour.y" /* yacc.c:1646 */ { hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6031 "harboury.c" /* yacc.c:1646 */ +#line 6034 "harboury.c" /* yacc.c:1646 */ break; case 485: -#line 1386 "harbour.y" /* yacc.c:1646 */ +#line 1389 "harbour.y" /* yacc.c:1646 */ { hb_compGenJumpHere( (yyvsp[-2].sNumber), HB_COMP_PARAM ); } -#line 6037 "harboury.c" /* yacc.c:1646 */ +#line 6040 "harboury.c" /* yacc.c:1646 */ break; case 486: -#line 1387 "harbour.y" /* yacc.c:1646 */ +#line 1390 "harbour.y" /* yacc.c:1646 */ { hb_compGenJumpHere( (yyvsp[-2].sNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[-1].pVoid) ); } -#line 6043 "harboury.c" /* yacc.c:1646 */ +#line 6046 "harboury.c" /* yacc.c:1646 */ break; case 487: -#line 1388 "harbour.y" /* yacc.c:1646 */ +#line 1391 "harbour.y" /* yacc.c:1646 */ { hb_compGenJumpHere( (yyvsp[-3].sNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[-2].pVoid) ); } -#line 6049 "harboury.c" /* yacc.c:1646 */ +#line 6052 "harboury.c" /* yacc.c:1646 */ break; case 488: -#line 1392 "harbour.y" /* yacc.c:1646 */ +#line 1395 "harbour.y" /* yacc.c:1646 */ { ++HB_COMP_PARAM->functions.pLast->wIfCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 6055 "harboury.c" /* yacc.c:1646 */ +#line 6058 "harboury.c" /* yacc.c:1646 */ break; case 489: -#line 1394 "harbour.y" /* yacc.c:1646 */ +#line 1397 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-2].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6061 "harboury.c" /* yacc.c:1646 */ +#line 6064 "harboury.c" /* yacc.c:1646 */ break; case 490: -#line 1396 "harbour.y" /* yacc.c:1646 */ +#line 1399 "harbour.y" /* yacc.c:1646 */ { (yyval.sNumber) = hb_compGenJump( 0, HB_COMP_PARAM ); hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6067 "harboury.c" /* yacc.c:1646 */ +#line 6070 "harboury.c" /* yacc.c:1646 */ break; case 491: -#line 1399 "harbour.y" /* yacc.c:1646 */ +#line 1402 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; } -#line 6073 "harboury.c" /* yacc.c:1646 */ +#line 6076 "harboury.c" /* yacc.c:1646 */ break; case 493: -#line 1403 "harbour.y" /* yacc.c:1646 */ +#line 1406 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); } -#line 6079 "harboury.c" /* yacc.c:1646 */ +#line 6082 "harboury.c" /* yacc.c:1646 */ break; case 494: -#line 1405 "harbour.y" /* yacc.c:1646 */ +#line 1408 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6087 "harboury.c" /* yacc.c:1646 */ +#line 6090 "harboury.c" /* yacc.c:1646 */ break; case 495: -#line 1409 "harbour.y" /* yacc.c:1646 */ +#line 1412 "harbour.y" /* yacc.c:1646 */ { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, NULL, hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6095 "harboury.c" /* yacc.c:1646 */ +#line 6098 "harboury.c" /* yacc.c:1646 */ break; case 496: -#line 1413 "harbour.y" /* yacc.c:1646 */ +#line 1416 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); } -#line 6101 "harboury.c" /* yacc.c:1646 */ +#line 6104 "harboury.c" /* yacc.c:1646 */ break; case 497: -#line 1415 "harbour.y" /* yacc.c:1646 */ +#line 1418 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6109 "harboury.c" /* yacc.c:1646 */ +#line 6112 "harboury.c" /* yacc.c:1646 */ break; case 498: -#line 1419 "harbour.y" /* yacc.c:1646 */ +#line 1422 "harbour.y" /* yacc.c:1646 */ { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, (yyvsp[-6].pVoid), hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6117 "harboury.c" /* yacc.c:1646 */ +#line 6120 "harboury.c" /* yacc.c:1646 */ break; case 499: -#line 1425 "harbour.y" /* yacc.c:1646 */ +#line 1428 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wIfCounter ) --HB_COMP_PARAM->functions.pLast->wIfCounter; HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); } -#line 6127 "harboury.c" /* yacc.c:1646 */ +#line 6130 "harboury.c" /* yacc.c:1646 */ break; case 502: -#line 1438 "harbour.y" /* yacc.c:1646 */ +#line 1441 "harbour.y" /* yacc.c:1646 */ { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[-1].pVoid) ); } -#line 6133 "harboury.c" /* yacc.c:1646 */ +#line 6136 "harboury.c" /* yacc.c:1646 */ break; case 505: -#line 1450 "harbour.y" /* yacc.c:1646 */ +#line 1453 "harbour.y" /* yacc.c:1646 */ { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[-2].pVoid) ); } -#line 6139 "harboury.c" /* yacc.c:1646 */ +#line 6142 "harboury.c" /* yacc.c:1646 */ break; case 506: -#line 1454 "harbour.y" /* yacc.c:1646 */ +#line 1457 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wCaseCounter ) --HB_COMP_PARAM->functions.pLast->wCaseCounter; HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); } -#line 6148 "harboury.c" /* yacc.c:1646 */ +#line 6151 "harboury.c" /* yacc.c:1646 */ break; case 509: -#line 1464 "harbour.y" /* yacc.c:1646 */ +#line 1467 "harbour.y" /* yacc.c:1646 */ { ++HB_COMP_PARAM->functions.pLast->wCaseCounter; hb_compLinePushIfDebugger( HB_COMP_PARAM );} -#line 6154 "harboury.c" /* yacc.c:1646 */ +#line 6157 "harboury.c" /* yacc.c:1646 */ break; case 512: -#line 1468 "harbour.y" /* yacc.c:1646 */ +#line 1471 "harbour.y" /* yacc.c:1646 */ { if( (yyvsp[0].lNumber) > 0 ) { hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_MAYHEM_IN_CASE, NULL, NULL ); } } -#line 6165 "harboury.c" /* yacc.c:1646 */ +#line 6168 "harboury.c" /* yacc.c:1646 */ break; case 513: -#line 1476 "harbour.y" /* yacc.c:1646 */ +#line 1479 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 6171 "harboury.c" /* yacc.c:1646 */ +#line 6174 "harboury.c" /* yacc.c:1646 */ break; case 514: -#line 1477 "harbour.y" /* yacc.c:1646 */ +#line 1480 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6180 "harboury.c" /* yacc.c:1646 */ +#line 6183 "harboury.c" /* yacc.c:1646 */ break; case 515: -#line 1482 "harbour.y" /* yacc.c:1646 */ +#line 1485 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, NULL, hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6190 "harboury.c" /* yacc.c:1646 */ +#line 6193 "harboury.c" /* yacc.c:1646 */ break; case 516: -#line 1488 "harbour.y" /* yacc.c:1646 */ +#line 1491 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 6196 "harboury.c" /* yacc.c:1646 */ +#line 6199 "harboury.c" /* yacc.c:1646 */ break; case 517: -#line 1489 "harbour.y" /* yacc.c:1646 */ +#line 1492 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6205 "harboury.c" /* yacc.c:1646 */ +#line 6208 "harboury.c" /* yacc.c:1646 */ break; case 518: -#line 1494 "harbour.y" /* yacc.c:1646 */ +#line 1497 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, (yyvsp[-6].pVoid), hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[-1].sNumber), HB_COMP_PARAM ); } -#line 6215 "harboury.c" /* yacc.c:1646 */ +#line 6218 "harboury.c" /* yacc.c:1646 */ break; case 519: -#line 1501 "harbour.y" /* yacc.c:1646 */ +#line 1504 "harbour.y" /* yacc.c:1646 */ {hb_compLinePushIfDebugger( HB_COMP_PARAM ); } -#line 6221 "harboury.c" /* yacc.c:1646 */ +#line 6224 "harboury.c" /* yacc.c:1646 */ break; case 520: -#line 1501 "harbour.y" /* yacc.c:1646 */ +#line 1504 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; } -#line 6227 "harboury.c" /* yacc.c:1646 */ +#line 6230 "harboury.c" /* yacc.c:1646 */ break; case 522: -#line 1503 "harbour.y" /* yacc.c:1646 */ +#line 1506 "harbour.y" /* yacc.c:1646 */ { hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_MAYHEM_IN_CASE, NULL, NULL ); } -#line 6233 "harboury.c" /* yacc.c:1646 */ +#line 6236 "harboury.c" /* yacc.c:1646 */ break; case 524: -#line 1508 "harbour.y" /* yacc.c:1646 */ +#line 1511 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6242 "harboury.c" /* yacc.c:1646 */ +#line 6245 "harboury.c" /* yacc.c:1646 */ break; case 525: -#line 1513 "harbour.y" /* yacc.c:1646 */ +#line 1516 "harbour.y" /* yacc.c:1646 */ { hb_compLoopHere( HB_COMP_PARAM ); hb_compGenJump( (yyvsp[-4].sNumber) - HB_COMP_PARAM->functions.pLast->nPCodePos, HB_COMP_PARAM ); } -#line 6251 "harboury.c" /* yacc.c:1646 */ +#line 6254 "harboury.c" /* yacc.c:1646 */ break; case 526: -#line 1518 "harbour.y" /* yacc.c:1646 */ +#line 1521 "harbour.y" /* yacc.c:1646 */ { hb_compGenJumpHere( (yyvsp[-3].sNumber), HB_COMP_PARAM ); if( HB_COMP_PARAM->functions.pLast->wWhileCounter ) @@ -6259,28 +6262,28 @@ yyreduce: hb_compLoopEnd( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_WITH_RETURN; } -#line 6263 "harboury.c" /* yacc.c:1646 */ +#line 6266 "harboury.c" /* yacc.c:1646 */ break; case 527: -#line 1528 "harbour.y" /* yacc.c:1646 */ +#line 1531 "harbour.y" /* yacc.c:1646 */ { (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; hb_compLinePushIfInside( HB_COMP_PARAM ); ++HB_COMP_PARAM->functions.pLast->wWhileCounter; hb_compLoopStart( HB_COMP_PARAM, HB_TRUE ); } -#line 6274 "harboury.c" /* yacc.c:1646 */ +#line 6277 "harboury.c" /* yacc.c:1646 */ break; case 528: -#line 1537 "harbour.y" /* yacc.c:1646 */ +#line 1540 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; } -#line 6280 "harboury.c" /* yacc.c:1646 */ +#line 6283 "harboury.c" /* yacc.c:1646 */ break; case 531: -#line 1545 "harbour.y" /* yacc.c:1646 */ +#line 1548 "harbour.y" /* yacc.c:1646 */ { /* 5 */ hb_compLinePushIfInside( HB_COMP_PARAM ); (yyvsp[-3].iNumber) = HB_COMP_PARAM->currLine; @@ -6293,28 +6296,28 @@ yyreduce: hb_compForStart( HB_COMP_PARAM, hb_compExprAsSymbol( (yyvsp[-2].asExpr) ), 0 ); } } -#line 6297 "harboury.c" /* yacc.c:1646 */ +#line 6300 "harboury.c" /* yacc.c:1646 */ break; case 532: -#line 1558 "harbour.y" /* yacc.c:1646 */ +#line 1561 "harbour.y" /* yacc.c:1646 */ { /* 9 */ hb_compLoopStart( HB_COMP_PARAM, HB_TRUE ); (yyval.sNumber) = hb_compGenJump( 0, HB_COMP_PARAM ); } -#line 6306 "harboury.c" /* yacc.c:1646 */ +#line 6309 "harboury.c" /* yacc.c:1646 */ break; case 533: -#line 1563 "harbour.y" /* yacc.c:1646 */ +#line 1566 "harbour.y" /* yacc.c:1646 */ { /* 11 */ (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; } -#line 6314 "harboury.c" /* yacc.c:1646 */ +#line 6317 "harboury.c" /* yacc.c:1646 */ break; case 534: -#line 1567 "harbour.y" /* yacc.c:1646 */ +#line 1570 "harbour.y" /* yacc.c:1646 */ { int iSign, iLine; @@ -6357,85 +6360,85 @@ yyreduce: HB_COMP_EXPR_FREE( (yyvsp[-7].asExpr) ); /* deletes $5, $2, $4 */ HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); } -#line 6361 "harboury.c" /* yacc.c:1646 */ +#line 6364 "harboury.c" /* yacc.c:1646 */ break; case 537: -#line 1615 "harbour.y" /* yacc.c:1646 */ +#line 1618 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; } -#line 6367 "harboury.c" /* yacc.c:1646 */ +#line 6370 "harboury.c" /* yacc.c:1646 */ break; case 538: -#line 1616 "harbour.y" /* yacc.c:1646 */ +#line 1619 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprReduce( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6373 "harboury.c" /* yacc.c:1646 */ +#line 6376 "harboury.c" /* yacc.c:1646 */ break; case 539: -#line 1620 "harbour.y" /* yacc.c:1646 */ +#line 1623 "harbour.y" /* yacc.c:1646 */ { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->functions.pLast->wForCounter ) --HB_COMP_PARAM->functions.pLast->wForCounter; } -#line 6383 "harboury.c" /* yacc.c:1646 */ +#line 6386 "harboury.c" /* yacc.c:1646 */ break; case 544: -#line 1633 "harbour.y" /* yacc.c:1646 */ +#line 1636 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 6389 "harboury.c" /* yacc.c:1646 */ +#line 6392 "harboury.c" /* yacc.c:1646 */ break; case 545: -#line 1634 "harbour.y" /* yacc.c:1646 */ +#line 1637 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6395 "harboury.c" /* yacc.c:1646 */ +#line 6398 "harboury.c" /* yacc.c:1646 */ break; case 546: -#line 1637 "harbour.y" /* yacc.c:1646 */ +#line 1640 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6401 "harboury.c" /* yacc.c:1646 */ +#line 6404 "harboury.c" /* yacc.c:1646 */ break; case 547: -#line 1638 "harbour.y" /* yacc.c:1646 */ +#line 1641 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 6407 "harboury.c" /* yacc.c:1646 */ +#line 6410 "harboury.c" /* yacc.c:1646 */ break; case 548: -#line 1641 "harbour.y" /* yacc.c:1646 */ +#line 1644 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 6413 "harboury.c" /* yacc.c:1646 */ +#line 6416 "harboury.c" /* yacc.c:1646 */ break; case 550: -#line 1645 "harbour.y" /* yacc.c:1646 */ +#line 1648 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6419 "harboury.c" /* yacc.c:1646 */ +#line 6422 "harboury.c" /* yacc.c:1646 */ break; case 551: -#line 1646 "harbour.y" /* yacc.c:1646 */ +#line 1649 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 6425 "harboury.c" /* yacc.c:1646 */ +#line 6428 "harboury.c" /* yacc.c:1646 */ break; case 552: -#line 1651 "harbour.y" /* yacc.c:1646 */ +#line 1654 "harbour.y" /* yacc.c:1646 */ { ++HB_COMP_PARAM->functions.pLast->wForCounter; /* 5 */ hb_compLinePushIfInside( HB_COMP_PARAM ); hb_compDebugStart(); } -#line 6435 "harboury.c" /* yacc.c:1646 */ +#line 6438 "harboury.c" /* yacc.c:1646 */ break; case 553: -#line 1657 "harbour.y" /* yacc.c:1646 */ +#line 1660 "harbour.y" /* yacc.c:1646 */ { /* 7 */ (yyvsp[-4].asExpr) = hb_compExprReduce( (yyvsp[-4].asExpr), HB_COMP_PARAM ); @@ -6445,20 +6448,20 @@ yyreduce: hb_compLoopStart( HB_COMP_PARAM, HB_TRUE ); (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; } -#line 6449 "harboury.c" /* yacc.c:1646 */ +#line 6452 "harboury.c" /* yacc.c:1646 */ break; case 554: -#line 1667 "harbour.y" /* yacc.c:1646 */ +#line 1670 "harbour.y" /* yacc.c:1646 */ { /* 9 */ (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } -#line 6458 "harboury.c" /* yacc.c:1646 */ +#line 6461 "harboury.c" /* yacc.c:1646 */ break; case 555: -#line 1672 "harbour.y" /* yacc.c:1646 */ +#line 1675 "harbour.y" /* yacc.c:1646 */ { hb_compLoopHere( HB_COMP_PARAM ); hb_compEnumNext( HB_COMP_PARAM, (yyvsp[-8].asExpr), (yyvsp[-4].iNumber) ); @@ -6471,122 +6474,122 @@ yyreduce: HB_COMP_EXPR_FREE( (yyvsp[-8].asExpr) ); HB_COMP_EXPR_FREE( (yyvsp[-6].asExpr) ); } -#line 6475 "harboury.c" /* yacc.c:1646 */ +#line 6478 "harboury.c" /* yacc.c:1646 */ break; case 556: -#line 1686 "harbour.y" /* yacc.c:1646 */ +#line 1689 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = 1; } -#line 6481 "harboury.c" /* yacc.c:1646 */ +#line 6484 "harboury.c" /* yacc.c:1646 */ break; case 557: -#line 1687 "harbour.y" /* yacc.c:1646 */ +#line 1690 "harbour.y" /* yacc.c:1646 */ { (yyval.iNumber) = -1; } -#line 6487 "harboury.c" /* yacc.c:1646 */ +#line 6490 "harboury.c" /* yacc.c:1646 */ break; case 558: -#line 1691 "harbour.y" /* yacc.c:1646 */ +#line 1694 "harbour.y" /* yacc.c:1646 */ { hb_compLoopStart( HB_COMP_PARAM, HB_FALSE ); hb_compSwitchStart( HB_COMP_PARAM, (yyvsp[0].asExpr) ); hb_compGenJump( 0, HB_COMP_PARAM ); } -#line 6497 "harboury.c" /* yacc.c:1646 */ +#line 6500 "harboury.c" /* yacc.c:1646 */ break; case 559: -#line 1698 "harbour.y" /* yacc.c:1646 */ +#line 1701 "harbour.y" /* yacc.c:1646 */ { hb_compSwitchEnd( HB_COMP_PARAM ); hb_compLoopEnd( HB_COMP_PARAM ); } -#line 6506 "harboury.c" /* yacc.c:1646 */ +#line 6509 "harboury.c" /* yacc.c:1646 */ break; case 560: -#line 1705 "harbour.y" /* yacc.c:1646 */ +#line 1708 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( (yyvsp[-1].asExpr) ); } -#line 6514 "harboury.c" /* yacc.c:1646 */ +#line 6517 "harboury.c" /* yacc.c:1646 */ break; case 561: -#line 1711 "harbour.y" /* yacc.c:1646 */ +#line 1714 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wSwitchCounter ) --HB_COMP_PARAM->functions.pLast->wSwitchCounter; HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); } -#line 6524 "harboury.c" /* yacc.c:1646 */ +#line 6527 "harboury.c" /* yacc.c:1646 */ break; case 564: -#line 1723 "harbour.y" /* yacc.c:1646 */ +#line 1726 "harbour.y" /* yacc.c:1646 */ { ++HB_COMP_PARAM->functions.pLast->wSwitchCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); } -#line 6533 "harboury.c" /* yacc.c:1646 */ +#line 6536 "harboury.c" /* yacc.c:1646 */ break; case 565: -#line 1728 "harbour.y" /* yacc.c:1646 */ +#line 1731 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprReduce( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 6541 "harboury.c" /* yacc.c:1646 */ +#line 6544 "harboury.c" /* yacc.c:1646 */ break; case 567: -#line 1735 "harbour.y" /* yacc.c:1646 */ +#line 1738 "harbour.y" /* yacc.c:1646 */ { if( (yyvsp[0].lNumber) > 0 ) { hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_MAYHEM_IN_CASE, NULL, NULL ); } } -#line 6552 "harboury.c" /* yacc.c:1646 */ +#line 6555 "harboury.c" /* yacc.c:1646 */ break; case 568: -#line 1743 "harbour.y" /* yacc.c:1646 */ +#line 1746 "harbour.y" /* yacc.c:1646 */ { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[0].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); } -#line 6558 "harboury.c" /* yacc.c:1646 */ +#line 6561 "harboury.c" /* yacc.c:1646 */ break; case 570: -#line 1746 "harbour.y" /* yacc.c:1646 */ +#line 1749 "harbour.y" /* yacc.c:1646 */ { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[0].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); } -#line 6564 "harboury.c" /* yacc.c:1646 */ +#line 6567 "harboury.c" /* yacc.c:1646 */ break; case 574: -#line 1754 "harbour.y" /* yacc.c:1646 */ +#line 1757 "harbour.y" /* yacc.c:1646 */ { hb_compSwitchAdd( HB_COMP_PARAM, NULL ); hb_compLinePush( HB_COMP_PARAM ); } -#line 6570 "harboury.c" /* yacc.c:1646 */ +#line 6573 "harboury.c" /* yacc.c:1646 */ break; case 575: -#line 1754 "harbour.y" /* yacc.c:1646 */ +#line 1757 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; } -#line 6576 "harboury.c" /* yacc.c:1646 */ +#line 6579 "harboury.c" /* yacc.c:1646 */ break; case 577: -#line 1759 "harbour.y" /* yacc.c:1646 */ +#line 1762 "harbour.y" /* yacc.c:1646 */ { /* 2 */ hb_compLinePushIfInside( HB_COMP_PARAM ); ++HB_COMP_PARAM->functions.pLast->wSeqCounter; (yyval.sNumber) = hb_compSequenceBegin( HB_COMP_PARAM ); } -#line 6586 "harboury.c" /* yacc.c:1646 */ +#line 6589 "harboury.c" /* yacc.c:1646 */ break; case 578: -#line 1767 "harbour.y" /* yacc.c:1646 */ +#line 1770 "harbour.y" /* yacc.c:1646 */ { /* 6 */ /* Set jump address for HB_P_SEQBEGIN opcode - this address * will be used in BREAK code if there is no RECOVER clause @@ -6597,11 +6600,11 @@ yyreduce: (yyval.sNumber) = hb_compSequenceEnd( HB_COMP_PARAM ); (yyvsp[-1].lNumber) = hb_compLoopCount( HB_COMP_PARAM ); } -#line 6601 "harboury.c" /* yacc.c:1646 */ +#line 6604 "harboury.c" /* yacc.c:1646 */ break; case 579: -#line 1778 "harbour.y" /* yacc.c:1646 */ +#line 1781 "harbour.y" /* yacc.c:1646 */ { /* 8 */ /* Replace END address with RECOVER address in * HB_P_SEQBEGIN opcode if there is RECOVER clause @@ -6611,11 +6614,11 @@ yyreduce: else if( HB_COMP_PARAM->functions.pLast->wSeqCounter ) --HB_COMP_PARAM->functions.pLast->wSeqCounter; } -#line 6615 "harboury.c" /* yacc.c:1646 */ +#line 6618 "harboury.c" /* yacc.c:1646 */ break; case 580: -#line 1788 "harbour.y" /* yacc.c:1646 */ +#line 1791 "harbour.y" /* yacc.c:1646 */ { /* 10 */ long lLoopCount = hb_compLoopCount( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); @@ -6644,50 +6647,50 @@ yyreduce: hb_compSequenceFinish( HB_COMP_PARAM, (yyvsp[-7].sNumber), (yyvsp[-3].sNumber), (yyvsp[0].sNumber), (yyvsp[-4].lNumber) != 0, (yyvsp[-2].sNumber) != 0, (yyvsp[-5].lNumber) == lLoopCount ); } -#line 6648 "harboury.c" /* yacc.c:1646 */ +#line 6651 "harboury.c" /* yacc.c:1646 */ break; case 584: -#line 1823 "harbour.y" /* yacc.c:1646 */ +#line 1826 "harbour.y" /* yacc.c:1646 */ { (yyval.sNumber) = 0; } -#line 6654 "harboury.c" /* yacc.c:1646 */ +#line 6657 "harboury.c" /* yacc.c:1646 */ break; case 585: -#line 1825 "harbour.y" /* yacc.c:1646 */ +#line 1828 "harbour.y" /* yacc.c:1646 */ { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[0].asExpr), HB_COMP_PARAM ) ); hb_compGenPCode1( HB_P_SEQBLOCK, HB_COMP_PARAM ); (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; } -#line 6664 "harboury.c" /* yacc.c:1646 */ +#line 6667 "harboury.c" /* yacc.c:1646 */ break; case 586: -#line 1832 "harbour.y" /* yacc.c:1646 */ +#line 1835 "harbour.y" /* yacc.c:1646 */ { (yyval.sNumber) = 0; } -#line 6670 "harboury.c" /* yacc.c:1646 */ +#line 6673 "harboury.c" /* yacc.c:1646 */ break; case 588: -#line 1837 "harbour.y" /* yacc.c:1646 */ +#line 1840 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( HB_FUNF_WITH_RETURN | HB_FUNF_BREAK_CODE ); (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; ++HB_COMP_PARAM->functions.pLast->wAlwaysCounter; hb_compSequenceAlways( HB_COMP_PARAM ); } -#line 6681 "harboury.c" /* yacc.c:1646 */ +#line 6684 "harboury.c" /* yacc.c:1646 */ break; case 589: -#line 1845 "harbour.y" /* yacc.c:1646 */ +#line 1848 "harbour.y" /* yacc.c:1646 */ { (yyval.sNumber) = 0; HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; } -#line 6687 "harboury.c" /* yacc.c:1646 */ +#line 6690 "harboury.c" /* yacc.c:1646 */ break; case 592: -#line 1851 "harbour.y" /* yacc.c:1646 */ +#line 1854 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -6696,11 +6699,11 @@ yyreduce: hb_compLinePushIfInside( HB_COMP_PARAM ); hb_compGenPCode2( HB_P_SEQRECOVER, HB_P_POP, HB_COMP_PARAM ); } -#line 6700 "harboury.c" /* yacc.c:1646 */ +#line 6703 "harboury.c" /* yacc.c:1646 */ break; case 593: -#line 1862 "harbour.y" /* yacc.c:1646 */ +#line 1865 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->functions.pLast->funFlags &= ~ HB_FUNF_BREAK_CODE; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -6710,77 +6713,77 @@ yyreduce: hb_compGenPCode1( HB_P_SEQRECOVER, HB_COMP_PARAM ); hb_compGenPopVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 6714 "harboury.c" /* yacc.c:1646 */ +#line 6717 "harboury.c" /* yacc.c:1646 */ break; case 594: -#line 1880 "harbour.y" /* yacc.c:1646 */ +#line 1883 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6722 "harboury.c" /* yacc.c:1646 */ +#line 6725 "harboury.c" /* yacc.c:1646 */ break; case 595: -#line 1884 "harbour.y" /* yacc.c:1646 */ +#line 1887 "harbour.y" /* yacc.c:1646 */ { hb_compModuleAdd( HB_COMP_PARAM, (yyvsp[-1].string), HB_FALSE ); /* DOIDENT is the only one identifier which can be returned in lower letters */ (yyval.asExpr) = hb_compExprNewFunCall( hb_compExprNewFunName( hb_compIdentifierNew( HB_COMP_PARAM, hb_strupr( hb_strdup( (yyvsp[-1].string) ) ), HB_IDENT_FREE ), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6732 "harboury.c" /* yacc.c:1646 */ +#line 6735 "harboury.c" /* yacc.c:1646 */ break; case 596: -#line 1891 "harbour.y" /* yacc.c:1646 */ +#line 1894 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; } -#line 6738 "harboury.c" /* yacc.c:1646 */ +#line 6741 "harboury.c" /* yacc.c:1646 */ break; case 597: -#line 1892 "harbour.y" /* yacc.c:1646 */ +#line 1895 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 6744 "harboury.c" /* yacc.c:1646 */ +#line 6747 "harboury.c" /* yacc.c:1646 */ break; case 598: -#line 1895 "harbour.y" /* yacc.c:1646 */ +#line 1898 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), hb_compExprNewNil( HB_COMP_PARAM ) ); } -#line 6750 "harboury.c" /* yacc.c:1646 */ +#line 6753 "harboury.c" /* yacc.c:1646 */ break; case 599: -#line 1896 "harbour.y" /* yacc.c:1646 */ +#line 1899 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), (yyvsp[0].asExpr) ); } -#line 6756 "harboury.c" /* yacc.c:1646 */ +#line 6759 "harboury.c" /* yacc.c:1646 */ break; case 600: -#line 1897 "harbour.y" /* yacc.c:1646 */ +#line 1900 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 6762 "harboury.c" /* yacc.c:1646 */ +#line 6765 "harboury.c" /* yacc.c:1646 */ break; case 601: -#line 1898 "harbour.y" /* yacc.c:1646 */ +#line 1901 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-1].asExpr), hb_compExprNewNil( HB_COMP_PARAM ) ); } -#line 6768 "harboury.c" /* yacc.c:1646 */ +#line 6771 "harboury.c" /* yacc.c:1646 */ break; case 602: -#line 1899 "harbour.y" /* yacc.c:1646 */ +#line 1902 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 6774 "harboury.c" /* yacc.c:1646 */ +#line 6777 "harboury.c" /* yacc.c:1646 */ break; case 603: -#line 1902 "harbour.y" /* yacc.c:1646 */ +#line 1905 "harbour.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 6780 "harboury.c" /* yacc.c:1646 */ +#line 6783 "harboury.c" /* yacc.c:1646 */ break; case 608: -#line 1910 "harbour.y" /* yacc.c:1646 */ +#line 1913 "harbour.y" /* yacc.c:1646 */ { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[-1].asExpr), HB_COMP_PARAM ) ); @@ -6788,11 +6791,11 @@ yyreduce: hb_compGenPCode1( HB_P_WITHOBJECTSTART, HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->wWithObjectCnt++; } -#line 6792 "harboury.c" /* yacc.c:1646 */ +#line 6795 "harboury.c" /* yacc.c:1646 */ break; case 609: -#line 1919 "harbour.y" /* yacc.c:1646 */ +#line 1922 "harbour.y" /* yacc.c:1646 */ { if( HB_COMP_PARAM->functions.pLast->wWithObjectCnt ) --HB_COMP_PARAM->functions.pLast->wWithObjectCnt; if( (yyvsp[-1].lNumber) ) @@ -6804,17 +6807,17 @@ yyreduce: hb_compGenPCode1( HB_P_POP, HB_COMP_PARAM ); } } -#line 6808 "harboury.c" /* yacc.c:1646 */ +#line 6811 "harboury.c" /* yacc.c:1646 */ break; case 612: -#line 1936 "harbour.y" /* yacc.c:1646 */ +#line 1939 "harbour.y" /* yacc.c:1646 */ { HB_COMP_PARAM->fError = HB_FALSE; } -#line 6814 "harboury.c" /* yacc.c:1646 */ +#line 6817 "harboury.c" /* yacc.c:1646 */ break; -#line 6818 "harboury.c" /* yacc.c:1646 */ +#line 6821 "harboury.c" /* yacc.c:1646 */ default: break; } /* User semantic actions sometimes alter yychar, and that requires @@ -7042,7 +7045,7 @@ yyreturn: #endif return yyresult; } -#line 1940 "harbour.y" /* yacc.c:1906 */ +#line 1943 "harbour.y" /* yacc.c:1906 */ /* diff --git a/src/compiler/harbour.yyh b/src/compiler/harbour.yyh index c9251b530d..83dfc87e67 100644 --- a/src/compiler/harbour.yyh +++ b/src/compiler/harbour.yyh @@ -162,7 +162,7 @@ extern int hb_comp_yydebug; typedef union YYSTYPE YYSTYPE; union YYSTYPE { -#line 121 "harbour.y" /* yacc.c:1909 */ +#line 124 "harbour.y" /* yacc.c:1909 */ const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ diff --git a/src/macro/macro.y b/src/macro/macro.y index 65cab693d2..f6595d561a 100644 --- a/src/macro/macro.y +++ b/src/macro/macro.y @@ -79,6 +79,9 @@ #elif defined( __WATCOMC__ ) # pragma warning 13 9 # pragma warning 368 9 +#elif defined( _MSC_VER ) +# pragma warning( disable : 4244 ) +# pragma warning( disable : 4702 ) #endif #undef alloca diff --git a/src/macro/macro.yyc b/src/macro/macro.yyc index 255e47a79f..f12c27b2e2 100644 --- a/src/macro/macro.yyc +++ b/src/macro/macro.yyc @@ -145,6 +145,9 @@ #elif defined( __WATCOMC__ ) # pragma warning 13 9 # pragma warning 368 9 +#elif defined( _MSC_VER ) +# pragma warning( disable : 4244 ) +# pragma warning( disable : 4702 ) #endif #undef alloca @@ -200,7 +203,7 @@ #endif -#line 204 "macroy.c" /* yacc.c:339 */ +#line 207 "macroy.c" /* yacc.c:339 */ # ifndef YY_NULLPTR # if defined __cplusplus && 201103L <= __cplusplus @@ -281,7 +284,7 @@ extern int hb_macro_yydebug; typedef union YYSTYPE YYSTYPE; union YYSTYPE { -#line 139 "macro.y" /* yacc.c:355 */ +#line 142 "macro.y" /* yacc.c:355 */ const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -314,7 +317,7 @@ union YYSTYPE long time; /* to hold milliseconds */ } valTimeStamp; -#line 318 "macroy.c" /* yacc.c:355 */ +#line 321 "macroy.c" /* yacc.c:355 */ }; # define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_DECLARED 1 @@ -327,7 +330,7 @@ int hb_macro_yyparse (PHB_MACRO pMacro); #endif /* !YY_HB_MACRO_YY_MACROY_H_INCLUDED */ /* Copy the second part of user declarations. */ -#line 172 "macro.y" /* yacc.c:358 */ +#line 175 "macro.y" /* yacc.c:358 */ /* This must be placed after the above union - the union is * typedef-ined to YYSTYPE @@ -337,7 +340,7 @@ extern int yyparse( PHB_MACRO ); /* main yacc parsing function */ extern void yyerror( PHB_MACRO, const char * ); /* parsing error management function */ -#line 341 "macroy.c" /* yacc.c:358 */ +#line 344 "macroy.c" /* yacc.c:358 */ #ifdef short # undef short @@ -638,27 +641,27 @@ static const yytype_uint8 yytranslate[] = /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 256, 256, 266, 274, 283, 284, 287, 290, 293, - 298, 303, 308, 309, 314, 319, 324, 329, 330, 333, - 334, 340, 343, 348, 351, 370, 375, 378, 385, 386, - 391, 392, 393, 394, 395, 398, 399, 400, 403, 404, - 405, 406, 407, 408, 409, 418, 419, 420, 421, 422, - 427, 428, 429, 430, 431, 432, 433, 434, 435, 436, - 437, 438, 439, 440, 441, 442, 443, 444, 445, 450, - 453, 458, 468, 469, 472, 473, 476, 477, 478, 479, - 480, 483, 484, 489, 492, 493, 494, 499, 503, 504, - 505, 506, 507, 508, 509, 510, 511, 512, 513, 514, - 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, - 525, 526, 527, 528, 529, 530, 531, 532, 535, 536, - 539, 540, 543, 543, 557, 558, 562, 563, 566, 567, - 568, 569, 570, 571, 572, 573, 574, 575, 576, 577, - 578, 579, 580, 581, 582, 583, 584, 585, 586, 587, - 593, 594, 600, 603, 604, 607, 608, 609, 612, 615, - 618, 621, 624, 627, 630, 633, 634, 635, 636, 637, - 638, 641, 642, 643, 644, 645, 646, 649, 650, 653, - 654, 655, 656, 657, 658, 659, 660, 661, 664, 670, - 671, 672, 675, 676, 680, 679, 687, 688, 693, 694, - 695, 696, 699, 700, 703, 704, 707, 710, 714 + 0, 259, 259, 269, 277, 286, 287, 290, 293, 296, + 301, 306, 311, 312, 317, 322, 327, 332, 333, 336, + 337, 343, 346, 351, 354, 373, 378, 381, 388, 389, + 394, 395, 396, 397, 398, 401, 402, 403, 406, 407, + 408, 409, 410, 411, 412, 421, 422, 423, 424, 425, + 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, + 440, 441, 442, 443, 444, 445, 446, 447, 448, 453, + 456, 461, 471, 472, 475, 476, 479, 480, 481, 482, + 483, 486, 487, 492, 495, 496, 497, 502, 506, 507, + 508, 509, 510, 511, 512, 513, 514, 515, 516, 517, + 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, + 528, 529, 530, 531, 532, 533, 534, 535, 538, 539, + 542, 543, 546, 546, 560, 561, 565, 566, 569, 570, + 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, + 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, + 596, 597, 603, 606, 607, 610, 611, 612, 615, 618, + 621, 624, 627, 630, 633, 636, 637, 638, 639, 640, + 641, 644, 645, 646, 647, 648, 649, 652, 653, 656, + 657, 658, 659, 660, 661, 662, 663, 664, 667, 673, + 674, 675, 678, 679, 683, 682, 690, 691, 696, 697, + 698, 699, 702, 703, 706, 707, 710, 713, 717 }; #endif @@ -1848,7 +1851,7 @@ yyreduce: switch (yyn) { case 2: -#line 256 "macro.y" /* yacc.c:1646 */ +#line 259 "macro.y" /* yacc.c:1646 */ { HB_MACRO_DATA->exprType = hb_compExprType( (yyvsp[0].asExpr) ); if( HB_MACRO_DATA->Flags & HB_MACRO_GEN_REFER ) @@ -1859,11 +1862,11 @@ yyreduce: hb_macroExprGenPop( (yyvsp[0].asExpr), HB_COMP_PARAM ); hb_macroGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); } -#line 1863 "macroy.c" /* yacc.c:1646 */ +#line 1866 "macroy.c" /* yacc.c:1646 */ break; case 3: -#line 266 "macro.y" /* yacc.c:1646 */ +#line 269 "macro.y" /* yacc.c:1646 */ { HB_MACRO_DATA->exprType = hb_compExprType( (yyvsp[0].asExpr) ); if( HB_MACRO_DATA->Flags & HB_MACRO_GEN_PUSH ) @@ -1872,137 +1875,137 @@ yyreduce: hb_macroError( EG_SYNTAX, HB_COMP_PARAM ); hb_macroGenPCode1( HB_P_ENDPROC, HB_COMP_PARAM ); } -#line 1876 "macroy.c" /* yacc.c:1646 */ +#line 1879 "macroy.c" /* yacc.c:1646 */ break; case 4: -#line 274 "macro.y" /* yacc.c:1646 */ +#line 277 "macro.y" /* yacc.c:1646 */ { HB_TRACE( HB_TR_DEBUG, ( "macro -> invalid syntax: %s", HB_MACRO_DATA->string ) ); hb_macroError( EG_SYNTAX, HB_COMP_PARAM ); HB_MACRO_ABORT; } -#line 1886 "macroy.c" /* yacc.c:1646 */ +#line 1889 "macroy.c" /* yacc.c:1646 */ break; case 5: -#line 283 "macro.y" /* yacc.c:1646 */ +#line 286 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[0].valDouble).dNumber, (yyvsp[0].valDouble).bWidth, (yyvsp[0].valDouble).bDec, HB_COMP_PARAM ); } -#line 1892 "macroy.c" /* yacc.c:1646 */ +#line 1895 "macroy.c" /* yacc.c:1646 */ break; case 6: -#line 284 "macro.y" /* yacc.c:1646 */ +#line 287 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[0].valLong).lNumber, HB_COMP_PARAM ); } -#line 1898 "macroy.c" /* yacc.c:1646 */ +#line 1901 "macroy.c" /* yacc.c:1646 */ break; case 7: -#line 287 "macro.y" /* yacc.c:1646 */ +#line 290 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewDate( ( long ) (yyvsp[0].valLong).lNumber, HB_COMP_PARAM ); } -#line 1904 "macroy.c" /* yacc.c:1646 */ +#line 1907 "macroy.c" /* yacc.c:1646 */ break; case 8: -#line 290 "macro.y" /* yacc.c:1646 */ +#line 293 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewTimeStamp( (yyvsp[0].valTimeStamp).date, (yyvsp[0].valTimeStamp).time, HB_COMP_PARAM ); } -#line 1910 "macroy.c" /* yacc.c:1646 */ +#line 1913 "macroy.c" /* yacc.c:1646 */ break; case 9: -#line 293 "macro.y" /* yacc.c:1646 */ +#line 296 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[-1].valLong).lNumber, HB_COMP_PARAM ); } -#line 1916 "macroy.c" /* yacc.c:1646 */ +#line 1919 "macroy.c" /* yacc.c:1646 */ break; case 10: -#line 298 "macro.y" /* yacc.c:1646 */ +#line 301 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNil( HB_COMP_PARAM ); } -#line 1922 "macroy.c" /* yacc.c:1646 */ +#line 1925 "macroy.c" /* yacc.c:1646 */ break; case 11: -#line 303 "macro.y" /* yacc.c:1646 */ +#line 306 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewString( (yyvsp[0].valChar).string, (yyvsp[0].valChar).length, HB_FALSE, HB_COMP_PARAM ); } -#line 1928 "macroy.c" /* yacc.c:1646 */ +#line 1931 "macroy.c" /* yacc.c:1646 */ break; case 12: -#line 308 "macro.y" /* yacc.c:1646 */ +#line 311 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLogical( HB_TRUE, HB_COMP_PARAM ); } -#line 1934 "macroy.c" /* yacc.c:1646 */ +#line 1937 "macroy.c" /* yacc.c:1646 */ break; case 13: -#line 309 "macro.y" /* yacc.c:1646 */ +#line 312 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewLogical( HB_FALSE, HB_COMP_PARAM ); } -#line 1940 "macroy.c" /* yacc.c:1646 */ +#line 1943 "macroy.c" /* yacc.c:1646 */ break; case 14: -#line 314 "macro.y" /* yacc.c:1646 */ +#line 317 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewSelf( HB_COMP_PARAM ); } -#line 1946 "macroy.c" /* yacc.c:1646 */ +#line 1949 "macroy.c" /* yacc.c:1646 */ break; case 15: -#line 319 "macro.y" /* yacc.c:1646 */ +#line 322 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArray( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 1952 "macroy.c" /* yacc.c:1646 */ +#line 1955 "macroy.c" /* yacc.c:1646 */ break; case 16: -#line 324 "macro.y" /* yacc.c:1646 */ +#line 327 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 1958 "macroy.c" /* yacc.c:1646 */ +#line 1961 "macroy.c" /* yacc.c:1646 */ break; case 17: -#line 329 "macro.y" /* yacc.c:1646 */ +#line 332 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewHash( NULL, HB_COMP_PARAM ); } -#line 1964 "macroy.c" /* yacc.c:1646 */ +#line 1967 "macroy.c" /* yacc.c:1646 */ break; case 18: -#line 330 "macro.y" /* yacc.c:1646 */ +#line 333 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewHash( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 1970 "macroy.c" /* yacc.c:1646 */ +#line 1973 "macroy.c" /* yacc.c:1646 */ break; case 19: -#line 333 "macro.y" /* yacc.c:1646 */ +#line 336 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr) ); } -#line 1976 "macroy.c" /* yacc.c:1646 */ +#line 1979 "macroy.c" /* yacc.c:1646 */ break; case 20: -#line 334 "macro.y" /* yacc.c:1646 */ +#line 337 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprAddListExpr( (yyvsp[-4].asExpr), (yyvsp[-2].asExpr) ), (yyvsp[0].asExpr) ); } -#line 1982 "macroy.c" /* yacc.c:1646 */ +#line 1985 "macroy.c" /* yacc.c:1646 */ break; case 21: -#line 340 "macro.y" /* yacc.c:1646 */ +#line 343 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 1988 "macroy.c" /* yacc.c:1646 */ +#line 1991 "macroy.c" /* yacc.c:1646 */ break; case 22: -#line 343 "macro.y" /* yacc.c:1646 */ +#line 346 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAlias( (yyvsp[-1].string), HB_COMP_PARAM ); } -#line 1994 "macroy.c" /* yacc.c:1646 */ +#line 1997 "macroy.c" /* yacc.c:1646 */ break; case 23: -#line 348 "macro.y" /* yacc.c:1646 */ +#line 351 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacro( NULL, '&', (yyvsp[0].string), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2002 "macroy.c" /* yacc.c:1646 */ +#line 2005 "macroy.c" /* yacc.c:1646 */ break; case 24: -#line 351 "macro.y" /* yacc.c:1646 */ +#line 354 "macro.y" /* yacc.c:1646 */ { HB_BOOL fNewString; char * szVarName = hb_macroTextSymbol( (yyvsp[0].string), strlen( (yyvsp[0].string) ), &fNewString ); if( szVarName ) @@ -2020,273 +2023,273 @@ yyreduce: YYABORT; } } -#line 2024 "macroy.c" /* yacc.c:1646 */ +#line 2027 "macroy.c" /* yacc.c:1646 */ break; case 25: -#line 370 "macro.y" /* yacc.c:1646 */ +#line 373 "macro.y" /* yacc.c:1646 */ { hb_compExprMacroAsAlias( (yyvsp[-1].asExpr) ); } -#line 2030 "macroy.c" /* yacc.c:1646 */ +#line 2033 "macroy.c" /* yacc.c:1646 */ break; case 26: -#line 375 "macro.y" /* yacc.c:1646 */ +#line 378 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacro( (yyvsp[0].asExpr), 0, NULL, HB_COMP_PARAM ); } -#line 2036 "macroy.c" /* yacc.c:1646 */ +#line 2039 "macroy.c" /* yacc.c:1646 */ break; case 28: -#line 385 "macro.y" /* yacc.c:1646 */ +#line 388 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAlias( "FIELD", HB_COMP_PARAM ); } -#line 2042 "macroy.c" /* yacc.c:1646 */ +#line 2045 "macroy.c" /* yacc.c:1646 */ break; case 29: -#line 386 "macro.y" /* yacc.c:1646 */ +#line 389 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2048 "macroy.c" /* yacc.c:1646 */ +#line 2051 "macroy.c" /* yacc.c:1646 */ break; case 30: -#line 391 "macro.y" /* yacc.c:1646 */ +#line 394 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2054 "macroy.c" /* yacc.c:1646 */ +#line 2057 "macroy.c" /* yacc.c:1646 */ break; case 31: -#line 392 "macro.y" /* yacc.c:1646 */ +#line 395 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2060 "macroy.c" /* yacc.c:1646 */ +#line 2063 "macroy.c" /* yacc.c:1646 */ break; case 32: -#line 393 "macro.y" /* yacc.c:1646 */ +#line 396 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2066 "macroy.c" /* yacc.c:1646 */ +#line 2069 "macroy.c" /* yacc.c:1646 */ break; case 33: -#line 394 "macro.y" /* yacc.c:1646 */ +#line 397 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2072 "macroy.c" /* yacc.c:1646 */ +#line 2075 "macroy.c" /* yacc.c:1646 */ break; case 34: -#line 395 "macro.y" /* yacc.c:1646 */ +#line 398 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2078 "macroy.c" /* yacc.c:1646 */ +#line 2081 "macroy.c" /* yacc.c:1646 */ break; case 35: -#line 398 "macro.y" /* yacc.c:1646 */ +#line 401 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 2084 "macroy.c" /* yacc.c:1646 */ +#line 2087 "macroy.c" /* yacc.c:1646 */ break; case 38: -#line 403 "macro.y" /* yacc.c:1646 */ +#line 406 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2090 "macroy.c" /* yacc.c:1646 */ +#line 2093 "macroy.c" /* yacc.c:1646 */ break; case 39: -#line 404 "macro.y" /* yacc.c:1646 */ +#line 407 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2096 "macroy.c" /* yacc.c:1646 */ +#line 2099 "macroy.c" /* yacc.c:1646 */ break; case 40: -#line 405 "macro.y" /* yacc.c:1646 */ +#line 408 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2102 "macroy.c" /* yacc.c:1646 */ +#line 2105 "macroy.c" /* yacc.c:1646 */ break; case 41: -#line 406 "macro.y" /* yacc.c:1646 */ +#line 409 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2108 "macroy.c" /* yacc.c:1646 */ +#line 2111 "macroy.c" /* yacc.c:1646 */ break; case 42: -#line 407 "macro.y" /* yacc.c:1646 */ +#line 410 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2114 "macroy.c" /* yacc.c:1646 */ +#line 2117 "macroy.c" /* yacc.c:1646 */ break; case 43: -#line 408 "macro.y" /* yacc.c:1646 */ +#line 411 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2120 "macroy.c" /* yacc.c:1646 */ +#line 2123 "macroy.c" /* yacc.c:1646 */ break; case 44: -#line 409 "macro.y" /* yacc.c:1646 */ +#line 412 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2126 "macroy.c" /* yacc.c:1646 */ +#line 2129 "macroy.c" /* yacc.c:1646 */ break; case 45: -#line 418 "macro.y" /* yacc.c:1646 */ +#line 421 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2132 "macroy.c" /* yacc.c:1646 */ +#line 2135 "macroy.c" /* yacc.c:1646 */ break; case 46: -#line 419 "macro.y" /* yacc.c:1646 */ +#line 422 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2138 "macroy.c" /* yacc.c:1646 */ +#line 2141 "macroy.c" /* yacc.c:1646 */ break; case 47: -#line 420 "macro.y" /* yacc.c:1646 */ +#line 423 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2144 "macroy.c" /* yacc.c:1646 */ +#line 2147 "macroy.c" /* yacc.c:1646 */ break; case 48: -#line 421 "macro.y" /* yacc.c:1646 */ +#line 424 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2150 "macroy.c" /* yacc.c:1646 */ +#line 2153 "macroy.c" /* yacc.c:1646 */ break; case 49: -#line 422 "macro.y" /* yacc.c:1646 */ +#line 425 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[-1].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2156 "macroy.c" /* yacc.c:1646 */ +#line 2159 "macroy.c" /* yacc.c:1646 */ break; case 50: -#line 427 "macro.y" /* yacc.c:1646 */ +#line 430 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2162 "macroy.c" /* yacc.c:1646 */ +#line 2165 "macroy.c" /* yacc.c:1646 */ break; case 51: -#line 428 "macro.y" /* yacc.c:1646 */ +#line 431 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2168 "macroy.c" /* yacc.c:1646 */ +#line 2171 "macroy.c" /* yacc.c:1646 */ break; case 52: -#line 429 "macro.y" /* yacc.c:1646 */ +#line 432 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2174 "macroy.c" /* yacc.c:1646 */ +#line 2177 "macroy.c" /* yacc.c:1646 */ break; case 53: -#line 430 "macro.y" /* yacc.c:1646 */ +#line 433 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2180 "macroy.c" /* yacc.c:1646 */ +#line 2183 "macroy.c" /* yacc.c:1646 */ break; case 54: -#line 431 "macro.y" /* yacc.c:1646 */ +#line 434 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2186 "macroy.c" /* yacc.c:1646 */ +#line 2189 "macroy.c" /* yacc.c:1646 */ break; case 55: -#line 432 "macro.y" /* yacc.c:1646 */ +#line 435 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2192 "macroy.c" /* yacc.c:1646 */ +#line 2195 "macroy.c" /* yacc.c:1646 */ break; case 56: -#line 433 "macro.y" /* yacc.c:1646 */ +#line 436 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2198 "macroy.c" /* yacc.c:1646 */ +#line 2201 "macroy.c" /* yacc.c:1646 */ break; case 57: -#line 434 "macro.y" /* yacc.c:1646 */ +#line 437 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2204 "macroy.c" /* yacc.c:1646 */ +#line 2207 "macroy.c" /* yacc.c:1646 */ break; case 58: -#line 435 "macro.y" /* yacc.c:1646 */ +#line 438 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2210 "macroy.c" /* yacc.c:1646 */ +#line 2213 "macroy.c" /* yacc.c:1646 */ break; case 59: -#line 436 "macro.y" /* yacc.c:1646 */ +#line 439 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2216 "macroy.c" /* yacc.c:1646 */ +#line 2219 "macroy.c" /* yacc.c:1646 */ break; case 60: -#line 437 "macro.y" /* yacc.c:1646 */ +#line 440 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2222 "macroy.c" /* yacc.c:1646 */ +#line 2225 "macroy.c" /* yacc.c:1646 */ break; case 61: -#line 438 "macro.y" /* yacc.c:1646 */ +#line 441 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2228 "macroy.c" /* yacc.c:1646 */ +#line 2231 "macroy.c" /* yacc.c:1646 */ break; case 62: -#line 439 "macro.y" /* yacc.c:1646 */ +#line 442 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2234 "macroy.c" /* yacc.c:1646 */ +#line 2237 "macroy.c" /* yacc.c:1646 */ break; case 63: -#line 440 "macro.y" /* yacc.c:1646 */ +#line 443 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2240 "macroy.c" /* yacc.c:1646 */ +#line 2243 "macroy.c" /* yacc.c:1646 */ break; case 64: -#line 441 "macro.y" /* yacc.c:1646 */ +#line 444 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2246 "macroy.c" /* yacc.c:1646 */ +#line 2249 "macroy.c" /* yacc.c:1646 */ break; case 65: -#line 442 "macro.y" /* yacc.c:1646 */ +#line 445 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2252 "macroy.c" /* yacc.c:1646 */ +#line 2255 "macroy.c" /* yacc.c:1646 */ break; case 66: -#line 443 "macro.y" /* yacc.c:1646 */ +#line 446 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2258 "macroy.c" /* yacc.c:1646 */ +#line 2261 "macroy.c" /* yacc.c:1646 */ break; case 67: -#line 444 "macro.y" /* yacc.c:1646 */ +#line 447 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2264 "macroy.c" /* yacc.c:1646 */ +#line 2267 "macroy.c" /* yacc.c:1646 */ break; case 68: -#line 445 "macro.y" /* yacc.c:1646 */ +#line 448 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2270 "macroy.c" /* yacc.c:1646 */ +#line 2273 "macroy.c" /* yacc.c:1646 */ break; case 69: -#line 450 "macro.y" /* yacc.c:1646 */ +#line 453 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_macroExprNewFunCall( hb_compExprNewFunName( (yyvsp[-3].string), HB_COMP_PARAM ), (yyvsp[-1].asExpr), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2278 "macroy.c" /* yacc.c:1646 */ +#line 2281 "macroy.c" /* yacc.c:1646 */ break; case 70: -#line 453 "macro.y" /* yacc.c:1646 */ +#line 456 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_macroExprNewFunCall( (yyvsp[-3].asExpr), (yyvsp[-1].asExpr), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2286 "macroy.c" /* yacc.c:1646 */ +#line 2289 "macroy.c" /* yacc.c:1646 */ break; case 71: -#line 458 "macro.y" /* yacc.c:1646 */ +#line 461 "macro.y" /* yacc.c:1646 */ { if( hb_compExprParamListLen( (yyvsp[-1].asExpr) ) != 0 ) { hb_macroError( EG_SYNTAX, HB_COMP_PARAM ); @@ -2295,125 +2298,125 @@ yyreduce: else (yyval.asExpr) = hb_compExprNewFunRef( (yyvsp[-3].string), HB_COMP_PARAM ); } -#line 2299 "macroy.c" /* yacc.c:1646 */ +#line 2302 "macroy.c" /* yacc.c:1646 */ break; case 72: -#line 468 "macro.y" /* yacc.c:1646 */ +#line 471 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2305 "macroy.c" /* yacc.c:1646 */ +#line 2308 "macroy.c" /* yacc.c:1646 */ break; case 73: -#line 469 "macro.y" /* yacc.c:1646 */ +#line 472 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 2311 "macroy.c" /* yacc.c:1646 */ +#line 2314 "macroy.c" /* yacc.c:1646 */ break; case 76: -#line 476 "macro.y" /* yacc.c:1646 */ +#line 479 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 2317 "macroy.c" /* yacc.c:1646 */ +#line 2320 "macroy.c" /* yacc.c:1646 */ break; case 77: -#line 477 "macro.y" /* yacc.c:1646 */ +#line 480 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2323 "macroy.c" /* yacc.c:1646 */ +#line 2326 "macroy.c" /* yacc.c:1646 */ break; case 78: -#line 478 "macro.y" /* yacc.c:1646 */ +#line 481 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2329 "macroy.c" /* yacc.c:1646 */ +#line 2332 "macroy.c" /* yacc.c:1646 */ break; case 79: -#line 479 "macro.y" /* yacc.c:1646 */ +#line 482 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2335 "macroy.c" /* yacc.c:1646 */ +#line 2338 "macroy.c" /* yacc.c:1646 */ break; case 80: -#line 480 "macro.y" /* yacc.c:1646 */ +#line 483 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); (yyval.asExpr)->value.asList.reference = HB_TRUE; } -#line 2341 "macroy.c" /* yacc.c:1646 */ +#line 2344 "macroy.c" /* yacc.c:1646 */ break; case 81: -#line 483 "macro.y" /* yacc.c:1646 */ +#line 486 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } -#line 2347 "macroy.c" /* yacc.c:1646 */ +#line 2350 "macroy.c" /* yacc.c:1646 */ break; case 83: -#line 489 "macro.y" /* yacc.c:1646 */ +#line 492 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMethodObject( (yyvsp[0].asExpr), (yyvsp[-2].asExpr) ); } -#line 2353 "macroy.c" /* yacc.c:1646 */ +#line 2356 "macroy.c" /* yacc.c:1646 */ break; case 84: -#line 492 "macro.y" /* yacc.c:1646 */ +#line 495 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewSend( (yyvsp[0].string), HB_COMP_PARAM ); } -#line 2359 "macroy.c" /* yacc.c:1646 */ +#line 2362 "macroy.c" /* yacc.c:1646 */ break; case 85: -#line 493 "macro.y" /* yacc.c:1646 */ +#line 496 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2365 "macroy.c" /* yacc.c:1646 */ +#line 2368 "macroy.c" /* yacc.c:1646 */ break; case 86: -#line 494 "macro.y" /* yacc.c:1646 */ +#line 497 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2371 "macroy.c" /* yacc.c:1646 */ +#line 2374 "macroy.c" /* yacc.c:1646 */ break; case 87: -#line 499 "macro.y" /* yacc.c:1646 */ +#line 502 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewMethodCall( (yyvsp[-3].asExpr), (yyvsp[-1].asExpr) ); } -#line 2377 "macroy.c" /* yacc.c:1646 */ +#line 2380 "macroy.c" /* yacc.c:1646 */ break; case 110: -#line 525 "macro.y" /* yacc.c:1646 */ +#line 528 "macro.y" /* yacc.c:1646 */ { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[0].asExpr), HB_SM_HARBOUR ); } -#line 2383 "macroy.c" /* yacc.c:1646 */ +#line 2386 "macroy.c" /* yacc.c:1646 */ break; case 111: -#line 526 "macro.y" /* yacc.c:1646 */ +#line 529 "macro.y" /* yacc.c:1646 */ { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[0].asExpr), HB_SM_HARBOUR ); } -#line 2389 "macroy.c" /* yacc.c:1646 */ +#line 2392 "macroy.c" /* yacc.c:1646 */ break; case 112: -#line 527 "macro.y" /* yacc.c:1646 */ +#line 530 "macro.y" /* yacc.c:1646 */ { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[0].asExpr), HB_SM_HARBOUR ); } -#line 2395 "macroy.c" /* yacc.c:1646 */ +#line 2398 "macroy.c" /* yacc.c:1646 */ break; case 118: -#line 535 "macro.y" /* yacc.c:1646 */ +#line 538 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2401 "macroy.c" /* yacc.c:1646 */ +#line 2404 "macroy.c" /* yacc.c:1646 */ break; case 119: -#line 536 "macro.y" /* yacc.c:1646 */ +#line 539 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2407 "macroy.c" /* yacc.c:1646 */ +#line 2410 "macroy.c" /* yacc.c:1646 */ break; case 120: -#line 539 "macro.y" /* yacc.c:1646 */ +#line 542 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } -#line 2413 "macroy.c" /* yacc.c:1646 */ +#line 2416 "macroy.c" /* yacc.c:1646 */ break; case 122: -#line 543 "macro.y" /* yacc.c:1646 */ +#line 546 "macro.y" /* yacc.c:1646 */ { if( !( HB_MACRO_DATA->Flags & HB_MACRO_GEN_LIST ) ) { @@ -2422,339 +2425,339 @@ yyreduce: YYABORT; } } -#line 2426 "macroy.c" /* yacc.c:1646 */ +#line 2429 "macroy.c" /* yacc.c:1646 */ break; case 123: -#line 551 "macro.y" /* yacc.c:1646 */ +#line 554 "macro.y" /* yacc.c:1646 */ { HB_MACRO_DATA->uiListElements = 1; (yyval.asExpr) = hb_compExprAddListExpr( ( HB_MACRO_DATA->Flags & HB_MACRO_GEN_PARE ) ? hb_compExprNewList( (yyvsp[-3].asExpr), HB_COMP_PARAM ) : hb_compExprNewArgList( (yyvsp[-3].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr) ); } -#line 2435 "macroy.c" /* yacc.c:1646 */ +#line 2438 "macroy.c" /* yacc.c:1646 */ break; case 125: -#line 558 "macro.y" /* yacc.c:1646 */ +#line 561 "macro.y" /* yacc.c:1646 */ { HB_MACRO_DATA->uiListElements++; (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 2442 "macroy.c" /* yacc.c:1646 */ +#line 2445 "macroy.c" /* yacc.c:1646 */ break; case 126: -#line 562 "macro.y" /* yacc.c:1646 */ +#line 565 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); } -#line 2448 "macroy.c" /* yacc.c:1646 */ +#line 2451 "macroy.c" /* yacc.c:1646 */ break; case 148: -#line 586 "macro.y" /* yacc.c:1646 */ +#line 589 "macro.y" /* yacc.c:1646 */ { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[0].asExpr), HB_SM_HARBOUR ); } -#line 2454 "macroy.c" /* yacc.c:1646 */ +#line 2457 "macroy.c" /* yacc.c:1646 */ break; case 150: -#line 593 "macro.y" /* yacc.c:1646 */ +#line 596 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 2460 "macroy.c" /* yacc.c:1646 */ +#line 2463 "macroy.c" /* yacc.c:1646 */ break; case 151: -#line 594 "macro.y" /* yacc.c:1646 */ +#line 597 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[-1].asExpr), HB_COMP_PARAM ); } -#line 2466 "macroy.c" /* yacc.c:1646 */ +#line 2469 "macroy.c" /* yacc.c:1646 */ break; case 152: -#line 600 "macro.y" /* yacc.c:1646 */ +#line 603 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2472 "macroy.c" /* yacc.c:1646 */ +#line 2475 "macroy.c" /* yacc.c:1646 */ break; case 153: -#line 603 "macro.y" /* yacc.c:1646 */ +#line 606 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2478 "macroy.c" /* yacc.c:1646 */ +#line 2481 "macroy.c" /* yacc.c:1646 */ break; case 154: -#line 604 "macro.y" /* yacc.c:1646 */ +#line 607 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2484 "macroy.c" /* yacc.c:1646 */ +#line 2487 "macroy.c" /* yacc.c:1646 */ break; case 155: -#line 607 "macro.y" /* yacc.c:1646 */ +#line 610 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2490 "macroy.c" /* yacc.c:1646 */ +#line 2493 "macroy.c" /* yacc.c:1646 */ break; case 156: -#line 608 "macro.y" /* yacc.c:1646 */ +#line 611 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2496 "macroy.c" /* yacc.c:1646 */ +#line 2499 "macroy.c" /* yacc.c:1646 */ break; case 157: -#line 609 "macro.y" /* yacc.c:1646 */ +#line 612 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2502 "macroy.c" /* yacc.c:1646 */ +#line 2505 "macroy.c" /* yacc.c:1646 */ break; case 158: -#line 612 "macro.y" /* yacc.c:1646 */ +#line 615 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAssign( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2508 "macroy.c" /* yacc.c:1646 */ +#line 2511 "macroy.c" /* yacc.c:1646 */ break; case 159: -#line 615 "macro.y" /* yacc.c:1646 */ +#line 618 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2514 "macroy.c" /* yacc.c:1646 */ +#line 2517 "macroy.c" /* yacc.c:1646 */ break; case 160: -#line 618 "macro.y" /* yacc.c:1646 */ +#line 621 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2520 "macroy.c" /* yacc.c:1646 */ +#line 2523 "macroy.c" /* yacc.c:1646 */ break; case 161: -#line 621 "macro.y" /* yacc.c:1646 */ +#line 624 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2526 "macroy.c" /* yacc.c:1646 */ +#line 2529 "macroy.c" /* yacc.c:1646 */ break; case 162: -#line 624 "macro.y" /* yacc.c:1646 */ +#line 627 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2532 "macroy.c" /* yacc.c:1646 */ +#line 2535 "macroy.c" /* yacc.c:1646 */ break; case 163: -#line 627 "macro.y" /* yacc.c:1646 */ +#line 630 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2538 "macroy.c" /* yacc.c:1646 */ +#line 2541 "macroy.c" /* yacc.c:1646 */ break; case 164: -#line 630 "macro.y" /* yacc.c:1646 */ +#line 633 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewExpEq( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2544 "macroy.c" /* yacc.c:1646 */ +#line 2547 "macroy.c" /* yacc.c:1646 */ break; case 171: -#line 641 "macro.y" /* yacc.c:1646 */ +#line 644 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlus( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2550 "macroy.c" /* yacc.c:1646 */ +#line 2553 "macroy.c" /* yacc.c:1646 */ break; case 172: -#line 642 "macro.y" /* yacc.c:1646 */ +#line 645 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinus( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2556 "macroy.c" /* yacc.c:1646 */ +#line 2559 "macroy.c" /* yacc.c:1646 */ break; case 173: -#line 643 "macro.y" /* yacc.c:1646 */ +#line 646 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMult( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2562 "macroy.c" /* yacc.c:1646 */ +#line 2565 "macroy.c" /* yacc.c:1646 */ break; case 174: -#line 644 "macro.y" /* yacc.c:1646 */ +#line 647 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2568 "macroy.c" /* yacc.c:1646 */ +#line 2571 "macroy.c" /* yacc.c:1646 */ break; case 175: -#line 645 "macro.y" /* yacc.c:1646 */ +#line 648 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2574 "macroy.c" /* yacc.c:1646 */ +#line 2577 "macroy.c" /* yacc.c:1646 */ break; case 176: -#line 646 "macro.y" /* yacc.c:1646 */ +#line 649 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2580 "macroy.c" /* yacc.c:1646 */ +#line 2583 "macroy.c" /* yacc.c:1646 */ break; case 177: -#line 649 "macro.y" /* yacc.c:1646 */ +#line 652 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2586 "macroy.c" /* yacc.c:1646 */ +#line 2589 "macroy.c" /* yacc.c:1646 */ break; case 178: -#line 650 "macro.y" /* yacc.c:1646 */ +#line 653 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2592 "macroy.c" /* yacc.c:1646 */ +#line 2595 "macroy.c" /* yacc.c:1646 */ break; case 179: -#line 653 "macro.y" /* yacc.c:1646 */ +#line 656 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2598 "macroy.c" /* yacc.c:1646 */ +#line 2601 "macroy.c" /* yacc.c:1646 */ break; case 180: -#line 654 "macro.y" /* yacc.c:1646 */ +#line 657 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2604 "macroy.c" /* yacc.c:1646 */ +#line 2607 "macroy.c" /* yacc.c:1646 */ break; case 181: -#line 655 "macro.y" /* yacc.c:1646 */ +#line 658 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2610 "macroy.c" /* yacc.c:1646 */ +#line 2613 "macroy.c" /* yacc.c:1646 */ break; case 182: -#line 656 "macro.y" /* yacc.c:1646 */ +#line 659 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2616 "macroy.c" /* yacc.c:1646 */ +#line 2619 "macroy.c" /* yacc.c:1646 */ break; case 183: -#line 657 "macro.y" /* yacc.c:1646 */ +#line 660 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2622 "macroy.c" /* yacc.c:1646 */ +#line 2625 "macroy.c" /* yacc.c:1646 */ break; case 184: -#line 658 "macro.y" /* yacc.c:1646 */ +#line 661 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2628 "macroy.c" /* yacc.c:1646 */ +#line 2631 "macroy.c" /* yacc.c:1646 */ break; case 185: -#line 659 "macro.y" /* yacc.c:1646 */ +#line 662 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2634 "macroy.c" /* yacc.c:1646 */ +#line 2637 "macroy.c" /* yacc.c:1646 */ break; case 186: -#line 660 "macro.y" /* yacc.c:1646 */ +#line 663 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2640 "macroy.c" /* yacc.c:1646 */ +#line 2643 "macroy.c" /* yacc.c:1646 */ break; case 187: -#line 661 "macro.y" /* yacc.c:1646 */ +#line 664 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[-2].asExpr), HB_COMP_PARAM ), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2646 "macroy.c" /* yacc.c:1646 */ +#line 2649 "macroy.c" /* yacc.c:1646 */ break; case 189: -#line 670 "macro.y" /* yacc.c:1646 */ +#line 673 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2652 "macroy.c" /* yacc.c:1646 */ +#line 2655 "macroy.c" /* yacc.c:1646 */ break; case 190: -#line 671 "macro.y" /* yacc.c:1646 */ +#line 674 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[-2].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2658 "macroy.c" /* yacc.c:1646 */ +#line 2661 "macroy.c" /* yacc.c:1646 */ break; case 191: -#line 672 "macro.y" /* yacc.c:1646 */ +#line 675 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[-3].asExpr), (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2664 "macroy.c" /* yacc.c:1646 */ +#line 2667 "macroy.c" /* yacc.c:1646 */ break; case 192: -#line 675 "macro.y" /* yacc.c:1646 */ +#line 678 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2670 "macroy.c" /* yacc.c:1646 */ +#line 2673 "macroy.c" /* yacc.c:1646 */ break; case 193: -#line 676 "macro.y" /* yacc.c:1646 */ +#line 679 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 2676 "macroy.c" /* yacc.c:1646 */ +#line 2679 "macroy.c" /* yacc.c:1646 */ break; case 194: -#line 680 "macro.y" /* yacc.c:1646 */ +#line 683 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewCodeBlock( NULL, 0, 0, HB_COMP_PARAM ); } -#line 2682 "macroy.c" /* yacc.c:1646 */ +#line 2685 "macroy.c" /* yacc.c:1646 */ break; case 195: -#line 682 "macro.y" /* yacc.c:1646 */ +#line 685 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-4].asExpr); } -#line 2688 "macroy.c" /* yacc.c:1646 */ +#line 2691 "macroy.c" /* yacc.c:1646 */ break; case 196: -#line 687 "macro.y" /* yacc.c:1646 */ +#line 690 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (1)].asExpr), (yyvsp[0].asExpr) ); } -#line 2694 "macroy.c" /* yacc.c:1646 */ +#line 2697 "macroy.c" /* yacc.c:1646 */ break; case 197: -#line 688 "macro.y" /* yacc.c:1646 */ +#line 691 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (3)].asExpr), (yyvsp[0].asExpr) ); } -#line 2700 "macroy.c" /* yacc.c:1646 */ +#line 2703 "macroy.c" /* yacc.c:1646 */ break; case 198: -#line 693 "macro.y" /* yacc.c:1646 */ +#line 696 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; } -#line 2706 "macroy.c" /* yacc.c:1646 */ +#line 2709 "macroy.c" /* yacc.c:1646 */ break; case 199: -#line 694 "macro.y" /* yacc.c:1646 */ +#line 697 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = NULL; (yyvsp[-1].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } -#line 2712 "macroy.c" /* yacc.c:1646 */ +#line 2715 "macroy.c" /* yacc.c:1646 */ break; case 200: -#line 695 "macro.y" /* yacc.c:1646 */ +#line 698 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[0].asExpr); } -#line 2718 "macroy.c" /* yacc.c:1646 */ +#line 2721 "macroy.c" /* yacc.c:1646 */ break; case 201: -#line 696 "macro.y" /* yacc.c:1646 */ +#line 699 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = (yyvsp[-2].asExpr); (yyvsp[-3].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } -#line 2724 "macroy.c" /* yacc.c:1646 */ +#line 2727 "macroy.c" /* yacc.c:1646 */ break; case 202: -#line 699 "macro.y" /* yacc.c:1646 */ +#line 702 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[-1].asExpr), (yyvsp[0].string), ' ', HB_COMP_PARAM ); } -#line 2730 "macroy.c" /* yacc.c:1646 */ +#line 2733 "macroy.c" /* yacc.c:1646 */ break; case 203: -#line 700 "macro.y" /* yacc.c:1646 */ +#line 703 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[-3].asExpr), (yyvsp[0].string), ' ', HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } -#line 2736 "macroy.c" /* yacc.c:1646 */ +#line 2739 "macroy.c" /* yacc.c:1646 */ break; case 204: -#line 703 "macro.y" /* yacc.c:1646 */ +#line 706 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewList( (yyvsp[0].asExpr), HB_COMP_PARAM ); } -#line 2742 "macroy.c" /* yacc.c:1646 */ +#line 2745 "macroy.c" /* yacc.c:1646 */ break; case 205: -#line 704 "macro.y" /* yacc.c:1646 */ +#line 707 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[-2].asExpr), (yyvsp[0].asExpr) ); } -#line 2748 "macroy.c" /* yacc.c:1646 */ +#line 2751 "macroy.c" /* yacc.c:1646 */ break; case 208: -#line 715 "macro.y" /* yacc.c:1646 */ +#line 718 "macro.y" /* yacc.c:1646 */ { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[-5].asExpr), HB_COMP_PARAM ), (yyvsp[-3].asExpr) ), (yyvsp[-1].asExpr) ) ); } -#line 2754 "macroy.c" /* yacc.c:1646 */ +#line 2757 "macroy.c" /* yacc.c:1646 */ break; -#line 2758 "macroy.c" /* yacc.c:1646 */ +#line 2761 "macroy.c" /* yacc.c:1646 */ default: break; } /* User semantic actions sometimes alter yychar, and that requires @@ -2982,7 +2985,7 @@ yyreturn: #endif return yyresult; } -#line 718 "macro.y" /* yacc.c:1906 */ +#line 721 "macro.y" /* yacc.c:1906 */ diff --git a/src/macro/macro.yyh b/src/macro/macro.yyh index 0240d9aa95..e2bf5b1d0d 100644 --- a/src/macro/macro.yyh +++ b/src/macro/macro.yyh @@ -91,7 +91,7 @@ extern int hb_macro_yydebug; typedef union YYSTYPE YYSTYPE; union YYSTYPE { -#line 139 "macro.y" /* yacc.c:1909 */ +#line 142 "macro.y" /* yacc.c:1909 */ const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */