diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 934567595e..48a90ea46d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,17 @@ The license applies to all entries newer than 2009-04-28. */ +2012-09-25 15:43 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) + * harbour/src/compiler/harbour.y + * harbour/src/macro/macro.y + * disabled meaningless warnings in BCC and OpenWatcom builds + + * harbour/src/compiler/harbour.yyh + * harbour/src/compiler/harbour.yyc + * harbour/src/macro/macro.yyc + * harbour/src/macro/macro.yyh + * regenerated with unpatched bison 2.5 + 2012-09-25 13:29 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl) * harbour/src/compiler/harbour.yyh * harbour/src/compiler/harbour.yyc diff --git a/harbour/config/win/pocc.mk b/harbour/config/win/pocc.mk index ed0aa3a71a..df27759799 100644 --- a/harbour/config/win/pocc.mk +++ b/harbour/config/win/pocc.mk @@ -37,7 +37,7 @@ endif RC := porc.exe RC_OUT := -fo$(subst x,x, ) -RCFLAGS += -I. -I$(HB_HOST_INC) +RCFLAGS += -I. -I$(TOP) -I$(HB_HOST_INC) LD := polink.exe LD_OUT := -out: diff --git a/harbour/src/compiler/harbour.y b/harbour/src/compiler/harbour.y index c224f55c5c..bc92e935bd 100644 --- a/harbour/src/compiler/harbour.y +++ b/harbour/src/compiler/harbour.y @@ -41,9 +41,17 @@ /* Compile using: bison -d -v harbour.y */ -/* to pacify some warnings in BCC */ -#if defined( __BORLANDC__ ) && !defined( __STDC__ ) -# define __STDC__ +/* to pacify some meaningless warnings */ +#if defined( __BORLANDC__ ) +# if !defined( __STDC__ ) +# define __STDC__ +# endif +# pragma warn -aus +# pragma warn -ccc +# pragma warn -rch +#elif defined( __WATCOMC__ ) +# pragma warning 13 9 +# pragma warning 368 9 #endif #undef alloca diff --git a/harbour/src/compiler/harbour.yyc b/harbour/src/compiler/harbour.yyc index d5bf20183d..98eecf0154 100644 --- a/harbour/src/compiler/harbour.yyc +++ b/harbour/src/compiler/harbour.yyc @@ -114,9 +114,17 @@ /* Compile using: bison -d -v harbour.y */ -/* to pacify some warnings in BCC */ -#if defined( __BORLANDC__ ) && !defined( __STDC__ ) -# define __STDC__ +/* to pacify some meaningless warnings */ +#if defined( __BORLANDC__ ) +# if !defined( __STDC__ ) +# define __STDC__ +# endif +# pragma warn -aus +# pragma warn -ccc +# pragma warn -rch +#elif defined( __WATCOMC__ ) +# pragma warning 13 9 +# pragma warning 368 9 #endif #undef alloca @@ -187,7 +195,7 @@ static void hb_compDebugStart( void ) { } /* Line 268 of yacc.c */ -#line 191 "harboury.c" +#line 199 "harboury.c" /* Enabling traces. */ #ifndef YYDEBUG @@ -333,7 +341,7 @@ typedef union YYSTYPE { /* Line 293 of yacc.c */ -#line 117 "harbour.y" +#line 125 "harbour.y" const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -375,7 +383,7 @@ typedef union YYSTYPE /* Line 293 of yacc.c */ -#line 379 "harboury.c" +#line 387 "harboury.c" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ @@ -386,7 +394,7 @@ typedef union YYSTYPE /* Copy the second part of user declarations. */ /* Line 343 of yacc.c */ -#line 156 "harbour.y" +#line 164 "harbour.y" /* This must be placed after the above union - the union is * typedef-ined to YYSTYPE @@ -396,7 +404,7 @@ extern void yyerror( HB_COMP_DECL, const char * ); /* parsing error manageme /* Line 343 of yacc.c */ -#line 400 "harboury.c" +#line 408 "harboury.c" #ifdef short # undef short @@ -930,68 +938,68 @@ static const yytype_int16 yyrhs[] = /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 283, 283, 284, 287, 288, 289, 290, 291, 292, - 293, 294, 295, 296, 297, 298, 301, 304, 309, 317, - 317, 318, 318, 319, 319, 320, 320, 323, 324, 325, - 326, 329, 330, 331, 332, 335, 336, 339, 340, 343, - 344, 345, 346, 347, 348, 349, 350, 351, 354, 355, - 356, 357, 358, 359, 360, 361, 362, 365, 366, 374, - 375, 376, 377, 378, 379, 385, 386, 387, 388, 389, - 390, 391, 392, 394, 394, 400, 401, 402, 414, 414, - 434, 436, 434, 440, 442, 440, 446, 447, 448, 449, - 450, 451, 451, 457, 460, 468, 487, 487, 490, 491, - 492, 493, 494, 495, 508, 509, 510, 511, 514, 515, - 516, 517, 520, 521, 524, 525, 528, 529, 532, 533, - 536, 537, 538, 539, 540, 541, 542, 543, 544, 545, - 546, 547, 548, 549, 550, 551, 552, 553, 554, 559, - 560, 563, 566, 569, 570, 575, 578, 583, 589, 594, - 599, 600, 603, 608, 611, 622, 625, 630, 633, 636, - 637, 640, 643, 644, 649, 652, 657, 658, 661, 666, - 669, 672, 673, 680, 681, 686, 687, 688, 689, 690, - 691, 692, 693, 694, 695, 696, 697, 698, 699, 702, - 703, 706, 707, 708, 709, 710, 711, 712, 713, 714, - 715, 716, 717, 718, 719, 720, 721, 722, 723, 724, - 725, 734, 735, 736, 737, 738, 739, 744, 745, 746, - 747, 748, 749, 750, 751, 752, 753, 754, 755, 756, - 757, 758, 759, 760, 761, 764, 768, 771, 772, 776, - 779, 782, 783, 786, 787, 790, 791, 792, 793, 794, - 797, 798, 803, 804, 805, 811, 812, 815, 818, 823, - 826, 835, 836, 837, 838, 839, 840, 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, 869, 870, 871, 872, 873, 874, 877, - 878, 881, 882, 885, 886, 887, 888, 889, 890, 891, - 898, 899, 900, 901, 902, 903, 904, 905, 906, 907, - 908, 909, 910, 911, 912, 913, 914, 915, 916, 917, - 918, 924, 925, 928, 931, 932, 935, 936, 937, 940, - 943, 946, 949, 952, 955, 958, 961, 964, 965, 966, - 967, 968, 969, 972, 973, 974, 975, 976, 977, 980, - 981, 984, 985, 986, 987, 988, 989, 990, 991, 992, - 995, 1001, 1002, 1003, 1006, 1007, 1010, 1010, 1016, 1017, - 1018, 1019, 1022, 1023, 1026, 1027, 1031, 1034, 1030, 1037, - 1036, 1073, 1074, 1076, 1079, 1088, 1092, 1095, 1095, 1097, - 1097, 1099, 1099, 1101, 1101, 1111, 1112, 1115, 1116, 1124, - 1125, 1127, 1131, 1138, 1156, 1156, 1185, 1191, 1194, 1195, - 1196, 1199, 1199, 1206, 1207, 1210, 1211, 1214, 1214, 1217, - 1218, 1221, 1221, 1240, 1240, 1241, 1242, 1243, 1244, 1244, - 1247, 1248, 1251, 1252, 1253, 1254, 1257, 1257, 1276, 1276, - 1331, 1332, 1333, 1334, 1337, 1338, 1339, 1340, 1341, 1342, - 1343, 1346, 1347, 1350, 1353, 1354, 1355, 1356, 1357, 1358, - 1361, 1362, 1363, 1364, 1365, 1366, 1369, 1370, 1371, 1372, - 1373, 1374, 1375, 1376, 1379, 1380, 1381, 1382, 1386, 1388, - 1385, 1393, 1393, 1397, 1399, 1397, 1407, 1409, 1407, 1418, - 1426, 1427, 1430, 1434, 1438, 1441, 1447, 1454, 1455, 1458, - 1458, 1461, 1462, 1470, 1471, 1470, 1482, 1483, 1482, 1495, - 1495, 1495, 1497, 1497, 1502, 1507, 1501, 1521, 1530, 1534, - 1535, 1539, 1552, 1557, 1538, 1605, 1606, 1609, 1610, 1613, - 1621, 1622, 1623, 1624, 1627, 1628, 1631, 1632, 1635, 1636, - 1639, 1640, 1645, 1651, 1661, 1644, 1680, 1681, 1685, 1684, - 1697, 1705, 1713, 1714, 1718, 1717, 1728, 1729, 1738, 1738, - 1741, 1741, 1744, 1746, 1749, 1749, 1749, 1754, 1762, 1773, - 1783, 1753, 1814, 1815, 1818, 1819, 1827, 1828, 1831, 1840, - 1841, 1842, 1845, 1856, 1874, 1878, 1886, 1887, 1890, 1891, - 1892, 1893, 1894, 1897, 1898, 1899, 1900, 1901, 1905, 1904, - 1927, 1928, 1931, 1932 + 0, 291, 291, 292, 295, 296, 297, 298, 299, 300, + 301, 302, 303, 304, 305, 306, 309, 312, 317, 325, + 325, 326, 326, 327, 327, 328, 328, 331, 332, 333, + 334, 337, 338, 339, 340, 343, 344, 347, 348, 351, + 352, 353, 354, 355, 356, 357, 358, 359, 362, 363, + 364, 365, 366, 367, 368, 369, 370, 373, 374, 382, + 383, 384, 385, 386, 387, 393, 394, 395, 396, 397, + 398, 399, 400, 402, 402, 408, 409, 410, 422, 422, + 442, 444, 442, 448, 450, 448, 454, 455, 456, 457, + 458, 459, 459, 465, 468, 476, 495, 495, 498, 499, + 500, 501, 502, 503, 516, 517, 518, 519, 522, 523, + 524, 525, 528, 529, 532, 533, 536, 537, 540, 541, + 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, + 554, 555, 556, 557, 558, 559, 560, 561, 562, 567, + 568, 571, 574, 577, 578, 583, 586, 591, 597, 602, + 607, 608, 611, 616, 619, 630, 633, 638, 641, 644, + 645, 648, 651, 652, 657, 660, 665, 666, 669, 674, + 677, 680, 681, 688, 689, 694, 695, 696, 697, 698, + 699, 700, 701, 702, 703, 704, 705, 706, 707, 710, + 711, 714, 715, 716, 717, 718, 719, 720, 721, 722, + 723, 724, 725, 726, 727, 728, 729, 730, 731, 732, + 733, 742, 743, 744, 745, 746, 747, 752, 753, 754, + 755, 756, 757, 758, 759, 760, 761, 762, 763, 764, + 765, 766, 767, 768, 769, 772, 776, 779, 780, 784, + 787, 790, 791, 794, 795, 798, 799, 800, 801, 802, + 805, 806, 811, 812, 813, 819, 820, 823, 826, 831, + 834, 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, 873, 874, 877, 878, 879, 880, 881, 882, 885, + 886, 889, 890, 893, 894, 895, 896, 897, 898, 899, + 906, 907, 908, 909, 910, 911, 912, 913, 914, 915, + 916, 917, 918, 919, 920, 921, 922, 923, 924, 925, + 926, 932, 933, 936, 939, 940, 943, 944, 945, 948, + 951, 954, 957, 960, 963, 966, 969, 972, 973, 974, + 975, 976, 977, 980, 981, 982, 983, 984, 985, 988, + 989, 992, 993, 994, 995, 996, 997, 998, 999, 1000, + 1003, 1009, 1010, 1011, 1014, 1015, 1018, 1018, 1024, 1025, + 1026, 1027, 1030, 1031, 1034, 1035, 1039, 1042, 1038, 1045, + 1044, 1081, 1082, 1084, 1087, 1096, 1100, 1103, 1103, 1105, + 1105, 1107, 1107, 1109, 1109, 1119, 1120, 1123, 1124, 1132, + 1133, 1135, 1139, 1146, 1164, 1164, 1193, 1199, 1202, 1203, + 1204, 1207, 1207, 1214, 1215, 1218, 1219, 1222, 1222, 1225, + 1226, 1229, 1229, 1248, 1248, 1249, 1250, 1251, 1252, 1252, + 1255, 1256, 1259, 1260, 1261, 1262, 1265, 1265, 1284, 1284, + 1339, 1340, 1341, 1342, 1345, 1346, 1347, 1348, 1349, 1350, + 1351, 1354, 1355, 1358, 1361, 1362, 1363, 1364, 1365, 1366, + 1369, 1370, 1371, 1372, 1373, 1374, 1377, 1378, 1379, 1380, + 1381, 1382, 1383, 1384, 1387, 1388, 1389, 1390, 1394, 1396, + 1393, 1401, 1401, 1405, 1407, 1405, 1415, 1417, 1415, 1426, + 1434, 1435, 1438, 1442, 1446, 1449, 1455, 1462, 1463, 1466, + 1466, 1469, 1470, 1478, 1479, 1478, 1490, 1491, 1490, 1503, + 1503, 1503, 1505, 1505, 1510, 1515, 1509, 1529, 1538, 1542, + 1543, 1547, 1560, 1565, 1546, 1613, 1614, 1617, 1618, 1621, + 1629, 1630, 1631, 1632, 1635, 1636, 1639, 1640, 1643, 1644, + 1647, 1648, 1653, 1659, 1669, 1652, 1688, 1689, 1693, 1692, + 1705, 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 @@ -3924,7 +3932,6 @@ yydestruct (yymsg, yytype, yyvaluep, pComp) if (!yymsg) yymsg = "Deleting"; - YYUSE (yymsg); YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); switch (yytype) @@ -3932,20 +3939,20 @@ yydestruct (yymsg, yytype, yyvaluep, pComp) case 19: /* "LITERAL" */ /* Line 1391 of yacc.c */ -#line 279 "harbour.y" +#line 287 "harbour.y" { if( (yyvaluep->valChar).dealloc ) hb_xfree( (yyvaluep->valChar).string ); }; /* Line 1391 of yacc.c */ -#line 3940 "harboury.c" +#line 3947 "harboury.c" break; case 96: /* "CBSTART" */ /* Line 1391 of yacc.c */ -#line 278 "harbour.y" +#line 286 "harbour.y" { if( (yyvaluep->asCodeblock).string ) hb_xfree( (yyvaluep->asCodeblock).string ); }; /* Line 1391 of yacc.c */ -#line 3949 "harboury.c" +#line 3956 "harboury.c" break; default: @@ -4049,7 +4056,7 @@ YYSTYPE yylval; Keep to zero when no symbol should be popped. */ int yylen = 0; - /* yytoken = 0; */ + yytoken = 0; yyss = yyssa; yyvs = yyvsa; yystacksize = YYINITDEPTH; @@ -4125,7 +4132,6 @@ YYSTYPE yylval; goto yyexhaustedlab; YYSTACK_RELOCATE (yyss_alloc, yyss); YYSTACK_RELOCATE (yyvs_alloc, yyvs); - YYUSE (yyptr); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); @@ -4191,6 +4197,8 @@ yybackup: yyn = yytable[yyn]; if (yyn <= 0) { + if (yytable_value_is_error (yyn)) + goto yyerrlab; yyn = -yyn; goto yyreduce; } @@ -4245,30 +4253,30 @@ yyreduce: { case 9: -/* Line 1807 of yacc.c */ -#line 292 "harbour.y" +/* Line 1806 of yacc.c */ +#line 300 "harbour.y" { yyclearin; yyerrok; } break; case 15: -/* Line 1807 of yacc.c */ -#line 298 "harbour.y" +/* Line 1806 of yacc.c */ +#line 306 "harbour.y" { yyclearin; yyerrok; } break; case 16: -/* Line 1807 of yacc.c */ -#line 302 "harbour.y" +/* Line 1806 of yacc.c */ +#line 310 "harbour.y" { HB_COMP_PARAM->currLine = ( int ) (yyvsp[(2) - (3)].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; } break; case 17: -/* Line 1807 of yacc.c */ -#line 305 "harbour.y" +/* Line 1806 of yacc.c */ +#line 313 "harbour.y" { HB_COMP_PARAM->currModule = hb_compIdentifierNew( HB_COMP_PARAM, (yyvsp[(3) - (4)].valChar).string, (yyvsp[(3) - (4)].valChar).dealloc ? HB_IDENT_FREE : HB_IDENT_STATIC ); HB_COMP_PARAM->currLine = ( int ) (yyvsp[(2) - (4)].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; @@ -4277,8 +4285,8 @@ yyreduce: case 18: -/* Line 1807 of yacc.c */ -#line 310 "harbour.y" +/* Line 1806 of yacc.c */ +#line 318 "harbour.y" { HB_COMP_PARAM->currModule = hb_compIdentifierNew( HB_COMP_PARAM, (yyvsp[(5) - (6)].valChar).string, (yyvsp[(5) - (6)].valChar).dealloc ? HB_IDENT_FREE : HB_IDENT_STATIC ); HB_COMP_PARAM->currLine = ( int ) (yyvsp[(2) - (6)].valLong).lNumber; HB_COMP_PARAM->pLex->fEol = HB_FALSE; @@ -4288,260 +4296,260 @@ yyreduce: case 19: -/* Line 1807 of yacc.c */ -#line 317 "harbour.y" +/* Line 1806 of yacc.c */ +#line 325 "harbour.y" { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), ( HB_SYMBOLSCOPE ) (yyvsp[(1) - (3)].iNumber), 0 ); } break; case 21: -/* Line 1807 of yacc.c */ -#line 318 "harbour.y" +/* Line 1806 of yacc.c */ +#line 326 "harbour.y" { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), ( HB_SYMBOLSCOPE ) (yyvsp[(1) - (3)].iNumber), FUN_PROCEDURE ); } break; case 23: -/* Line 1807 of yacc.c */ -#line 319 "harbour.y" +/* Line 1806 of yacc.c */ +#line 327 "harbour.y" { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), ( HB_SYMBOLSCOPE ) (yyvsp[(1) - (3)].iNumber), 0 ); HB_COMP_PARAM->iVarScope = VS_PARAMETER; } break; case 25: -/* Line 1807 of yacc.c */ -#line 320 "harbour.y" +/* Line 1806 of yacc.c */ +#line 328 "harbour.y" { hb_compFunctionAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), ( HB_SYMBOLSCOPE ) (yyvsp[(1) - (3)].iNumber), FUN_PROCEDURE ); HB_COMP_PARAM->iVarScope = VS_PARAMETER;} break; case 27: -/* Line 1807 of yacc.c */ -#line 323 "harbour.y" +/* Line 1806 of yacc.c */ +#line 331 "harbour.y" { (yyval.iNumber) = HB_FS_PUBLIC; } break; case 28: -/* Line 1807 of yacc.c */ -#line 324 "harbour.y" +/* Line 1806 of yacc.c */ +#line 332 "harbour.y" { (yyval.iNumber) = HB_FS_STATIC; } break; case 29: -/* Line 1807 of yacc.c */ -#line 325 "harbour.y" +/* Line 1806 of yacc.c */ +#line 333 "harbour.y" { (yyval.iNumber) = HB_FS_INIT; } break; case 30: -/* Line 1807 of yacc.c */ -#line 326 "harbour.y" +/* Line 1806 of yacc.c */ +#line 334 "harbour.y" { (yyval.iNumber) = HB_FS_EXIT; } break; case 31: -/* Line 1807 of yacc.c */ -#line 329 "harbour.y" +/* Line 1806 of yacc.c */ +#line 337 "harbour.y" { (yyval.iNumber) = 0; } break; case 32: -/* Line 1807 of yacc.c */ -#line 330 "harbour.y" +/* Line 1806 of yacc.c */ +#line 338 "harbour.y" { HB_COMP_PARAM->functions.pLast->fVParams = HB_TRUE; (yyval.iNumber) = 0; } break; case 34: -/* Line 1807 of yacc.c */ -#line 332 "harbour.y" +/* Line 1806 of yacc.c */ +#line 340 "harbour.y" { HB_COMP_PARAM->functions.pLast->fVParams = HB_TRUE; (yyval.iNumber) = (yyvsp[(1) - (3)].iNumber); } break; case 35: -/* Line 1807 of yacc.c */ -#line 335 "harbour.y" +/* Line 1806 of yacc.c */ +#line 343 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } break; case 37: -/* Line 1807 of yacc.c */ -#line 339 "harbour.y" +/* Line 1806 of yacc.c */ +#line 347 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } break; case 39: -/* Line 1807 of yacc.c */ -#line 343 "harbour.y" +/* Line 1806 of yacc.c */ +#line 351 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'N', NULL ); } break; case 40: -/* Line 1807 of yacc.c */ -#line 344 "harbour.y" +/* Line 1806 of yacc.c */ +#line 352 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'C', NULL ); } break; case 41: -/* Line 1807 of yacc.c */ -#line 345 "harbour.y" +/* Line 1806 of yacc.c */ +#line 353 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'D', NULL ); } break; case 42: -/* Line 1807 of yacc.c */ -#line 346 "harbour.y" +/* Line 1806 of yacc.c */ +#line 354 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'L', NULL ); } break; case 43: -/* Line 1807 of yacc.c */ -#line 347 "harbour.y" +/* Line 1806 of yacc.c */ +#line 355 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'B', NULL ); } break; case 44: -/* Line 1807 of yacc.c */ -#line 348 "harbour.y" +/* Line 1806 of yacc.c */ +#line 356 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'O', NULL ); } break; case 45: -/* Line 1807 of yacc.c */ -#line 349 "harbour.y" +/* Line 1806 of yacc.c */ +#line 357 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'S', (yyvsp[(2) - (2)].string) ); } break; case 46: -/* Line 1807 of yacc.c */ -#line 350 "harbour.y" +/* Line 1806 of yacc.c */ +#line 358 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, ' ', NULL ); } break; case 48: -/* Line 1807 of yacc.c */ -#line 354 "harbour.y" +/* Line 1806 of yacc.c */ +#line 362 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'A', NULL ); } break; case 49: -/* Line 1807 of yacc.c */ -#line 355 "harbour.y" +/* Line 1806 of yacc.c */ +#line 363 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'n', NULL ); } break; case 50: -/* Line 1807 of yacc.c */ -#line 356 "harbour.y" +/* Line 1806 of yacc.c */ +#line 364 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'c', NULL ); } break; case 51: -/* Line 1807 of yacc.c */ -#line 357 "harbour.y" +/* Line 1806 of yacc.c */ +#line 365 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'd', NULL ); } break; case 52: -/* Line 1807 of yacc.c */ -#line 358 "harbour.y" +/* Line 1806 of yacc.c */ +#line 366 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'l', NULL ); } break; case 53: -/* Line 1807 of yacc.c */ -#line 359 "harbour.y" +/* Line 1806 of yacc.c */ +#line 367 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'a', NULL ); } break; case 54: -/* Line 1807 of yacc.c */ -#line 360 "harbour.y" +/* Line 1806 of yacc.c */ +#line 368 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'b', NULL ); } break; case 55: -/* Line 1807 of yacc.c */ -#line 361 "harbour.y" +/* Line 1806 of yacc.c */ +#line 369 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 'o', NULL ); } break; case 56: -/* Line 1807 of yacc.c */ -#line 362 "harbour.y" +/* Line 1806 of yacc.c */ +#line 370 "harbour.y" { (yyval.asVarType) = hb_compVarTypeNew( HB_COMP_PARAM, 's', (yyvsp[(2) - (2)].string) ); } break; case 57: -/* Line 1807 of yacc.c */ -#line 365 "harbour.y" +/* Line 1806 of yacc.c */ +#line 373 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); (yyval.iNumber) = 1; } break; case 58: -/* Line 1807 of yacc.c */ -#line 366 "harbour.y" +/* Line 1806 of yacc.c */ +#line 374 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), (yyvsp[(4) - (4)].asVarType) ); (yyval.iNumber)++; } break; case 60: -/* Line 1807 of yacc.c */ -#line 375 "harbour.y" +/* Line 1806 of yacc.c */ +#line 383 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 61: -/* Line 1807 of yacc.c */ -#line 376 "harbour.y" +/* Line 1806 of yacc.c */ +#line 384 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 62: -/* Line 1807 of yacc.c */ -#line 377 "harbour.y" +/* Line 1806 of yacc.c */ +#line 385 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 63: -/* Line 1807 of yacc.c */ -#line 378 "harbour.y" +/* Line 1806 of yacc.c */ +#line 386 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 64: -/* Line 1807 of yacc.c */ -#line 379 "harbour.y" +/* Line 1806 of yacc.c */ +#line 387 "harbour.y" { if( HB_COMP_ISSUPPORTED( HB_COMPFLAG_XBASE ) ) HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); else @@ -4552,72 +4560,72 @@ yyreduce: case 65: -/* Line 1807 of yacc.c */ -#line 385 "harbour.y" +/* Line 1806 of yacc.c */ +#line 393 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 66: -/* Line 1807 of yacc.c */ -#line 386 "harbour.y" +/* Line 1806 of yacc.c */ +#line 394 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 67: -/* Line 1807 of yacc.c */ -#line 387 "harbour.y" +/* Line 1806 of yacc.c */ +#line 395 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 68: -/* Line 1807 of yacc.c */ -#line 388 "harbour.y" +/* Line 1806 of yacc.c */ +#line 396 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 69: -/* Line 1807 of yacc.c */ -#line 389 "harbour.y" +/* Line 1806 of yacc.c */ +#line 397 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 70: -/* Line 1807 of yacc.c */ -#line 390 "harbour.y" +/* Line 1806 of yacc.c */ +#line 398 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 71: -/* Line 1807 of yacc.c */ -#line 391 "harbour.y" +/* Line 1806 of yacc.c */ +#line 399 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenStatement( (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ) ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; } break; case 72: -/* Line 1807 of yacc.c */ -#line 392 "harbour.y" +/* Line 1806 of yacc.c */ +#line 400 "harbour.y" { hb_compGenBreak( HB_COMP_PARAM ); hb_compGenPCode2( HB_P_DOSHORT, 0, HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= FUN_BREAK_CODE; } break; case 73: -/* Line 1807 of yacc.c */ -#line 394 "harbour.y" +/* Line 1806 of yacc.c */ +#line 402 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 74: -/* Line 1807 of yacc.c */ -#line 395 "harbour.y" +/* Line 1806 of yacc.c */ +#line 403 "harbour.y" { hb_compGenBreak( HB_COMP_PARAM ); HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); hb_compGenPCode2( HB_P_DOSHORT, 1, HB_COMP_PARAM ); @@ -4627,22 +4635,22 @@ yyreduce: case 75: -/* Line 1807 of yacc.c */ -#line 400 "harbour.y" +/* Line 1806 of yacc.c */ +#line 408 "harbour.y" { hb_compLoopExit( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= FUN_BREAK_CODE; } break; case 76: -/* Line 1807 of yacc.c */ -#line 401 "harbour.y" +/* Line 1806 of yacc.c */ +#line 409 "harbour.y" { hb_compLoopLoop( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags |= FUN_BREAK_CODE; } break; case 77: -/* Line 1807 of yacc.c */ -#line 402 "harbour.y" +/* Line 1806 of yacc.c */ +#line 410 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wSeqCounter ) { @@ -4659,15 +4667,15 @@ yyreduce: case 78: -/* Line 1807 of yacc.c */ -#line 414 "harbour.y" +/* Line 1806 of yacc.c */ +#line 422 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 79: -/* Line 1807 of yacc.c */ -#line 416 "harbour.y" +/* Line 1806 of yacc.c */ +#line 424 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wSeqCounter ) { @@ -4690,15 +4698,15 @@ yyreduce: case 80: -/* Line 1807 of yacc.c */ -#line 434 "harbour.y" +/* Line 1806 of yacc.c */ +#line 442 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = VS_PUBLIC; } break; case 81: -/* Line 1807 of yacc.c */ -#line 436 "harbour.y" +/* Line 1806 of yacc.c */ +#line 444 "harbour.y" { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPUBLIC" ); HB_COMP_PARAM->iVarScope = VS_NONE; HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; @@ -4707,15 +4715,15 @@ yyreduce: case 83: -/* Line 1807 of yacc.c */ -#line 440 "harbour.y" +/* Line 1806 of yacc.c */ +#line 448 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_PARAM->iVarScope = VS_PRIVATE; } break; case 84: -/* Line 1807 of yacc.c */ -#line 442 "harbour.y" +/* Line 1806 of yacc.c */ +#line 450 "harbour.y" { hb_compRTVariableGen( HB_COMP_PARAM, "__MVPRIVATE" ); HB_COMP_PARAM->iVarScope = VS_NONE; HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_WITH_RETURN; @@ -4724,8 +4732,8 @@ yyreduce: case 91: -/* Line 1807 of yacc.c */ -#line 451 "harbour.y" +/* Line 1806 of yacc.c */ +#line 459 "harbour.y" { if( HB_COMP_PARAM->szAnnounce == NULL ) HB_COMP_PARAM->szAnnounce = (yyvsp[(2) - (2)].string); @@ -4736,8 +4744,8 @@ yyreduce: case 94: -/* Line 1807 of yacc.c */ -#line 460 "harbour.y" +/* Line 1806 of yacc.c */ +#line 468 "harbour.y" { if( (yyvsp[(1) - (1)].valChar).dealloc ) { @@ -4750,8 +4758,8 @@ yyreduce: case 95: -/* Line 1807 of yacc.c */ -#line 468 "harbour.y" +/* Line 1806 of yacc.c */ +#line 476 "harbour.y" { { char szFileName[ HB_PATH_MAX ]; @@ -4773,50 +4781,50 @@ yyreduce: case 96: -/* Line 1807 of yacc.c */ -#line 487 "harbour.y" +/* Line 1806 of yacc.c */ +#line 495 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 98: -/* Line 1807 of yacc.c */ -#line 490 "harbour.y" +/* Line 1806 of yacc.c */ +#line 498 "harbour.y" { (yyval.lNumber) = 0; } break; case 99: -/* Line 1807 of yacc.c */ -#line 491 "harbour.y" +/* Line 1806 of yacc.c */ +#line 499 "harbour.y" { (yyval.lNumber) = 1; } break; case 100: -/* Line 1807 of yacc.c */ -#line 492 "harbour.y" +/* Line 1806 of yacc.c */ +#line 500 "harbour.y" { (yyval.lNumber) = 1; } break; case 101: -/* Line 1807 of yacc.c */ -#line 493 "harbour.y" +/* Line 1806 of yacc.c */ +#line 501 "harbour.y" { (yyval.lNumber) = 0; } break; case 102: -/* Line 1807 of yacc.c */ -#line 494 "harbour.y" +/* Line 1806 of yacc.c */ +#line 502 "harbour.y" { (yyval.lNumber) = 0; hb_compCheckUnclosedStru( HB_COMP_PARAM, HB_COMP_PARAM->functions.pLast ); } break; case 103: -/* Line 1807 of yacc.c */ -#line 495 "harbour.y" +/* Line 1806 of yacc.c */ +#line 503 "harbour.y" { if( HB_COMP_PARAM->ilastLineErr && HB_COMP_PARAM->ilastLineErr == HB_COMP_PARAM->currLine ) { yyclearin; @@ -4832,225 +4840,225 @@ yyreduce: case 113: -/* Line 1807 of yacc.c */ -#line 521 "harbour.y" +/* Line 1806 of yacc.c */ +#line 529 "harbour.y" { (yyval.lNumber) += (yyvsp[(2) - (2)].lNumber); } break; case 114: -/* Line 1807 of yacc.c */ -#line 524 "harbour.y" +/* Line 1806 of yacc.c */ +#line 532 "harbour.y" { (yyval.lNumber) = 0; } break; case 116: -/* Line 1807 of yacc.c */ -#line 528 "harbour.y" +/* Line 1806 of yacc.c */ +#line 536 "harbour.y" { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), 0 ); } break; case 117: -/* Line 1807 of yacc.c */ -#line 529 "harbour.y" +/* Line 1806 of yacc.c */ +#line 537 "harbour.y" { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), 0 ); } break; case 118: -/* Line 1807 of yacc.c */ -#line 532 "harbour.y" +/* Line 1806 of yacc.c */ +#line 540 "harbour.y" { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(1) - (1)].string), HB_FS_DEFERRED ); } break; case 119: -/* Line 1807 of yacc.c */ -#line 533 "harbour.y" +/* Line 1806 of yacc.c */ +#line 541 "harbour.y" { hb_compExternAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].string), HB_FS_DEFERRED ); } break; case 121: -/* Line 1807 of yacc.c */ -#line 537 "harbour.y" +/* Line 1806 of yacc.c */ +#line 545 "harbour.y" { (yyval.string) = "STEP"; } break; case 122: -/* Line 1807 of yacc.c */ -#line 538 "harbour.y" +/* Line 1806 of yacc.c */ +#line 546 "harbour.y" { (yyval.string) = "TO"; } break; case 123: -/* Line 1807 of yacc.c */ -#line 539 "harbour.y" +/* Line 1806 of yacc.c */ +#line 547 "harbour.y" { (yyval.string) = "LOOP"; } break; case 124: -/* Line 1807 of yacc.c */ -#line 540 "harbour.y" +/* Line 1806 of yacc.c */ +#line 548 "harbour.y" { (yyval.string) = "EXIT"; } break; case 125: -/* Line 1807 of yacc.c */ -#line 541 "harbour.y" +/* Line 1806 of yacc.c */ +#line 549 "harbour.y" { (yyval.string) = "IN"; } break; case 126: -/* Line 1807 of yacc.c */ -#line 542 "harbour.y" +/* Line 1806 of yacc.c */ +#line 550 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 127: -/* Line 1807 of yacc.c */ -#line 543 "harbour.y" +/* Line 1806 of yacc.c */ +#line 551 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 128: -/* Line 1807 of yacc.c */ -#line 544 "harbour.y" +/* Line 1806 of yacc.c */ +#line 552 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 129: -/* Line 1807 of yacc.c */ -#line 545 "harbour.y" +/* Line 1806 of yacc.c */ +#line 553 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 130: -/* Line 1807 of yacc.c */ -#line 546 "harbour.y" +/* Line 1806 of yacc.c */ +#line 554 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 131: -/* Line 1807 of yacc.c */ -#line 547 "harbour.y" +/* Line 1806 of yacc.c */ +#line 555 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 132: -/* Line 1807 of yacc.c */ -#line 548 "harbour.y" +/* Line 1806 of yacc.c */ +#line 556 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 133: -/* Line 1807 of yacc.c */ -#line 549 "harbour.y" +/* Line 1806 of yacc.c */ +#line 557 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 134: -/* Line 1807 of yacc.c */ -#line 550 "harbour.y" +/* Line 1806 of yacc.c */ +#line 558 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 135: -/* Line 1807 of yacc.c */ -#line 551 "harbour.y" +/* Line 1806 of yacc.c */ +#line 559 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 136: -/* Line 1807 of yacc.c */ -#line 552 "harbour.y" +/* Line 1806 of yacc.c */ +#line 560 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 137: -/* Line 1807 of yacc.c */ -#line 553 "harbour.y" +/* Line 1806 of yacc.c */ +#line 561 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 138: -/* Line 1807 of yacc.c */ -#line 554 "harbour.y" +/* Line 1806 of yacc.c */ +#line 562 "harbour.y" { (yyval.string) = (yyvsp[(1) - (1)].string); } break; case 139: -/* Line 1807 of yacc.c */ -#line 559 "harbour.y" +/* Line 1806 of yacc.c */ +#line 567 "harbour.y" { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[(1) - (1)].valDouble).dNumber, (yyvsp[(1) - (1)].valDouble).bWidth, (yyvsp[(1) - (1)].valDouble).bDec, HB_COMP_PARAM ); } break; case 140: -/* Line 1807 of yacc.c */ -#line 560 "harbour.y" +/* Line 1806 of yacc.c */ +#line 568 "harbour.y" { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); } break; case 141: -/* Line 1807 of yacc.c */ -#line 563 "harbour.y" +/* Line 1806 of yacc.c */ +#line 571 "harbour.y" { (yyval.asExpr) = hb_compExprNewDate( ( long ) (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); } break; case 142: -/* Line 1807 of yacc.c */ -#line 566 "harbour.y" +/* Line 1806 of yacc.c */ +#line 574 "harbour.y" { (yyval.asExpr) = hb_compExprNewTimeStamp( (yyvsp[(1) - (1)].valTimeStamp).date, (yyvsp[(1) - (1)].valTimeStamp).time, HB_COMP_PARAM ); } break; case 143: -/* Line 1807 of yacc.c */ -#line 569 "harbour.y" +/* Line 1806 of yacc.c */ +#line 577 "harbour.y" { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (2)].valLong).lNumber, HB_COMP_PARAM ); } break; case 144: -/* Line 1807 of yacc.c */ -#line 570 "harbour.y" +/* Line 1806 of yacc.c */ +#line 578 "harbour.y" { (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, hb_compExprNewDouble( (yyvsp[(1) - (2)].valDouble).dNumber, (yyvsp[(1) - (2)].valDouble).bWidth, (yyvsp[(1) - (2)].valDouble).bDec, HB_COMP_PARAM ) ); } break; case 145: -/* Line 1807 of yacc.c */ -#line 575 "harbour.y" +/* Line 1806 of yacc.c */ +#line 583 "harbour.y" { (yyval.asExpr) = hb_compExprNewNil( HB_COMP_PARAM ); } break; case 147: -/* Line 1807 of yacc.c */ -#line 583 "harbour.y" +/* Line 1806 of yacc.c */ +#line 591 "harbour.y" { (yyval.asExpr) = hb_compExprNewString( (yyvsp[(1) - (1)].valChar).string, (yyvsp[(1) - (1)].valChar).length, (yyvsp[(1) - (1)].valChar).dealloc, HB_COMP_PARAM ); (yyvsp[(1) - (1)].valChar).dealloc = HB_FALSE; @@ -5059,624 +5067,624 @@ yyreduce: case 150: -/* Line 1807 of yacc.c */ -#line 599 "harbour.y" +/* Line 1806 of yacc.c */ +#line 607 "harbour.y" { (yyval.asExpr) = hb_compExprNewLogical( HB_TRUE, HB_COMP_PARAM ); } break; case 151: -/* Line 1807 of yacc.c */ -#line 600 "harbour.y" +/* Line 1806 of yacc.c */ +#line 608 "harbour.y" { (yyval.asExpr) = hb_compExprNewLogical( HB_FALSE, HB_COMP_PARAM ); } break; case 153: -/* Line 1807 of yacc.c */ -#line 608 "harbour.y" +/* Line 1806 of yacc.c */ +#line 616 "harbour.y" { (yyval.asExpr) = hb_compExprNewSelf( HB_COMP_PARAM ); } break; case 155: -/* Line 1807 of yacc.c */ -#line 622 "harbour.y" +/* Line 1806 of yacc.c */ +#line 630 "harbour.y" { (yyval.asExpr) = hb_compExprNewArray( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); } break; case 157: -/* Line 1807 of yacc.c */ -#line 630 "harbour.y" +/* Line 1806 of yacc.c */ +#line 638 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 159: -/* Line 1807 of yacc.c */ -#line 636 "harbour.y" +/* Line 1806 of yacc.c */ +#line 644 "harbour.y" { (yyval.asExpr) = hb_compExprNewHash( NULL, HB_COMP_PARAM ); } break; case 160: -/* Line 1807 of yacc.c */ -#line 637 "harbour.y" +/* Line 1806 of yacc.c */ +#line 645 "harbour.y" { (yyval.asExpr) = hb_compExprNewHash( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); } break; case 162: -/* Line 1807 of yacc.c */ -#line 643 "harbour.y" +/* Line 1806 of yacc.c */ +#line 651 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr) ); } break; case 163: -/* Line 1807 of yacc.c */ -#line 644 "harbour.y" +/* Line 1806 of yacc.c */ +#line 652 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprAddListExpr( (yyvsp[(1) - (5)].asExpr), (yyvsp[(3) - (5)].asExpr) ), (yyvsp[(5) - (5)].asExpr) ); } break; case 164: -/* Line 1807 of yacc.c */ -#line 649 "harbour.y" +/* Line 1806 of yacc.c */ +#line 657 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 165: -/* Line 1807 of yacc.c */ -#line 652 "harbour.y" +/* Line 1806 of yacc.c */ +#line 660 "harbour.y" { (yyval.asExpr) = hb_compExprNewAlias( (yyvsp[(1) - (2)].string), HB_COMP_PARAM ); } break; case 166: -/* Line 1807 of yacc.c */ -#line 657 "harbour.y" +/* Line 1806 of yacc.c */ +#line 665 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( NULL, '&', (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 167: -/* Line 1807 of yacc.c */ -#line 658 "harbour.y" +/* Line 1806 of yacc.c */ +#line 666 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( NULL, 0, (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 169: -/* Line 1807 of yacc.c */ -#line 666 "harbour.y" +/* Line 1806 of yacc.c */ +#line 674 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacro( (yyvsp[(2) - (2)].asExpr), 0, NULL, HB_COMP_PARAM ); } break; case 173: -/* Line 1807 of yacc.c */ -#line 680 "harbour.y" +/* Line 1806 of yacc.c */ +#line 688 "harbour.y" { (yyval.asExpr) = hb_compExprNewAlias( "FIELD", HB_COMP_PARAM ); } break; case 174: -/* Line 1807 of yacc.c */ -#line 681 "harbour.y" +/* Line 1806 of yacc.c */ +#line 689 "harbour.y" { (yyval.asExpr) = (yyvsp[(3) - (3)].asExpr); } break; case 175: -/* Line 1807 of yacc.c */ -#line 686 "harbour.y" +/* Line 1806 of yacc.c */ +#line 694 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 176: -/* Line 1807 of yacc.c */ -#line 687 "harbour.y" +/* Line 1806 of yacc.c */ +#line 695 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 177: -/* Line 1807 of yacc.c */ -#line 688 "harbour.y" +/* Line 1806 of yacc.c */ +#line 696 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 178: -/* Line 1807 of yacc.c */ -#line 689 "harbour.y" +/* Line 1806 of yacc.c */ +#line 697 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 179: -/* Line 1807 of yacc.c */ -#line 690 "harbour.y" +/* Line 1806 of yacc.c */ +#line 698 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 180: -/* Line 1807 of yacc.c */ -#line 691 "harbour.y" +/* Line 1806 of yacc.c */ +#line 699 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 181: -/* Line 1807 of yacc.c */ -#line 692 "harbour.y" +/* Line 1806 of yacc.c */ +#line 700 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 182: -/* Line 1807 of yacc.c */ -#line 693 "harbour.y" +/* Line 1806 of yacc.c */ +#line 701 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 183: -/* Line 1807 of yacc.c */ -#line 694 "harbour.y" +/* Line 1806 of yacc.c */ +#line 702 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 184: -/* Line 1807 of yacc.c */ -#line 695 "harbour.y" +/* Line 1806 of yacc.c */ +#line 703 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 185: -/* Line 1807 of yacc.c */ -#line 696 "harbour.y" +/* Line 1806 of yacc.c */ +#line 704 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 186: -/* Line 1807 of yacc.c */ -#line 697 "harbour.y" +/* Line 1806 of yacc.c */ +#line 705 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 187: -/* Line 1807 of yacc.c */ -#line 698 "harbour.y" +/* Line 1806 of yacc.c */ +#line 706 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 188: -/* Line 1807 of yacc.c */ -#line 699 "harbour.y" +/* Line 1806 of yacc.c */ +#line 707 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 189: -/* Line 1807 of yacc.c */ -#line 702 "harbour.y" +/* Line 1806 of yacc.c */ +#line 710 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 191: -/* Line 1807 of yacc.c */ -#line 706 "harbour.y" +/* Line 1806 of yacc.c */ +#line 714 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 192: -/* Line 1807 of yacc.c */ -#line 707 "harbour.y" +/* Line 1806 of yacc.c */ +#line 715 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 193: -/* Line 1807 of yacc.c */ -#line 708 "harbour.y" +/* Line 1806 of yacc.c */ +#line 716 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 194: -/* Line 1807 of yacc.c */ -#line 709 "harbour.y" +/* Line 1806 of yacc.c */ +#line 717 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 195: -/* Line 1807 of yacc.c */ -#line 710 "harbour.y" +/* Line 1806 of yacc.c */ +#line 718 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 196: -/* Line 1807 of yacc.c */ -#line 711 "harbour.y" +/* Line 1806 of yacc.c */ +#line 719 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 197: -/* Line 1807 of yacc.c */ -#line 712 "harbour.y" +/* Line 1806 of yacc.c */ +#line 720 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 198: -/* Line 1807 of yacc.c */ -#line 713 "harbour.y" +/* Line 1806 of yacc.c */ +#line 721 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 199: -/* Line 1807 of yacc.c */ -#line 714 "harbour.y" +/* Line 1806 of yacc.c */ +#line 722 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 200: -/* Line 1807 of yacc.c */ -#line 715 "harbour.y" +/* Line 1806 of yacc.c */ +#line 723 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 201: -/* Line 1807 of yacc.c */ -#line 716 "harbour.y" +/* Line 1806 of yacc.c */ +#line 724 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 202: -/* Line 1807 of yacc.c */ -#line 717 "harbour.y" +/* Line 1806 of yacc.c */ +#line 725 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 203: -/* Line 1807 of yacc.c */ -#line 718 "harbour.y" +/* Line 1806 of yacc.c */ +#line 726 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 204: -/* Line 1807 of yacc.c */ -#line 719 "harbour.y" +/* Line 1806 of yacc.c */ +#line 727 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 205: -/* Line 1807 of yacc.c */ -#line 720 "harbour.y" +/* Line 1806 of yacc.c */ +#line 728 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 206: -/* Line 1807 of yacc.c */ -#line 721 "harbour.y" +/* Line 1806 of yacc.c */ +#line 729 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 207: -/* Line 1807 of yacc.c */ -#line 722 "harbour.y" +/* Line 1806 of yacc.c */ +#line 730 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(1) - (2)].asExpr) ); } break; case 208: -/* Line 1807 of yacc.c */ -#line 723 "harbour.y" +/* Line 1806 of yacc.c */ +#line 731 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 209: -/* Line 1807 of yacc.c */ -#line 724 "harbour.y" +/* Line 1806 of yacc.c */ +#line 732 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 210: -/* Line 1807 of yacc.c */ -#line 725 "harbour.y" +/* Line 1806 of yacc.c */ +#line 733 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 211: -/* Line 1807 of yacc.c */ -#line 734 "harbour.y" +/* Line 1806 of yacc.c */ +#line 742 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 212: -/* Line 1807 of yacc.c */ -#line 735 "harbour.y" +/* Line 1806 of yacc.c */ +#line 743 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 213: -/* Line 1807 of yacc.c */ -#line 736 "harbour.y" +/* Line 1806 of yacc.c */ +#line 744 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 214: -/* Line 1807 of yacc.c */ -#line 737 "harbour.y" +/* Line 1806 of yacc.c */ +#line 745 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 215: -/* Line 1807 of yacc.c */ -#line 738 "harbour.y" +/* Line 1806 of yacc.c */ +#line 746 "harbour.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 216: -/* Line 1807 of yacc.c */ -#line 739 "harbour.y" +/* Line 1806 of yacc.c */ +#line 747 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); (yyval.asExpr) = hb_compErrorAlias( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 217: -/* Line 1807 of yacc.c */ -#line 744 "harbour.y" +/* Line 1806 of yacc.c */ +#line 752 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 218: -/* Line 1807 of yacc.c */ -#line 745 "harbour.y" +/* Line 1806 of yacc.c */ +#line 753 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 219: -/* Line 1807 of yacc.c */ -#line 746 "harbour.y" +/* Line 1806 of yacc.c */ +#line 754 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 220: -/* Line 1807 of yacc.c */ -#line 747 "harbour.y" +/* Line 1806 of yacc.c */ +#line 755 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 221: -/* Line 1807 of yacc.c */ -#line 748 "harbour.y" +/* Line 1806 of yacc.c */ +#line 756 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 222: -/* Line 1807 of yacc.c */ -#line 749 "harbour.y" +/* Line 1806 of yacc.c */ +#line 757 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 223: -/* Line 1807 of yacc.c */ -#line 750 "harbour.y" +/* Line 1806 of yacc.c */ +#line 758 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 224: -/* Line 1807 of yacc.c */ -#line 751 "harbour.y" +/* Line 1806 of yacc.c */ +#line 759 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 225: -/* Line 1807 of yacc.c */ -#line 752 "harbour.y" +/* Line 1806 of yacc.c */ +#line 760 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 226: -/* Line 1807 of yacc.c */ -#line 753 "harbour.y" +/* Line 1806 of yacc.c */ +#line 761 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 227: -/* Line 1807 of yacc.c */ -#line 754 "harbour.y" +/* Line 1806 of yacc.c */ +#line 762 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 228: -/* Line 1807 of yacc.c */ -#line 755 "harbour.y" +/* Line 1806 of yacc.c */ +#line 763 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 229: -/* Line 1807 of yacc.c */ -#line 756 "harbour.y" +/* Line 1806 of yacc.c */ +#line 764 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 230: -/* Line 1807 of yacc.c */ -#line 757 "harbour.y" +/* Line 1806 of yacc.c */ +#line 765 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 231: -/* Line 1807 of yacc.c */ -#line 758 "harbour.y" +/* Line 1806 of yacc.c */ +#line 766 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 232: -/* Line 1807 of yacc.c */ -#line 759 "harbour.y" +/* Line 1806 of yacc.c */ +#line 767 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 233: -/* Line 1807 of yacc.c */ -#line 760 "harbour.y" +/* Line 1806 of yacc.c */ +#line 768 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 234: -/* Line 1807 of yacc.c */ -#line 761 "harbour.y" +/* Line 1806 of yacc.c */ +#line 769 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 236: -/* Line 1807 of yacc.c */ -#line 768 "harbour.y" +/* Line 1806 of yacc.c */ +#line 776 "harbour.y" { (yyval.asExpr) = hb_compExprNewFunCall( hb_compExprNewFunName( (yyvsp[(1) - (4)].string), HB_COMP_PARAM ), (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ); } break; case 238: -/* Line 1807 of yacc.c */ -#line 772 "harbour.y" +/* Line 1806 of yacc.c */ +#line 780 "harbour.y" { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(1) - (4)].asExpr), (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ); } break; case 239: -/* Line 1807 of yacc.c */ -#line 776 "harbour.y" +/* Line 1806 of yacc.c */ +#line 784 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); } break; case 241: -/* Line 1807 of yacc.c */ -#line 782 "harbour.y" +/* Line 1806 of yacc.c */ +#line 790 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 242: -/* Line 1807 of yacc.c */ -#line 783 "harbour.y" +/* Line 1806 of yacc.c */ +#line 791 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 245: -/* Line 1807 of yacc.c */ -#line 790 "harbour.y" +/* Line 1806 of yacc.c */ +#line 798 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewVarRef( (yyvsp[(2) - (2)].string), HB_COMP_PARAM ) ); } break; case 246: -/* Line 1807 of yacc.c */ -#line 791 "harbour.y" +/* Line 1806 of yacc.c */ +#line 799 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); } break; case 247: -/* Line 1807 of yacc.c */ -#line 792 "harbour.y" +/* Line 1806 of yacc.c */ +#line 800 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); } break; case 248: -/* Line 1807 of yacc.c */ -#line 793 "harbour.y" +/* Line 1806 of yacc.c */ +#line 801 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); } break; case 249: -/* Line 1807 of yacc.c */ -#line 794 "harbour.y" +/* Line 1806 of yacc.c */ +#line 802 "harbour.y" { (yyval.asExpr) = hb_compCheckPassByRef( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); (yyval.asExpr)->value.asList.reference = HB_TRUE; } break; case 250: -/* Line 1807 of yacc.c */ -#line 797 "harbour.y" +/* Line 1806 of yacc.c */ +#line 805 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } break; case 252: -/* Line 1807 of yacc.c */ -#line 803 "harbour.y" +/* Line 1806 of yacc.c */ +#line 811 "harbour.y" { (yyval.asExpr) = hb_compCheckMethod( HB_COMP_PARAM, hb_compExprNewMethodObject( (yyvsp[(3) - (3)].asExpr), (yyvsp[(1) - (3)].asExpr) ) ); } break; case 253: -/* Line 1807 of yacc.c */ -#line 804 "harbour.y" +/* Line 1806 of yacc.c */ +#line 812 "harbour.y" { (yyval.asExpr) = hb_compExprNewMethodObject( (yyvsp[(3) - (3)].asExpr), (yyvsp[(1) - (3)].asExpr) ); } break; case 254: -/* Line 1807 of yacc.c */ -#line 805 "harbour.y" +/* Line 1806 of yacc.c */ +#line 813 "harbour.y" { 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[(2) - (2)].asExpr); @@ -5685,457 +5693,457 @@ yyreduce: case 255: -/* Line 1807 of yacc.c */ -#line 811 "harbour.y" +/* Line 1806 of yacc.c */ +#line 819 "harbour.y" { (yyval.asExpr) = hb_compExprNewSend( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 256: -/* Line 1807 of yacc.c */ -#line 812 "harbour.y" +/* Line 1806 of yacc.c */ +#line 820 "harbour.y" { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 257: -/* Line 1807 of yacc.c */ -#line 815 "harbour.y" +/* Line 1806 of yacc.c */ +#line 823 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(3) - (4)].string), HB_COMP_PARAM ); } break; case 259: -/* Line 1807 of yacc.c */ -#line 823 "harbour.y" +/* Line 1806 of yacc.c */ +#line 831 "harbour.y" { (yyval.asExpr) = hb_compExprNewMethodCall( (yyvsp[(1) - (4)].asExpr), (yyvsp[(3) - (4)].asExpr) ); } break; case 269: -/* Line 1807 of yacc.c */ -#line 843 "harbour.y" +/* Line 1806 of yacc.c */ +#line 851 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 279: -/* Line 1807 of yacc.c */ -#line 853 "harbour.y" +/* Line 1806 of yacc.c */ +#line 861 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 282: -/* Line 1807 of yacc.c */ -#line 856 "harbour.y" +/* Line 1806 of yacc.c */ +#line 864 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 284: -/* Line 1807 of yacc.c */ -#line 858 "harbour.y" +/* Line 1806 of yacc.c */ +#line 866 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 296: -/* Line 1807 of yacc.c */ -#line 872 "harbour.y" +/* Line 1806 of yacc.c */ +#line 880 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 297: -/* Line 1807 of yacc.c */ -#line 873 "harbour.y" +/* Line 1806 of yacc.c */ +#line 881 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (2)].asExpr); } break; case 299: -/* Line 1807 of yacc.c */ -#line 877 "harbour.y" +/* Line 1806 of yacc.c */ +#line 885 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } break; case 301: -/* Line 1807 of yacc.c */ -#line 881 "harbour.y" +/* Line 1806 of yacc.c */ +#line 889 "harbour.y" { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); } break; case 303: -/* Line 1807 of yacc.c */ -#line 885 "harbour.y" +/* Line 1806 of yacc.c */ +#line 893 "harbour.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 309: -/* Line 1807 of yacc.c */ -#line 891 "harbour.y" +/* Line 1806 of yacc.c */ +#line 899 "harbour.y" { (yyval.asExpr) = hb_compExprListStrip( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 331: -/* Line 1807 of yacc.c */ -#line 924 "harbour.y" +/* Line 1806 of yacc.c */ +#line 932 "harbour.y" { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); } break; case 332: -/* Line 1807 of yacc.c */ -#line 925 "harbour.y" +/* Line 1806 of yacc.c */ +#line 933 "harbour.y" { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); } break; case 333: -/* Line 1807 of yacc.c */ -#line 928 "harbour.y" +/* Line 1806 of yacc.c */ +#line 936 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 334: -/* Line 1807 of yacc.c */ -#line 931 "harbour.y" +/* Line 1806 of yacc.c */ +#line 939 "harbour.y" { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 335: -/* Line 1807 of yacc.c */ -#line 932 "harbour.y" +/* Line 1806 of yacc.c */ +#line 940 "harbour.y" { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 336: -/* Line 1807 of yacc.c */ -#line 935 "harbour.y" +/* Line 1806 of yacc.c */ +#line 943 "harbour.y" { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 337: -/* Line 1807 of yacc.c */ -#line 936 "harbour.y" +/* Line 1806 of yacc.c */ +#line 944 "harbour.y" { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 338: -/* Line 1807 of yacc.c */ -#line 937 "harbour.y" +/* Line 1806 of yacc.c */ +#line 945 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 339: -/* Line 1807 of yacc.c */ -#line 940 "harbour.y" +/* Line 1806 of yacc.c */ +#line 948 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 340: -/* Line 1807 of yacc.c */ -#line 943 "harbour.y" +/* Line 1806 of yacc.c */ +#line 951 "harbour.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 341: -/* Line 1807 of yacc.c */ -#line 946 "harbour.y" +/* Line 1806 of yacc.c */ +#line 954 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 342: -/* Line 1807 of yacc.c */ -#line 949 "harbour.y" +/* Line 1806 of yacc.c */ +#line 957 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 343: -/* Line 1807 of yacc.c */ -#line 952 "harbour.y" +/* Line 1806 of yacc.c */ +#line 960 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 344: -/* Line 1807 of yacc.c */ -#line 955 "harbour.y" +/* Line 1806 of yacc.c */ +#line 963 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 345: -/* Line 1807 of yacc.c */ -#line 958 "harbour.y" +/* Line 1806 of yacc.c */ +#line 966 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 346: -/* Line 1807 of yacc.c */ -#line 961 "harbour.y" +/* Line 1806 of yacc.c */ +#line 969 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewExpEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 353: -/* Line 1807 of yacc.c */ -#line 972 "harbour.y" +/* Line 1806 of yacc.c */ +#line 980 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 354: -/* Line 1807 of yacc.c */ -#line 973 "harbour.y" +/* Line 1806 of yacc.c */ +#line 981 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 355: -/* Line 1807 of yacc.c */ -#line 974 "harbour.y" +/* Line 1806 of yacc.c */ +#line 982 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMult( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 356: -/* Line 1807 of yacc.c */ -#line 975 "harbour.y" +/* Line 1806 of yacc.c */ +#line 983 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 357: -/* Line 1807 of yacc.c */ -#line 976 "harbour.y" +/* Line 1806 of yacc.c */ +#line 984 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 358: -/* Line 1807 of yacc.c */ -#line 977 "harbour.y" +/* Line 1806 of yacc.c */ +#line 985 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 359: -/* Line 1807 of yacc.c */ -#line 980 "harbour.y" +/* Line 1806 of yacc.c */ +#line 988 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 360: -/* Line 1807 of yacc.c */ -#line 981 "harbour.y" +/* Line 1806 of yacc.c */ +#line 989 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 361: -/* Line 1807 of yacc.c */ -#line 984 "harbour.y" +/* Line 1806 of yacc.c */ +#line 992 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 362: -/* Line 1807 of yacc.c */ -#line 985 "harbour.y" +/* Line 1806 of yacc.c */ +#line 993 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 363: -/* Line 1807 of yacc.c */ -#line 986 "harbour.y" +/* Line 1806 of yacc.c */ +#line 994 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 364: -/* Line 1807 of yacc.c */ -#line 987 "harbour.y" +/* Line 1806 of yacc.c */ +#line 995 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 365: -/* Line 1807 of yacc.c */ -#line 988 "harbour.y" +/* Line 1806 of yacc.c */ +#line 996 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 366: -/* Line 1807 of yacc.c */ -#line 989 "harbour.y" +/* Line 1806 of yacc.c */ +#line 997 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 367: -/* Line 1807 of yacc.c */ -#line 990 "harbour.y" +/* Line 1806 of yacc.c */ +#line 998 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 368: -/* Line 1807 of yacc.c */ -#line 991 "harbour.y" +/* Line 1806 of yacc.c */ +#line 999 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 369: -/* Line 1807 of yacc.c */ -#line 992 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1000 "harbour.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 371: -/* Line 1807 of yacc.c */ -#line 1001 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1009 "harbour.y" { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(0) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 372: -/* Line 1807 of yacc.c */ -#line 1002 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1010 "harbour.y" { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 373: -/* Line 1807 of yacc.c */ -#line 1003 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1011 "harbour.y" { (yyval.asExpr) = hb_compExprNewArrayAt( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ); } break; case 374: -/* Line 1807 of yacc.c */ -#line 1006 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1014 "harbour.y" { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 375: -/* Line 1807 of yacc.c */ -#line 1007 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1015 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 376: -/* Line 1807 of yacc.c */ -#line 1010 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1018 "harbour.y" { (yyval.asExpr) = hb_compExprNewCodeBlock( (yyvsp[(1) - (1)].asCodeblock).string, (yyvsp[(1) - (1)].asCodeblock).length, (yyvsp[(1) - (1)].asCodeblock).flags, HB_COMP_PARAM ); (yyvsp[(1) - (1)].asCodeblock).string = NULL; } break; case 377: -/* Line 1807 of yacc.c */ -#line 1011 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1019 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (4)].asExpr); } break; case 378: -/* Line 1807 of yacc.c */ -#line 1016 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1024 "harbour.y" { (yyval.asExpr) = NULL; } break; case 379: -/* Line 1807 of yacc.c */ -#line 1017 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1025 "harbour.y" { (yyval.asExpr) = NULL; (yyvsp[(0) - (1)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } break; case 380: -/* Line 1807 of yacc.c */ -#line 1018 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1026 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); } break; case 381: -/* Line 1807 of yacc.c */ -#line 1019 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1027 "harbour.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); (yyvsp[(0) - (3)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } break; case 382: -/* Line 1807 of yacc.c */ -#line 1022 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1030 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (2)].asExpr), (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType)->cVarType, HB_COMP_PARAM ); } break; case 383: -/* Line 1807 of yacc.c */ -#line 1023 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1031 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_LOCAL; (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (4)].asExpr), (yyvsp[(3) - (4)].string), (yyvsp[(4) - (4)].asVarType)->cVarType, HB_COMP_PARAM ); } break; case 384: -/* Line 1807 of yacc.c */ -#line 1026 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1034 "harbour.y" { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-1) - (1)].asExpr), (yyvsp[(1) - (1)].asExpr) ); } break; case 385: -/* Line 1807 of yacc.c */ -#line 1027 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1035 "harbour.y" { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 386: -/* Line 1807 of yacc.c */ -#line 1031 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1039 "harbour.y" { (yyval.bTrue) = HB_COMP_PARAM->functions.pLast->bBlock; HB_COMP_PARAM->functions.pLast->bBlock = HB_TRUE; } break; case 387: -/* Line 1807 of yacc.c */ -#line 1034 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1042 "harbour.y" { HB_COMP_PARAM->functions.pLast->bBlock = (yyvsp[(2) - (3)].bTrue); } break; case 389: -/* Line 1807 of yacc.c */ -#line 1037 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1045 "harbour.y" { /* 3 */ HB_CBVAR_PTR pVar; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -6165,8 +6173,8 @@ yyreduce: case 390: -/* Line 1807 of yacc.c */ -#line 1063 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1071 "harbour.y" { /* 6 */ hb_compCodeBlockEnd( HB_COMP_PARAM ); (yyval.asExpr) = hb_compExprSetCodeblockBody( (yyvsp[(1) - (5)].asExpr), @@ -6179,57 +6187,57 @@ yyreduce: case 391: -/* Line 1807 of yacc.c */ -#line 1073 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1081 "harbour.y" { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 392: -/* Line 1807 of yacc.c */ -#line 1074 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1082 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 393: -/* Line 1807 of yacc.c */ -#line 1076 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1084 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (3)].asExpr); } break; case 395: -/* Line 1807 of yacc.c */ -#line 1089 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1097 "harbour.y" { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(3) - (8)].asExpr), HB_COMP_PARAM ), (yyvsp[(5) - (8)].asExpr) ), (yyvsp[(7) - (8)].asExpr) ) ); } break; case 397: -/* Line 1807 of yacc.c */ -#line 1095 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1103 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_LOCAL; hb_compLinePush( HB_COMP_PARAM ); } break; case 399: -/* Line 1807 of yacc.c */ -#line 1097 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1105 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_STATIC; hb_compLinePush( HB_COMP_PARAM ); } break; case 401: -/* Line 1807 of yacc.c */ -#line 1099 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1107 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_TH_STATIC; hb_compLinePush( HB_COMP_PARAM ); } break; case 403: -/* Line 1807 of yacc.c */ -#line 1101 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1109 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->funFlags & FUN_USES_LOCAL_PARAMS ) hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_PARAMETERS_NOT_ALLOWED, NULL, NULL ); else @@ -6242,50 +6250,50 @@ yyreduce: case 404: -/* Line 1807 of yacc.c */ -#line 1108 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1116 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 405: -/* Line 1807 of yacc.c */ -#line 1111 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1119 "harbour.y" { (yyval.iNumber) = 1; } break; case 406: -/* Line 1807 of yacc.c */ -#line 1112 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1120 "harbour.y" { (yyval.iNumber)++; } break; case 407: -/* Line 1807 of yacc.c */ -#line 1115 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1123 "harbour.y" { (yyval.iNumber) = 1; } break; case 408: -/* Line 1807 of yacc.c */ -#line 1116 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1124 "harbour.y" { (yyval.iNumber)++; } break; case 410: -/* Line 1807 of yacc.c */ -#line 1126 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1134 "harbour.y" { hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (2)].asExpr), HB_COMP_PARAM ), HB_FALSE ); } break; case 411: -/* Line 1807 of yacc.c */ -#line 1128 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1136 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (4)].asExpr), HB_COMP_PARAM ), HB_TRUE ); } @@ -6293,8 +6301,8 @@ yyreduce: case 412: -/* Line 1807 of yacc.c */ -#line 1132 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1140 "harbour.y" { HB_COMP_EXPR_FREE( hb_compArrayDimPush( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ) ); hb_compRTVariableAdd( HB_COMP_PARAM, hb_compExprNewRTVar( NULL, (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), HB_TRUE ); @@ -6303,8 +6311,8 @@ yyreduce: case 413: -/* Line 1807 of yacc.c */ -#line 1139 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1147 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); if( HB_COMP_PARAM->iVarScope & VS_STATIC ) @@ -6326,8 +6334,8 @@ yyreduce: case 414: -/* Line 1807 of yacc.c */ -#line 1156 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1164 "harbour.y" { (yyval.iNumber) = HB_COMP_PARAM->iVarScope; hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); } @@ -6335,8 +6343,8 @@ yyreduce: case 415: -/* Line 1807 of yacc.c */ -#line 1160 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1168 "harbour.y" { HB_COMP_PARAM->iVarScope = (yyvsp[(3) - (5)].iNumber); if( HB_COMP_PARAM->iVarScope & VS_STATIC ) @@ -6365,43 +6373,43 @@ yyreduce: case 416: -/* Line 1807 of yacc.c */ -#line 1185 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1193 "harbour.y" { hb_compVariableDim( (yyvsp[(1) - (3)].string), (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); } break; case 418: -/* Line 1807 of yacc.c */ -#line 1194 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1202 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 419: -/* Line 1807 of yacc.c */ -#line 1195 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1203 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 420: -/* Line 1807 of yacc.c */ -#line 1196 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1204 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr) ); } break; case 421: -/* Line 1807 of yacc.c */ -#line 1199 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1207 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_FIELD; } break; case 422: -/* Line 1807 of yacc.c */ -#line 1201 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1209 "harbour.y" { if( (yyvsp[(4) - (5)].string) ) hb_compFieldSetAlias( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), (yyvsp[(3) - (5)].iNumber) ); } @@ -6409,64 +6417,64 @@ yyreduce: case 423: -/* Line 1807 of yacc.c */ -#line 1206 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1214 "harbour.y" { (yyval.iNumber) = hb_compFieldsCount( HB_COMP_PARAM ); hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); } break; case 424: -/* Line 1807 of yacc.c */ -#line 1207 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1215 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), (yyvsp[(4) - (4)].asVarType) ); } break; case 425: -/* Line 1807 of yacc.c */ -#line 1210 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1218 "harbour.y" { (yyval.string) = NULL; } break; case 426: -/* Line 1807 of yacc.c */ -#line 1211 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1219 "harbour.y" { (yyval.string) = (yyvsp[(2) - (2)].string); } break; case 427: -/* Line 1807 of yacc.c */ -#line 1214 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1222 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_MEMVAR; } break; case 429: -/* Line 1807 of yacc.c */ -#line 1217 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1225 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); } break; case 430: -/* Line 1807 of yacc.c */ -#line 1218 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1226 "harbour.y" { hb_compVariableAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), (yyvsp[(4) - (4)].asVarType) ); } break; case 431: -/* Line 1807 of yacc.c */ -#line 1221 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1229 "harbour.y" { hb_compDeclaredAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string) ); HB_COMP_PARAM->szDeclaredFun = (yyvsp[(2) - (3)].string); } break; case 432: -/* Line 1807 of yacc.c */ -#line 1222 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1230 "harbour.y" { if( HB_COMP_PARAM->pLastDeclared ) { @@ -6489,64 +6497,64 @@ yyreduce: case 433: -/* Line 1807 of yacc.c */ -#line 1240 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1248 "harbour.y" { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[(2) - (2)].string), NULL ); } break; case 434: -/* Line 1807 of yacc.c */ -#line 1240 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1248 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 435: -/* Line 1807 of yacc.c */ -#line 1241 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1249 "harbour.y" { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string), NULL ); HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 436: -/* Line 1807 of yacc.c */ -#line 1242 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1250 "harbour.y" { HB_COMP_PARAM->pLastClass = hb_compClassAdd( HB_COMP_PARAM, (yyvsp[(2) - (4)].string), (yyvsp[(3) - (4)].string) ); HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 437: -/* Line 1807 of yacc.c */ -#line 1243 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1251 "harbour.y" { HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 438: -/* Line 1807 of yacc.c */ -#line 1244 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1252 "harbour.y" { HB_COMP_PARAM->cDataListType = (yyvsp[(3) - (3)].asVarType)->cVarType; } break; case 439: -/* Line 1807 of yacc.c */ -#line 1244 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1252 "harbour.y" { HB_COMP_PARAM->cDataListType = 0; HB_COMP_PARAM->iVarScope = VS_NONE; } break; case 446: -/* Line 1807 of yacc.c */ -#line 1257 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1265 "harbour.y" { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[(1) - (2)].string) ); } break; case 447: -/* Line 1807 of yacc.c */ -#line 1258 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1266 "harbour.y" { if( HB_COMP_PARAM->pLastMethod ) { @@ -6567,15 +6575,15 @@ yyreduce: case 448: -/* Line 1807 of yacc.c */ -#line 1276 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1284 "harbour.y" { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_PARAM, HB_COMP_PARAM->pLastClass, (yyvsp[(1) - (1)].string) ); } break; case 449: -/* Line 1807 of yacc.c */ -#line 1277 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1285 "harbour.y" { if( HB_COMP_PARAM->pLastMethod ) { @@ -6632,162 +6640,162 @@ yyreduce: case 463: -/* Line 1807 of yacc.c */ -#line 1350 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1358 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (1)].asExpr) ); } break; case 464: -/* Line 1807 of yacc.c */ -#line 1353 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1361 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), (yyvsp[(2) - (2)].asVarType) ); } break; case 465: -/* Line 1807 of yacc.c */ -#line 1354 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1362 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(3) - (3)].asVarType)->cVarType + VT_OFFSET_BYREF, NULL ) ); } break; case 466: -/* Line 1807 of yacc.c */ -#line 1355 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1363 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (5)].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F', NULL ) ); } break; case 467: -/* Line 1807 of yacc.c */ -#line 1356 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1364 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), (yyvsp[(4) - (4)].asVarType) ); } break; case 468: -/* Line 1807 of yacc.c */ -#line 1357 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1365 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(5) - (5)].asVarType)->cVarType + VT_OFFSET_BYREF, NULL ) ); } break; case 469: -/* Line 1807 of yacc.c */ -#line 1358 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1366 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (7)].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F', NULL ) ); } break; case 470: -/* Line 1807 of yacc.c */ -#line 1361 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1369 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(2) - (3)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(3) - (3)].asVarType)->cVarType + VT_OFFSET_OPTIONAL, NULL ) ); } break; case 471: -/* Line 1807 of yacc.c */ -#line 1362 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1370 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (4)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(4) - (4)].asVarType)->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF, NULL ) ); } break; case 472: -/* Line 1807 of yacc.c */ -#line 1363 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1371 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(3) - (6)].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F' + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF, NULL ) ); } break; case 473: -/* Line 1807 of yacc.c */ -#line 1364 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1372 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(4) - (5)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(5) - (5)].asVarType)->cVarType + VT_OFFSET_OPTIONAL, NULL ) ); } break; case 474: -/* Line 1807 of yacc.c */ -#line 1365 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1373 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(5) - (6)].string), hb_compVarTypeNew( HB_COMP_PARAM, (yyvsp[(6) - (6)].asVarType)->cVarType + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF, NULL ) ); } break; case 475: -/* Line 1807 of yacc.c */ -#line 1366 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1374 "harbour.y" { hb_compDeclaredParameterAdd( HB_COMP_PARAM, (yyvsp[(5) - (8)].string), hb_compVarTypeNew( HB_COMP_PARAM, 'F' + VT_OFFSET_OPTIONAL + VT_OFFSET_BYREF, NULL ) ); } break; case 484: -/* Line 1807 of yacc.c */ -#line 1379 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1387 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (2)].sNumber), HB_COMP_PARAM ); } break; case 485: -/* Line 1807 of yacc.c */ -#line 1380 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1388 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (3)].sNumber), HB_COMP_PARAM ); } break; case 486: -/* Line 1807 of yacc.c */ -#line 1381 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1389 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (3)].sNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (3)].pVoid) ); } break; case 487: -/* Line 1807 of yacc.c */ -#line 1382 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1390 "harbour.y" { hb_compGenJumpHere( (yyvsp[(1) - (4)].sNumber), HB_COMP_PARAM ); hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (4)].pVoid) ); } break; case 488: -/* Line 1807 of yacc.c */ -#line 1386 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1394 "harbour.y" { ++HB_COMP_PARAM->functions.pLast->wIfCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 489: -/* Line 1807 of yacc.c */ -#line 1388 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1396 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(2) - (4)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } break; case 490: -/* Line 1807 of yacc.c */ -#line 1390 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1398 "harbour.y" { (yyval.sNumber) = hb_compGenJump( 0, HB_COMP_PARAM ); hb_compGenJumpHere( (yyvsp[(5) - (6)].sNumber), HB_COMP_PARAM ); } break; case 491: -/* Line 1807 of yacc.c */ -#line 1393 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1401 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; } break; case 493: -/* Line 1807 of yacc.c */ -#line 1397 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1405 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); } break; case 494: -/* Line 1807 of yacc.c */ -#line 1399 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1407 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } @@ -6795,8 +6803,8 @@ yyreduce: case 495: -/* Line 1807 of yacc.c */ -#line 1403 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1411 "harbour.y" { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, NULL, hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[(5) - (6)].sNumber), HB_COMP_PARAM ); } @@ -6804,15 +6812,15 @@ yyreduce: case 496: -/* Line 1807 of yacc.c */ -#line 1407 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1415 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; hb_compLinePush( HB_COMP_PARAM ); } break; case 497: -/* Line 1807 of yacc.c */ -#line 1409 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1417 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); } @@ -6820,8 +6828,8 @@ yyreduce: case 498: -/* Line 1807 of yacc.c */ -#line 1413 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1421 "harbour.y" { (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, (yyvsp[(1) - (7)].pVoid), hb_compGenJump( 0, HB_COMP_PARAM ) ); hb_compGenJumpHere( (yyvsp[(6) - (7)].sNumber), HB_COMP_PARAM ); } @@ -6829,8 +6837,8 @@ yyreduce: case 499: -/* Line 1807 of yacc.c */ -#line 1419 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1427 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wIfCounter ) --HB_COMP_PARAM->functions.pLast->wIfCounter; @@ -6840,22 +6848,22 @@ yyreduce: case 502: -/* Line 1807 of yacc.c */ -#line 1432 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1440 "harbour.y" { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (3)].pVoid) ); } break; case 505: -/* Line 1807 of yacc.c */ -#line 1444 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1452 "harbour.y" { hb_compElseIfFix( HB_COMP_PARAM, (yyvsp[(2) - (4)].pVoid) ); } break; case 506: -/* Line 1807 of yacc.c */ -#line 1448 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1456 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wCaseCounter ) --HB_COMP_PARAM->functions.pLast->wCaseCounter; HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); @@ -6864,15 +6872,15 @@ yyreduce: case 509: -/* Line 1807 of yacc.c */ -#line 1458 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1466 "harbour.y" { ++HB_COMP_PARAM->functions.pLast->wCaseCounter; hb_compLinePushIfDebugger( HB_COMP_PARAM );} break; case 512: -/* Line 1807 of yacc.c */ -#line 1462 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1470 "harbour.y" { if( (yyvsp[(2) - (2)].lNumber) > 0 ) { @@ -6883,15 +6891,15 @@ yyreduce: case 513: -/* Line 1807 of yacc.c */ -#line 1470 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1478 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 514: -/* Line 1807 of yacc.c */ -#line 1471 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1479 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); @@ -6900,8 +6908,8 @@ yyreduce: case 515: -/* Line 1807 of yacc.c */ -#line 1476 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1484 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, NULL, hb_compGenJump( 0, HB_COMP_PARAM ) ); @@ -6911,15 +6919,15 @@ yyreduce: case 516: -/* Line 1807 of yacc.c */ -#line 1482 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1490 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); } break; case 517: -/* Line 1807 of yacc.c */ -#line 1483 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1491 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(4) - (5)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); @@ -6928,8 +6936,8 @@ yyreduce: case 518: -/* Line 1807 of yacc.c */ -#line 1488 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1496 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; (yyval.pVoid) = hb_compElseIfGen( HB_COMP_PARAM, (yyvsp[(1) - (7)].pVoid), hb_compGenJump( 0, HB_COMP_PARAM ) ); @@ -6939,29 +6947,29 @@ yyreduce: case 519: -/* Line 1807 of yacc.c */ -#line 1495 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1503 "harbour.y" {hb_compLinePushIfDebugger( HB_COMP_PARAM ); } break; case 520: -/* Line 1807 of yacc.c */ -#line 1495 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1503 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; } break; case 522: -/* Line 1807 of yacc.c */ -#line 1497 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1505 "harbour.y" { hb_compGenError( HB_COMP_PARAM, hb_comp_szErrors, 'E', HB_COMP_ERR_MAYHEM_IN_CASE, NULL, NULL ); } break; case 524: -/* Line 1807 of yacc.c */ -#line 1502 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1510 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ) ); (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); @@ -6970,8 +6978,8 @@ yyreduce: case 525: -/* Line 1807 of yacc.c */ -#line 1507 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1515 "harbour.y" { hb_compLoopHere( HB_COMP_PARAM ); hb_compGenJump( (yyvsp[(1) - (5)].sNumber) - HB_COMP_PARAM->functions.pLast->nPCodePos, HB_COMP_PARAM ); @@ -6980,8 +6988,8 @@ yyreduce: case 526: -/* Line 1807 of yacc.c */ -#line 1512 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1520 "harbour.y" { hb_compGenJumpHere( (yyvsp[(4) - (7)].sNumber), HB_COMP_PARAM ); if( HB_COMP_PARAM->functions.pLast->wWhileCounter ) @@ -6993,8 +7001,8 @@ yyreduce: case 527: -/* Line 1807 of yacc.c */ -#line 1522 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1530 "harbour.y" { (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -7005,15 +7013,15 @@ yyreduce: case 528: -/* Line 1807 of yacc.c */ -#line 1531 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1539 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; } break; case 531: -/* Line 1807 of yacc.c */ -#line 1539 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1547 "harbour.y" { /* 5 */ hb_compLinePushIfInside( HB_COMP_PARAM ); (yyvsp[(1) - (4)].iNumber) = HB_COMP_PARAM->currLine; @@ -7030,8 +7038,8 @@ yyreduce: case 532: -/* Line 1807 of yacc.c */ -#line 1552 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1560 "harbour.y" { /* 9 */ hb_compLoopStart( HB_COMP_PARAM, HB_TRUE ); (yyval.sNumber) = hb_compGenJump( 0, HB_COMP_PARAM ); @@ -7040,8 +7048,8 @@ yyreduce: case 533: -/* Line 1807 of yacc.c */ -#line 1557 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1565 "harbour.y" { /* 11 */ (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; } @@ -7049,8 +7057,8 @@ yyreduce: case 534: -/* Line 1807 of yacc.c */ -#line 1561 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1569 "harbour.y" { int iSign, iLine; @@ -7097,22 +7105,22 @@ yyreduce: case 537: -/* Line 1807 of yacc.c */ -#line 1609 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1617 "harbour.y" { (yyval.asExpr) = NULL; } break; case 538: -/* Line 1807 of yacc.c */ -#line 1610 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1618 "harbour.y" { (yyval.asExpr) = hb_compExprReduce( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 539: -/* Line 1807 of yacc.c */ -#line 1614 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1622 "harbour.y" { hb_compLinePush( HB_COMP_PARAM ); if( HB_COMP_PARAM->functions.pLast->wForCounter ) @@ -7122,57 +7130,57 @@ yyreduce: case 544: -/* Line 1807 of yacc.c */ -#line 1627 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1635 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 545: -/* Line 1807 of yacc.c */ -#line 1628 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1636 "harbour.y" { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 546: -/* Line 1807 of yacc.c */ -#line 1631 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1639 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 547: -/* Line 1807 of yacc.c */ -#line 1632 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1640 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 548: -/* Line 1807 of yacc.c */ -#line 1635 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1643 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(2) - (2)].string), HB_COMP_PARAM ); } break; case 550: -/* Line 1807 of yacc.c */ -#line 1639 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1647 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 551: -/* Line 1807 of yacc.c */ -#line 1640 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1648 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 552: -/* Line 1807 of yacc.c */ -#line 1645 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1653 "harbour.y" { ++HB_COMP_PARAM->functions.pLast->wForCounter; /* 5 */ hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -7182,8 +7190,8 @@ yyreduce: case 553: -/* Line 1807 of yacc.c */ -#line 1651 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1659 "harbour.y" { /* 7 */ (yyvsp[(2) - (6)].asExpr) = hb_compExprReduce( (yyvsp[(2) - (6)].asExpr), HB_COMP_PARAM ); @@ -7197,8 +7205,8 @@ yyreduce: case 554: -/* Line 1807 of yacc.c */ -#line 1661 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1669 "harbour.y" { /* 9 */ (yyval.sNumber) = hb_compGenJumpFalse( 0, HB_COMP_PARAM ); @@ -7207,8 +7215,8 @@ yyreduce: case 555: -/* Line 1807 of yacc.c */ -#line 1666 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1674 "harbour.y" { hb_compLoopHere( HB_COMP_PARAM ); hb_compEnumNext( HB_COMP_PARAM, (yyvsp[(2) - (10)].asExpr), (yyvsp[(6) - (10)].iNumber) ); @@ -7225,22 +7233,22 @@ yyreduce: case 556: -/* Line 1807 of yacc.c */ -#line 1680 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1688 "harbour.y" { (yyval.iNumber) = 1; } break; case 557: -/* Line 1807 of yacc.c */ -#line 1681 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1689 "harbour.y" { (yyval.iNumber) = -1; } break; case 558: -/* Line 1807 of yacc.c */ -#line 1685 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1693 "harbour.y" { hb_compLoopStart( HB_COMP_PARAM, HB_FALSE ); hb_compSwitchStart( HB_COMP_PARAM, (yyvsp[(1) - (1)].asExpr) ); @@ -7250,8 +7258,8 @@ yyreduce: case 559: -/* Line 1807 of yacc.c */ -#line 1692 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1700 "harbour.y" { hb_compSwitchEnd( HB_COMP_PARAM ); hb_compLoopEnd( HB_COMP_PARAM ); @@ -7260,8 +7268,8 @@ yyreduce: case 560: -/* Line 1807 of yacc.c */ -#line 1699 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1707 "harbour.y" { HB_COMP_EXPR_FREE( (yyvsp[(1) - (2)].asExpr) ); hb_compGenPCode1( HB_P_POP, HB_COMP_PARAM ); @@ -7270,8 +7278,8 @@ yyreduce: case 561: -/* Line 1807 of yacc.c */ -#line 1706 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1714 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wSwitchCounter ) --HB_COMP_PARAM->functions.pLast->wSwitchCounter; @@ -7281,8 +7289,8 @@ yyreduce: case 564: -/* Line 1807 of yacc.c */ -#line 1718 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1726 "harbour.y" { ++HB_COMP_PARAM->functions.pLast->wSwitchCounter; hb_compLinePushIfInside( HB_COMP_PARAM ); @@ -7291,8 +7299,8 @@ yyreduce: case 565: -/* Line 1807 of yacc.c */ -#line 1723 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1731 "harbour.y" { (yyval.asExpr) = hb_compExprReduce( (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ); } @@ -7300,8 +7308,8 @@ yyreduce: case 567: -/* Line 1807 of yacc.c */ -#line 1730 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1738 "harbour.y" { if( (yyvsp[(2) - (2)].lNumber) > 0 ) { @@ -7312,36 +7320,36 @@ yyreduce: case 568: -/* Line 1807 of yacc.c */ -#line 1738 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1746 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[(2) - (2)].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); } break; case 570: -/* Line 1807 of yacc.c */ -#line 1741 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1749 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, (yyvsp[(3) - (3)].asExpr) ); hb_compLinePush( HB_COMP_PARAM ); } break; case 574: -/* Line 1807 of yacc.c */ -#line 1749 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1757 "harbour.y" { hb_compSwitchAdd( HB_COMP_PARAM, NULL ); hb_compLinePush( HB_COMP_PARAM ); } break; case 575: -/* Line 1807 of yacc.c */ -#line 1749 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1757 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; } break; case 577: -/* Line 1807 of yacc.c */ -#line 1754 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1762 "harbour.y" { /* 2 */ hb_compLinePushIfInside( HB_COMP_PARAM ); ++HB_COMP_PARAM->functions.pLast->wSeqCounter; @@ -7351,8 +7359,8 @@ yyreduce: case 578: -/* Line 1807 of yacc.c */ -#line 1762 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1770 "harbour.y" { /* 6 */ /* Set jump address for HB_P_SEQBEGIN opcode - this address * will be used in BREAK code if there is no RECOVER clause @@ -7367,8 +7375,8 @@ yyreduce: case 579: -/* Line 1807 of yacc.c */ -#line 1773 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1781 "harbour.y" { /* 8 */ /* Replace END address with RECOVER address in * HB_P_SEQBEGIN opcode if there is RECOVER clause @@ -7382,8 +7390,8 @@ yyreduce: case 580: -/* Line 1807 of yacc.c */ -#line 1783 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1791 "harbour.y" { /* 10 */ long lLoopCount = hb_compLoopCount( HB_COMP_PARAM ); HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); @@ -7416,15 +7424,15 @@ yyreduce: case 584: -/* Line 1807 of yacc.c */ -#line 1818 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1826 "harbour.y" { (yyval.sNumber) = 0; } break; case 585: -/* Line 1807 of yacc.c */ -#line 1820 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1828 "harbour.y" { HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ) ); hb_compGenPCode1( HB_P_SEQBLOCK, HB_COMP_PARAM ); @@ -7434,15 +7442,15 @@ yyreduce: case 586: -/* Line 1807 of yacc.c */ -#line 1827 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1835 "harbour.y" { (yyval.sNumber) = 0; } break; case 588: -/* Line 1807 of yacc.c */ -#line 1832 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1840 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ ( FUN_WITH_RETURN | FUN_BREAK_CODE ); (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -7453,15 +7461,15 @@ yyreduce: case 589: -/* Line 1807 of yacc.c */ -#line 1840 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1848 "harbour.y" { (yyval.sNumber) = 0; HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; } break; case 592: -/* Line 1807 of yacc.c */ -#line 1846 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1854 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -7474,8 +7482,8 @@ yyreduce: case 593: -/* Line 1807 of yacc.c */ -#line 1857 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1865 "harbour.y" { HB_COMP_PARAM->functions.pLast->funFlags &= ~ FUN_BREAK_CODE; (yyval.sNumber) = HB_COMP_PARAM->functions.pLast->nPCodePos; @@ -7489,8 +7497,8 @@ yyreduce: case 594: -/* Line 1807 of yacc.c */ -#line 1875 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1883 "harbour.y" { (yyval.asExpr) = hb_compExprNewFunCall( (yyvsp[(2) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } @@ -7498,8 +7506,8 @@ yyreduce: case 595: -/* Line 1807 of yacc.c */ -#line 1879 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1887 "harbour.y" { hb_compModuleAdd( HB_COMP_PARAM, (yyvsp[(1) - (2)].string), HB_FALSE ); /* DOIDENT is the only one identifier which can be returned in lower letters */ @@ -7509,64 +7517,64 @@ yyreduce: case 596: -/* Line 1807 of yacc.c */ -#line 1886 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1894 "harbour.y" { (yyval.asExpr) = NULL; } break; case 597: -/* Line 1807 of yacc.c */ -#line 1887 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1895 "harbour.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 598: -/* Line 1807 of yacc.c */ -#line 1890 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1898 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), hb_compExprNewNil( HB_COMP_PARAM ) ); } break; case 599: -/* Line 1807 of yacc.c */ -#line 1891 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1899 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewArgList( hb_compExprNewNil( HB_COMP_PARAM ), HB_COMP_PARAM ), (yyvsp[(2) - (2)].asExpr) ); } break; case 600: -/* Line 1807 of yacc.c */ -#line 1892 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1900 "harbour.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 601: -/* Line 1807 of yacc.c */ -#line 1893 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1901 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (2)].asExpr), hb_compExprNewNil( HB_COMP_PARAM ) ); } break; case 602: -/* Line 1807 of yacc.c */ -#line 1894 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1902 "harbour.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 603: -/* Line 1807 of yacc.c */ -#line 1897 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1905 "harbour.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 608: -/* Line 1807 of yacc.c */ -#line 1905 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1913 "harbour.y" { hb_compLinePushIfInside( HB_COMP_PARAM ); HB_COMP_EXPR_FREE( hb_compExprGenPush( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ) ); @@ -7578,8 +7586,8 @@ yyreduce: case 609: -/* Line 1807 of yacc.c */ -#line 1914 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1922 "harbour.y" { if( HB_COMP_PARAM->functions.pLast->wWithObjectCnt ) --HB_COMP_PARAM->functions.pLast->wWithObjectCnt; if( (yyvsp[(5) - (6)].lNumber) ) @@ -7595,15 +7603,15 @@ yyreduce: case 612: -/* Line 1807 of yacc.c */ -#line 1931 "harbour.y" +/* Line 1806 of yacc.c */ +#line 1939 "harbour.y" { HB_COMP_PARAM->fError = HB_FALSE; } break; -/* Line 1807 of yacc.c */ -#line 7609 "harboury.c" +/* Line 1806 of yacc.c */ +#line 7615 "harboury.c" default: break; } /* User semantic actions sometimes alter yychar, and that requires @@ -7652,7 +7660,6 @@ yyerrlab: if (!yyerrstatus) { ++yynerrs; - YYUSE (yynerrs); #if ! YYERROR_VERBOSE yyerror (pComp, YY_("syntax error")); #else @@ -7718,7 +7725,6 @@ yyerrlab: /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ -#ifndef NO_YYERROR yyerrorlab: /* Pacify compilers like GCC when the user code never invokes @@ -7734,7 +7740,6 @@ yyerrorlab: YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; -#endif /* NO_YYERROR */ /*-------------------------------------------------------------. @@ -7836,8 +7841,8 @@ yyreturn: -/* Line 2071 of yacc.c */ -#line 1935 "harbour.y" +/* Line 2067 of yacc.c */ +#line 1943 "harbour.y" /* diff --git a/harbour/src/compiler/harbour.yyh b/harbour/src/compiler/harbour.yyh index a994a36c5d..adf8884928 100644 --- a/harbour/src/compiler/harbour.yyh +++ b/harbour/src/compiler/harbour.yyh @@ -155,8 +155,8 @@ typedef union YYSTYPE { -/* Line 2072 of yacc.c */ -#line 117 "harbour.y" +/* Line 2068 of yacc.c */ +#line 125 "harbour.y" const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -197,7 +197,7 @@ typedef union YYSTYPE -/* Line 2072 of yacc.c */ +/* Line 2068 of yacc.c */ #line 202 "harboury.h" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 diff --git a/harbour/src/macro/macro.y b/harbour/src/macro/macro.y index d98af35ed2..d074e7f68a 100644 --- a/harbour/src/macro/macro.y +++ b/harbour/src/macro/macro.y @@ -72,9 +72,17 @@ /* Compile using: bison -d -p hb_comp macro.y */ -/* to pacify some warnings in BCC */ -#if defined( __BORLANDC__ ) && !defined( __STDC__ ) -# define __STDC__ +/* to pacify some meaningless warnings */ +#if defined( __BORLANDC__ ) +# if !defined( __STDC__ ) +# define __STDC__ +# endif +# pragma warn -aus +# pragma warn -ccc +# pragma warn -rch +#elif defined( __WATCOMC__ ) +# pragma warning 13 9 +# pragma warning 368 9 #endif #undef alloca diff --git a/harbour/src/macro/macro.yyc b/harbour/src/macro/macro.yyc index 84aa18708b..e21305e90e 100644 --- a/harbour/src/macro/macro.yyc +++ b/harbour/src/macro/macro.yyc @@ -144,9 +144,17 @@ /* Compile using: bison -d -p hb_comp macro.y */ -/* to pacify some warnings in BCC */ -#if defined( __BORLANDC__ ) && !defined( __STDC__ ) -# define __STDC__ +/* to pacify some meaningless warnings */ +#if defined( __BORLANDC__ ) +# if !defined( __STDC__ ) +# define __STDC__ +# endif +# pragma warn -aus +# pragma warn -ccc +# pragma warn -rch +#elif defined( __WATCOMC__ ) +# pragma warning 13 9 +# pragma warning 368 9 #endif #undef alloca @@ -204,7 +212,7 @@ /* Line 268 of yacc.c */ -#line 208 "macroy.c" +#line 216 "macroy.c" /* Enabling traces. */ #ifndef YYDEBUG @@ -279,7 +287,7 @@ typedef union YYSTYPE { /* Line 293 of yacc.c */ -#line 135 "macro.y" +#line 143 "macro.y" const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -315,7 +323,7 @@ typedef union YYSTYPE /* Line 293 of yacc.c */ -#line 319 "macroy.c" +#line 327 "macroy.c" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define yystype YYSTYPE /* obsolescent; will be withdrawn */ @@ -326,7 +334,7 @@ typedef union YYSTYPE /* Copy the second part of user declarations. */ /* Line 343 of yacc.c */ -#line 168 "macro.y" +#line 176 "macro.y" /* This must be placed after the above union - the union is * typedef-ined to YYSTYPE @@ -338,7 +346,7 @@ extern void yyerror( HB_MACRO_PTR, const char * ); /* parsing error managemen /* Line 343 of yacc.c */ -#line 342 "macroy.c" +#line 350 "macroy.c" #ifdef short # undef short @@ -705,27 +713,27 @@ static const yytype_int16 yyrhs[] = /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 252, 252, 262, 270, 279, 280, 283, 286, 289, - 294, 299, 304, 305, 310, 315, 320, 325, 326, 329, - 330, 336, 339, 344, 347, 366, 371, 374, 381, 382, - 387, 388, 389, 390, 391, 394, 395, 396, 399, 400, - 401, 402, 403, 404, 405, 414, 415, 416, 417, 418, - 423, 424, 425, 426, 427, 428, 429, 430, 431, 432, - 433, 434, 435, 436, 437, 438, 439, 440, 441, 446, - 449, 454, 464, 465, 468, 469, 472, 473, 474, 475, - 476, 479, 480, 485, 488, 489, 490, 495, 499, 500, - 501, 502, 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, 531, 532, - 535, 536, 539, 539, 553, 554, 558, 559, 562, 563, - 564, 565, 566, 567, 568, 569, 570, 571, 572, 573, - 574, 575, 576, 577, 578, 579, 580, 581, 582, 583, - 589, 590, 596, 599, 600, 603, 604, 605, 608, 611, - 614, 617, 620, 623, 626, 629, 630, 631, 632, 633, - 634, 637, 638, 639, 640, 641, 642, 645, 646, 649, - 650, 651, 652, 653, 654, 655, 656, 657, 660, 666, - 667, 668, 671, 672, 676, 675, 683, 684, 689, 690, - 691, 692, 695, 696, 699, 700, 703, 706, 710 + 0, 260, 260, 270, 278, 287, 288, 291, 294, 297, + 302, 307, 312, 313, 318, 323, 328, 333, 334, 337, + 338, 344, 347, 352, 355, 374, 379, 382, 389, 390, + 395, 396, 397, 398, 399, 402, 403, 404, 407, 408, + 409, 410, 411, 412, 413, 422, 423, 424, 425, 426, + 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, + 441, 442, 443, 444, 445, 446, 447, 448, 449, 454, + 457, 462, 472, 473, 476, 477, 480, 481, 482, 483, + 484, 487, 488, 493, 496, 497, 498, 503, 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, 536, 539, 540, + 543, 544, 547, 547, 561, 562, 566, 567, 570, 571, + 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, + 582, 583, 584, 585, 586, 587, 588, 589, 590, 591, + 597, 598, 604, 607, 608, 611, 612, 613, 616, 619, + 622, 625, 628, 631, 634, 637, 638, 639, 640, 641, + 642, 645, 646, 647, 648, 649, 650, 653, 654, 657, + 658, 659, 660, 661, 662, 663, 664, 665, 668, 674, + 675, 676, 679, 680, 684, 683, 691, 692, 697, 698, + 699, 700, 703, 704, 707, 708, 711, 714, 718 }; #endif @@ -1768,7 +1776,6 @@ yydestruct (yymsg, yytype, yyvaluep, pMacro) if (!yymsg) yymsg = "Deleting"; - YYUSE (yymsg); YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); switch (yytype) @@ -1875,7 +1882,7 @@ YYSTYPE yylval; Keep to zero when no symbol should be popped. */ int yylen = 0; - /* yytoken = 0; */ + yytoken = 0; yyss = yyssa; yyvs = yyvsa; yystacksize = YYINITDEPTH; @@ -1951,7 +1958,6 @@ YYSTYPE yylval; goto yyexhaustedlab; YYSTACK_RELOCATE (yyss_alloc, yyss); YYSTACK_RELOCATE (yyvs_alloc, yyvs); - YYUSE (yyptr); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); @@ -2017,6 +2023,8 @@ yybackup: yyn = yytable[yyn]; if (yyn <= 0) { + if (yytable_value_is_error (yyn)) + goto yyerrlab; yyn = -yyn; goto yyreduce; } @@ -2071,8 +2079,8 @@ yyreduce: { case 2: -/* Line 1807 of yacc.c */ -#line 252 "macro.y" +/* Line 1806 of yacc.c */ +#line 260 "macro.y" { HB_MACRO_DATA->exprType = hb_compExprType( (yyvsp[(1) - (1)].asExpr) ); if( HB_MACRO_DATA->Flags & HB_MACRO_GEN_REFER ) @@ -2087,8 +2095,8 @@ yyreduce: case 3: -/* Line 1807 of yacc.c */ -#line 262 "macro.y" +/* Line 1806 of yacc.c */ +#line 270 "macro.y" { HB_MACRO_DATA->exprType = hb_compExprType( (yyvsp[(1) - (1)].asExpr) ); if( HB_MACRO_DATA->Flags & HB_MACRO_GEN_PUSH ) @@ -2101,8 +2109,8 @@ yyreduce: case 4: -/* Line 1807 of yacc.c */ -#line 270 "macro.y" +/* Line 1806 of yacc.c */ +#line 278 "macro.y" { HB_TRACE(HB_TR_DEBUG, ("macro -> invalid syntax: %s", HB_MACRO_DATA->string)); hb_macroError( EG_SYNTAX, HB_COMP_PARAM ); @@ -2112,134 +2120,134 @@ yyreduce: case 5: -/* Line 1807 of yacc.c */ -#line 279 "macro.y" +/* Line 1806 of yacc.c */ +#line 287 "macro.y" { (yyval.asExpr) = hb_compExprNewDouble( (yyvsp[(1) - (1)].valDouble).dNumber, (yyvsp[(1) - (1)].valDouble).bWidth, (yyvsp[(1) - (1)].valDouble).bDec, HB_COMP_PARAM ); } break; case 6: -/* Line 1807 of yacc.c */ -#line 280 "macro.y" +/* Line 1806 of yacc.c */ +#line 288 "macro.y" { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); } break; case 7: -/* Line 1807 of yacc.c */ -#line 283 "macro.y" +/* Line 1806 of yacc.c */ +#line 291 "macro.y" { (yyval.asExpr) = hb_compExprNewDate( ( long ) (yyvsp[(1) - (1)].valLong).lNumber, HB_COMP_PARAM ); } break; case 8: -/* Line 1807 of yacc.c */ -#line 286 "macro.y" +/* Line 1806 of yacc.c */ +#line 294 "macro.y" { (yyval.asExpr) = hb_compExprNewTimeStamp( (yyvsp[(1) - (1)].valTimeStamp).date, (yyvsp[(1) - (1)].valTimeStamp).time, HB_COMP_PARAM ); } break; case 9: -/* Line 1807 of yacc.c */ -#line 289 "macro.y" +/* Line 1806 of yacc.c */ +#line 297 "macro.y" { (yyval.asExpr) = hb_compExprNewLong( (yyvsp[(1) - (2)].valLong).lNumber, HB_COMP_PARAM ); } break; case 10: -/* Line 1807 of yacc.c */ -#line 294 "macro.y" +/* Line 1806 of yacc.c */ +#line 302 "macro.y" { (yyval.asExpr) = hb_compExprNewNil( HB_COMP_PARAM ); } break; case 11: -/* Line 1807 of yacc.c */ -#line 299 "macro.y" +/* Line 1806 of yacc.c */ +#line 307 "macro.y" { (yyval.asExpr) = hb_compExprNewString( (yyvsp[(1) - (1)].valChar).string, (yyvsp[(1) - (1)].valChar).length, HB_FALSE, HB_COMP_PARAM ); } break; case 12: -/* Line 1807 of yacc.c */ -#line 304 "macro.y" +/* Line 1806 of yacc.c */ +#line 312 "macro.y" { (yyval.asExpr) = hb_compExprNewLogical( HB_TRUE, HB_COMP_PARAM ); } break; case 13: -/* Line 1807 of yacc.c */ -#line 305 "macro.y" +/* Line 1806 of yacc.c */ +#line 313 "macro.y" { (yyval.asExpr) = hb_compExprNewLogical( HB_FALSE, HB_COMP_PARAM ); } break; case 14: -/* Line 1807 of yacc.c */ -#line 310 "macro.y" +/* Line 1806 of yacc.c */ +#line 318 "macro.y" { (yyval.asExpr) = hb_compExprNewSelf( HB_COMP_PARAM ); } break; case 15: -/* Line 1807 of yacc.c */ -#line 315 "macro.y" +/* Line 1806 of yacc.c */ +#line 323 "macro.y" { (yyval.asExpr) = hb_compExprNewArray( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); } break; case 16: -/* Line 1807 of yacc.c */ -#line 320 "macro.y" +/* Line 1806 of yacc.c */ +#line 328 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 17: -/* Line 1807 of yacc.c */ -#line 325 "macro.y" +/* Line 1806 of yacc.c */ +#line 333 "macro.y" { (yyval.asExpr) = hb_compExprNewHash( NULL, HB_COMP_PARAM ); } break; case 18: -/* Line 1807 of yacc.c */ -#line 326 "macro.y" +/* Line 1806 of yacc.c */ +#line 334 "macro.y" { (yyval.asExpr) = hb_compExprNewHash( (yyvsp[(2) - (3)].asExpr), HB_COMP_PARAM ); } break; case 19: -/* Line 1807 of yacc.c */ -#line 329 "macro.y" +/* Line 1806 of yacc.c */ +#line 337 "macro.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr) ); } break; case 20: -/* Line 1807 of yacc.c */ -#line 330 "macro.y" +/* Line 1806 of yacc.c */ +#line 338 "macro.y" { (yyval.asExpr) = hb_compExprAddListExpr( hb_compExprAddListExpr( (yyvsp[(1) - (5)].asExpr), (yyvsp[(3) - (5)].asExpr) ), (yyvsp[(5) - (5)].asExpr) ); } break; case 21: -/* Line 1807 of yacc.c */ -#line 336 "macro.y" +/* Line 1806 of yacc.c */ +#line 344 "macro.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 22: -/* Line 1807 of yacc.c */ -#line 339 "macro.y" +/* Line 1806 of yacc.c */ +#line 347 "macro.y" { (yyval.asExpr) = hb_compExprNewAlias( (yyvsp[(1) - (2)].string), HB_COMP_PARAM ); } break; case 23: -/* Line 1807 of yacc.c */ -#line 344 "macro.y" +/* Line 1806 of yacc.c */ +#line 352 "macro.y" { (yyval.asExpr) = hb_compExprNewMacro( NULL, '&', (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } @@ -2247,8 +2255,8 @@ yyreduce: case 24: -/* Line 1807 of yacc.c */ -#line 347 "macro.y" +/* Line 1806 of yacc.c */ +#line 355 "macro.y" { HB_BOOL fNewString; char * szVarName = hb_macroTextSymbol( (yyvsp[(1) - (1)].string), strlen( (yyvsp[(1) - (1)].string) ), &fNewString ); if( szVarName ) @@ -2270,295 +2278,295 @@ yyreduce: case 25: -/* Line 1807 of yacc.c */ -#line 366 "macro.y" +/* Line 1806 of yacc.c */ +#line 374 "macro.y" { hb_compExprMacroAsAlias( (yyvsp[(1) - (2)].asExpr) ); } break; case 26: -/* Line 1807 of yacc.c */ -#line 371 "macro.y" +/* Line 1806 of yacc.c */ +#line 379 "macro.y" { (yyval.asExpr) = hb_compExprNewMacro( (yyvsp[(2) - (2)].asExpr), 0, NULL, HB_COMP_PARAM ); } break; case 28: -/* Line 1807 of yacc.c */ -#line 381 "macro.y" +/* Line 1806 of yacc.c */ +#line 389 "macro.y" { (yyval.asExpr) = hb_compExprNewAlias( "FIELD", HB_COMP_PARAM ); } break; case 29: -/* Line 1807 of yacc.c */ -#line 382 "macro.y" +/* Line 1806 of yacc.c */ +#line 390 "macro.y" { (yyval.asExpr) = (yyvsp[(3) - (3)].asExpr); } break; case 30: -/* Line 1807 of yacc.c */ -#line 387 "macro.y" +/* Line 1806 of yacc.c */ +#line 395 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 31: -/* Line 1807 of yacc.c */ -#line 388 "macro.y" +/* Line 1806 of yacc.c */ +#line 396 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 32: -/* Line 1807 of yacc.c */ -#line 389 "macro.y" +/* Line 1806 of yacc.c */ +#line 397 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 33: -/* Line 1807 of yacc.c */ -#line 390 "macro.y" +/* Line 1806 of yacc.c */ +#line 398 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 34: -/* Line 1807 of yacc.c */ -#line 391 "macro.y" +/* Line 1806 of yacc.c */ +#line 399 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 35: -/* Line 1807 of yacc.c */ -#line 394 "macro.y" +/* Line 1806 of yacc.c */ +#line 402 "macro.y" { (yyval.asExpr) = hb_compExprNewVar( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 38: -/* Line 1807 of yacc.c */ -#line 399 "macro.y" +/* Line 1806 of yacc.c */ +#line 407 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 39: -/* Line 1807 of yacc.c */ -#line 400 "macro.y" +/* Line 1806 of yacc.c */ +#line 408 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 40: -/* Line 1807 of yacc.c */ -#line 401 "macro.y" +/* Line 1806 of yacc.c */ +#line 409 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 41: -/* Line 1807 of yacc.c */ -#line 402 "macro.y" +/* Line 1806 of yacc.c */ +#line 410 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 42: -/* Line 1807 of yacc.c */ -#line 403 "macro.y" +/* Line 1806 of yacc.c */ +#line 411 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 43: -/* Line 1807 of yacc.c */ -#line 404 "macro.y" +/* Line 1806 of yacc.c */ +#line 412 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 44: -/* Line 1807 of yacc.c */ -#line 405 "macro.y" +/* Line 1806 of yacc.c */ +#line 413 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasVar( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 45: -/* Line 1807 of yacc.c */ -#line 414 "macro.y" +/* Line 1806 of yacc.c */ +#line 422 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 46: -/* Line 1807 of yacc.c */ -#line 415 "macro.y" +/* Line 1806 of yacc.c */ +#line 423 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 47: -/* Line 1807 of yacc.c */ -#line 416 "macro.y" +/* Line 1806 of yacc.c */ +#line 424 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 48: -/* Line 1807 of yacc.c */ -#line 417 "macro.y" +/* Line 1806 of yacc.c */ +#line 425 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 49: -/* Line 1807 of yacc.c */ -#line 418 "macro.y" +/* Line 1806 of yacc.c */ +#line 426 "macro.y" { (yyval.asExpr) = hb_compExprNewAliasExpr( (yyvsp[(1) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 50: -/* Line 1807 of yacc.c */ -#line 423 "macro.y" +/* Line 1806 of yacc.c */ +#line 431 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 51: -/* Line 1807 of yacc.c */ -#line 424 "macro.y" +/* Line 1806 of yacc.c */ +#line 432 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 52: -/* Line 1807 of yacc.c */ -#line 425 "macro.y" +/* Line 1806 of yacc.c */ +#line 433 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 53: -/* Line 1807 of yacc.c */ -#line 426 "macro.y" +/* Line 1806 of yacc.c */ +#line 434 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 54: -/* Line 1807 of yacc.c */ -#line 427 "macro.y" +/* Line 1806 of yacc.c */ +#line 435 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 55: -/* Line 1807 of yacc.c */ -#line 428 "macro.y" +/* Line 1806 of yacc.c */ +#line 436 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 56: -/* Line 1807 of yacc.c */ -#line 429 "macro.y" +/* Line 1806 of yacc.c */ +#line 437 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 57: -/* Line 1807 of yacc.c */ -#line 430 "macro.y" +/* Line 1806 of yacc.c */ +#line 438 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 58: -/* Line 1807 of yacc.c */ -#line 431 "macro.y" +/* Line 1806 of yacc.c */ +#line 439 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 59: -/* Line 1807 of yacc.c */ -#line 432 "macro.y" +/* Line 1806 of yacc.c */ +#line 440 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 60: -/* Line 1807 of yacc.c */ -#line 433 "macro.y" +/* Line 1806 of yacc.c */ +#line 441 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 61: -/* Line 1807 of yacc.c */ -#line 434 "macro.y" +/* Line 1806 of yacc.c */ +#line 442 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 62: -/* Line 1807 of yacc.c */ -#line 435 "macro.y" +/* Line 1806 of yacc.c */ +#line 443 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 63: -/* Line 1807 of yacc.c */ -#line 436 "macro.y" +/* Line 1806 of yacc.c */ +#line 444 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 64: -/* Line 1807 of yacc.c */ -#line 437 "macro.y" +/* Line 1806 of yacc.c */ +#line 445 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 65: -/* Line 1807 of yacc.c */ -#line 438 "macro.y" +/* Line 1806 of yacc.c */ +#line 446 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 66: -/* Line 1807 of yacc.c */ -#line 439 "macro.y" +/* Line 1806 of yacc.c */ +#line 447 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 67: -/* Line 1807 of yacc.c */ -#line 440 "macro.y" +/* Line 1806 of yacc.c */ +#line 448 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 68: -/* Line 1807 of yacc.c */ -#line 441 "macro.y" +/* Line 1806 of yacc.c */ +#line 449 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 69: -/* Line 1807 of yacc.c */ -#line 446 "macro.y" +/* Line 1806 of yacc.c */ +#line 454 "macro.y" { (yyval.asExpr) = hb_macroExprNewFunCall( hb_compExprNewFunName( (yyvsp[(1) - (4)].string), HB_COMP_PARAM ), (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } @@ -2566,8 +2574,8 @@ yyreduce: case 70: -/* Line 1807 of yacc.c */ -#line 449 "macro.y" +/* Line 1806 of yacc.c */ +#line 457 "macro.y" { (yyval.asExpr) = hb_macroExprNewFunCall( (yyvsp[(1) - (4)].asExpr), (yyvsp[(3) - (4)].asExpr), HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } @@ -2575,8 +2583,8 @@ yyreduce: case 71: -/* Line 1807 of yacc.c */ -#line 454 "macro.y" +/* Line 1806 of yacc.c */ +#line 462 "macro.y" { if( hb_compExprParamListLen( (yyvsp[(4) - (5)].asExpr) ) != 0 ) { hb_macroError( EG_SYNTAX, HB_COMP_PARAM ); @@ -2589,141 +2597,141 @@ yyreduce: case 72: -/* Line 1807 of yacc.c */ -#line 464 "macro.y" +/* Line 1806 of yacc.c */ +#line 472 "macro.y" { (yyval.asExpr) = hb_compExprNewArgList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 73: -/* Line 1807 of yacc.c */ -#line 465 "macro.y" +/* Line 1806 of yacc.c */ +#line 473 "macro.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 76: -/* Line 1807 of yacc.c */ -#line 472 "macro.y" +/* Line 1806 of yacc.c */ +#line 480 "macro.y" { (yyval.asExpr) = hb_compExprNewVarRef( (yyvsp[(2) - (2)].string), HB_COMP_PARAM ); } break; case 77: -/* Line 1807 of yacc.c */ -#line 473 "macro.y" +/* Line 1806 of yacc.c */ +#line 481 "macro.y" { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 78: -/* Line 1807 of yacc.c */ -#line 474 "macro.y" +/* Line 1806 of yacc.c */ +#line 482 "macro.y" { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 79: -/* Line 1807 of yacc.c */ -#line 475 "macro.y" +/* Line 1806 of yacc.c */ +#line 483 "macro.y" { (yyval.asExpr) = hb_compExprNewRef( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 80: -/* Line 1807 of yacc.c */ -#line 476 "macro.y" +/* Line 1806 of yacc.c */ +#line 484 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); (yyval.asExpr)->value.asList.reference = HB_TRUE; } break; case 81: -/* Line 1807 of yacc.c */ -#line 479 "macro.y" +/* Line 1806 of yacc.c */ +#line 487 "macro.y" { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } break; case 83: -/* Line 1807 of yacc.c */ -#line 485 "macro.y" +/* Line 1806 of yacc.c */ +#line 493 "macro.y" { (yyval.asExpr) = hb_compExprNewMethodObject( (yyvsp[(3) - (3)].asExpr), (yyvsp[(1) - (3)].asExpr) ); } break; case 84: -/* Line 1807 of yacc.c */ -#line 488 "macro.y" +/* Line 1806 of yacc.c */ +#line 496 "macro.y" { (yyval.asExpr) = hb_compExprNewSend( (yyvsp[(1) - (1)].string), HB_COMP_PARAM ); } break; case 85: -/* Line 1807 of yacc.c */ -#line 489 "macro.y" +/* Line 1806 of yacc.c */ +#line 497 "macro.y" { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 86: -/* Line 1807 of yacc.c */ -#line 490 "macro.y" +/* Line 1806 of yacc.c */ +#line 498 "macro.y" { (yyval.asExpr) = hb_compExprNewMacroSend( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 87: -/* Line 1807 of yacc.c */ -#line 495 "macro.y" +/* Line 1806 of yacc.c */ +#line 503 "macro.y" { (yyval.asExpr) = hb_compExprNewMethodCall( (yyvsp[(1) - (4)].asExpr), (yyvsp[(3) - (4)].asExpr) ); } break; case 110: -/* Line 1807 of yacc.c */ -#line 521 "macro.y" +/* Line 1806 of yacc.c */ +#line 529 "macro.y" { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[(1) - (1)].asExpr), HB_SM_HARBOUR ); } break; case 111: -/* Line 1807 of yacc.c */ -#line 522 "macro.y" +/* Line 1806 of yacc.c */ +#line 530 "macro.y" { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[(1) - (1)].asExpr), HB_SM_HARBOUR ); } break; case 112: -/* Line 1807 of yacc.c */ -#line 523 "macro.y" +/* Line 1806 of yacc.c */ +#line 531 "macro.y" { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[(1) - (1)].asExpr), HB_SM_HARBOUR ); } break; case 118: -/* Line 1807 of yacc.c */ -#line 531 "macro.y" +/* Line 1806 of yacc.c */ +#line 539 "macro.y" { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); HB_MACRO_CHECK( (yyval.asExpr) ); } break; case 119: -/* Line 1807 of yacc.c */ -#line 532 "macro.y" +/* Line 1806 of yacc.c */ +#line 540 "macro.y" { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); HB_MACRO_CHECK( (yyval.asExpr) ); } break; case 120: -/* Line 1807 of yacc.c */ -#line 535 "macro.y" +/* Line 1806 of yacc.c */ +#line 543 "macro.y" { (yyval.asExpr) = hb_compExprNewArgRef( HB_COMP_PARAM ); } break; case 122: -/* Line 1807 of yacc.c */ -#line 539 "macro.y" +/* Line 1806 of yacc.c */ +#line 547 "macro.y" { if( !(HB_MACRO_DATA->Flags & HB_MACRO_GEN_LIST) ) { @@ -2736,8 +2744,8 @@ yyreduce: case 123: -/* Line 1807 of yacc.c */ -#line 547 "macro.y" +/* Line 1806 of yacc.c */ +#line 555 "macro.y" { HB_MACRO_DATA->uiListElements = 1; (yyval.asExpr) = hb_compExprAddListExpr( ( HB_MACRO_DATA->Flags & HB_MACRO_GEN_PARE ) ? hb_compExprNewList( (yyvsp[(1) - (4)].asExpr), HB_COMP_PARAM ) : hb_compExprNewArgList( (yyvsp[(1) - (4)].asExpr), HB_COMP_PARAM ), (yyvsp[(4) - (4)].asExpr) ); @@ -2746,380 +2754,380 @@ yyreduce: case 125: -/* Line 1807 of yacc.c */ -#line 554 "macro.y" +/* Line 1806 of yacc.c */ +#line 562 "macro.y" { HB_MACRO_DATA->uiListElements++; (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 126: -/* Line 1807 of yacc.c */ -#line 558 "macro.y" +/* Line 1806 of yacc.c */ +#line 566 "macro.y" { (yyval.asExpr) = hb_compExprNewEmpty( HB_COMP_PARAM ); } break; case 148: -/* Line 1807 of yacc.c */ -#line 582 "macro.y" +/* Line 1806 of yacc.c */ +#line 590 "macro.y" { HB_MACRO_IFENABLED( (yyval.asExpr), (yyvsp[(1) - (1)].asExpr), HB_SM_HARBOUR ); } break; case 150: -/* Line 1807 of yacc.c */ -#line 589 "macro.y" +/* Line 1806 of yacc.c */ +#line 597 "macro.y" { (yyval.asExpr) = hb_compExprNewPostInc( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); } break; case 151: -/* Line 1807 of yacc.c */ -#line 590 "macro.y" +/* Line 1806 of yacc.c */ +#line 598 "macro.y" { (yyval.asExpr) = hb_compExprNewPostDec( (yyvsp[(0) - (1)].asExpr), HB_COMP_PARAM ); } break; case 152: -/* Line 1807 of yacc.c */ -#line 596 "macro.y" +/* Line 1806 of yacc.c */ +#line 604 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 153: -/* Line 1807 of yacc.c */ -#line 599 "macro.y" +/* Line 1806 of yacc.c */ +#line 607 "macro.y" { (yyval.asExpr) = hb_compExprNewPreInc( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 154: -/* Line 1807 of yacc.c */ -#line 600 "macro.y" +/* Line 1806 of yacc.c */ +#line 608 "macro.y" { (yyval.asExpr) = hb_compExprNewPreDec( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 155: -/* Line 1807 of yacc.c */ -#line 603 "macro.y" +/* Line 1806 of yacc.c */ +#line 611 "macro.y" { (yyval.asExpr) = hb_compExprNewNot( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 156: -/* Line 1807 of yacc.c */ -#line 604 "macro.y" +/* Line 1806 of yacc.c */ +#line 612 "macro.y" { (yyval.asExpr) = hb_compExprNewNegate( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 157: -/* Line 1807 of yacc.c */ -#line 605 "macro.y" +/* Line 1806 of yacc.c */ +#line 613 "macro.y" { (yyval.asExpr) = (yyvsp[(2) - (2)].asExpr); } break; case 158: -/* Line 1807 of yacc.c */ -#line 608 "macro.y" +/* Line 1806 of yacc.c */ +#line 616 "macro.y" { (yyval.asExpr) = hb_compExprAssign( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 159: -/* Line 1807 of yacc.c */ -#line 611 "macro.y" +/* Line 1806 of yacc.c */ +#line 619 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 160: -/* Line 1807 of yacc.c */ -#line 614 "macro.y" +/* Line 1806 of yacc.c */ +#line 622 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinusEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 161: -/* Line 1807 of yacc.c */ -#line 617 "macro.y" +/* Line 1806 of yacc.c */ +#line 625 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMultEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 162: -/* Line 1807 of yacc.c */ -#line 620 "macro.y" +/* Line 1806 of yacc.c */ +#line 628 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDivEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 163: -/* Line 1807 of yacc.c */ -#line 623 "macro.y" +/* Line 1806 of yacc.c */ +#line 631 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewModEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 164: -/* Line 1807 of yacc.c */ -#line 626 "macro.y" +/* Line 1806 of yacc.c */ +#line 634 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewExpEq( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 171: -/* Line 1807 of yacc.c */ -#line 637 "macro.y" +/* Line 1806 of yacc.c */ +#line 645 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPlus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 172: -/* Line 1807 of yacc.c */ -#line 638 "macro.y" +/* Line 1806 of yacc.c */ +#line 646 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMinus( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 173: -/* Line 1807 of yacc.c */ -#line 639 "macro.y" +/* Line 1806 of yacc.c */ +#line 647 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMult( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 174: -/* Line 1807 of yacc.c */ -#line 640 "macro.y" +/* Line 1806 of yacc.c */ +#line 648 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewDiv( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 175: -/* Line 1807 of yacc.c */ -#line 641 "macro.y" +/* Line 1806 of yacc.c */ +#line 649 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewMod( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 176: -/* Line 1807 of yacc.c */ -#line 642 "macro.y" +/* Line 1806 of yacc.c */ +#line 650 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewPower( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 177: -/* Line 1807 of yacc.c */ -#line 645 "macro.y" +/* Line 1806 of yacc.c */ +#line 653 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewAnd( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 178: -/* Line 1807 of yacc.c */ -#line 646 "macro.y" +/* Line 1806 of yacc.c */ +#line 654 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewOr( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 179: -/* Line 1807 of yacc.c */ -#line 649 "macro.y" +/* Line 1806 of yacc.c */ +#line 657 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEQ( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 180: -/* Line 1807 of yacc.c */ -#line 650 "macro.y" +/* Line 1806 of yacc.c */ +#line 658 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 181: -/* Line 1807 of yacc.c */ -#line 651 "macro.y" +/* Line 1806 of yacc.c */ +#line 659 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGT( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 182: -/* Line 1807 of yacc.c */ -#line 652 "macro.y" +/* Line 1806 of yacc.c */ +#line 660 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewLE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 183: -/* Line 1807 of yacc.c */ -#line 653 "macro.y" +/* Line 1806 of yacc.c */ +#line 661 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewGE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 184: -/* Line 1807 of yacc.c */ -#line 654 "macro.y" +/* Line 1806 of yacc.c */ +#line 662 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 185: -/* Line 1807 of yacc.c */ -#line 655 "macro.y" +/* Line 1806 of yacc.c */ +#line 663 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewNE( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 186: -/* Line 1807 of yacc.c */ -#line 656 "macro.y" +/* Line 1806 of yacc.c */ +#line 664 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewIN( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 187: -/* Line 1807 of yacc.c */ -#line 657 "macro.y" +/* Line 1806 of yacc.c */ +#line 665 "macro.y" { (yyval.asExpr) = hb_compExprSetOperand( hb_compExprNewEqual( (yyvsp[(1) - (3)].asExpr), HB_COMP_PARAM ), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 189: -/* Line 1807 of yacc.c */ -#line 666 "macro.y" +/* Line 1806 of yacc.c */ +#line 674 "macro.y" { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[(0) - (2)].asExpr), (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 190: -/* Line 1807 of yacc.c */ -#line 667 "macro.y" +/* Line 1806 of yacc.c */ +#line 675 "macro.y" { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr), HB_COMP_PARAM ); } break; case 191: -/* Line 1807 of yacc.c */ -#line 668 "macro.y" +/* Line 1806 of yacc.c */ +#line 676 "macro.y" { (yyval.asExpr) = hb_macroExprNewArrayAt( (yyvsp[(1) - (4)].asExpr), (yyvsp[(4) - (4)].asExpr), HB_COMP_PARAM ); } break; case 192: -/* Line 1807 of yacc.c */ -#line 671 "macro.y" +/* Line 1806 of yacc.c */ +#line 679 "macro.y" { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(1) - (1)].asExpr), HB_COMP_PARAM ); } break; case 193: -/* Line 1807 of yacc.c */ -#line 672 "macro.y" +/* Line 1806 of yacc.c */ +#line 680 "macro.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 194: -/* Line 1807 of yacc.c */ -#line 676 "macro.y" +/* Line 1806 of yacc.c */ +#line 684 "macro.y" { (yyval.asExpr) = hb_compExprNewCodeBlock( NULL, 0, 0, HB_COMP_PARAM ); } break; case 195: -/* Line 1807 of yacc.c */ -#line 678 "macro.y" +/* Line 1806 of yacc.c */ +#line 686 "macro.y" { (yyval.asExpr) = (yyvsp[(3) - (7)].asExpr); } break; case 196: -/* Line 1807 of yacc.c */ -#line 683 "macro.y" +/* Line 1806 of yacc.c */ +#line 691 "macro.y" { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (1)].asExpr), (yyvsp[(1) - (1)].asExpr) ); } break; case 197: -/* Line 1807 of yacc.c */ -#line 684 "macro.y" +/* Line 1806 of yacc.c */ +#line 692 "macro.y" { (yyval.asExpr) = hb_compExprAddCodeblockExpr( (yyvsp[(-2) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 198: -/* Line 1807 of yacc.c */ -#line 689 "macro.y" +/* Line 1806 of yacc.c */ +#line 697 "macro.y" { (yyval.asExpr) = NULL; } break; case 199: -/* Line 1807 of yacc.c */ -#line 690 "macro.y" +/* Line 1806 of yacc.c */ +#line 698 "macro.y" { (yyval.asExpr) = NULL; (yyvsp[(0) - (1)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } break; case 200: -/* Line 1807 of yacc.c */ -#line 691 "macro.y" +/* Line 1806 of yacc.c */ +#line 699 "macro.y" { (yyval.asExpr) = (yyvsp[(1) - (1)].asExpr); } break; case 201: -/* Line 1807 of yacc.c */ -#line 692 "macro.y" +/* Line 1806 of yacc.c */ +#line 700 "macro.y" { (yyval.asExpr) = (yyvsp[(1) - (3)].asExpr); (yyvsp[(0) - (3)].asExpr)->value.asCodeblock.flags |= HB_BLOCK_VPARAMS; } break; case 202: -/* Line 1807 of yacc.c */ -#line 695 "macro.y" +/* Line 1806 of yacc.c */ +#line 703 "macro.y" { (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (1)].asExpr), (yyvsp[(1) - (1)].string), ' ', HB_COMP_PARAM ); } break; case 203: -/* Line 1807 of yacc.c */ -#line 696 "macro.y" +/* Line 1806 of yacc.c */ +#line 704 "macro.y" { (yyval.asExpr) = hb_compExprCBVarAdd( (yyvsp[(0) - (3)].asExpr), (yyvsp[(3) - (3)].string), ' ', HB_COMP_PARAM ); HB_MACRO_CHECK( (yyval.asExpr) ); } break; case 204: -/* Line 1807 of yacc.c */ -#line 699 "macro.y" +/* Line 1806 of yacc.c */ +#line 707 "macro.y" { (yyval.asExpr) = hb_compExprNewList( (yyvsp[(2) - (2)].asExpr), HB_COMP_PARAM ); } break; case 205: -/* Line 1807 of yacc.c */ -#line 700 "macro.y" +/* Line 1806 of yacc.c */ +#line 708 "macro.y" { (yyval.asExpr) = hb_compExprAddListExpr( (yyvsp[(1) - (3)].asExpr), (yyvsp[(3) - (3)].asExpr) ); } break; case 208: -/* Line 1807 of yacc.c */ -#line 711 "macro.y" +/* Line 1806 of yacc.c */ +#line 719 "macro.y" { (yyval.asExpr) = hb_compExprNewIIF( hb_compExprAddListExpr( hb_compExprAddListExpr( hb_compExprNewList( (yyvsp[(3) - (8)].asExpr), HB_COMP_PARAM ), (yyvsp[(5) - (8)].asExpr) ), (yyvsp[(7) - (8)].asExpr) ) ); } break; -/* Line 1807 of yacc.c */ -#line 3125 "macroy.c" +/* Line 1806 of yacc.c */ +#line 3131 "macroy.c" default: break; } /* User semantic actions sometimes alter yychar, and that requires @@ -3168,7 +3176,6 @@ yyerrlab: if (!yyerrstatus) { ++yynerrs; - YYUSE (yynerrs); #if ! YYERROR_VERBOSE yyerror (pMacro, YY_("syntax error")); #else @@ -3234,7 +3241,6 @@ yyerrlab: /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ -#ifndef NO_YYERROR yyerrorlab: /* Pacify compilers like GCC when the user code never invokes @@ -3250,7 +3256,6 @@ yyerrorlab: YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; -#endif /* NO_YYERROR */ /*-------------------------------------------------------------. @@ -3352,8 +3357,8 @@ yyreturn: -/* Line 2071 of yacc.c */ -#line 714 "macro.y" +/* Line 2067 of yacc.c */ +#line 722 "macro.y" diff --git a/harbour/src/macro/macro.yyh b/harbour/src/macro/macro.yyh index 14bc433a7a..18ef26ffb4 100644 --- a/harbour/src/macro/macro.yyh +++ b/harbour/src/macro/macro.yyh @@ -84,8 +84,8 @@ typedef union YYSTYPE { -/* Line 2072 of yacc.c */ -#line 135 "macro.y" +/* Line 2068 of yacc.c */ +#line 143 "macro.y" const char * string; /* to hold a string returned by lex */ int iNumber; /* to hold a temporary integer number */ @@ -120,7 +120,7 @@ typedef union YYSTYPE -/* Line 2072 of yacc.c */ +/* Line 2068 of yacc.c */ #line 125 "macroy.h" } YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1