diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-29 17:38:29 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-29 17:38:29 (GMT) |
| commit | 1b580435fc4b8af6b5f5980e20ad62b88d92b592 (patch) | |
| tree | 162ae5b1db3d8cf97a237c889f22a7bcc1f9d075 | |
| parent | f185b8c2438a4ec0b56c59efbd00f6add52fbbc8 (diff) | |
| download | tcl-1b580435fc4b8af6b5f5980e20ad62b88d92b592.zip tcl-1b580435fc4b8af6b5f5980e20ad62b88d92b592.tar.gz tcl-1b580435fc4b8af6b5f5980e20ad62b88d92b592.tar.bz2 | |
forgotten flag "CLF_DAYOFWEEK" in one case, where day of week is set
| -rw-r--r-- | generic/tclDate.c | 11 | ||||
| -rw-r--r-- | generic/tclGetDate.y | 1 |
2 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index 5f2fcbb..2cee47d 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -558,11 +558,11 @@ static const yytype_uint16 yyrline[] = { 0, 160, 160, 161, 162, 165, 168, 171, 174, 177, 180, 183, 187, 192, 195, 201, 207, 215, 219, 223, - 227, 231, 235, 241, 242, 245, 250, 255, 260, 264, - 269, 276, 280, 285, 290, 295, 300, 304, 309, 313, - 318, 325, 329, 335, 344, 352, 360, 369, 379, 393, - 398, 401, 404, 407, 410, 413, 416, 421, 424, 429, - 433, 437, 443, 446, 451, 469, 472 + 227, 231, 235, 241, 242, 245, 250, 255, 260, 265, + 270, 277, 281, 286, 291, 296, 301, 305, 310, 314, + 319, 326, 330, 336, 345, 353, 361, 370, 380, 394, + 399, 402, 405, 408, 411, 414, 417, 422, 425, 430, + 434, 438, 444, 447, 452, 470, 473 }; #endif @@ -1746,6 +1746,7 @@ yyreduce: { yyDayOrdinal = (yyvsp[(1) - (4)].Number) * (yyvsp[(3) - (4)].Number); yyDayOfWeek = (yyvsp[(4) - (4)].Number); + info->flags |= CLF_DAYOFWEEK; ;} break; diff --git a/generic/tclGetDate.y b/generic/tclGetDate.y index 3e3af4a..045b2cb 100644 --- a/generic/tclGetDate.y +++ b/generic/tclGetDate.y @@ -260,6 +260,7 @@ day : tDAY { | sign SP tUNUMBER tDAY { yyDayOrdinal = $1 * $3; yyDayOfWeek = $4; + info->flags |= CLF_DAYOFWEEK; } | sign tUNUMBER tDAY { yyDayOrdinal = $1 * $2; |