Perl_magic_setdebugvar(pTHX_ SV *sv, MAGIC *mg) {
PERL_ARGS_ASSERT_MAGIC_SETDEBUGVAR;
- assert(mg->mg_private >= DBVARMG_SINGLE && mg->mg_private < DBVARMG_COUNT);
+#if DBVARMG_SINGLE != 0
+ assert(mg->mg_private >= DBVARMG_SINGLE);
+#endif
+ assert(mg->mg_private < DBVARMG_COUNT);
PL_DBcontrol[mg->mg_private] = SvIV_nomg(sv);
Perl_magic_getdebugvar(pTHX_ SV *sv, MAGIC *mg) {
PERL_ARGS_ASSERT_MAGIC_GETDEBUGVAR;
- assert(mg->mg_private >= DBVARMG_SINGLE && mg->mg_private < DBVARMG_COUNT);
+#if DBVARMG_SINGLE != 0
+ assert(mg->mg_private >= DBVARMG_SINGLE);
+#endif
+ assert(mg->mg_private < DBVARMG_COUNT);
sv_setiv(sv, PL_DBcontrol[mg->mg_private]);
return 0;
SV * const arg = PL_op->op_flags & OPf_STACKED ? POPs : NULL;
MAGIC * const mg = sv_magicext(ret, arg, PERL_MAGIC_lvref,
&PL_vtbl_lvref, (char *)elem,
- elem ? HEf_SVKEY : ARGTARG);
+ elem ? HEf_SVKEY : (I32)ARGTARG);
mg->mg_private = PL_op->op_private;
if (PL_op->op_private & OPpLVREF_ITER)
mg->mg_flags |= MGf_PERSIST;