diff options
| -rw-r--r-- | pp.c | 14 | ||||
| -rw-r--r-- | pp.h | 4 | ||||
| -rw-r--r-- | t/lib/warnings/9uninit | 4 | ||||
| -rw-r--r-- | t/op/tie_fetch_count.t | 7 |
4 files changed, 14 insertions, 15 deletions
@@ -2983,7 +2983,7 @@ PP(pp_i_lt) dVAR; dSP; tryAMAGICbin_MG(lt_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left < right)); RETURN; } @@ -2994,7 +2994,7 @@ PP(pp_i_gt) dVAR; dSP; tryAMAGICbin_MG(gt_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left > right)); RETURN; } @@ -3005,7 +3005,7 @@ PP(pp_i_le) dVAR; dSP; tryAMAGICbin_MG(le_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left <= right)); RETURN; } @@ -3016,7 +3016,7 @@ PP(pp_i_ge) dVAR; dSP; tryAMAGICbin_MG(ge_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left >= right)); RETURN; } @@ -3027,7 +3027,7 @@ PP(pp_i_eq) dVAR; dSP; tryAMAGICbin_MG(eq_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left == right)); RETURN; } @@ -3038,7 +3038,7 @@ PP(pp_i_ne) dVAR; dSP; tryAMAGICbin_MG(ne_amg, AMGf_set); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; SETs(boolSV(left != right)); RETURN; } @@ -3049,7 +3049,7 @@ PP(pp_i_ncmp) dVAR; dSP; dTARGET; tryAMAGICbin_MG(ncmp_amg, 0); { - dPOPTOPiirl_halfmg; + dPOPTOPiirl_nomg; I32 value; if (left > right) @@ -380,12 +380,8 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. #define dPOPTOPiirl_ul dPOPXiirl_ul(TOP) #define dPOPTOPiirl_ul_nomg dPOPXiirl_ul_nomg(TOP) #define dPOPTOPiirl_nomg \ - IV right = SvIV_nomg(TOPs); IV left = (sp--, SvIV_nomg(TOPs)) -#ifdef PERL_CORE -# define dPOPTOPiirl_halfmg \ IV left = SvIV_nomg(TOPm1s); \ IV right = (sp--, TOPp1s == TOPs ? SvIV(TOPs) : SvIV_nomg(TOPp1s)) -#endif #define RETPUSHYES RETURNX(PUSHs(&PL_sv_yes)) #define RETPUSHNO RETURNX(PUSHs(&PL_sv_no)) diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index d634846feb..10f0a7cea3 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -560,12 +560,12 @@ Use of uninitialized value $m1 in integer addition (+) at - line 6. Use of uninitialized value $g1 in integer addition (+) at - line 6. Use of uninitialized value $m1 in integer subtraction (-) at - line 7. Use of uninitialized value $g1 in integer subtraction (-) at - line 7. -Use of uninitialized value $g1 in integer multiplication (*) at - line 8. Use of uninitialized value $m1 in integer multiplication (*) at - line 8. +Use of uninitialized value $g1 in integer multiplication (*) at - line 8. Use of uninitialized value $g1 in integer division (/) at - line 9. Use of uninitialized value $m2 in integer division (/) at - line 10. -Use of uninitialized value $g1 in integer modulus (%) at - line 11. Use of uninitialized value $m1 in integer modulus (%) at - line 11. +Use of uninitialized value $g1 in integer modulus (%) at - line 11. Use of uninitialized value $m2 in integer modulus (%) at - line 12. Use of uninitialized value $m1 in integer lt (<) at - line 13. Use of uninitialized value $g1 in integer lt (<) at - line 13. diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 79c9015965..66439411a9 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -229,10 +229,13 @@ bin_test '.' , 1, 2, 12; local $TODO = $todo ; bin_test '==', 1, 2, ""; bin_test '+' , 1, 2, 3; - bin_int_test '*' , 2, 3, 6; +} +bin_int_test '*' , 2, 3, 6; +{ + local $TODO = $todo ; bin_int_test '/' , 10, 2, 5; - bin_int_test '%' , 11, 2, 1; } +bin_int_test '%' , 11, 2, 1; bin_int_test '+' , 1, 2, 3; bin_int_test '-' , 11, 2, 9; bin_int_test '<' , 1, 2, 1; |