diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-10-17 20:33:30 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-10-24 23:00:25 -0600 |
| commit | d4fcb1dc97692eaf7376c38783103c51b664ffc5 (patch) | |
| tree | 4539b05fc49977e3090f27e95b40d78f0a483ca2 /regcomp.c | |
| parent | 2e73d70e524ca7e5c7c5ae9b0017c31f6f6d4d9a (diff) | |
| download | perl-d4fcb1dc97692eaf7376c38783103c51b664ffc5.tar.gz | |
PATCH [perl #120314]: fold_grind.t spews tons of warnings
It turns out that fixing the compiler warnings about possible loss of data
(by adding casts) silences these warnings.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 17 |
1 files changed, 9 insertions, 8 deletions
@@ -4545,8 +4545,9 @@ PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n", classnum = FLAGS(scan); namedclass = classnum_to_namedclass(classnum) + invert; if (flags & SCF_DO_STCLASS_AND) { - bool was_there = ANYOF_POSIXL_TEST(data->start_class, - namedclass); + bool was_there = cBOOL( + ANYOF_POSIXL_TEST(data->start_class, + namedclass)); ANYOF_POSIXL_ZERO(data->start_class); if (was_there) { /* Do an AND */ ANYOF_POSIXL_SET(data->start_class, namedclass); @@ -7945,7 +7946,7 @@ Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, const b if (*output == a) { if (a != NULL) { - if (! (make_temp = SvTEMP(a))) { + if (! (make_temp = cBOOL(SvTEMP(a)))) { SvREFCNT_dec_NN(a); } } @@ -7965,7 +7966,7 @@ Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, const b else if ((len_b = _invlist_len(b)) == 0) { bool make_temp = FALSE; if (*output == b) { - if (! (make_temp = SvTEMP(b))) { + if (! (make_temp = cBOOL(SvTEMP(b)))) { SvREFCNT_dec_NN(b); } } @@ -7974,7 +7975,7 @@ Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, const b * so the union with <a> includes everything too */ if (complement_b) { if (a == *output) { - if (! (make_temp = SvTEMP(a))) { + if (! (make_temp = cBOOL(SvTEMP(a)))) { SvREFCNT_dec_NN(a); } } @@ -8204,7 +8205,7 @@ Perl__invlist_intersection_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, * simply 'a'. */ if (*i != a) { if (*i == b) { - if (! (make_temp = SvTEMP(b))) { + if (! (make_temp = cBOOL(SvTEMP(b)))) { SvREFCNT_dec_NN(b); } } @@ -8222,12 +8223,12 @@ Perl__invlist_intersection_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, /* Here, 'a' or 'b' is empty and not using the complement of 'b'. The * intersection must be empty */ if (*i == a) { - if (! (make_temp = SvTEMP(a))) { + if (! (make_temp = cBOOL(SvTEMP(a)))) { SvREFCNT_dec_NN(a); } } else if (*i == b) { - if (! (make_temp = SvTEMP(b))) { + if (! (make_temp = cBOOL(SvTEMP(b)))) { SvREFCNT_dec_NN(b); } } |